Hi,
Uses "ui"
#INCLUDE "abc.inc"

OpenWindow 800,800
SetHandleDC hdc, hwnd

Dim h,x,y,z,f,xnew,ynew,znew As Single
Dim i As Long
h=0.0025 : x=0.06 : y=0.06 : z=0.06 : f=8/3

Canvas_Clear 0
DrawString 0,0,"LORENZ  ATTRACTOR",%abc_white
Canvas_Redraw
 
For i=1 To 100000
    xnew = x+10*h*(y-x)
    ynew = y+h*(28*x-y-x*z)
    znew = z+h*(x*y-z*f)
    x=xnew
    y=ynew 
    z=znew
    Canvas_SetPixel(-x*12+400,y*12+400,%abc_white)
Next
Canvas_Redraw

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