" <-APL2-------------------- sam311.txt ---------------------------->
Lex 'sinh'
Lfx 'z#sinh x;t' 'z#.5Xt_1%t#*x'
&/(5Ox) = sinh x#-5+I10
(5Ox),[1.5]sinh x
Lex 'cosh'
Lfx 'z#cosh x;t' 'z#.5Xt+1%t#*x'
&/(6Ox) = cosh x#-5+I10
(6Ox),[1.5]cosh x
Lex 'tanha'
Lfx 'z#tanha x;s;t' 'z#(t_s)%t+s#1%t#*x'
&/(7Ox) = tanha x#-5+I10
Lex 'tanhb'
Lfx 'z#tanhb x' 'z#(5Ox)%6Ox'
&/(7Ox) = tanhb x
(7Ox),[1.5]tanhb x
)off