/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / Programming / Algorithms Folder / upload / algebra.bas

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3a 00 00 00 00 00 00 | f0 5a 63 6f 70 79 72 69 |.:......|.Zcopyri|
|00000010| 67 68 74 20 31 39 39 34 | 20 62 79 20 53 74 65 70 |ght 1994| by Step|
|00000020| 68 65 6e 20 42 6f 65 72 | 6e 65 72 2c 20 65 79 65 |hen Boer|ner, eye|
|00000030| 20 73 79 73 74 65 6d 73 | 2d 20 00 00 00 44 00 00 | systems|- ...D..|
|00000040| ff c4 00 00 f0 5a 43 49 | 53 2d 37 34 32 30 33 2c |.....ZCI|S-74203,|
|00000050| 32 32 31 37 20 20 20 41 | 4f 4c 2d 49 53 49 53 49 |2217   A|OL-ISISI|
|00000060| 4e 43 20 20 42 4d 55 47 | 2c 20 49 4e 54 45 52 4e |NC  BMUG|, INTERN|
|00000070| 45 54 20 45 59 45 53 59 | 53 40 43 52 4c 2e 43 4f |ET EYESY|S@CRL.CO|
|00000080| 4d 00 00 2c 00 00 ff ba | 00 00 f0 5a 4d 41 59 20 |M..,....|...ZMAY |
|00000090| 4e 4f 54 20 42 45 20 55 | 53 45 44 20 46 4f 52 20 |NOT BE U|SED FOR |
|000000a0| 43 4f 4d 4d 45 52 43 49 | 41 4c 20 47 41 49 4e 00 |COMMERCI|AL GAIN.|
|000000b0| 00 0c 00 04 ff d2 00 00 | f0 16 20 62 00 00 00 42 |........|.. b...B|
|000000c0| 00 05 ff f2 00 00 f0 13 | 20 20 20 73 6f 6c 76 65 |........|   solve|
|000000d0| 20 73 69 6d 75 6c 74 61 | 6e 65 6f 75 73 20 70 6f | simulta|neous po|
|000000e0| 6c 79 6e 6f 6d 69 61 6c | 20 65 71 75 61 74 69 6f |lynomial| equatio|
|000000f0| 6e 73 20 74 77 6f 20 61 | 74 20 61 20 74 69 6d 65 |ns two a|t a time|
|00000100| 00 00 00 34 00 06 ff bc | 00 00 f0 13 20 20 20 6f |...4....|....   o|
|00000110| 72 20 74 68 65 20 66 69 | 72 73 74 20 76 61 72 69 |r the fi|rst vari|
|00000120| 61 62 6c 65 20 6c 65 78 | 69 63 6f 67 72 61 70 68 |able lex|icograph|
|00000130| 69 63 61 6c 6c 79 00 00 | 00 22 00 07 ff ca 00 00 |ically..|."......|
|00000140| f0 13 20 20 20 75 73 65 | 73 20 42 65 7a 6f 75 74 |..   use|s Bezout|
|00000150| 73 20 65 6c 69 6d 69 6e | 61 6e 74 00 00 32 00 08 |s elimin|ant..2..|
|00000160| ff dc 00 00 f0 13 20 20 | 20 68 61 73 20 73 6f 6d |......  | has som|
|00000170| 65 20 62 75 67 73 20 2d | 20 75 73 65 73 20 42 65 |e bugs -| uses Be|
|00000180| 7a 6f 75 74 73 20 65 6c | 69 6d 69 6e 61 6e 74 00 |zouts el|iminant.|
|00000190| 00 2e 00 09 ff cc 00 00 | f2 08 20 23 31 2c 20 22 |........|.. #1, "|
|000001a0| 73 6f 6c 76 65 22 2c 28 | 34 2c 33 38 29 2d 28 36 |solve",(|4,38)-(6|
|000001b0| 35 30 2c 35 30 30 29 3a | f0 28 20 31 30 30 00 00 |50,500):|.( 100..|
|000001c0| 00 3a 00 0a ff d0 00 00 | f0 64 20 30 2c 20 5f 63 |.:......|.d 0, _c|
|000001d0| 61 73 65 49 6e 73 65 6e | 73 69 74 69 76 65 20 5f |aseInsen|sitive _|
|000001e0| 73 74 72 52 65 73 6f 75 | 72 63 65 20 5f 6d 61 63 |strResou|rce _mac|
|000001f0| 73 62 75 67 4c 61 62 65 | 6c 73 00 00 00 0e 00 0b |sbugLabe|ls......|
|00000200| ff c4 00 00 f0 19 20 41 | 2d 5a 00 00 00 10 00 0c |...... A|-Z......|
|00000210| ff f0 00 00 5f 4e 54 20 | 3d 20 33 30 30 00 00 10 |...._NT |= 300...|
|00000220| 00 0d ff ee 00 00 5f 4e | 46 20 3d 20 32 30 00 00 |......_N|F = 20..|
|00000230| 00 10 00 0e ff ee 00 00 | 5f 4e 56 20 3d 20 31 30 |........|_NV = 10|
|00000240| 00 00 00 12 00 0f ff ee | 00 00 5f 6d 61 78 70 77 |........|.._maxpw|
|00000250| 72 20 3d 20 35 00 00 3a | 00 10 ff ec 00 00 f0 0a |r = 5..:|........|
|00000260| 20 63 6f 65 66 28 5f 4e | 54 29 2c 70 6f 6c 79 28 | coef(_N|T),poly(|
|00000270| 5f 4e 54 29 2c 4e 53 28 | 5f 4e 46 29 2c 70 72 69 |_NT),NS(|_NF),pri|
|00000280| 6d 65 28 5f 4e 56 29 2c | 76 61 72 24 28 5f 4e 56 |me(_NV),|var$(_NV|
|00000290| 29 00 00 1a 00 11 ff c4 | 00 00 4e 53 4e 46 3d 30 |).......|..NSNF=0|
|000002a0| 3a 4e 46 3d 32 3a 6e 76 | 61 72 3d 30 00 00 00 56 |:NF=2:nv|ar=0...V|
|000002b0| 00 12 ff e4 00 00 50 72 | 69 6d 65 28 31 29 3d 32 |......Pr|ime(1)=2|
|000002c0| 3a 70 72 69 6d 65 28 32 | 29 3d 33 3a 70 72 69 6d |:prime(2|)=3:prim|
|000002d0| 65 28 33 29 3d 35 3a 70 | 72 69 6d 65 28 34 29 3d |e(3)=5:p|rime(4)=|
|000002e0| 37 3a 70 72 69 6d 65 28 | 35 29 3d 31 31 3a 70 72 |7:prime(|5)=11:pr|
|000002f0| 69 6d 65 28 36 29 3d 31 | 33 3a 70 72 69 6d 65 28 |ime(6)=1|3:prime(|
|00000300| 37 29 3d 31 37 00 00 0c | 00 13 ff a8 00 00 f0 1f |7)=17...|........|
|00000310| 20 f0 66 00 00 40 00 14 | ff f2 00 02 f0 61 20 f2 | .f..@..|.....a .|
|00000320| 02 20 66 6f 72 6d 32 28 | 4e 4e 29 3a f0 0b 20 41 |. form2(|NN):.. A|
|00000330| 24 3a f0 31 20 22 3e 22 | 3b 61 24 3a 6c 61 3d f4 |$:.1 ">"|;a$:la=.|
|00000340| 0f 28 41 24 29 3a 6b 3d | 4e 53 28 4e 4e 29 3a 64 |.(A$):k=|NS(NN):d|
|00000350| 24 3d 22 22 00 00 00 2c | 00 15 ff be 02 04 66 3d |$=""...,|......f=|
|00000360| 31 3a 66 61 63 3d 30 3a | f0 01 20 69 3d 31 20 f6 |1:fac=0:|.. i=1 .|
|00000370| 04 20 6c 61 3a 63 24 3d | f4 32 28 61 24 2c 69 2c |. la:c$=|.2(a$,i,|
|00000380| 31 29 00 00 00 0c 00 16 | ff d2 04 08 f0 53 20 63 |1)......|.....S c|
|00000390| 24 00 00 38 00 17 ff f2 | 08 08 f0 5a 43 41 53 45 |$..8....|...ZCASE|
|000003a0| 20 22 2b 22 3a 66 3d 31 | 3a 63 6f 65 66 28 4b 29 | "+":f=1|:coef(K)|
|000003b0| 3d 67 3a 70 6f 6c 79 24 | 28 4b 29 3d 64 24 3a 64 |=g:poly$|(K)=d$:d|
|000003c0| 24 3d 22 22 3a 4b 3d 4b | 2b 31 00 00 00 38 00 18 |$="":K=K|+1...8..|
|000003d0| ff c6 08 08 f0 5a 43 41 | 53 45 20 22 2d 22 3a 66 |.....ZCA|SE "-":f|
|000003e0| 3d 2d 31 3a 63 6f 65 66 | 28 4b 29 3d 67 3a 70 6f |=-1:coef|(K)=g:po|
|000003f0| 6c 79 24 28 4b 29 3d 64 | 24 3a 64 24 3d 22 22 3a |ly$(K)=d|$:d$="":|
|00000400| 4b 3d 4b 2b 31 00 00 32 | 00 19 ff c6 06 08 f0 54 |K=K+1..2|.......T|
|00000410| 20 22 30 22 2c 22 31 22 | 2c 22 32 22 2c 22 33 22 | "0","1"|,"2","3"|
|00000420| 2c 22 34 22 2c 22 35 22 | 2c 22 36 22 2c 22 37 22 |,"4","5"|,"6","7"|
|00000430| 2c 22 38 22 2c 22 39 22 | 00 00 00 20 00 1a ff cc |,"8","9"|... ....|
|00000440| 08 08 66 61 63 3d 66 61 | 63 2a 31 30 2b f4 11 28 |..fac=fa|c*10+..(|
|00000450| 63 24 29 2d f4 11 28 22 | 30 22 29 00 00 40 00 1b |c$)-..("|0")..@..|
|00000460| ff de 06 08 f0 54 20 3a | f0 15 3a f0 0f 20 66 3c |.....T :|..:.. f<|
|00000470| 3e 30 20 f6 05 20 f0 0f | 20 66 61 63 3c 3e 30 20 |>0 .. ..| fac<>0 |
|00000480| 67 3d 66 61 63 2a 66 3a | 66 61 63 3d 30 3a 66 3d |g=fac*f:|fac=0:f=|
|00000490| 30 20 3a f0 15 20 67 3d | 66 3a 66 3d 30 00 00 10 |0 :.. g=|f:f=0...|
|000004a0| 00 1c ff be 08 08 64 24 | 3d 64 24 2b 63 24 00 00 |......d$|=d$+c$..|
|000004b0| 00 0c 00 1d ff ee 04 04 | f0 1f 20 f0 53 00 00 44 |........|.. .S..D|
|000004c0| 00 1e ff f2 02 02 f0 07 | 20 69 3a 63 6f 65 66 28 |........| i:coef(|
|000004d0| 4b 29 3d 66 61 63 2a 66 | 3a f0 5a 70 6f 6c 79 24 |K)=fac*f|:.Zpoly$|
|000004e0| 28 4b 29 3d 64 24 3a 4b | 3d 4b 2b 31 3a 70 6f 6c |(K)=d$:K|=K+1:pol|
|000004f0| 79 24 28 4b 29 3d 22 22 | 3a 4e 53 28 4e 4e 2b 31 |y$(K)=""|:NS(NN+1|
|00000500| 29 3d 4b 00 00 0c 00 1f | ff ba 00 00 f0 1f 20 f2 |)=K.....|...... .|
|00000510| 02 00 00 30 00 20 ff f2 | 00 02 f0 61 20 f2 02 20 |...0. ..|...a .. |
|00000520| 66 6f 72 6d 28 4e 4e 29 | 3a f0 0b 20 41 24 3a f0 |form(NN)|:.. A$:.|
|00000530| 31 20 22 3e 22 3b 61 24 | 3a 6c 61 3d f4 0f 28 41 |1 ">";a$|:la=..(A|
|00000540| 24 29 00 00 00 24 00 21 | ff ce 02 02 6b 3d 4e 53 |$)...$.!|....k=NS|
|00000550| 28 4e 4e 29 3a 64 24 3d | 22 22 3a 6e 24 3d 22 22 |(NN):d$=|"":n$=""|
|00000560| 3a 69 3d 31 3a 73 3d 31 | 00 00 00 60 00 22 ff da |:i=1:s=1|...`."..|
|00000570| 02 02 22 6e 75 6d 22 63 | 24 3d f4 32 28 61 24 2c |.."num"c|$=.2(a$,|
|00000580| 69 2c 31 29 3a f0 0f 20 | 28 63 24 3e 3d 22 30 22 |i,1):.. |(c$>="0"|
|00000590| 20 f6 07 20 63 24 3c 3d | 22 39 22 29 20 f6 08 20 | .. c$<=|"9") .. |
|000005a0| 63 24 3d 22 2b 22 20 f6 | 08 20 63 24 3d 22 2d 22 |c$="+" .|. c$="-"|
|000005b0| 20 f6 05 20 6e 24 3d 6e | 24 2b 63 24 3a 69 3d 69 | .. n$=n|$+c$:i=i|
|000005c0| 2b 31 3a f0 0d 20 22 6e | 75 6d 22 00 00 76 00 23 |+1:.. "n|um"..v.#|
|000005d0| ff 9e 02 02 22 61 6c 66 | 22 63 24 3d f4 32 28 61 |...."alf|"c$=.2(a|
|000005e0| 24 2c 69 2c 31 29 3a f0 | 0f 20 63 24 3c 3e 22 22 |$,i,1):.|. c$<>""|
|000005f0| 20 f6 07 20 28 63 24 3c | 22 30 22 20 f6 08 20 63 | .. (c$<|"0" .. c|
|00000600| 24 3e 22 39 22 29 20 f6 | 07 20 63 24 3c 3e 22 2b |$>"9") .|. c$<>"+|
|00000610| 22 20 f6 07 20 20 63 24 | 3c 3e 22 2d 22 20 f6 07 |" ..  c$|<>"-" ..|
|00000620| 20 63 24 3c 3e 22 3d 22 | 20 f6 05 20 64 24 3d 64 | c$<>"="| .. d$=d|
|00000630| 24 2b 63 24 3a 69 3d 69 | 2b 31 3a f0 0d 20 22 61 |$+c$:i=i|+1:.. "a|
|00000640| 6c 66 22 00 00 30 00 24 | ff 88 02 02 f0 0f 20 6e |lf"..0.$|...... n|
|00000650| 24 3d 22 2b 22 20 f6 08 | 20 6e 24 3d 22 2d 22 20 |$="+" ..| n$="-" |
|00000660| f6 08 20 6e 24 3d 22 22 | 20 f6 05 20 6e 24 3d 6e |.. n$=""| .. n$=n|
|00000670| 24 2b 22 31 22 00 00 34 | 00 25 ff ce 02 02 63 6f |$+"1"..4|.%....co|
|00000680| 65 66 28 4b 29 3d f4 10 | 28 4e 24 29 2a 73 3a f0 |ef(K)=..|(N$)*s:.|
|00000690| 11 20 22 70 6f 6c 79 22 | 3a 64 24 3d 22 22 3a 6e |. "poly"|:d$="":n|
|000006a0| 24 3d 22 22 3a 4b 3d 4b | 2b 31 00 00 00 26 00 26 |$="":K=K|+1...&.&|
|000006b0| ff ca 02 02 f0 0f 20 f4 | 32 28 61 24 2c 69 2c 31 |...... .|2(a$,i,1|
|000006c0| 29 3d 22 3d 22 20 f6 05 | 20 73 3d 2d 31 3a 69 3d |)="=" ..| s=-1:i=|
|000006d0| 69 2b 31 00 00 1c 00 27 | ff d8 02 02 f0 0f 20 63 |i+1....'|...... c|
|000006e0| 24 3c 3e 22 22 20 f6 05 | 20 f0 0d 20 22 6e 75 6d |$<>"" ..| .. "num|
|000006f0| 22 00 00 1e 00 28 ff e2 | 02 02 4e 53 28 4e 4e 2b |"....(..|..NS(NN+|
|00000700| 31 29 3d 4b 3a 4e 53 4e | 46 3d 4b 3a f0 6f 20 f2 |1)=K:NSN|F=K:.o .|
|00000710| 02 00 00 38 00 29 ff e0 | 02 04 22 70 6f 6c 79 22 |...8.)..|.."poly"|
|00000720| 70 6f 6c 79 28 6b 29 3d | 31 3a f0 01 20 6c 6c 3d |poly(k)=|1:.. ll=|
|00000730| 31 20 f6 04 20 f4 0f 28 | 64 24 29 3a 63 63 24 3d |1 .. ..(|d$):cc$=|
|00000740| f4 32 28 64 24 2c 6c 6c | 2c 31 29 00 00 14 00 2a |.2(d$,ll|,1)....*|
|00000750| ff c6 04 06 f0 00 20 f0 | 0f 20 63 63 24 3c 3e 22 |...... .|. cc$<>"|
|00000760| 22 00 00 18 00 2b ff ea | 06 08 f0 01 20 6e 76 3d |"....+..|.... nv=|
|00000770| 31 20 f6 04 20 5f 4e 56 | 2d 31 00 00 00 22 00 2c |1 .. _NV|-1...".,|
|00000780| ff e6 08 08 f0 0f 20 76 | 61 72 24 28 6e 76 29 3d |...... v|ar$(nv)=|
|00000790| 22 22 20 f6 05 20 f0 0d | 20 22 4e 56 56 22 00 00 |"" .. ..| "NVV"..|
|000007a0| 00 3c 00 2d ff dc 08 08 | f0 0f 20 76 61 72 24 28 |.<.-....|.. var$(|
|000007b0| 6e 76 29 3d 63 63 24 20 | f6 05 20 70 6f 6c 79 28 |nv)=cc$ |.. poly(|
|000007c0| 6b 29 3d 70 6f 6c 79 28 | 6b 29 2a 70 72 69 6d 65 |k)=poly(|k)*prime|
|000007d0| 28 6e 76 29 3a f0 0d 20 | 22 4e 4c 4c 22 00 00 0c |(nv):.. |"NLL"...|
|000007e0| 00 2e ff c2 06 06 f0 07 | 20 6e 76 00 00 3a 00 2f |........| nv..:./|
|000007f0| ff f2 06 06 22 4e 56 56 | 22 70 6f 6c 79 28 6b 29 |...."NVV|"poly(k)|
|00000800| 3d 70 6f 6c 79 28 6b 29 | 2a 70 72 69 6d 65 28 6e |=poly(k)|*prime(n|
|00000810| 76 29 3a 76 61 72 24 28 | 6e 76 29 3d 63 63 24 3a |v):var$(|nv)=cc$:|
|00000820| 6e 76 61 72 3d 6e 76 00 | 00 0c 00 30 ff c4 04 04 |nvar=nv.|...0....|
|00000830| f0 1f 20 f0 0f 00 00 36 | 00 31 ff f2 02 02 22 4e |.. ....6|.1...."N|
|00000840| 4c 4c 22 f0 07 20 6c 6c | 20 20 20 20 20 20 20 20 |LL".. ll|        |
|00000850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 0a |        |    ....|
|00000870| 00 32 ff c8 02 02 f0 12 | 00 00 00 0c 00 33 ff f4 |.2......|.....3..|
|00000880| 00 00 f0 1f 20 f2 02 00 | 00 3e 00 34 ff f2 00 02 |.... ...|.>.4....|
|00000890| f0 61 20 f2 02 20 70 72 | 28 4e 4e 2c 67 63 64 2c |.a .. pr|(NN,gcd,|
|000008a0| 67 63 64 78 2c 4e 4e 4e | 29 3a f0 31 20 22 50 4f |gcdx,NNN|):.1 "PO|
|000008b0| 4c 59 22 3b 4e 4e 3b 22 | 3a 22 3b 3a 4e 53 4e 4e |LY";NN;"|:";:NSNN|
|000008c0| 3d 4e 53 28 4e 4e 29 00 | 00 26 00 35 ff c0 02 04 |=NS(NN).|.&.5....|
|000008d0| f0 01 20 6b 3d 4e 53 4e | 4e 20 f6 04 20 4e 53 4e |.. k=NSN|N .. NSN|
|000008e0| 4e 2b 4e 4e 4e 3a 61 3d | 63 6f 65 66 28 6b 29 00 |N+NNN:a=|coef(k).|
|000008f0| 00 12 00 36 ff d8 04 06 | f0 00 20 f0 0f 20 61 3c |...6....|.. .. a<|
|00000900| 3e 30 00 00 00 26 00 37 | ff ec 06 06 f0 0f 20 61 |>0...&.7|...... a|
|00000910| 3e 30 20 20 f6 05 20 f0 | 31 20 22 2b 22 3b 20 3a |>0  .. .|1 "+"; :|
|00000920| f0 15 20 f0 31 20 22 2d | 22 3b 00 00 00 30 00 38 |.. .1 "-|";...0.8|
|00000930| ff d8 06 06 f0 0f 20 f4 | 14 28 61 29 3c 3e 31 20 |...... .|.(a)<>1 |
|00000940| f6 08 20 70 6f 6c 79 28 | 6b 29 3d 31 20 f6 05 20 |.. poly(|k)=1 .. |
|00000950| f0 31 20 f4 14 28 61 29 | 2f 67 63 64 3b 00 00 24 |.1 ..(a)|/gcd;..$|
|00000960| 00 39 ff ce 06 08 70 3d | 70 6f 6c 79 28 6b 29 2f |.9....p=|poly(k)/|
|00000970| 67 63 64 78 3a f0 01 20 | 69 3d 31 20 f6 04 20 6e |gcdx:.. |i=1 .. n|
|00000980| 76 61 72 00 00 46 00 3a | ff da 08 08 22 42 4b 4b |var..F.:|...."BKK|
|00000990| 22 f0 0f 20 28 70 20 f6 | 0a 20 70 72 69 6d 65 28 |".. (p .|. prime(|
|000009a0| 69 29 29 3d 30 20 f6 05 | 20 f0 31 20 76 61 72 24 |i))=0 ..| .1 var$|
|000009b0| 28 69 29 3b 3a 70 3d 70 | 2f 70 72 69 6d 65 28 69 |(i);:p=p|/prime(i|
|000009c0| 29 3a f0 0d 20 22 42 4b | 4b 22 00 00 00 0c 00 3b |):.. "BK|K".....;|
|000009d0| ff b8 06 06 f0 07 20 69 | 00 00 00 0c 00 3c ff f2 |...... i|.....<..|
|000009e0| 04 04 f0 1f 20 f0 0f 00 | 00 0e 00 3d ff f2 02 02 |.... ...|...=....|
|000009f0| f0 07 20 6b 3a f0 31 00 | 00 0c 00 3e ff f0 00 00 |.. k:.1.|...>....|
|00000a00| f0 1f 20 f2 02 00 00 18 | 00 3f ff f2 00 02 f0 61 |.. .....|.?.....a|
|00000a10| 20 f2 02 20 67 63 64 31 | 28 61 2c 67 63 64 29 00 | .. gcd1|(a,gcd).|
|00000a20| 00 32 00 40 ff e6 02 02 | f0 0f 20 61 3e 67 63 64 |.2.@....|.. a>gcd|
|00000a30| 20 f6 05 20 66 69 72 3d | 61 3a 73 65 63 3d 67 63 | .. fir=|a:sec=gc|
|00000a40| 64 20 3a f0 15 20 66 69 | 72 3d 67 63 64 3a 73 65 |d :.. fi|r=gcd:se|
|00000a50| 63 3d 61 00 00 28 00 41 | ff cc 02 04 f0 33 3a 74 |c=a..(.A|.....3:t|
|00000a60| 69 72 3d 66 69 72 20 f6 | 0a 20 73 65 63 3a 66 69 |ir=fir .|. sec:fi|
|00000a70| 72 3d 73 65 63 3a 73 65 | 63 3d 74 69 72 00 00 2e |r=sec:se|c=tir...|
|00000a80| 00 42 ff d6 02 02 f0 34 | 20 74 69 72 3c 3d 31 3a |.B.....4| tir<=1:|
|00000a90| f0 0f 20 73 65 63 3d 30 | 20 f6 05 20 67 63 64 3d |.. sec=0| .. gcd=|
|00000aa0| 66 69 72 20 3a f0 15 20 | 67 63 64 3d 31 00 00 12 |fir :.. |gcd=1...|
|00000ab0| 00 43 ff d0 00 00 f0 1f | 20 f2 02 20 3d 20 67 63 |.C......| .. = gc|
|00000ac0| 64 00 00 20 00 44 ff ec | 00 02 f0 61 20 f2 02 20 |d.. .D..|...a .. |
|00000ad0| 72 65 73 75 6c 74 28 61 | 61 2c 62 62 2c 76 74 73 |result(a|a,bb,vts|
|00000ae0| 73 29 00 00 00 42 00 45 | ff de 02 02 61 3d 4e 53 |s)...B.E|....a=NS|
|00000af0| 28 61 61 29 3a 62 3d 4e | 53 28 62 62 29 3a 6e 62 |(aa):b=N|S(bb):nb|
|00000b00| 3d 4e 53 28 62 62 2b 31 | 29 2d 4e 53 28 62 62 29 |=NS(bb+1|)-NS(bb)|
|00000b10| 2d 31 3a 6e 61 3d 4e 53 | 28 61 61 2b 31 29 2d 4e |-1:na=NS|(aa+1)-N|
|00000b20| 53 28 61 61 29 2d 31 00 | 00 2e 00 46 ff bc 02 04 |S(aa)-1.|...F....|
|00000b30| f0 01 20 69 3d 62 20 f6 | 04 20 62 2b 6e 62 3a 70 |.. i=b .|. b+nb:p|
|00000b40| 69 6a 3d 70 6f 6c 79 28 | 69 29 3a 63 69 6a 3d 63 |ij=poly(|i):cij=c|
|00000b50| 6f 65 66 28 69 29 00 00 | 00 1c 00 47 ff d0 04 06 |oef(i)..|...G....|
|00000b60| f0 00 20 f0 0f 20 28 50 | 49 4a 20 f6 0a 20 76 74 |.. .. (P|IJ .. vt|
|00000b70| 73 73 29 3d 30 00 00 4e | 00 48 ff e2 06 08 f0 01 |ss)=0..N|.H......|
|00000b80| 20 72 3d 61 20 f6 04 20 | 61 2b 4e 61 3a 71 3d 70 | r=a .. |a+Na:q=p|
|00000b90| 6f 6c 79 28 72 29 2a 70 | 69 6a 2f 76 74 73 73 3a |oly(r)*p|ij/vtss:|
|00000ba0| f0 0f 20 28 70 6f 6c 79 | 28 72 29 20 f6 0a 20 76 |.. (poly|(r) .. v|
|00000bb0| 74 73 73 29 3c 3e 30 20 | f6 05 20 f0 11 20 22 61 |tss)<>0 |.. .. "a|
|00000bc0| 64 64 73 22 00 00 00 0c | 00 49 ff b0 06 06 f0 07 |dds"....|.I......|
|00000bd0| 20 72 00 00 00 12 00 4a | ff f2 02 02 f0 1f 20 f0 | r.....J|...... .|
|00000be0| 0f 3a f0 07 20 69 00 00 | 00 2e 00 4b ff ec 02 04 |.:.. i..|...K....|
|00000bf0| f0 01 20 6a 3d 61 20 f6 | 04 20 61 2b 4e 61 3a 70 |.. j=a .|. a+Na:p|
|00000c00| 69 6a 3d 70 6f 6c 79 28 | 6a 29 3a 63 69 6a 3d 2d |ij=poly(|j):cij=-|
|00000c10| 63 6f 65 66 28 6a 29 00 | 00 1c 00 4c ff d0 04 06 |coef(j).|...L....|
|00000c20| f0 00 20 f0 0f 20 28 50 | 49 4a 20 f6 0a 20 76 74 |.. .. (P|IJ .. vt|
|00000c30| 73 73 29 3d 30 00 00 4e | 00 4d ff e2 06 08 f0 01 |ss)=0..N|.M......|
|00000c40| 20 72 3d 62 20 f6 04 20 | 62 2b 4e 62 3a 71 3d 70 | r=b .. |b+Nb:q=p|
|00000c50| 6f 6c 79 28 72 29 2a 70 | 69 6a 2f 76 74 73 73 3a |oly(r)*p|ij/vtss:|
|00000c60| f0 0f 20 28 70 6f 6c 79 | 28 72 29 20 f6 0a 20 76 |.. (poly|(r) .. v|
|00000c70| 74 73 73 29 3c 3e 30 20 | f6 05 20 f0 11 20 22 61 |tss)<>0 |.. .. "a|
|00000c80| 64 64 73 22 00 00 00 0c | 00 4e ff b0 06 06 f0 07 |dds"....|.N......|
|00000c90| 20 72 00 00 00 18 00 4f | ff f2 02 02 f0 1f 20 f0 | r.....O|...... .|
|00000ca0| 0f 3a f0 07 20 6a 3a f0 | 6f 20 f2 02 00 00 00 30 |.:.. j:.|o .....0|
|00000cb0| 00 50 ff e6 02 02 22 61 | 64 64 73 22 3a 71 3d 70 |.P...."a|dds":q=p|
|00000cc0| 6f 6c 79 28 72 29 2a 70 | 69 6a 2f 76 74 73 73 3a |oly(r)*p|ij/vtss:|
|00000cd0| 63 6f 66 3d 63 69 6a 2a | 63 6f 65 66 28 72 29 00 |cof=cij*|coef(r).|
|00000ce0| 00 1c 00 51 ff ce 02 04 | f0 01 20 6b 3d 4e 53 28 |...Q....|.. k=NS(|
|00000cf0| 4e 46 29 20 f6 04 20 4e | 53 4e 46 2d 31 00 00 2e |NF) .. N|SNF-1...|
|00000d00| 00 52 ff e2 04 04 f0 0f | 20 71 3d 70 6f 6c 79 28 |.R......| q=poly(|
|00000d10| 6b 29 20 f6 05 20 63 6f | 65 66 28 6b 29 3d 63 6f |k) .. co|ef(k)=co|
|00000d20| 66 2b 63 6f 65 66 28 6b | 29 3a f0 12 00 00 00 34 |f+coef(k|):.....4|
|00000d30| 00 53 ff d0 02 02 f0 07 | 20 6b 3a 70 6f 6c 79 28 |.S......| k:poly(|
|00000d40| 4e 53 4e 46 29 3d 71 3a | 63 6f 65 66 28 4e 53 4e |NSNF)=q:|coef(NSN|
|00000d50| 46 29 3d 63 6f 66 3a 4e | 53 4e 46 3d 4e 53 4e 46 |F)=cof:N|SNF=NSNF|
|00000d60| 2b 31 00 00 00 0a 00 54 | ff ca 02 02 f0 12 00 00 |+1.....T|........|
|00000d70| 00 0c 00 55 ff f4 00 00 | f0 1f 20 f2 02 00 00 36 |...U....|.. ....6|
|00000d80| 00 56 ff f2 00 00 f0 13 | 20 20 20 20 20 20 20 20 |.V......|        |
|00000d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000da0| 20 20 20 20 20 20 20 20 | 20 6d 61 69 6e 20 72 6f |        | main ro|
|00000db0| 75 74 69 6e 65 00 00 56 | 00 57 ff c8 fe 00 f0 0b |utine..V|.W......|
|00000dc0| 20 4e 46 2c 76 74 73 24 | 3a 46 4e 46 3d 4e 46 2d | NF,vts$|:FNF=NF-|
|00000dd0| 31 3a f0 01 20 69 3d 30 | 20 f6 04 20 4e 46 2d 31 |1:.. i=0| .. NF-1|
|00000de0| 3a f2 02 20 66 6f 72 6d | 28 69 29 3a f2 02 20 70 |:.. form|(i):.. p|
|00000df0| 72 28 69 2c 31 2c 31 2c | 4e 53 28 69 2b 31 29 2d |r(i,1,1,|NS(i+1)-|
|00000e00| 4e 53 28 69 29 2d 31 29 | 3a f0 07 20 69 00 00 42 |NS(i)-1)|:.. i..B|
|00000e10| 00 58 ff a8 00 00 f0 11 | 20 22 76 61 72 73 74 6f |.X......| "varsto|
|00000e20| 73 6f 6c 76 65 22 3a f0 | 31 20 22 73 6f 6c 76 69 |solve":.|1 "solvi|
|00000e30| 6e 67 20 66 6f 72 20 22 | 3b 76 61 72 24 28 76 74 |ng for "|;var$(vt|
|00000e40| 73 29 3b 76 74 73 3b 70 | 76 74 73 3b 76 74 73 73 |s);vts;p|vts;vtss|
|00000e50| 00 00 00 24 00 59 ff bc | 00 02 f0 01 20 6b 6b 3d |...$.Y..|.... kk=|
|00000e60| 31 20 f6 04 20 46 4e 46 | 3a 61 61 3d 6b 6b 2d 31 |1 .. FNF|:aa=kk-1|
|00000e70| 3a 62 62 3d 6b 6b 00 00 | 00 3e 00 5a ff da 02 04 |:bb=kk..|.>.Z....|
|00000e80| f0 33 3a 4e 53 28 4e 46 | 29 3d 4e 53 4e 46 3a f2 |.3:NS(NF|)=NSNF:.|
|00000e90| 02 20 72 65 73 75 6c 74 | 28 61 61 2c 62 62 2c 76 |. result|(aa,bb,v|
|00000ea0| 74 73 73 29 3a 4e 4e 4e | 3d 4e 53 4e 46 2d 4e 53 |tss):NNN|=NSNF-NS|
|00000eb0| 28 4e 46 29 2d 31 00 00 | 00 2c 00 5b ff c0 04 04 |(NF)-1..|.,.[....|
|00000ec0| f0 11 20 22 67 63 64 73 | 22 3a f2 02 20 70 72 28 |.. "gcds|":.. pr(|
|00000ed0| 4e 46 2c f4 14 28 67 63 | 64 29 2c 67 63 64 78 2c |NF,..(gc|d),gcdx,|
|00000ee0| 4e 4e 4e 29 00 00 00 20 | 00 5c ff d2 04 06 7a 3d |NNN)... |.\....z=|
|00000ef0| 30 3a f0 01 20 69 3d 4e | 53 28 4e 46 29 20 f6 04 |0:.. i=N|S(NF) ..|
|00000f00| 20 4e 53 4e 46 2d 31 00 | 00 36 00 5d ff de 06 06 | NSNF-1.|.6.]....|
|00000f10| f0 0f 20 f4 05 28 28 70 | 6f 6c 79 28 69 29 20 f6 |.. ..((p|oly(i) .|
|00000f20| 0a 20 70 76 74 73 29 3d | 30 20 f6 08 20 63 6f 65 |. pvts)=|0 .. coe|
|00000f30| 66 28 69 29 3d 30 29 20 | f6 05 20 7a 3d 31 00 00 |f(i)=0) |.. z=1..|
|00000f40| 00 1c 00 5e ff c8 06 06 | 70 6f 6c 79 28 69 29 3d |...^....|poly(i)=|
|00000f50| 70 6f 6c 79 28 69 29 2a | 70 76 74 73 00 00 00 20 |poly(i)*|pvts... |
|00000f60| 00 5f ff e2 04 04 f0 07 | 20 49 3a 61 61 3d 62 62 |._......| I:aa=bb|
|00000f70| 3a 62 62 3d 4e 46 3a 4e | 46 3d 4e 46 2b 31 00 00 |:bb=NF:N|F=NF+1..|
|00000f80| 00 2a 00 60 ff de 02 02 | f0 34 20 7a 3d 30 3a f0 |.*.`....|.4 z=0:.|
|00000f90| 31 20 22 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |1 "*****|********|
|00000fa0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 22 00 00 0c 00 61 |********|**"....a|
|00000fb0| ff d4 00 00 f0 07 20 6b | 6b 00 00 0a 00 62 ff f2 |...... k|k....b..|
|00000fc0| 00 00 f0 14 00 00 00 2a | 00 63 ff f4 00 02 22 76 |.......*|.c...."v|
|00000fd0| 61 72 73 74 6f 73 6f 6c | 76 65 22 3a 76 74 73 3d |arstosol|ve":vts=|
|00000fe0| 31 3a f0 01 20 69 3d 31 | 20 f6 04 20 6e 76 61 72 |1:.. i=1| .. nvar|
|00000ff0| 00 00 00 38 00 64 ff d4 | 00 00 f0 0f 20 76 61 72 |...8.d..|.... var|
|00001000| 24 28 69 29 3d 76 74 73 | 24 20 f6 05 20 76 74 73 |$(i)=vts|$ .. vts|
|00001010| 3d 69 3a 70 76 74 73 3d | 70 72 69 6d 65 28 76 74 |=i:pvts=|prime(vt|
|00001020| 73 29 20 3a f0 15 20 f0 | 07 20 69 00 00 1e 00 65 |s) :.. .|. i....e|
|00001030| ff c6 00 00 76 74 73 73 | 3d 31 3a 70 70 73 3d 70 |....vtss|=1:pps=p|
|00001040| 76 74 73 5e 5f 6d 61 78 | 70 77 72 00 00 46 00 66 |vts^_max|pwr..F.f|
|00001050| ff e0 00 02 f0 01 20 69 | 3d 30 20 f6 04 20 4e 53 |...... i|=0 .. NS|
|00001060| 4e 46 2d 31 3a 67 67 3d | f2 02 20 67 63 64 31 28 |NF-1:gg=|.. gcd1(|
|00001070| 70 70 73 2c 70 6f 6c 79 | 28 69 29 29 3a f0 0f 20 |pps,poly|(i)):.. |
|00001080| 67 67 3e 76 74 73 73 20 | f6 05 20 76 74 73 73 3d |gg>vtss |.. vtss=|
|00001090| 67 67 00 00 00 18 00 67 | ff b8 00 00 f0 07 20 69 |gg.....g|...... i|
|000010a0| 3a f0 12 20 20 20 20 20 | 20 20 20 20 00 00 00 3c |:..     |    ...<|
|000010b0| 00 68 ff e6 00 00 22 67 | 63 64 73 22 4e 53 4e 4e |.h...."g|cds"NSNN|
|000010c0| 3d 4e 53 28 4e 46 29 3a | 67 63 64 3d f4 14 28 63 |=NS(NF):|gcd=..(c|
|000010d0| 6f 65 66 28 4e 53 4e 4e | 29 29 3a 67 63 64 78 3d |oef(NSNN|)):gcdx=|
|000010e0| 70 6f 6c 79 28 4e 53 4e | 4e 29 00 00 00 1c 00 69 |poly(NSN|N).....i|
|000010f0| ff c2 00 02 f0 01 20 6b | 3d 4e 53 4e 4e 20 f6 04 |...... k|=NSNN ..|
|00001100| 20 4e 53 4e 4e 2b 4e 4e | 4e 00 00 24 00 6a ff e2 | NSNN+NN|N..$.j..|
|00001110| 02 02 67 63 64 3d f2 02 | 20 67 63 64 31 28 f4 14 |..gcd=..| gcd1(..|
|00001120| 28 63 6f 65 66 28 6b 29 | 29 2c 67 63 64 29 00 00 |(coef(k)|),gcd)..|
|00001130| 00 36 00 6b ff da 02 02 | f0 0f 20 70 6f 6c 79 28 |.6.k....|.. poly(|
|00001140| 6b 29 3c 3e 31 20 f6 05 | 20 67 63 64 78 3d f2 02 |k)<>1 ..| gcdx=..|
|00001150| 20 67 63 64 31 28 f4 14 | 28 70 6f 6c 79 28 6b 29 | gcd1(..|(poly(k)|
|00001160| 29 2c 67 63 64 78 29 00 | 00 0e 00 6c ff c8 00 00 |),gcdx).|...l....|
|00001170| f0 07 20 6b 3a f0 12 00 | 00 0a 00 6d ff f0 00 00 |.. k:...|...m....|
|00001180| f0 1f 00 00 00 30 00 6e | ff f4 00 00 f0 08 20 32 |.....0.n|...... 2|
|00001190| 2c 22 59 22 2c 22 59 59 | 2b 33 58 59 2d 59 2d 32 |,"Y","YY|+3XY-Y-2|
|000011a0| 58 58 2b 32 58 2d 32 22 | 2c 22 2d 58 58 2b 59 59 |XX+2X-2"|,"-XX+YY|
|000011b0| 2b 58 2b 31 22 00 00 36 | 00 6f ff ce 00 00 f0 08 |+X+1"..6|.o......|
|000011c0| 20 33 2c 22 78 22 2c 22 | 33 78 2b 32 79 2b 34 7a | 3,"x","|3x+2y+4z|
|000011d0| 3d 35 22 2c 22 34 78 2d | 33 79 2d 32 7a 3d 36 22 |=5","4x-|3y-2z=6"|
|000011e0| 2c 22 35 78 2d 79 2b 32 | 7a 3d 37 22 00 00 00 3a |,"5x-y+2|z=7"...:|
|000011f0| 00 70 ff c8 00 00 f0 08 | 20 33 2c 22 59 22 2c 22 |.p......| 3,"Y","|
|00001200| 42 58 2d 41 59 2d 44 55 | 22 2c 22 41 58 2b 42 59 |BX-AY-DU|","AX+BY|
|00001210| 2b 43 52 2d 44 44 22 2c | 22 58 58 2b 59 59 2b 5a |+CR-DD",|"XX+YY+Z|
|00001220| 5a 2d 55 55 2d 56 56 22 | 00 00 00 30 00 71 ff c4 |Z-UU-VV"|...0.q..|
|00001230| 00 00 f0 08 20 32 2c 22 | 59 22 2c 22 2d 32 59 59 |.... 2,"|Y","-2YY|
|00001240| 2b 33 59 58 2b 32 59 2b | 58 58 2d 58 2d 32 22 2c |+3YX+2Y+|XX-X-2",|
|00001250| 22 59 59 2d 59 2d 58 58 | 2d 31 22 00 00 0a ff ff |"YY-Y-XX|-1".....|
|00001260| ff ce ff e4 f0 12 00 00 |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+