Множество Бенуа Мандельброта!

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

Главная