Tässäpä arkistoista löytämäni vanha koodinpätkä. Arvaatteko kokeilematta mitä se tekee?
(formissa siis picture1(about neliömäinen) ja command1)
(sorry kun muuttujat ovat esittelemättä, mutta toimii tässä kuitenkin)
Private Sub Command1_Click()
koko = Picture1.Height
e1 = 0.5 * koko
e2 = 0.57 * koko
e3 = 0.408 * koko
e4 = 0.1075 * koko
f1 = 0 * koko
f2 = -0.036 * koko
f3 = 0.0893 * koko
f4 = 0.27 * koko
x = e1
For i = 1 To 100000
r = Rnd
If r <= 0.02 Then
xn = 0 * x + 0 * y + e1
yn = 0 * x + 0.27 * y + f1
ElseIf r <= 0.17 Then
xn = -0.139 * x + 0.263 * y + e2
yn = 0.246 * x + 0.224 * y + f2
ElseIf r <= 0.3 Then
xn = 0.17 * x - 0.215 * y + e3
yn = 0.222 * x + 0.176 * y + f3
Else
xn = 0.781 * x + 0.034 * y + e4
yn = -0.032 * x + 0.739 * y + f4
End If
Picture1.PSet (xn, koko - yn)
x = xn
y = yn
Next
End SubLyö googleen hakusanaksi "0.5 0.57 0.408 0.1075", jotka ovat selvästi koodin kriittisiä vakioita, niin paljastuu että kyseessä on tunnettu saniaisfraktaali. :P
Aihe on jo aika vanha, joten et voi enää vastata siihen.