очень долго парился с выходной точкой ... немог понять где она
оказалось x[-2,1] y[-1,1] (может даже меньше)
теперь надо нормально нарисовать - и зделать пару модификаций рендера
Graphics 800,600,16,2
SetBuffer BackBuffer()
LockBuffer BackBuffer()
For x_c# = -2 To 1 Step 0.02
For y_c# = -1 To 1 Step 0.02
x#=x_c
y#=y_c
x0#=x
y0#=y
x2# = x*x
y2# = y*y
iteration = 0
maxiteration = 1000
run = 1
While run=1
y# = 2*x*y + y0
x# = x2 - y2 + x0
x2 = x*x
y2 = y*y
iteration = iteration + 1
If (x2+y2)=>4 Then run = 0
If iteration>=maxiteration Then run =0
Wend
If iteration >= maxiteration Then
z#=0.01
WritePixelFast x/z+400,y/z+300,$FFFFFF
EndIf
Next
Next
UnlockBuffer BackBuffer()
Flip 0
DebugLog "draw _ ok"
WaitKey
End