Уникальная программка :)
для построения фракталов
По принципу Binary Tree

Екзешник
Исходник
Who Is Binary Tree?

Наслаждайтесь:

Dim x(1 To 999999)
Dim y(1 To 999999)

Private Sub Command1_Click()
Cls
x(1) = 10
x(2) = 10
y(1) = 11
y(2) = 10
i = 0
c = 1
pi = 3.14159265358
kof = Text1
alf = Text2 * pi / 180
alf2 = Text3 * pi / 180
n = 1 + Text4
kofx = Text5
kofy = Text6
m1 = Text7
m2 = Text8
m3 = Text9
m4 = Text10
m5 = Text11
m6 = Text12
m7 = Text13
m8 = Text14
Line ((x(1) + kofx) * kof, (y(1) + kofy) * kof)-((x(2) + kofx) * kof, (y(2) + kofy) * kof)

For i = 1 To n
s = 0
q = 2 ^ (i + 1)
For j = 1 To 2 ^ (i - 1)
w = q - s
e = q - (s + 1)
r = w / 2
r2 = Int(r / 2 + 0.5)
x(w) = m1 * (x(r2) - x(r)) * Cos(alf) + m2 * (y(r2) - y(r)) * Sin(alf) + x(r)
y(w) = m3 * (y(r2) - y(r)) * Cos(alf) - m4 * (x(r2) - x(r)) * Sin(alf) + y(r)
x(e) = m5 * (x(r2) - x(r)) * Cos(alf2) + m6 * (y(r2) - y(r)) * Sin(alf2) + x(r)
y(e) = m7 * (y(r2) - y(r)) * Cos(alf2) - m8 * (x(r2) - x(r)) * Sin(alf2) + y(r)
s = s + 2
Line ((x(w) + kofx) * kof, (y(w) + kofy) * kof)-((x(r) + kofx) * kof, (y(r) + kofy) * kof)
Line ((x(e) + kofx) * kof, (y(e) + kofy) * kof)-((x(r) + kofx) * kof, (y(r) + kofy) * kof)
Next
Next

End Sub

Если у кого-то не получилось склеить полноценный *.frm, то вы можете скачать его здесь

На Главную

А ЕСЛИ КТО ПОТЕРЯЛСЯ, ТО ВАМ СЮДА!