25 lines
257 B
Text
25 lines
257 B
Text
PROGRAM:MANDELBR
|
|
:Input "ITER. ",D
|
|
:For(A,Xmin,Xmax,ΔX)
|
|
:For(B,Ymin,Ymax,ΔY)
|
|
:0→X
|
|
:0→Y
|
|
:0→I
|
|
:D→M
|
|
:While X^2+Y^2≤4 and I<M
|
|
:X^2-Y^2+A→R
|
|
:2XY+B→Y
|
|
:R→X
|
|
:I+1→I
|
|
:End
|
|
:If I≠M
|
|
:Then
|
|
:I→C
|
|
:Else
|
|
:0→C
|
|
:End
|
|
:If C<1
|
|
:Pt-On(A,B)
|
|
:End
|
|
:End
|
|
:End
|