" <-APL2-------------------- sam292.txt ---------------------------->
Lex 'grapx'
Ga grapx b;c;d;h;k
"Graphs the real coefficient of tan
"Call format:
"  Trig. function: 3=tangent.
"  |       d = Imaginary coefficient.
"  |       | e = Number of points to generate.
"  |       | |
"  V       V V
"  1 grapx 1,100
(c d)#b
h#k,',',[1.5]4+9OaO(cX0j1)+(O-1)+k#(O2)X(-1+Id+1)%d
(`Z'\put('),h,`Z'){\circle*{.04}}'
G
3 grapx .15,400
" <----------------------------------------------------------------->
)off