Load and run the script which is attached and you will see the two polar plots that are not shown below.
load 'plot'
d=: 13 :'(0{x)-(-/x)*(i.>:y)%y' NB. domain intervals
T=:2p1 NB. Tau
FR=: %:(0,1)d 8
rose=: 13 :'(1 o.x*y) (*"1) 2 1 o./y'
e=:(_1 1) d 16 NB. grid domain
INDEXES=: <"1 |: e I.3 rose (0,T) d 50
mask=: 13 :'1 INDEXES } 0 $~ 2 # >: y'
shamrock=: 13 :'1j1&#"1 '' X''{~ mask y'
shamrock 16
X X X
X
X
X X
X X
X X X X
X X X
X X
X X
X
X
X X X
INDEXES=: <"1 |: e I.(3 rose (0,T) d 50)*/FR
mask=: 13 :'1 INDEXES } 0 $~ 2 # >: y'
shamrock=: 13 :'1j1&#"1 '' X''{~ mask y'
shamrock 16
X X X
X X X X
X X X X
X X X X
X X X
X X X X X X X
X X X X X X X X X X
X X X X X X X X X X
X X X X X X X
X X X
X X X X
X X X X
X X X X
X X X
plot ;/ 3 rose (0,T) d 385
plot ;/ (3 rose (0,T) d 385)*/0 1
How can I double the height of the graphs that use "plot" in the same way
the I expand the two polar curves above to make the size of units on the x
axis and y axis more closely proportional?
Linda
---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
