[Closed] Lorenz Attractor

I wrote a simple script to create lorenz attractor in max with splines here is the code:

fn l p=([p.x+((-10)*(p.x – p.y))0.018,p.y+((-p.x)p.z+28p.x-p.y)0.018,p.z+(p.xp.y-p.z8/3)*0.018]);undo off(mp=[0.1,0.1,0.1];mb=SplineShape();addNewSpline mb;mb.steps=2;for i in 1 to 10000 do (mp=l mp;addKnot mb 1 #smooth #curve mp))

Here is an image of the result:

I’ll write an interface for it once I’ll have some spare time.