00000000: 01 08 1F 08 0A 00 8F 20 2A 2A 2A 20 50 52 4F 47 |....... *** PROG|
00000010: 52 41 4D 20 53 50 4C 49 4E 45 53 20 2A 2A 2A 00 |RAM SPLINES ***.|
00000020: 37 08 14 00 97 20 35 33 32 38 30 2C 30 3A 97 20 |7.... 53280,0:. |
00000030: 35 33 32 38 31 2C 30 00 56 08 19 00 9C 3A 99 22 |53281,0.V....:."|
00000040: 93 12 20 4B 55 42 49 45 4B 45 20 53 50 4C 49 4E |.. KUBIEKE SPLIN|
00000050: 45 53 20 92 11 22 00 6A 08 1E 00 85 22 23 20 50 |ES ..".j...."# P|
00000060: 55 4E 54 45 4E 20 20 22 3B 4E 00 7E 08 20 00 8B |UNTEN ";N.~. ..|
00000070: 20 4E B3 33 20 A7 20 99 22 93 22 3B 3A 80 00 BD | N.3 . .".";:...|
00000080: 08 23 00 86 20 48 28 4E 29 2C 58 28 4E 29 2C 59 |.#.. H(N),X(N),Y|
00000090: 28 4E 29 2C 48 32 28 4E 29 2C 42 28 4E 29 2C 44 |(N),H2(N),B(N),D|
000000A0: 59 28 4E 29 2C 44 53 28 4E 29 2C 53 32 28 4E 29 |Y(N),DS(N),S2(N)|
000000B0: 2C 43 28 4E 29 2C 53 33 28 4E 29 3A 99 00 CB 08 |,C(N),S3(N):....|
000000C0: 28 00 81 20 49 B2 31 20 A4 20 4E 00 E1 08 32 00 |(.. I.1 . N...2.|
000000D0: 85 22 58 2C 59 20 22 3B 58 28 49 29 2C 59 28 49 |."X,Y ";X(I),Y(I|
000000E0: 29 00 E9 08 3C 00 82 20 49 00 F4 08 96 00 4E 31 |)...<.. I.....N1|
000000F0: B2 4E AB 31 00 03 09 A0 00 81 20 49 B2 31 20 A4 |.N.1...... I.1 .|
00000100: 20 4E 31 00 18 09 AA 00 48 28 49 29 B2 58 28 49 | N1.....H(I).X(I|
00000110: AA 31 29 AB 58 28 49 29 00 35 09 B4 00 44 59 28 |.1).X(I).5...DY(|
00000120: 49 29 B2 28 59 28 49 AA 31 29 AB 59 28 49 29 29 |I).(Y(I.1).Y(I))|
00000130: AD 48 28 49 29 00 3D 09 BE 00 82 20 49 00 4C 09 |.H(I).=.... I.L.|
00000140: C8 00 81 20 49 B2 32 20 A4 20 4E 31 00 62 09 D2 |... I.2 . N1.b..|
00000150: 00 48 32 28 49 29 B2 48 28 49 AB 31 29 AA 48 28 |.H2(I).H(I.1).H(|
00000160: 49 29 00 7B 09 DC 00 42 28 49 29 B2 2E 35 AC 48 |I).{...B(I)..5.H|
00000170: 28 49 AB 31 29 AD 48 32 28 49 29 00 9B 09 E6 00 |(I.1).H2(I).....|
00000180: 44 53 28 49 29 B2 28 44 59 28 49 29 AB 44 59 28 |DS(I).(DY(I).DY(|
00000190: 49 AB 31 29 29 AD 48 32 28 49 29 00 AD 09 F0 00 |I.1)).H2(I).....|
000001A0: 53 32 28 49 29 B2 53 AC 44 53 28 49 29 00 BE 09 |S2(I).S.DS(I)...|
000001B0: FA 00 43 28 49 29 B2 33 AC 44 53 28 49 29 00 D2 |..C(I).3.DS(I)..|
000001C0: 09 04 01 53 32 28 49 29 B2 30 3A 53 32 28 4E 29 |...S2(I).0:S2(N)|
000001D0: B2 30 00 E4 09 0E 01 4F 4D B2 34 AC 28 32 AB BA |.0.....OM.4.(2..|
000001E0: 28 33 29 29 00 EC 09 13 01 82 20 49 00 FB 09 18 |(3))...... I....|
000001F0: 01 81 20 49 B2 32 20 A4 20 4E 31 00 30 0A 22 01 |.. I.2 . N1.0.".|
00000200: 57 B2 28 43 28 49 29 AB 42 28 49 29 AC 53 32 28 |W.(C(I).B(I).S2(|
00000210: 49 AB 31 29 AB 28 2E 35 AB 42 28 49 29 29 AC 53 |I.1).(.5.B(I)).S|
00000220: 32 28 49 AA 31 29 AB 53 32 28 49 29 29 AC 4F 4D |2(I.1).S2(I)).OM|
00000230: 00 46 0A 36 01 53 32 28 49 29 B2 53 32 28 49 29 |.F.6.S2(I).S2(I)|
00000240: AA 57 3A 82 20 49 00 66 0A 3B 01 8B 20 B6 28 57 |.W:. I.f.;.. .(W|
00000250: 29 B3 2E 30 30 30 30 30 31 20 A7 20 49 B2 4E 31 |)..000001 . I.N1|
00000260: 3A 89 20 33 33 30 00 70 0A 40 01 89 20 32 38 30 |:. 330.p.@.. 280|
00000270: 00 7F 0A 4A 01 81 20 49 B2 31 20 A4 20 4E 31 00 |...J.. I.1 . N1.|
00000280: 9E 0A 54 01 53 33 28 49 29 B2 28 53 32 28 49 AA |..T.S3(I).(S2(I.|
00000290: 31 29 AB 53 32 28 49 29 29 AD 48 28 49 29 00 A6 |1).S2(I)).H(I)..|
000002A0: 0A 5E 01 82 20 49 00 C4 0A 68 01 99 20 22 11 12 |.^.. I...h.. "..|
000002B0: 20 49 4E 54 45 52 50 4F 4C 41 54 49 45 20 20 20 | INTERPOLATIE |
000002C0: 20 92 11 22 00 E3 0A BC 02 4B B2 58 28 31 29 3A | ..".....K.X(1):|
000002D0: 4C B2 58 28 4E 29 3A 99 22 49 4E 54 45 52 56 41 |L.X(N):."INTERVA|
000002E0: 4C 22 3B 00 F5 0A C1 02 99 20 A3 31 30 29 3B 3A |L";...... .10);:|
000002F0: 85 20 4B 2C 4C 00 2E 0B C3 02 8B 20 4B B3 58 28 |. K,L...... K.X(|
00000300: 31 29 20 B0 20 4C B1 58 28 4E 29 20 B0 20 4C B2 |1) . L.X(N) . L.|
00000310: B3 4B 20 A7 20 99 22 4E 49 45 54 20 49 4E 20 49 |.K . ."NIET IN I|
00000320: 4E 54 45 52 56 41 4C 22 3A 89 20 37 30 30 00 46 |NTERVAL":. 700.F|
00000330: 0B D0 02 4D B2 31 3A 85 22 53 54 41 50 20 20 20 |...M.1:."STAP |
00000340: 20 20 20 22 3B 4D 00 6B 0B DA 02 99 22 13 22 3B | ";M.k....".";|
00000350: A3 32 30 29 3B 22 12 20 58 20 20 20 20 20 20 20 |.20);". X |
00000360: 59 20 20 20 20 20 20 20 92 11 22 00 84 0B 20 03 |Y .."... .|
00000370: 8B 20 4B B2 58 28 4E 29 20 A7 20 49 B2 4E 3A 89 |. K.X(N) . I.N:.|
00000380: 20 38 34 30 00 92 0B 25 03 81 20 4A B2 31 20 A4 | 840...%.. J.1 .|
00000390: 20 4E 00 AF 0B 2A 03 8B 20 4B B3 58 28 4A 29 20 | N...*.. K.X(J) |
000003A0: A7 20 49 B2 4A 3A 4A B2 4E 3A 89 20 38 34 30 00 |. I.J:J.N:. 840.|
000003B0: B7 0B 34 03 82 20 4A 00 CB 0B 48 03 49 B2 49 AB |..4.. J...H.I.I.|
000003C0: 31 3A 48 54 B2 4B AB 58 28 49 29 00 DB 0B 52 03 |1:HT.K.X(I)...R.|
000003D0: 48 55 B2 4B AB 58 28 49 AA 31 29 00 E8 0B 5C 03 |HU.K.X(I.1)...\.|
000003E0: 50 52 B2 48 54 AC 48 55 00 FE 0B 66 03 53 53 B2 |PR.HT.HU...f.SS.|
000003F0: 53 32 28 49 29 AA 48 54 AC 53 33 28 49 29 00 19 |S2(I).HT.S3(I)..|
00000400: 0C 70 03 44 51 B2 28 53 28 49 29 AA 53 32 28 49 |.p.DQ.(S(I).S2(I|
00000410: AA 31 29 AA 53 53 29 AD 36 00 34 0C 7A 03 53 4A |.1).SS).6.4.z.SJ|
00000420: B2 59 28 49 29 AA 48 54 AC 44 59 28 49 29 AA 50 |.Y(I).HT.DY(I).P|
00000430: 52 AC 44 51 00 5D 0C AC 03 4B B2 B5 28 4B AC 31 |R.DQ.]...K..(K.1|
00000440: 30 30 30 AA 2E 35 29 AD 31 30 30 30 3A 99 20 A3 |000..5).1000:. .|
00000450: 32 30 29 3B 4B 3B A3 32 38 29 3B 53 4A 00 73 0C |20);K;.28);SJ.s.|
00000460: B6 03 4B B2 4B AA 4D 3A 8B 20 4B B1 4C 20 A7 20 |..K.K.M:. K.L . |
00000470: 39 37 30 00 7D 0C C0 03 89 20 38 30 30 00 98 0C |970.}.... 800...|
00000480: CA 03 99 22 11 22 3B A3 32 30 29 3B 22 4D 45 45 |...".";.20);"MEE|
00000490: 52 28 4A 2F 4E 29 20 22 00 A9 0C CF 03 99 20 A3 |R(J/N) "...... .|
000004A0: 32 30 29 3B 3A 85 20 41 24 00 BB 0C D4 03 8B 20 |20);:. A$...... |
000004B0: 41 24 B2 22 4E 22 20 A7 20 32 35 00 CB 0C DE 03 |A$."N" . 25.....|
000004C0: 99 22 93 22 3B 3A 89 20 37 30 30 00 00 00 |.".";:. 700... |
....... *** PROGRAM SPLINES ***.7.... 53
280,0:. 53281,0.V....:.".. KUBIEKE SPLIN
ES ..".J...."# PUNTEN ";N.~. .. N.3 . .
".";:....#.. H(N),X(N),Y(N),H2(N),B(N),D
Y(N),DS(N),S2(N),C(N),S3(N):..K.(.. I.1
. N...2.."X,Y ";X(I),Y(I)...<.. I.....N1
.N.1... .. I.1 . N1.....H(I).X(I.1).X(I)
.5...DY(I).(Y(I.1).Y(I)).H(I).=.... I.L.
H.. I.2 . N1.B.R.H2(I).H(I.1).H(I).{...B
(I)..5.H(I.1).H2(I).....DS(I).(DY(I).DY(
I.1)).H2(I).....S2(I).S.DS(I).....C(I).3
.DS(I).R...S2(I).0:S2(N).0.....OM.4.(2..
(3))...... I...... I.2 . N1.0.".W.(C(I).
B(I).S2(I.1).(.5.B(I)).S2(I.1).S2(I)).OM
.F.6.S2(I).S2(I).W:. I.F.;.. .(W)..00000
1 . I.N1:. 330.P.@.. 280..J.. I.1 . N1.
..T.S3(I).(S2(I.1).S2(I)).H(I)...^.. I.D
.H.. ".. INTERPOLATIE ..".....K.X(1):
L.X(N):."INTERVAL";...A.. .10);:. K,L...
C.. K.X(1) . L.X(N) . L..K . ."NIET IN I
NTERVAL":. 700.F.P.M.1:."STAP ";M.K
.Z..".";.20);". X Y .."... .
. K.X(N) . I.N:. 840...%.. J.1 . N...*..
K.X(J) . I.J:J.N:. 840...4.. J.K.H.I.I.
1:HT.K.X(I)...R.HU.K.X(I.1)...\.PR.HT.HU
...F.SS.S2(I).HT.S3(I)...P.DQ.(S(I).S2(I
.1).SS).6.4.Z.SJ.Y(I).HT.DY(I).PR.DQ.]..
.K..(K.1000..5).1000:. .20);K;.28);SJ.S.
..K.K.M:. K.L . 970.}.... 800...J..".";.
20);"MEER(J/N) "...O.. .20);:. A$...T..
A$."N" . 25.K....".";:. 700...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL