POLYNOME.C64
FILE INFORMATION
FILENAME(S): POLYNOME.C64
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 21:13:21
APPEARS ON: 1 disk(s)
FILE HASH
7d4e279d27c116fef77e8aa4eb0cba3a69d4312a26d212ae41314a3ed13dc90c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10712 12 87 | POLYNOME.C64 | PRG | DuncanTwain | 13 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 26 08 01 00 8F 20 2D 2D 2D 2D 2D 20 4E 41 |..&.... ----- NA|
00000010: 43 48 4C 41 44 45 4E 20 47 52 41 46 49 4B 20 2D |CHLADEN GRAFIK -|
00000020: 2D 2D 2D 2D 2D 2D 00 39 08 02 00 8B 20 41 24 B2 |------.9.... A$.|
00000030: 22 4E 22 20 A7 20 31 30 30 00 62 08 03 00 99 C7 |"N" . 100.b.....|
00000040: 28 31 34 37 29 C7 28 31 37 29 22 47 52 41 46 49 |(147).(17)"GRAFI|
00000050: 4B 20 4E 41 43 48 4C 41 44 45 4E 20 28 4A 2F 4E |K NACHLADEN (J/N|
00000060: 29 22 00 77 08 04 00 A1 20 41 24 3A 8B 20 41 24 |)".w.... A$:. A$|
00000070: B2 22 22 20 A7 20 34 00 8A 08 05 00 8B 20 41 24 |."" . 4...... A$|
00000080: B2 22 4E 22 20 A7 20 31 30 30 00 A8 08 06 00 41 |."N" . 100.....A|
00000090: 24 B2 22 4E 22 3A 93 22 53 59 53 47 52 41 46 2E |$."N":."SYSGRAF.|
000000A0: 4F 42 4A 22 2C 38 2C 31 00 CF 08 0A 00 8F 2A 2A |OBJ",8,1......**|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000000D0: F6 08 14 00 8F 2A 20 20 20 20 20 20 20 20 20 20 |.....* |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000F0: 20 20 20 20 20 2A 00 1D 09 1E 00 8F 2A 20 20 20 | *......* |
00000100: 20 20 20 20 4B 55 52 56 45 4E 41 4E 50 41 53 53 | KURVENANPASS|
00000110: 55 4E 47 20 20 20 20 20 20 20 20 20 2A 00 44 09 |UNG *.D.|
00000120: 28 00 8F 2A 20 20 20 20 20 20 20 20 20 20 20 20 |(..* |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 2A 00 6B 09 32 00 8F 2A 20 20 20 20 53 | *.k.2..* S|
00000150: 54 41 54 49 53 54 49 4B 2D 50 52 4F 47 52 41 4D |TATISTIK-PROGRAM|
00000160: 4D 20 5A 55 52 20 20 20 20 20 2A 00 92 09 3C 00 |M ZUR *...<.|
00000170: 8F 2A 20 20 52 45 47 52 45 53 53 49 4F 4E 53 41 |.* REGRESSIONSA|
00000180: 4E 41 4C 59 53 45 20 4D 49 54 54 45 4C 53 20 20 |NALYSE MITTELS |
00000190: 20 2A 00 B9 09 41 00 8F 2A 20 20 20 20 20 50 4F | *...A..* PO|
000001A0: 4C 59 4E 4F 4D 45 4E 20 49 4E 43 4C 2E 47 52 41 |LYNOMEN INCL.GRA|
000001B0: 46 49 4B 20 20 20 20 20 2A 00 E0 09 46 00 8F 2A |FIK *...F..*|
000001C0: 20 20 48 45 49 4D 4F 20 50 4F 4E 4E 41 54 48 20 | HEIMO PONNATH |
000001D0: 20 48 41 4D 42 55 52 47 20 31 39 38 37 20 20 2A | HAMBURG 1987 *|
000001E0: 00 07 0A 50 00 8F 2A 20 20 20 20 20 20 20 43 36 |...P..* C6|
000001F0: 34 20 20 2D 20 56 45 52 53 49 4F 4E 20 20 20 20 |4 - VERSION |
00000200: 20 20 20 20 20 20 2A 00 2E 0A 5A 00 8F 2A 2A 2A | *...Z..***|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5D |**************.]|
00000230: 0A 64 00 9C 3A 9E 20 34 39 31 35 32 3A 9E 20 34 |.d..:. 49152:. 4|
00000240: 39 32 34 32 3A 8F 20 47 52 41 46 49 4B 53 50 45 |9242:. GRAFIKSPE|
00000250: 49 43 48 45 52 20 53 49 43 48 45 52 4E 00 79 0A |ICHER SICHERN.y.|
00000260: 69 00 8F 20 47 52 41 50 48 49 43 31 2C 31 3A 47 |i.. GRAPHIC1,1:G|
00000270: 4F 53 55 42 20 34 30 30 30 00 9F 0A 6E 00 8F 20 |OSUB 4000...n.. |
00000280: 2D 2D 2D 2D 2D 20 56 41 52 49 41 42 4C 45 20 2D |----- VARIABLE -|
00000290: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
000002A0: E3 0A 78 00 4D B2 30 3A 53 B2 30 3A 4E B2 30 3A |..x.M.0:S.0:N.0:|
000002B0: 49 B2 30 3A 4A B2 30 3A 4B B2 30 3A 47 B2 30 3A |I.0:J.0:K.0:G.0:|
000002C0: 41 B2 30 3A 47 32 B2 30 3A 5A 5A B2 30 3A 48 48 |A.0:G2.0:ZZ.0:HH|
000002D0: B2 30 3A 51 B2 30 3A 50 B2 30 3A 41 30 B2 30 3A |.0:Q.0:P.0:A0.0:|
000002E0: 42 B2 30 00 1F 0B 82 00 42 42 B2 33 31 39 3A 42 |B.0.....BB.319:B|
000002F0: 48 B2 31 39 39 3A 57 B2 30 3A 4D 58 B2 AB 31 45 |H.199:W.0:MX..1E|
00000300: 31 32 3A 4C 58 B2 31 45 31 32 3A 4D 59 B2 AB 31 |12:LX.1E12:MY..1|
00000310: 45 31 32 3A 4C 59 B2 31 45 31 32 3A 52 B2 30 00 |E12:LY.1E12:R.0.|
00000320: 5D 0B 8C 00 58 55 B2 30 3A 58 4F B2 30 3A 59 55 |]...XU.0:XO.0:YU|
00000330: B2 30 3A 59 4F B2 30 3A 52 41 B2 30 3A 52 44 B2 |.0:YO.0:RA.0:RD.|
00000340: 30 3A 54 41 B2 30 3A 54 42 B2 30 3A 58 B2 30 3A |0:TA.0:TB.0:X.0:|
00000350: 59 B2 30 3A 58 31 B2 30 3A 59 31 B2 30 00 6D 0B |Y.0:X1.0:Y1.0.m.|
00000360: 96 00 41 24 B2 22 22 3A 42 24 B2 22 22 00 73 0B |..A$."":B$."".s.|
00000370: A0 00 8F 00 B5 0B AA 00 96 A5 20 47 28 4E 29 B2 |.......... G(N).|
00000380: B5 28 2E 32 AC BA 28 35 AC 28 41 AB 31 30 AC 4E |.(.2..(5.(A.10.N|
00000390: AB 31 37 29 29 AB 34 29 3A 8F 20 4D 41 58 2E 20 |.17)).4):. MAX. |
000003A0: 50 4F 4C 59 4E 4F 4D 47 52 41 44 20 42 45 52 45 |POLYNOMGRAD BERE|
000003B0: 43 48 4E 45 4E 00 D9 0B B4 00 96 A5 20 58 28 58 |CHNEN....... X(X|
000003C0: 29 B2 52 41 AC 58 AA 54 41 3A 96 A5 20 59 28 59 |).RA.X.TA:.. Y(Y|
000003D0: 29 B2 52 44 AC 59 AA 54 42 00 DF 0B BE 00 8F 00 |).RD.Y.TB.......|
000003E0: 05 0C C8 00 8F 20 2D 2D 2D 2D 2D 20 54 49 54 45 |..... ----- TITE|
000003F0: 4C 2C 45 52 4B 4C 41 45 52 55 4E 47 20 2D 2D 2D |L,ERKLAERUNG ---|
00000400: 2D 2D 2D 2D 2D 00 24 0C D2 00 97 20 35 33 32 38 |-----.$.... 5328|
00000410: 30 2C 30 3A 97 20 35 33 32 38 31 2C 30 3A 99 C7 |0,0:. 53281,0:..|
00000420: 28 33 30 29 00 65 0C DC 00 99 C7 28 31 34 37 29 |(30).e.....(147)|
00000430: C7 28 31 38 29 22 20 20 20 20 20 20 20 20 20 20 |.(18)" |
00000440: 20 20 50 4F 4C 59 4E 4F 4D 41 4E 50 41 53 53 55 | POLYNOMANPASSU|
00000450: 4E 47 20 20 20 20 20 20 20 20 20 20 20 20 22 C7 |NG ".|
00000460: 28 31 34 36 29 00 6B 0C E6 00 99 00 97 0C F0 00 |(146).k.........|
00000470: 99 22 20 44 55 52 43 48 20 45 49 4E 45 20 41 4E |." DURCH EINE AN|
00000480: 5A 41 48 4C 20 56 4F 4E 20 4E 20 50 55 4E 4B 54 |ZAHL VON N PUNKT|
00000490: 45 4E 20 41 55 53 22 00 C6 0C FA 00 99 22 57 45 |EN AUS"......"WE|
000004A0: 52 54 45 50 41 41 52 45 4E 20 4C 45 47 54 20 44 |RTEPAAREN LEGT D|
000004B0: 49 45 53 45 53 20 50 52 4F 47 52 41 4D 4D 20 44 |IESES PROGRAMM D|
000004C0: 41 53 20 41 4D 22 00 F0 0C 04 01 99 22 42 45 53 |AS AM"......"BES|
000004D0: 54 45 4E 20 41 4E 47 45 50 41 53 53 54 45 20 50 |TEN ANGEPASSTE P|
000004E0: 4F 4C 59 4E 4F 4D 20 44 45 52 20 46 4F 52 4D 22 |OLYNOM DER FORM"|
000004F0: 00 1E 0D 0E 01 99 22 59 3D 41 30 2B 41 31 2A 58 |......"Y=A0+A1*X|
00000500: 2B 41 32 2A 58 5E 32 2B 41 33 2A 58 5E 33 2B 2E |+A2*X^2+A3*X^3+.|
00000510: 2E 2E 20 2E 20 44 45 52 20 47 52 41 44 22 00 49 |.. . DER GRAD".I|
00000520: 0D 13 01 99 22 44 45 53 20 50 4F 4C 59 4E 4F 4D |...."DES POLYNOM|
00000530: 53 20 49 53 54 20 46 52 45 49 20 57 41 45 48 4C |S IST FREI WAEHL|
00000540: 42 41 52 2E 20 44 45 52 22 00 72 0D 15 01 99 22 |BAR. DER".r...."|
00000550: 4B 4F 52 52 45 4C 41 54 49 4F 4E 53 4B 4F 45 46 |KORRELATIONSKOEF|
00000560: 46 49 5A 49 45 4E 54 20 52 20 55 4E 44 20 44 49 |FIZIENT R UND DI|
00000570: 45 22 00 9F 0D 18 01 99 22 53 54 41 4E 44 41 52 |E"......"STANDAR|
00000580: 44 41 42 57 45 49 43 48 55 4E 47 20 53 20 57 45 |DABWEICHUNG S WE|
00000590: 52 44 45 4E 20 41 4E 47 45 47 45 42 45 4E 22 00 |RDEN ANGEGEBEN".|
000005A0: C8 0D 22 01 99 22 55 4E 44 20 53 49 45 20 4B 4F |..".."UND SIE KO|
000005B0: 45 4E 4E 45 4E 20 42 45 4C 49 45 42 49 47 45 20 |ENNEN BELIEBIGE |
000005C0: 59 2D 57 45 52 54 45 22 00 F6 0D 2C 01 99 22 41 |Y-WERTE"...,.."A|
000005D0: 55 53 20 45 49 4E 47 45 47 45 42 45 4E 45 4E 20 |US EINGEGEBENEN |
000005E0: 58 2D 57 45 52 54 45 4E 20 42 45 52 45 43 48 4E |X-WERTEN BERECHN|
000005F0: 45 4E 2E 22 3A 99 00 25 0E 36 01 99 22 20 45 49 |EN.":..%.6.." EI|
00000600: 4E 20 53 43 41 54 54 45 52 44 49 41 47 52 41 4D |N SCATTERDIAGRAM|
00000610: 4D 20 55 4E 44 20 44 49 45 20 45 52 4D 49 54 54 |M UND DIE ERMITT|
00000620: 45 4C 54 45 22 00 4F 0E 40 01 99 22 4B 55 52 56 |ELTE".O.@.."KURV|
00000630: 45 20 57 45 52 44 45 4E 20 47 45 5A 45 49 43 48 |E WERDEN GEZEICH|
00000640: 4E 45 54 2E 20 41 55 46 20 44 49 45 53 45 22 00 |NET. AUF DIESE".|
00000650: 7D 0E 4A 01 99 22 57 45 49 53 45 20 4B 41 4E 4E |}.J.."WEISE KANN|
00000660: 20 44 49 45 20 51 55 41 4C 49 54 41 45 54 20 44 | DIE QUALITAET D|
00000670: 45 52 20 41 4E 50 41 53 53 55 4E 47 22 00 9C 0E |ER ANPASSUNG"...|
00000680: 54 01 99 22 45 49 4E 47 45 53 43 48 41 45 54 5A |T.."EINGESCHAETZ|
00000690: 54 20 57 45 52 44 45 4E 2E 22 3A 99 00 C8 0E 5E |T WERDEN.":....^|
000006A0: 01 99 22 20 53 4F 47 45 4E 41 4E 4E 54 45 20 41 |.." SOGENANNTE A|
000006B0: 55 53 52 45 49 53 53 45 52 2D 57 45 52 54 45 20 |USREISSER-WERTE |
000006C0: 53 4F 4C 4C 54 45 4E 22 00 F3 0E 68 01 99 22 56 |SOLLTEN"...h.."V|
000006D0: 4F 52 20 45 49 4E 45 52 20 47 45 4E 41 55 45 52 |OR EINER GENAUER|
000006E0: 45 4E 20 42 45 52 45 43 48 4E 55 4E 47 20 4E 4F |EN BERECHNUNG NO|
000006F0: 43 48 22 00 0F 0F 72 01 99 22 45 4E 54 46 45 52 |CH"...r.."ENTFER|
00000700: 4E 54 20 57 45 52 44 45 4E 2E 22 3A 99 3A 99 00 |NT WERDEN.":.:..|
00000710: 31 0F 7C 01 99 C7 28 31 38 29 22 54 41 53 54 45 |1.|...(18)"TASTE|
00000720: 20 44 52 55 45 43 4B 45 4E 21 22 C7 28 31 34 36 | DRUECKEN!".(146|
00000730: 29 00 48 0F 86 01 A1 20 41 24 3A 8B 20 41 24 B2 |).H.... A$:. A$.|
00000740: 22 22 20 A7 20 33 39 30 00 6E 0F 90 01 8F 20 2D |"" . 390.n.... -|
00000750: 2D 2D 2D 2D 20 48 41 55 50 54 4D 45 4E 55 45 20 |---- HAUPTMENUE |
00000760: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 82 |--------------..|
00000770: 0F 9A 01 99 C7 28 31 34 37 29 3A 99 3A 99 3A 99 |.....(147):.:.:.|
00000780: 3A 99 00 AE 0F A4 01 99 A3 34 29 22 57 45 52 54 |:........4)"WERT|
00000790: 45 20 56 4F 4E 20 48 41 4E 44 20 45 49 4E 47 45 |E VON HAND EINGE|
000007A0: 42 45 4E 2E 2E 2E 2E 2E 2E 2E 31 22 3A 99 00 DA |BEN.......1":...|
000007B0: 0F AE 01 99 A3 34 29 22 57 45 52 54 45 20 41 55 |.....4)"WERTE AU|
000007C0: 53 20 44 41 54 45 49 20 4C 45 53 45 4E 2E 2E 2E |S DATEI LESEN...|
000007D0: 2E 2E 2E 2E 2E 2E 32 22 3A 99 00 06 10 B8 01 99 |......2":.......|
000007E0: A3 34 29 22 47 52 41 46 49 4B 20 5A 45 49 47 45 |.4)"GRAFIK ZEIGE|
000007F0: 4E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |N...............|
00000800: 2E 2E 33 22 3A 99 00 32 10 C2 01 99 A3 34 29 22 |..3":..2.....4)"|
00000810: 54 45 58 54 4D 4F 44 55 53 20 45 49 4E 53 43 48 |TEXTMODUS EINSCH|
00000820: 41 4C 54 45 4E 2E 2E 2E 2E 2E 2E 2E 2E 2E 34 22 |ALTEN.........4"|
00000830: 3A 99 00 5E 10 CC 01 99 A3 34 29 22 50 4F 4C 59 |:..^.....4)"POLY|
00000840: 4E 4F 4D 46 55 4E 4B 54 49 4F 4E 20 42 45 52 45 |NOMFUNKTION BERE|
00000850: 43 48 4E 45 4E 2E 2E 2E 2E 2E 35 22 3A 99 00 8A |CHNEN.....5":...|
00000860: 10 D6 01 99 A3 34 29 22 57 45 52 54 45 20 42 45 |.....4)"WERTE BE|
00000870: 52 45 43 48 4E 45 4E 2E 2E 2E 2E 2E 2E 2E 2E 2E |RECHNEN.........|
00000880: 2E 2E 2E 2E 2E 2E 36 22 3A 99 00 B8 10 E0 01 99 |......6":.......|
00000890: A3 34 29 22 50 52 4F 47 52 41 4D 4D 45 4E 44 45 |.4)"PROGRAMMENDE|
000008A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000008B0: 2E 2E 37 22 3A 99 3A 99 00 E1 10 EA 01 99 A3 31 |..7":.:........1|
000008C0: 30 29 C7 28 31 38 29 22 42 49 54 54 45 20 57 41 |0).(18)"BITTE WA|
000008D0: 45 48 4C 45 4E 20 53 49 45 21 22 C7 28 31 34 36 |EHLEN SIE!".(146|
000008E0: 29 00 04 11 F4 01 A1 20 41 24 3A 8B 20 C5 28 41 |)...... A$:. .(A|
000008F0: 24 29 B3 31 20 B0 20 C5 28 41 24 29 B1 37 20 A7 |$).1 . .(A$).7 .|
00000900: 20 35 30 30 00 1E 11 FE 01 99 C7 28 31 34 37 29 | 500.......(147)|
00000910: 3A 8B 20 C5 28 41 24 29 B2 37 20 A7 20 80 00 4A |:. .(A$).7 . ..J|
00000920: 11 08 02 91 20 C5 28 41 24 29 20 8D 20 31 30 30 |.... .(A$) . 100|
00000930: 30 2C 32 30 30 30 2C 33 30 30 30 2C 34 30 30 30 |0,2000,3000,4000|
00000940: 2C 35 30 30 30 2C 36 30 30 30 00 54 11 12 02 89 |,5000,6000.T....|
00000950: 20 34 31 30 00 7A 11 1C 02 8F 20 2D 2D 2D 2D 2D | 410.z.... -----|
00000960: 20 45 4E 44 45 20 48 41 55 50 54 50 52 4F 47 52 | ENDE HAUPTPROGR|
00000970: 41 4D 4D 20 2D 2D 2D 2D 2D 2D 00 9F 11 E8 03 8F |AMM ------......|
00000980: 20 2D 2D 2D 2D 2D 20 57 45 52 54 45 20 56 4F 4E | ----- WERTE VON|
00000990: 20 48 41 4E 44 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 | HAND ---------.|
000009A0: B6 11 ED 03 8D 20 34 30 30 30 3A 8F 20 54 45 58 |..... 4000:. TEX|
000009B0: 54 4D 4F 44 55 53 00 EE 11 F2 03 8B 20 57 B2 31 |TMODUS...... W.1|
000009C0: 20 A7 20 99 22 57 45 52 54 45 20 53 43 48 4F 4E | . ."WERTE SCHON|
000009D0: 20 56 4F 52 48 41 4E 44 45 4E 21 22 3A 81 20 49 | VORHANDEN!":. I|
000009E0: B2 30 20 A4 20 35 30 30 3A 82 20 49 3A 8E 00 F6 |.0 . 500:. I:...|
000009F0: 11 FC 03 57 B2 31 00 24 12 06 04 99 22 57 49 45 |...W.1.$...."WIE|
00000A00: 56 49 45 4C 45 20 57 45 52 54 45 20 57 45 52 44 |VIELE WERTE WERD|
00000A10: 45 4E 20 56 45 52 57 45 4E 44 45 54 20 3F 22 3A |EN VERWENDET ?":|
00000A20: 85 4E 3A 99 00 31 12 10 04 86 20 57 28 31 2C 4E |.N:..1.... W(1,N|
00000A30: 29 00 5C 12 13 04 41 B2 B8 28 30 29 AB 32 30 30 |).\...A..(0).200|
00000A40: 30 3A 8F 20 46 52 45 49 45 52 20 53 50 45 49 43 |0:. FREIER SPEIC|
00000A50: 48 45 52 50 4C 41 54 5A 20 43 36 34 00 70 12 15 |HERPLATZ C64.p..|
00000A60: 04 8F 20 41 3D 46 52 45 28 31 29 2D 32 30 30 30 |.. A=FRE(1)-2000|
00000A70: 00 94 12 17 04 47 B2 A5 47 28 4E 29 3A 8F 20 4D |.....G..G(N):. M|
00000A80: 41 58 49 4D 41 4C 45 52 20 50 4F 4C 59 4E 4F 4D |AXIMALER POLYNOM|
00000A90: 47 52 41 44 00 B8 12 1A 04 99 22 42 49 54 54 45 |GRAD......"BITTE|
00000AA0: 20 57 45 52 54 45 50 41 41 52 45 20 45 49 4E 47 | WERTEPAARE EING|
00000AB0: 45 42 45 4E 21 22 3A 99 00 C6 12 24 04 81 20 49 |EBEN!":....$.. I|
00000AC0: B2 31 20 A4 20 4E 00 F4 12 2E 04 99 49 2C 22 58 |.1 . N......I,"X|
00000AD0: 3D 22 3B 3A 85 57 28 30 2C 49 29 3A 99 C7 28 31 |=";:.W(0,I):..(1|
00000AE0: 34 35 29 2C 2C 22 59 3D 22 3B 3A 85 57 28 31 2C |45),,"Y=";:.W(1,|
00000AF0: 49 29 3A 99 00 19 13 38 04 8D 20 31 33 30 30 3A |I):....8.. 1300:|
00000B00: 8F 20 5A 57 49 53 43 48 45 4E 57 45 52 54 45 20 |. ZWISCHENWERTE |
00000B10: 42 45 52 45 43 48 4E 45 4E 00 21 13 42 04 82 20 |BERECHNEN.!.B.. |
00000B20: 49 00 57 13 4C 04 99 C7 28 31 34 37 29 3A 99 3A |I.W.L...(147):.:|
00000B30: 99 22 53 4F 4C 4C 45 4E 20 44 49 45 20 57 45 52 |."SOLLEN DIE WER|
00000B40: 54 45 20 47 45 53 50 45 49 43 48 45 52 54 20 57 |TE GESPEICHERT W|
00000B50: 45 52 44 45 4E 3F 22 00 7B 13 56 04 A1 20 41 24 |ERDEN?".{.V.. A$|
00000B60: 3A 8B 20 41 24 B3 B1 22 4A 22 20 AF 20 41 24 B3 |:. A$.."J" . A$.|
00000B70: B1 22 4E 22 20 A7 20 31 31 31 30 00 8F 13 60 04 |."N" . 1110...`.|
00000B80: 8B 20 41 24 B2 22 4E 22 20 A7 20 31 31 39 30 00 |. A$."N" . 1190.|
00000B90: BA 13 6A 04 99 3A 99 22 4E 41 4D 45 20 44 45 52 |..j..:."NAME DER|
00000BA0: 20 44 41 54 45 49 20 28 31 31 20 5A 45 49 43 48 | DATEI (11 ZEICH|
00000BB0: 45 4E 29 22 3B 3A 85 20 42 24 00 D8 13 74 04 42 |EN)";:. B$...t.B|
00000BC0: 24 B2 C8 28 42 24 2C 31 31 29 AA 22 2E 44 41 54 |$..(B$,11).".DAT|
00000BD0: 22 AA 22 2C 53 2C 57 22 00 E7 13 7E 04 9F 20 31 |".",S,W"...~.. 1|
00000BE0: 2C 38 2C 32 2C 42 24 00 F0 13 88 04 98 31 2C 4E |,8,2,B$......1,N|
00000BF0: 00 16 14 92 04 81 20 49 B2 31 20 A4 20 4E 3A 98 |...... I.1 . N:.|
00000C00: 31 2C 57 28 30 2C 49 29 3A 98 31 2C 57 28 31 2C |1,W(0,I):.1,W(1,|
00000C10: 49 29 3A 82 20 49 00 1E 14 9C 04 A0 20 31 00 44 |I):. I...... 1.D|
00000C20: 14 A6 04 8D 20 31 35 30 30 3A 8F 20 53 43 41 54 |.... 1500:. SCAT|
00000C30: 54 45 52 44 49 41 47 52 41 4D 4D 20 5A 45 49 43 |TERDIAGRAMM ZEIC|
00000C40: 48 4E 45 4E 00 4A 14 B0 04 8E 00 6F 14 14 05 8F |HNEN.J.....o....|
00000C50: 20 2D 2D 2D 20 5A 57 49 53 43 48 45 4E 57 45 52 | --- ZWISCHENWER|
00000C60: 54 45 20 42 45 52 45 43 48 4E 45 4E 20 2D 2D 00 |TE BERECHNEN --.|
00000C70: 8B 14 50 05 8B 20 57 28 30 2C 49 29 B1 4D 58 20 |..P.. W(0,I).MX |
00000C80: A7 20 4D 58 B2 57 28 30 2C 49 29 00 A7 14 5A 05 |. MX.W(0,I)...Z.|
00000C90: 8B 20 57 28 30 2C 49 29 B3 4C 58 20 A7 20 4C 58 |. W(0,I).LX . LX|
00000CA0: B2 57 28 30 2C 49 29 00 C3 14 64 05 8B 20 57 28 |.W(0,I)...d.. W(|
00000CB0: 31 2C 49 29 B1 4D 59 20 A7 20 4D 59 B2 57 28 31 |1,I).MY . MY.W(1|
00000CC0: 2C 49 29 00 DF 14 6E 05 8B 20 57 28 31 2C 49 29 |,I)...n.. W(1,I)|
00000CD0: B3 4C 59 20 A7 20 4C 59 B2 57 28 31 2C 49 29 00 |.LY . LY.W(1,I).|
00000CE0: E5 14 78 05 8E 00 0A 15 DC 05 8F 20 2D 2D 2D 20 |..x........ --- |
00000CF0: 53 43 41 54 54 45 52 44 49 41 47 52 41 4D 4D 20 |SCATTERDIAGRAMM |
00000D00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 46 15 E1 05 86 |----------.F....|
00000D10: 20 41 28 32 AC 47 AA 31 29 2C 52 28 47 AA 31 2C | A(2.G.1),R(G.1,|
00000D20: 47 AA 32 29 2C 54 28 47 AA 32 29 3A 8F 20 41 52 |G.2),T(G.2):. AR|
00000D30: 52 41 59 53 20 46 55 45 52 20 42 45 52 45 43 48 |RAYS FUER BERECH|
00000D40: 4E 55 4E 47 45 4E 00 69 15 E6 05 81 20 49 B2 31 |NUNGEN.i.... I.1|
00000D50: 20 A4 20 4E AB 31 3A 8F 20 53 4F 52 54 49 45 52 | . N.1:. SORTIER|
00000D60: 45 4E 20 4E 41 43 48 20 58 00 79 15 F0 05 81 20 |EN NACH X.y.... |
00000D70: 4A B2 49 AA 31 20 A4 20 4E 00 95 15 FA 05 8B 20 |J.I.1 . N...... |
00000D80: 57 28 30 2C 49 29 B3 B2 57 28 30 2C 4A 29 20 A7 |W(0,I)..W(0,J) .|
00000D90: 20 31 35 36 30 00 D1 15 04 06 57 28 30 2C 30 29 | 1560.....W(0,0)|
00000DA0: B2 57 28 30 2C 49 29 3A 57 28 31 2C 30 29 B2 57 |.W(0,I):W(1,0).W|
00000DB0: 28 31 2C 49 29 3A 57 28 30 2C 49 29 B2 57 28 30 |(1,I):W(0,I).W(0|
00000DC0: 2C 4A 29 3A 57 28 31 2C 49 29 B2 57 28 31 2C 4A |,J):W(1,I).W(1,J|
00000DD0: 29 00 F1 15 0E 06 57 28 30 2C 4A 29 B2 57 28 30 |).....W(0,J).W(0|
00000DE0: 2C 30 29 3A 57 28 31 2C 4A 29 B2 57 28 31 2C 30 |,0):W(1,J).W(1,0|
00000DF0: 29 00 FD 15 18 06 82 20 4A 3A 82 20 49 00 35 16 |)...... J:. I.5.|
00000E00: 22 06 9E 20 34 39 31 35 32 3A 9E 20 34 39 31 38 |".. 49152:. 4918|
00000E10: 30 3A 9E 20 34 39 32 30 32 2C 36 2C 30 3A 8F 20 |0:. 49202,6,0:. |
00000E20: 47 52 41 46 49 4B 20 4C 4F 45 53 43 48 45 4E 20 |GRAFIK LOESCHEN |
00000E30: 46 41 52 42 45 00 58 16 2C 06 8F 20 47 52 41 50 |FARBE.X.,.. GRAP|
00000E40: 48 49 43 31 2C 31 3A 43 4F 4C 4F 52 30 2C 31 3A |HIC1,1:COLOR0,1:|
00000E50: 43 4F 4C 4F 52 31 2C 37 00 88 16 36 06 9E 20 34 |COLOR1,7...6.. 4|
00000E60: 39 33 35 32 2C 30 2C 30 2C 33 31 39 2C 30 2C 31 |9352,0,0,319,0,1|
00000E70: 3A 9E 20 34 39 33 35 32 2C 33 31 39 2C 30 2C 33 |:. 49352,319,0,3|
00000E80: 31 39 2C 31 39 39 2C 31 00 BD 16 40 06 8F 20 44 |19,199,1...@.. D|
00000E90: 52 41 57 20 31 2C 30 2C 30 20 54 4F 20 33 31 39 |RAW 1,0,0 TO 319|
00000EA0: 2C 30 20 54 4F 20 33 31 39 2C 31 39 39 20 54 4F |,0 TO 319,199 TO|
00000EB0: 20 30 2C 31 39 39 20 54 4F 20 30 2C 30 00 F6 16 | 0,199 TO 0,0...|
00000EC0: 4A 06 9E 20 34 39 33 35 32 2C 33 31 39 2C 31 39 |J.. 49352,319,19|
00000ED0: 39 2C 30 2C 31 39 39 2C 31 3A 9E 20 34 39 33 35 |9,0,199,1:. 4935|
00000EE0: 32 2C 30 2C 31 39 39 2C 30 2C 30 2C 31 3A 8F 20 |2,0,199,0,0,1:. |
00000EF0: 52 41 48 4D 45 4E 00 1E 17 54 06 58 55 B2 4C 58 |RAHMEN...T.XU.LX|
00000F00: AB 28 4D 58 AB 4C 58 29 AC 2E 30 32 3A 58 4F B2 |.(MX.LX)..02:XO.|
00000F10: 4D 58 AA 28 4D 58 AB 4C 58 29 AC 2E 30 32 00 46 |MX.(MX.LX)..02.F|
00000F20: 17 5E 06 59 55 B2 4C 59 AB 28 4D 59 AB 4C 59 29 |.^.YU.LY.(MY.LY)|
00000F30: AC 2E 30 32 3A 59 4F B2 4D 59 AA 28 4D 59 AB 4C |..02:YO.MY.(MY.L|
00000F40: 59 29 AC 2E 30 32 00 67 17 68 06 52 41 B2 42 42 |Y)..02.g.h.RA.BB|
00000F50: AD 28 58 4F AB 58 55 29 3A 52 44 B2 AB 42 48 AD |.(XO.XU):RD..BH.|
00000F60: 28 59 4F AB 59 55 29 00 8E 17 72 06 54 41 B2 AB |(YO.YU)...r.TA..|
00000F70: 42 42 AC 58 55 AD 28 58 4F AB 58 55 29 3A 54 42 |BB.XU.(XO.XU):TB|
00000F80: B2 42 48 AC 59 4F AD 28 59 4F AB 59 55 29 00 9C |.BH.YO.(YO.YU)..|
00000F90: 17 7C 06 81 20 49 B2 31 20 A4 20 4E 00 BA 17 86 |.|.. I.1 . N....|
00000FA0: 06 58 B2 A5 58 28 57 28 30 2C 49 29 29 3A 59 B2 |.X..X(W(0,I)):Y.|
00000FB0: A5 59 28 57 28 31 2C 49 29 29 00 F0 17 90 06 9E |.Y(W(1,I))......|
00000FC0: 34 39 33 35 32 2C 58 AB 33 2C 59 2C 58 AA 33 2C |49352,X.3,Y,X.3,|
00000FD0: 59 2C 31 3A 9E 34 39 33 35 32 2C 58 2C 59 AB 33 |Y,1:.49352,X,Y.3|
00000FE0: 2C 58 2C 59 AA 33 2C 31 3A 8F 20 4B 52 45 55 5A |,X,Y.3,1:. KREUZ|
00000FF0: 00 20 18 91 06 8F 20 44 52 41 57 31 2C 58 2D 33 |. .... DRAW1,X-3|
00001000: 2C 59 20 54 4F 20 58 2B 33 2C 59 3A 44 52 41 57 |,Y TO X+3,Y:DRAW|
00001010: 31 2C 58 2C 59 2D 33 20 54 4F 20 58 2C 59 2B 33 |1,X,Y-3 TO X,Y+3|
00001020: 00 28 18 9A 06 82 20 49 00 40 18 A4 06 A1 20 41 |.(.... I.@.... A|
00001030: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 37 30 30 |$:. A$."" . 1700|
00001040: 00 58 18 AE 06 9E 20 34 39 32 34 32 3A 8F 20 54 |.X.... 49242:. T|
00001050: 45 58 54 4D 4F 44 55 53 00 8A 18 AF 06 8F 20 49 |EXTMODUS...... I|
00001060: 46 20 50 45 45 4B 28 32 33 38 29 3D 37 39 20 54 |F PEEK(238)=79 T|
00001070: 48 45 4E 20 47 52 41 50 48 49 43 35 3A 45 4C 53 |HEN GRAPHIC5:ELS|
00001080: 45 20 47 52 41 50 48 49 43 30 00 A6 18 B8 06 99 |E GRAPHIC0......|
00001090: 22 58 55 20 3D 20 20 22 4C 58 2C 22 58 4F 20 3D |"XU = "LX,"XO =|
000010A0: 20 20 22 4D 58 22 00 C2 18 C2 06 99 22 59 55 20 | "MX"......"YU |
000010B0: 3D 20 20 22 4C 59 2C 22 59 4F 20 3D 20 20 22 4D |= "LY,"YO = "M|
000010C0: 59 22 00 DA 18 CC 06 A1 20 41 24 3A 8B 20 41 24 |Y"...... A$:. A$|
000010D0: B2 22 22 20 A7 20 31 37 34 30 00 E0 18 D6 06 8E |."" . 1740......|
000010E0: 00 05 19 D0 07 8F 20 2D 2D 2D 2D 2D 20 57 45 52 |...... ----- WER|
000010F0: 54 45 20 41 55 53 20 44 41 54 45 49 20 2D 2D 2D |TE AUS DATEI ---|
00001100: 2D 2D 2D 2D 2D 00 1C 19 D5 07 8D 20 34 30 30 30 |-----...... 4000|
00001110: 3A 8F 20 54 45 58 54 4D 4F 44 55 53 00 54 19 DA |:. TEXTMODUS.T..|
00001120: 07 8B 20 57 B2 31 20 A7 20 99 22 57 45 52 54 45 |.. W.1 . ."WERTE|
00001130: 20 53 43 48 4F 4E 20 56 4F 52 48 41 4E 44 45 4E | SCHON VORHANDEN|
00001140: 21 22 3A 81 20 49 B2 30 20 A4 20 35 30 30 3A 82 |!":. I.0 . 500:.|
00001150: 20 49 3A 8E 00 5C 19 E4 07 57 B2 31 00 89 19 EE | I:..\...W.1....|
00001160: 07 99 22 20 44 49 45 20 44 41 54 45 49 20 4D 55 |.." DIE DATEI MU|
00001170: 53 53 20 45 49 4E 20 42 45 53 54 49 4D 4D 54 45 |SS EIN BESTIMMTE|
00001180: 53 20 46 4F 52 4D 41 54 22 00 B3 19 F8 07 99 22 |S FORMAT"......"|
00001190: 48 41 42 45 4E 3A 20 20 20 20 20 31 2E 41 4E 5A |HABEN: 1.ANZ|
000011A0: 41 48 4C 20 44 45 52 20 57 45 52 54 45 50 41 41 |AHL DER WERTEPAA|
000011B0: 52 45 22 00 D8 19 02 08 99 22 20 20 20 20 20 20 |RE"......" |
000011C0: 20 20 20 20 20 31 2E 57 45 52 54 20 58 2C 20 31 | 1.WERT X, 1|
000011D0: 2E 57 45 52 54 20 59 22 00 03 1A 0C 08 99 22 20 |.WERT Y"......" |
000011E0: 20 20 20 20 20 20 20 20 20 20 32 2E 57 45 52 54 | 2.WERT|
000011F0: 20 58 2C 20 32 2E 57 45 52 54 20 59 20 2E 2E 2E | X, 2.WERT Y ...|
00001200: 22 3A 99 00 32 1A 16 08 99 22 44 49 45 53 45 20 |":..2...."DIESE |
00001210: 44 41 54 45 49 45 4E 20 57 45 52 44 45 4E 20 55 |DATEIEN WERDEN U|
00001220: 4E 54 45 52 20 4D 45 4E 55 45 50 55 4E 4B 54 20 |NTER MENUEPUNKT |
00001230: 31 22 00 62 1A 20 08 99 22 45 52 53 54 45 4C 4C |1".b. .."ERSTELL|
00001240: 54 2E 20 53 49 45 20 54 52 41 47 45 4E 20 44 49 |T. SIE TRAGEN DI|
00001250: 45 20 45 4E 44 55 4E 47 20 2E 44 41 54 20 2E 22 |E ENDUNG .DAT ."|
00001260: 3A 99 00 84 1A 2A 08 99 22 20 41 4C 4C 45 53 20 |:....*.." ALLES |
00001270: 4B 4C 41 52 2E 2E 31 20 20 41 43 48 20 53 4F 4F |KLAR..1 ACH SOO|
00001280: 2E 2E 32 22 00 A8 1A 34 08 A1 20 41 24 3A 8B 20 |..2"...4.. A$:. |
00001290: C5 28 41 24 29 B3 31 20 B0 20 C5 28 41 24 29 B1 |.(A$).1 . .(A$).|
000012A0: 32 20 A7 20 32 31 30 30 00 BE 1A 3E 08 8B 20 C5 |2 . 2100...>.. .|
000012B0: 28 41 24 29 B2 32 20 A7 20 57 B2 30 3A 8E 00 EF |(A$).2 . W.0:...|
000012C0: 1A 48 08 99 3A 99 22 57 49 45 20 48 45 49 53 53 |.H..:."WIE HEISS|
000012D0: 54 20 44 45 4E 4E 20 44 49 45 20 44 41 54 45 49 |T DENN DIE DATEI|
000012E0: 20 28 45 4E 44 55 4E 47 20 2E 44 41 54 29 22 00 | (ENDUNG .DAT)".|
000012F0: F8 1A 52 08 85 20 42 24 00 09 1B 5C 08 42 24 B2 |..R.. B$...\.B$.|
00001300: 42 24 AA 22 2C 53 2C 52 22 00 17 1B 66 08 9F 31 |B$.",S,R"...f..1|
00001310: 2C 38 2C 32 2C 42 24 00 20 1B 70 08 84 31 2C 4E |,8,2,B$. .p..1,N|
00001320: 00 2D 1B 7A 08 86 20 57 28 31 2C 4E 29 00 58 1B |.-.z.. W(1,N).X.|
00001330: 7D 08 41 B2 B8 28 30 29 AB 32 30 30 30 3A 8F 20 |}.A..(0).2000:. |
00001340: 46 52 45 49 45 52 20 53 50 45 49 43 48 45 52 50 |FREIER SPEICHERP|
00001350: 4C 41 54 5A 20 43 36 34 00 6C 1B 7F 08 8F 20 41 |LATZ C64.l.... A|
00001360: 3D 46 52 45 28 31 29 2D 32 30 30 30 00 90 1B 81 |=FRE(1)-2000....|
00001370: 08 47 B2 A5 47 28 4E 29 3A 8F 20 4D 41 58 49 4D |.G..G(N):. MAXIM|
00001380: 41 4C 45 52 20 50 4F 4C 59 4E 4F 4D 47 52 41 44 |ALER POLYNOMGRAD|
00001390: 00 9E 1B 84 08 81 20 49 B2 31 20 A4 20 4E 00 B6 |...... I.1 . N..|
000013A0: 1B 8E 08 84 31 2C 57 28 30 2C 49 29 3A 84 31 2C |....1,W(0,I):.1,|
000013B0: 57 28 31 2C 49 29 00 DB 1B 98 08 8D 20 31 33 30 |W(1,I)...... 130|
000013C0: 30 3A 8F 20 5A 57 49 53 43 48 45 4E 57 45 52 54 |0:. ZWISCHENWERT|
000013D0: 45 20 42 45 52 45 43 48 4E 45 4E 00 E3 1B A2 08 |E BERECHNEN.....|
000013E0: 82 20 49 00 EB 1B AC 08 A0 20 31 00 08 1C B6 08 |. I...... 1.....|
000013F0: 8D 20 31 35 30 30 3A 8F 20 53 43 41 54 54 45 52 |. 1500:. SCATTER|
00001400: 44 49 41 47 52 41 4D 4D 00 0E 1C C0 08 8E 00 33 |DIAGRAMM.......3|
00001410: 1C B8 0B 8F 20 2D 2D 2D 2D 2D 20 47 52 41 46 49 |.... ----- GRAFI|
00001420: 4B 20 5A 45 49 47 45 4E 20 2D 2D 2D 2D 2D 2D 2D |K ZEIGEN -------|
00001430: 2D 2D 2D 00 6E 1C C2 0B 8B 20 57 B2 30 20 A7 20 |---.n.... W.0 . |
00001440: 99 22 44 41 20 46 45 48 4C 45 4E 20 4E 4F 43 48 |."DA FEHLEN NOCH|
00001450: 20 44 49 45 20 57 45 52 54 45 21 22 3A 81 20 49 | DIE WERTE!":. I|
00001460: B2 30 20 A4 20 35 30 30 3A 82 20 49 3A 8E 00 93 |.0 . 500:. I:...|
00001470: 1C CC 0B 9E 20 34 39 31 35 32 3A 9E 20 34 39 32 |.... 49152:. 492|
00001480: 30 32 2C 36 2C 30 3A 8F 20 47 52 41 46 49 4B 20 |02,6,0:. GRAFIK |
00001490: 45 49 4E 00 A9 1C CD 0B 8F 20 47 52 41 50 48 49 |EIN...... GRAPHI|
000014A0: 43 31 3A 52 45 54 55 52 4E 00 C4 1C D6 0B A1 20 |C1:RETURN...... |
000014B0: 41 24 3A 8B 20 C5 28 41 24 29 B3 B1 34 20 A7 20 |A$:. .(A$)..4 . |
000014C0: 33 30 32 30 00 DF 1C E0 0B 89 20 34 30 31 30 3A |3020...... 4010:|
000014D0: 8F 20 54 45 58 54 4D 4F 44 55 53 20 45 49 4E 00 |. TEXTMODUS EIN.|
000014E0: 04 1D A0 0F 8F 20 2D 2D 2D 2D 2D 20 54 45 58 54 |..... ----- TEXT|
000014F0: 4D 4F 44 55 53 20 45 49 4E 20 2D 2D 2D 2D 2D 2D |MODUS EIN ------|
00001500: 2D 2D 2D 2D 00 20 1D AA 0F 9E 20 34 39 32 34 32 |----. .... 49242|
00001510: 3A 8F 20 54 45 58 54 4D 4F 44 55 53 20 45 49 4E |:. TEXTMODUS EIN|
00001520: 00 52 1D AB 0F 8F 20 49 46 20 50 45 45 4B 28 32 |.R.... IF PEEK(2|
00001530: 33 38 29 3D 37 39 20 54 48 45 4E 20 47 52 41 50 |38)=79 THEN GRAP|
00001540: 48 49 43 35 3A 45 4C 53 45 20 47 52 41 50 48 49 |HIC5:ELSE GRAPHI|
00001550: 43 30 00 58 1D B4 0F 8E 00 8D 1D 88 13 8F 20 2D |C0.X.......... -|
00001560: 2D 2D 2D 20 50 4F 4C 59 4E 4F 4D 2D 42 45 52 45 |--- POLYNOM-BERE|
00001570: 43 48 4E 55 4E 47 20 2D 2D 2D 2D 2D 2D 2D 2D 2D |CHNUNG ---------|
00001580: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A4 1D |-------------...|
00001590: 8A 13 8D 20 34 30 30 30 3A 8F 20 54 45 58 54 4D |... 4000:. TEXTM|
000015A0: 4F 44 55 53 00 DA 1D 8C 13 8B 20 57 B2 30 20 A7 |ODUS...... W.0 .|
000015B0: 20 99 22 44 41 20 46 45 48 4C 45 4E 20 44 49 45 | ."DA FEHLEN DIE|
000015C0: 20 57 45 52 54 45 21 22 3A 81 20 49 B2 30 20 A4 | WERTE!":. I.0 .|
000015D0: 20 35 30 30 3A 82 20 49 3A 8E 00 17 1E 92 13 99 | 500:. I:.......|
000015E0: C7 28 31 34 37 29 C7 28 31 37 29 C7 28 31 37 29 |.(147).(17).(17)|
000015F0: 22 57 45 4C 43 48 45 4E 20 47 52 41 44 20 53 4F |"WELCHEN GRAD SO|
00001600: 4C 4C 20 44 41 53 20 50 4F 4C 59 4E 4F 4D 20 48 |LL DAS POLYNOM H|
00001610: 41 42 45 4E 20 3F 22 00 50 1E 9C 13 99 3A 99 22 |ABEN ?".P....:."|
00001620: 4D 41 58 49 4D 41 4C 20 45 52 4C 41 55 42 54 20 |MAXIMAL ERLAUBT |
00001630: 49 53 54 20 45 49 4E 20 50 4F 4C 59 4E 4F 4D 20 |IST EIN POLYNOM |
00001640: 22 3A 99 2C 47 22 2E 47 52 41 44 45 53 20 2E 22 |":.,G".GRADES ."|
00001650: 00 93 1E A6 13 99 3A 99 22 42 45 49 20 4F 56 45 |......:."BEI OVE|
00001660: 52 46 4C 4F 57 2D 45 52 52 4F 52 20 49 53 54 20 |RFLOW-ERROR IST |
00001670: 44 45 52 22 3A 99 22 57 49 45 44 45 52 45 49 4E |DER":."WIEDEREIN|
00001680: 53 54 49 45 47 20 49 4E 53 20 50 52 4F 47 52 41 |STIEG INS PROGRA|
00001690: 4D 4D 22 00 B4 1E B0 13 99 22 4D 4F 45 47 4C 49 |MM"......"MOEGLI|
000016A0: 43 48 20 4D 49 54 20 27 47 4F 54 4F 20 34 30 30 |CH MIT 'GOTO 400|
000016B0: 27 20 21 22 00 D8 1E BA 13 99 3A 85 22 50 4F 4C |' !"......:."POL|
000016C0: 59 4E 4F 4D 47 52 41 44 3D 22 3B 47 32 3A 8B 47 |YNOMGRAD=";G2:.G|
000016D0: 32 B1 47 A7 35 30 32 30 00 1A 1F C4 13 81 49 B2 |2.G.5020......I.|
000016E0: 31 A4 47 32 AA 32 3A 54 28 49 29 B2 30 3A 41 28 |1.G2.2:T(I).0:A(|
000016F0: 49 29 B2 30 3A 41 28 B6 28 32 AC 49 AB 33 29 29 |I).0:A(.(2.I.3))|
00001700: B2 30 3A 81 4B B2 31 A4 47 AA 31 3A 52 28 4B 2C |.0:.K.1.G.1:R(K,|
00001710: 49 29 B2 30 3A 82 4B 3A 82 49 00 44 1F CE 13 41 |I).0:.K:.I.D...A|
00001720: 28 31 29 B2 4E 3A 5A 5A B2 30 3A 4D B2 30 3A 53 |(1).N:ZZ.0:M.0:S|
00001730: B2 30 3A 48 48 B2 30 3A 51 B2 30 3A 50 B2 30 3A |.0:HH.0:Q.0:P.0:|
00001740: 41 30 B2 30 00 75 1F D8 13 81 49 B2 31 A4 4E 3A |A0.0.u....I.1.N:|
00001750: 81 4C B2 32 A4 32 AC 47 32 AA 31 3A 41 28 4C 29 |.L.2.2.G2.1:A(L)|
00001760: B2 41 28 4C 29 AA 57 28 30 2C 49 29 AE 28 4C AB |.A(L).W(0,I).(L.|
00001770: 31 29 3A 82 4C 00 A6 1F E2 13 81 4B B2 31 A4 47 |1):.L......K.1.G|
00001780: 32 AA 31 3A 52 28 4B 2C 47 32 AA 32 29 B2 54 28 |2.1:R(K,G2.2).T(|
00001790: 4B 29 AA 57 28 31 2C 49 29 AC 57 28 30 2C 49 29 |K).W(1,I).W(0,I)|
000017A0: AE 28 4B AB 31 29 00 E7 1F EC 13 54 28 4B 29 B2 |.(K.1).....T(K).|
000017B0: 54 28 4B 29 AA 57 28 31 2C 49 29 AC 57 28 30 2C |T(K).W(1,I).W(0,|
000017C0: 49 29 AE 28 4B AB 31 29 3A 82 4B 3A 54 28 47 32 |I).(K.1):.K:T(G2|
000017D0: AA 32 29 B2 54 28 47 32 AA 32 29 AA 57 28 31 2C |.2).T(G2.2).W(1,|
000017E0: 49 29 AE 32 3A 82 49 00 15 20 F6 13 81 49 B2 31 |I).2:.I.. ...I.1|
000017F0: A4 47 32 AA 31 3A 81 4B B2 31 A4 47 32 AA 31 3A |.G2.1:.K.1.G2.1:|
00001800: 52 28 49 2C 4B 29 B2 41 28 49 AA 4B AB 31 29 3A |R(I,K).A(I.K.1):|
00001810: 82 4B 3A 82 49 00 3D 20 00 14 81 49 B2 31 A4 47 |.K:.I.= ...I.1.G|
00001820: 32 AA 31 3A 81 4B B2 49 A4 47 32 AA 31 3A 8B 52 |2.1:.K.I.G2.1:.R|
00001830: 28 4B 2C 49 29 B3 B1 30 A7 35 31 35 30 00 54 20 |(K,I)..0.5150.T |
00001840: 0A 14 8D 20 34 30 30 30 3A 8F 20 54 45 58 54 4D |... 4000:. TEXTM|
00001850: 4F 44 55 53 00 76 20 14 14 99 22 4B 45 49 4E 45 |ODUS.v ..."KEINE|
00001860: 20 45 49 4E 44 45 55 54 49 47 45 20 4C 4F 45 53 | EINDEUTIGE LOES|
00001870: 55 4E 47 22 3A 8E 00 A7 20 1E 14 81 4C B2 31 A4 |UNG":... ...L.1.|
00001880: 47 32 AA 32 3A 53 B2 52 28 49 2C 4C 29 3A 52 28 |G2.2:S.R(I,L):R(|
00001890: 49 2C 4C 29 B2 52 28 4B 2C 4C 29 3A 52 28 4B 2C |I,L).R(K,L):R(K,|
000018A0: 4C 29 B2 53 3A 82 4C 00 D3 20 28 14 4D B2 31 AD |L).S:.L.. (.M.1.|
000018B0: 52 28 49 2C 49 29 3A 81 4C B2 31 A4 47 32 AA 32 |R(I,I):.L.1.G2.2|
000018C0: 3A 52 28 49 2C 4C 29 B2 4D AC 52 28 49 2C 4C 29 |:R(I,L).M.R(I,L)|
000018D0: 3A 82 4C 00 EB 20 32 14 81 4B B2 31 A4 47 32 AA |:.L.. 2..K.1.G2.|
000018E0: 31 3A 8B 4B B2 49 A7 35 31 39 30 00 1D 21 3C 14 |1:.K.I.5190..!<.|
000018F0: 4D B2 AB 52 28 4B 2C 49 29 3A 81 4C B2 31 A4 47 |M..R(K,I):.L.1.G|
00001900: 32 AA 32 3A 52 28 4B 2C 4C 29 B2 52 28 4B 2C 4C |2.2:R(K,L).R(K,L|
00001910: 29 AA 4D AC 52 28 49 2C 4C 29 3A 82 4C 00 34 21 |).M.R(I,L):.L.4!|
00001920: 46 14 82 4B 3A 82 49 3A 41 30 B2 31 3A 99 C7 28 |F..K:.I:A0.1:..(|
00001930: 31 34 37 29 00 6A 21 50 14 50 B2 30 3A 81 49 B2 |147).j!P.P.0:.I.|
00001940: 32 A4 47 32 AA 31 3A 50 B2 50 AA 52 28 49 2C 47 |2.G2.1:P.P.R(I,G|
00001950: 32 AA 32 29 AC 28 54 28 49 29 AB 41 28 49 29 AC |2.2).(T(I).A(I).|
00001960: 54 28 31 29 AD 4E 29 3A 82 49 00 A5 21 5A 14 51 |T(1).N):.I..!Z.Q|
00001970: B2 54 28 47 32 AA 32 29 AB 54 28 31 29 AE 32 AD |.T(G2.2).T(1).2.|
00001980: 4E 3A 5A 5A B2 51 AB 50 3A 42 B2 4E AB 47 32 AB |N:ZZ.Q.P:B.N.G2.|
00001990: 31 3A 48 48 B2 50 AD 51 3A 8B 42 B2 30 A7 42 B2 |1:HH.P.Q:.B.0.B.|
000019A0: 31 45 AB 32 33 00 BD 21 5F 14 41 30 B2 31 3A 8D |1E.23..!_.A0.1:.|
000019B0: 20 34 30 30 30 3A 99 C7 28 31 34 37 29 00 FE 21 | 4000:..(147)..!|
000019C0: 64 14 99 22 44 41 53 20 50 4F 4C 59 4E 4F 4D 20 |d.."DAS POLYNOM |
000019D0: 22 47 32 22 2E 47 52 41 44 45 53 20 49 53 54 3A |"G2".GRADES IST:|
000019E0: 22 3A 99 3A 99 A3 35 29 22 59 3D 41 30 2B 41 31 |":.:..5)"Y=A0+A1|
000019F0: 2A 58 2B 41 32 2A 58 5E 32 2B 2E 2E 2E 22 00 29 |*X+A2*X^2+...".)|
00001A00: 22 6E 14 99 3A 99 A3 33 29 22 4B 4F 4E 53 54 41 |"n..:..3)"KONSTA|
00001A10: 4E 54 45 20 41 30 3D 22 52 28 31 2C 47 32 AA 32 |NTE A0="R(1,G2.2|
00001A20: 29 3A 81 49 B2 31 A4 47 32 00 55 22 78 14 99 A3 |):.I.1.G2.U"x...|
00001A30: 33 29 22 4B 4F 45 46 46 49 5A 49 45 4E 54 20 41 |3)"KOEFFIZIENT A|
00001A40: 22 49 22 3D 22 52 28 49 AA 31 2C 47 32 AA 32 29 |"I"="R(I.1,G2.2)|
00001A50: 3A 82 49 3A 99 00 7D 22 82 14 99 A3 33 29 22 4B |:.I:..}"....3)"K|
00001A60: 4F 52 52 45 4C 41 54 49 4F 4E 53 4B 4F 45 46 46 |ORRELATIONSKOEFF|
00001A70: 49 5A 49 45 4E 54 3D 22 3A 99 2C 48 48 00 AA 22 |IZIENT=":.,HH.."|
00001A80: 8C 14 99 3A 99 A3 33 29 22 53 54 41 4E 44 41 52 |...:..3)"STANDAR|
00001A90: 44 41 42 57 45 49 43 48 55 4E 47 3D 22 3A 99 2C |DABWEICHUNG=":.,|
00001AA0: BA 28 B6 28 5A 5A AD 42 29 29 00 DC 22 96 14 99 |.(.(ZZ.B)).."...|
00001AB0: 3A 99 A3 33 29 22 47 52 41 46 49 4B 2E 2E 2E 54 |:..3)"GRAFIK...T|
00001AC0: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 |ASTE DRUECKEN ! |
00001AD0: 28 5F 20 3D 20 4D 45 4E 55 45 29 22 00 F2 22 A0 |(_ = MENUE)"..".|
00001AE0: 14 A1 41 24 3A 8B 20 41 24 B2 22 22 A7 20 35 32 |..A$:. A$."". 52|
00001AF0: 38 30 00 03 23 AA 14 8B 20 41 24 B2 22 5F 22 20 |80..#... A$."_" |
00001B00: A7 20 8E 00 2C 23 B4 14 52 B2 31 3A 9E 20 34 39 |. ..,#..R.1:. 49|
00001B10: 31 35 32 3A 9E 20 34 39 32 30 32 2C 36 2C 30 3A |152:. 49202,6,0:|
00001B20: 8F 20 47 52 41 46 49 4B 20 45 49 4E 00 3D 23 B5 |. GRAFIK EIN.=#.|
00001B30: 14 8F 20 47 4F 53 55 42 20 33 30 30 30 00 5B 23 |.. GOSUB 3000.[#|
00001B40: BE 14 81 20 49 B2 4C 58 20 A4 20 4D 58 20 A9 20 |... I.LX . MX . |
00001B50: 28 4D 58 AB 4C 58 29 AD 31 30 30 00 8C 23 C8 14 |(MX.LX).100..#..|
00001B60: 50 B2 52 28 31 2C 47 32 AA 32 29 3A 8D 20 37 30 |P.R(1,G2.2):. 70|
00001B70: 31 30 3A 8F 20 46 55 4E 4B 54 49 4F 4E 53 57 45 |10:. FUNKTIONSWE|
00001B80: 52 54 20 42 45 52 45 43 48 4E 45 4E 00 B0 23 D2 |RT BERECHNEN..#.|
00001B90: 14 58 31 B2 A5 58 28 49 29 3A 59 31 B2 A5 59 28 |.X1..X(I):Y1..Y(|
00001BA0: 50 29 3A 8B 20 59 31 B3 30 20 A7 20 35 33 35 30 |P):. Y1.0 . 5350|
00001BB0: 00 D5 23 DC 14 9E 20 34 39 32 36 36 20 58 31 2C |..#... 49266 X1,|
00001BC0: 59 31 2C 31 3A 8F 20 50 55 4E 4B 54 20 5A 45 49 |Y1,1:. PUNKT ZEI|
00001BD0: 43 48 4E 45 4E 00 E8 23 DD 14 8F 20 44 52 41 57 |CHNEN..#... DRAW|
00001BE0: 20 31 2C 58 31 2C 59 31 00 F0 23 E6 14 82 20 49 | 1,X1,Y1..#... I|
00001BF0: 00 09 24 F0 14 A1 20 41 24 3A 8B 20 41 24 20 B2 |..$... A$:. A$ .|
00001C00: 22 22 20 A7 20 35 33 36 30 00 21 24 FA 14 8B 20 |"" . 5360.!$... |
00001C10: 41 24 B2 22 5F 22 20 A7 20 8D 20 34 30 30 30 3A |A$."_" . . 4000:|
00001C20: 8E 00 3E 24 04 15 8B 20 52 B2 31 20 A7 20 52 B2 |..>$... R.1 . R.|
00001C30: 30 3A 8D 20 34 30 30 30 3A 89 35 33 36 30 00 62 |0:. 4000:.5360.b|
00001C40: 24 0E 15 8B 20 52 B2 30 20 A7 20 52 B2 31 3A 9E |$... R.0 . R.1:.|
00001C50: 20 34 39 31 35 32 3A 9E 20 34 39 32 30 32 2C 36 | 49152:. 49202,6|
00001C60: 2C 30 00 83 24 0F 15 8F 20 49 46 20 52 3D 30 20 |,0..$... IF R=0 |
00001C70: 54 48 45 4E 20 52 3D 31 3A 47 4F 53 55 42 20 33 |THEN R=1:GOSUB 3|
00001C80: 30 30 30 00 8E 24 18 15 89 20 35 33 36 30 00 B6 |000..$... 5360..|
00001C90: 24 70 17 8F 20 2D 2D 2D 2D 2D 2D 20 57 45 52 54 |$p.. ------ WERT|
00001CA0: 45 20 42 45 52 45 43 48 4E 45 4E 20 2D 2D 2D 2D |E BERECHNEN ----|
00001CB0: 2D 2D 2D 2D 2D 2D 00 CD 24 7A 17 8D 20 34 30 30 |------..$z.. 400|
00001CC0: 30 3A 8F 20 54 45 58 54 4D 4F 44 55 53 00 08 25 |0:. TEXTMODUS..%|
00001CD0: 84 17 8B 20 41 30 B2 30 20 AF 20 57 B2 30 20 A7 |... A0.0 . W.0 .|
00001CE0: 20 99 22 42 49 54 54 45 20 47 45 42 45 4E 20 53 | ."BITTE GEBEN S|
00001CF0: 49 45 20 5A 55 42 EE 3E ED EE 34 E2 EE EE EE EE |IE ZUB.>..4.....|
00001D00: E2 D8 4E 20 55 42 44 22 00 45 25 8E 17 8B 20 41 |..N UBD".E%... A|
00001D10: 30 B2 30 20 A7 20 99 22 42 49 54 54 45 20 44 49 |0.0 . ."BITTE DI|
00001D20: 45 20 4B 55 52 56 45 20 42 45 52 45 43 48 4E 45 |E KURVE BERECHNE|
00001D30: 4E 21 22 3A 81 20 49 B2 30 20 A4 20 35 30 30 3A |N!":. I.0 . 500:|
00001D40: 82 20 49 3A 8E 00 72 25 98 17 99 3A 99 22 20 41 |. I:..r%...:." A|
00001D50: 55 46 20 44 45 52 20 42 41 53 49 53 20 44 45 52 |UF DER BASIS DER|
00001D60: 20 52 45 47 52 45 53 53 49 4F 4E 53 4B 55 52 56 | REGRESSIONSKURV|
00001D70: 45 22 00 A2 25 A2 17 99 22 4B 4F 45 4E 4E 45 4E |E"..%..."KOENNEN|
00001D80: 20 42 45 4C 49 45 42 49 47 45 20 57 45 52 54 45 | BELIEBIGE WERTE|
00001D90: 20 42 45 52 45 43 48 4E 45 54 20 57 45 52 44 45 | BERECHNET WERDE|
00001DA0: 4E 22 00 D3 25 AC 17 99 3A 99 22 20 5A 55 52 55 |N"..%...:." ZURU|
00001DB0: 45 43 4B 20 5A 55 4D 20 4D 45 4E 55 45 20 4B 4F |ECK ZUM MENUE KO|
00001DC0: 4D 4D 45 4E 20 53 49 45 20 44 55 52 43 48 20 5F |MMEN SIE DURCH _|
00001DD0: 22 3A 99 00 E7 25 B6 17 85 22 57 45 52 54 20 58 |":...%..."WERT X|
00001DE0: 20 3D 20 22 3B 41 24 00 F9 25 C0 17 8B 20 41 24 | = ";A$..%... A$|
00001DF0: 20 B2 22 5F 22 20 A7 20 8E 00 05 26 CA 17 49 B2 | ."_" . ...&..I.|
00001E00: C5 28 41 24 29 00 1B 26 D4 17 50 B2 52 28 31 2C |.(A$)..&..P.R(1,|
00001E10: 47 32 AA 32 29 3A 8D 37 30 31 30 00 30 26 DE 17 |G2.2):.7010.0&..|
00001E20: 99 C7 28 31 34 35 29 2C 2C 22 59 20 3D 20 22 50 |..(145),,"Y = "P|
00001E30: 00 3B 26 E8 17 89 20 36 30 36 30 00 63 26 58 1B |.;&... 6060.c&X.|
00001E40: 8F 20 2D 2D 2D 2D 2D 20 50 4F 4C 59 4E 4F 4D 57 |. ----- POLYNOMW|
00001E50: 45 52 54 20 42 45 52 45 43 48 4E 45 4E 20 2D 2D |ERT BERECHNEN --|
00001E60: 2D 2D 2D 00 88 26 62 1B 81 4A B2 31 A4 47 32 3A |---..&b..J.1.G2:|
00001E70: 50 B2 50 AA 52 28 4A AA 31 2C 47 32 AA 32 29 AC |P.P.R(J.1,G2.2).|
00001E80: 49 AE 4A 3A 82 4A 3A 8E 00 00 00 B6 |I.J:.J:..... |
..&.... ----- NACHLADEN GRAFIK -------.9
.... A$."N" . 100.B....G(147)G(17)"GRAFI
K NACHLADEN (J/N)".W.... A$:. A$."" . 4.
..... A$."N" . 100.....A$."N":."SYSGRAF.
OBJ",8,1.O....**************************
*******......*
*......* KURVENANPASSUNG
*.D.(..*
*.K.2..* STATISTIK-PROGRAMM ZUR
*...<..* REGRESSIONSANALYSE MITTELS
*...A..* POLYNOMEN INCL.GRAFIK
*...F..* HEIMO PONNATH HAMBURG 1987 *
...P..* C64 - VERSION *.
..Z..*********************************.]
.D..:. 49152:. 49242:. GRAFIKSPEICHER SI
CHERN.Y.I.. GRAPHIC1,1:GOSUB 4000...N..
----- VARIABLE ----------------...X.M.0:
S.0:N.0:I.0:J.0:K.0:G.0:A.0:G2.0:ZZ.0:HH
.0:Q.0:P.0:A0.0:B.0.....BB.319:BH.199:W.
0:MX..1E12:LX.1E12:MY..1E12:LY.1E12:R.0.
]...XU.0:XO.0:YU.0:YO.0:RA.0:RD.0:TA.0:T
B.0:X.0:Y.0:X1.0:Y1.0.M...A$."":B$."".S.
......... G(N)..(.2..(5.(A.10.N.17)).4)
:. MAX. POLYNOMGRAD BERECHNEN.Y..... X(X
).RA.X.TA:.. Y(Y).RD.Y.TB.........H.. --
--- TITEL,ERKLAERUNG --------.$.R.. 5328
0,0:. 53281,0:.G(30).E....G(147)G(18)"
POLYNOMANPASSUNG "G
(146).K.........." DURCH EINE ANZAHL VON
N PUNKTEN AUS".F...."WERTEPAAREN LEGT D
IESES PROGRAMM DAS AM"......"BESTEN ANGE
PASSTE POLYNOM DER FORM"......"Y=A0+A1*X
+A2*X^2+A3*X^3+... . DER GRAD".I...."DES
POLYNOMS IST FREI WAEHLBAR. DER".R...."
KORRELATIONSKOEFFIZIENT R UND DIE"......
"STANDARDABWEICHUNG S WERDEN ANGEGEBEN".
H.".."UND SIE KOENNEN BELIEBIGE Y-WERTE"
...,.."AUS EINGEGEBENEN X-WERTEN BERECHN
EN.":..%.6.." EIN SCATTERDIAGRAMM UND DI
E ERMITTELTE".O.@.."KURVE WERDEN GEZEICH
NET. AUF DIESE".}.J.."WEISE KANN DIE QUA
LITAET DER ANPASSUNG"...T.."EINGESCHAETZ
T WERDEN.":..H.^.." SOGENANNTE AUSREISSE
R-WERTE SOLLTEN"...H.."VOR EINER GENAUER
EN BERECHNUNG NOCH"...R.."ENTFERNT WERDE
N.":.:..1.|..G(18)"TASTE DRUECKEN!"G(146
).H.... A$:. A$."" . 390.N.... ----- HAU
PTMENUE --------------......G(147):.:.:.
:........4)"WERTE VON HAND EINGEBEN.....
..1":..Z.....4)"WERTE AUS DATEI LESEN...
......2":........4)"GRAFIK ZEIGEN.......
..........3":..2.B...4)"TEXTMODUS EINSCH
ALTEN.........4":..^.L...4)"POLYNOMFUNKT
ION BERECHNEN.....5":....V...4)"WERTE BE
RECHNEN...............6":........4)"PROG
RAMMENDE..................7":.:........1
0)G(18)"BITTE WAEHLEN SIE!"G(146)......
A$:. E(A$).1 . E(A$).7 . 500......G(147)
:. E(A$).7 . ..J.... E(A$) . 1000,2000,3
000,4000,5000,6000.T.... 410.Z.... -----
ENDE HAUPTPROGRAMM ------...... ----- W
ERTE VON HAND ---------...... 4000:. TEX
TMODUS...... W.1 . ."WERTE SCHON VORHAND
EN!":. I.0 . 500:. I:......W.1.$...."WIE
VIELE WERTE WERDEN VERWENDET ?":.N:..1..
.. W(1,N).\...A..(0).2000:. FREIER SPEIC
HERPLATZ C64.P.... A=FRE(1)-2000.....G..
G(N):. MAXIMALER POLYNOMGRAD......"BITTE
WERTEPAARE EINGEBEN!":..F.$.. I.1 . N..
....I,"X=";:.W(0,I):.G(145),,"Y=";:.W(1,
I):....8.. 1300:. ZWISCHENWERTE BERECHNE
N.!.B.. I.W.L..G(147):.:."SOLLEN DIE WER
TE GESPEICHERT WERDEN?".{.V.. A$:. A$.."
J" . A$.."N" . 1110...`.. A$."N" . 1190.
..J..:."NAME DER DATEI (11 ZEICHEN)";:.
B$.X.T.B$.H(B$,11).".DAT".",S,W"...~.. 1
,8,2,B$......1,N...... I.1 . N:.1,W(0,I)
:.1,W(1,I):. I..... 1.D.... 1500:. SCAT
TERDIAGRAMM ZEICHNEN.J.....O.... --- ZWI
SCHENWERTE BERECHNEN --...P.. W(0,I).MX
. MX.W(0,I)...Z.. W(0,I).LX . LX.W(0,I).
C.D.. W(1,I).MY . MY.W(1,I)...N.. W(1,I)
.LY . LY.W(1,I)...X........ --- SCATTERD
IAGRAMM ----------.F.... A(2.G.1),R(G.1,
G.2),T(G.2):. ARRAYS FUER BERECHNUNGEN.I
.... I.1 . N.1:. SORTIEREN NACH X.Y....
J.I.1 . N...... W(0,I)..W(0,J) . 1560.Q.
..W(0,0).W(0,I):W(1,0).W(1,I):W(0,I).W(0
,J):W(1,I).W(1,J).....W(0,J).W(0,0):W(1,
J).W(1,0)...... J:. I.5.".. 49152:. 4918
0:. 49202,6,0:. GRAFIK LOESCHEN FARBE.X.
,.. GRAPHIC1,1:COLOR0,1:COLOR1,7...6.. 4
9352,0,0,319,0,1:. 49352,319,0,319,199,1
...@.. DRAW 1,0,0 TO 319,0 TO 319,199 TO
0,199 TO 0,0...J.. 49352,319,199,0,199,
1:. 49352,0,199,0,0,1:. RAHMEN...T.XU.LX
.(MX.LX)..02:XO.MX.(MX.LX)..02.F.^.YU.LY
.(MY.LY)..02:YO.MY.(MY.LY)..02.G.H.RA.BB
.(XO.XU):RD..BH.(YO.YU)...R.TA..BB.XU.(X
O.XU):TB.BH.YO.(YO.YU)...|.. I.1 . N....
.X..X(W(0,I)):Y..Y(W(1,I))......49352,X.
3,Y,X.3,Y,1:.49352,X,Y.3,X,Y.3,1:. KREUZ
. .... DRAW1,X-3,Y TO X+3,Y:DRAW1,X,Y-3
TO X,Y+3.(.... I.@.... A$:. A$."" . 1700
.X.... 49242:. TEXTMODUS...... IF PEEK(2
38)=79 THEN GRAPHIC5:ELSE GRAPHIC0......
"XU = "LX,"XO = "MX".B.B.."YU = "LY,"
YO = "MY".Z.L.. A$:. A$."" . 1740...V..
...P.. ----- WERTE AUS DATEI --------...
U.. 4000:. TEXTMODUS.T.Z.. W.1 . ."WERTE
SCHON VORHANDEN!":. I.0 . 500:. I:..\..
.W.1......" DIE DATEI MUSS EIN BESTIMMTE
S FORMAT"......"HABEN: 1.ANZAHL DER
WERTEPAARE".X...." 1.WERT X, 1
.WERT Y"......" 2.WERT X, 2.WE
RT Y ...":..2...."DIESE DATEIEN WERDEN U
NTER MENUEPUNKT 1".B. .."ERSTELLT. SIE T
RAGEN DIE ENDUNG .DAT .":....*.." ALLES
KLAR..1 ACH SOO..2"...4.. A$:. E(A$).1
. E(A$).2 . 2100...>.. E(A$).2 . W.0:...
.H..:."WIE HEISST DENN DIE DATEI (ENDUNG
.DAT)"...R.. B$...\.B$.B$.",S,R"...F..1
,8,2,B$. .P..1,N.-.Z.. W(1,N).X.}.A..(0)
.2000:. FREIER SPEICHERPLATZ C64.L... A
=FRE(1)-2000.....G..G(N):. MAXIMALER POL
YNOMGRAD...... I.1 . N......1,W(0,I):.1,
W(1,I)...... 1300:. ZWISCHENWERTE BERECH
NEN...... I..... 1...... 1500:. SCATTER
DIAGRAMM.......3.... ----- GRAFIK ZEIGEN
----------.N.B.. W.0 . ."DA FEHLEN NOCH
DIE WERTE!":. I.0 . 500:. I:....L.. 491
52:. 49202,6,0:. GRAFIK EIN...M.. GRAPHI
C1:RETURN.D.V.. A$:. E(A$)..4 . 3020....
.. 4010:. TEXTMODUS EIN... .. ----- TEXT
MODUS EIN ----------. .... 49242:. TEXTM
ODUS EIN.R.... IF PEEK(238)=79 THEN GRAP
HIC5:ELSE GRAPHIC0.X.......... ---- POLY
NOM-BERECHNUNG ----------------------...
... 4000:. TEXTMODUS.Z.... W.0 . ."DA FE
HLEN DIE WERTE!":. I.0 . 500:. I:.......
G(147)G(17)G(17)"WELCHEN GRAD SOLL DAS P
OLYNOM HABEN ?".P....:."MAXIMAL ERLAUBT
IST EIN POLYNOM ":.,G".GRADES ."......:.
"BEI OVERFLOW-ERROR IST DER":."WIEDEREIN
STIEG INS PROGRAMM"......"MOEGLICH MIT '
GOTO 400' !".X....:."POLYNOMGRAD=";G2:.G
2.G.5020...D..I.1.G2.2:T(I).0:A(I).0:A(.
(2.I.3)).0:.K.1.G.1:R(K,I).0:.K:.I.D.N.A
(1).N:ZZ.0:M.0:S.0:HH.0:Q.0:P.0:A0.0.U.X
..I.1.N:.L.2.2.G2.1:A(L).A(L).W(0,I).(L.
1):.L......K.1.G2.1:R(K,G2.2).T(K).W(1,I
).W(0,I).(K.1).....T(K).T(K).W(1,I).W(0,
I).(K.1):.K:T(G2.2).T(G2.2).W(1,I).2:.I.
. ...I.1.G2.1:.K.1.G2.1:R(I,K).A(I.K.1):
.K:.I.= ...I.1.G2.1:.K.I.G2.1:.R(K,I)..0
.5150.T ... 4000:. TEXTMODUS.V ..."KEINE
EINDEUTIGE LOESUNG":... ...L.1.G2.2:S.R
(I,L):R(I,L).R(K,L):R(K,L).S:.L.S (.M.1.
R(I,I):.L.1.G2.2:R(I,L).M.R(I,L):.L.. 2.
.K.1.G2.1:.K.I.5190..!<.M..R(K,I):.L.1.G
2.2:R(K,L).R(K,L).M.R(I,L):.L.4!F..K:.I:
A0.1:.G(147).J!P.P.0:.I.2.G2.1:P.P.R(I,G
2.2).(T(I).A(I).T(1).N):.I..!Z.Q.T(G2.2)
.T(1).2.N:ZZ.Q.P:B.N.G2.1:HH.P.Q:.B.0.B.
1E.23..!_.A0.1:. 4000:.G(147)..!D.."DAS
POLYNOM "G2".GRADES IST:":.:..5)"Y=A0+A1
*X+A2*X^2+...".)"N..:..3)"KONSTANTE A0="
R(1,G2.2):.I.1.G2.U"X...3)"KOEFFIZIENT A
"I"="R(I.1,G2.2):.I:..}"....3)"KORRELATI
ONSKOEFFIZIENT=":.,HH.."...:..3)"STANDAR
DABWEICHUNG=":.,.(.(ZZ.B)).."...:..3)"GR
AFIK...TASTE DRUECKEN ! (_ = MENUE)".."
..A$:. A$."". 5280..#... A$."_" . ..,#..
R.1:. 49152:. 49202,6,0:. GRAFIK EIN.=#.
.. GOSUB 3000.[#... I.LX . MX . (MX.LX).
100..#H.P.R(1,G2.2):. 7010:. FUNKTIONSWE
RT BERECHNEN..#R.X1..X(I):Y1..Y(P):. Y1.
0 . 5350.U#... 49266 X1,Y1,1:. PUNKT ZEI
CHNEN..#... DRAW 1,X1,Y1..#... I..$... A
$:. A$ ."" . 5360.!$... A$."_" . . 4000:
..>$... R.1 . R.0:. 4000:.5360.B$... R.0
. R.1:. 49152:. 49202,6,0..$... IF R=0
THEN R=1:GOSUB 3000..$... 5360..$P.. ---
--- WERTE BERECHNEN ----------.M$Z.. 400
0:. TEXTMODUS..%... A0.0 . W.0 . ."BITTE
GEBEN SIE ZUB.>..4......XN UBD".E%... A
0.0 . ."BITTE DIE KURVE BERECHNEN!":. I.
0 . 500:. I:..R%...:." AUF DER BASIS DER
REGRESSIONSKURVE"..%..."KOENNEN BELIEBI
GE WERTE BERECHNET WERDEN".S%...:." ZURU
ECK ZUM MENUE KOMMEN SIE DURCH _":...%..
."WERT X = ";A$..%... A$ ."_" . ...&J.I.
E(A$)..&T.P.R(1,G2.2):.7010.0&...G(145),
,"Y = "P.;&... 6060.C&X.. ----- POLYNOMW
ERT BERECHNEN -----..&B..J.1.G2:P.P.R(J.
1,G2.2).I.J:.J:.....
> CLICK IMAGE PREVIEW FOR FULL MODAL