POLYNOM-NS

00000000: 01 08 28 08 0A 00 8F 20  42 45 52 45 43 48 4E 55  |..(.... BERECHNU|
00000010: 4E 47 20 44 45 52 20 4E  55 4C 4C 53 54 45 4C 4C  |NG DER NULLSTELL|
00000020: 45 4E 20 45 49 4E 45 53  00 4F 08 14 00 52 45 4E  |EN EINES.O...REN|
00000030: 20 4C 49 4E 45 41 52 45  4E 20 50 4F 4C 59 4E 4F  | LINEAREN POLYNO|
00000040: 4D 53 20 4E AB 54 45 4E  20 47 52 41 44 45 53 00  |MS N.TEN GRADES.|
00000050: 55 08 1E 00 8F 00 6E 08  28 00 8F 20 44 41 54 41  |U.....n.(.. DATA|
00000060: 2D 5A 45 49 4C 45 4E 20  41 42 20 39 35 30 00 74  |-ZEILEN AB 950.t|
00000070: 08 32 00 8F 00 9A 08 3C  00 8F 20 44 41 53 20 56  |.2.....<.. DAS V|
00000080: 45 52 46 41 48 52 45 4E  20 57 49 52 44 20 55 4E  |ERFAHREN WIRD UN|
00000090: 47 45 4E 41 55 2C 57 45  4E 4E 00 BD 08 46 00 8F  |GENAU,WENN...F..|
000000A0: 20 56 49 45 4C 45 20 4C  4F 45 53 55 4E 47 45 4E  | VIELE LOESUNGEN|
000000B0: 20 44 45 4E 20 47 4C 45  49 43 48 45 4E 00 D2 08  | DEN GLEICHEN...|
000000C0: 50 00 8F 20 42 45 54 52  41 47 20 48 41 42 45 4E  |P.. BETRAG HABEN|
000000D0: 21 21 00 D8 08 5A 00 8F  00 F1 08 64 00 8F 20 42  |!!...Z.....d.. B|
000000E0: 41 49 52 53 54 4F 57 2D  56 45 52 46 41 48 52 45  |AIRSTOW-VERFAHRE|
000000F0: 4E 00 F7 08 6E 00 3A 00  13 09 78 00 8F 20 45 49  |N...n.:...x.. EI|
00000100: 4E 4C 45 53 45 4E 20 44  45 53 20 50 4F 4C 59 4E  |NLESEN DES POLYN|
00000110: 4F 4D 53 00 1B 09 82 00  87 20 4E 00 3B 09 8C 00  |OMS...... N.;...|
00000120: 86 20 41 28 4E 29 2C 42  28 4E 29 2C 43 28 4E 29  |. A(N),B(N),C(N)|
00000130: 2C 4C 28 4E 2C 32 29 3A  4C B2 30 00 4E 09 96 00  |,L(N,2):L.0.N...|
00000140: 81 20 49 B2 4E 20 A4 20  30 20 A9 20 AB 31 00 59  |. I.N . 0 . .1.Y|
00000150: 09 A0 00 87 20 41 28 49  29 00 61 09 AA 00 82 20  |.... A(I).a.... |
00000160: 49 00 67 09 B4 00 3A 00  94 09 BE 00 45 31 B2 31  |I.g...:.....E1.1|
00000170: 45 AB 34 3A 45 32 B2 31  45 AB 39 3A 8F 20 41 42  |E.4:E2.1E.9:. AB|
00000180: 42 52 55 43 48 47 45 4E  41 55 49 47 2D 20 4B 45  |BRUCHGENAUIG- KE|
00000190: 49 54 45 4E 00 9A 09 C8  00 3A 00 B5 09 D2 00 99  |ITEN.....:......|
000001A0: 20 22 42 41 49 52 53 54  4F 57 2D 56 45 52 46 41  | "BAIRSTOW-VERFA|
000001B0: 48 52 45 4E 22 00 CC 09  DC 00 99 3A 99 22 4E 55  |HREN"......:."NU|
000001C0: 4C 4C 53 54 45 4C 4C 45  4E 22 3A 99 00 D2 09 E6  |LLSTELLEN":.....|
000001D0: 00 3A 00 E3 09 F0 00 8B  20 4E B3 B2 32 20 A7 20  |.:...... N..2 . |
000001E0: 36 33 30 00 E9 09 FA 00  3A 00 0B 0A 04 01 8F 20  |630.....:...... |
000001F0: 44 4F 50 50 45 4C 5A 45  49 4C 49 47 45 53 20 48  |DOPPELZEILIGES H|
00000200: 4F 52 4E 45 52 53 43 48  45 4D 41 00 2C 0A 0E 01  |ORNERSCHEMA.,...|
00000210: 50 B2 31 20 20 20 3A 51  B2 AB 31 20 20 20 20 3A  |P.1   :Q..1    :|
00000220: 8F 20 53 54 41 52 54 57  45 52 54 45 00 34 0A 13  |. STARTWERTE.4..|
00000230: 01 41 B2 30 00 4C 0A 18  01 42 28 4E 29 B2 41 28  |.A.0.L...B(N).A(|
00000240: 4E 29 3A 43 28 4E 29 B2  41 28 4E 29 00 65 0A 22  |N):C(N).A(N).e."|
00000250: 01 42 28 4E AB 31 29 B2  42 28 4E 29 AC 50 AA 41  |.B(N.1).B(N).P.A|
00000260: 28 4E AB 31 29 00 7E 0A  2C 01 43 28 4E AB 31 29  |(N.1).~.,.C(N.1)|
00000270: B2 42 28 4E AB 31 29 AA  42 28 4E 29 AC 50 00 93  |.B(N.1).B(N).P..|
00000280: 0A 36 01 81 20 49 B2 4E  AB 32 20 A4 20 30 20 A9  |.6.. I.N.2 . 0 .|
00000290: 20 AB 31 00 B5 0A 40 01  3A 20 42 28 49 29 B2 42  | .1...@.: B(I).B|
000002A0: 28 49 AA 32 29 AC 51 AA  42 28 49 AA 31 29 AC 50  |(I.2).Q.B(I.1).P|
000002B0: AA 41 28 49 29 00 D7 0A  4A 01 3A 20 43 28 49 29  |.A(I)...J.: C(I)|
000002C0: B2 43 28 49 AA 32 29 AC  51 AA 43 28 49 AA 31 29  |.C(I.2).Q.C(I.1)|
000002D0: AC 50 AA 42 28 49 29 00  DF 0A 54 01 82 20 49 00  |.P.B(I)...T.. I.|
000002E0: E5 0A 5E 01 3A 00 FE 0A  68 01 8F 20 42 41 49 52  |..^.:...h.. BAIR|
000002F0: 53 54 4F 57 2D 49 4E 54  52 41 54 49 4F 4E 00 15  |STOW-INTRATION..|
00000300: 0B 72 01 43 B2 43 28 32  29 AE 32 AB 43 28 31 29  |.r.C.C(2).2.C(1)|
00000310: AC 43 28 33 29 00 43 0B  7C 01 8B 20 43 B2 30 20  |.C(3).C.|.. C.0 |
00000320: A7 20 99 22 41 4E 44 45  52 45 20 53 54 41 52 54  |. ."ANDERE START|
00000330: 57 45 52 54 45 20 57 41  45 4C 45 4E 22 3A 9B 20  |WERTE WAELEN":. |
00000340: 32 37 30 00 64 0B 86 01  50 31 B2 50 AB 28 42 28  |270.d...P1.P.(B(|
00000350: 31 29 AC 43 28 32 29 AB  42 28 30 29 AC 43 28 33  |1).C(2).B(0).C(3|
00000360: 29 29 AD 43 00 85 0B 90  01 51 31 B2 51 AB 28 42  |)).C.....Q1.Q.(B|
00000370: 28 30 29 AC 43 28 32 29  AB 42 28 31 29 AC 43 28  |(0).C(2).B(1).C(|
00000380: 31 29 29 AD 43 00 A4 0B  9A 01 8B B6 28 42 28 30  |1)).C.......(B(0|
00000390: 29 29 B3 45 31 AF B6 28  42 28 31 29 29 B3 45 31  |)).E1..(B(1)).E1|
000003A0: A7 34 36 30 00 D8 0B A4  01 8B B6 28 50 31 AB 50  |.460.......(P1.P|
000003B0: 29 B3 45 32 AF B6 28 51  31 AB 51 29 B3 45 32 20  |).E2..(Q1.Q).E2 |
000003C0: A7 20 20 99 22 49 4E 54  45 52 41 54 49 4F 4E 20  |.  ."INTERATION |
000003D0: 53 54 45 48 54 22 3A 80  00 15 0C AE 01 41 B2 41  |STEHT":......A.A|
000003E0: AA 31 3A 8B 20 41 B1 34  30 20 A7 20 99 22 4B 45  |.1:. A.40 . ."KE|
000003F0: 49 4E 45 20 4B 4F 4E 56  45 47 45 4E 5A 20 4E 41  |INE KONVEGENZ NA|
00000400: 43 48 20 34 30 20 49 4E  54 45 52 41 54 49 4F 4E  |CH 40 INTERATION|
00000410: 45 4E 22 3A 80 00 29 0C  B8 01 50 B2 50 31 3A 51  |EN":..)...P.P1:Q|
00000420: B2 51 31 3A 89 20 32 39  30 00 2F 0C C2 01 3A 00  |.Q1:. 290./...:.|
00000430: 5D 0C CC 01 8F 20 4E 55  4C 4C 53 54 45 4C 4C 45  |].... NULLSTELLE|
00000440: 4E 20 44 45 53 20 51 55  41 44 52 41 54 49 53 43  |N DES QUADRATISC|
00000450: 48 45 4E 20 20 20 46 41  4B 54 4F 52 53 00 68 0C  |HEN   FAKTORS.h.|
00000460: D6 01 53 B2 50 31 AD 32  00 88 0C E0 01 54 B2 50  |..S.P1.2.....T.P|
00000470: 31 AE 32 AA 34 AC 51 31  3A 8F 20 44 49 53 4B 52  |1.2.4.Q1:. DISKR|
00000480: 49 4D 49 4E 41 4E 54 45  00 98 0C EA 01 8B 20 54  |IMINANTE...... T|
00000490: B3 30 20 A7 20 35 32 30  00 BA 0C F4 01 4C 28 4C  |.0 . 520.....L(L|
000004A0: 2C 31 29 B2 53 AA BA 28  54 29 AD 32 3A 99 4C 28  |,1).S..(T).2:.L(|
000004B0: 4C 2C 31 29 3A 4C B2 4C  AA 32 00 E0 0C FE 01 4C  |L,1):L.L.2.....L|
000004C0: 28 4C AB 31 2C 31 29 B2  53 AB BA 28 54 29 AD 32  |(L.1,1).S..(T).2|
000004D0: 3A 99 4C 28 4C AB 31 2C  31 29 3A 89 20 35 35 30  |:.L(L.1,1):. 550|
000004E0: 00 14 0D 08 02 99 20 53  3B 22 2B 4A 2A 22 3B BA  |...... S;"+J*";.|
000004F0: 28 AB 54 29 AD 32 3A 4C  28 4C 2C 31 29 B2 53 3A  |(.T).2:L(L,1).S:|
00000500: 4C 28 4C 2C 32 29 B2 BA  28 AB 54 29 AD 32 3A 4C  |L(L,2)..(.T).2:L|
00000510: B2 4C AA 31 00 49 0D 12  02 99 20 53 3B 22 2D 4A  |.L.1.I.... S;"-J|
00000520: 2A 22 3B BA 28 AB 54 29  AD 32 3A 4C 28 4C 2C 31  |*";.(.T).2:L(L,1|
00000530: 29 B2 53 3A 4C 28 4C 2C  32 29 B2 AB BA 28 AB 54  |).S:L(L,2)...(.T|
00000540: 29 AD 32 3A 4C B2 4C AA  31 00 4F 0D 1C 02 3A 00  |).2:L.L.1.O...:.|
00000550: 7E 0D 26 02 8F 20 4B 4F  45 46 46 49 5A 49 45 4E  |~.&.. KOEFFIZIEN|
00000560: 54 45 4E 20 44 45 53 20  41 42 44 49 56 49 44 49  |TEN DES ABDIVIDI|
00000570: 45 52 54 45 4E 20 50 4F  4C 59 4E 4F 4D 53 00 8C  |ERTEN POLYNOMS..|
00000580: 0D 30 02 81 20 49 B2 32  20 A4 20 4E 00 9C 0D 3A  |.0.. I.2 . N...:|
00000590: 02 41 28 49 AB 32 29 B2  42 28 49 29 00 A4 0D 44  |.A(I.2).B(I)...D|
000005A0: 02 82 20 49 00 AE 0D 4E  02 4E B2 4E AB 32 00 BE  |.. I...N.N.N.2..|
000005B0: 0D 58 02 8B 20 4E B1 32  20 A7 20 32 37 30 00 C4  |.X.. N.2 . 270..|
000005C0: 0D 62 02 3A 00 E5 0D 6C  02 8F 20 41 55 53 57 45  |.b.:...l.. AUSWE|
000005D0: 52 54 45 4E 20 44 45 53  20 52 45 53 54 50 4F 4C  |RTEN DES RESTPOL|
000005E0: 59 4E 4F 4D 53 00 28 0E  76 02 8B 20 4E B2 31 20  |YNOMS.(.v.. N.1 |
000005F0: A7 20 99 20 AB 41 28 30  29 AD 41 28 31 29 3A 4C  |. . .A(0).A(1):L|
00000600: 28 4C 2C 31 29 B2 AB 41  28 30 29 AD 41 28 31 29  |(L,1)..A(0).A(1)|
00000610: 3A 89 38 30 30 3A 8F 20  4C 49 4E 45 41 52 45 53  |:.800:. LINEARES|
00000620: 20 50 4F 4C 59 4E 4F 4D  00 2E 0E 80 02 3A 00 4E  | POLYNOM.....:.N|
00000630: 0E 8A 02 8F 20 51 55 41  44 52 41 54 49 53 43 48  |.... QUADRATISCH|
00000640: 45 53 20 52 45 53 54 50  4F 4C 59 4E 4F 4D 00 63  |ES RESTPOLYNOM.c|
00000650: 0E 94 02 53 B2 AB 41 28  31 29 AD 28 32 AC 41 28  |...S..A(1).(2.A(|
00000660: 32 29 29 00 8F 0E 9E 02  54 B2 41 28 31 29 AE 32  |2)).....T.A(1).2|
00000670: AB 34 AC 41 28 32 29 AC  41 28 30 29 3A 8F 20 44  |.4.A(2).A(0):. D|
00000680: 49 53 4B 52 49 4D 49 2D  20 20 4E 41 4E 54 45 00  |ISKRIMI-  NANTE.|
00000690: 9F 0E A8 02 8B 20 54 B3  30 20 A7 20 37 31 30 00  |..... T.0 . 710.|
000006A0: C8 0E B2 02 4C 28 4C 2C  31 29 B2 53 AA BA 28 54  |....L(L,1).S..(T|
000006B0: 29 AD 28 32 AC 41 28 32  29 29 3A 99 4C 28 4C 2C  |).(2.A(2)):.L(L,|
000006C0: 31 29 3A 4C B2 4C AA 31  00 F1 0E BC 02 4C 28 4C  |1):L.L.1.....L(L|
000006D0: 2C 31 29 B2 53 AB BA 28  54 29 AD 28 32 AC 41 28  |,1).S..(T).(2.A(|
000006E0: 32 29 29 3A 99 4C 28 4C  2C 31 29 3A 89 20 38 30  |2)):.L(L,1):. 80|
000006F0: 30 00 2A 0F C6 02 4C 28  4C 2C 31 29 B2 53 3A 4C  |0.*...L(L,1).S:L|
00000700: 28 4C 2C 32 29 B2 BA 28  AB 54 29 AD 28 32 AC 41  |(L,2)..(.T).(2.A|
00000710: 28 32 29 29 3A 99 53 3B  22 2B 4A 2A 22 3B 4C 28  |(2)):.S;"+J*";L(|
00000720: 4C 2C 32 29 3A 4C B2 4C  AA 31 00 47 0F D0 02 99  |L,2):L.L.1.G....|
00000730: 20 53 3B 22 2D 4A 2A 22  3B BA 28 AB 54 29 AD 28  | S;"-J*";.(.T).(|
00000740: 32 AC 41 28 32 29 29 00  72 0F DA 02 4C 28 4C 2C  |2.A(2)).r...L(L,|
00000750: 31 29 B2 4C 28 4C AB 31  2C 31 29 3A 4C 28 4C 2C  |1).L(L.1,1):L(L,|
00000760: 32 29 B2 AB 4C 28 4C AB  31 2C 32 29 3A 89 20 38  |2)..L(L.1,2):. 8|
00000770: 30 30 00 78 0F E4 02 3A  00 8A 0F 20 03 85 20 22  |00.x...:... .. "|
00000780: 52 45 54 55 52 4E 22 3B  41 24 00 9D 0F 2A 03 99  |RETURN";A$...*..|
00000790: 22 41 42 57 45 49 43 48  55 4E 47 3A 22 00 A3 0F  |"ABWEICHUNG:"...|
000007A0: 34 03 8C 00 AB 0F 3E 03  87 20 4E 00 BF 0F 48 03  |4.....>.. N...H.|
000007B0: 81 20 49 B2 30 A4 4E 3A  87 41 28 49 29 3A 82 00  |. I.0.N:.A(I):..|
000007C0: CB 0F 52 03 81 20 49 B2  30 A4 4C 00 DA 0F 57 03  |..R.. I.0.L...W.|
000007D0: 41 B2 41 28 30 29 3A 42  B2 30 00 E7 0F 5C 03 3A  |A.A(0):B.0...\.:|
000007E0: 81 20 4B B2 31 A4 4E 00  06 10 66 03 3A 41 31 B2  |. K.1.N...f.:A1.|
000007F0: 41 AC 4C 28 49 2C 31 29  AB 42 AC 4C 28 49 2C 32  |A.L(I,1).B.L(I,2|
00000800: 29 AA 41 28 4B 29 00 25  10 70 03 3A 42 B2 41 AC  |).A(K).%.p.:B.A.|
00000810: 4C 28 49 2C 32 29 AA 42  AC 4C 28 49 2C 31 29 3A  |L(I,2).B.L(I,1):|
00000820: 41 B2 41 31 3A 00 2E 10  7A 03 3A 82 20 4B 00 42  |A.A1:...z.:. K.B|
00000830: 10 84 03 99 41 3B 22 2B  28 22 3B 42 3B 22 2A 4A  |....A;"+(";B;"*J|
00000840: 29 22 00 4A 10 8E 03 82  20 49 00 69 10 B6 03 83  |)".J.... I.i....|
00000850: 20 33 20 20 20 3A 8F 20  47 52 41 44 20 44 45 53  | 3   :. GRAD DES|
00000860: 20 50 4F 4C 59 4E 4F 4D  53 00 90 10 BB 03 8F 20  | POLYNOMS...... |
00000870: 4B 4F 45 46 46 49 5A 49  45 4E 54 45 4E 20 41 28  |KOEFFIZIENTEN A(|
00000880: 4E 29 2C 41 28 4E 2D 31  29 2C 2E 2C 41 28 30 29  |N),A(N-1),.,A(0)|
00000890: 00 9E 10 C0 03 83 20 31  2C 30 2C 30 2C 30 00 00  |...... 1,0,0,0..|
000008A0: 00                                                |.               |

..(.... BERECHNUNG DER NULLSTELLEN EINES
.O...REN LINEAREN POLYNOMS N.TEN GRADES.
U.....N.(.. DATA-ZEILEN AB 950.T.2.....<
.. DAS VERFAHREN WIRD UNGENAU,WENN...F..
 VIELE LOESUNGEN DEN GLEICHEN.R.P.. BETR
AG HABEN!!.X.Z.....D.. BAIRSTOW-VERFAHRE
N...N.:...X.. EINLESEN DES POLYNOMS.....
. N.;.... A(N),B(N),C(N),L(N,2):L.0.N...
. I.N . 0 . .1.Y. .. A(I).A.... I.G...:.
....E1.1E.4:E2.1E.9:. ABBRUCHGENAUIG- KE
ITEN...H.:...R.. "BAIRSTOW-VERFAHREN".L.
...:."NULLSTELLEN":..R...:...... N..2 . 
630.....:...... DOPPELZEILIGES HORNERSCH
EMA.,...P.1   :Q..1    :. STARTWERTE.4..
.A.0.L...B(N).A(N):C(N).A(N).E.".B(N.1).
B(N).P.A(N.1).~.,.C(N.1).B(N.1).B(N).P..
.6.. I.N.2 . 0 . .1...@.: B(I).B(I.2).Q.
B(I.1).P.A(I).W.J.: C(I).C(I.2).Q.C(I.1)
.P.B(I)...T.. I...^.:...H.. BAIRSTOW-INT
RATION...R.C.C(2).2.C(1).C(3).C.|.. C.0 
. ."ANDERE STARTWERTE WAELEN":. 270.D...
P1.P.(B(1).C(2).B(0).C(3)).C.....Q1.Q.(B
(0).C(2).B(1).C(1)).C.......(B(0)).E1..(
B(1)).E1.460.X.....(P1.P).E2..(Q1.Q).E2 
.  ."INTERATION STEHT":......A.A.1:. A.4
0 . ."KEINE KONVEGENZ NACH 40 INTERATION
EN":..)...P.P1:Q.Q1:. 290./.B.:.].L.. NU
LLSTELLEN DES QUADRATISCHEN   FAKTORS.H.
V.S.P1.2.....T.P1.2.4.Q1:. DISKRIMINANTE
...... T.0 . 520.....L(L,1).S..(T).2:.L(
L,1):L.L.2.....L(L.1,1).S..(T).2:.L(L.1,
1):. 550...... S;"+J*";.(.T).2:L(L,1).S:
L(L,2)..(.T).2:L.L.1.I.... S;"-J*";.(.T)
.2:L(L,1).S:L(L,2)...(.T).2:L.L.1.O...:.
~.&.. KOEFFIZIENTEN DES ABDIVIDIERTEN PO
LYNOMS...0.. I.2 . N...:.A(I.2).B(I)...D
.. I...N.N.N.2...X.. N.2 . 270.D.B.:...L
.. AUSWERTEN DES RESTPOLYNOMS.(.V.. N.1 
. . .A(0).A(1):L(L,1)..A(0).A(1):.800:. 
LINEARES POLYNOM.....:.N.... QUADRATISCH
ES RESTPOLYNOM.C...S..A(1).(2.A(2)).....
T.A(1).2.4.A(2).A(0):. DISKRIMI-  NANTE.
..... T.0 . 710.H...L(L,1).S..(T).(2.A(2
)):.L(L,1):L.L.1.....L(L,1).S..(T).(2.A(
2)):.L(L,1):. 800.*.F.L(L,1).S:L(L,2)..(
.T).(2.A(2)):.S;"+J*";L(L,2):L.L.1.G.P..
 S;"-J*";.(.T).(2.A(2)).R.Z.L(L,1).L(L.1
,1):L(L,2)..L(L.1,2):. 800.X...:... .. "
RETURN";A$...*.."ABWEICHUNG:"...4.....>.
. N...H.. I.0.N:.A(I):..K.R.. I.0.L.Z.W.
A.A(0):B.0...\.:. K.1.N...F.:A1.A.L(I,1)
.B.L(I,2).A(K).%.P.:B.A.L(I,2).B.L(I,1):
A.A1:...Z.:. K.B....A;"+(";B;"*J)".J....
 I.I.... 3   :. GRAD DES POLYNOMS...... 
KOEFFIZIENTEN A(N),A(N-1),.,A(0)...... 1
,0,0,0...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL