load 'plot'
do=: 13 :'({.y)+(i.{:>:y)*(--/}:y)%{:y'
t=:do 0 10 1000
sin=:1&o.
cos=:2&o.
'pensize 2;aspect 1'plot (sin t);cos t NB. TWO poolar circles
'pensize 2;aspect 1'plot t;(sin t);cos t NB. Slinky from two circles over
time
Cliff, I'm trying to create a Fibonacci spiral in 2-D. I wonder how it
might be extended to 3-D and appear like an actual seashell.
Somehow it might be based upon the slinky created above
Thanks for you article. Linda
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
