aUCBLogo Demos and Tests / sincosexptest

be sincosexptest
   f=1
   n=1000
   hideTurtle
   clearScreen
   for [f 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