" <-APL2-------------------- sam291.txt ---------------------------->
Lex 'grapher'
Ga grapher b;h;k
"Graph trig functions for real numbers.
"Call format:
"  a = Trig. function: 1=sin, 2=cos.
"  |        b = Number of points to generate.
"  |        |
"  |        |
"  V        V
"  1 grapher 100
h#k,',',[1.5]1.5+aO(O-1)+k#(O2)X(-1+Ib+1)%b
(`Z'\put('),h,`Z'){\circle*{.04}}'
G
1 grapher 100
2 grapher 100
" <----------------------------------------------------------------->
Lex 'tangraph'
Ga tangraph b;c;d;e;f;g;h;k
"Graph tangent function for real numbers.
"Call format:
"a = y axis adjustment for displayed graph.
"|          b = Number of points to generate.
"|          |
"V          V
"a tangraph 100
c#((aX2)>f)&0<f#a+3O(O-1)+k#(O2)X(-1+Ib+1)%b
h#(c/k),',',[1.5]c/f
(`Z'\put('),h,`Z'){\circle*{.04}}'
G
4 tangraph 100
" <----------------------------------------------------------------->
Lex 'hyperbolic'
Ga hyperbolic b;c;d;e;f;h;k
"Graph hyperbolic sinh, cosh functions for real numbers.
"Call format:
"  a = Trig. function: 5=sinh, 6=cosh.
"  |            c = Number of points to generate.
"  |            |   d = Midpoint of graph.
"  |            |   |
"  V            V   V
"  5 hyperbolic 100,5
(c d)#b
f#(e<dX2)&0<e#d+aO(O-1)+k#(O2)X(-1+Ic+1)%c
h#(f/k),',',[1.5]f/e
(`Z'\put('),h,`Z'){\circle*{.04}}'
G
5 hyperbolic 100 5
6 hyperbolic 100 5
)off