Bercon
11-23-2007, 07:25 PM
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+28*p.x-p.y)*0.018,p.z+(p.x*p.y-p.z*8/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: http://www.niksula.cs.hut.fi/~jylilamm/graphics/LorenzAttractor.jpg
I'll write an interface for it once I'll have some spare time.
fn l p=([p.x+((-10)*(p.x - p.y))*0.018,p.y+((-p.x)*p.z+28*p.x-p.y)*0.018,p.z+(p.x*p.y-p.z*8/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: http://www.niksula.cs.hut.fi/~jylilamm/graphics/LorenzAttractor.jpg
I'll write an interface for it once I'll have some spare time.