Dennis J. Darland
Practice in Programming
ASUS Development Computer - Ubuntu 14.04
Starting  Mon May 21 20:48:57 CDT 2018
Finished  Mon May 21 20:48:58 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 5");
>     prob05();
#    prob05B(); # will not solve
> end;
  main := proc() print("Maple output"); print("Chapter 5"); prob05() end proc

> 
> prob05  := proc()
> local eq1, eq2, eq3, eq4, eq5, a1, a2, t1, t2, f1, x2;
> 
>     print("Problem 5");
>     
>     eq1 := 200.0 = 0.5 * a1 * t1 * t1;   # stop after 200 feet
> 
>     eq2 := 0.0 = 50.0 * 5280.0 / 60.0 / 60.0 - a1 * t1; # velocity 0 at that acceleration 
> 
>     eq3 := f1 = 3000.0 / 32.2 * a1; #  F = m * a (convert lb to slugs)
> 
>     eq4 := f1 = 3000.0 / 32.2 * a2; # same force & mass - same accel
> 
>     eq5 := 0.0 = 25.0 * 5280.0 / 60.0 / 60.0 - a2 * t2;
> 
>     eq6 := x2 = 0.5 * a2 * t2 * t2;
> 
>     print(solve([eq1,eq2,eq3,eq4,eq5,eq6] , [t1,t2,a1,a2,f1,x2]));
> end;
Warning, `eq6` is implicitly declared local to procedure `prob05`
prob05 := proc()
local eq1, eq2, eq3, eq4, eq5, a1, a2, t1, t2, f1, x2, eq6;
    print("Problem 5");
    eq1 := 200.0 = 0.5*a1*t1*t1;
    eq2 := 0. = 50.0*(5280.0)/(60.0*(60.0)) - a1*t1;
    eq3 := f1 = 3000.0*a1/32.2;
    eq4 := f1 = 3000.0*a2/32.2;
    eq5 := 0. = 25.0*(5280.0)/(60.0*(60.0)) - a2*t2;
    eq6 := x2 = 0.5*a2*t2*t2;
    print(solve([eq1, eq2, eq3, eq4, eq5, eq6], [t1, t2, a1, a2, f1, x2]))
end proc

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

                                  "Chapter 5"

                                  "Problem 5"

memory used=3.7MB, alloc=40.3MB, time=0.12
[[t1 = 5.454545455, t2 = 2.727272728, a1 = 13.44444444, a2 = 13.44444444,

    f1 = 1252.587992, x2 = 50.00000001]]

> quit
memory used=4.1MB, alloc=40.3MB, time=0.13