Dennis J. Darland
Practice in Programming
ASUS Development Computer - Ubuntu 14.04
Starting  Mon May 21 20:51:00 CDT 2018
Finished  Mon May 21 20:51:03 CDT 2018

Maxima 5.32.1 http://maxima.sourceforge.net
using Lisp GNU Common Lisp (GCL) GCL 2.6.10 (a.k.a. GCL)
Distributed under the GNU Public License. See the file COPYING.
Dedicated to the memory of William Schelter.
The function bug_report() provides bug reporting information.
(%i1) batch("pb01.max")

read and interpret file: #p/home/dennis/physics/halliday.resnick/maxima/pb01.max
(%i2) batch("init_glob.max")

read and interpret file: #p/home/dennis/physics/halliday.resnick/maxima/init_glob.max
(%i3) init_glob():=(feet_per_meter:3.28,meter_per_foot:1.0/feet_per_meter,
                print("feet_per_meter = ",feet_per_meter),
                print("meter_per_foot = ",meter_per_foot))
                                                                   1.0
(%o3) init_glob() := (feet_per_meter : 3.28, meter_per_foot : --------------, 
                                                              feet_per_meter
print("feet_per_meter = ", feet_per_meter), 
print("meter_per_foot = ", meter_per_foot))
(%o3)                            init_glob.max
(%i4) mode_declare(cvt_feet_to_meters([feet],float),float)
(%o4)                 [cvt_feet_to_meters([feet], float)]
(%i5) cvt_feet_to_meters(feet):=(
                         block(mode_declare[feet_per_meter,meter_per_foot,
                                            meters],float),init_glob(),
                         print("feet_per_meter : ",feet_per_meter),
                         print("meter_per_foot : ",meter_per_foot),
                         meters:float(feet*meter_per_foot))
(%o5) cvt_feet_to_meters(feet) := 
(block(mode_declare                                      , float), 
                   feet_per_meter, meter_per_foot, meters
init_glob(), print("feet_per_meter : ", feet_per_meter), 
print("meter_per_foot : ", meter_per_foot), 
meters : float(feet meter_per_foot))
(%i6) main():=(block(mode_declare[my_height_feet,my_height_meters],float),
           infile:openr("pb1.1.in"),
           my_height_feet:eval_string(float(readline(infile))),
           my_height_meters:cvt_feet_to_meters(my_height_feet),
           print("Maxima output"),print("my_height_feet : ",my_height_feet),
           print("my_height_meters : ",my_height_meters),close(infile))
(%o6) main() := (block(mode_declare                                , float), 
                                   my_height_feet, my_height_meters
infile : openr("pb1.1.in"), my_height_feet : 
eval_string(float(readline(infile))), my_height_meters : 
cvt_feet_to_meters(my_height_feet), print("Maxima output"), 
print("my_height_feet : ", my_height_feet), 
print("my_height_meters : ", my_height_meters), close(infile))
(%i7) main()
feet_per_meter =  3.28 
meter_per_foot =  0.30487804878048 
feet_per_meter :  3.28 
meter_per_foot :  0.30487804878048 
Maxima output 
my_height_feet :  6.0 
my_height_meters :  1.829268292682926 
(%o7)                                true
(%o7)                              pb01.max