# define main function
main := proc()

    print("Maple output");
    print("Chapter 5");
    prob05();
#    prob05B(); # will not solve
end;

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;

# call main
main();