Thu Apr 26 10:47:57 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("pb02.max")

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

read and interpret file: #p/home/dennis/physics/mine/maxima/init_glob.max
(%i3) init_glob():=(c_v:2.99792458E+8,h_v:6.62606876E-34,me_v:9.10938188E-31,
                print("c_v = ",c_v),print("h_v = ",h_v),print("me_v = ",me_v))
(%o3) init_glob() := (c_v : 2.99792458E+8, h_v : 6.62606876E-34, 
me_v : 9.10938188E-31, print("c_v = ", c_v), print("h_v = ", h_v), 
print("me_v = ", me_v))
(%o3)                            init_glob.max
(%i4) num_part():=solve(
               [me_v = MA/kg,h_v = MA*LA^2*sec/TA/(kg*meters^2),
                c_v = LA*sec/TA/meters],[LA,MA,TA])
                                                  2
                                            (MA LA ) sec        LA sec
                                            ------------        ------
                                  MA             TA               TA
(%o4) num_part() := solve([me_v = --, h_v = ------------, c_v = ------], 
                                  kg                  2         meters
                                             kg meters
                                                                  [LA, MA, TA])
(%i5) main():=(init_glob(),num_part())
(%o5)                 main() := (init_glob(), num_part())
(%i6) main()
c_v =  2.99792458E+8 
h_v =  6.62606876E-34 
me_v =  9.10938188E-31 

rat: replaced 9.10938188E-31 by 1/1097769325266227557476218175488 = 9.10938188E-31

rat: replaced 6.62606876E-34 by 1/1509190496236263255996674189819904 = 6.626068759999999E-34

rat: replaced 2.99792458E+8 by 299792458/1 = 2.99792458E+8
                                   kg
(%o6) [[LA = 0, MA = -------------------------------, TA = 0], 
                     1097769325266227557476218175488
        3900060098040923 meters                        kg
[LA = ----------------------------, MA = -------------------------------, 
      1607403733519096214800207872       1097769325266227557476218175488
             3900060098040923 sec
TA = ------------------------------------]]
     481887516270066844173450296857829376
(%o6)                              pb02.max