Here's another graph paper that I think came from Cliff Reiter:
load plot
do=: 13 :'({.y) +(i.{:y)*(--/ 2{.y)%<:{:y'
]A=:do 0 10 5
]V=:j./~ A
]H=:|:|.V
'pensize 7;color 0 255 255'plot H,V
Linda
Sent from AOL Mobile Mail
On Tuesday, October 10, 2017 Linda Alvord <[email protected]> wrote:
Try this in JHS on a laptop and a phone. load 'plot' f=: 13
:'((<.-:y),2)$(?y#11)j.?y#11' 'pensize 10' plot f 12 g=: 13
:'(y,2)$2#(i.y)j.i.y' 'point;pensize 10' plot g 12 h=: 13
:'((y#0)j.i.y),.(y#<:y)j.i.y' 'pensize 10' plot h 6 v=: 13
:'((i.y)j.y#0),.(i.y)j.y#<:y' 'pensize 10' plot v 6 'pensize 10' plot (h 6),v 6
Simplifications welcome. Linda Sent from AOL Mobile Mail
---------------------------------------------------------------------- For
information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
