" <-APL2-------------------- sam288.txt ---------------------------->
Lex 'graph'
Ga graph b;c;d;e;f;g;h;k;m;s;t;u;v;w
"Graphs the real coefficient of sin, cos
"Call format:
"  Trig. function: 1=sin, 2=cos.
"  |       c = Imaginary coefficient of argument.
"  |       | d = Number of points to generate.
"  |       | |   e = Adjustment of y axis.
"  |       | |   | f = Top of range of k.
"  |       | |   | |  m = 9 for graph of real coeff. 11 for imag.
"  |       | |   | |  |
"  V       V V   V V  V
"  1 graph 1,100,4,O2,9
(c d e f m)#b
h#(s#k+f%2),',',[1.5]e+g#mOaO(cX0j1)+k#(_f%2)+fX(-1+Id+1)%d
v#1Y(1.5<u)/u#(t=S/t#|g)/s " x coord where maximum occurs
w#(v=s)/g " y coord of maximum
'\put(',(Fv)','(Fw+e+(.075Xw>0)_.155Xw<0),'){n\#',(Fc),'}'
(`Z'\put('),h,`Z'){\circle*{.04}}'
G
1 graph  1,100,4,(O2),9
1 graph  2,100,4,(O2),9
2 graph  1,100,4,(O2),9
2 graph  2,100,4,(O2),9
1 graph  1,100,4,(O2),11
1 graph  2,100,4,(O2),11
1 graph -1,100,4,(O2),11
1 graph -2,100,4,(O2),11
2 graph  1,100,4,(O2),11
2 graph  2,100,4,(O2),11
2 graph -1,100,4,(O2),11
2 graph -2,100,4,(O2),11
" <----------------------------------------------------------------->
)off