00000000: 01 04 34 04 0A 00 99 22 93 12 20 4F 50 4C 4F 53 |..4....".. OPLOS|
00000010: 53 45 4E 20 56 41 4E 20 44 45 52 44 45 20 47 52 |SEN VAN DERDE GR|
00000020: 41 41 44 53 20 56 45 52 47 45 4C 49 4A 4B 49 4E |AADS VERGELIJKIN|
00000030: 47 20 11 22 00 5F 04 14 00 99 22 20 20 20 20 20 |G ."._...." |
00000040: 44 45 20 4F 50 4C 4F 53 53 49 4E 47 20 4D 41 41 |DE OPLOSSING MAA|
00000050: 4B 54 20 47 45 42 52 55 49 4B 20 56 41 4E 22 00 |KT GEBRUIK VAN".|
00000060: 8C 04 1E 00 99 22 20 20 20 20 48 59 50 45 52 42 |....." HYPERB|
00000070: 4F 4C 49 53 43 48 45 20 45 4E 20 43 49 52 4B 45 |OLISCHE EN CIRKE|
00000080: 4C 46 55 4E 43 54 49 45 53 2E 11 22 00 BA 04 28 |LFUNCTIES.."...(|
00000090: 00 99 22 49 4E 20 42 41 53 49 43 20 48 45 45 46 |.."IN BASIC HEEF|
000000A0: 54 20 44 45 20 41 4C 47 45 4D 45 4E 45 20 56 4F |T DE ALGEMENE VO|
000000B0: 52 4D 20 56 41 4E 20 44 45 22 00 E3 04 32 00 99 |RM VAN DE"...2..|
000000C0: 22 56 45 52 47 45 4C 49 4A 4B 49 4E 47 20 48 45 |"VERGELIJKING HE|
000000D0: 54 20 56 4F 4C 47 45 4E 44 45 20 42 45 45 4C 44 |T VOLGENDE BEELD|
000000E0: 3A 11 22 00 0F 05 3C 00 99 22 20 20 20 20 20 12 |:."...<.." .|
000000F0: 20 41 2A 58 5E 33 20 2B 20 42 2A 58 5E 32 20 2B | A*X^3 + B*X^2 +|
00000100: 20 43 2A 58 20 2B 20 44 20 3D 20 30 20 11 22 00 | C*X + D = 0 .".|
00000110: 3C 05 46 00 99 22 4E 41 20 49 4E 56 4F 45 52 20 |<.F.."NA INVOER |
00000120: 56 41 4E 20 44 45 20 57 41 41 52 44 45 4E 20 56 |VAN DE WAARDEN V|
00000130: 4F 4F 52 20 41 2C 20 42 2C 20 43 22 00 64 05 50 |OOR A, B, C".d.P|
00000140: 00 99 22 45 4E 20 44 20 56 4F 4C 47 54 20 44 49 |.."EN D VOLGT DI|
00000150: 52 45 43 54 20 44 45 20 43 41 4C 43 55 4C 41 54 |RECT DE CALCULAT|
00000160: 49 45 2E 22 00 A9 05 5A 00 99 22 11 20 20 20 20 |IE."...Z..". |
00000170: 20 47 45 42 52 55 49 4B 54 20 33 30 32 32 20 50 | GEBRUIKT 3022 P|
00000180: 52 49 4E 54 45 52 2E 22 3A 99 22 20 20 20 54 4F |RINTER.":." TO|
00000190: 45 54 53 20 4A 20 41 4C 53 20 48 49 4A 20 41 41 |ETS J ALS HIJ AA|
000001A0: 4E 20 53 54 41 41 54 2E 22 00 BC 05 64 00 A1 47 |N STAAT."...d..G|
000001B0: 24 3A 8B 47 24 B2 22 22 A7 31 30 30 00 CB 05 6E |$:.G$."".100...n|
000001C0: 00 9F 37 2C 34 3A 98 37 3A 98 37 00 EA 05 78 00 |..7,4:.7:.7...x.|
000001D0: 99 22 11 56 45 52 5A 4F 52 47 20 4E 55 20 44 45 |.".VERZORG NU DE|
000001E0: 20 49 4E 56 4F 45 52 3A 11 22 00 0A 06 82 00 85 | INVOER:."......|
000001F0: 22 41 22 3B 41 3A 8B 41 B3 B1 30 A7 98 37 2C 22 |"A";A:.A..0..7,"|
00000200: 41 20 3D 22 41 3A 89 31 35 30 00 3E 06 8C 00 99 |A ="A:.150.>....|
00000210: 22 41 4C 53 20 41 3D 30 20 44 41 4E 20 56 45 52 |"ALS A=0 DAN VER|
00000220: 47 45 4C 49 4A 4B 49 4E 47 20 4E 49 45 54 20 33 |GELIJKING NIET 3|
00000230: 45 20 47 52 41 41 44 2E 22 3A 89 31 32 30 00 53 |E GRAAD.":.120.S|
00000240: 06 96 00 85 22 42 22 3B 42 3A 98 37 2C 22 42 20 |...."B";B:.7,"B |
00000250: 3D 22 42 00 68 06 A0 00 85 22 43 22 3B 43 3A 98 |="B.h...."C";C:.|
00000260: 37 2C 22 43 20 3D 22 43 00 80 06 AA 00 85 22 44 |7,"C ="C......"D|
00000270: 22 3B 44 3A 98 37 2C 22 44 20 3D 22 44 3A 98 37 |";D:.7,"D ="D:.7|
00000280: 00 C9 06 B4 00 42 B2 42 AD 41 3A 43 B2 43 AD 41 |.....B.B.A:C.C.A|
00000290: 3A 44 B2 44 AD 41 3A 41 B2 31 3A 45 B2 AB 42 AD |:D.D.A:A.1:E..B.|
000002A0: 33 3A 46 B2 43 AD 33 AB 42 AC 42 AD 39 3A 47 B2 |3:F.C.3.B.B.9:G.|
000002B0: B6 28 46 29 3A 48 B2 42 AC 42 AC 42 AD 32 37 AB |.(F):H.B.B.B.27.|
000002C0: 42 AC 43 AD 36 AA 44 AD 32 00 EA 06 BE 00 49 B2 |B.C.6.D.2.....I.|
000002D0: B6 28 48 29 3A 50 B2 47 AC 47 AC 47 AB 49 AC 49 |.(H):P.G.G.G.I.I|
000002E0: 3A 8B 46 B3 B1 30 A7 32 32 30 00 F7 06 C8 00 8B |:.F..0.220......|
000002F0: 48 B2 30 A7 32 39 30 00 2C 07 D2 00 4B B2 28 49 |H.0.290.,...K.(I|
00000300: AC 32 29 AE 28 31 AD 33 29 AC 48 AD 49 3A 4E B2 |.2).(1.3).H.I:N.|
00000310: AB 4B 3A 4F B2 4B AD 32 3A 51 B2 4F 3A 4D B2 4B |.K:O.K.2:Q.O:M.K|
00000320: AC BA 28 33 29 AD 32 3A 89 32 36 30 00 44 07 DC |..(3).2:.260.D..|
00000330: 00 4A B2 49 AD 47 AD BA 28 47 29 3A 8B 46 B3 30 |.J.I.G..(G):.F.0|
00000340: A7 32 39 30 00 70 07 E6 00 4B B2 BC 28 4A AA BA |.290.p...K..(J..|
00000350: 28 4A AC 4A AA 31 29 29 AD 33 3A 4C B2 28 BD 28 |(J.J.1)).3:L.(.(|
00000360: 4B 29 AB BD 28 AB 4B 29 29 AD 32 AC BA 28 46 29 |K)..(.K)).2..(F)|
00000370: 00 8C 07 F0 00 4D B2 28 BD 28 4B 29 AA BD 28 AB |.....M.(.(K)..(.|
00000380: 4B 29 29 AD 32 AC BA 28 33 AC 46 29 00 B3 07 FA |K)).2..(3.F)....|
00000390: 00 4F B2 4C 3A 51 B2 4C 3A 4E B2 4C AC AB 32 3A |.O.L:Q.L:N.L..2:|
000003A0: 8B 48 B3 30 A7 4E B2 AB 4E 3A 4F B2 AB 4F 3A 51 |.H.0.N..N:O..O:Q|
000003B0: B2 AB 51 00 CF 07 04 01 98 37 2C 22 58 31 20 28 |..Q......7,"X1 (|
000003C0: 52 45 45 45 4C 29 20 20 20 3D 20 22 4E AA 45 00 |REEEL) = "N.E.|
000003D0: F8 07 0E 01 98 37 2C 22 58 32 20 28 43 4F 4D 50 |.....7,"X2 (COMP|
000003E0: 4C 45 58 29 20 3D 20 22 4F AA 45 22 20 2B 20 11 |LEX) = "O.E" + .|
000003F0: 49 2A 28 22 4D 22 29 22 00 29 08 18 01 98 37 2C |I*("M")".)....7,|
00000400: 22 58 33 20 28 43 4F 4D 50 4C 45 58 29 20 3D 20 |"X3 (COMPLEX) = |
00000410: 22 51 AA 45 22 20 2B 20 11 49 2A 28 22 28 AB 4D |"Q.E" + .I*("(.M|
00000420: 29 22 29 22 3A 89 34 30 30 00 36 08 22 01 8B 50 |)")":.400.6."..P|
00000430: B2 30 A7 33 39 30 00 43 08 2C 01 8B 50 B1 30 A7 |.0.390.C.,..P.0.|
00000440: 33 33 30 00 6F 08 36 01 4B B2 BC 28 4A AA BA 28 |330.o.6.K..(J..(|
00000450: 4A AC 4A AB 31 29 29 AD 33 3A 4C B2 28 BD 28 4B |J.J.1)).3:L.(.(K|
00000460: 29 AA BD 28 AB 4B 29 29 AD 32 AC BA 28 47 29 00 |)..(.K)).2..(G).|
00000470: 90 08 40 01 4D B2 28 BD 28 4B 29 AB BD 28 AB 4B |..@.M.(.(K)..(.K|
00000480: 29 29 AD 32 AC BA 28 33 AC 47 29 3A 89 32 35 30 |)).2..(3.G):.250|
00000490: 00 C2 08 4A 01 4B B2 AB C1 28 4A AD BA 28 31 AB |...J.K...(J..(1.|
000004A0: 4A AC 4A 29 29 AC 36 30 AD FF AA 33 30 3A 4E B2 |J.J)).60...30:N.|
000004B0: BE 28 4B AC FF AD 31 38 30 29 AC BA 28 47 29 AC |.(K...180)..(G).|
000004C0: AB 32 00 F8 08 54 01 4F B2 BE 28 28 36 30 AB 4B |.2...T.O..((60.K|
000004D0: 29 AC FF AD 31 38 30 29 AC BA 28 47 29 AC 32 3A |)...180)..(G).2:|
000004E0: 51 B2 BE 28 28 36 30 AA 4B 29 AC FF AD 31 38 30 |Q..((60.K)...180|
000004F0: 29 AC BA 28 47 29 AC 32 00 10 09 5E 01 8B 48 B3 |)..(G).2...^..H.|
00000500: 30 A7 4E B2 AB 4E 3A 4F B2 AB 4F 3A 51 B2 AB 51 |0.N..N:O..O:Q..Q|
00000510: 00 2A 09 68 01 98 37 2C 22 58 31 20 28 52 45 45 |.*.h..7,"X1 (REE|
00000520: 45 4C 29 20 3D 20 22 4E AA 45 00 44 09 72 01 98 |EL) = "N.E.D.r..|
00000530: 37 2C 22 58 32 20 28 52 45 45 45 4C 29 20 3D 20 |7,"X2 (REEEL) = |
00000540: 22 4F AA 45 00 63 09 7C 01 98 37 2C 22 58 33 20 |"O.E.c.|..7,"X3 |
00000550: 28 52 45 45 45 4C 29 20 3D 20 22 51 AA 45 3A 89 |(REEEL) = "Q.E:.|
00000560: 34 30 30 00 7E 09 86 01 4F B2 BA 28 47 29 3A 51 |400.~...O..(G):Q|
00000570: B2 4F 3A 4E B2 4F AC AB 32 3A 89 33 35 30 00 9E |.O:N.O..2:.350..|
00000580: 09 90 01 99 22 11 54 4F 45 54 53 20 4A 20 56 4F |....".TOETS J VO|
00000590: 4F 52 20 4E 49 45 55 57 45 20 52 55 4E 22 00 B1 |OR NIEUWE RUN"..|
000005A0: 09 9A 01 A1 47 24 3A 8B 47 24 B2 22 22 A7 34 31 |....G$:.G$."".41|
000005B0: 30 00 C7 09 A4 01 8B 47 24 B2 22 4A 22 A7 99 22 |0......G$."J".."|
000005C0: 93 22 3A 8A 31 31 30 00 F2 09 AE 01 99 22 11 50 |.":.110......".P|
000005D0: 52 4F 47 52 41 4D 20 42 59 20 48 2E 4A 2E 47 2E |ROGRAM BY H.J.G.|
000005E0: 20 4D 41 4B 20 46 4F 52 20 12 20 48 4D 42 20 92 | MAK FOR . HMB .|
000005F0: 2E 22 00 FC 09 B8 01 98 37 3A A0 37 00 00 00 |."......7:.7... |
..4....".. OPLOSSEN VAN DERDE GRAADS VER
GELIJKING ."._...." DE OPLOSSING MAA
KT GEBRUIK VAN"......" HYPERBOLISCHE
EN CIRKELFUNCTIES.."...(.."IN BASIC HEEF
T DE ALGEMENE VORM VAN DE"...2.."VERGELI
JKING HET VOLGENDE BEELD:."...<.." .
A*X^3 + B*X^2 + C*X + D = 0 .".<.F.."NA
INVOER VAN DE WAARDEN VOOR A, B, C".D.P
.."EN D VOLGT DIRECT DE CALCULATIE."...Z
..". GEBRUIKT 3022 PRINTER.":." TO
ETS J ALS HIJ AAN STAAT."...D..G$:.G$.""
.100.K.N..7,4:.7:.7...X..".VERZORG NU DE
INVOER:."......"A";A:.A..0..7,"A ="A:.1
50.>...."ALS A=0 DAN VERGELIJKING NIET 3
E GRAAD.":.120.S...."B";B:.7,"B ="B.H. .
."C";C:.7,"C ="C......"D";D:.7,"D ="D:.7
.I...B.B.A:C.C.A:D.D.A:A.1:E..B.3:F.C.3.
B.B.9:G..(F):H.B.B.B.27.B.C.6.D.2.....I.
.(H):P.G.G.G.I.I:.F..0.220...H..H.0.290.
,.R.K.(I.2).(1.3).H.I:N..K:O.K.2:Q.O:M.K
..(3).2:.260.D...J.I.G..(G):.F.0.290.P..
.K..(J..(J.J.1)).3:L.(.(K)..(.K)).2..(F)
.....M.(.(K)..(.K)).2..(3.F).....O.L:Q.L
:N.L..2:.H.0.N..N:O..O:Q..Q.O....7,"X1 (
REEEL) = "N.E......7,"X2 (COMPLEX) = "
O.E" + .I*("M")".)....7,"X3 (COMPLEX) =
"Q.E" + .I*("(.M)")":.400.6."..P.0.390.C
.,..P.0.330.O.6.K..(J..(J.J.1)).3:L.(.(K
)..(.K)).2..(G)...@.M.(.(K)..(.K)).2..(3
.G):.250.B.J.K..A(J..(1.J.J)).60...30:N.
.(K...180)..(G)..2...T.O..((60.K)...180)
..(G).2:Q..((60.K)...180)..(G).2...^..H.
0.N..N:O..O:Q..Q.*.H..7,"X1 (REEEL) = "N
.E.D.R..7,"X2 (REEEL) = "O.E.C.|..7,"X3
(REEEL) = "Q.E:.400.~...O..(G):Q.O:N.O..
2:.350......".TOETS J VOOR NIEUWE RUN"..
....G$:.G$."".410.G....G$."J"..".":.110.
.....".PROGRAM BY H.J.G. MAK FOR . HMB .
."......7: 7...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL