" <-APL2-------------------- sam324.txt ---------------------------->
Lct#1e-6
Lpp#4
" <-Inverse sine for complex numbers-------------------------------->
y#,(wX0j1)J.+w#(_`R1Uw),w#O2X(-1+Ipts+1)%pts#8
&/v#y=z#-1Ox#1Oy
(D/u),(S/u#v/9Oy) " Range of 9Oy where y=-1O1Oy
(D/u),(S/u#v/11Oy) " Range of 11Oy where y=-1O1Oy
z,y,[1.5]y=z
Lex 'asin'
Lfx 'z#asin x' 'z#_0j1X-5O0j1Xx'
&/(-1Ox) = asin x#1Oy
" <-Inverse cosine for complex numbers------------------------------>
y#,(wX0j1)J.+w#(_`R1Uw),w#O2X(-1+Ipts+1)%pts#8
&/v#y=z#-2Ox#2Oy
(D/u),(S/u#v/9Oy) " Range of 9Oy where y=-2O2Oy
(D/u),(S/u#v/11Oy) " Range of 11Oy where y=-2O2Oy
z,y,[1.5]y=z
Lex 'acos'
Lfx 'z#acos x' 'z#_0j1X@x_0j1X(1_x*2)*.5'
&/(-2Ox) = acos x#2Oy
" <-Inverse tangent for complex numbers----------------------------->
y#,(wX0j1)J.+w#(_`R1Uw),w#O2X(-1+Ipts+1)%pts#8
&/v#y=z#-3Ox#3Oy
(D/u),(S/u#v/9Oy) " Range of 9Oy where y=-3O3Oy
(D/u),(S/u#v/11Oy) " Range of 11Oy where y=-3O3Oy
&/y=w_O~y=w#z+OD(9Oy+O.5)%pi#O1
Lex 'atan'
Lfx 'z#atan x' 'z#(0j1X@(1_0j1Xx)%1+0j1Xx)%2'
&/(-3Ox) = atan x#3Oy
)off
" <-Inverse sinh for complex numbers-------------------------------->
y#,(wX0j1)J.+w#(_`R1Uw),w#O2X(-1+Ipts+1)%pts#8
&/v#y=z#-5Ox#5Oy
(D/u),(S/u#v/9Oy) " Range of 9Oy where y=-5O5Oy
(D/u),(S/u#v/11Oy) " Range of 11Oy where y=-5O5Oy
title#'x#5Oy' 'y' 'z#-5Ox' 'y=z' '((|9Oy)=|9Oz)' '((9Oy)=9Oz)' '((11Oy)=11Oz)'
title,[1]x,y,z,(y=z),((|9Oy)=|9Oz),((9Oy)=9Oz),[1.5]((11Oy)=11Oz)
Lex 'asinh'
Lfx 'z#asinh x' 'z#@x+(1+x*2)*.5'
&/(-5Ox) = asinh x#5Oy
" <-Inverse cosh for complex numbers-------------------------------->
&/v#y=z#-6Ox#6Oy#,(wX0j1)J.+w#(_`R1Uw),w#O2X(-1+Ipts+1)%pts#8
(D/u),(S/u#v/9Oy) " Range of 9Oy where y=-6O6Oy
(D/u),(S/u#v/11Oy) " Range of 11Oy where y=-6O6Oy
title#'x#6Oy' 'y' 'z#-6Ox' 'y=z' '((|9Oy)=|9Oz)' '((9Oy)=9Oz)' '((11Oy)=11Oz)'
title,[1]x,y,z,(y=z),((|9Oy)=|9Oz),((9Oy)=9Oz),[1.5]((11Oy)=11Oz)
Lex 'acosh'
Lfx 'z#acosh x' 'z#@x+(-1+x*2)*.5'
&/(-6Ox) = acosh x#6Oy
" <-Inverse tanh for complex numbers-------------------------------->
&/v#y=z#-7Ox#7Oy#,(wX0j1)J.+w#(_`R1Uw),w#O2X(-1+Ipts+1)%pts#8
(D/u),(S/u#v/9Oy) " Range of 9Oy where y=-7O7Oy
(D/u),(S/u#v/11Oy) " Range of 11Oy where y=-7O7Oy
title#'x#7Oy' 'y' 'z#-7Ox' 'y=z' '((|9Oy)=|9Oz)' '((9Oy)=9Oz)' '((11Oy)=11Oz)'
title,[1]x,y,z,(y=z),((|9Oy)=|9Oz),((9Oy)=9Oz),[1.5]((11Oy)=11Oz)
Lex 'atanh'
Lfx 'z#atanh x' 'z#.5X@(1+x)%1_x'
&/(-7Ox) = atanh x#7Oy
)off