.RVB Attractor Series 01: Rossler Attractor – Rhino Scripting

.RVB Attractor Series 01: Rossler Attractor

Rossler attractor behaves similarly to Lorenz attractor. It’s formed by 3 non-linear ordinary differential equations. ( http://en.wikipedia.org/wiki/Rossler_map )

 

Call Rossler()

Sub Rossler()

Dim x, y, z

Dim maxpoints

maxpoints = 8000

Dim h

h = 0.025

Dim p(2)

Dim ptnew()

Dim i

Do While (i<maxpoints)

p(0) = p(0) + h* dx(p(0), p(1), p(2))

p(1) = p(1) + h* dy(p(0), p(1), p(2))

p(2) = p(2) + h* dz(p(0), p(1), p(2))

Rhino.AddPoint(p)

ReDim Preserve ptnew(i)

ptnew(i) = p

i=i+1

Loop

Call Rhino.AddCurve(ptnew, 3)

End Sub

Function dx(ByVal x, ByVal y, ByVal z)

dx = -y-z

End Function

Function dy(ByVal x, ByVal y, ByVal z)

dy = x + 0.4*y

End Function

Function dz(ByVal x, ByVal y, ByVal z)

dz = 0.31 + z*(x-5.3)

End Function

source: Elif Erdine