apl>" <-APL2-------------------- sam284.txt ---------------------------->
apl>" <----------------------------------------------------------------->
apl>L#a#'abcd'[2 2R`OI4]
dc
ba
apl>Ra
2 2
apl>" <----------------------------------------------------------------->
apl>*0j1
.540302j.841471
apl>*O0j1
-1
apl>i#0j1
apl>z#3j4
apl>L#w#-1 O z " asin z
.633984j2.305509
apl>_iX@(iXz)+(1_z*2)*.5 " s/b same as -1 O z
.633984j2.305509
apl>1 O -1 O z " s/b z
3j4
apl>((*iXw)_1%*iXw)%2Xi
3j4
apl>" <----------------------------------------------------------------->
apl>C `1 'r # 3' 'r'
3 3
apl>i#0j1
apl>z#3j4
apl>-1 O z " asin z
.633984j2.305509
apl>_iX@(iXz)+(1_z*2)*.5 " s/b same as -1 O z
.633984j2.305509
apl>1 O -1 O z " s/b z
3j4
apl>-2 O z " acos z
-0.936812j2.305509
apl>_iX@z+iX(1_z*2)*.5 " s/b same as -2 O z
.936812j-2.305509
apl>2 O -2 O z " s/b z
3j4
apl>" <----------------------------------------------------------------->
apl>Gs#k demo r;a;b;c;d;e;f;g;h;x;y;z
[1] r#((R,r),1)Rr " Force r to be n-by-1 matrix.
[2] e#h,f,d#g,f,c#(h#F_k),f,b#(g#Fk),(f#'O'),-1Ya#' r'
[3] y#F`1C`1x#a b c d e
[4] z#((-1Y`1R`1x)S-1Y`1R`1y)R`1'-'
[5] s#' ',[1]x,[1]z,[.5]y
[6] G
apl>Lpp#4
apl>j#C `1 (F`1 1 2 3 5 6 7) , `1 `Z ' demo .5 3j4'
apl>`X 6 1Rj
r 1Or -1O1Or 1O-1O1Or -1O1O-1O1Or
----- --------- --------- --------- -----------
.5 .479 .5000 .479 .5000
3.0j4 3.854j-27 .1416j-4 3.854j-27 .1416j-4
r 2Or -2O2Or 2O-2O2Or -2O2O-2O2Or
----- ------------ ------- ------------ -----------
.5 0.88 0.5 0.88 0.5
3.0j4 -27.03j-3.85 -3.0j-4 -27.03j-3.85 -3.0j-4
r 3Or -3O3Or 3O-3O3Or -3O3O-3O3Or
----- -------- --------- -------- -----------
.5 0.546 0.5000 0.546 0.5000
3.0j4 0j1 -0.1416j4 0j1 -0.1416j4
r 5Or -5O5Or 5O-5O5Or -5O5O-5O5Or
----- ----------- ---------- ----------- -----------
.5 0.52 0.5 0.52 0.5
3.0j4 -6.55j-7.62 -3.0j-0.86 -6.55j-7.62 -3.0j-0.86
r 6Or -6O6Or 6O-6O6Or -6O6O-6O6Or
----- ----------- --------- ----------- -----------
.5 1.13 0.5 1.13 0.5
3.0j4 -6.58j-7.58 -3.0j2.28 -6.58j-7.58 -3.0j2.28
r 7Or -7O7Or 7O-7O7Or -7O7O-7O7Or
----- ------------ -------- ------------ -----------
.5 .462 .5 .462 .5
3.0j4 1.001j.0049 3.0j.86 1.001j.0049 3.0j.86
apl>Lex 'demo'
1
apl>" <----------------------------------------------------------------->
apl>Lfx 'z # funa r' 'x # 1' 'z # r'
funa
apl>Lfx 'z # funb r;x' 'z#C`1x#(''funa r'') (''r'')'
funb
apl>funb 23
23 23
apl>Lfx 'z # sin x' 'z # 1 O x'
sin
apl>Lfx 'z # cos x' 'z # 2 O x'
cos
apl>Lfx 'z # sinh x' 'z # 5 O x'
sinh
apl>Lfx 'z # cosh x' 'z # 6 O x'
cosh
apl>Lfx 'z # tanh x' 'z # 7 O x'
tanh
apl>Gz # cosa r;i
[1] " x and y should be localized. This caused a re-boot until code was fixed.
[2] i # 0j1 " square root of -1
[3] x # 9 O r " real part of r
[4] y # 11 O r " imaginary part of r
[5] z # ((cos x)Xcosh y)_iX(sin x)Xsinh y
[6] G
apl>Gz # cosb r;i;s
[1] i # 0j1 " square root of -1
[2] z # (s+1%s#*iXr)%2
[3] G
apl>Gz # cosc r;i;s
[1] i # 0j1 " square root of -1
[2] z # cosh i X r
[3] G
apl>Gs # name demo r;x;y;z
[1] y # F `1 C `1 x # ('r') (name,'a r') (name,'b r') (name,'c r') (name,' r')
[2] z # ((-1Y`1R`1x)S-1Y`1R`1y)R`1'-'
[3] s#' ',[1]x,[1]z,[.5]y
[4] G
apl>Lpp#3
apl>'cos' demo 3j4
3 3 3 3 3
--- -------- -------- -------- --------
3j4 -27j-3.9 -27j-3.9 -27j-3.9 -27j-3.9
apl>)off
