XYZ CURVEFITTING
FILE INFORMATION
FILENAME(S): XYZ CURVEFITTING
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-11-30 21:23:50
APPEARS ON: 1 disk(s)
FILE HASH
24e00ef5f8d6b563b9a6ee82bb98469b7ed759b1ce6520e70dfd70b441821a3a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 21 2 | XYZ CURVEFITTING | PRG | DuncanTwain | 6 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1B 08 05 00 86 58 28 31 30 30 29 2C 59 28 |.......X(100),Y(| 00000010: 31 30 30 29 2C 5A 28 31 30 30 29 00 4D 08 06 00 |100),Z(100).M...| 00000020: 99 22 93 11 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."..************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 77 08 |************".w.| 00000050: 0A 00 99 22 20 20 20 20 20 20 33 20 50 41 52 41 |..." 3 PARA| 00000060: 4D 45 54 45 52 20 43 55 52 56 45 46 49 54 54 49 |METER CURVEFITTI| 00000070: 4E 47 20 4C 53 51 22 00 A9 08 0C 00 99 3A 99 22 |NG LSQ"......:."| 00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 22 00 DA 08 14 00 99 3A |********"......:| 000000B0: 99 22 56 4F 52 4D 3A 20 46 5A 3D 41 30 2B 41 31 |."VORM: FZ=A0+A1| 000000C0: 2A 46 58 2B 41 32 2A 46 58 2A 46 58 20 28 50 41 |*FX+A2*FX*FX (PA| 000000D0: 52 41 42 4F 4C 49 53 43 48 29 00 09 09 1E 00 99 |RABOLISCH)......| 000000E0: 3A 99 22 46 55 4E 43 54 49 45 3A 20 58 28 49 29 |:."FUNCTIE: X(I)| 000000F0: 3D 46 28 58 28 49 29 29 20 52 45 47 45 4C 20 35 |=F(X(I)) REGEL 5| 00000100: 30 3A 52 45 54 55 52 4E 22 00 38 09 23 00 99 3A |0:RETURN".8.#..:| 00000110: 99 22 46 55 4E 43 54 49 45 3A 20 59 28 49 29 3D |."FUNCTIE: Y(I)=| 00000120: 46 28 59 28 49 29 29 20 52 45 47 45 4C 20 36 30 |F(Y(I)) REGEL 60| 00000130: 3A 52 45 54 55 52 4E 22 00 67 09 28 00 99 3A 99 |:RETURN".g.(..:.| 00000140: 22 46 55 4E 43 54 49 45 3A 20 5A 28 49 29 3D 46 |"FUNCTIE: Z(I)=F| 00000150: 28 5A 28 49 29 29 20 52 45 47 45 4C 20 37 30 3A |(Z(I)) REGEL 70:| 00000160: 52 45 54 55 52 4E 22 00 8F 09 29 00 99 3A 99 22 |RETURN"...)..:."| 00000170: 46 55 4E 43 54 49 45 20 49 4E 56 45 52 53 45 20 |FUNCTIE INVERSE | 00000180: 5A 28 49 29 20 52 45 47 45 4C 20 33 36 30 22 00 |Z(I) REGEL 360".| 00000190: 98 09 2D 00 89 31 30 30 00 A8 09 32 00 58 28 49 |..-..100...2.X(I| 000001A0: 29 B2 58 28 49 29 3A 8E 00 BD 09 3C 00 59 28 49 |).X(I):....<.Y(I| 000001B0: 29 B2 59 28 49 29 AC 59 28 49 29 3A 8E 00 CD 09 |).Y(I).Y(I):....| 000001C0: 46 00 5A 28 49 29 B2 5A 28 49 29 3A 8E 00 F6 09 |F.Z(I).Z(I):....| 000001D0: 64 00 99 3A 99 22 20 20 20 20 20 56 4F 4F 52 20 |d..:." VOOR | 000001E0: 45 49 4E 44 45 20 49 4E 50 55 54 20 54 59 50 20 |EINDE INPUT TYP | 000001F0: 39 2C 39 2C 39 22 00 03 0A 6E 00 81 49 B2 31 A4 |9,9,9"...n..I.1.| 00000200: 31 30 30 00 28 0A 78 00 99 3A 99 22 54 59 50 20 |100.(.x..:."TYP | 00000210: 58 2C 59 2C 5A 20 56 4F 4F 52 20 45 45 4E 20 50 |X,Y,Z VOOR EEN P| 00000220: 55 4E 54 20 22 3B 49 3B 00 3D 0A 82 00 85 20 58 |UNT ";I;.=.... X| 00000230: 28 49 29 2C 59 28 49 29 2C 5A 28 49 29 00 62 0A |(I),Y(I),Z(I).b.| 00000240: 8C 00 8B 58 28 49 29 B2 39 AF 59 28 49 29 B2 39 |...X(I).9.Y(I).9| 00000250: AF 5A 28 49 29 B2 39 A7 49 B2 31 30 30 3A 89 31 |.Z(I).9.I.100:.1| 00000260: 37 30 00 72 0A 96 00 8D 35 30 3A 8D 36 30 3A 8D |70.r....50:.60:.| 00000270: 37 30 00 7D 0A A0 00 52 35 B2 49 3A 82 00 89 0A |70.}...R5.I:....| 00000280: AA 00 81 49 B2 31 A4 52 35 00 AD 0A B4 00 52 31 |...I.1.R5.....R1| 00000290: B2 52 31 AA 58 28 49 29 AC 59 28 49 29 3A 52 32 |.R1.X(I).Y(I):R2| 000002A0: B2 52 32 AA 58 28 49 29 AC 5A 28 49 29 00 D1 0A |.R2.X(I).Z(I)...| 000002B0: BE 00 52 33 B2 52 33 AA 59 28 49 29 AC 5A 28 49 |..R3.R3.Y(I).Z(I| 000002C0: 29 3A 52 34 B2 52 34 AA 59 28 49 29 AC 59 28 49 |):R4.R4.Y(I).Y(I| 000002D0: 29 00 F0 0A C8 00 52 36 B2 52 36 AA 58 28 49 29 |).....R6.R6.X(I)| 000002E0: AC 58 28 49 29 3A 52 37 B2 52 37 AA 58 28 49 29 |.X(I):R7.R7.X(I)| 000002F0: 00 0A 0B D2 00 52 38 B2 52 38 AA 59 28 49 29 3A |.....R8.R8.Y(I):| 00000300: 52 39 B2 52 39 AA 5A 28 49 29 00 10 0B DC 00 82 |R9.R9.Z(I)......| 00000310: 00 32 0B E6 00 41 B2 28 52 35 AC 52 36 AB 52 37 |.2...A.(R5.R6.R7| 00000320: AC 52 37 29 AC 28 52 35 AC 52 33 AB 52 38 AC 52 |.R7).(R5.R3.R8.R| 00000330: 39 29 00 54 0B F0 00 42 B2 28 52 35 AC 52 31 AB |9).T...B.(R5.R1.| 00000340: 52 37 AC 52 38 29 AC 28 52 35 AC 52 32 AB 52 37 |R7.R8).(R5.R2.R7| 00000350: AC 52 39 29 00 9B 0B FA 00 41 32 B2 28 41 AB 42 |.R9).....A2.(A.B| 00000360: 29 AD 28 28 52 35 AC 52 36 AB 52 37 AC 52 37 29 |).((R5.R6.R7.R7)| 00000370: AC 28 52 35 AC 52 34 AB 52 38 AC 52 38 29 AB 28 |.(R5.R4.R8.R8).(| 00000380: 52 35 AC 52 31 AB 52 37 AC 52 38 29 AC 28 52 35 |R5.R1.R7.R8).(R5| 00000390: AC 52 31 AB 52 37 AC 52 38 29 29 00 C1 0B 04 01 |.R1.R7.R8)).....| 000003A0: 41 31 B2 28 52 35 AC 52 32 AB 52 37 AC 52 39 29 |A1.(R5.R2.R7.R9)| 000003B0: AB 41 32 AC 28 52 35 AC 52 31 AB 52 37 AC 52 38 |.A2.(R5.R1.R7.R8| 000003C0: 29 00 D9 0B 0E 01 41 31 B2 41 31 AD 28 52 35 AC |).....A1.A1.(R5.| 000003D0: 52 36 AB 52 37 AC 52 37 29 00 F4 0B 18 01 41 30 |R6.R7.R7).....A0| 000003E0: B2 28 52 39 AB 41 32 AC 52 38 AB 41 31 AC 52 37 |.(R9.A2.R8.A1.R7| 000003F0: 29 AD 52 35 00 05 0C 22 01 99 3A 99 22 41 30 3D |).R5..."..:."A0=| 00000400: 20 22 3B 41 30 00 16 0C 2C 01 99 3A 99 22 41 31 | ";A0...,..:."A1| 00000410: 3D 20 22 3B 41 31 00 27 0C 36 01 99 3A 99 22 41 |= ";A1.'.6..:."A| 00000420: 32 3D 20 22 3B 41 32 00 47 0C 40 01 99 3A 99 22 |2= ";A2.G.@..:."| 00000430: 49 4E 54 45 52 50 4F 4C 41 54 49 45 2C 20 54 59 |INTERPOLATIE, TY| 00000440: 50 20 58 2C 59 22 3B 00 57 0C 4A 01 85 20 58 28 |P X,Y";.W.J.. X(| 00000450: 49 29 2C 59 28 49 29 00 63 0C 54 01 8D 35 30 3A |I),Y(I).c.T..50:| 00000460: 8D 36 30 00 7F 0C 5E 01 5A 28 49 29 B2 41 30 AA |.60...^.Z(I).A0.| 00000470: 41 31 AC 58 28 49 29 AA 41 32 AC 59 28 49 29 00 |A1.X(I).A2.Y(I).| 00000480: A7 0C 68 01 5A 28 49 29 B2 5A 28 49 29 3A 8F 20 |..h.Z(I).Z(I):. | 00000490: 4F 46 20 49 4E 56 45 52 53 45 20 56 41 4E 20 52 |OF INVERSE VAN R| 000004A0: 45 47 45 4C 20 37 30 00 C1 0C 72 01 99 22 20 5A |EGEL 70...r.." Z| 000004B0: 2D 57 41 41 52 44 45 20 49 53 20 22 3B 5A 28 49 |-WAARDE IS ";Z(I| 000004C0: 29 00 CC 0C 7C 01 99 3A 89 33 32 30 00 00 00 00 |)...|..:.320....| 000004D0: 99 FF FF |... |
.......X(100),Y(100),Z(100).M...."..**** ************************************".W. ..." 3 PARAMETER CURVEFITTING LSQ". .....:."******************************** ********".Z....:."VORM: FZ=A0+A1*FX+A2*F X*FX (PARABOLISCH)......:."FUNCTIE: X(I) =F(X(I)) REGEL 50:RETURN".8.#..:."FUNCTI E: Y(I)=F(Y(I)) REGEL 60:RETURN".G.(..:. "FUNCTIE: Z(I)=F(Z(I)) REGEL 70:RETURN". ..)..:."FUNCTIE INVERSE Z(I) REGEL 360". ..-..100...2.X(I).X(I):....<.Y(I).Y(I).Y (I):..M.F.Z(I).Z(I):....D..:." VOOR EINDE INPUT TYP 9,9,9"...N..I.1.100.(.X. .:."TYP X,Y,Z VOOR EEN PUNT ";I;.=.... X (I),Y(I),Z(I).B....X(I).9.Y(I).9.Z(I).9. I.100:.170.R....50:.60:.70.}. .R5.I:.... ...I.1.R5.....R1.R1.X(I).Y(I):R2.R2.X(I) .Z(I).Q...R3.R3.Y(I).Z(I):R4.R4.Y(I).Y(I )...H.R6.R6.X(I).X(I):R7.R7.X(I)...R.R8. R8.Y(I):R9.R9.Z(I).......2...A.(R5.R6.R7 .R7).(R5.R3.R8.R9).T...B.(R5.R1.R7.R8).( R5.R2.R7.R9).....A2.(A.B).((R5.R6.R7.R7) .(R5.R4.R8.R8).(R5.R1.R7.R8).(R5.R1.R7.R 8)).A...A1.(R5.R2.R7.R9).A2.(R5.R1.R7.R8 ).Y...A1.A1.(R5.R6.R7.R7).....A0.(R9.A2. R8.A1.R7).R5..."..:."A0= ";A0...,..:."A1 = ";A1.'.6..:."A2= ";A2.G.@..:."INTERPOL ATIE, TYP X,Y";.W.J.. X(I),Y(I).C.T..50: .60..^.Z(I).A0.A1.X(I).A2.Y(I)...H.Z(I) .Z(I):. OF INVERSE VAN REGEL 70.A.R.." Z -WAARDE IS ";Z(I).L.|..:.320.......
> CLICK IMAGE PREVIEW FOR FULL MODAL