13 lines
186 B
Forth
13 lines
186 B
Forth
S" fsl-util.fs" REQUIRED
|
|
S" complex.fs" REQUIRED
|
|
|
|
zvariable x
|
|
zvariable y
|
|
1e 1e x z!
|
|
pi 1.2e y z!
|
|
|
|
x z@ y z@ z+ z.
|
|
x z@ y z@ z* z.
|
|
1e 0e zconstant 1+0i
|
|
1+0i x z@ z/ z.
|
|
x z@ znegate z.
|