mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-17 20:20:49 +01:00
10 lines
386 B
Forth
Executable File
10 lines
386 B
Forth
Executable File
real*8 tq,t1,f1,dq,x,r1,pi4,r2,y,w1
|
|
real*8 r3,r13,r23,w23,w33,r33,f2,q1,q2,q3,a1,a2,z
|
|
real*8 dx,dx2,dx3,dx4,dx5,dx6
|
|
parameter(pi4=7.85398163397448d-01)
|
|
parameter(r13=1.90163509193487d-01)
|
|
parameter(r23=1.78449274854325d+00)
|
|
parameter(r33=5.52534374226326d+00)
|
|
parameter(w23=1.77231492083829d-01)
|
|
parameter(w33=5.11156880411248d-03)
|