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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 19 00 0a 00 03 98 b8 0c | 50 4f 4c 46 41 43 54 31 |........|POLFACT1|
|00000010| 20 56 45 52 20 32 2e 30 | 0d 20 00 14 00 03 99 0d | VER 2.0|. ......|
|00000020| 55 00 1e 00 03 99 22 20 | 2a 20 50 6f 6c 79 6e 6f |U....." |* Polyno|
|00000030| 6d 69 61 6c 20 66 61 63 | 74 6f 72 69 7a 61 74 69 |mial fac|torizati|
|00000040| 6f 6e 20 6d 6f 64 75 6c | 6f 20 61 20 70 72 69 6d |on modul|o a prim|
|00000050| 65 20 2a 22 0d 8a 00 28 | 00 03 99 22 20 2a 20 67 |e *"...(|..." * g|
|00000060| 69 76 65 73 20 6f 6e 6c | 79 20 61 20 64 65 63 6f |ives onl|y a deco|
|00000070| 6d 70 6f 73 69 74 69 6f | 6e 20 74 79 70 65 20 20 |mpositio|n type  |
|00000080| 20 20 20 20 20 20 20 2a | 22 0d bf 00 32 00 03 99 |       *|"...2...|
|00000090| 22 20 2a 20 75 73 65 20 | 78 20 6f 72 20 58 20 66 |" * use |x or X f|
|000000a0| 6f 72 20 61 20 76 61 72 | 69 61 62 6c 65 20 20 20 |or a var|iable   |
|000000b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 2a 22 0d f6 |        |    *"..|
|000000c0| 00 3c 00 03 99 22 20 2a | 20 65 78 61 6d 70 6c 65 |.<..." *| example|
|000000d0| 20 3a 20 78 5e 33 2b 32 | 2a 78 5e 32 2b 33 2a 78 | : x^3+2|*x^2+3*x|
|000000e0| 2b 34 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |+4      |        |
|000000f0| 20 2a 22 c0 99 0d ff 00 | 46 00 03 98 9e 0d 0d 0a | *".....|F.......|
|00000100| 01 4b 00 03 80 ae c2 c2 | f0 0d 1d 01 50 00 03 b1 |.K......|....P...|
|00000110| 22 66 28 78 29 3d 22 c1 | 85 02 57 00 0d 2a 01 5a |"f(x)=".|..W..*.Z|
|00000120| 00 03 85 02 55 30 d1 22 | 22 0d 41 01 64 00 03 81 |....U0."|".A.d...|
|00000130| 02 49 00 d1 b2 c2 85 02 | 57 00 c2 22 78 58 22 29 |.I......|W.."xX")|
|00000140| 0d 87 01 6e 00 03 8d 26 | 0e 81 02 49 00 8e 85 02 |...n...&|...I....|
|00000150| 55 30 dd d1 80 bc 85 02 | 57 00 c2 81 02 49 00 de |U0......|W....I..|
|00000160| f1 01 00 29 dd 22 5f 58 | 22 c0 85 02 57 00 d1 80 |...)."_X|"...W...|
|00000170| bb 85 02 57 00 c2 81 02 | 49 00 dd f1 01 00 c2 e5 |...W....|I.......|
|00000180| 29 c0 87 f1 64 00 0d 9e | 01 78 00 03 85 02 55 30 |)...d...|.x....U0|
|00000190| d1 80 fd 85 02 55 30 dd | 85 02 57 00 29 0d b3 01 |.....U0.|..W.)...|
|000001a0| 82 00 03 99 c0 99 22 66 | 28 58 29 3d 22 c1 85 02 |......"f|(X)="...|
|000001b0| 55 30 0d c3 01 8c 00 03 | 81 06 41 75 74 6f 73 77 |U0......|..Autosw|
|000001c0| d1 f0 0d d1 01 96 00 03 | f5 04 4d 6f 64 50 00 00 |........|..ModP..|
|000001d0| 0d 08 02 a0 00 05 99 c0 | 99 22 2d 2d 2d 2d 2d 2d |........|."------|
|000001e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000001f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000200| 2d 2d 2d 2d 2d 2d 22 0d | 39 02 aa 00 05 8d d8 0e |------".|9.......|
|00000210| 81 06 41 75 74 6f 73 77 | 8e 83 02 50 00 d1 80 ce |..Autosw|...P....|
|00000220| 81 06 41 75 74 6f 73 77 | 29 c0 a0 81 06 41 75 74 |..Autosw|)....Aut|
|00000230| 6f 73 77 c0 87 f1 e6 00 | 0d 4d 02 b4 00 05 a7 22 |osw.....|.M....."|
|00000240| 4d 6f 64 20 50 3d 22 c1 | 83 02 50 00 0d 5e 02 be |Mod P=".|..P..^..|
|00000250| 00 05 8d 07 0f 83 02 50 | 00 d1 f0 8e bf 0d 85 02 |.......P|........|
|00000260| c8 00 05 c0 af 00 00 b0 | 24 0f 83 02 50 00 d4 f0 |........|$...P...|
|00000270| 8e 81 06 41 75 74 6f 73 | 77 d1 de 83 02 50 00 c0 |...Autos|w....P..|
|00000280| 87 f1 aa 00 0d 9c 02 d2 | 00 05 8d 5d 0f 83 02 50 |........|...]...P|
|00000290| 00 d6 80 d1 83 02 50 00 | 29 8e 99 0d be 02 dc 00 |......P.|).......|
|000002a0| 07 c0 99 22 6e 6f 74 20 | 61 20 70 72 69 6d 65 22 |..."not |a prime"|
|000002b0| c0 80 a4 c0 87 f5 04 4d | 6f 64 50 00 00 0d d8 02 |.......M|odP.....|
|000002c0| e6 00 05 99 22 20 20 20 | 6d 6f 64 75 6c 6f 20 22 |...."   |modulo "|
|000002d0| c1 83 02 50 00 c0 99 0d | 06 03 f0 00 05 85 02 58 |...P....|.......X|
|000002e0| 00 d1 b3 f5 08 50 6f 6c | 66 61 63 74 31 55 f4 28 |.....Pol|fact1U.(|
|000002f0| 85 02 55 30 c2 83 02 50 | 00 29 c0 81 04 4d 6f 6a |..U0...P|.)...Moj|
|00000300| 69 d1 f1 41 00 0d 1d 03 | fa 00 05 89 81 02 49 00 |i..A....|......I.|
|00000310| d1 f1 01 00 8a 80 c2 85 | 02 58 00 29 0d 34 03 04 |........|.X.).4..|
|00000320| 01 07 85 02 57 00 d1 80 | fe 85 02 58 00 c2 81 02 |....W...|...X....|
|00000330| 49 00 29 0d 58 03 0e 01 | 07 99 22 64 65 67 72 65 |I.).X...|.."degre|
|00000340| 65 3d 22 c1 80 ec f1 03 | 00 29 c2 80 fe 85 02 57 |e=".....|.).....W|
|00000350| 00 c2 f1 01 00 29 c1 0d | 69 03 18 01 07 99 22 20 |.....)..|i....." |
|00000360| 74 79 70 65 3d 20 22 c1 | 0d 80 03 22 01 07 89 81 |type= ".|..."....|
|00000370| 02 4a 00 d1 f1 02 00 8a | 80 c2 85 02 57 00 29 0d |.J......|....W.).|
|00000380| 99 03 2c 01 09 81 04 52 | 61 6d 69 d1 80 fe 85 02 |..,....R|ami.....|
|00000390| 57 00 c2 81 02 4a 00 29 | 0d b4 03 36 01 09 8d 00 |W....J.)|...6....|
|000003a0| 00 81 04 52 61 6d 69 8e | 99 80 d3 81 04 4d 6f 6a |...Rami.|.....Moj|
|000003b0| 69 29 c1 0d e5 03 40 01 | 09 c0 8d 84 10 81 04 52 |i)....@.|.......R|
|000003c0| 61 6d 69 d2 f1 01 00 8e | 99 22 28 22 c1 80 bb 80 |ami.....|."("....|
|000003d0| fc 81 04 52 61 6d 69 29 | c2 f1 02 00 c2 e5 29 c1 |...Rami)|......).|
|000003e0| 22 29 22 c1 0d f2 03 4a | 01 09 a0 81 04 4d 6f 6a |")"....J|.....Moj|
|000003f0| 69 0d f9 03 54 01 07 8c | 0d 00 04 5e 01 05 99 0d |i...T...|...^....|
|00000400| 07 04 68 01 05 8c 0d 26 | 04 72 01 05 8d c5 10 80 |..h....&|.r......|
|00000410| c2 85 02 58 00 29 d1 f0 | 8e 99 22 20 63 6f 6e 73 |...X.)..|.." cons|
|00000420| 74 61 6e 74 22 0d 35 04 | 7c 01 03 87 f5 04 4d 6f |tant".5.||.....Mo|
|00000430| 64 70 70 0e 0d 3e 04 86 | 01 03 98 00 00 0d 47 04 |dpp..>..|......G.|
|00000440| 90 01 03 98 00 00 0d 50 | 04 9a 01 03 98 00 00 0d |.......P|........|
|00000450| 6d 04 a4 01 03 f5 08 50 | 6f 6c 66 61 63 74 31 00 |m......P|olfact1.|
|00000460| 00 28 85 02 55 30 c2 83 | 02 50 00 29 0d 8f 04 ae |.(..U0..|.P.)....|
|00000470| 01 03 ba 81 02 49 00 c2 | 81 03 44 65 67 c2 85 02 |.....I..|..Deg...|
|00000480| 55 00 d1 f0 c2 85 03 41 | 6e 73 d1 80 bd 29 0d a2 |U......A|ns...)..|
|00000490| 04 b8 01 03 a4 86 02 5a | 00 b2 db 85 02 55 30 29 |.......Z|.....U0)|
|000004a0| 29 0d af 04 c2 01 03 b2 | 91 d1 83 02 50 00 0d e5 |).......|....P...|
|000004b0| 04 cc 01 03 89 81 02 49 | 00 d1 f0 8a b2 db 85 02 |.......I|........|
|000004c0| 55 30 29 c0 80 ff 85 02 | 55 00 c2 81 02 49 00 29 |U0).....|U....I.)|
|000004d0| d1 80 ff 85 02 55 30 c2 | 81 02 49 00 29 e7 83 02 |.....U0.|..I.)...|
|000004e0| 50 00 c0 8c 0d 00 05 d6 | 01 03 8d 9f 11 b2 db 85 |P.......|........|
|000004f0| 02 55 00 29 d5 f0 8e 95 | 28 85 03 41 6e 73 29 0d |.U.)....|(..Ans).|
|00000500| 27 05 e0 01 03 85 02 55 | 00 d1 b2 dd 85 02 55 00 |'......U|......U.|
|00000510| 29 c0 98 fd 11 52 65 6d | 6f 76 65 43 6f 6e 73 74 |)....Rem|oveConst|
|00000520| 46 61 63 74 6f 72 0d 30 | 05 ea 01 03 98 00 00 0d |Factor.0|........|
|00000530| 55 05 f4 01 03 98 00 00 | 20 67 65 74 20 66 61 63 |U.......| get fac|
|00000540| 74 6f 72 73 20 66 6f 72 | 20 65 61 63 68 20 64 65 |tors for| each de|
|00000550| 67 72 65 65 0d 5e 05 fe | 01 03 98 00 00 0d 70 05 |gree.^..|......p.|
|00000560| 08 02 03 88 f5 07 4d 61 | 6b 65 5a 50 5a 3a f4 0d |......Ma|keZPZ:..|
|00000570| 7f 05 12 02 03 81 03 44 | 65 67 d1 f1 01 00 0d 93 |.......D|eg......|
|00000580| 05 1c 02 03 f5 0a 44 65 | 67 72 65 65 4c 6f 6f 70 |......De|greeLoop|
|00000590| 00 00 0d b0 05 26 02 03 | 85 02 58 00 d1 b3 f5 0d |.....&..|..X.....|
|000005a0| 44 65 67 72 65 65 46 61 | 63 74 6f 72 73 a8 f4 0d |DegreeFa|ctors...|
|000005b0| cf 05 30 02 03 8d 00 00 | 80 c2 85 02 58 00 29 8e |..0.....|....X.).|
|000005c0| 85 03 41 6e 73 dd d1 80 | bd 85 02 58 00 29 0d 01 |..Ans...|...X.)..|
|000005d0| 06 3a 02 03 8d b6 12 b2 | db 85 02 55 00 29 d2 f1 |.:......|...U.)..|
|000005e0| 02 00 e5 81 03 44 65 67 | dd f1 01 00 8e 88 f5 08 |.....Deg|........|
|000005f0| 52 61 69 73 65 5a 50 5a | 6d ed a0 81 03 44 65 67 |RaiseZPZ|m....Deg|
|00000600| 0d 17 06 44 02 03 c0 87 | f5 0a 44 65 67 72 65 65 |...D....|..Degree|
|00000610| 4c 6f 6f 70 22 12 0d 40 | 06 4e 02 03 8d df 12 b2 |Loop"..@|.N......|
|00000620| db 85 02 55 00 29 8e 85 | 03 41 6e 73 dd d1 80 bd |...U.)..|.Ans....|
|00000630| 80 bd b2 db 85 02 55 00 | 29 c2 f1 01 00 29 29 0d |......U.|)....)).|
|00000640| 4a 06 58 02 03 b2 91 d1 | f0 0d 58 06 62 02 03 95 |J.X.....|..X.b...|
|00000650| 28 85 03 41 6e 73 29 0d | 61 06 6c 02 03 98 00 00 |(..Ans).|a.l.....|
|00000660| 0d 80 06 76 02 03 98 00 | 00 20 47 65 74 20 6e 75 |...v....|. Get nu|
|00000670| 6d 62 65 72 20 6f 66 20 | 66 61 63 74 6f 72 73 0d |mber of |factors.|
|00000680| 89 06 80 02 03 98 00 00 | 0d a1 06 8a 02 03 b3 f5 |........|........|
|00000690| 0d 44 65 67 72 65 65 46 | 61 63 74 6f 72 73 00 00 |.DegreeF|actors..|
|000006a0| 0d cb 06 94 02 03 ba 81 | 06 44 65 67 4d 65 6d c2 |........|.DegMem.|
|000006b0| 81 04 44 65 67 47 c2 85 | 02 47 00 c2 85 03 41 6e |..DegG..|.G....An|
|000006c0| 73 c0 81 04 52 61 6d 69 | d1 f0 0d f1 06 9e 02 03 |s...Rami|........|
|000006d0| 85 02 47 00 d1 80 c4 85 | 02 55 00 c2 85 02 5a 00 |..G.....|.U....Z.|
|000006e0| 29 c0 81 04 44 65 67 47 | d1 b2 db 85 02 47 00 29 |)...DegG|.....G.)|
|000006f0| 0d 11 07 a8 02 03 8d b0 | 13 81 04 44 65 67 47 d1 |........|...DegG.|
|00000700| f0 8e 85 03 41 6e 73 d1 | 80 bd 29 c0 87 f1 34 03 |....Ans.|..)...4.|
|00000710| 0d 3b 07 b2 02 03 85 03 | 41 6e 73 d1 80 bd 81 03 |.;......|Ans.....|
|00000720| 44 65 67 29 c0 81 06 44 | 65 67 4d 65 6d d1 81 04 |Deg)...D|egMem...|
|00000730| 44 65 67 47 e8 81 03 44 | 65 67 0d 62 07 bc 02 03 |DegG...D|eg.b....|
|00000740| 85 02 55 00 e8 d1 85 02 | 47 00 c0 8d 01 14 a3 8e |..U.....|G.......|
|00000750| 96 c0 98 00 00 73 79 73 | 74 65 6d 20 65 72 72 6f |.....sys|tem erro|
|00000760| 72 0d 88 07 c6 02 03 85 | 02 47 00 d1 80 c4 85 02 |r.......|.G......|
|00000770| 55 00 c2 85 02 5a 00 29 | c0 81 04 44 65 67 47 d1 |U....Z.)|...DegG.|
|00000780| b2 db 85 02 47 00 29 0d | 98 07 d0 02 03 90 ea 14 |....G.).|........|
|00000790| b2 db 85 02 47 00 29 0d | a5 07 da 02 05 a0 81 04 |....G.).|........|
|000007a0| 52 61 6d 69 0d da 07 e4 | 02 05 89 81 02 49 00 d1 |Rami....|.....I..|
|000007b0| f1 01 00 8a 81 06 44 65 | 67 4d 65 6d de 81 04 44 |......De|gMem...D|
|000007c0| 65 67 47 e8 81 03 44 65 | 67 c0 85 03 41 6e 73 dd |egG...De|g...Ans.|
|000007d0| d1 81 04 52 61 6d 69 c0 | 8c 0d f5 07 ee 02 05 81 |...Rami.|........|
|000007e0| 06 44 65 67 4d 65 6d d1 | 81 04 44 65 67 47 e8 81 |.DegMem.|..DegG..|
|000007f0| 03 44 65 67 0d 1c 08 f8 | 02 05 85 02 55 00 e8 d1 |.Deg....|....U...|
|00000800| 85 02 47 00 c0 8d bb 14 | a3 8e 96 c0 98 00 00 73 |..G.....|.......s|
|00000810| 79 73 74 65 6d 20 65 72 | 72 6f 72 0d 42 08 02 03 |ystem er|ror.B...|
|00000820| 05 85 02 47 00 d1 80 c4 | 85 02 55 00 c2 85 02 5a |...G....|..U....Z|
|00000830| 00 29 c0 81 04 44 65 67 | 47 d1 b2 db 85 02 47 00 |.)...Deg|G.....G.|
|00000840| 29 0d 4b 08 0c 03 03 91 | 2e 14 0d 58 08 16 03 03 |).K.....|...X....|
|00000850| a0 81 04 52 61 6d 69 0d | 80 08 20 03 03 89 81 02 |...Rami.|.. .....|
|00000860| 49 00 d1 f1 01 00 8a 81 | 06 44 65 67 4d 65 6d c0 |I.......|.DegMem.|
|00000870| 85 03 41 6e 73 dd d1 81 | 04 52 61 6d 69 c0 8c 0d |..Ans...|.Rami...|
|00000880| a9 08 2a 03 03 89 81 02 | 49 00 d1 f1 01 00 8a b2 |..*.....|I.......|
|00000890| db 85 02 55 00 29 c0 86 | 02 5a 00 81 02 49 00 29 |...U.)..|.Z...I.)|
|000008a0| e7 d1 85 02 55 00 c0 8c | 0d b7 08 34 03 03 95 28 |....U...|...4...(|
|000008b0| 85 03 41 6e 73 29 0d c0 | 08 3e 03 03 98 00 00 0d |..Ans)..|.>......|
|000008c0| d4 08 48 03 03 98 00 00 | 20 4d 41 4b 45 20 5a 5e |..H.....| MAKE Z^|
|000008d0| 50 2d 5a 0d dd 08 52 03 | 03 98 00 00 0d ee 08 5c |P-Z...R.|.......\|
|000008e0| 03 03 f5 07 4d 61 6b 65 | 5a 50 5a 00 00 0d fe 08 |....Make|ZPZ.....|
|000008f0| 66 03 03 ba 81 02 49 00 | c2 85 02 57 00 0d 25 09 |f.....I.|...W..%.|
|00000900| 70 03 03 8d 00 00 b2 db | 85 02 55 00 29 d2 83 02 |p.......|..U.)...|
|00000910| 50 00 8e 85 02 5a 00 d1 | 5f 58 ef 83 02 50 00 c0 |P....Z..|_X...P..|
|00000920| 87 f1 b6 03 0d 44 09 7a | 03 03 85 02 57 00 d1 80 |.....D.z|....W...|
|00000930| fb f0 c2 f1 01 00 29 c0 | 85 02 5a 00 d1 80 fb f1 |......).|..Z.....|
|00000940| 01 00 29 0d 5d 09 84 03 | 03 89 81 02 49 00 d1 f0 |..).]...|....I...|
|00000950| 8a 80 c2 83 02 50 00 29 | de f1 02 00 0d 86 09 8e |.....P.)|........|
|00000960| 03 05 8d 00 00 80 c3 81 | 02 49 00 c2 83 02 50 00 |........|.I....P.|
|00000970| 29 8e 85 02 5a 00 d1 85 | 02 5a 00 e5 85 02 57 00 |)...Z...|.Z....W.|
|00000980| e7 85 02 55 00 0d 9e 09 | 98 03 05 85 02 57 00 d1 |...U....|.....W..|
|00000990| 85 02 57 00 ef f1 02 00 | e7 85 02 55 00 0d a5 09 |..W.....|...U....|
|000009a0| a2 03 03 8c 0d be 09 ac | 03 03 85 02 5a 00 d1 85 |........|....Z...|
|000009b0| 02 5a 00 e5 85 02 57 00 | e7 85 02 55 00 0d db 09 |.Z....W.|...U....|
|000009c0| b6 03 03 85 02 57 00 d1 | 85 02 5a 00 c0 86 02 5a |.....W..|..Z....Z|
|000009d0| 00 f1 01 00 29 d1 85 02 | 5a 00 0d 17 0a c0 03 03 |....)...|Z.......|
|000009e0| 89 81 02 49 00 d1 f1 02 | 00 8a b2 db 85 02 55 00 |...I....|......U.|
|000009f0| 29 c0 85 02 57 00 d1 85 | 02 57 00 e5 85 02 5a 00 |)...W...|.W....Z.|
|00000a00| e7 85 02 55 00 c0 86 02 | 5a 00 81 02 49 00 29 d1 |...U....|Z...I.).|
|00000a10| 85 02 57 00 c0 8c 0d 36 | 0a ca 03 03 85 02 5a 00 |..W....6|......Z.|
|00000a20| d1 28 85 02 5a 00 de 80 | fb f0 c2 f1 01 00 29 29 |.(..Z...|......))|
|00000a30| e7 85 02 55 00 0d 3d 0a | d4 03 03 95 0d 46 0a de |...U..=.|.....F..|
|00000a40| 03 03 98 00 00 0d 60 0a | e8 03 03 98 00 00 20 4d |......`.|...... M|
|00000a50| 41 4b 45 20 5a 5e 28 50 | 5e 64 65 67 29 2d 5a 0d |AKE Z^(P|^deg)-Z.|
|00000a60| 69 0a f2 03 03 98 00 00 | 0d 7b 0a fc 03 03 f5 08 |i.......|.{......|
|00000a70| 52 61 69 73 65 5a 50 5a | 00 00 0d 8b 0a 06 04 03 |RaiseZPZ|........|
|00000a80| ba 81 02 49 00 c2 85 02 | 57 00 0d a3 0a 10 04 03 |...I....|W.......|
|00000a90| 85 02 57 00 d1 85 02 5a | 00 dd 80 fb f0 c2 f1 01 |..W....Z|........|
|00000aa0| 00 29 0d ba 0a 1a 04 03 | 85 02 5a 00 d1 80 fb 80 |.)......|..Z.....|
|00000ab0| ff 85 02 57 00 c2 f0 29 | 29 0d f0 0a 24 04 03 89 |...W...)|)...$...|
|00000ac0| 81 02 49 00 d1 f1 01 00 | 8a b2 db 85 02 57 00 29 |..I.....|.....W.)|
|00000ad0| c0 85 02 5a 00 dd d1 86 | 02 5a 00 81 02 49 00 29 |...Z....|.Z...I.)|
|00000ae0| e5 80 ff 85 02 57 00 c2 | 81 02 49 00 29 c0 8c 0d |.....W..|..I.)...|
|00000af0| 0f 0b 2e 04 03 85 02 5a | 00 d1 28 85 02 5a 00 de |.......Z|..(..Z..|
|00000b00| 80 fb f0 c2 f1 01 00 29 | 29 e7 85 02 55 00 0d 16 |.......)|)...U...|
|00000b10| 0b 38 04 03 95 0d 00 00 |                         |.8......|        |
+--------+-------------------------+-------------------------+--------+--------+