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
-----Original Message-----
From: Programming [mailto:[email protected]] On Behalf
Of Linda Alvord
Sent: Tuesday, October 10, 2017 11:12 AM
To: [email protected]
Subject: [Jprogramming] Pick up sticks
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
