aUCBLogo Demos and Tests / sincosexptest


be sincosexptest
   
f=1
   
n=1000
   
hideTurtle
   
clearScreen
   
for [1e-10 1 0.01]
   
[   x=rSeqFA 0 180 n
      
y=(sin x)*f+(abs cos x)^(1000*(1-f))*20*(1-f)
      
setPenColor HSB f*360 1 1
      
PenUp setXY (x.1/180-0.5)*800 y.1*300 PenDown
      
setXY (x/180-0.5)*800 y*100-300
      
print (0+y)/180/pi
      
updateGraph
   
]
end