56 lines
680 B
Text
56 lines
680 B
Text
(
|
|
(
|
|
->body
|
|
->test
|
|
(
|
|
test!
|
|
(body! loop!)
|
|
()
|
|
ite
|
|
)->loop
|
|
loop!
|
|
)!
|
|
)->while
|
|
|
|
-1.5 ->xmin
|
|
0.47 ->xmax
|
|
|
|
-1.12 ->ymin
|
|
1.12 ->ymax
|
|
|
|
27 ->itermax
|
|
|
|
xmin ->x0
|
|
ymin ->y0
|
|
|
|
(y0 ymax <)
|
|
(
|
|
(x0 xmax <)
|
|
(
|
|
0 ->x
|
|
0 ->y
|
|
0 ->iter
|
|
|
|
(x x * y y * + 4 < iter itermax < *)
|
|
(
|
|
x x * y y * - x0 + ->xtemp
|
|
2 x y * * y0 + ->y
|
|
xtemp ->x
|
|
iter 1 + ->iter
|
|
)
|
|
while!
|
|
|
|
iter itermax =
|
|
(32 put)
|
|
(64 iter + put)
|
|
ite
|
|
|
|
x0 0.0055 + ->x0
|
|
)
|
|
while!
|
|
10 put
|
|
y0 0.021 + ->y0
|
|
xmin ->x0
|
|
)
|
|
while!
|