apl>" <-APL2-------------------- sam325.txt ----------------------------> apl>1 O (O 1) % 2 3 4 1 .866025 .707107 apl>" apl>" <- disclose (`X), page 94 ----------------------------------------> apl>L#rrr#2 3R(I4)'abcd' '****'(5 6 7 8)'efgh' 'HHHH' 1 2 3 4 abcd **** 5 6 7 8 efgh HHHH apl>Rrrr 2 3 apl>`=rrr 2 apl>L#zzz#`Xrrr 1 2 3 4 a b c d * * * * 5 6 7 8 e f g h H H H H apl>`=zzz 1 apl>Rzzz 2 3 4 apl>RRzzz 3 apl>(Rrrr),YS/(R`1(,rrr),`ZYrrr)~`ZI0 2 3 4 apl>(RRrrr)+YS/R`1R`1(,rrr),`ZYrrr 3 apl>L#yyy#`X[(RRrrr)+IRRYrrr]rrr 1 2 3 4 a b c d * * * * 5 6 7 8 e f g h H H H H apl>`=yyy 1 apl>yyy`=zzz 1 apl>" apl>" <- disclose (`X), with axis, page 96 -----------------------------> apl>L#h#'abcd' (1 2 3 4) 'wxyz' abcd 1 2 3 4 wxyz apl>L#z#`X[1]h a 1 w b 2 x c 3 y d 4 z apl>Rz 4 3 apl>`=z 1 apl>L#w#`X[2]h a b c d 1 2 3 4 w x y z apl>Rw 3 4 apl>`=w 1 apl>Lfx 'z#xxx demo rrr;zzz' 'zzz#`X[xxx]rrr' 'z#+/((Rzzz)[,xxx])=YS/(R`1(,rrr),`ZYrrr)~`ZI0' demo apl>1 demo h 1 apl>2 demo h 1 apl>Lfx 'z#zzz demo rrr' 'z#(RRzzz)=(RRrrr)+S/ER`1R`1(,rrr),`ZYrrr' demo apl>z demo h 1 apl>w demo h 1 apl>" apl>" <- drop (U) with axis, page 105 ----------------------------------> apl>L#v#3 5R'striperodeplant' strip erode plant apl>q#1 2 apl>&/,(qUv)=L#qU[IRRv]v ode ant 1 apl>" apl>" <- each (`1) showing how implemented with empty argument ---------> apl>a#3 0 2R0 apl>b#1 2 3 apl>R`1,`1a b 0 3 apl>,`X0=R`1,`1a b 1 0 apl>L#c#aR`1b . apl>L#s#,`X(,`X0=R`1,`1a b)/R`1a b 3 0 2 apl>Rs 3 apl>`=s 1 apl>L#d#sR`Z(Ya)RYb . apl>c`=d 1 apl>" <- Exponential revisited. ----------------------------------------> apl>* -2 -1 0 1 2 .13533528 0.36787944 1 2.718282 7.389056 apl>" grade up/down revisited------------------------------------------- apl>L#b#5 3 R 4 16 37 2 9 26 5 11 63 3 18 45 5 11 54 4 16 37 2 9 26 5 11 63 3 18 45 5 11 54 apl>Wb " s/b 3 5 1 4 2 3 5 1 4 2 apl>b[Wb;] 5 11 63 5 11 54 4 16 37 3 18 45 2 9 26 apl>C'b[Wb',((-1+RRb)R';'),']' 5 11 63 5 11 54 4 16 37 3 18 45 2 9 26 apl>c#4 23 54 28 2 11 51 26 apl>c#c,4 29 17 43 3 19 32 41 apl>c#3 2 4Rc,4 23 54 28 1 25 31 16 apl>c 4 23 54 28 2 11 51 26 4 29 17 43 3 19 32 41 4 23 54 28 1 25 31 16 apl>Wc 2 1 3 apl>c[Wc;;] 4 29 17 43 3 19 32 41 4 23 54 28 2 11 51 26 4 23 54 28 1 25 31 16 apl>C'c[Wc',((-1+RRc)R';'),']' 4 29 17 43 3 19 32 41 4 23 54 28 2 11 51 26 4 23 54 28 1 25 31 16 apl>" logarithm revisited----------------------------------------------- apl>left#1+I5 apl>right#5+I5 apl>(left@right) `= (@right)%@left 1 apl>" magnitude revisited----------------------------------------------- apl>(|right) = (+/(9 11 O right#4j3)*2)*.5 1 apl>" Ravel with axis revisited--------------------------------------- apl>Lfx 'z#x demo r' 'z#((R,[x]r)Rr)`=,[x]r' demo apl>.1 demo a#2 3R'tensix' 1 apl>1.1 demo a 1 apl>2.1 demo a 1 apl>1.1 demo b#10 15 20 1 apl>2 3 demo c#3 2 4RI24 1 apl>1 2 demo c 1 apl>a#'ant' 'boar' 'cat' 'dog' 'elk' 'fox' 'gnu' apl>b#'hen' 'ibex' 'jird' 'kite' 'lamb' 'mice' apl>c#'nene' 'ox' 'pig' 'quail' 'rat' 'seal' apl>L#d#4 2 3Ra,b,c,'titi' 'viper' 'wolf' 'yak' 'zebra' ant boar cat dog elk fox gnu hen ibex jird kite lamb mice nene ox pig quail rat seal titi viper wolf yak zebra apl>1 2 demo d 1 apl>(I0) demo h#2 3RI6 1 apl>(I0) demo k#'prune' 'pear' 'fig' 1 apl>" Reduce revisited------------------------------------------------ apl>(X/r[i;]) `= (X/r#2 3RI6)[i#2] 1 apl>(+/r[i;j;]) `= (+/r#2 3 4RI24)[i#2;j#1 2] 1 apl>(+/r) `= `X+/`1`Z[RRr]r#2 3 4 5RI120 1 apl>" Examples for aplderiv.tex -------------------------------------- apl>(2 3RI6) +.X 3 2RI6 22 28 49 64 apl>+/ `1 'e' = `1 text # 'Still' 'round' 'the' 'corner' 'there' 'may' 'wait' 0 0 1 1 2 0 0 apl>+/ `1 'e' = text 0 0 1 1 2 0 0 apl>+/ `1 'e' = (' ' ^= text) `Z text#'Still round the corner there may wait' 0 0 1 1 2 0 0 apl>)off