" <-APL2-------------------- sam284.txt ---------------------------->
" <----------------------------------------------------------------->
L#a#'abcd'[2 2R`OI4]
Ra
" <----------------------------------------------------------------->
*0j1
*O0j1
i#0j1
z#3j4
L#w#-1 O z " asin z
_iX@(iXz)+(1_z*2)*.5 " s/b same as -1 O z
1 O -1 O z " s/b z
((*iXw)_1%*iXw)%2Xi
" <----------------------------------------------------------------->
C `1 'r # 3' 'r'
i#0j1
z#3j4
-1 O z " asin z
_iX@(iXz)+(1_z*2)*.5 " s/b same as -1 O z
1 O -1 O z " s/b z
-2 O z " acos z
_iX@z+iX(1_z*2)*.5 " s/b same as -2 O z
2 O -2 O z " s/b z
" <----------------------------------------------------------------->
Gs#k demo r;a;b;c;d;e;f;g;h;x;y;z
r#((R,r),1)Rr " Force r to be n-by-1 matrix.
e#h,f,d#g,f,c#(h#F_k),f,b#(g#Fk),(f#'O'),-1Ya#' r'
y#F`1C`1x#a b c d e
z#((-1Y`1R`1x)S-1Y`1R`1y)R`1'-'
s#' ',[1]x,[1]z,[.5]y
G
Lpp#4
j#C `1 (F`1 1 2 3 5 6 7) , `1 `Z ' demo .5 3j4'
`X 6 1Rj
Lex 'demo'
" <----------------------------------------------------------------->
Lfx 'z # funa r' 'x # 1' 'z # r'
Lfx 'z # funb r;x' 'z#C`1x#(''funa r'') (''r'')'
funb 23
Lfx 'z # sin x'  'z # 1 O x'
Lfx 'z # cos x'  'z # 2 O x'
Lfx 'z # sinh x' 'z # 5 O x'
Lfx 'z # cosh x' 'z # 6 O x'
Lfx 'z # tanh x' 'z # 7 O x'
Gz # cosa r;i
" x and y should be localized.  This caused a re-boot until code was fixed.
i # 0j1 " square root of -1
x # 9 O r " real part of r
y # 11 O r " imaginary part of r
z # ((cos x)Xcosh y)_iX(sin x)Xsinh y
G
Gz # cosb r;i;s
i # 0j1 " square root of -1
z # (s+1%s#*iXr)%2
G
Gz # cosc r;i;s
i # 0j1 " square root of -1
z # cosh i X r
G
Gs # name demo r;x;y;z
y # F `1 C `1 x # ('r') (name,'a r') (name,'b r') (name,'c r') (name,' r')
z # ((-1Y`1R`1x)S-1Y`1R`1y)R`1'-'
s#' ',[1]x,[1]z,[.5]y
G
Lpp#3
'cos' demo 3j4
)off