a káosz ábrázolása képen, matematikai képletek segítségével
-
#17
Ennél egyszerűbbet nem is tudnék rajzoltatni BASIC-ben:
Lehet tippelni, hol vannak itt az atraktorok :P
![]()
A hozzá tartozó program:
Private Sub Form_DblClick()
ScaleMode = 3
FillStyle = 0
w = ScaleWidth
h = ScaleHeight
Cls
ri = 2.8: ra = 4: dr = (ra - ri) / w
y = 0.3
omax = 800
For x = 0 To w - 1
r = x * dr + ri
For o = 1 To 100
y = r * y * (1 - y)
Next o
For o = 1 To omax
y = r * y * (1 - y)
py = y * h
PSet (x, py)
Next o
Next x
End Sub
