mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-18 20:50:49 +01:00
13 lines
493 B
Forth
Executable File
13 lines
493 B
Forth
Executable File
real*8 t1,f1,dq,x,r1,pi4,r2,y,w1
|
|
real*8 r3,f2,q1,q2,q3,a1,a2,z,r4,e
|
|
real*8 r14,r24,r34,r44,w24,w34,w44
|
|
real*8 dx,dx2,dx3,dx4,dx5,dx6
|
|
parameter(pi4=7.85398163397448d-01)
|
|
parameter(w24=2.34479815323517d-01)
|
|
parameter(w34=1.92704402415764d-02)
|
|
parameter(w44=2.25229076750736d-04)
|
|
parameter(r14=1.45303521503316d-01)
|
|
parameter(r24=1.33909728812636d+00)
|
|
parameter(r34=3.92696350135829d+00)
|
|
parameter(r44=8.58863568901199d+00)
|