# define main function
main := proc()

    print("Maple output");
    print("Chapter 7");
    prob01();
#    prob05B(); # will not solve
end;

prob01  := proc()
local alpha , wgt_ice, coef_frict, hgt, lgth, mans_force, work_man, work_gravity, work_surface, work_sum, surface_force, delta_ke;

    print("Problem 1");
    wgt_ice := 100.0;
    coef_frict := 0.10;
    hgt := 3.0;
    lgth := 5.0;
    alpha := arcsin(hgt/lgth);
    surface_force := coef_frict * wgt_ice * sin(alpha);
    mans_force := wgt_ice * sin(alpha) - surface_force;
    work_man := - mans_force * lgth; 
    work_gravity := wgt_ice * hgt;
    work_surface := - surface_force * lgth;
    work_sum := work_man + work_gravity + work_surface;
    delta_ke := work_sum;

    print("alpha           := ", alpha);
    print("sin(alpha)      := ", sin(alpha));
    print("cos(alpha)      := ", cos(alpha));
    print("surface_force   := ", surface_force);
    print("mans_force      := ", mans_force);
    print("work_man        := ", work_man);
    print("work_gravity    := ", work_gravity);
    print("work_surface    := ", work_surface);
    print("work_sum        := ", work_sum);
    print("delta_ke        := ", delta_ke);

end;

# call main
main();