Can you open this attachment?
temp/wow7 slinky
load 'plot'
2
do=: 13 :'({.y)+(i.{:>:y)*(--/}:y)%{:y'
3
t=:do 0 10 1000
4
sin=:1&o.
5
cos=:2&o.
6
'pensize 2;aspect 1'plot t;(sin t);cos t NB. Slinky from two circles over
time
7
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
