_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

XY CURVE FITTING

FILE INFORMATION

FILENAME(S): XY CURVE FITTING

FILE TYPE(S): PRG

FILE SIZE: 2.3K

FIRST SEEN: 2025-11-30 21:23:50

APPEARS ON: 1 disk(s)

FILE HASH

170c3d9969d62538a0c08bafaa4711f793d5c93245326fb19397819ac4ae4936

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
C64 SPEL 21 2 XY CURVE FITTING PRG DuncanTwain 6 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 36 08 0A 00 99 22  93 22 3A 99 22 11 11 11  |..6....".":."...|
00000010: 20 20 20 2A 2A 2A 43 55  52 56 45 20 46 49 54 54  |   ***CURVE FITT|
00000020: 49 4E 47 20 50 4F 53 2E  20 44 41 54 41 50 41 52  |ING POS. DATAPAR|
00000030: 45 4E 2A 2A 2A 22 00 5D  08 14 00 41 24 28 31 29  |EN***".]...A$(1)|
00000040: B2 22 23 31 20 4C 49 4E  49 41 49 52 20 20 20 20  |."#1 LINIAIR    |
00000050: 20 20 20 20 20 59 3D 42  2A 58 2B 41 22 00 89 08  |     Y=B*X+A"...|
00000060: 1E 00 41 24 28 32 29 B2  22 23 32 20 45 58 50 4F  |..A$(2)."#2 EXPO|
00000070: 4E 45 4E 54 49 45 45 4C  20 20 20 20 59 3D 41 2A  |NENTIEEL    Y=A*|
00000080: 45 58 50 28 42 2A 58 29  22 00 B5 08 28 00 41 24  |EXP(B*X)"...(.A$|
00000090: 28 33 29 B2 22 23 33 20  45 58 50 4F 4E 45 4E 54  |(3)."#3 EXPONENT|
000000A0: 49 45 45 4C 20 20 20 20  59 3D 41 2A 45 58 50 28  |IEEL    Y=A*EXP(|
000000B0: 42 2F 58 29 22 00 DC 08  32 00 41 24 28 34 29 B2  |B/X)"...2.A$(4).|
000000C0: 22 23 34 20 4D 41 43 48  54 20 56 41 4E 20 58 20  |"#4 MACHT VAN X |
000000D0: 20 20 20 20 59 3D 41 2A  58 5E 42 22 00 08 09 3C  |    Y=A*X^B"...<|
000000E0: 00 41 24 28 35 29 B2 22  23 35 20 4C 4F 47 41 52  |.A$(5)."#5 LOGAR|
000000F0: 49 54 4D 49 53 43 48 20  20 20 20 59 3D 41 2B 42  |ITMISCH    Y=A+B|
00000100: 2A 4C 4F 47 28 58 29 22  00 2F 09 46 00 41 24 28  |*LOG(X)"./.F.A$(|
00000110: 36 29 B2 22 23 36 20 48  59 50 45 52 42 4F 4C 49  |6)."#6 HYPERBOLI|
00000120: 53 43 48 20 20 20 20 59  3D 42 2F 58 2B 41 22 00  |SCH    Y=B/X+A".|
00000130: 5E 09 4B 00 41 24 28 37  29 B2 22 23 37 20 4E 4F  |^.K.A$(7)."#7 NO|
00000140: 52 4D 2E 56 45 52 44 45  4C 49 4E 47 20 20 59 3D  |RM.VERDELING  Y=|
00000150: 41 2A 45 58 50 28 2D 58  2A 58 2A 42 29 22 00 77  |A*EXP(-X*X*B)".w|
00000160: 09 50 00 99 3A 81 4B B2  31 A4 37 3A 99 41 24 28  |.P..:.K.1.7:.A$(|
00000170: 4B 29 3A 99 3A 82 4B 00  A3 09 5A 00 99 3A 99 22  |K):.:.K...Z..:."|
00000180: 4E 41 20 49 4E 50 55 54  20 44 41 54 41 20 54 59  |NA INPUT DATA TY|
00000190: 50 20 30 2C 39 39 39 20  56 4F 4F 52 20 53 54 41  |P 0,999 VOOR STA|
000001A0: 52 54 22 00 D3 09 64 00  86 58 28 31 30 30 29 2C  |RT"...d..X(100),|
000001B0: 59 28 31 30 30 29 3A 4E  B2 30 3A 53 59 B2 30 3A  |Y(100):N.0:SY.0:|
000001C0: 53 58 B2 30 3A 59 58 B2  30 3A 58 58 B2 30 3A 59  |SX.0:YX.0:XX.0:Y|
000001D0: 59 B2 30 00 E0 09 6E 00  81 49 B2 31 A4 31 30 30  |Y.0...n..I.1.100|
000001E0: 00 02 0A 78 00 99 3A 99  22 54 59 50 20 58 2C 59  |...x..:."TYP X,Y|
000001F0: 20 56 4F 4F 52 20 45 45  4E 20 50 55 4E 54 22 3B  | VOOR EEN PUNT";|
00000200: 49 3B 00 11 0A 7D 00 85  58 28 49 29 2C 59 28 49  |I;...}..X(I),Y(I|
00000210: 29 00 31 0A 82 00 8B 59  28 49 29 B2 39 39 39 AF  |).1....Y(I).999.|
00000220: 58 28 49 29 B2 30 A7 49  B2 31 30 30 3A 89 33 30  |X(I).0.I.100:.30|
00000230: 30 00 50 0A 87 00 8B 58  28 49 29 B2 30 A7 58 28  |0.P....X(I).0.X(|
00000240: 49 29 B2 58 28 49 29 AA  2E 30 30 30 30 30 30 31  |I).X(I)..0000001|
00000250: 00 5B 0A 8C 00 4E B2 49  3A 82 49 00 78 0A 96 00  |.[...N.I:.I.x...|
00000260: 53 59 B2 30 3A 53 58 B2  30 3A 59 58 B2 30 3A 58  |SY.0:SX.0:YX.0:X|
00000270: 58 B2 30 3A 59 59 B2 30  00 83 0A 9B 00 81 49 B2  |X.0:YY.0......I.|
00000280: 31 A4 4E 00 BD 0A A0 00  53 59 B2 53 59 AA 59 28  |1.N.....SY.SY.Y(|
00000290: 49 29 3A 53 58 B2 53 58  AA 58 28 49 29 3A 59 58  |I):SX.SX.X(I):YX|
000002A0: B2 59 58 AA 59 28 49 29  AC 58 28 49 29 3A 59 59  |.YX.Y(I).X(I):YY|
000002B0: B2 59 59 AA 59 28 49 29  AC 59 28 49 29 00 D1 0A  |.YY.Y(I).Y(I)...|
000002C0: AA 00 58 58 B2 58 58 AA  58 28 49 29 AC 58 28 49  |..XX.XX.X(I).X(I|
000002D0: 29 00 D8 0A B4 00 82 49  00 EA 0A DC 00 52 32 B2  |)......I.....R2.|
000002E0: 59 58 AB 53 58 AC 53 59  AD 4E 00 FC 0A E6 00 52  |YX.SX.SY.N.....R|
000002F0: 33 B2 58 58 AB 53 58 AC  53 58 AD 4E 00 09 0B F0  |3.XX.SX.SX.N....|
00000300: 00 52 31 B2 52 32 AD 52  33 00 1D 0B FA 00 52 34  |.R1.R2.R3.....R4|
00000310: B2 53 59 AD 4E AB 52 31  AC 53 58 AD 4E 00 3C 0B  |.SY.N.R1.SX.N.<.|
00000320: 04 01 52 35 B2 52 32 AC  52 32 AD 28 59 59 AB 53  |..R5.R2.R2.(YY.S|
00000330: 59 AC 53 59 AD 4E 29 AD  52 33 3A 8E 00 4A 0B 2C  |Y.SY.N).R3:..J.,|
00000340: 01 8B 4E B3 33 A7 31 30  30 30 00 53 0B 31 01 8D  |..N.3.1000.S.1..|
00000350: 31 35 30 00 6F 0B 36 01  42 28 31 29 B2 52 31 3A  |150.o.6.B(1).R1:|
00000360: 41 28 31 29 B2 52 34 3A  43 28 31 29 B2 52 35 00  |A(1).R4:C(1).R5.|
00000370: 8A 0B 40 01 81 4B B2 31  A4 4E 3A 59 28 4B 29 B2  |..@..K.1.N:Y(K).|
00000380: BC 28 59 28 4B 29 29 3A  82 4B 00 93 0B 4A 01 8D  |.(Y(K)):.K...J..|
00000390: 31 35 30 00 B2 0B 54 01  42 28 32 29 B2 52 31 3A  |150...T.B(2).R1:|
000003A0: 41 28 32 29 B2 BD 28 52  34 29 3A 43 28 32 29 B2  |A(2)..(R4):C(2).|
000003B0: 52 35 00 CC 0B 5E 01 81  4B B2 31 A4 4E 3A 58 28  |R5...^..K.1.N:X(|
000003C0: 4B 29 B2 31 AD 58 28 4B  29 3A 82 4B 00 D5 0B 68  |K).1.X(K):.K...h|
000003D0: 01 8D 31 35 30 00 F4 0B  72 01 42 28 33 29 B2 52  |..150...r.B(3).R|
000003E0: 31 3A 41 28 33 29 B2 BD  28 52 34 29 3A 43 28 33  |1:A(3)..(R4):C(3|
000003F0: 29 B2 52 35 00 0B 0C 7C  01 81 4B B2 31 A4 4E 3A  |).R5...|..K.1.N:|
00000400: 58 28 4B 29 B2 31 AD 58  28 4B 29 00 24 0C 86 01  |X(K).1.X(K).$...|
00000410: 58 28 4B 29 B2 BC 28 58  28 4B 29 29 3A 82 4B 3A  |X(K)..(X(K)):.K:|
00000420: 8D 31 35 30 00 43 0C 90  01 42 28 34 29 B2 52 31  |.150.C...B(4).R1|
00000430: 3A 41 28 34 29 B2 BD 28  52 34 29 3A 43 28 34 29  |:A(4)..(R4):C(4)|
00000440: B2 52 35 00 5E 0C A4 01  81 4B B2 31 A4 4E 3A 59  |.R5.^....K.1.N:Y|
00000450: 28 4B 29 B2 BD 28 59 28  4B 29 29 3A 82 4B 00 67  |(K)..(Y(K)):.K.g|
00000460: 0C AE 01 8D 31 35 30 00  83 0C B8 01 42 28 35 29  |....150.....B(5)|
00000470: B2 52 31 3A 41 28 35 29  B2 52 34 3A 43 28 35 29  |.R1:A(5).R4:C(5)|
00000480: B2 52 35 00 A0 0C B9 01  81 4B B2 31 A4 4E 3A 58  |.R5......K.1.N:X|
00000490: 28 4B 29 B2 31 AD BD 28  58 28 4B 29 29 3A 82 4B  |(K).1..(X(K)):.K|
000004A0: 00 A9 0C BA 01 8D 31 35  30 00 C5 0C BB 01 42 28  |......150.....B(|
000004B0: 36 29 B2 52 31 3A 41 28  36 29 B2 52 34 3A 43 28  |6).R1:A(6).R4:C(|
000004C0: 36 29 B2 52 35 00 FC 0C  BD 01 81 4B B2 31 A4 4E  |6).R5......K.1.N|
000004D0: 3A 58 28 4B 29 B2 31 AD  58 28 4B 29 3A 58 28 4B  |:X(K).1.X(K):X(K|
000004E0: 29 B2 AB 58 28 4B 29 AC  58 28 4B 29 3A 59 28 4B  |)..X(K).X(K):Y(K|
000004F0: 29 B2 BC 28 59 28 4B 29  29 3A 82 4B 00 05 0D BE  |)..(Y(K)):.K....|
00000500: 01 8D 31 35 30 00 24 0D  BF 01 42 28 37 29 B2 52  |..150.$...B(7).R|
00000510: 31 3A 41 28 37 29 B2 BD  28 52 34 29 3A 43 28 37  |1:A(7)..(R4):C(7|
00000520: 29 B2 52 35 00 33 0D C2  01 50 B2 30 3A 81 4B B2  |).R5.3...P.0:.K.|
00000530: 31 A4 37 00 50 0D CC 01  8B B6 28 43 28 4B 29 29  |1.7.P.....(C(K))|
00000540: B1 50 A7 51 B2 4B 3A 50  B2 B6 28 43 28 4B 29 29  |.P.Q.K:P..(C(K))|
00000550: 00 57 0D D6 01 82 4B 00  7B 0D E0 01 99 3A 99 22  |.W....K.{....:."|
00000560: 44 45 20 42 45 53 54 20  50 41 53 53 45 4E 44 45  |DE BEST PASSENDE|
00000570: 20 43 55 52 56 45 20 49  53 3A 22 00 8A 0D EA 01  | CURVE IS:".....|
00000580: 99 3A 99 41 24 28 51 29  3A 99 00 9A 0D F4 01 99  |.:.A$(Q):.......|
00000590: 22 41 3D 20 22 3B 41 28  51 29 00 AA 0D FE 01 99  |"A= ";A(Q)......|
000005A0: 22 42 3D 20 22 3B 42 28  51 29 00 C8 0D 03 02 99  |"B= ";B(Q)......|
000005B0: 22 54 59 50 45 20 46 55  4E 43 54 49 45 20 49 53  |"TYPE FUNCTIE IS|
000005C0: 20 4E 52 2E 3A 22 3B 51  00 E9 0D 08 02 99 22 43  | NR.:";Q......"C|
000005D0: 4F 52 52 45 4C 41 54 49  45 43 4F 45 46 46 49 43  |ORRELATIECOEFFIC|
000005E0: 49 45 4E 54 20 49 53 22  3B 00 F5 0D 12 02 99 43  |IENT IS";......C|
000005F0: 28 51 29 3A 99 00 15 0E  1C 02 99 22 56 4F 4F 52  |(Q):......."VOOR|
00000600: 20 41 4C 4C 45 20 46 55  4E 4B 54 49 45 53 20 54  | ALLE FUNKTIES T|
00000610: 59 50 20 4A 22 00 29 0E  26 02 85 20 42 24 3A 8B  |YP J".).&.. B$:.|
00000620: 42 24 B3 B1 22 4A 22 A7  80 00 3B 0E 30 02 81 4B  |B$.."J"...;.0..K|
00000630: B2 31 A4 37 3A 44 24 B2  22 20 22 00 60 0E 3A 02  |.1.7:D$." ".`.:.|
00000640: 99 3A 99 41 24 28 4B 29  3A 99 22 41 3D 20 22 3B  |.:.A$(K):."A= ";|
00000650: 41 28 4B 29 3A 99 22 42  3D 20 22 3B 42 28 4B 29  |A(K):."B= ";B(K)|
00000660: 00 7A 0E 44 02 99 22 43  4F 52 52 2E 43 4F 45 46  |.z.D.."CORR.COEF|
00000670: 46 2E 3D 20 22 3B 43 28  4B 29 00 90 0E 45 02 99  |F.= ";C(K)...E..|
00000680: 22 54 59 50 20 45 45 4E  20 4C 45 54 54 45 52 22  |"TYP EEN LETTER"|
00000690: 00 A3 0E 49 02 A1 44 24  3A 8B 44 24 B2 22 22 A7  |...I..D$:.D$."".|
000006A0: 35 38 35 00 B0 0E 4A 02  44 24 B2 22 22 3A 82 4B  |585...J.D$."":.K|
000006B0: 00 D1 0E 4E 02 99 3A 99  22 56 4F 4F 52 20 49 4E  |...N..:."VOOR IN|
000006C0: 54 45 52 50 4F 4C 41 54  49 45 20 54 59 50 20 4A  |TERPOLATIE TYP J|
000006D0: 22 00 E5 0E 58 02 85 20  43 24 3A 8B 43 24 B3 B1  |"...X.. C$:.C$..|
000006E0: 22 4A 22 A7 80 00 19 0F  5D 02 99 3A 99 22 54 59  |"J".....]..:."TY|
000006F0: 50 45 4E 20 46 55 4E 43  54 49 45 53 20 5A 49 4A  |PEN FUNCTIES ZIJ|
00000700: 4E 20 3A 22 3A 99 3A 81  4B B2 31 A4 37 3A 99 41  |N :":.:.K.1.7:.A|
00000710: 24 28 4B 29 3A 99 3A 82  4B 00 40 0F 62 02 99 22  |$(K):.:.K.@.b.."|
00000720: 54 59 50 20 43 49 4A 46  45 52 20 56 4F 4F 52 20  |TYP CIJFER VOOR |
00000730: 54 59 50 45 20 46 55 4E  43 54 49 45 3A 20 22 3B  |TYPE FUNCTIE: ";|
00000740: 00 48 0F 6C 02 85 20 55  00 6B 0F 76 02 91 55 8D  |.H.l.. U.k.v..U.|
00000750: 36 35 30 2C 37 30 30 2C  37 35 30 2C 38 30 30 2C  |650,700,750,800,|
00000760: 38 35 30 2C 39 30 30 2C  39 35 30 00 7E 0F 8A 02  |850,900,950.~...|
00000770: 85 22 58 2D 57 41 41 52  44 45 20 22 3B 58 00 90  |."X-WAARDE ";X..|
00000780: 0F 94 02 59 B2 42 28 55  29 AC 58 AA 41 28 55 29  |...Y.B(U).X.A(U)|
00000790: 00 A8 0F 9E 02 99 22 59  2D 57 41 41 52 44 45 20  |......"Y-WAARDE |
000007A0: 22 3B 59 3A 89 36 35 30  00 BB 0F BC 02 85 22 58  |";Y:.650......"X|
000007B0: 2D 57 41 41 52 44 45 20  22 3B 58 00 D0 0F C6 02  |-WAARDE ";X.....|
000007C0: 59 B2 41 28 55 29 AC BD  28 42 28 55 29 AC 58 29  |Y.A(U)..(B(U).X)|
000007D0: 00 EA 0F D0 02 98 59 AB  57 41 41 52 44 45 20 22  |......Y.WAARDE "|
000007E0: 3B 59 3A 47 4F 54 4F 37  30 30 00 FD 0F EE 02 85  |;Y:GOTO700......|
000007F0: 22 58 2D 57 41 41 52 44  45 20 22 3B 58 00 12 10  |"X-WAARDE ";X...|
00000800: F8 02 59 B2 41 28 55 29  AC BD 28 42 28 55 29 AD  |..Y.A(U)..(B(U).|
00000810: 58 29 00 2A 10 02 03 99  22 59 2D 57 41 41 52 44  |X).*...."Y-WAARD|
00000820: 45 20 22 3B 59 3A 89 37  35 30 00 3D 10 20 03 85  |E ";Y:.750.=. ..|
00000830: 22 58 2D 57 41 41 52 44  45 20 22 3B 58 00 51 10  |"X-WAARDE ";X.Q.|
00000840: 2A 03 59 B2 41 28 55 29  AC 28 58 AE 42 28 55 29  |*.Y.A(U).(X.B(U)|
00000850: 29 00 69 10 34 03 99 22  59 2D 57 41 41 52 44 45  |).i.4.."Y-WAARDE|
00000860: 20 22 3B 59 3A 89 38 30  30 00 7C 10 52 03 85 22  | ";Y:.800.|.R.."|
00000870: 58 2D 57 41 41 52 44 45  20 22 3B 58 00 91 10 5C  |X-WAARDE ";X...\|
00000880: 03 59 B2 41 28 55 29 AA  42 28 55 29 AC BC 28 58  |.Y.A(U).B(U)..(X|
00000890: 29 00 A9 10 66 03 99 22  59 2D 57 41 41 52 44 45  |)...f.."Y-WAARDE|
000008A0: 20 22 3B 59 3A 89 38 35  30 00 BC 10 84 03 85 22  | ";Y:.850......"|
000008B0: 58 2D 57 41 41 52 44 45  20 22 3B 58 00 CE 10 8E  |X-WAARDE ";X....|
000008C0: 03 59 B2 42 28 55 29 AD  58 AA 41 28 55 29 00 E6  |.Y.B(U).X.A(U)..|
000008D0: 10 98 03 99 22 59 2D 57  41 41 52 44 45 20 22 3B  |...."Y-WAARDE ";|
000008E0: 59 3A 89 39 30 30 00 F9  10 B6 03 85 22 58 2D 57  |Y:.900......"X-W|
000008F0: 41 41 52 44 45 20 22 3B  58 00 11 11 C0 03 59 B2  |AARDE ";X.....Y.|
00000900: 41 28 55 29 AC BD 28 AB  58 AC 58 AC 42 28 55 29  |A(U)..(.X.X.B(U)|
00000910: 29 00 24 11 CA 03 99 22  59 2D 57 41 41 52 44 45  |).$...."Y-WAARDE|
00000920: 20 22 3B 59 00 2D 11 D4  03 89 39 35 30 00 50 11  | ";Y.-....950.P.|
00000930: E8 03 99 22 54 45 20 57  45 49 4E 49 47 20 44 41  |..."TE WEINIG DA|
00000940: 54 41 2E 20 4D 49 4E 49  4D 55 4D 20 33 20 21 22  |TA. MINIMUM 3 !"|
00000950: 00 00 00 00 23 FF FF                              |....#..         |
..6....".":."...   ***CURVE FITTING POS.
 DATAPAREN***".]...A$(1)."#1 LINIAIR    
     Y=B*X+A".....A$(2)."#2 EXPONENTIEEL
    Y=A*EXP(B*X)"...(.A$(3)."#3 EXPONENT
IEEL    Y=A*EXP(B/X)"...2.A$(4)."#4 MACH
T VAN X     Y=A*X^B"...<.A$(5)."#5 LOGAR
ITMISCH    Y=A+B*LOG(X)"./.F.A$(6)."#6 H
YPERBOLISCH    Y=B/X+A".^.K.A$(7)."#7 NO
RM.VERDELING  Y=A*EXP(-X*X*B)".W.P..:.K.
1.7:.A$(K):.:.K...Z..:."NA INPUT DATA TY
P 0,999 VOOR START".S.D..X(100),Y(100):N
.0:SY.0:SX.0:YX.0:XX.0:YY.0...N..I.1.100
...X..:."TYP X,Y VOOR EEN PUNT";I;...}..
X(I),Y(I).1....Y(I).999.X(I).0.I.100:.30
0.P....X(I).0.X(I).X(I)..0000001.[...N.I
:.I.X...SY.0:SX.0:YX.0:XX.0:YY.0......I.
1.N... .SY.SY.Y(I):SX.SX.X(I):YX.YX.Y(I)
.X(I):YY.YY.Y(I).Y(I).Q...XX.XX.X(I).X(I
).X....I.....R2.YX.SX.SY.N.....R3.XX.SX.
SX.N.....R1.R2.R3.....R4.SY.N.R1.SX.N.<.
..R5.R2.R2.(YY.SY.SY.N).R3:..J.,..N.3.10
00.S.1..150.O.6.B(1).R1:A(1).R4:C(1).R5.
..@..K.1.N:Y(K)..(Y(K)):.K...J..150...T.
B(2).R1:A(2)..(R4):C(2).R5.L.^..K.1.N:X(
K).1.X(K):.K.U.H..150...R.B(3).R1:A(3)..
(R4):C(3).R5...|..K.1.N:X(K).1.X(K).$...
X(K)..(X(K)):.K:.150.C...B(4).R1:A(4)..(
R4):C(4).R5.^....K.1.N:Y(K)..(Y(K)):.K.G
....150.....B(5).R1:A(5).R4:C(5).R5. ...
.K.1.N:X(K).1..(X(K)):.K......150.E...B(
6).R1:A(6).R4:C(6).R5......K.1.N:X(K).1.
X(K):X(K)..X(K).X(K):Y(K)..(Y(K)):.K....
..150.$...B(7).R1:A(7)..(R4):C(7).R5.3.B
.P.0:.K.1.7.P.L...(C(K)).P.Q.K:P..(C(K))
.W.V..K.{....:."DE BEST PASSENDE CURVE I
S:"......:.A$(Q):......."A= ";A(Q)......
"B= ";B(Q).H...."TYPE FUNCTIE IS NR.:";Q
......"CORRELATIECOEFFICIENT IS";......C
(Q):......."VOOR ALLE FUNKTIES TYP J".).
&.. B$:.B$.."J"...;.0..K.1.7:D$." ".`.:.
.:.A$(K):."A= ";A(K):."B= ";B(K).Z.D.."C
ORR.COEFF.= ";C(K)...E.."TYP EEN LETTER"
...I..D$:.D$."".585...J.D$."":.K.Q.N..:.
"VOOR INTERPOLATIE TYP J"...X.. C$:.C$..
"J".....]..:."TYPEN FUNCTIES ZIJN :":.:.
K.1.7:.A$(K):.:.K.@.B.."TYP CIJFER VOOR 
TYPE FUNCTIE: ";.H.L.. U.K.V..U.650,700,
750,800,850,900,950.~...."X-WAARDE ";X..
...Y.B(U).X.A(U)......"Y-WAARDE ";Y:.650
......"X-WAARDE ";X.P.F.Y.A(U)..(B(U).X)
...P..Y.WAARDE ";Y:GOTO700......"X-WAARD
E ";X.....Y.A(U)..(B(U).X).*...."Y-WAARD
E ";Y:.750.=. .."X-WAARDE ";X.Q.*.Y.A(U)
.(X.B(U)).I.4.."Y-WAARDE ";Y:.800.|.R.."
X-WAARDE ";X...\.Y.A(U).B(U)..(X)...F.."
Y-WAARDE ";Y:.850......"X-WAARDE ";X.N..
.Y.B(U).X.A(U)......"Y-WAARDE ";Y:.900..
...."X-WAARDE ";X.....Y.A(U)..(.X.X.B(U)
).$.J.."Y-WAARDE ";Y.-.T..950.P...."TE W
EINIG DATA. MINIMUM 3 !"....#..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL