a káosz ábrázolása képen, matematikai képletek segítségével
-
#21 És a Lorenz attraktor sem maradhat ki:
A forráskód, szintén vizilóBASIC-ban:
Private Sub Form_DblClick()
ScaleMode = 3
FillStyle = 0
w = ScaleWidth
h = ScaleHeight
Cls
n = 200000
x = 0: y = 1: z = 0
s = 10: r = 28: b = 8 / 3
dt = 0.004
Dim elso As Boolean
elso = True
For i = 1 To n
dxdt = s * (y - x)
dydt = x * (r - z) - y
dzdt = x * y - b * z
x = x + dxdt * dt
y = y + dydt * dt
z = z + dzdt * dt
'-----------------
'RR = ide
'GG = jöhet
'BB = a szinező
'-----------------
px = (x + 20) * 30 'csak h ráférjen a képre
py = (y + 30) * 15 'szintén
pz = z * 18 'ez is
If elso Then
elso = False
PSet (px, pz)
Else
Line -(px, pz), RGB(RR, GG, BB)
End If
Next i
End Sub