30 lines
712 B
Plaintext
30 lines
712 B
Plaintext
GraphicsWindow.Show()
|
|
size = 500
|
|
half = 250
|
|
GraphicsWindow.Width = size * 1.5
|
|
GraphicsWindow.Height = size
|
|
GraphicsWindow.Title = "Mandelbrot"
|
|
For px = 1 To size * 1.5
|
|
x_0 = px/half - 2
|
|
For py = 1 To size
|
|
y_0 = py/half - 1
|
|
x = x_0
|
|
y = y_0
|
|
i = 0
|
|
While(c <= 2 AND i<100)
|
|
x_1 = Math.Power(x, 2) - Math.Power(y, 2) + x_0
|
|
y_1 = 2 * x * y + y_0
|
|
c = Math.Power(Math.Power(x_1, 2) + Math.Power(y_1, 2), 0.5)
|
|
x = x_1
|
|
y = y_1
|
|
i = i + 1
|
|
EndWhile
|
|
If i < 99 Then
|
|
GraphicsWindow.SetPixel(px, py, GraphicsWindow.GetColorFromRGB((255/25)*i, (255/25)*i, (255/5)*i))
|
|
Else
|
|
GraphicsWindow.SetPixel(px, py, "black")
|
|
EndIf
|
|
c=0
|
|
EndFor
|
|
EndFor
|