INTERPOLATION.SB
FILE INFORMATION
FILENAME(S): INTERPOLATION.SB
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-10-20 14:30:26
APPEARS ON: 1 disk(s)
FILE HASH
53ca1d222a32eb13cb50f5376646cffd771553c2dfc4cbfe665162213809534e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCIENTIFIC BASIC | INTERPOLATION.SB | PRG | Treasure Chest - Klaus Der Suhler | 20 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0C 08 05 00 3A 8A 20 31 30 30 00 31 08 0A |......:. 100.1..|
00000010: 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 00 56 08 14 00 8F 20 2A 20 20 20 20 50 4F 4C |*.V.... * POL|
00000040: 59 4E 4F 4D 49 4E 54 45 52 50 4F 4C 41 54 49 4F |YNOMINTERPOLATIO|
00000050: 4E 20 20 20 20 2A 00 7B 08 1E 00 8F 20 2A 2A 2A |N *.{.... ***|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 08 28 00 |***********...(.|
00000080: 8F 20 31 34 2E 30 37 2E 31 39 38 37 20 20 20 20 |. 14.07.1987 |
00000090: 20 20 4D 41 52 54 49 4E 20 41 48 4C 42 4F 52 4E | MARTIN AHLBORN|
000000A0: 00 A6 08 2D 00 3A 00 C7 08 2F 00 8F 20 55 4E 54 |...-.:.../.. UNT|
000000B0: 45 52 50 52 4F 47 52 41 4D 4D 20 59 3D 50 4F 4C |ERPROGRAMM Y=POL|
000000C0: 59 4E 4F 4D 28 58 29 00 D1 08 32 00 2E 50 4F 4C |YNOM(X)...2..POL|
000000D0: 59 00 E8 08 37 00 8B 20 4E B8 37 20 A7 20 59 B7 |Y...7.. N.7 . Y.|
000000E0: A5 50 4F 28 58 29 3A 8E 00 F3 08 3C 00 59 B7 46 |.PO(X):....<.Y.F|
000000F0: 28 31 29 00 01 09 41 00 81 20 49 B7 32 20 A4 20 |(1)...A.. I.2 . |
00000100: 4E 00 17 09 46 00 59 B7 59 AC 28 58 AB 58 28 49 |N...F.Y.Y.(X.X(I|
00000110: 29 29 AA 46 28 49 29 00 1D 09 4B 00 82 00 23 09 |)).F(I)...K...#.|
00000120: 50 00 8E 00 29 09 5A 00 3A 00 39 09 64 00 99 22 |P...).Z.:.9.d.."|
00000130: 93 22 3A 9B 31 30 AB 33 30 00 5B 09 96 00 85 22 |.":.10.30.[...."|
00000140: C1 4E 5A 41 48 4C 20 44 45 52 20 D3 54 55 45 54 |.NZAHL DER .TUET|
00000150: 5A 53 54 45 4C 4C 45 4E 22 3B 4E 00 71 09 AA 00 |ZSTELLEN";N.q...|
00000160: 86 20 58 28 4E 29 2C 46 28 4E 29 2C 46 31 28 4E |. X(N),F(N),F1(N|
00000170: 29 00 77 09 BE 00 3A 00 85 09 C8 00 81 20 49 B7 |).w...:...... I.|
00000180: 31 20 A4 20 4E 00 97 09 D2 00 99 22 58 22 49 3B |1 . N......"X"I;|
00000190: 3A 85 20 58 28 49 29 00 C9 09 D7 00 8B 20 49 B6 |:. X(I)...... I.|
000001A0: 31 20 A7 20 8B 20 58 28 49 29 B8 B7 58 28 49 AB |1 . . X(I)..X(I.|
000001B0: 31 29 20 A7 20 99 22 41 55 46 53 54 45 49 47 45 |1) . ."AUFSTEIGE|
000001C0: 4E 44 21 22 3A 89 32 31 30 00 E5 09 DC 00 99 A3 |ND!":.210.......|
000001D0: 31 35 29 22 91 46 28 58 22 49 22 29 22 3B 3A 85 |15)".F(X"I")";:.|
000001E0: 20 46 28 49 29 00 F4 09 E1 00 46 31 28 49 29 B7 | F(I).....F1(I).|
000001F0: 46 28 49 29 00 FA 09 E6 00 82 00 20 0A EB 00 8F |F(I)....... ....|
00000200: 20 4D 49 4E 49 4D 55 4D 20 55 4E 44 20 4D 41 58 | MINIMUM UND MAX|
00000210: 49 4D 55 4D 20 44 45 52 20 46 2D 57 45 52 54 45 |IMUM DER F-WERTE|
00000220: 00 36 0A F0 00 4D 49 4E B7 46 28 31 29 3A 4D 41 |.6...MIN.F(1):MA|
00000230: 58 B7 46 28 31 29 00 44 0A FA 00 81 20 49 B7 32 |X.F(1).D.... I.2|
00000240: 20 A4 20 4E 00 5E 0A 04 01 8B 20 46 28 49 29 B6 | . N.^.... F(I).|
00000250: 4D 41 58 20 A7 20 4D 41 58 B7 46 28 49 29 00 78 |MAX . MAX.F(I).x|
00000260: 0A 0E 01 8B 20 46 28 49 29 B8 4D 49 4E 20 A7 20 |.... F(I).MIN . |
00000270: 4D 49 4E B7 46 28 49 29 00 7E 0A 18 01 82 00 84 |MIN.F(I).~......|
00000280: 0A 22 01 3A 00 AA 0A 2C 01 8F 20 45 52 52 45 43 |.".:...,.. ERREC|
00000290: 48 4E 45 4E 20 44 45 52 20 4B 4F 45 46 46 49 5A |HNEN DER KOEFFIZ|
000002A0: 49 45 4E 54 45 4E 20 44 45 53 00 D0 0A 36 01 8F |IENTEN DES...6..|
000002B0: 20 49 4E 54 45 52 50 4F 4C 41 54 49 4F 4E 53 50 | INTERPOLATIONSP|
000002C0: 4F 4C 59 4E 4F 4D 53 20 4D 49 54 48 49 4C 46 45 |OLYNOMS MITHILFE|
000002D0: 00 F2 0A 40 01 8F 20 44 45 52 20 44 49 56 49 44 |...@.. DER DIVID|
000002E0: 49 45 52 54 45 4E 20 44 49 46 46 45 52 45 4E 5A |IERTEN DIFFERENZ|
000002F0: 45 4E 00 F8 0A 4A 01 8F 00 08 0B 5E 01 81 20 49 |EN...J.....^.. I|
00000300: B7 31 20 A4 20 4E AB 31 00 18 0B 68 01 81 20 4A |.1 . N.1...h.. J|
00000310: B7 31 20 A4 20 4E AB 49 00 3D 0B 72 01 46 28 4A |.1 . N.I.=.r.F(J|
00000320: 29 B7 28 46 28 4A AA 31 29 AB 46 28 4A 29 29 AD |).(F(J.1).F(J)).|
00000330: 28 58 28 4A AA 49 29 AB 58 28 4A 29 29 00 47 0B |(X(J.I).X(J)).G.|
00000340: 7C 01 82 20 4A 2C 49 00 4D 0B 86 01 3A 00 73 0B ||.. J,I.M...:.s.|
00000350: 90 01 8F 20 45 52 53 54 45 4C 4C 45 4E 20 44 45 |... ERSTELLEN DE|
00000360: 52 20 46 55 4E 4B 54 49 4F 4E 20 50 4F 4C 59 28 |R FUNKTION POLY(|
00000370: 58 29 2C 00 92 0B 9A 01 8F 20 46 41 4C 4C 53 20 |X),...... FALLS |
00000380: 4E 3C 37 20 28 46 4E 20 4C 41 45 4E 47 45 3C 38 |N<7 (FN LAENGE<8|
00000390: 38 29 00 A2 0B A4 01 8B 20 4E B6 36 20 A7 20 35 |8)...... N.6 . 5|
000003A0: 30 30 00 B0 0B B8 01 46 24 B7 22 46 28 31 29 22 |00.....F$."F(1)"|
000003B0: 00 BE 0B C2 01 81 20 49 B7 32 20 A4 20 4E 00 D8 |...... I.2 . N..|
000003C0: 0B CC 01 49 24 B7 DF 28 24 33 30 AA 49 29 20 3A |...I$..($30.I) :|
000003D0: 8F 20 5A 49 46 46 45 52 00 02 0C D6 01 46 24 B7 |. ZIFFER.....F$.|
000003E0: 22 28 22 AA 46 24 AA 22 29 2A 28 58 2D 58 28 22 |"(".F$.")*(X-X("|
000003F0: AA 49 24 AA 22 29 29 2B 46 28 22 AA 49 24 AA 22 |.I$."))+F(".I$."|
00000400: 29 22 00 08 0C E0 01 82 00 18 0C EA 01 96 A5 20 |)"............. |
00000410: 50 4F 28 58 29 B7 46 24 00 1E 0C EF 01 3A 00 3E |PO(X).F$.....:.>|
00000420: 0C F4 01 8F 20 41 55 53 47 41 42 45 20 44 45 52 |.... AUSGABE DER|
00000430: 20 4B 4F 45 46 46 49 5A 49 45 4E 54 45 4E 00 55 | KOEFFIZIENTEN.U|
00000440: 0C FE 01 99 22 11 CB 4F 45 46 46 49 5A 49 45 4E |...."..OEFFIZIEN|
00000450: 54 45 4E 3A 22 00 63 0C 08 02 81 20 49 B7 31 20 |TEN:".c.... I.1 |
00000460: A4 20 4E 00 77 0C 12 02 99 22 46 28 22 49 22 29 |. N.w...."F("I")|
00000470: 3D 22 20 46 28 49 29 00 7D 0C 17 02 82 00 90 0C |=" F(I).}.......|
00000480: 1C 02 8B 20 4E B6 36 20 A7 20 2E 4D 45 4E 55 45 |... N.6 . .MENUE|
00000490: 00 AF 0C 21 02 99 22 11 C9 4E 54 45 52 50 4F 4C |...!.."..NTERPOL|
000004A0: 41 54 49 4F 4E 53 50 4F 4C 59 4E 4F 4D 3A 22 00 |ATIONSPOLYNOM:".|
000004B0: BD 0C 26 02 99 22 59 3D 20 22 20 46 24 00 C3 0C |..&.."Y= " F$...|
000004C0: 2B 02 3A 00 CE 0C 30 02 2E 4D 45 4E 55 45 00 F0 |+.:...0..MENUE..|
000004D0: 0C 35 02 99 22 11 12 D7 92 45 52 54 45 54 41 42 |.5.."....ERTETAB|
000004E0: 45 4C 4C 45 20 2F 20 12 C7 92 52 41 50 48 3F 22 |ELLE / ...RAPH?"|
000004F0: 00 04 0D 3A 02 EB 3A A1 20 41 24 3A F2 20 EF 20 |...:..:. A$:. . |
00000500: DB 20 41 24 00 21 0D 3F 02 8B 20 41 24 B7 22 57 |. A$.!.?.. A$."W|
00000510: 22 20 A7 20 2E 57 45 52 54 45 54 41 42 45 4C 4C |" . .WERTETABELL|
00000520: 45 00 35 0D 44 02 8B 20 41 24 B8 B6 22 47 22 20 |E.5.D.. A$.."G" |
00000530: A7 20 35 37 30 00 3B 0D 4E 02 3A 00 5A 0D 58 02 |. 570.;.N.:.Z.X.|
00000540: 8F 20 2A 2A 2A 2A 20 46 55 4E 4B 54 49 4F 4E 53 |. **** FUNKTIONS|
00000550: 47 52 41 50 48 20 2A 2A 2A 2A 00 74 0D 62 02 8F |GRAPH ****.t.b..|
00000560: 20 50 41 52 41 4D 45 54 45 52 20 46 45 53 54 4C | PARAMETER FESTL|
00000570: 45 47 45 4E 00 7A 0D 67 02 8F 00 92 0D 6C 02 99 |EGEN.z.g.....l..|
00000580: 22 4D 49 4E 2E 20 59 2D D7 45 52 54 20 20 22 4D |"MIN. Y-.ERT "M|
00000590: 49 4E 00 A6 0D 6E 02 99 A3 31 31 29 22 91 22 3B |IN...n...11)".";|
000005A0: 3A 85 20 4D 49 4E 00 BE 0D 70 02 99 22 4D 41 58 |:. MIN...p.."MAX|
000005B0: 2E 20 59 2D D7 45 52 54 20 20 22 4D 41 58 00 D2 |. Y-.ERT "MAX..|
000005C0: 0D 72 02 99 A3 31 31 29 22 91 22 3B 3A 85 20 4D |.r...11)".";:. M|
000005D0: 41 58 00 E9 0D 76 02 53 58 B7 33 32 30 AD 28 58 |AX...v.SX.320.(X|
000005E0: 28 4E 29 AB 58 28 31 29 29 00 00 0E 80 02 53 59 |(N).X(1)).....SY|
000005F0: B7 32 30 30 AD 28 20 4D 41 58 AB 4D 49 4E 20 29 |.200.( MAX.MIN )|
00000600: 00 10 0E 8A 02 4D 58 B7 AB 58 28 31 29 AC 53 58 |.....MX..X(1).SX|
00000610: 00 20 0E 94 02 4D 59 B7 AB 4D 49 4E 20 AC 53 59 |. ...MY..MIN .SY|
00000620: 00 36 0E 9E 02 44 58 B7 31 30 AE 28 AB BE 20 D2 |.6...DX.10.(.. .|
00000630: 20 53 58 AA 31 29 00 40 0E A8 02 44 59 B7 44 58 | SX.1).@...DY.DX|
00000640: 00 55 0E D0 02 FA 20 31 2C 36 3A 8D 2E 4B 4F B0 |.U.... 1,6:..KO.|
00000650: 4B 52 45 55 5A 00 71 0E DA 02 FA 20 99 20 32 34 |KREUZ.q.... . 24|
00000660: 2C 30 2C 22 C5 49 4E 48 45 49 54 3A 22 AA DC 44 |,0,".INHEIT:"..D|
00000670: 58 00 77 0E DC 02 3A 00 92 0E DF 02 8F 20 53 54 |X.w...:...... ST|
00000680: 55 45 54 5A 50 55 4E 4B 54 45 20 50 4C 4F 54 54 |UETZPUNKTE PLOTT|
00000690: 45 4E 00 A0 0E E4 02 81 20 49 B7 31 20 A4 20 4E |EN...... I.1 . N|
000006A0: 00 B1 0E E9 02 EA 20 58 28 49 29 2C 46 31 28 49 |...... X(I),F1(I|
000006B0: 29 00 B7 0E EB 02 82 00 BD 0E EE 02 3A 00 DC 0E |)...........:...|
000006C0: F8 02 8F 20 49 4E 54 45 52 50 4F 4C 49 45 52 45 |... INTERPOLIERE|
000006D0: 4E 44 45 20 5A 45 49 43 48 4E 45 4E 00 E8 0E FA |NDE ZEICHNEN....|
000006E0: 02 58 31 B7 58 28 31 29 00 FD 0E FC 02 58 B7 58 |.X1.X(1).....X.X|
000006F0: 31 3A 8D 2E 50 4F 4C 59 3A 59 31 B7 59 00 1B 0F |1:..POLY:Y1.Y...|
00000700: 02 03 81 20 58 B7 58 31 AA 31 AD 53 58 20 A4 20 |... X.X1.1.SX . |
00000710: 58 28 4E 29 20 A9 20 31 AD 53 58 00 26 0F 07 03 |X(N) . 1.SX.&...|
00000720: 8D 2E 50 4F 4C 59 00 38 0F 0C 03 FB 20 58 31 2C |..POLY.8.... X1,|
00000730: 59 31 20 A4 20 58 2C 59 00 46 0F 0E 03 58 31 B7 |Y1 . X,Y.F...X1.|
00000740: 58 3A 59 31 B7 59 00 4C 0F 11 03 82 00 5F 0F 13 |X:Y1.Y.L....._..|
00000750: 03 EB 3A A1 41 24 3A EE 41 24 B7 22 22 3A F2 00 |..:.A$:.A$."":..|
00000760: 6F 0F 16 03 FA 20 F8 3A 89 2E 4D 45 4E 55 45 00 |o.... .:..MENUE.|
00000770: 75 0F 1B 03 3A 00 93 0F 20 03 2E 57 45 52 54 45 |u...:... ..WERTE|
00000780: 54 41 42 45 4C 4C 45 3A 20 8F 20 2A 2A 2A 2A 2A |TABELLE: . *****|
00000790: 2A 2A 2A 00 A9 0F 2A 03 85 22 D3 43 48 52 49 54 |***...*..".CHRIT|
000007A0: 54 57 45 49 54 45 22 3B 53 00 CC 0F 2F 03 53 58 |TWEITE";S.../.SX|
000007B0: B7 BE D2 28 58 28 4E 29 AB 58 28 31 29 29 AB 34 |...(X(N).X(1)).4|
000007C0: 3A 8F 20 5A 2E 20 52 55 4E 44 45 4E 00 E3 0F 31 |:. Z. RUNDEN...1|
000007D0: 03 53 59 B7 BE D2 28 4D 41 58 20 AB 4D 49 4E 20 |.SY...(MAX .MIN |
000007E0: 29 AB 34 00 FB 0F 34 03 99 22 11 20 20 58 22 A3 |).4...4..". X".|
000007F0: 31 35 29 22 50 4F 4C 59 28 58 29 00 13 10 3E 03 |15)"POLY(X)...>.|
00000800: 81 20 58 B7 58 28 31 29 20 A4 20 58 28 4E 29 20 |. X.X(1) . X(N) |
00000810: A9 20 53 00 28 10 48 03 99 20 E3 28 58 2C 53 58 |. S.(.H.. .(X,SX|
00000820: 29 20 20 A3 31 35 29 3B 00 3D 10 4D 03 8D 2E 50 |) .15);.=.M...P|
00000830: 4F 4C 59 3A 99 20 E3 28 59 2C 53 59 29 00 43 10 |OLY:. .(Y,SY).C.|
00000840: 52 03 82 00 4F 10 5C 03 89 2E 4D 45 4E 55 45 00 |R...O.\...MENUE.|
00000850: 55 10 7A 03 3A 00 5B 10 26 75 3A 00 69 10 30 75 |U.z.:.[.&u:.i.0u|
00000860: 2E 4B 4F B0 4B 52 45 55 5A 00 8D 10 35 75 8F 20 |.KO.KREUZ...5u. |
00000870: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000880: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 AE 10 |-------------...|
00000890: 3A 75 8F 20 55 4E 54 45 52 50 52 4F 47 52 41 4D |:u. UNTERPROGRAM|
000008A0: 4D 20 5A 55 4D 20 5A 45 49 43 48 4E 45 4E 00 CE |M ZUM ZEICHNEN..|
000008B0: 10 44 75 8F 20 45 49 4E 45 53 20 4B 4F 4F 52 44 |.Du. EINES KOORD|
000008C0: 49 4E 41 54 45 4E 4B 52 45 55 5A 45 53 2E 00 DF |INATENKREUZES...|
000008D0: 10 4E 75 8F 20 50 41 52 41 4D 45 54 45 52 3A 00 |.Nu. PARAMETER:.|
000008E0: 03 11 58 75 8F 20 4D 58 2C 4D 59 20 20 4D 49 54 |..Xu. MX,MY MIT|
000008F0: 54 45 4C 50 55 4E 4B 54 4B 4F 4F 52 44 49 4E 41 |TELPUNKTKOORDINA|
00000900: 54 45 4E 00 27 11 62 75 8F 20 53 58 2C 53 59 20 |TEN.'.bu. SX,SY |
00000910: 20 50 55 4E 4B 54 45 20 50 52 4F 20 45 49 4E 48 | PUNKTE PRO EINH|
00000920: 45 49 54 20 58 2C 59 00 4B 11 6C 75 8F 20 44 58 |EIT X,Y.K.lu. DX|
00000930: 2C 44 59 20 20 45 49 4E 48 45 49 54 45 4E 20 2F |,DY EINHEITEN /|
00000940: 20 4D 41 52 4B 49 45 52 55 4E 47 00 6F 11 80 75 | MARKIERUNG.o..u|
00000950: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------|
00000960: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 |---------------.|
00000970: 7D 11 94 75 FA 20 9C 3A FC 20 30 2C 30 00 9D 11 |}..u. .:. 0,0...|
00000980: 9E 75 FB 20 30 2C 4D 59 20 A4 20 33 31 39 2C 4D |.u. 0,MY . 319,M|
00000990: 59 20 20 3A 8F 20 58 2D 41 43 48 53 45 00 BD 11 |Y :. X-ACHSE...|
000009A0: A8 75 FB 20 4D 58 2C 30 20 A4 20 4D 58 2C 31 39 |.u. MX,0 . MX,19|
000009B0: 39 20 20 3A 8F 20 59 2D 41 43 48 53 45 00 CF 11 |9 :. Y-ACHSE...|
000009C0: B2 75 FC 20 4D 58 2C 4D 59 2C 53 58 2C 53 59 00 |.u. MX,MY,SX,SY.|
000009D0: ED 11 BC 75 8F 20 20 45 49 4E 48 45 49 54 53 4D |...u. EINHEITSM|
000009E0: 41 52 4B 49 45 52 55 4E 47 45 4E 20 58 00 16 12 |ARKIERUNGEN X...|
000009F0: C6 75 81 58 B7 AB 28 4D 58 AD 53 58 29 B2 44 58 |.u.X..(MX.SX).DX|
00000A00: AC 44 58 20 A4 20 28 33 31 39 AB 4D 58 29 AD 53 |.DX . (319.MX).S|
00000A10: 58 20 A9 20 44 58 00 2D 12 D0 75 FB 20 58 2C AB |X . DX.-..u. X,.|
00000A20: 33 AD 53 59 20 A4 20 58 2C 33 AD 53 59 00 33 12 |3.SY . X,3.SY.3.|
00000A30: DA 75 82 00 51 12 E4 75 8F 20 20 45 49 4E 48 45 |.u..Q..u. EINHE|
00000A40: 49 54 53 4D 41 52 4B 49 45 52 55 4E 47 45 4E 20 |ITSMARKIERUNGEN |
00000A50: 59 00 7A 12 EE 75 81 59 B7 AB 28 4D 59 AD 53 59 |Y.z..u.Y..(MY.SY|
00000A60: 29 B2 44 59 AC 44 59 20 A4 20 28 31 39 39 AB 4D |).DY.DY . (199.M|
00000A70: 59 29 AD 53 59 20 A9 20 44 59 00 91 12 F8 75 FB |Y).SY . DY....u.|
00000A80: 20 AB 33 AD 53 58 2C 59 20 A4 20 33 AD 53 58 2C | .3.SX,Y . 3.SX,|
00000A90: 59 00 97 12 02 76 82 00 9D 12 52 76 8E 00 00 00 |Y....v....Rv....|
......:. 100.1.... *********************
*********.V.... * POLYNOMINTERPOLATIO
N *.{.... ***************************
***. .(.. 14.07.1987 MARTIN AHLBORN
...-.:.G./.. UNTERPROGRAMM Y=POLYNOM(X).
Q.2..POLY...7.. N.7 . Y..PO(X):....<.Y.F
(1)...A.. I.2 . N...F.Y.Y.(X.X(I)).F(I).
..K...#.P...).Z.:.9.D..".":.10.30.[...."
ANZAHL DER STUETZSTELLEN";N.Q.... X(N),F
(N),F1(N).W...:...H.. I.1 . N...R.."X"I;
:. X(I).I.W.. I.1 . . X(I)..X(I.1) . ."A
UFSTEIGEND!":.210.......15)".F(X"I")";:.
F(I).....F1(I).F(I)....... .... MINIMUM
UND MAXIMUM DER F-WERTE.6...MIN.F(1):MA
X.F(1).D.... I.2 . N.^.... F(I).MAX . MA
X.F(I).X.... F(I).MIN . MIN.F(I).~......
.".:...,.. ERRECHNEN DER KOEFFIZIENTEN D
ES.P.6.. INTERPOLATIONSPOLYNOMS MITHILFE
...@.. DER DIVIDIERTEN DIFFERENZEN...J..
...^.. I.1 . N.1...H.. J.1 . N.I.=.R.F(J
).(F(J.1).F(J)).(X(J.I).X(J)).G.|.. J,I.
M...:.S.... ERSTELLEN DER FUNKTION POLY(
X),...... FALLS N<7 (FN LAENGE<88)......
N.6 . 500.....F$."F(1)"...B.. I.2 . N.X
.L.I$..($30.I) :. ZIFFER...V.F$."(".F$."
)*(X-X(".I$."))+F(".I$.")".............
PO(X).F$.....:.>.... AUSGABE DER KOEFFIZ
IENTEN.U....".KOEFFIZIENTEN:".C.... I.1
. N.W...."F("I")=" F(I).}.......... N.6
. .MENUE...!..".INTERPOLATIONSPOLYNOM:".
..&.."Y= " F$.C.+.:.N.0..MENUE...5.."..W
.ERTETABELLE / .G.RAPH?"...:..:. A$:. .
. A$.!.?.. A$."W" . .WERTETABELLE.5.D..
A$.."G" . 570.;.N.:.Z.X.. **** FUNKTIONS
GRAPH ****.T.B.. PARAMETER FESTLEGEN.Z.G
.....L.."MIN. Y-WERT "MIN...N...11)".";
:. MIN...P.."MAX. Y-WERT "MAX.R.R...11)
".";:. MAX...V.SX.320.(X(N).X(1)).....SY
.200.( MAX.MIN ).....MX..X(1).SX. ...MY.
.MIN .SY.6...DX.10.(.. R SX.1).@...DY.DX
.U.P.. 1,6:..KO.KREUZ.Q.Z.. . 24,0,"EINH
EIT:"..DX.W...:...... STUETZPUNKTE PLOTT
EN. .... I.1 . N...... X(I),F1(I).......
....:...... INTERPOLIERENDE ZEICHNEN....
.X1.X(1).....X.X1:..POLY:Y1.Y...... X.X1
.1.SX . X(N) . 1.SX.&.....POLY.8.... X1,
Y1 . X,Y.F...X1.X:Y1.Y.L....._....:.A$:.
A$."":..O.... .:..MENUE.U...:... ..WERTE
TABELLE: . ********...*.."SCHRITTWEITE";
S.L./.SX..R(X(N).X(1)).4:. Z. RUNDEN...1
.SY..R(MAX .MIN ).4...4..". X".15)"POLY
(X)...>.. X.X(1) . X(N) . S.(.H.. .(X,SX
) .15);.=.M...POLY:. .(Y,SY).C.R...O.\.
..MENUE.U.Z.:.[.&U:.I.0U.KO.KREUZ...5U.
-----------------------------...:U. UNTE
RPROGRAMM ZUM ZEICHNEN.N.DU. EINES KOORD
INATENKREUZES....NU. PARAMETER:...XU. MX
,MY MITTELPUNKTKOORDINATEN.'.BU. SX,SY
PUNKTE PRO EINHEIT X,Y.K.LU. DX,DY EIN
HEITEN / MARKIERUNG.O..U. --------------
---------------.}..U. .:. 0,0....U. 0,MY
. 319,MY :. X-ACHSE....U. MX,0 . MX,19
9 :. Y-ACHSE.O..U. MX,MY,SX,SY....U. E
INHEITSMARKIERUNGEN X...FU.X..(MX.SX).DX
.DX . (319.MX).SX . DX.-.PU. X,.3.SY . X
,3.SY.3.ZU..Q..U. EINHEITSMARKIERUNGEN
Y.Z..U.Y..(MY.SY).DY.DY . (199.MY).SY .
DY....U. .3.SX,Y . 3.SX,Y....V....RV....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL