/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / UBAS821.ZIP / MAILLET4.UB

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 11 00 0a 00 03 98 a6 0c | 4d 41 49 4c 4c 45 54 34 |........|MAILLET4|
|00000010| 0d 44 00 14 00 03 98 d9 | 0c 43 61 72 6c 69 74 7a |.D......|.Carlitz|
|00000020| 27 73 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 4d 61 |'s versi|on of Ma|
|00000030| 69 6c 6c 65 74 27 73 20 | 64 65 74 65 72 6d 69 6e |illet's |determin|
|00000040| 61 6e 74 0d 7f 00 1e 00 | 03 98 14 0d 63 66 2e 20 |ant.....|....cf. |
|00000050| 52 65 76 20 4e 75 6d 62 | 20 54 68 20 4c 65 56 45 |Rev Numb| Th LeVE|
|00000060| 51 55 45 2c 20 43 32 30 | 2d 31 38 20 62 79 20 43 |QUE, C20|-18 by C|
|00000070| 61 72 6c 69 74 7a 20 26 | 20 4f 6c 73 6f 6e 0d b5 |arlitz &| Olson..|
|00000080| 00 28 00 03 98 4a 0d 73 | 61 6d 70 6c 65 20 6f 66 |.(...J.s|ample of|
|00000090| 20 63 61 6c 63 75 6c 61 | 74 69 6f 6e 20 6f 66 20 | calcula|tion of |
|000000a0| 69 6e 74 65 67 65 72 20 | 64 65 74 65 72 6d 69 6e |integer |determin|
|000000b0| 61 6e 74 73 0d d3 00 32 | 00 03 98 68 0d 62 79 20 |ants...2|...h.by |
|000000c0| 75 73 69 6e 67 20 6d 75 | 6c 74 69 2d 6d 6f 64 75 |using mu|lti-modu|
|000000d0| 6c 6f 0d 02 01 3c 00 03 | 98 97 0d 62 65 74 74 65 |lo...<..|...bette|
|000000e0| 72 20 75 70 70 65 72 20 | 62 6f 75 6e 64 20 77 69 |r upper |bound wi|
|000000f0| 6c 6c 20 6d 61 6b 65 20 | 69 74 20 66 61 73 74 65 |ll make |it faste|
|00000100| 72 0d 2c 01 46 00 03 98 | c1 0d 75 73 69 6e 67 20 |r.,.F...|..using |
|00000110| 6d 61 63 68 69 6e 65 20 | 6c 61 6e 67 75 61 67 65 |machine |language|
|00000120| 20 73 75 62 72 6f 75 74 | 69 6e 65 0d 35 01 50 00 | subrout|ine.5.P.|
|00000130| 03 98 ca 0d 0d 56 01 5a | 00 03 80 ad c0 99 22 4d |.....V.Z|......"M|
|00000140| 61 69 6c 6c 65 74 27 73 | 20 64 65 74 65 72 6d 69 |aillet's| determi|
|00000150| 6e 61 6e 74 22 0d 61 01 | 64 00 03 9f de f1 02 00 |nant".a.|d.......|
|00000160| 0d 9d 01 6e 00 03 a4 84 | 02 50 50 f1 32 00 29 c2 |...n....|.PP.2.).|
|00000170| 84 02 44 50 f1 32 00 29 | c0 98 32 0e 70 72 69 6d |..DP.2.)|..2.prim|
|00000180| 65 73 20 66 6f 72 20 6d | 6f 64 75 6c 75 73 20 61 |es for m|odulus a|
|00000190| 6e 64 20 44 45 54 20 6d | 6f 64 20 70 0d be 01 78 |nd DET m|od p...x|
|000001a0| 00 03 a4 82 04 44 65 74 | 70 f1 f4 01 29 c0 80 9c |.....Det|p...)...|
|000001b0| 22 64 65 74 70 22 c2 82 | 04 44 65 74 70 0d d7 01 |"detp"..|.Detp...|
|000001c0| 82 00 03 a7 22 70 72 69 | 6d 65 20 28 50 3e 35 29 |...."pri|me (P>5)|
|000001d0| 22 c1 83 02 50 00 0d 01 | 02 8c 00 03 8d 90 0e 83 |"...P...|........|
|000001e0| 02 50 00 d6 80 d1 83 02 | 50 00 29 8e 99 22 6e 6f |.P......|P.).."no|
|000001f0| 74 20 61 20 70 72 69 6d | 65 2e 22 c0 87 f1 82 00 |t a prim|e.".....|
|00000200| 0d 0a 02 96 00 03 a8 80 | 9a 0d 3f 02 a0 00 03 83 |........|..?.....|
|00000210| 02 4e 00 d1 28 83 02 50 | 00 de f1 01 00 29 e8 f1 |.N..(..P|.....)..|
|00000220| 02 00 de f1 02 00 c0 83 | 02 4e 4e d1 28 83 02 4e |........|.NN.(..N|
|00000230| 00 dd f1 07 00 29 e8 f1 | 08 00 e5 f1 08 00 0d 73 |.....)..|.......s|
|00000240| 02 aa 00 03 a4 82 02 41 | 00 83 02 4e 00 de f1 01 |.......A|...N....|
|00000250| 00 c2 83 02 4e 4e de f1 | 01 00 29 c2 82 02 57 00 |....NN..|..)...W.|
|00000260| 83 02 4e 00 de f1 01 00 | c2 83 02 4e 4e de f1 01 |..N.....|...NN...|
|00000270| 00 29 0d 85 02 b4 00 03 | 88 f5 07 43 41 52 4c 49 |.)......|...CARLI|
|00000280| 54 5a 2e f2 0d 8c 02 be | 00 03 99 0d aa 02 c8 00 |TZ......|........|
|00000290| 03 99 22 4d 61 69 6c 6c | 65 74 27 73 20 64 65 74 |.."Maill|et's det|
|000002a0| 65 72 6d 69 6e 61 6e 74 | 22 0d cd 02 d2 00 03 99 |erminant|".......|
|000002b0| 22 3d 72 65 6c 61 74 69 | 76 65 20 63 6c 61 73 73 |"=relati|ve class|
|000002c0| 20 6e 75 6d 62 65 72 20 | 6f 66 22 c1 0d f1 02 dc | number |of".....|
|000002d0| 00 03 99 83 02 50 00 c1 | 22 74 68 20 63 79 63 6c |.....P..|"th cycl|
|000002e0| 6f 74 6f 6d 69 63 20 66 | 69 65 6c 64 20 69 73 22 |otomic f|ield is"|
|000002f0| 0d 03 03 e6 00 03 99 c0 | 99 80 c0 85 02 44 00 29 |........|.....D.)|
|00000300| c0 99 0d 0c 03 f0 00 03 | 99 80 9a 0d 1c 03 fa 00 |........|........|
|00000310| 03 aa 82 02 57 00 c2 82 | 02 41 00 0d 23 03 04 01 |....W...|.A..#...|
|00000320| 03 bf 0d 2c 03 0e 01 03 | 98 00 00 0d 3d 03 18 01 |...,....|....=...|
|00000330| 03 f5 07 43 41 52 4c 49 | 54 5a 00 00 0d 46 03 22 |...CARLI|TZ...F."|
|00000340| 01 03 98 f8 0f 0d 5a 03 | 2c 01 03 98 00 00 6d 61 |......Z.|,.....ma|
|00000350| 6b 65 20 6d 61 74 72 69 | 78 0d 63 03 36 01 03 98 |ke matri|x.c.6...|
|00000360| 00 00 0d 7a 03 40 01 03 | 99 22 4d 61 6b 69 6e 67 |...z.@..|."Making|
|00000370| 20 6d 61 74 72 69 78 22 | c1 0d 90 03 4a 01 03 89 | matrix"|....J...|
|00000380| 81 02 52 00 d1 f0 8a 83 | 02 4e 00 de f1 01 00 0d |..R.....|.N......|
|00000390| 9b 03 54 01 03 99 22 2e | 22 c1 0d b1 03 5e 01 04 |..T...".|"....^..|
|000003a0| 89 81 02 53 00 d1 f0 8a | 83 02 4e 00 de f1 01 00 |...S....|..N.....|
|000003b0| 0d fb 03 68 01 07 82 02 | 41 00 81 02 52 00 c2 81 |...h....|A...R...|
|000003c0| 02 53 00 29 d1 28 81 02 | 52 00 dd f1 03 00 29 e5 |.S.).(..|R.....).|
|000003d0| 28 81 02 53 00 dd f1 03 | 00 29 e8 83 02 50 00 de |(..S....|.)...P..|
|000003e0| 28 81 02 52 00 dd f1 02 | 00 29 e5 28 81 02 53 00 |(..R....|.).(..S.|
|000003f0| dd f1 03 00 29 e8 83 02 | 50 00 0d 02 04 72 01 04 |....)...|P....r..|
|00000400| 8c 0d 0b 04 7c 01 03 8c | c0 99 0d 14 04 86 01 03 |....|...|........|
|00000410| 98 a9 10 0d 2c 04 90 01 | 03 98 c1 10 67 65 74 20 |....,...|....get |
|00000420| 75 70 70 65 72 20 62 6f | 75 6e 64 0d 35 04 9a 01 |upper bo|und.5...|
|00000430| 03 98 ca 10 0d 51 04 a4 | 01 03 85 06 55 62 6f 75 |.....Q..|....Ubou|
|00000440| 6e 64 d1 b3 f5 08 48 61 | 64 61 6d 61 72 64 63 f2 |nd....Ha|damardc.|
|00000450| 0d 5a 04 ae 01 03 98 ef | 10 0d 77 04 b8 01 03 98 |.Z......|..w.....|
|00000460| 0c 11 64 65 63 69 64 65 | 20 70 72 69 6d 65 73 20 |..decide| primes |
|00000470| 74 6f 20 75 73 65 0d 80 | 04 c2 01 03 98 15 11 0d |to use..|........|
|00000480| 8e 04 cc 01 03 81 02 50 | 63 d1 f1 8e 19 0d bd 04 |.......P|c.......|
|00000490| d6 01 03 83 02 50 50 d1 | 80 ce 81 02 50 63 29 c0 |.....PP.|....Pc).|
|000004a0| 85 02 4d 00 d1 83 02 50 | 50 c0 84 02 50 50 f0 29 |..M....P|P...PP.)|
|000004b0| d1 83 02 50 50 c0 81 02 | 50 52 d1 f0 0d d7 04 e0 |...PP...|PR......|
|000004c0| 01 03 90 ab 11 85 02 4d | 00 d4 f1 02 00 e5 85 06 |.......M|........|
|000004d0| 55 62 6f 75 6e 64 0d 13 | 05 ea 01 06 a1 81 02 50 |Ubound..|.......P|
|000004e0| 63 c0 83 02 50 50 d1 80 | ce 81 02 50 63 29 c0 85 |c...PP..|...Pc)..|
|000004f0| 02 4d 00 d1 85 02 4d 00 | e5 83 02 50 50 c0 a0 81 |.M....M.|...PP...|
|00000500| 02 50 52 c0 84 02 50 50 | 81 02 50 52 29 d1 83 02 |.PR...PP|..PR)...|
|00000510| 50 50 0d 1c 05 f4 01 03 | 91 53 11 0d 50 05 fe 01 |PP......|.S..P...|
|00000520| 03 99 22 55 73 65 22 c1 | 81 02 50 52 dd f1 01 00 |.."Use".|..PR....|
|00000530| c1 8d 00 00 81 02 50 52 | 8e 99 22 70 72 69 6d 65 |......PR|.."prime|
|00000540| 73 3a 22 8f df 11 99 22 | 70 72 69 6d 65 3a 22 0d |s:"...."|prime:".|
|00000550| 59 05 08 02 03 98 ee 11 | 0d 86 05 12 02 03 98 1b |Y.......|........|
|00000560| 12 63 61 6c 63 75 6c 61 | 74 65 20 64 65 74 65 72 |.calcula|te deter|
|00000570| 6d 69 6e 61 6e 74 20 66 | 6f 72 20 65 61 63 68 20 |minant f|or each |
|00000580| 70 72 69 6d 65 0d 8f 05 | 1c 02 03 98 24 12 0d a1 |prime...|....$...|
|00000590| 05 26 02 03 89 81 02 49 | 00 d1 f0 8a 81 02 50 52 |.&.....I|......PR|
|000005a0| 0d de 05 30 02 05 a2 82 | 02 57 00 f0 c3 83 02 4e |...0....|.W.....N|
|000005b0| 00 de f1 01 00 c2 f0 c3 | 83 02 4e 00 de f1 01 00 |........|..N.....|
|000005c0| 29 d1 a2 82 02 41 00 f0 | c3 83 02 4e 00 de f1 01 |)....A..|...N....|
|000005d0| 00 c2 f0 c3 83 02 4e 00 | de f1 01 00 29 0d 04 06 |......N.|....)...|
|000005e0| 3a 02 05 a2 82 02 57 00 | f0 c3 83 02 4e 00 de f1 |:.....W.|....N...|
|000005f0| 01 00 c2 f0 c3 83 02 4e | 00 de f1 01 00 29 de d1 |.......N|.....)..|
|00000600| f1 ff 7f 0d 17 06 44 02 | 05 ac 81 02 49 00 e7 f1 |......D.|....I...|
|00000610| 03 00 e5 f1 1a 00 0d 3c | 06 4e 02 05 83 02 50 50 |.......<|.N....PP|
|00000620| d1 84 02 50 50 81 02 49 | 00 29 c0 99 22 44 45 54 |...PP..I|.).."DET|
|00000630| 20 6d 6f 64 22 c1 83 02 | 50 50 c1 0d 61 06 58 02 | mod"...|PP..a.X.|
|00000640| 05 ae 82 04 44 65 74 70 | 82 02 57 00 f0 c2 f0 29 |....Detp|..W....)|
|00000650| c2 83 02 4e 00 c2 83 02 | 50 50 c2 83 02 44 50 29 |...N....|PP...DP)|
|00000660| 0d 93 06 62 02 05 84 02 | 44 50 81 02 49 00 29 d1 |...b....|DP..I.).|
|00000670| 83 02 44 50 c0 99 22 69 | 73 22 c1 83 02 44 50 c1 |..DP.."i|s"...DP.|
|00000680| c0 8d 22 13 81 02 49 00 | e7 f1 03 00 d1 f1 02 00 |.."...I.|........|
|00000690| 8e 99 0d ac 06 6c 02 03 | 8c c0 8d 00 00 81 02 50 |.....l..|.......P|
|000006a0| 52 e7 f1 03 00 d6 f1 02 | 00 8e 99 0d b5 06 76 02 |R.......|......v.|
|000006b0| 03 98 4a 13 0d d6 06 80 | 02 03 98 6b 13 64 65 63 |..J.....|...k.dec|
|000006c0| 69 64 65 20 65 78 61 63 | 74 20 64 65 74 65 72 6d |ide exac|t determ|
|000006d0| 69 6e 61 6e 74 0d df 06 | 8a 02 03 98 74 13 0d f1 |inant...|....t...|
|000006e0| 06 94 02 03 88 f5 07 43 | 68 69 6e 65 73 65 48 f2 |.......C|hineseH.|
|000006f0| 0d 16 07 9e 02 03 8d 00 | 00 85 02 44 00 d2 85 06 |........|...D....|
|00000700| 55 62 6f 75 6e 64 8e 85 | 02 44 00 d1 85 02 44 00 |Ubound..|.D....D.|
|00000710| de 85 02 4d 00 0d 1d 07 | a8 02 03 95 0d 26 07 b2 |...M....|.....&..|
|00000720| 02 03 98 00 00 0d 38 07 | bc 02 03 f5 08 48 61 64 |......8.|.....Had|
|00000730| 61 6d 61 72 64 00 00 0d | 55 07 c6 02 03 ba 81 02 |amard...|U.......|
|00000740| 49 00 c2 81 02 4a 00 c2 | 85 06 55 62 6f 75 6e 64 |I....J..|..Ubound|
|00000750| d1 f1 01 00 0d 6b 07 d0 | 02 04 89 81 02 49 00 d1 |.....k..|.....I..|
|00000760| f0 8a 83 02 4e 00 de f1 | 01 00 0d 77 07 da 02 07 |....N...|...w....|
|00000770| 85 02 57 00 d1 f0 0d 8d | 07 e4 02 07 89 81 02 4a |..W.....|.......J|
|00000780| 00 d1 f0 8a 83 02 4e 00 | de f1 01 00 0d af 07 ee |......N.|........|
|00000790| 02 0a 85 02 57 00 d1 85 | 02 57 00 dd 82 02 41 00 |....W...|.W....A.|
|000007a0| 81 02 49 00 c2 81 02 4a | 00 29 ef f1 02 00 0d b6 |..I....J|.)......|
|000007b0| 07 f8 02 07 8c 0d d2 07 | 02 03 07 85 06 55 62 6f |........|.....Ubo|
|000007c0| 75 6e 64 d1 85 06 55 62 | 6f 75 6e 64 e5 85 02 57 |und...Ub|ound...W|
|000007d0| 00 0d d9 07 0c 03 04 8c | 0d ed 07 16 03 03 95 28 |........|.......(|
|000007e0| 80 c6 85 06 55 62 6f 75 | 6e 64 29 29 0d f6 07 20 |....Ubou|nd))... |
|000007f0| 03 03 98 00 00 0d 07 08 | 2a 03 03 f5 07 43 68 69 |........|*....Chi|
|00000800| 6e 65 73 65 00 00 0d 12 | 08 34 03 03 ba 81 02 49 |nese....|.4.....I|
|00000810| 00 0d 2f 08 3e 03 04 85 | 02 4d 44 d1 84 02 50 50 |../.>...|.MD...PP|
|00000820| f0 29 c0 85 02 44 00 d1 | 84 02 44 50 f0 29 0d 43 |.)...D..|..DP.).C|
|00000830| 08 48 03 04 89 81 02 49 | 00 d1 f1 01 00 8a 81 02 |.H.....I|........|
|00000840| 50 52 0d 66 08 52 03 07 | 83 02 50 50 d1 84 02 50 |PR.f.R..|..PP...P|
|00000850| 50 81 02 49 00 29 c0 83 | 02 44 31 d1 84 02 44 50 |P..I.)..|.D1...DP|
|00000860| 81 02 49 00 29 0d 82 08 | 5c 03 07 85 02 57 00 d1 |..I.)...|\....W..|
|00000870| 80 db 85 02 4d 44 c2 83 | 02 50 50 29 e5 85 02 4d |....MD..|.PP)...M|
|00000880| 44 0d 96 08 66 03 07 85 | 02 4d 44 d1 85 02 4d 44 |D...f...|.MD...MD|
|00000890| e5 83 02 50 50 0d c1 08 | 70 03 07 85 02 44 00 d1 |...PP...|p....D..|
|000008a0| 28 83 02 44 31 e5 85 02 | 57 00 dd 85 02 44 00 e5 |(..D1...|W....D..|
|000008b0| 28 f1 01 00 de 85 02 57 | 00 29 29 e7 85 02 4d 44 |(......W|.))...MD|
|000008c0| 0d c8 08 7a 03 04 8c 0d | cf 08 84 03 03 95 0d 00 |...z....|........|
|000008d0| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+