" <-APL2-------------------- sam290.txt ---------------------------->
Lex 'graph'
Ga graph b;c;d;h;k
"Call format:
"  Trig. function: 1=sin, 2=cos, 3=tangent, 5=sinh, 6=cosh, 7=tanh.
"  |       d = Imaginary coefficient.
"  |       | e = Number of points to generate.
"  |       | |
"  V       V V
"  1 graph 1,100
(c d)#b
k#(O2)X(-1+Id+1)%d
h#k,',',[1.5]4+9OaO(cX0j1)+(O-1)+k
(`Z'\put('),h,`Z'){\circle*{.04}}'
G
5 graph 1,100
5 graph 2,100
6 graph 1,100
6 graph 2,100
7 graph .15,400
" <----------------------------------------------------------------->
)off