WORD used by WORDS...
TAB->VEC
get_f# TAB->VEC
)rkf45_sys
not_done? )rkf45_sys
display )rkf45_sys
initialize )rkf45_sys
step )rkf45_sys
update
expand step
shrink step
step_too_big? step
MoreThan
DeltaX
do_k5 step
do_k4 step
do_k3 step
do_k2 step
do_k1 step
do_k0 step
display
Lcomb
Vadd
Smul
compatible Lcomb Vadd Smul
eps:
debugging debug\
fdummy initialize
f
k5
k4 do_k5
k3 do_k5 do_k4
k2 do_k5 do_k4 do_k3
k1 do_k5 do_k4 do_k3
k0 do_k5 do_k4 do_k3
y do_k5 do_k4 do_k3
x display do_k5 do_k4 do_k3
Neq
fvariables:
LOOP TAB->VEC display update DeltaX do_k5 do_k4 do_k3 display Lcomb Vadd Smul
d5
d4
d3
d2
d0
b5
b4
b3
b2
b0
a54
a53
a52
a51
a50
c5
a43
a42
a41
a40
a32
a31
a30
c3
a21 do_k2
a20 do_k2
c2
a10 do_k1
c1
hh
gg
ff
ee
dd
cc
bb Lcomb
aa Lcomb
&a aa
&b bb
&c cc
&d dd
&e ee
&f ff
&g gg
&h hh
|FRAME Lcomb
FRAME| Lcomb
(frame) |FRAME FRAME|
/flocals |FRAME FRAME|
}}
2array
wide
} TAB->VEC display update DeltaX do_k5 do_k4 do_k3 Lcomb Vadd Smul }}
_len display update DeltaX do_k5 do_k4 do_k3 display Lcomb Vadd Smul compatible }
1array
long
cell- }}
[undefined]
zz$"
zz"
(zz") zz$" zz"
z->$ (zz")
f$"
f" )rkf45_sys display initialize step update expand shrink step_too_big? DeltaX do_k5 do_k4 do_k3 do_k2 do_k1 do_k0 display Lcomb Vadd Smul
(f") f$" f"
f->$ z->$ (f")
$ftemp f->$
>out (zz") (f")
cmplx_op (zz")
real_op (f")
<factor>
try_func <factor>
list! try_func
Fname try_func
CAPS-FIND Fname
ucase CAPS-FIND
lcase? ucase
func_lib try_func
try_f1^f2 <factor>
int<5? try_f1^f2
<do_z^> (zz")
<do_f^> (f")
try_(expr) <factor>
enclosed? try_func try_(expr)
<try_z#> (zz")
<try_fp#> (f")
try_id <factor>
neg$ (zz") (f") try_func try_f1^f2 try_id
$zneg (zz")
$fneg (f")
leading-?
<do_id> try_id
<do_z@> (zz")
<do_F@> (f")
<term>
<expr>
assign (zz") (f")
op_find list! try_f1^f2 <term> <expr> assign
[op] op_find
pass_thru op_find
skip_fp# pass_thru
skip- try_func try_f1^f2 try_id pass_thru skip_fp#
skip+ skip_fp#
skip_dp skip_fp#
skip_digits skip_fp#
skip_() pass_thru
skip_{} pass_thru
[skip] skip_() skip_{}
skip_name try_func pass_thru
[token] cmplx_op real_op try_id leading-? [op] pass_thru skip_fp# skip_name
'dfa
get_formula (zz") (f")
count_parens get_formula
()level get_formula count_parens
[put_char] get_formula
put_char get_formula
err4
err3
err2
err1
err0
copy&dec
copy&inc
copy copy&dec copy&inc
>0,4
{}level get_formula copy&dec copy&inc >0,4
append_char copy
+c! Fname append_char
get-char get_formula
in_pad assign get_formula copy
out_pad (zz") (f") >out assign
do_fn (zz") z->$ (f") f->$ cmplx_op real_op try_func try_f1^f2 try_id
do_^ (zz") (f") try_f1^f2
do_@ (zz") (f") <do_id>
.fp# (zz") (f") <try_z#> <try_fp#>
try_fp# (zz") (f") <factor>
do_id (zz") (f") <do_z^> <do_f^> <do_id>
.op (zz") (f") try_func list! <try_z#> <try_fp#> try_id
factor try_f1^f2 try_(expr) <term>
term <expr>
expr list! try_(expr) assign
0null z->$ try_f1^f2 try_(expr) <do_id> <term>
bl$
$push try_func list! try_f1^f2 try_(expr) <term> <expr> assign
$ubound $push
$pop <factor> try_func list! <term> <expr>
($pop) $pop
$lbound ($pop)
$ptr $push $pop
$init assign
$max $ubound
$stack $push $pop $ptr $init
max_depth
concat >out
ends->count z->$ try_func int<5? <try_z#> <try_fp#> <do_id>
$ends try_func assign
ftran
?inc skip- skip+ skip_dp
f^4
f^3
f^2 f^4
install
char_table:
>5
>2
>7
>4
>1
>6
>3
>0
state:
>state get_formula
;fsm
fsm:
wide
||
defines initialize (zz") (f") >state
v:
'noop v:
use(
cmplx
zvariable
zatanh
zacosh
zasinh
zatan zatanh
zacos zacosh
zasin zasinh
alpha.beta zacos zasin
compile! alpha.beta
ztan
zsin
zcos
zcoth
ztanh ztan zcoth
zsinh zsin
zcosh zcos
zsqrt
z^
z^n
z^4
z^3
z^2 ztanh z^n z^4 z^3
zexp ztanh zsinh zcosh z^ z^n
zln z^
(-i)* zatanh zasinh ztan zsin
i* zatanh zacosh zasinh ztan zsin zcos ztanh
polar>
>polar zln
arg >polar
z2*
z2/ zsinh zcosh
z/ ztanh
1/z zcoth zsinh zcosh z/
|z| >polar 1/z
|z|^2 zatan zsqrt
z- zsinh
znegate z-
z+ zcosh z-
z* z^ z^n z^3 z^2 z/
z/f
z*f z^n zexp polar> 1/z z/f
ztuck z^n
znip
conjg
imag
real
zover ztuck
zswap ztanh z^ z^n ztuck znip
noname alpha.beta 1/z z* zover zswap
zdup zatan alpha.beta ztanh zsinh zcosh zsqrt z^3 z^2 >polar 1/z |z| z*
zdrop z^n znip
z=i
z=1 z^n z=i
z=0
z.
f1.0 zatan zacos zasin alpha.beta ztanh z=1
f0.0 z=1 z=0
fpi arg
f^2 zatan zacos zasin |z| |z|^2
1/f 1/z z/f
ftuck zsqrt
fnip cmplx imag
f-rot zatan alpha.beta >polar |z| z+ z*f zover zswap
s>f z^n
z!
z@ zover
-complex
ON
OFF assign get_formula
?exit <factor> [skip]
[undefined]
-ftran
-runge