# approximation of the lorenz map
z'=f(z)
f(z)=a+b*exp(-abs(z-c)/d)
par a=27,b=18,c=37.3,d=5
init z=38
@ total=500,meth=discrete
@ lt=0,xp=z,yp=z,xlo=30,ylo=30,xhi=45,yhi=45
done