00000000: 31 37 37 33 30 2C 31 37 37 38 30 00 A8 3E F4 47 |17730,17780..>.G|
00000010: 8D 32 37 30 30 30 00 AF 3E FE 47 82 49 00 C8 3E |.27000..>.G.I..>|
00000020: 08 48 53 52 24 B2 22 22 3A 8D 32 35 30 30 30 3A |.HSR$."":.25000:|
00000030: 8D 32 35 30 30 30 00 CE 3E 12 48 8E 00 00 3F 44 |.25000..>.H...?D|
00000040: 48 8F 20 53 55 42 52 4F 55 54 49 4E 45 20 20 4F |H. SUBROUTINE O|
00000050: 55 54 50 55 54 20 20 56 4F 4F 52 20 32 45 2D 47 |UTPUT VOOR 2E-G|
00000060: 52 41 41 44 53 20 50 4F 4C 59 4E 4F 4F 4D 00 2D |RAADS POLYNOOM.-|
00000070: 3F 4E 48 53 52 24 B2 22 C4 45 20 52 45 47 52 45 |?NHSR$.".E REGRE|
00000080: 53 53 49 45 2D 50 41 52 41 42 4F 4F 4C 20 49 53 |SSIE-PARABOOL IS|
00000090: 20 3A 20 22 3A 8D 32 35 30 30 30 00 3F 3F 58 48 | : ":.25000.??XH|
000000A0: 53 52 24 B2 22 22 3A 8D 32 35 30 30 30 00 6E 3F |SR$."":.25000.n?|
000000B0: 62 48 53 52 24 B2 22 20 20 20 20 20 20 20 D9 20 |bHSR$." . |
000000C0: 3D 20 57 32 2A D8 5E 32 20 2B 20 57 31 2A D8 20 |= W2*.^2 + W1*. |
000000D0: 2B 20 57 30 22 3A 8D 32 35 30 30 30 00 80 3F 6C |+ W0":.25000..?l|
000000E0: 48 53 52 24 B2 22 22 3A 8D 32 35 30 30 30 00 B2 |HSR$."":.25000..|
000000F0: 3F 76 48 53 52 24 B2 22 4F 46 57 45 4C 20 20 D6 |?vHSR$."OFWEL .|
00000100: 20 3D 20 49 4E 56 45 52 53 45 2D 46 28 57 32 2A | = INVERSE-F(W2*|
00000110: 47 28 D5 29 5E 32 20 2B 2E 2E 2B 20 57 30 29 22 |G(.)^2 +..+ W0)"|
00000120: 00 BD 3F 7B 48 8D 32 35 30 30 30 00 CF 3F 80 48 |..?{H.25000..?.H|
00000130: 53 52 24 B2 22 22 3A 8D 32 35 30 30 30 00 F6 3F |SR$."":.25000..?|
00000140: 8A 48 53 52 24 B2 22 4D 45 54 20 20 20 20 D8 20 |.HSR$."MET . |
00000150: 3D 20 47 28 D5 29 20 3D 20 22 AA 47 24 3A 8D 32 |= G(.) = ".G$:.2|
00000160: 35 30 30 30 00 1D 40 94 48 53 52 24 B2 22 20 20 |5000..@.HSR$." |
00000170: 20 20 20 20 20 D9 20 3D 20 46 28 D6 29 20 3D 20 | . = F(.) = |
00000180: 22 AA 46 24 3A 8D 32 35 30 30 30 00 45 40 9E 48 |".F$:.25000.E@.H|
00000190: 53 52 24 B2 22 20 20 20 49 4E 56 45 52 53 45 2D |SR$." INVERSE-|
000001A0: 46 28 D9 29 20 3D 20 22 AA 46 31 24 3A 8D 32 35 |F(.) = ".F1$:.25|
000001B0: 30 30 30 00 57 40 A8 48 53 52 24 B2 22 22 3A 8D |000.W@.HSR$."":.|
000001C0: 32 35 30 30 30 00 85 40 B2 48 53 52 B2 57 30 3A |25000..@.HSR.W0:|
000001D0: 8D 32 36 30 30 30 3A 53 52 24 B2 22 45 4E 20 20 |.26000:SR$."EN |
000001E0: 20 20 57 30 20 3D 20 22 AA 53 52 24 3A 8D 32 35 | W0 = ".SR$:.25|
000001F0: 30 30 30 00 B3 40 BC 48 53 52 B2 57 31 3A 8D FF |000..@.HSR.W1:..|
00000200: FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF FF |................|
00000210: FF 07 FF FF FF FF FF FF FF FF FF 3B FF FF FF FF |...........;....|
00000220: FF FF FF FF FF FF FF FF FF FF 40 58 FF FF FF FF |..........@X....|
00000230: FF FF E3 FF FF 36 FF FF FF FF FF FF FF 23 FF FF |.....6.......#..|
00000240: 2F E9 FF 8C C5 35 22 43 A8 D3 23 53 03 03 00 0F |/....5"C..#S....|
00000250: A4 0D 04 85 35 22 4B 22 22 FF FF FF FF FF 03 03 |....5"K"".......|
00000260: 03 A8 D3 22 FF 03 03 00 00 A4 1D A4 88 B5 0B 26 |..."...........&|
00000270: FF FF FF FF FF FF FF FF FF FF FF FF 27 64 FF FF |............'d..|
00000280: FF FF FF FF 47 FF FF 76 C4 FF A2 FF FF 2D 01 20 |....G..v.....-. |
00000290: E9 FB 93 93 03 03 A8 F2 02 04 B4 F5 02 05 64 14 |..............d.|
000002A0: E2 04 44 52 05 44 14 24 54 C0 04 A4 10 24 98 14 |..DR.D.$T....$..|
000002B0: 9B 23 12 0A 44 EE FF F5 FF FF AD 2E FF FF FF 2D |.#..D..........-|
000002C0: FF 35 10 BF FF 25 FF DB B0 31 30 2C 31 37 30 36 |.5...%...10,1706|
000002D0: 2F FF 9F 9B 90 FF DF FF 9F B7 31 36 30 2C 8F 9B |/.........160,..|
000002E0: 99 8F 9F FF 9F 9B 99 8B 8F FF FF FF FA FF FF D9 |................|
000002F0: FF 99 FF FF D5 89 CC FF FF FF 01 01 01 01 01 01 |................|
00000300: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000310: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000320: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000330: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000340: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000350: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000360: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000370: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000380: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
00000390: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000003A0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000003B0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000003C0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000003D0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000003E0: 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 |................|
000003F0: 01 01 01 01 01 01 01 01 |........ |
17730,17780..>.G.27000..>.G.I.H>.HSR$.""
:.25000:.25000.N>.H...?DH. SUBROUTINE O
UTPUT VOOR 2E-GRAADS POLYNOOM.-?NHSR$."
DE REGRESSIE-PARABOOL IS : ":.25000.??XH
SR$."":.25000.N?BHSR$." Y = W2*X^2
+ W1*X + W0":.25000..?LHSR$."":.25000..
?VHSR$."OFWEL V = INVERSE-F(W2*G(U)^2 +
..+ W0)"..?{H.25000.O?.HSR$."":.25000..?
.HSR$."MET X = G(U) = ".G$:.25000..@.
HSR$." Y = F(V) = ".F$:.25000.E@.H
SR$." INVERSE-F(Y) = ".F1$:.25000.W@.H
SR$."":.25000..@.HSR.W0:.26000:SR$."EN
W0 = ".SR$:.25000..@.HSR.W1:..........
...................;..............@X....
.....6.......#../...E5"C.S#S........5"K"
".........S"...........&............'D..
....G..VD....-. ..............D...DR.D.$
T....$...#..D..........-.5...%...10,1706
/.........160,.................Y....U.L.
........................................
........................................
........................................
........................................
........................................
........................................
................
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL