> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 14 08 01 00 8F 20 2A 2A 2A 20 42 41 49 52 |....... *** BAIR|
00000010: 53 54 4F 57 00 26 08 02 00 8F 20 20 20 20 20 57 |STOW.&.... W|
00000020: 20 48 41 57 45 53 00 2C 08 03 00 8F 00 45 08 04 | HAWES.,.....E..|
00000030: 00 8F 20 2A 2A 2A 20 50 45 54 20 55 53 45 52 20 |.. *** PET USER |
00000040: 47 52 4F 55 50 00 61 08 05 00 8F 20 20 20 20 20 |GROUP.a.... |
00000050: 53 4F 46 54 57 41 52 45 20 45 58 43 48 41 4E 47 |SOFTWARE EXCHANG|
00000060: 45 00 76 08 06 00 8F 20 20 20 20 20 50 4F 20 42 |E.v.... PO B|
00000070: 4F 58 20 33 37 31 00 97 08 07 00 8F 20 20 20 20 |OX 371...... |
00000080: 20 4D 4F 54 47 4F 4D 45 52 59 56 49 4C 4C 45 2C | MOTGOMERYVILLE,|
00000090: 50 41 20 31 39 33 36 00 9D 08 08 00 8F 00 AB 08 |PA 1936.........|
000000A0: 0A 00 97 35 39 34 36 38 2C 31 32 00 B4 08 38 4A |...59468,12...8J|
000000B0: 99 22 93 22 00 D8 08 42 4A 8F 20 50 52 4F 47 52 |."."...BJ. PROGR|
000000C0: 41 4D 20 53 55 42 4D 49 54 54 45 44 20 42 59 20 |AM SUBMITTED BY |
000000D0: 57 2E 20 48 41 57 45 53 00 F3 08 4C 4A 8F 20 48 |W. HAWES...LJ. H|
000000E0: 41 4C 49 46 41 58 2C 20 4E 2E 53 2E 20 43 41 4E |ALIFAX, N.S. CAN|
000000F0: 41 44 41 00 0B 09 56 4A 99 22 50 52 4F 47 52 41 |ADA...VJ."PROGRA|
00000100: 4D 20 42 41 49 52 53 54 4F 57 22 00 11 09 58 4A |M BAIRSTOW"...XJ|
00000110: 99 00 37 09 20 4E 99 22 50 52 4F 47 52 41 4D 20 |..7. N."PROGRAM |
00000120: 54 4F 20 53 4F 4C 56 45 20 41 4E 20 4E 27 54 48 |TO SOLVE AN N'TH|
00000130: 20 4F 52 44 45 52 22 00 5E 09 22 4E 99 22 50 4F | ORDER".^."N."PO|
00000140: 4C 59 4E 4F 4D 49 41 4C 20 45 51 55 41 54 49 4F |LYNOMIAL EQUATIO|
00000150: 4E 20 4F 46 20 54 48 45 20 46 4F 52 4D 22 00 82 |N OF THE FORM"..|
00000160: 09 24 4E 99 22 59 5E 4E 20 2B 20 41 31 2A 59 5E |.$N."Y^N + A1*Y^|
00000170: 28 4E 2D 31 29 20 2B 2E 2E 2E 2E 2B 41 4E 20 3D |(N-1) +....+AN =|
00000180: 20 30 00 A6 09 26 4E 99 22 57 48 45 52 45 20 41 | 0...&N."WHERE A|
00000190: 31 2C 41 32 2C 2E 2E 2E 2E 2C 41 4E 20 41 52 45 |1,A2,....,AN ARE|
000001A0: 20 52 45 41 4C 2E 00 CB 09 28 4E 99 22 42 41 49 | REAL....(N."BAI|
000001B0: 52 53 54 4F 57 27 53 20 49 54 45 52 41 54 49 56 |RSTOW'S ITERATIV|
000001C0: 45 20 4D 45 54 48 4F 44 20 49 53 00 EA 09 2A 4E |E METHOD IS...*N|
000001D0: 99 22 55 53 45 44 20 54 4F 20 59 49 45 4C 44 20 |."USED TO YIELD |
000001E0: 53 55 43 43 45 53 53 49 56 45 00 0A 0A 2C 4E 99 |SUCCESSIVE...,N.|
000001F0: 22 51 55 41 44 52 41 54 49 43 20 46 41 43 54 4F |"QUADRATIC FACTO|
00000200: 52 53 20 41 4E 44 20 54 48 45 00 28 0A 2E 4E 99 |RS AND THE.(..N.|
00000210: 22 52 45 53 55 4C 54 41 4E 54 20 52 45 44 55 43 |"RESULTANT REDUC|
00000220: 45 44 20 4F 52 44 45 52 00 39 0A 30 4E 99 22 50 |ED ORDER.9.0N."P|
00000230: 4F 4C 59 4E 4F 4D 49 41 4C 00 3F 0A 34 4E 99 00 |OLYNOMIAL.?.4N..|
00000240: 5F 0A 36 4E 99 22 50 52 45 53 53 20 41 4E 59 20 |_.6N."PRESS ANY |
00000250: 4B 45 59 20 57 48 45 4E 20 52 45 41 44 59 22 00 |KEY WHEN READY".|
00000260: 74 0A 38 4E A1 41 24 3A 8B 41 24 B2 22 22 A7 32 |t.8N.A$:.A$."".2|
00000270: 30 30 32 34 00 7D 0A 84 4E 99 22 93 22 00 A2 0A |0024.}..N."."...|
00000280: 86 4E 85 22 45 4E 54 45 52 20 4F 52 44 45 52 20 |.N."ENTER ORDER |
00000290: 4E 20 4F 46 20 50 4F 4C 59 4E 4F 4D 49 41 4C 22 |N OF POLYNOMIAL"|
000002A0: 3B 4E 00 B2 0A 8E 4E 50 B2 30 3A 51 B2 30 3A 5A |;N....NP.0:Q.0:Z|
000002B0: B2 30 00 CD 0A 98 4E 86 41 28 4E 29 2C 42 28 4E |.0....N.A(N),B(N|
000002C0: 29 2C 43 28 4E 29 3A 43 28 30 29 B2 31 00 D8 0A |),C(N):C(0).1...|
000002D0: A2 4E 81 4C B2 31 A4 4E 00 F0 0A AC 4E 99 22 45 |.N.L.1.N....N."E|
000002E0: 4E 54 45 52 20 41 22 3B 4C 3B 3A 85 41 28 4C 29 |NTER A";L;:.A(L)|
000002F0: 00 F7 0A B6 4E 82 4C 00 FF 0A BB 4E 99 3A 99 00 |....N.L....N.:..|
00000300: 22 0B C0 4E 42 28 31 29 B2 41 28 31 29 AB 50 3A |"..NB(1).A(1).P:|
00000310: 42 28 32 29 B2 41 28 32 29 AB 50 AC 42 28 31 29 |B(2).A(2).P.B(1)|
00000320: AB 51 00 2D 0B CA 4E 81 4B B2 33 A4 4E 00 4D 0B |.Q.-..N.K.3.N.M.|
00000330: D4 4E 42 28 4B 29 B2 41 28 4B 29 AB 50 AC 42 28 |.NB(K).A(K).P.B(|
00000340: 4B AB 31 29 AB 51 AC 42 28 4B AB 32 29 00 54 0B |K.1).Q.B(K.2).T.|
00000350: DE 4E 82 4B 00 77 0B E8 4E 43 28 31 29 B2 42 28 |.N.K.w..NC(1).B(|
00000360: 31 29 AB 50 3A 43 28 32 29 B2 42 28 32 29 AB 50 |1).P:C(2).B(2).P|
00000370: AC 43 28 31 29 AB 51 00 82 0B F2 4E 81 4B B2 33 |.C(1).Q....N.K.3|
00000380: A4 4E 00 A2 0B F7 4E 43 28 4B 29 B2 42 28 4B 29 |.N....NC(K).B(K)|
00000390: AB 50 AC 43 28 4B AB 31 29 AB 51 AC 43 28 4B AB |.P.C(K.1).Q.C(K.|
000003A0: 32 29 00 A9 0B FC 4E 82 4B 00 BE 0B 06 4F 43 42 |2)....N.K....OCB|
000003B0: B2 43 28 4E AB 31 29 AB 42 28 4E AB 31 29 00 DF |.C(N.1).B(N.1)..|
000003C0: 0B 10 4F 44 50 B2 42 28 4E AB 31 29 AC 43 28 4E |..ODP.B(N.1).C(N|
000003D0: AB 32 29 AB 42 28 4E 29 AC 43 28 4E AB 33 29 00 |.2).B(N).C(N.3).|
000003E0: 03 0C 15 4F 44 50 B2 44 50 AD 28 43 28 4E AB 32 |...ODP.DP.(C(N.2|
000003F0: 29 AC 43 28 4E AB 32 29 AB 43 42 AC 43 28 4E AB |).C(N.2).CB.C(N.|
00000400: 33 29 29 00 20 0C 1A 4F 44 51 B2 42 28 4E 29 AC |3)). ..ODQ.B(N).|
00000410: 43 28 4E AB 32 29 AB 42 28 4E AB 31 29 AC 43 42 |C(N.2).B(N.1).CB|
00000420: 00 44 0C 1F 4F 44 51 B2 44 51 AD 28 43 28 4E AB |.D..ODQ.DQ.(C(N.|
00000430: 32 29 AC 43 28 4E AB 32 29 AB 43 42 AC 43 28 4E |2).C(N.2).CB.C(N|
00000440: AB 33 29 29 00 56 0C 24 4F 50 B2 50 AA 44 50 3A |.3)).V.$OP.P.DP:|
00000450: 51 B2 51 AA 44 51 00 6E 0C 2E 4F 4D B2 B6 28 44 |Q.Q.DQ.n..OM..(D|
00000460: 50 29 AA B6 28 44 51 29 3A 5A B2 5A AA 31 00 94 |P)..(DQ):Z.Z.1..|
00000470: 0C 38 4F 99 22 91 22 3B 22 49 54 45 52 41 54 49 |.8O.".";"ITERATI|
00000480: 4F 4E 20 23 22 3B 5A 3B 22 20 45 52 52 4F 52 20 |ON #";Z;" ERROR |
00000490: 3D 22 3B 4D 00 AA 0C 42 4F 8B 4D B3 2E 30 30 30 |=";M...BO.M..000|
000004A0: 30 30 30 31 A7 32 30 33 32 30 00 B5 0C 4C 4F 89 |0001.20320...LO.|
000004B0: 32 30 31 36 30 00 BB 0C 60 4F 99 00 C9 0C 74 4F |20160...`O....tO|
000004C0: 99 22 50 20 3D 20 22 3B 50 00 D7 0C 7E 4F 99 22 |."P = ";P...~O."|
000004D0: 51 20 3D 20 22 3B 51 00 DD 0C 88 4F 99 00 04 0D |Q = ";Q....O....|
000004E0: 92 4F 99 22 50 20 26 20 51 20 41 52 45 20 41 20 |.O."P & Q ARE A |
000004F0: 51 55 41 44 52 41 54 49 43 20 46 41 43 54 4F 52 |QUADRATIC FACTOR|
00000500: 20 4F 46 22 00 25 0D 9C 4F 99 22 54 48 45 20 46 | OF".%..O."THE F|
00000510: 4F 52 4D 20 59 5E 32 20 2B 50 2A 59 20 2B 20 51 |ORM Y^2 +P*Y + Q|
00000520: 20 3D 20 30 22 00 2B 0D A6 4F 99 00 51 0D B0 4F | = 0".+..O..Q..O|
00000530: 99 22 54 48 45 20 52 45 53 55 4C 54 41 4E 54 20 |."THE RESULTANT |
00000540: 46 41 43 54 4F 52 20 49 53 20 4F 46 20 54 48 45 |FACTOR IS OF THE|
00000550: 22 00 7C 0D BA 4F 99 22 46 4F 52 4D 3A 20 59 5E |".|..O."FORM: Y^|
00000560: 28 4E 2D 32 29 20 2B 20 42 31 59 28 4E 2D 33 29 |(N-2) + B1Y(N-3)|
00000570: 2B 2E 2E 2E 2B 42 28 4E 2D 32 29 22 00 8A 0D C4 |+...+B(N-2)"....|
00000580: 4F 99 22 57 48 45 52 45 3A 22 00 97 0D CE 4F 81 |O."WHERE:"....O.|
00000590: 4B B2 31 A4 4E AB 32 00 AD 0D D8 4F 99 22 42 22 |K.1.N.2....O."B"|
000005A0: 3B 4B 3B 22 20 3D 20 22 3B 42 28 4B 29 00 B4 0D |;K;" = ";B(K)...|
000005B0: E2 4F 82 4B 00 BA 0D EC 4F 80 00 00 00 24 |.O.K....O....$ |
....... *** BAIRSTOW.&.... W HAWES.,
.....E.... *** PET USER GROUP.A....
SOFTWARE EXCHANGE.V.... PO BOX 371..
.... MOTGOMERYVILLE,PA 1936.........
...59468,12...8J.".".X.BJ. PROGRAM SUBMI
TTED BY W. HAWES...LJ. HALIFAX, N.S. CAN
ADA...VJ."PROGRAM BAIRSTOW"...XJ..7. N."
PROGRAM TO SOLVE AN N'TH ORDER".^."N."PO
LYNOMIAL EQUATION OF THE FORM"...$N."Y^N
+ A1*Y^(N-1) +....+AN = 0...&N."WHERE A
1,A2,....,AN ARE REAL..K.(N."BAIRSTOW'S
ITERATIVE METHOD IS...*N."USED TO YIELD
SUCCESSIVE...,N."QUADRATIC FACTORS AND T
HE.(..N."RESULTANT REDUCED ORDER.9.0N."P
OLYNOMIAL.?.4N.._.6N."PRESS ANY KEY WHEN
READY".T.8N.A$:.A$."".20024.}..N."."...
.N."ENTER ORDER N OF POLYNOMIAL";N....NP
.0:Q.0:Z.0.M..N.A(N),B(N),C(N):C(0).1.X.
.N.L.1.N....N."ENTER A";L;:.A(L)....N.L.
...N.:.."..NB(1).A(1).P:B(2).A(2).P.B(1)
.Q.-.JN.K.3.N.M.TNB(K).A(K).P.B(K.1).Q.B
(K.2).T..N.K.W..NC(1).B(1).P:C(2).B(2).P
.C(1).Q....N.K.3.N....NC(K).B(K).P.C(K.1
).Q.C(K.2)....N.K....OCB.C(N.1).B(N.1)..
..ODP.B(N.1).C(N.2).B(N).C(N.3)....ODP.D
P.(C(N.2).C(N.2).CB.C(N.3)). ..ODQ.B(N).
C(N.2).B(N.1).CB.D..ODQ.DQ.(C(N.2).C(N.2
).CB.C(N.3)).V.$OP.P.DP:Q.Q.DQ.N..OM..(D
P)..(DQ):Z.Z.1...8O.".";"ITERATION #";Z;
" ERROR =";M...BO.M..0000001.20320...LO.
20160...`O..I.TO."P = ";P.W.~O."Q = ";Q.
...O.....O."P & Q ARE A QUADRATIC FACTOR
OF".%..O."THE FORM Y^2 +P*Y + Q = 0".+.
.O..Q..O."THE RESULTANT FACTOR IS OF THE
".|..O."FORM: Y^(N-2) + B1Y(N-3)+...+B(N
-2)"...DO."WHERE:"...NO.K.1.N.2...XO."B"
;K;" = ";B(K)....O.K....O....$
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL