Lorenz Attractor2

[peter]

Hello,


Uses "ui"
#INCLUDE "abc.inc"

OpenWindow 800, 800
SetHandleDC hdc, hwnd
Canvas_Clear 0
DrawString 10,10,"WAIT.....",&hffffff
Canvas_Redraw

Long n,scale,ofs
scale=250:ofs=300
Single theta,p,x,y,y1,x1
p=7.7

For n=1 To 250000
theta=0.4-(p/(1+(x^2+y^2)))
x1=0.85+0.9*x*Cos(theta)-0.9*y*Sin(theta)
y1=0.9*x*Sin(theta)+0.9*y*Cos(theta)
Canvas_SetPixel(y1*scale+ofs*1.4,x1*scale+ofs,&hffffff)
x=x1:y=y1
Next
DrawRect 10,10,100,22,0,0
Canvas_Redraw

While IsWindow(hwnd) And Key(27)=0
Sleep 10
Wend