rem http://en.wikipedia.org/wiki/Lorenz_attractor

clg

fastgraphics

graphsize 900,300

s=10

p=28

b=8/3

x=10

y=0

z=10

zoom=6

dt=0.002

for n = 1 to 100000

dx=s*(y-x)

dy=x*(p-z)-y

dz=x*y-b*z

x=x+dx*dt

y=y+dy*dt

z=z+dz*dt

plot 150+zoom*y,300-zoom*z

plot 400+zoom*x,300-zoom*z

plot 650+zoom*x,150-zoom*y

refresh

next n

## No comments:

## Post a Comment