Try this in JHS
oad 'plot' f=: 13 :'(y,2)$(?(4*y)#11)j.?(4*y)#11' 'pensize 7' plot f 7 g=: 13 :'(y,2)$2#(i.y)j.i.y' 'point;pensize 7' plot g 5 h=: 13 :'((y#0)j.i.y),.(y#<:y)j.i.y' 'pensize 7' plot h 5 v=: 13 :'((i.y)j.y#0),.(i.y)j.y#<:y' 'pensize 7' plot v 5 'aspect 1;pensize 7;color 0 255 255' plot (h 5),v 5 (h 5),v 5 Simplifications welcome. Sent from AOL Mobile Mail ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
