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