/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / functions / MathProcs

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 32 f4 20 3e 4d | 61 74 68 50 72 6f 63 73 |...2. >M|athProcs|
|00000010| 20 3a 46 75 6e 63 74 69 | 6f 6e 73 2c 41 72 72 61 | :Functi|ons,Arra|
|00000020| 79 73 3a 20 28 50 52 4f | 43 4d 61 74 68 48 65 6c |ys: (PRO|CMathHel|
|00000030| 70 29 0d 00 14 05 3a 0d | 00 1e 32 f4 2a 2a 2a 2a |p)....:.|..2.****|
|00000040| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000050| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000060| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 00 28 22 f4 20 20 |********|*..(".  |
|00000070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 48 45 4c |        |     HEL|
|00000080| 50 20 50 52 4f 43 45 44 | 55 52 45 0d 00 32 32 f4 |P PROCED|URE..22.|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 00 3c |********|*****..<|
|000000c0| 39 20 20 20 dd f2 4d 61 | 74 68 48 65 6c 70 3a eb |9   ..Ma|thHelp:.|
|000000d0| 33 3a f1 8a 32 34 29 22 | 4d 41 54 48 53 20 46 55 |3:..24)"|MATHS FU|
|000000e0| 4e 43 54 49 4f 4e 20 4c | 49 42 52 41 52 59 20 2d |NCTION L|IBRARY -|
|000000f0| 20 48 45 4c 50 22 0d 00 | 46 31 f1 27 22 46 75 6e | HELP"..|F1.'"Fun|
|00000100| 63 74 69 6f 6e 73 3a 20 | 54 61 6b 65 20 26 20 72 |ctions: |Take & r|
|00000110| 65 74 75 72 6e 20 52 45 | 41 4c 20 70 61 72 61 6d |eturn RE|AL param|
|00000120| 65 74 65 72 73 22 27 0d | 00 50 31 f1 8a 35 29 22 |eters"'.|.P1..5)"|
|00000130| 46 4e 73 69 6e 68 28 58 | 29 22 8a 32 38 29 22 46 |FNsinh(X|)".28)"F|
|00000140| 4e 63 6f 73 68 28 58 29 | 22 8a 35 32 29 22 46 4e |Ncosh(X)|".52)"FN|
|00000150| 74 61 6e 68 28 58 29 22 | 0d 00 5a 3a f1 8a 35 29 |tanh(X)"|..Z:..5)|
|00000160| 22 46 4e 61 72 67 73 69 | 6e 68 28 58 29 22 8a 32 |"FNargsi|nh(X)".2|
|00000170| 38 29 22 46 4e 61 72 67 | 63 6f 73 68 28 58 29 22 |8)"FNarg|cosh(X)"|
|00000180| 8a 35 32 29 22 46 4e 61 | 72 67 74 61 6e 68 28 58 |.52)"FNa|rgtanh(X|
|00000190| 29 22 0d 00 64 50 f1 8a | 35 29 22 46 4e 66 61 63 |)"..dP..|5)"FNfac|
|000001a0| 74 28 58 25 29 20 2d 20 | 58 25 21 22 8a 32 38 29 |t(X%) - |X%!".28)|
|000001b0| 22 46 4e 70 65 72 6d 28 | 4e 25 2c 52 25 29 20 2d |"FNperm(|N%,R%) -|
|000001c0| 20 6e 50 72 22 8a 35 32 | 29 22 46 4e 63 6f 6d 62 | nPr".52|)"FNcomb|
|000001d0| 69 6e 65 28 4e 25 2c 52 | 25 29 20 2d 20 6e 43 72 |ine(N%,R|%) - nCr|
|000001e0| 22 27 0d 00 6e 47 f1 22 | 50 72 6f 63 65 64 75 72 |"'..nG."|Procedur|
|000001f0| 65 73 3a 20 54 61 6b 65 | 20 43 4f 4d 50 4c 45 58 |es: Take| COMPLEX|
|00000200| 20 70 61 72 6d 73 20 41 | 2b 6a 42 2c 5b 43 2b 6a | parms A|+jB,[C+j|
|00000210| 44 5d 20 20 4f 52 20 20 | 7c 4d 7c 2c 61 6e 67 6c |D]  OR  ||M|,angl|
|00000220| 65 20 4c 20 64 65 67 2e | 22 0d 00 78 30 f1 8a 31 |e L deg.|"..x0..1|
|00000230| 32 29 22 52 65 74 75 72 | 6e 20 20 52 20 2b 20 6a |2)"Retur|n  R + j|
|00000240| 49 20 20 4f 52 20 20 7c | 4d 7c 2c 61 6e 67 6c 65 |I  OR  ||M|,angle|
|00000250| 20 4c 20 64 65 67 2e 22 | 27 0d 00 82 31 f1 8a 35 | L deg."|'...1..5|
|00000260| 29 22 50 52 4f 43 73 69 | 6e 28 41 2c 42 2c 52 2c |)"PROCsi|n(A,B,R,|
|00000270| 49 29 22 8a 32 38 29 22 | 50 52 4f 43 63 6f 73 28 |I)".28)"|PROCcos(|
|00000280| 41 2c 42 2c 52 2c 49 29 | 22 3b 0d 00 8c 1b f1 8a |A,B,R,I)|";......|
|00000290| 35 32 29 22 50 52 4f 43 | 74 61 6e 28 41 2c 42 2c |52)"PROC|tan(A,B,|
|000002a0| 52 2c 49 29 22 0d 00 96 | 33 f1 8a 35 29 22 50 52 |R,I)"...|3..5)"PR|
|000002b0| 4f 43 73 69 6e 68 28 41 | 2c 42 2c 52 2c 49 29 22 |OCsinh(A|,B,R,I)"|
|000002c0| 8a 32 38 29 22 50 52 4f | 43 63 6f 73 68 28 41 2c |.28)"PRO|Ccosh(A,|
|000002d0| 42 2c 52 2c 49 29 22 3b | 0d 00 a0 1d f1 8a 35 32 |B,R,I)";|......52|
|000002e0| 29 22 50 52 4f 43 74 61 | 6e 68 28 41 2c 42 2c 52 |)"PROCta|nh(A,B,R|
|000002f0| 2c 49 29 22 27 0d 00 aa | 3d f1 8a 35 29 22 50 52 |,I)"'...|=..5)"PR|
|00000300| 4f 43 63 78 73 75 6d 28 | 41 2c 42 2c 43 2c 44 2c |OCcxsum(|A,B,C,D,|
|00000310| 52 2c 49 29 22 8a 34 30 | 29 22 50 52 4f 43 63 78 |R,I)".40|)"PROCcx|
|00000320| 64 69 66 66 28 41 2c 42 | 2c 43 2c 44 2c 52 2c 49 |diff(A,B|,C,D,R,I|
|00000330| 29 22 0d 00 b4 3e f1 8a | 35 29 22 50 52 4f 43 63 |)"...>..|5)"PROCc|
|00000340| 78 70 72 6f 64 28 41 2c | 42 2c 43 2c 44 2c 52 2c |xprod(A,|B,C,D,R,|
|00000350| 49 29 22 8a 34 30 29 22 | 50 52 4f 43 63 78 71 75 |I)".40)"|PROCcxqu|
|00000360| 6f 74 28 41 2c 42 2c 43 | 2c 44 2c 52 2c 49 29 22 |ot(A,B,C|,D,R,I)"|
|00000370| 0d 00 be 33 f1 8a 35 29 | 22 50 52 4f 43 72 65 63 |...3..5)|"PROCrec|
|00000380| 69 70 28 41 2c 42 2c 52 | 2c 49 29 22 8a 34 30 29 |ip(A,B,R|,I)".40)|
|00000390| 22 50 52 4f 43 73 71 72 | 74 28 41 2c 42 2c 52 2c |"PROCsqr|t(A,B,R,|
|000003a0| 49 29 22 0d 00 c8 38 f1 | 8a 35 29 22 50 52 4f 43 |I)"...8.|.5)"PROC|
|000003b0| 70 6f 6c 61 72 28 41 2c | 42 2c 4d 2c 4c 29 22 8a |polar(A,|B,M,L)".|
|000003c0| 34 30 29 22 50 52 4f 43 | 63 61 72 74 65 73 69 61 |40)"PROC|cartesia|
|000003d0| 6e 28 4d 2c 4c 2c 52 2c | 49 29 22 0d 00 d2 27 f1 |n(M,L,R,|I)"...'.|
|000003e0| 27 27 8a 32 38 29 22 4b | 65 79 20 53 50 41 43 45 |''.28)"K|ey SPACE|
|000003f0| 20 74 6f 20 63 6f 6e 74 | 69 6e 75 65 22 3a e7 a5 | to cont|inue":..|
|00000400| 20 db 0d 00 dc 05 3a 0d | 00 e6 30 f1 22 20 20 20 | .....:.|..0."   |
|00000410| 20 52 45 41 4c 20 41 72 | 72 61 79 73 3a 20 41 28 | REAL Ar|rays: A(|
|00000420| 29 20 5b 42 28 29 5d 20 | 3a 20 4d 61 78 20 32 20 |) [B()] |: Max 2 |
|00000430| 64 69 6d 73 20 22 3b 0d | 00 f0 29 f1 22 3a 20 53 |dims ";.|..).": S|
|00000440| 74 61 72 74 20 3d 20 31 | 73 74 20 65 6c 65 6d 65 |tart = 1|st eleme|
|00000450| 6e 74 20 28 65 67 20 30 | 20 6f 72 20 31 29 22 27 |nt (eg 0| or 1)"'|
|00000460| 0d 00 fa 39 f1 22 50 52 | 4f 43 4d 61 74 49 6e 70 |...9."PR|OCMatInp|
|00000470| 75 74 28 41 28 29 2c 53 | 74 61 72 74 29 22 8a 34 |ut(A(),S|tart)".4|
|00000480| 34 29 22 4b 65 79 20 69 | 6e 20 61 72 72 61 79 20 |4)"Key i|n array |
|00000490| 65 6c 65 6d 65 6e 74 73 | 22 0d 01 04 34 f1 22 50 |elements|"...4."P|
|000004a0| 52 4f 43 4d 61 74 50 72 | 69 6e 74 28 41 28 29 2c |ROCMatPr|int(A(),|
|000004b0| 53 74 61 72 74 29 22 8a | 34 34 29 22 50 72 69 6e |Start)".|44)"Prin|
|000004c0| 74 20 72 65 61 6c 20 61 | 72 72 61 79 22 0d 01 0e |t real a|rray"...|
|000004d0| 3e f1 22 50 52 4f 43 4d | 61 74 54 72 61 6e 73 28 |>."PROCM|atTrans(|
|000004e0| 41 28 29 2c 42 28 29 2c | 53 74 61 72 74 29 22 8a |A(),B(),|Start)".|
|000004f0| 34 34 29 22 42 28 29 20 | 3d 20 54 72 61 6e 73 70 |44)"B() |= Transp|
|00000500| 6f 73 65 20 6f 66 20 41 | 28 29 22 0d 01 18 3f f1 |ose of A|()"...?.|
|00000510| 22 50 52 4f 43 4d 61 74 | 49 6e 76 74 28 41 28 29 |"PROCMat|Invt(A()|
|00000520| 2c 53 74 61 72 74 29 22 | 8a 34 34 29 22 49 6e 76 |,Start)"|.44)"Inv|
|00000530| 65 72 74 20 26 20 52 65 | 74 75 72 6e 20 53 51 55 |ert & Re|turn SQU|
|00000540| 41 52 45 20 41 72 72 61 | 79 22 0d 01 22 49 f1 27 |ARE Arra|y".."I.'|
|00000550| 22 20 20 20 20 50 41 52 | 54 2d 41 72 72 61 79 73 |"    PAR|T-Arrays|
|00000560| 20 3a 20 53 31 2c 45 31 | 5b 2c 53 32 2c 45 32 5d | : S1,E1|[,S2,E2]|
|00000570| 20 3d 20 73 74 61 72 74 | 2c 65 6e 64 20 52 4f 57 | = start|,end ROW|
|00000580| 2c 5b 43 4f 4c 55 4d 4e | 5d 20 73 75 66 66 69 63 |,[COLUMN|] suffic|
|00000590| 65 73 22 0d 01 2c 32 f1 | 8a 32 30 29 22 53 65 74 |es"..,2.|.20)"Set|
|000005a0| 20 53 32 2c 45 32 20 3d | 20 2d 31 20 66 6f 72 20 | S2,E2 =| -1 for |
|000005b0| 31 2d 64 69 6d 65 6e 73 | 69 6f 6e 61 6c 20 61 72 |1-dimens|ional ar|
|000005c0| 72 61 79 22 27 0d 01 36 | 45 f1 22 46 4e 4d 61 74 |ray"'..6|E."FNMat|
|000005d0| 4d 61 78 28 41 28 29 2c | 53 31 2c 45 31 2c 53 32 |Max(A(),|S1,E1,S2|
|000005e0| 2c 45 32 29 22 8a 34 34 | 29 22 52 65 74 75 72 6e |,E2)".44|)"Return|
|000005f0| 20 6d 61 78 2e 20 77 69 | 74 68 69 6e 20 53 2c 45 | max. wi|thin S,E|
|00000600| 20 73 75 66 66 69 63 65 | 73 22 0d 01 40 45 f1 22 | suffice|s"..@E."|
|00000610| 46 4e 4d 61 74 4d 69 6e | 28 41 28 29 2c 53 31 2c |FNMatMin|(A(),S1,|
|00000620| 45 31 2c 53 32 2c 45 32 | 29 22 8a 34 34 29 22 52 |E1,S2,E2|)".44)"R|
|00000630| 65 74 75 72 6e 20 6d 69 | 6e 2e 20 77 69 74 68 69 |eturn mi|n. withi|
|00000640| 6e 20 53 2c 45 20 73 75 | 66 66 69 63 65 73 22 0d |n S,E su|ffices".|
|00000650| 01 4a 28 f1 22 50 52 4f | 43 4d 61 74 50 61 72 74 |.J(."PRO|CMatPart|
|00000660| 28 41 28 29 2c 53 31 2c | 45 31 2c 53 32 2c 45 32 |(A(),S1,|E1,S2,E2|
|00000670| 2c 42 28 29 29 22 3b 0d | 01 54 2b f1 8a 34 34 29 |,B())";.|.T+..44)|
|00000680| 22 54 72 61 6e 73 66 65 | 72 20 70 61 72 74 20 77 |"Transfe|r part w|
|00000690| 69 74 68 69 6e 20 53 2c | 45 20 74 6f 20 42 28 29 |ithin S,|E to B()|
|000006a0| 22 27 0d 01 5e 2a f1 22 | 20 20 20 20 43 4f 4d 50 |"'..^*."|    COMP|
|000006b0| 4c 45 58 20 41 72 72 61 | 79 73 3a 20 41 28 29 20 |LEX Arra|ys: A() |
|000006c0| 2b 20 6a 42 28 29 20 65 | 74 63 22 27 0d 01 68 45 |+ jB() e|tc"'..hE|
|000006d0| f1 22 50 52 4f 43 4d 61 | 74 43 49 6e 70 75 74 28 |."PROCMa|tCInput(|
|000006e0| 41 28 29 2c 42 28 29 2c | 53 74 61 72 74 29 22 8a |A(),B(),|Start)".|
|000006f0| 34 34 29 22 4b 65 79 20 | 69 6e 20 63 6f 6d 70 6c |44)"Key |in compl|
|00000700| 65 78 20 65 6c 65 6d 65 | 6e 74 2d 70 61 69 72 73 |ex eleme|nt-pairs|
|00000710| 22 0d 01 72 3c f1 22 50 | 52 4f 43 4d 61 74 43 50 |"..r<."P|ROCMatCP|
|00000720| 72 69 6e 74 28 41 28 29 | 2c 42 28 29 2c 53 74 61 |rint(A()|,B(),Sta|
|00000730| 72 74 29 22 8a 34 34 29 | 22 50 72 69 6e 74 20 63 |rt)".44)|"Print c|
|00000740| 6f 6d 70 6c 65 78 20 61 | 72 72 61 79 22 0d 01 7c |omplex a|rray"..||
|00000750| 33 f1 22 50 52 4f 43 4d | 61 74 43 50 72 6f 64 28 |3."PROCM|atCProd(|
|00000760| 41 28 29 2c 42 28 29 2c | 43 28 29 2c 44 28 29 2c |A(),B(),|C(),D(),|
|00000770| 53 74 61 72 74 2c 45 28 | 29 2c 46 28 29 29 22 3b |Start,E(|),F())";|
|00000780| 0d 01 86 29 f1 8a 34 34 | 29 22 45 28 29 2b 6a 46 |...)..44|)"E()+jF|
|00000790| 28 29 20 3d 20 41 28 29 | 2b 6a 42 28 29 20 2a 20 |() = A()|+jB() * |
|000007a0| 43 28 29 2b 6a 44 28 29 | 22 0d 01 90 47 f1 22 50 |C()+jD()|"...G."P|
|000007b0| 52 4f 43 4d 61 74 43 49 | 6e 76 74 28 41 28 29 2c |ROCMatCI|nvt(A(),|
|000007c0| 42 28 29 2c 53 74 61 72 | 74 29 22 8a 34 34 29 22 |B(),Star|t)".44)"|
|000007d0| 49 6e 76 65 72 74 20 26 | 20 52 65 74 75 72 6e 20 |Invert &| Return |
|000007e0| 53 51 55 41 52 45 20 41 | 28 29 2b 6a 42 28 29 22 |SQUARE A|()+jB()"|
|000007f0| 0d 01 9a 45 f1 27 22 20 | 20 20 20 4e 4f 54 45 3a |...E.'" |   NOTE:|
|00000800| 20 2a 2a 20 43 41 4c 4c | 49 4e 47 20 41 52 52 41 | ** CALL|ING ARRA|
|00000810| 59 53 20 4d 55 53 54 20 | 42 45 20 43 4f 52 52 45 |YS MUST |BE CORRE|
|00000820| 43 54 4c 59 20 44 49 4d | 45 4e 53 49 4f 4e 45 44 |CTLY DIM|ENSIONED|
|00000830| 20 2a 2a 22 27 0d 01 a4 | 05 e1 0d 01 ae 31 f4 2a | **"'...|.....1.*|
|00000840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000850| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000860| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 01 b8 30 f4 |********|***...0.|
|00000870| 20 20 3a 20 20 20 20 54 | 52 49 47 4f 4e 4f 4d 45 |  :    T|RIGONOME|
|00000880| 54 52 49 43 20 26 20 48 | 59 50 45 52 42 4f 4c 49 |TRIC & H|YPERBOLI|
|00000890| 43 20 46 55 4e 43 54 49 | 4f 4e 53 0d 01 c2 31 f4 |C FUNCTI|ONS...1.|
|000008a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000008c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 01 cc 1d |********|****....|
|000008d0| 20 20 20 dd a4 73 69 6e | 68 28 58 29 3d 28 a1 58 |   ..sin|h(X)=(.X|
|000008e0| 2d a1 28 2d 58 29 29 2f | 32 0d 01 d6 1d 20 20 20 |-.(-X))/|2....   |
|000008f0| dd a4 63 6f 73 68 28 58 | 29 3d 28 a1 58 2b a1 28 |..cosh(X|)=(.X+.(|
|00000900| 2d 58 29 29 2f 32 0d 01 | e0 22 20 20 20 dd a4 74 |-X))/2..|."   ..t|
|00000910| 61 6e 68 28 58 29 3d a4 | 73 69 6e 68 28 58 29 2f |anh(X)=.|sinh(X)/|
|00000920| a4 63 6f 73 68 28 58 29 | 0d 01 ea 21 20 20 20 dd |.cosh(X)|...!   .|
|00000930| a4 61 72 67 73 69 6e 68 | 28 58 29 3d aa 28 58 2b |.argsinh|(X)=.(X+|
|00000940| b6 28 58 2a 58 2b 31 29 | 29 0d 01 f4 21 20 20 20 |.(X*X+1)|)...!   |
|00000950| dd a4 61 72 67 63 6f 73 | 68 28 58 29 3d aa 28 58 |..argcos|h(X)=.(X|
|00000960| 2b b6 28 58 2a 58 2d 31 | 29 29 0d 01 fe 25 20 20 |+.(X*X-1|))...%  |
|00000970| 20 dd a4 61 72 67 74 61 | 6e 68 28 58 29 3d 2e 35 | ..argta|nh(X)=.5|
|00000980| 2a aa 28 28 31 2b 58 29 | 2f 28 31 2d 58 29 29 0d |*.((1+X)|/(1-X)).|
|00000990| 02 08 1f 20 20 20 dd a4 | 66 61 63 74 28 58 25 29 |...   ..|fact(X%)|
|000009a0| 3a e7 58 25 3d 30 3d 31 | 20 8b 20 ea 20 59 0d 02 |:.X%=0=1| . . Y..|
|000009b0| 12 3c 59 3d 28 31 2b 31 | 2f 28 31 32 2a 58 25 2d |.<Y=(1+1|/(12*X%-|
|000009c0| 2e 34 36 33 29 29 2a b6 | 28 58 25 2a 32 2a af 29 |.463))*.|(X%*2*.)|
|000009d0| 2a 28 58 25 2f a1 31 29 | 5e 58 25 3a e7 58 25 3c |*(X%/.1)|^X%:.X%<|
|000009e0| 31 33 20 3d a8 59 20 8b | 3d 59 0d 02 1c 38 20 20 |13 =.Y .|=Y...8  |
|000009f0| 20 dd a4 70 65 72 6d 75 | 74 65 28 4e 25 2c 52 25 | ..permu|te(N%,R%|
|00000a00| 29 3a ea 50 24 3a 50 24 | 3d c3 28 a4 66 61 63 74 |):.P$:P$|=.(.fact|
|00000a10| 28 4e 25 29 2f a4 66 61 | 63 74 28 4e 25 2d 52 25 |(N%)/.fa|ct(N%-R%|
|00000a20| 29 29 0d 02 26 2f e7 a7 | 50 24 2c 22 45 22 29 20 |))..&/..|P$,"E") |
|00000a30| 84 20 28 a7 50 24 2c 22 | 2e 22 29 3d 30 29 3a 3d |. (.P$,"|.")=0):=|
|00000a40| bb 50 24 3a 8b 3a 3d 20 | a8 28 2e 34 2b bb 50 24 |.P$:.:= |.(.4+.P$|
|00000a50| 29 0d 02 30 24 20 20 20 | dd a4 63 6f 6d 62 69 6e |)..0$   |..combin|
|00000a60| 65 28 4e 25 2c 52 25 29 | 3a ea 43 25 3a 43 25 3d |e(N%,R%)|:.C%:C%=|
|00000a70| 4e 25 2d 52 25 0d 02 3a | 15 e7 43 25 3e 4e 25 81 |N%-R%..:|..C%>N%.|
|00000a80| 32 3a c8 94 20 43 25 2c | 52 25 0d 02 44 28 3d a8 |2:.. C%,|R%..D(=.|
|00000a90| 28 a4 66 61 63 74 28 4e | 25 29 2f a4 66 61 63 74 |(.fact(N|%)/.fact|
|00000aa0| 28 52 25 29 2f a4 66 61 | 63 74 28 43 25 29 2b 2e |(R%)/.fa|ct(C%)+.|
|00000ab0| 34 29 0d 02 4e 19 20 20 | 20 dd f2 73 69 6e 28 41 |4)..N.  | ..sin(A|
|00000ac0| 2c 42 2c f8 20 52 2c f8 | 20 49 29 0d 02 58 21 52 |,B,. R,.| I)..X!R|
|00000ad0| 3d b5 41 2a a4 63 6f 73 | 68 28 42 29 3a 49 3d 9b |=.A*.cos|h(B):I=.|
|00000ae0| 41 2a a4 73 69 6e 68 28 | 42 29 3a e1 0d 02 62 19 |A*.sinh(|B):...b.|
|00000af0| 20 20 20 dd f2 63 6f 73 | 28 41 2c 42 2c f8 20 52 |   ..cos|(A,B,. R|
|00000b00| 2c f8 20 49 29 0d 02 6c | 22 52 3d 9b 41 2a a4 63 |,. I)..l|"R=.A*.c|
|00000b10| 6f 73 68 28 42 29 3a 49 | 3d 2d b5 41 2a a4 73 69 |osh(B):I|=-.A*.si|
|00000b20| 6e 68 28 42 29 3a e1 0d | 02 76 1f 20 20 20 dd f2 |nh(B):..|.v.   ..|
|00000b30| 74 61 6e 28 41 2c 42 2c | f8 20 52 2c f8 20 49 29 |tan(A,B,|. R,. I)|
|00000b40| 3a ea 20 55 2c 56 0d 02 | 80 27 f2 73 69 6e 28 41 |:. U,V..|.'.sin(A|
|00000b50| 2c 42 2c 52 2c 49 29 3a | 55 3d 52 3a 56 3d 49 3a |,B,R,I):|U=R:V=I:|
|00000b60| f2 63 6f 73 28 41 2c 42 | 2c 52 2c 49 29 0d 02 8a |.cos(A,B|,R,I)...|
|00000b70| 1a f2 63 78 71 75 6f 74 | 28 55 2c 56 2c 52 2c 49 |..cxquot|(U,V,R,I|
|00000b80| 2c 52 2c 49 29 3a e1 0d | 02 94 1a 20 20 20 dd f2 |,R,I):..|...   ..|
|00000b90| 73 69 6e 68 28 41 2c 42 | 2c f8 20 52 2c f8 20 49 |sinh(A,B|,. R,. I|
|00000ba0| 29 0d 02 9e 21 52 3d a4 | 73 69 6e 68 28 41 29 2a |)...!R=.|sinh(A)*|
|00000bb0| 9b 42 3a 49 3d a4 63 6f | 73 68 28 41 29 2a b5 42 |.B:I=.co|sh(A)*.B|
|00000bc0| 3a e1 0d 02 a8 1a 20 20 | 20 dd f2 63 6f 73 68 28 |:.....  | ..cosh(|
|00000bd0| 41 2c 42 2c f8 20 52 2c | f8 20 49 29 0d 02 b2 21 |A,B,. R,|. I)...!|
|00000be0| 52 3d a4 63 6f 73 68 28 | 41 29 2a 9b 42 3a 49 3d |R=.cosh(|A)*.B:I=|
|00000bf0| a4 73 69 6e 68 28 41 29 | 2a b5 42 3a e1 0d 02 bc |.sinh(A)|*.B:....|
|00000c00| 1e 20 20 20 dd f2 74 61 | 6e 68 28 41 2c 42 2c f8 |.   ..ta|nh(A,B,.|
|00000c10| 20 52 2c f8 20 49 29 3a | ea 20 44 0d 02 c6 33 44 | R,. I):|. D...3D|
|00000c20| 3d a4 63 6f 73 68 28 32 | 2a 41 29 2b 9b 28 32 2a |=.cosh(2|*A)+.(2*|
|00000c30| 42 29 3a 52 3d a4 73 69 | 6e 68 28 32 2a 41 29 2f |B):R=.si|nh(2*A)/|
|00000c40| 44 3a 49 3d b5 28 32 2a | 42 29 2f 44 3a e1 0d 02 |D:I=.(2*|B)/D:...|
|00000c50| d0 33 f4 3a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.3.:****|********|
|00000c60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000c80| 2a 0d 02 da 27 f4 3a 20 | 20 20 20 20 20 20 20 20 |*...'.: |        |
|00000c90| 20 20 20 20 20 20 20 20 | 20 43 4f 4d 50 4c 45 58 |        | COMPLEX|
|00000ca0| 20 4e 55 4d 42 45 52 53 | 0d 02 e4 33 f4 3a 2a 2a | NUMBERS|...3.:**|
|00000cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 02 ee 2d 20 |********|***...- |
|00000ce0| 20 20 dd f2 63 78 73 75 | 6d 28 41 2c 42 2c 43 2c |  ..cxsu|m(A,B,C,|
|00000cf0| 44 2c f8 20 52 2c f8 20 | 49 29 3a 52 3d 41 2b 43 |D,. R,. |I):R=A+C|
|00000d00| 3a 49 3d 42 2b 44 3a e1 | 0d 02 f8 2e 20 20 20 dd |:I=B+D:.|....   .|
|00000d10| f2 63 78 64 69 66 66 28 | 41 2c 42 2c 43 2c 44 2c |.cxdiff(|A,B,C,D,|
|00000d20| f8 20 52 2c f8 20 49 29 | 3a 52 3d 41 2d 43 3a 49 |. R,. I)|:R=A-C:I|
|00000d30| 3d 42 2d 44 3a e1 0d 03 | 02 36 20 20 20 dd f2 63 |=B-D:...|.6   ..c|
|00000d40| 78 70 72 6f 64 28 41 2c | 42 2c 43 2c 44 2c f8 20 |xprod(A,|B,C,D,. |
|00000d50| 52 2c f8 20 49 29 3a 52 | 3d 41 2a 43 2d 42 2a 44 |R,. I):R|=A*C-B*D|
|00000d60| 3a 49 3d 41 2a 44 2b 42 | 2a 43 3a e1 0d 03 0c 20 |:I=A*D+B|*C:.... |
|00000d70| 20 20 20 dd f2 63 78 71 | 75 6f 74 28 41 2c 42 2c |   ..cxq|uot(A,B,|
|00000d80| 43 2c 44 2c f8 20 52 2c | f8 20 49 29 0d 03 16 31 |C,D,. R,|. I)...1|
|00000d90| 52 3d 28 41 2a 43 2b 42 | 2a 44 29 2f 28 43 2a 43 |R=(A*C+B|*D)/(C*C|
|00000da0| 2b 44 2a 44 29 3a 49 3d | 28 42 2a 43 2d 41 2a 44 |+D*D):I=|(B*C-A*D|
|00000db0| 29 2f 28 43 2a 43 2b 44 | 2a 44 29 3a e1 0d 03 20 |)/(C*C+D|*D):... |
|00000dc0| 1b 20 20 20 dd f2 72 65 | 63 69 70 28 41 2c 42 2c |.   ..re|cip(A,B,|
|00000dd0| f8 20 52 2c f8 20 49 29 | 0d 03 2a 22 52 3d 41 2f |. R,. I)|..*"R=A/|
|00000de0| 28 41 2a 41 2b 42 2a 42 | 29 3a 49 3d 2d 42 2f 28 |(A*A+B*B|):I=-B/(|
|00000df0| 41 2a 41 2b 42 2a 42 29 | 3a e1 0d 03 34 20 20 20 |A*A+B*B)|:...4   |
|00000e00| 20 dd f2 73 71 72 74 28 | 41 2c 42 2c f8 20 52 2c | ..sqrt(|A,B,. R,|
|00000e10| f8 20 49 29 3a ea 20 4c | 2c 4d 0d 03 3e 2d 4d 3d |. I):. L|,M..>-M=|
|00000e20| b6 b6 28 41 2a 41 2b 42 | 2a 42 29 3a 4c 3d 2e 35 |..(A*A+B|*B):L=.5|
|00000e30| 2a 99 28 42 2f 41 29 3a | 52 3d 4d 2a 9b 4c 3a 49 |*.(B/A):|R=M*.L:I|
|00000e40| 3d 4d 2a b5 4c 3a e1 0d | 03 48 1b 20 20 20 dd f2 |=M*.L:..|.H.   ..|
|00000e50| 70 6f 6c 61 72 28 41 2c | 42 2c f8 20 4d 2c f8 20 |polar(A,|B,. M,. |
|00000e60| 4c 29 0d 03 52 1c 4d 3d | b6 28 41 2a 41 2b 42 2a |L)..R.M=|.(A*A+B*|
|00000e70| 42 29 3a 4c 3d 9d 99 28 | 42 2f 41 29 3a e1 0d 03 |B):L=..(|B/A):...|
|00000e80| 5c 1f 20 20 20 dd f2 63 | 61 72 74 65 73 69 61 6e |\.   ..c|artesian|
|00000e90| 28 4d 2c 4c 2c f8 20 52 | 2c f8 20 49 29 0d 03 66 |(M,L,. R|,. I)..f|
|00000ea0| 15 52 3d 4d 2a 9b b2 4c | 3a 49 3d 4d 2a b5 b2 4c |.R=M*..L|:I=M*..L|
|00000eb0| 3a e1 0d 03 70 34 f4 3a | 2a 2a 2a 2a 2a 2a 2a 2a |:...p4.:|********|
|00000ec0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ed0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ee0| 2a 2a 2a 2a 2a 2a 0d 03 | 7a 24 f4 3a 20 20 20 20 |******..|z$.:    |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 52 |        |       R|
|00000f00| 45 41 4c 20 41 52 52 41 | 59 53 0d 03 84 34 f4 3a |EAL ARRA|YS...4.:|
|00000f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 03 |********|******..|
|00000f40| 8e 29 20 20 20 dd f2 4d | 61 74 49 6e 70 75 74 28 |.)   ..M|atInput(|
|00000f50| 41 28 29 2c 53 74 61 72 | 74 29 3a ea 49 25 2c 4a |A(),Star|t):.I%,J|
|00000f60| 25 2c 4d 25 2c 4e 25 0d | 03 98 2b 4d 25 3d de 28 |%,M%,N%.|..+M%=.(|
|00000f70| 41 28 29 2c 31 29 3a 4e | 25 3d 30 3a e7 20 de 28 |A(),1):N|%=0:. .(|
|00000f80| 41 28 29 29 3d 32 3a 4e | 25 3d de 28 41 28 29 2c |A())=2:N|%=.(A(),|
|00000f90| 32 29 0d 03 a2 14 f1 3a | e3 49 25 3d 53 74 61 72 |2).....:|.I%=Star|
|00000fa0| 74 20 b8 20 4d 25 0d 03 | ac 0a e7 20 4e 25 20 8c |t . M%..|... N% .|
|00000fb0| 0d 03 b6 12 e3 4a 25 3d | 53 74 61 72 74 20 b8 20 |.....J%=|Start . |
|00000fc0| 4e 25 0d 03 c0 2d f1 22 | 52 6f 77 20 22 3b 49 25 |N%...-."|Row ";I%|
|00000fd0| 22 20 20 43 6f 6c 20 22 | 3b 4a 25 22 20 3f 20 22 |"  Col "|;J%" ? "|
|00000fe0| 3b 3a e8 22 22 41 28 49 | 25 2c 4a 25 29 3a ed 0d |;:.""A(I|%,J%):..|
|00000ff0| 03 ca 19 cc 20 f1 3b 49 | 25 22 20 3f 20 22 3b 3a |.... .;I|%" ? ";:|
|00001000| e8 22 22 41 28 49 25 29 | 0d 03 d4 09 cd 3a ed 3a |.""A(I%)|.....:.:|
|00001010| e1 0d 03 de 2a 20 20 20 | dd f2 4d 61 74 50 72 69 |....*   |..MatPri|
|00001020| 6e 74 28 41 28 29 2c 53 | 74 61 72 74 29 3a ea 20 |nt(A(),S|tart):. |
|00001030| 61 25 2c 49 25 2c 4a 25 | 2c 4b 25 0d 03 e8 2d 61 |a%,I%,J%|,K%...-a|
|00001040| 25 3d 40 25 3a 40 25 3d | 26 35 30 43 3a 4b 25 3d |%=@%:@%=|&50C:K%=|
|00001050| 30 3a e7 20 de 28 41 28 | 29 29 3d 32 3a 4b 25 3d |0:. .(A(|))=2:K%=|
|00001060| de 28 41 28 29 2c 32 29 | 0d 03 f2 29 e3 20 49 25 |.(A(),2)|...). I%|
|00001070| 3d 53 74 61 72 74 20 b8 | 20 de 28 41 28 29 2c 31 |=Start .| .(A(),1|
|00001080| 29 3a e3 20 4a 25 3d 53 | 74 61 72 74 20 b8 20 4b |):. J%=S|tart . K|
|00001090| 25 0d 03 fc 1f e7 4b 25 | 20 f1 3b 41 28 49 25 2c |%.....K%| .;A(I%,|
|000010a0| 4a 25 29 2c 3b 3a 8b f1 | 3b 41 28 49 25 29 2c 3b |J%),;:..|;A(I%),;|
|000010b0| 0d 04 06 11 ed 3a f1 3a | ed 3a 40 25 3d 61 25 3a |.....:.:|.:@%=a%:|
|000010c0| e1 0d 04 10 2e 20 20 20 | dd f2 4d 61 74 54 72 61 |.....   |..MatTra|
|000010d0| 6e 73 28 41 28 29 2c 42 | 28 29 2c 53 74 61 72 74 |ns(A(),B|(),Start|
|000010e0| 29 3a ea 20 49 25 2c 4a | 25 2c 4d 25 2c 4e 25 0d |):. I%,J|%,M%,N%.|
|000010f0| 04 1a 1b 4d 25 3d de 28 | 41 28 29 2c 31 29 3a 4e |...M%=.(|A(),1):N|
|00001100| 25 3d de 28 41 28 29 2c | 32 29 0d 04 24 21 e3 49 |%=.(A(),|2)..$!.I|
|00001110| 25 3d 53 74 61 72 74 20 | b8 20 4d 25 3a e3 4a 25 |%=Start |. M%:.J%|
|00001120| 3d 53 74 61 72 74 20 b8 | 20 4e 25 0d 04 2e 1b 42 |=Start .| N%....B|
|00001130| 28 4a 25 2c 49 25 29 3d | 41 28 49 25 2c 4a 25 29 |(J%,I%)=|A(I%,J%)|
|00001140| 3a ed 3a ed 3a e1 0d 04 | 38 38 20 20 20 dd f2 4d |:.:.:...|88   ..M|
|00001150| 61 74 49 6e 76 74 28 41 | 28 29 2c 53 74 61 72 74 |atInvt(A|(),Start|
|00001160| 29 3a ea 49 25 2c 4a 25 | 2c 4b 25 2c 4e 25 2c 50 |):.I%,J%|,K%,N%,P|
|00001170| 2c 51 3a 4e 25 3d de 28 | 41 28 29 2c 31 29 0d 04 |,Q:N%=.(|A(),1)..|
|00001180| 42 21 e3 20 49 25 3d 53 | 74 61 72 74 20 b8 20 4e |B!. I%=S|tart . N|
|00001190| 25 3a 50 3d 41 28 49 25 | 2c 53 74 61 72 74 29 0d |%:P=A(I%|,Start).|
|000011a0| 04 4c 35 e7 20 50 3d 30 | 3a f1 27 22 43 61 6e 27 |.L5. P=0|:.'"Can'|
|000011b0| 74 20 49 6e 76 65 72 74 | 3a 20 53 69 6e 67 75 6c |t Invert|: Singul|
|000011c0| 61 72 2c 20 6f 72 20 5a | 65 72 6f 20 50 69 76 6f |ar, or Z|ero Pivo|
|000011d0| 74 22 3a e1 0d 04 56 2d | e3 20 4a 25 3d 53 74 61 |t":...V-|. J%=Sta|
|000011e0| 72 74 20 b8 20 4e 25 2d | 31 3a 41 28 49 25 2c 4a |rt . N%-|1:A(I%,J|
|000011f0| 25 29 3d 41 28 49 25 2c | 4a 25 2b 31 29 2f 50 3a |%)=A(I%,|J%+1)/P:|
|00001200| ed 0d 04 60 20 41 28 49 | 25 2c 4e 25 29 3d 31 2f |...` A(I|%,N%)=1/|
|00001210| 50 3a e3 20 4b 25 3d 53 | 74 61 72 74 20 b8 20 4e |P:. K%=S|tart . N|
|00001220| 25 0d 04 6a 0e e7 20 4b | 25 3c 3e 49 25 20 8c 0d |%..j.. K|%<>I% ..|
|00001230| 04 74 42 51 3d 41 28 4b | 25 2c 53 74 61 72 74 29 |.tBQ=A(K|%,Start)|
|00001240| 3a e3 20 4a 25 3d 53 74 | 61 72 74 20 b8 20 4e 25 |:. J%=St|art . N%|
|00001250| 2d 31 3a 41 28 4b 25 2c | 4a 25 29 3d 41 28 4b 25 |-1:A(K%,|J%)=A(K%|
|00001260| 2c 4a 25 2b 31 29 2d 51 | 2a 41 28 49 25 2c 4a 25 |,J%+1)-Q|*A(I%,J%|
|00001270| 29 0d 04 7e 1a ed 3a 41 | 28 4b 25 2c 4e 25 29 3d |)..~..:A|(K%,N%)=|
|00001280| 2d 51 2a 41 28 49 25 2c | 4e 25 29 0d 04 88 0b cd |-Q*A(I%,|N%).....|
|00001290| 3a ed 3a ed 3a e1 0d 04 | 92 2c 20 20 20 dd a4 4d |:.:.:...|.,   ..M|
|000012a0| 61 74 4d 61 78 28 41 28 | 29 2c 53 31 2c 45 31 2c |atMax(A(|),S1,E1,|
|000012b0| 53 32 2c 45 32 29 3a ea | 20 49 25 2c 4a 25 2c 41 |S2,E2):.| I%,J%,A|
|000012c0| 2c 42 0d 04 9c 17 41 3d | 2d 31 45 32 30 3a e3 49 |,B....A=|-1E20:.I|
|000012d0| 25 3d 53 31 20 b8 20 45 | 31 0d 04 a6 0e e7 20 53 |%=S1 . E|1..... S|
|000012e0| 32 20 3e 2d 31 20 8c 0d | 04 b0 0f e3 4a 25 3d 53 |2 >-1 ..|....J%=S|
|000012f0| 32 20 b8 20 45 32 0d 04 | ba 18 42 3d 41 28 49 25 |2 . E2..|..B=A(I%|
|00001300| 2c 4a 25 29 3a e7 20 42 | 3e 41 20 41 3d 42 0d 04 |,J%):. B|>A A=B..|
|00001310| c4 05 ed 0d 04 ce 16 cc | 20 42 3d 41 28 49 25 29 |........| B=A(I%)|
|00001320| 3a e7 42 3e 41 3a 41 3d | 42 0d 04 d8 0a cd 3a ed |:.B>A:A=|B.....:.|
|00001330| 3a 3d 41 0d 04 e2 2c 20 | 20 20 dd a4 4d 61 74 4d |:=A..., |  ..MatM|
|00001340| 69 6e 28 41 28 29 2c 53 | 31 2c 45 31 2c 53 32 2c |in(A(),S|1,E1,S2,|
|00001350| 45 32 29 3a ea 20 49 25 | 2c 4a 25 2c 41 2c 42 0d |E2):. I%|,J%,A,B.|
|00001360| 04 ec 16 41 3d 31 45 32 | 30 3a e3 49 25 3d 53 31 |...A=1E2|0:.I%=S1|
|00001370| 20 b8 20 45 31 0d 04 f6 | 0e e7 20 53 32 20 3e 2d | . E1...|.. S2 >-|
|00001380| 31 20 8c 0d 05 00 0f e3 | 4a 25 3d 53 32 20 b8 20 |1 ......|J%=S2 . |
|00001390| 45 32 0d 05 0a 18 42 3d | 41 28 49 25 2c 4a 25 29 |E2....B=|A(I%,J%)|
|000013a0| 3a e7 20 42 3c 41 20 41 | 3d 42 0d 05 14 05 ed 0d |:. B<A A|=B......|
|000013b0| 05 1e 16 cc 20 42 3d 41 | 28 49 25 29 3a e7 42 3c |.... B=A|(I%):.B<|
|000013c0| 41 3a 41 3d 42 0d 05 28 | 0a cd 3a ed 3a 3d 41 0d |A:A=B..(|..:.:=A.|
|000013d0| 05 32 2c 20 20 20 dd f2 | 4d 61 74 50 61 72 74 28 |.2,   ..|MatPart(|
|000013e0| 41 28 29 2c 53 31 2c 45 | 31 2c 53 32 2c 45 32 2c |A(),S1,E|1,S2,E2,|
|000013f0| 42 28 29 29 3a ea 49 25 | 2c 4a 25 0d 05 3c 1b e3 |B()):.I%|,J%..<..|
|00001400| 49 25 3d 53 31 20 b8 20 | 45 31 3a e3 4a 25 3d 53 |I%=S1 . |E1:.J%=S|
|00001410| 32 20 b8 20 45 32 0d 05 | 46 21 42 28 49 25 2d 53 |2 . E2..|F!B(I%-S|
|00001420| 31 2c 4a 25 2d 53 32 29 | 3d 41 28 49 25 2c 4a 25 |1,J%-S2)|=A(I%,J%|
|00001430| 29 3a ed 3a ed 3a e1 0d | 05 50 33 f4 3a 2a 2a 2a |):.:.:..|.P3.:***|
|00001440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001450| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0d 05 5a 1f f4 3a |********|**..Z..:|
|00001470| 20 20 20 20 20 20 20 20 | 20 20 20 43 4f 4d 50 4c |        |   COMPL|
|00001480| 45 58 20 41 52 52 41 59 | 53 0d 05 64 33 f4 3a 2a |EX ARRAY|S..d3.:*|
|00001490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000014b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 05 6e 2e |********|****..n.|
|000014c0| 20 20 20 dd f2 4d 61 74 | 43 49 6e 70 75 74 28 41 |   ..Mat|CInput(A|
|000014d0| 28 29 2c 42 28 29 2c 53 | 74 61 72 74 29 3a ea 49 |(),B(),S|tart):.I|
|000014e0| 25 2c 4a 25 2c 4d 25 2c | 4e 25 0d 05 78 2b 4d 25 |%,J%,M%,|N%..x+M%|
|000014f0| 3d de 28 41 28 29 2c 31 | 29 3a 4e 25 3d 30 3a e7 |=.(A(),1|):N%=0:.|
|00001500| 20 de 28 41 28 29 29 3d | 32 3a 4e 25 3d de 28 41 | .(A())=|2:N%=.(A|
|00001510| 28 29 2c 32 29 0d 05 82 | 2b f1 27 22 45 6e 74 65 |(),2)...|+.'"Ente|
|00001520| 72 20 72 2e 70 2e 20 2c | 20 69 2e 70 2e 20 3a 22 |r r.p. ,| i.p. :"|
|00001530| 27 3a e3 49 25 3d 53 74 | 61 72 74 20 b8 20 4d 25 |':.I%=St|art . M%|
|00001540| 0d 05 8c 0a e7 20 4e 25 | 20 8c 0d 05 96 12 e3 4a |..... N%| ......J|
|00001550| 25 3d 53 74 61 72 74 20 | b8 20 4e 25 0d 05 a0 36 |%=Start |. N%...6|
|00001560| f1 22 52 6f 77 20 22 3b | 49 25 22 20 20 43 6f 6c |."Row ";|I%"  Col|
|00001570| 20 22 3b 4a 25 22 20 3f | 20 22 3b 3a e8 22 22 41 | ";J%" ?| ";:.""A|
|00001580| 28 49 25 2c 4a 25 29 2c | 42 28 49 25 2c 4a 25 29 |(I%,J%),|B(I%,J%)|
|00001590| 3a ed 0d 05 aa 1f cc 20 | f1 3b 49 25 22 20 3f 20 |:...... |.;I%" ? |
|000015a0| 22 3b 3a e8 22 22 41 28 | 49 25 29 2c 42 28 49 25 |";:.""A(|I%),B(I%|
|000015b0| 29 0d 05 b4 09 cd 3a ed | 3a e1 0d 05 be 2e 20 20 |).....:.|:.....  |
|000015c0| 20 dd f2 4d 61 74 43 50 | 72 69 6e 74 28 41 28 29 | ..MatCP|rint(A()|
|000015d0| 2c 42 28 29 2c 53 74 61 | 72 74 29 3a ea 61 25 2c |,B(),Sta|rt):.a%,|
|000015e0| 49 25 2c 4a 25 2c 4b 25 | 0d 05 c8 11 61 25 3d 40 |I%,J%,K%|....a%=@|
|000015f0| 25 3a 40 25 3d 26 34 30 | 42 0d 05 d2 1e 4b 25 3d |%:@%=&40|B....K%=|
|00001600| 30 3a e7 de 28 41 28 29 | 29 3d 32 3a 4b 25 3d de |0:..(A()|)=2:K%=.|
|00001610| 28 41 28 29 2c 32 29 0d | 05 dc 18 e3 49 25 3d 53 |(A(),2).|....I%=S|
|00001620| 74 61 72 74 20 b8 20 de | 28 41 28 29 2c 31 29 0d |tart . .|(A(),1).|
|00001630| 05 e6 0a e7 20 4b 25 20 | 8c 0d 05 f0 25 e3 4a 25 |.... K% |....%.J%|
|00001640| 3d 53 74 61 72 74 20 b8 | 20 4b 25 3a f1 8a 4a 25 |=Start .| K%:..J%|
|00001650| 2a 32 30 29 3b 41 28 49 | 25 2c 4a 25 29 3b 0d 05 |*20);A(I|%,J%);..|
|00001660| fa 23 e7 20 b4 28 42 28 | 49 25 2c 4a 25 29 29 3c |.#. .(B(|I%,J%))<|
|00001670| 30 3a f1 22 2d 6a 22 3b | 3a 20 8b f1 22 2b 6a 22 |0:."-j";|: .."+j"|
|00001680| 3b 0d 06 04 14 f1 3b 94 | 28 42 28 49 25 2c 4a 25 |;.....;.|(B(I%,J%|
|00001690| 29 29 3b 3a ed 0d 06 0e | 0e cc 20 f1 3b 41 28 49 |));:....|.. .;A(I|
|000016a0| 25 29 3b 0d 06 18 20 e7 | 20 b4 28 42 28 49 25 29 |%);... .| .(B(I%)|
|000016b0| 29 3c 30 3a f1 22 2d 6a | 22 3b 3a 20 8b f1 22 2b |)<0:."-j|";: .."+|
|000016c0| 6a 22 3b 0d 06 22 0e f1 | 3b 94 28 42 28 49 25 29 |j";.."..|;.(B(I%)|
|000016d0| 29 0d 06 2c 05 cd 0d 06 | 36 0f ed 3a f1 3a 40 25 |)..,....|6..:.:@%|
|000016e0| 3d 61 25 3a e1 0d 06 40 | 30 20 20 20 dd f2 4d 61 |=a%:...@|0   ..Ma|
|000016f0| 74 43 50 72 6f 64 28 41 | 28 29 2c 42 28 29 2c 43 |tCProd(A|(),B(),C|
|00001700| 28 29 2c 44 28 29 2c 53 | 74 61 72 74 2c 45 28 29 |(),D(),S|tart,E()|
|00001710| 2c 46 28 29 29 0d 06 4a | 1f ea 20 49 25 2c 4a 25 |,F())..J|.. I%,J%|
|00001720| 2c 4b 25 2c 4c 25 2c 4d | 25 2c 4e 25 2c 50 2c 51 |,K%,L%,M|%,N%,P,Q|
|00001730| 2c 52 2c 49 0d 06 54 22 | 4c 25 3d 53 74 61 72 74 |,R,I..T"|L%=Start|
|00001740| 3a e7 de 28 41 28 29 29 | 3d 32 3a 4c 25 3d de 28 |:..(A())|=2:L%=.(|
|00001750| 41 28 29 2c 31 29 0d 06 | 5e 0f 4d 25 3d de 28 43 |A(),1)..|^.M%=.(C|
|00001760| 28 29 2c 31 29 0d 06 68 | 22 4e 25 3d 53 74 61 72 |(),1)..h|"N%=Star|
|00001770| 74 3a e7 de 28 43 28 29 | 29 3d 32 3a 4e 25 3d de |t:..(C()|)=2:N%=.|
|00001780| 28 43 28 29 2c 32 29 0d | 06 72 12 e3 49 25 3d 53 |(C(),2).|.r..I%=S|
|00001790| 74 61 72 74 20 b8 20 4c | 25 0d 06 7c 1a e3 4a 25 |tart . L|%..|..J%|
|000017a0| 3d 53 74 61 72 74 20 b8 | 20 4e 25 3a 50 3d 30 3a |=Start .| N%:P=0:|
|000017b0| 51 3d 30 0d 06 86 12 e3 | 4b 25 3d 53 74 61 72 74 |Q=0.....|K%=Start|
|000017c0| 20 b8 20 4d 25 0d 06 90 | 0a c8 8e 20 b9 20 ca 0d | . M%...|... . ..|
|000017d0| 06 9a 39 c9 20 4c 25 3d | 53 74 61 72 74 3a f2 63 |..9. L%=|Start:.c|
|000017e0| 78 70 72 6f 64 28 41 28 | 4b 25 29 2c 42 28 4b 25 |xprod(A(|K%),B(K%|
|000017f0| 29 2c 43 28 4b 25 2c 4a | 25 29 2c 44 28 4b 25 2c |),C(K%,J|%),D(K%,|
|00001800| 4a 25 29 2c 52 2c 49 29 | 0d 06 a4 39 c9 20 4e 25 |J%),R,I)|...9. N%|
|00001810| 3d 53 74 61 72 74 3a f2 | 63 78 70 72 6f 64 28 41 |=Start:.|cxprod(A|
|00001820| 28 49 25 2c 4b 25 29 2c | 42 28 49 25 2c 4b 25 29 |(I%,K%),|B(I%,K%)|
|00001830| 2c 43 28 4b 25 29 2c 44 | 28 4b 25 29 2c 52 2c 49 |,C(K%),D|(K%),R,I|
|00001840| 29 0d 06 ae 36 7f 3a f2 | 63 78 70 72 6f 64 28 41 |)...6.:.|cxprod(A|
|00001850| 28 49 25 2c 4b 25 29 2c | 42 28 49 25 2c 4b 25 29 |(I%,K%),|B(I%,K%)|
|00001860| 2c 43 28 4b 25 2c 4a 25 | 29 2c 44 28 4b 25 2c 4a |,C(K%,J%|),D(K%,J|
|00001870| 25 29 2c 52 2c 49 29 0d | 06 b8 16 cb 3a 50 3d 50 |%),R,I).|....:P=P|
|00001880| 2b 52 3a 51 3d 51 2b 49 | 3a ed 20 4b 25 0d 06 c2 |+R:Q=Q+I|:. K%...|
|00001890| 0a c8 8e 20 b9 20 ca 0d | 06 cc 1e c9 20 4c 25 3d |... . ..|.... L%=|
|000018a0| 53 74 61 72 74 3a 45 28 | 4a 25 29 3d 50 3a 46 28 |Start:E(|J%)=P:F(|
|000018b0| 4a 25 29 3d 51 0d 06 d6 | 1e c9 20 4e 25 3d 53 74 |J%)=Q...|.. N%=St|
|000018c0| 61 72 74 3a 45 28 49 25 | 29 3d 50 3a 46 28 49 25 |art:E(I%|)=P:F(I%|
|000018d0| 29 3d 51 0d 06 e0 1b 7f | 3a 45 28 49 25 2c 4a 25 |)=Q.....|:E(I%,J%|
|000018e0| 29 3d 50 3a 46 28 49 25 | 2c 4a 25 29 3d 51 0d 06 |)=P:F(I%|,J%)=Q..|
|000018f0| ea 11 cb 3a ed 20 4a 25 | 3a ed 20 49 25 3a e1 0d |...:. J%|:. I%:..|
|00001900| 06 f4 20 20 20 20 dd f2 | 4d 61 74 43 49 6e 76 74 |..    ..|MatCInvt|
|00001910| 28 41 28 29 2c 42 28 29 | 2c 53 74 61 72 74 29 0d |(A(),B()|,Start).|
|00001920| 06 fe 2c ea 20 49 25 2c | 4a 25 2c 4b 25 2c 4e 25 |..,. I%,|J%,K%,N%|
|00001930| 2c 61 25 2c 50 2c 51 2c | 52 2c 49 2c 53 2c 54 3a |,a%,P,Q,|R,I,S,T:|
|00001940| 4e 25 3d de 28 41 28 29 | 2c 31 29 0d 07 08 2e e3 |N%=.(A()|,1).....|
|00001950| 49 25 3d 53 74 61 72 74 | 20 b8 20 4e 25 3a 50 3d |I%=Start| . N%:P=|
|00001960| 41 28 49 25 2c 53 74 61 | 72 74 29 3a 51 3d 42 28 |A(I%,Sta|rt):Q=B(|
|00001970| 49 25 2c 53 74 61 72 74 | 29 0d 07 12 3a e7 50 3d |I%,Start|)...:.P=|
|00001980| 30 20 80 20 51 3d 30 20 | f1 27 22 43 61 6e 27 74 |0 . Q=0 |.'"Can't|
|00001990| 20 49 6e 76 65 72 74 3a | 20 53 69 6e 67 75 6c 61 | Invert:| Singula|
|000019a0| 72 20 6f 72 20 50 69 76 | 6f 74 20 5a 65 72 6f 22 |r or Piv|ot Zero"|
|000019b0| 27 3a e1 0d 07 1c 11 61 | 25 3d 40 25 3a 40 25 3d |':.....a|%=@%:@%=|
|000019c0| 26 37 30 42 0d 07 26 3b | e3 4a 25 3d 53 74 61 72 |&70B..&;|.J%=Star|
|000019d0| 74 20 b8 20 4e 25 2d 31 | 3a f2 63 78 71 75 6f 74 |t . N%-1|:.cxquot|
|000019e0| 28 41 28 49 25 2c 4a 25 | 2b 31 29 2c 42 28 49 25 |(A(I%,J%|+1),B(I%|
|000019f0| 2c 4a 25 2b 31 29 2c 50 | 2c 51 2c 52 2c 49 29 0d |,J%+1),P|,Q,R,I).|
|00001a00| 07 30 1b 41 28 49 25 2c | 4a 25 29 3d 52 3a 42 28 |.0.A(I%,|J%)=R:B(|
|00001a10| 49 25 2c 4a 25 29 3d 49 | 3a ed 0d 07 3a 29 f2 72 |I%,J%)=I|:...:).r|
|00001a20| 65 63 69 70 28 50 2c 51 | 2c 52 2c 49 29 3a 41 28 |ecip(P,Q|,R,I):A(|
|00001a30| 49 25 2c 4e 25 29 3d 52 | 3a 42 28 49 25 2c 4e 25 |I%,N%)=R|:B(I%,N%|
|00001a40| 29 3d 49 0d 07 44 12 e3 | 4b 25 3d 53 74 61 72 74 |)=I..D..|K%=Start|
|00001a50| 20 b8 20 4e 25 0d 07 4e | 0d e7 4b 25 3c 3e 49 25 | . N%..N|..K%<>I%|
|00001a60| 20 8c 0d 07 58 1f 53 3d | 41 28 4b 25 2c 53 74 61 | ...X.S=|A(K%,Sta|
|00001a70| 72 74 29 3a 54 3d 42 28 | 4b 25 2c 53 74 61 72 74 |rt):T=B(|K%,Start|
|00001a80| 29 0d 07 62 37 e3 4a 25 | 3d 53 74 61 72 74 20 b8 |)..b7.J%|=Start .|
|00001a90| 20 4e 25 2d 31 3a f2 63 | 78 70 72 6f 64 28 41 28 | N%-1:.c|xprod(A(|
|00001aa0| 49 25 2c 4a 25 29 2c 42 | 28 49 25 2c 4a 25 29 2c |I%,J%),B|(I%,J%),|
|00001ab0| 53 2c 54 2c 52 2c 49 29 | 0d 07 6c 2a f2 63 78 64 |S,T,R,I)|..l*.cxd|
|00001ac0| 69 66 66 28 41 28 4b 25 | 2c 4a 25 2b 31 29 2c 42 |iff(A(K%|,J%+1),B|
|00001ad0| 28 4b 25 2c 4a 25 2b 31 | 29 2c 52 2c 49 2c 52 2c |(K%,J%+1|),R,I,R,|
|00001ae0| 49 29 0d 07 76 19 41 28 | 4b 25 2c 4a 25 29 3d 52 |I)..v.A(|K%,J%)=R|
|00001af0| 3a 42 28 4b 25 2c 4a 25 | 29 3d 49 0d 07 80 05 ed |:B(K%,J%|)=I.....|
|00001b00| 0d 07 8a 26 f2 63 78 70 | 72 6f 64 28 41 28 49 25 |...&.cxp|rod(A(I%|
|00001b10| 2c 4e 25 29 2c 42 28 49 | 25 2c 4e 25 29 2c 53 2c |,N%),B(I|%,N%),S,|
|00001b20| 54 2c 52 2c 49 29 0d 07 | 94 1b 41 28 4b 25 2c 4e |T,R,I)..|..A(K%,N|
|00001b30| 25 29 3d 2d 52 3a 42 28 | 4b 25 2c 4e 25 29 3d 2d |%)=-R:B(|K%,N%)=-|
|00001b40| 49 0d 07 9e 05 cd 0d 07 | a8 0f ed 3a ed 3a 40 25 |I.......|...:.:@%|
|00001b50| 3d 61 25 3a e1 0d ff    |                         |=a%:... |        |
+--------+-------------------------+-------------------------+--------+--------+