Множество Бенуа Мандельброта!
mbm.exe - программка написанная на Visual Basic, строит множество Бенуа Мандельброта, можно увеличивать отдельный фрагмент, менять цвет...
Строиться по формуле:
Z = Z^2+a
ar - x координата
ai - y
координата
Z - циклически наращиваемая переменная.
Z - комплексное число, поэтому возведение в квадрат будет выглядеть следующим образом:
Как известно, в комплексных числах i^2 = -1
Z^2 = (Zr+Zi*i)^2 = Zr^2+2*Zr*Zi*i+Zi^2*i^2 = Zr^2-Zi^2+2*Zr*Zi*i = (Zr^2-Zi^2)+(2*Zr*Zi)*i
Причем i в программе не пишется, а только
подразумевается что это мнимая часть формулы.
исходник на Visual Basic:
Private Sub Command1_Click()
q = Text1
w = Text2
e = Text3
ib = ((q * 4) / 400) - 3
jb = ((w * 4) / 400) - 3
dl = 400 / e
For X = 1 To 500
For Y = 1 To 500
zi = 0
zr = 0
xx = ib + X * (dl /
400)
yy = jb + Y * (dl /
400)
For n = 0 To e
zzi = 2 * zr * zi - yy
zzr = zr * zr - zi * zi + xx
If (Abs(zzi) >= 2) Or (Abs(zzr) >= 2) Or ((zzi
* zzi + zzr * zzr) >= 4) Then GoTo 1
zr = zzr
zi = zzi
Next
1:
r = 16777216 - 5000 * n
PSet (X * 15, Y *
10), r
Next
Next
End Sub