Dennis J. Darland
Practice in Programming
ASUS Development Computer - Ubuntu 14.04
Starting  Sat Aug 18 22:35:12 CDT 2018
Finished  Sat Aug 18 22:35:12 CDT 2018
    |\^/|     Maple 2016 (X86 64 LINUX)
._|\|   |/|_. Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2016
 \  MAPLE  /  All rights reserved. Maple is a trademark of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> 
# define main function
> main := proc()
> 
>     print("Maple output");
>     print("Chapter 7");
>     prob01();
#    prob05B(); # will not solve
> end;
  main := proc() print("Maple output"); print("Chapter 7"); prob01() end proc

> 
> 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;
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 proc

> 
# call main
> main();
                                 "Maple output"

                                  "Chapter 7"

                                  "Problem 1"

                      "alpha           := ", 0.6435011088

                      "sin(alpha)      := ", 0.6000000000

                      "cos(alpha)      := ", 0.8000000000

                       "surface_force   := ", 6.000000000

                       "mans_force      := ", 54.00000000

                      "work_man        := ", -270.0000000

                         "work_gravity    := ", 300.00

                      "work_surface    := ", -30.00000000

                           "work_sum        := ", 0.

                           "delta_ke        := ", 0.

> 
> 
> quit
memory used=0.6MB, alloc=8.3MB, time=0.04