/ Oakland CPM Archive / oakcpm.iso / cpm / misc / apl-z.ark / MATDIV.ACO

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 02 20 20 20 20 20 20 47 | 7a 5e 62 20 6d 61 74 64 |.      G|z^b matd|
|00000010| 69 76 20 61 3c 6d 3c 6e | 3c 70 3c 76 3c 69 3c 6a |iv a<m<n|<p<v<i<j|
|00000020| 3c 73 69 67 6d 61 3c 61 | 6c 66 61 3c 61 69 69 3c |<sigma<a|lfa<aii<|
|00000030| 70 70 3c 70 69 3c 6e 70 | 3c 66 61 63 74 6f 72 3c |pp<pi<np|<factor<|
|00000040| 65 70 73 3c 6d 76 3c 75 | 3c 6e 31 0d 3b 31 30 5b |eps<mv<u|<n1.;10[|
|00000050| 20 7e 2b 2b 32 28 52 52 | 61 7b 29 7d 2f 31 20 32 | ~++2(RR|a{)}/1 2|
|00000060| 28 52 52 62 7b 2f 65 72 | 31 0d 3b 32 30 5b 20 7e |(RRb{/er|1.;20[ ~|
|00000070| 2b 2b 2b 31 59 52 61 7b | 28 31 59 52 62 7b 29 2b |+++1YRa{|(1YRb{)+|
|00000080| 6d 5e 31 59 52 61 7b 23 | 6e 5e 31 55 52 61 7b 2f |m^1YRa{#|n^1URa{/|
|00000090| 65 72 32 0d 3b 33 30 5b | 20 7e 2b 76 5e 31 28 52 |er2.;30[| ~+v^1(R|
|000000a0| 52 62 7b 2f 71 31 0d 3b | 34 30 5b 20 62 5e 2b 6d |Rb{/q1.;|40[ b^+m|
|000000b0| 2c 31 7b 52 2c 62 0d 3b | 35 30 5b 20 71 31 3e 70 |,1{R,b.;|50[ q1>p|
|000000c0| 5e 31 55 52 62 0d 3b 36 | 30 5b 20 70 70 5e 49 6e |^1URb.;6|0[ pp^In|
|000000d0| 0d 3b 37 30 5b 20 66 61 | 63 74 6f 72 5e 2b 22 31 |.;70[ fa|ctor^+"1|
|000000e0| 59 52 61 7b 52 2a 6e 31 | 5e 31 0d 3b 38 30 5b 20 |YRa{R*n1|^1.;80[ |
|000000f0| 6d 76 5e 53 2f 4d 61 0d | 3b 39 30 5b 20 6c 6f 6f |mv^S/Ma.|;90[ loo|
|00000100| 70 3e 66 61 63 74 6f 72 | 5e 66 61 63 74 6f 72 53 |p>factor|^factorS|
|00000110| 4d 61 3b 6e 31 3c 5b 3d | 6d 76 3b 6e 31 5b 0d 3b |Ma;n1<[=|mv;n1[.;|
|00000120| 31 30 30 5b 20 7e 2b 2b | 52 6d 76 7b 26 6e 31 5e |100[ ~++|Rmv{&n1^|
|00000130| 6e 31 3a 31 7b 2f 6c 6f | 6f 70 0d 3b 31 31 30 5b |n1:1{/lo|op.;110[|
|00000140| 20 6c 6f 6f 70 32 3e 7e | 2b 30 25 6e 31 5e 6e 31 | loop2>~|+0%n1^n1|
|00000150| 2a 31 7b 2f 73 6b 69 70 | 0d 3b 31 32 30 5b 20 61 |*1{/skip|.;120[ a|
|00000160| 3b 6e 31 3c 5b 5e 61 3b | 6e 31 3c 5b 2d 66 61 63 |;n1<[^a;|n1<[-fac|
|00000170| 74 6f 72 0d 3b 31 33 30 | 5b 20 7e 6c 6f 6f 70 32 |tor.;130|[ ~loop2|
|00000180| 0d 3b 31 34 30 5b 20 73 | 6b 69 70 3e 6e 70 5e 6e |.;140[ s|kip>np^n|
|00000190| 3a 70 0d 3b 31 35 30 5b | 20 61 5e 61 2c 62 0d 3b |:p.;150[| a^a,b.;|
|000001a0| 31 36 30 5b 20 61 3b 3c | 6e 3a 49 70 5b 5e 62 0d |160[ a;<|n:Ip[^b.|
|000001b0| 3b 31 37 30 5b 20 69 5e | 30 0d 3b 31 38 30 5b 20 |;170[ i^|0.;180[ |
|000001c0| 65 70 73 5e 2b 31 36 50 | 22 31 33 7b 2d 53 2f 6d |eps^+16P|"13{-S/m|
|000001d0| 76 0d 3b 31 39 30 5b 20 | 64 65 63 6f 6d 70 6f 73 |v.;190[ |decompos|
|000001e0| 65 3e 7e 2b 6e 23 6e 31 | 5e 69 5e 31 3a 6a 5e 69 |e>~+n#n1|^i^1:j^i|
|000001f0| 7b 2f 73 6f 6c 76 65 0d | 3b 32 30 30 5b 20 6d 76 |{/solve.|;200[ mv|
|00000200| 5e 2b 2b 22 31 59 52 61 | 7b 2a 6a 3a 70 7b 52 22 |^++"1YRa|{*j:p{R"|
|00000210| 31 0d 3b 32 31 30 5b 20 | 6c 6f 6f 70 33 3e 6d 76 |1.;210[ |loop3>mv|
|00000220| 5e 6d 76 53 4d 2b 2b 52 | 70 69 7b 2a 70 7b 59 70 |^mvSM++R|pi{*p{Yp|
|00000230| 69 5e 6a 55 61 3b 6e 31 | 3c 5b 0d 3b 32 32 30 5b |i^jUa;n1|<[.;220[|
|00000240| 20 7e 2b 2b 31 59 52 61 | 7b 26 6e 31 5e 6e 31 3a | ~++1YRa|{&n1^n1:|
|00000250| 31 7b 2f 6c 6f 6f 70 33 | 0d 3b 32 33 30 5b 20 7e |1{/loop3|.;230[ ~|
|00000260| 2b 65 70 73 26 53 2f 6d | 76 7b 2f 73 69 6e 67 75 |+eps&S/m|v{/singu|
|00000270| 6c 61 72 0d 3b 32 34 30 | 5b 20 70 69 5e 6a 3a 6d |lar.;240|[ pi^j:m|
|00000280| 76 49 53 2f 6d 76 0d 3b | 32 35 30 5b 20 70 70 3b |vIS/mv.;|250[ pp;|
|00000290| 69 2c 70 69 5b 5e 70 70 | 3b 70 69 2c 69 5b 0d 3b |i,pi[^pp|;pi,i[.;|
|000002a0| 32 36 30 5b 20 61 3b 3c | 69 2c 70 69 5b 5e 61 3b |260[ a;<|i,pi[^a;|
|000002b0| 3c 70 69 2c 69 5b 0d 3b | 32 37 30 5b 20 70 69 5e |<pi,i[.;|270[ pi^|
|000002c0| 6a 3a 2b 4d 6a 55 61 3b | 3c 69 5b 7b 49 53 2f 4d |j:+MjUa;|<i[{IS/M|
|000002d0| 6a 55 61 3b 3c 69 5b 0d | 3b 32 38 30 5b 20 61 3b |jUa;<i[.|;280[ a;|
|000002e0| 69 2c 70 69 3c 5b 5e 61 | 3b 70 69 2c 69 3c 5b 0d |i,pi<[^a|;pi,i<[.|
|000002f0| 3b 32 39 30 5b 20 75 5e | 61 69 69 2a 61 6c 66 61 |;290[ u^|aii*alfa|
|00000300| 5e 2b 31 2a 32 2d 30 24 | 61 69 69 5e 61 3b 6e 31 |^+1*2-0$|aii^a;n1|
|00000310| 5e 69 3c 69 5b 7b 2d 2b | 73 69 67 6d 61 5e 3a 2f |^i<i[{-+|sigma^:/|
|00000320| 2b 6a 55 61 3b 3c 69 5b | 7b 50 32 7b 50 30 2e 35 |+jUa;<i[|{P2{P0.5|
|00000330| 0d 3b 33 30 30 5b 20 6c | 6f 6f 70 34 3e 61 3b 6a |.;300[ l|oop4>a;j|
|00000340| 55 49 6d 3c 6e 31 3a 31 | 5b 5e 2b 6a 55 61 3b 3c |UIm<n1:1|[^+jUa;<|
|00000350| 6e 31 3a 31 5b 7b 2a 2b | 75 2c 69 55 61 3b 3c 69 |n1:1[{*+|u,iUa;<i|
|00000360| 5b 7b 2d 2b 3d 73 69 67 | 6d 61 2a 61 69 69 2d 61 |[{-+=sig|ma*aii-a|
|00000370| 6c 66 61 7b 2d 3a 2f 2b | 75 2c 69 55 61 3b 3c 69 |lfa{-:/+|u,iUa;<i|
|00000380| 5b 7b 2d 6a 55 61 3b 3c | 6e 31 3a 31 5b 0d 3b 33 |[{-jUa;<|n1:1[.;3|
|00000390| 31 30 5b 20 7e 2b 2b 22 | 31 59 52 61 7b 27 6e 31 |10[ ~++"|1YRa{'n1|
|000003a0| 5e 6e 31 3a 31 7b 2f 6c | 6f 6f 70 34 0d 3b 33 32 |^n1:1{/l|oop4.;32|
|000003b0| 30 5b 20 7e 64 65 63 6f | 6d 70 6f 73 65 2c 61 3b |0[ ~deco|mpose,a;|
|000003c0| 69 3c 69 5b 5e 61 6c 66 | 61 0d 3b 33 33 30 5b 20 |i<i[^alf|a.;330[ |
|000003d0| 73 6f 6c 76 65 3e 7a 5e | 2b 6e 2c 70 7b 52 30 0d |solve>z^|+n,p{R0.|
|000003e0| 3b 33 34 30 5b 20 69 5e | 4b 4b 52 6e 3a 31 0d 3b |;340[ i^|KKRn:1.;|
|000003f0| 33 35 30 5b 20 71 62 61 | 63 6b 3e 7e 2b 30 25 69 |350[ qba|ck>~+0%i|
|00000400| 5e 69 2a 6e 31 5e 31 7b | 2f 72 65 6f 72 64 65 72 |^i*n1^1{|/reorder|
|00000410| 0d 3b 33 36 30 5b 20 6c | 6f 6f 70 35 3e 7a 3b 69 |.;360[ l|oop5>z;i|
|00000420| 3c 6e 31 5b 5e 2b 2b 6e | 55 61 3b 69 3c 5b 7b 3b |<n1[^++n|Ua;i<[{;|
|00000430| 6e 31 5b 2a 3a 2f 2b 6e | 59 61 3b 69 3c 5b 7b 2d |n1[*:/+n|Ya;i<[{-|
|00000440| 7a 3b 3c 6e 31 5b 7b 3d | 61 3b 69 3c 69 5b 0d 3b |z;<n1[{=|a;i<i[.;|
|00000450| 33 37 30 5b 20 7e 2b 2b | 22 31 59 52 7a 7b 26 6e |370[ ~++|"1YRz{&n|
|00000460| 31 5e 6e 31 3a 31 7b 2f | 6c 6f 6f 70 35 0d 3b 33 |1^n1:1{/|loop5.;3|
|00000470| 38 30 5b 20 7e 71 62 61 | 63 6b 0d 3b 33 39 30 5b |80[ ~qba|ck.;390[|
|00000480| 20 72 65 6f 72 64 65 72 | 3e 7a 5e 7a 3b 11 70 70 | reorder|>z^z;.pp|
|00000490| 3c 5b 0d 3b 34 30 30 5b | 20 6e 31 5e 31 0d 3b 34 |<[.;400[| n1^1.;4|
|000004a0| 31 30 5b 20 66 61 63 74 | 6f 72 5e 2b 17 52 7a 7b |10[ fact|or^+.Rz{|
|000004b0| 52 66 61 63 74 6f 72 0d | 3b 34 32 30 5b 20 6c 6f |Rfactor.|;420[ lo|
|000004c0| 6f 70 36 3e 7a 3b 3c 6e | 31 5b 5e 7a 3b 3c 6e 31 |op6>z;<n|1[^z;<n1|
|000004d0| 5b 2d 66 61 63 74 6f 72 | 3b 6e 31 3c 5b 0d 3b 34 |[-factor|;n1<[.;4|
|000004e0| 33 30 5b 20 7e 2b 2b 22 | 31 59 52 7a 7b 26 6e 31 |30[ ~++"|1YRz{&n1|
|000004f0| 5e 6e 31 3a 31 7b 2f 6c | 6f 6f 70 36 0d 3b 34 34 |^n1:1{/l|oop6.;44|
|00000500| 30 5b 20 7e 76 2f 30 0d | 3b 34 35 30 5b 20 7e 30 |0[ ~v/0.|;450[ ~0|
|00000510| 2d 52 52 7a 5e 2c 7a 0d | 3b 34 36 30 5b 20 65 72 |-RRz^,z.|;460[ er|
|00000520| 31 3e 4b 72 61 6e 6b 20 | 65 72 72 6f 72 4b 0d 3b |1>Krank |errorK.;|
|00000530| 34 37 30 5b 20 7e 0d 3b | 34 38 30 5b 20 65 72 32 |470[ ~.;|480[ er2|
|00000540| 3e 4b 6c 65 6e 67 74 68 | 20 65 72 72 6f 72 4b 0d |>Klength| errorK.|
|00000550| 3b 34 39 30 5b 20 7e 0d | 3b 35 30 30 5b 20 73 69 |;490[ ~.|;500[ si|
|00000560| 6e 67 75 6c 61 72 3e 4b | 64 6f 6d 61 69 6e 20 65 |ngular>K|domain e|
|00000570| 72 72 6f 72 4b 0d 3b 35 | 31 30 5b 20 7e 0d 20 20 |rrorK.;5|10[ ~.  |
|00000580| 20 20 20 20 47 0d 57 01 | 01 05 b3 a5 03 ca f7 4d |    G.W.|.......M|
|00000590| 02 30 bd 02 30 75 01 01 | 05 f7 5f 03 2a 3d 00 15 |.0..0u..|.._.*=..|
|000005a0| 6b 00 1b 1f b9 02 30 00 | 0d 0a 01 fd 57 01 18 4d |k.....0.|....W..M|
|000005b0| a7 5f 01 22 f7 5f 01 c2 | 6e 00 15 92 00 1b 1f d4 |._."._..|n.......|
|000005c0| 02 40 00 0d 09 01 00 d2 | bd 00 1e 75 01 22 93 a7 |.@......|...u."..|
|000005d0| 5f 01 22 39 00 15 ad 00 | 21 1f f5 02 50 00 13 0d |_."9....|!...P...|
|000005e0| 01 00 c8 77 00 14 59 00 | d2 b7 bd 00 c8 77 00 d2 |...w..Y.|.....w..|
|000005f0| 59 00 14 b7 3b 00 15 c8 | 00 23 20 18 02 60 00 15 |Y...;...|.# ..`..|
+--------+-------------------------+-------------------------+--------+--------+