GLS .SB
FILE INFORMATION
FILENAME(S): GLS .SB
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-10-20 14:30:26
APPEARS ON: 1 disk(s)
FILE HASH
ea10dec07ea0d612b5fc4d9a1efa4b8fbdbfa66ae5c67fc1002dbd2402d3ba96
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCIENTIFIC BASIC | GLS .SB | PRG | Treasure Chest - Klaus Der Suhler | 19 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..%.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08 14 00 8F 22 2A 20 4C 49 |*****.I...."* LI|
00000030: 4E 45 41 52 45 20 C7 4C 45 49 43 48 55 4E 47 53 |NEARE .LEICHUNGS|
00000040: 53 59 53 54 45 4D 45 20 2A 00 6D 08 1E 00 8F 22 |SYSTEME *.m...."|
00000050: 2A 20 20 20 C7 41 55 53 2D C5 4C 49 4D 49 4E 41 |* .AUS-.LIMINA|
00000060: 54 49 4F 4E 20 4D 49 54 20 20 20 20 2A 00 91 08 |TION MIT *...|
00000070: 28 00 8F 22 2A 20 20 20 20 20 D3 50 41 4C 54 45 |(.."* .PALTE|
00000080: 4E 50 49 56 4F 54 53 55 43 48 45 20 20 20 20 20 |NPIVOTSUCHE |
00000090: 2A 00 B5 08 46 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...F.. ********|
000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000B0: 2A 2A 2A 2A 2A 00 D9 08 50 00 8F 20 31 33 2F 33 |*****...P.. 13/3|
000000C0: 30 2E 30 37 2E 31 39 38 37 20 20 4D 41 52 54 49 |0.07.1987 MARTI|
000000D0: 4E 20 41 48 4C 42 4F 52 4E 00 DF 08 5A 00 3A 00 |N AHLBORN...Z.:.|
000000E0: E7 08 64 00 F9 20 4E 00 F8 08 69 00 99 22 93 22 |..d.. N...i.."."|
000000F0: 3A 9B 20 31 30 AB 37 30 00 1E 09 6E 00 85 22 C1 |:. 10.70...n..".|
00000100: 4E 5A 41 48 4C 20 C7 4C 45 49 43 48 55 4E 47 45 |NZAHL .LEICHUNGE|
00000110: 4E 2F D6 41 52 49 41 42 4C 45 4E 22 3B 4E 00 28 |N/.ARIABLEN";N.(|
00000120: 09 73 00 4E B7 4E AB 31 00 43 09 78 00 86 20 5A |.s.N.N.1.C.x.. Z|
00000130: 4C 28 4E 29 20 3A 8F 20 5A 45 49 4C 45 4E 49 4E |L(N) :. ZEILENIN|
00000140: 44 45 58 00 66 09 82 00 86 20 41 28 4E 2C 4E 29 |DEX.f.... A(N,N)|
00000150: 3A 8F 20 4B 4F 45 46 46 49 5A 49 45 4E 54 45 4E |:. KOEFFIZIENTEN|
00000160: 4D 41 54 52 49 58 00 84 09 8C 00 86 20 42 28 4E |MATRIX...... B(N|
00000170: 29 20 20 3A 8F 20 45 52 47 45 42 4E 49 53 56 45 |) :. ERGEBNISVE|
00000180: 4B 54 4F 52 00 A2 09 A0 00 86 20 58 28 4E 29 20 |KTOR...... X(N) |
00000190: 20 3A 8F 20 4C 4F 45 53 55 4E 47 53 56 45 4B 54 | :. LOESUNGSVEKT|
000001A0: 4F 52 00 A8 09 BE 00 3A 00 C6 09 C8 00 99 22 C5 |OR.....:......".|
000001B0: 49 4E 47 41 42 45 20 5A 45 49 4C 45 4E 57 45 49 |INGABE ZEILENWEI|
000001C0: 53 45 3A 22 3A 99 00 D4 09 D2 00 81 20 49 B7 30 |SE:":....... I.0|
000001D0: 20 A4 20 4E 00 F7 09 DC 00 5A 4C 28 49 29 B7 49 | . N.....ZL(I).I|
000001E0: 20 20 20 3A 8F 20 56 4F 52 42 45 53 45 54 5A 55 | :. VORBESETZU|
000001F0: 4E 47 20 30 2E 2E 4E 00 05 0A E6 00 81 20 4A B7 |NG 0..N...... J.|
00000200: 30 20 A4 20 4E 00 25 0A F0 00 99 22 C1 28 22 49 |0 . N.%....".("I|
00000210: AA 31 22 2C 22 4A AA 31 22 29 22 3B 3A 85 20 41 |.1","J.1")";:. A|
00000220: 28 4A 2C 49 29 00 2D 0A FA 00 82 20 4A 00 49 0A |(J,I).-.... J.I.|
00000230: 04 01 99 A3 31 35 29 22 42 28 22 49 AA 31 22 29 |....15)"B("I.1")|
00000240: 22 3B 3A 85 20 42 28 49 29 00 51 0A 0E 01 82 20 |";:. B(I).Q.... |
00000250: 49 00 57 0A 22 01 3A 00 68 0A 2C 01 8D 20 2E 44 |I.W.".:.h.,.. .D|
00000260: 52 45 49 45 43 4B 53 FE 00 6E 0A B2 02 3A 00 90 |REIECKS..n...:..|
00000270: 0A BC 02 8F 22 20 4C 4F 45 53 45 20 44 41 53 20 |...." LOESE DAS |
00000280: C7 4C 45 49 43 48 55 4E 47 53 53 59 53 54 45 4D |.LEICHUNGSSYSTEM|
00000290: 00 B3 0A C6 02 8F 22 20 C1 58 3D 42 2C 20 57 4F |......" .X=B, WO|
000002A0: 42 45 49 20 C1 20 4E 55 4E 20 C4 52 45 49 45 43 |BEI . NUN .REIEC|
000002B0: 4B 53 2D 00 D1 0A D0 02 8F 22 20 47 45 53 54 41 |KS-......" GESTA|
000002C0: 4C 54 20 42 45 53 49 54 5A 54 2C 20 44 55 52 43 |LT BESITZT, DURC|
000002D0: 48 00 EE 0A DA 02 8F 22 20 D2 55 45 43 4B 57 41 |H......" .UECKWA|
000002E0: 45 52 54 53 45 49 4E 53 45 54 5A 45 4E 2E 00 F4 |ERTSEINSETZEN...|
000002F0: 0A E4 02 8F 00 11 0B F8 02 58 28 4E 29 B7 42 28 |.........X(N).B(|
00000300: 5A 4C 28 4E 29 29 AD 41 28 4E 2C 5A 4C 28 4E 29 |ZL(N)).A(N,ZL(N)|
00000310: 29 00 26 0B 02 03 81 20 4B B7 4E AB 31 20 A4 20 |).&.... K.N.1 . |
00000320: 30 20 A9 20 AB 31 00 30 0B 0C 03 53 55 4D B7 30 |0 . .1.0...SUM.0|
00000330: 00 40 0B 16 03 81 20 4A B7 4B AA 31 20 A4 20 4E |.@.... J.K.1 . N|
00000340: 00 5A 0B 20 03 53 55 B7 53 55 AA 41 28 4A 2C 5A |.Z. .SU.SU.A(J,Z|
00000350: 4C 28 4B 29 29 AC 58 28 4A 29 00 60 0B 2A 03 82 |L(K)).X(J).`.*..|
00000360: 00 83 0B 34 03 58 28 4B 29 B7 28 42 28 5A 4C 28 |...4.X(K).(B(ZL(|
00000370: 4B 29 29 AB 53 55 4D 29 AD 41 28 4B 2C 5A 4C 28 |K)).SUM).A(K,ZL(|
00000380: 4B 29 29 00 8B 0B 3E 03 82 20 4B 00 91 0B 7A 03 |K))...>.. K...z.|
00000390: 3A 00 B1 0B 84 03 99 22 11 2A 2A 2A 2A 2A 20 20 |:......".***** |
000003A0: CC 4F 45 53 55 4E 47 20 20 2A 2A 2A 2A 2A 22 3A |.OESUNG *****":|
000003B0: 99 00 BF 0B 8E 03 81 20 49 B7 30 20 A4 20 4E 00 |....... I.0 . N.|
000003C0: D5 0B 98 03 99 22 58 28 22 49 AA 31 22 29 3D 20 |....."X("I.1")= |
000003D0: 22 58 28 49 29 00 DB 0B A2 03 82 00 E1 0B B6 03 |"X(I)...........|
000003E0: 80 00 E7 0B DE 03 3A 00 F6 0B E8 03 2E 44 52 45 |......:......DRE|
000003F0: 49 45 43 4B 53 FE 00 1A 0C F2 03 8F 20 20 2D 2D |IECKS....... --|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000410: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 3D 0C FC 03 8F |----------.=....|
00000420: 22 20 44 41 53 20 C7 4C 45 49 43 48 55 4E 47 53 |" DAS .LEICHUNGS|
00000430: 53 59 53 54 45 4D 20 C1 21 42 20 53 4F 00 60 0C |SYSTEM .!B SO.`.|
00000440: 06 04 8F 22 20 54 52 41 4E 53 46 4F 52 4D 49 45 |..." TRANSFORMIE|
00000450: 52 45 4E 2C 20 44 41 53 53 20 C1 20 45 49 4E 45 |REN, DASS . EINE|
00000460: 00 82 0C 10 04 8F 22 20 4F 42 45 52 45 20 C4 52 |......" OBERE .R|
00000470: 45 49 45 43 4B 53 4D 41 54 52 49 58 20 57 49 52 |EIECKSMATRIX WIR|
00000480: 44 2E 00 94 0C 1A 04 8F 22 20 D0 41 52 41 4D 45 |D......." .ARAME|
00000490: 54 45 52 3A 00 B4 0C 24 04 8F 22 20 20 20 C1 28 |TER:...$.." .(|
000004A0: 4E 2C 4E 29 2C 42 28 4E 29 20 20 47 4C 2D 53 59 |N,N),B(N) GL-SY|
000004B0: 53 54 45 4D 00 D8 0C 2E 04 8F 22 20 20 20 5A 4C |STEM......" ZL|
000004C0: 28 4E 29 20 20 20 20 20 20 20 20 45 4E 54 48 41 |(N) ENTHA|
000004D0: 45 4C 54 20 30 2E 2E 4E 00 FC 0C 38 04 8F 20 20 |ELT 0..N...8.. |
000004E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000004F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 0C 0D 4C |------------...L|
00000500: 04 81 20 4B B7 30 20 A4 20 4E AB 31 00 2B 0D 56 |.. K.0 . N.1.+.V|
00000510: 04 50 5A B7 4B 20 20 20 20 20 20 20 20 20 3A 8F |.PZ.K :.|
00000520: 20 50 49 56 4F 54 5A 45 49 4C 45 00 4C 0D 60 04 | PIVOTZEILE.L.`.|
00000530: 50 B7 41 28 4B 2C 5A 4C 28 4B 29 29 20 3A 8F 20 |P.A(K,ZL(K)) :. |
00000540: 50 49 56 4F 54 45 4C 45 4D 45 4E 54 00 75 0D 7E |PIVOTELEMENT.u.~|
00000550: 04 8F 20 50 3D 20 42 45 54 52 41 47 53 47 52 4F |.. P= BETRAGSGRO|
00000560: 45 53 53 54 45 53 20 53 50 41 4C 54 45 4E 45 4C |ESSTES SPALTENEL|
00000570: 45 4D 45 4E 54 00 85 0D 88 04 81 20 49 B7 4B AA |EMENT...... I.K.|
00000580: 31 20 A4 20 4E 00 B2 0D 92 04 8B 20 BC 20 41 28 |1 . N...... . A(|
00000590: 4B 2C 5A 4C 28 49 29 29 20 B6 20 BC 20 50 20 A7 |K,ZL(I)) . . P .|
000005A0: 20 50 5A B7 49 3A 50 B7 41 28 4B 2C 5A 4C 28 49 | PZ.I:P.A(K,ZL(I|
000005B0: 29 29 00 BA 0D 9C 04 82 20 49 00 E3 0D B0 04 F4 |))...... I......|
000005C0: 20 5A 4C 28 50 5A 29 2C 5A 4C 28 4B 29 20 3A 8F | ZL(PZ),ZL(K) :.|
000005D0: 20 5A 45 49 4C 45 4E 56 45 52 54 41 55 53 43 48 | ZEILENVERTAUSCH|
000005E0: 55 4E 47 00 23 0E CE 04 8F 20 56 49 45 4C 46 41 |UNG.#.... VIELFA|
000005F0: 43 48 45 53 20 44 45 52 20 50 49 56 4F 54 5A 45 |CHES DER PIVOTZE|
00000600: 49 4C 45 20 56 4F 4E 20 44 45 4E 20 41 4E 44 45 |ILE VON DEN ANDE|
00000610: 52 45 4E 20 5A 45 49 4C 45 4E 20 41 42 5A 49 45 |REN ZEILEN ABZIE|
00000620: 48 45 4E 00 33 0E E2 04 81 20 49 B7 4B AA 31 20 |HEN.3.... I.K.1 |
00000630: A4 20 4E 00 51 0E EC 04 4C B7 41 28 4B 2C 5A 4C |. N.Q...L.A(K,ZL|
00000640: 28 49 29 29 AD 50 20 20 3A 8F 20 46 41 4B 54 4F |(I)).P :. FAKTO|
00000650: 52 00 61 0E F6 04 81 20 4A B7 4B AA 31 20 A4 20 |R.a.... J.K.1 . |
00000660: 4E 00 88 0E 00 05 41 28 4A 2C 5A 4C 28 49 29 29 |N.....A(J,ZL(I))|
00000670: B7 41 28 4A 2C 5A 4C 28 49 29 29 AB 41 28 4A 2C |.A(J,ZL(I)).A(J,|
00000680: 5A 4C 28 4B 29 29 AC 4C 00 90 0E 0A 05 82 20 4A |ZL(K)).L...... J|
00000690: 00 B1 0E 14 05 42 28 5A 4C 28 49 29 29 B7 42 28 |.....B(ZL(I)).B(|
000006A0: 5A 4C 28 49 29 29 AB 42 28 5A 4C 28 4B 29 29 AC |ZL(I)).B(ZL(K)).|
000006B0: 4C 00 B9 0E 1E 05 82 20 49 00 C1 0E 28 05 82 20 |L...... I...(.. |
000006C0: 4B 00 C7 0E 32 05 8E 00 00 00 |K...2..... |
..%.... *****************************.I.
..."* LINEARE GLEICHUNGSSYSTEME *.M...."
* GAUS-ELIMINATION MIT *...(.."*
SPALTENPIVOTSUCHE *...F.. ********
*********************.Y.P.. 13/30.07.198
7 MARTIN AHLBORN...Z.:...D.. N...I.."."
:. 10.70...N.."ANZAHL GLEICHUNGEN/VARIAB
LEN";N.(.S.N.N.1.C.X.. ZL(N) :. ZEILENIN
DEX.F.... A(N,N):. KOEFFIZIENTENMATRIX..
.... B(N) :. ERGEBNISVEKTOR... .. X(N)
:. LOESUNGSVEKTOR.....:.F.H.."EINGABE Z
EILENWEISE:":..T.R.. I.0 . N.....ZL(I).I
:. VORBESETZUNG 0..N...... J.0 . N.%.
..."A("I.1","J.1")";:. A(J,I).-.... J.I.
....15)"B("I.1")";:. B(I).Q.... I.W.".:.
H.,.. .DREIECKS..N...:......" LOESE DAS
GLEICHUNGSSYSTEM...F.." AX=B, WOBEI A NU
N DREIECKS-.Q.P.." GESTALT BESITZT, DURC
H...Z.." RUECKWAERTSEINSETZEN...........
.X(N).B(ZL(N)).A(N,ZL(N)).&.... K.N.1 .
0 . .1.0...SUM.0.@.... J.K.1 . N.Z. .SU.
SU.A(J,ZL(K)).X(J).`.*.....4.X(K).(B(ZL(
K)).SUM).A(K,ZL(K))...>.. K...Z.:......"
.***** LOESUNG *****":....... I.0 . N.
U...."X("I.1")= "X(I).................:.
.....DREIECKS....... ------------------
----------.=...." DAS GLEICHUNGSSYSTEM A
!B SO.`...." TRANSFORMIEREN, DASS A EINE
......" OBERE DREIECKSMATRIX WIRD.......
" PARAMETER:...$.." A(N,N),B(N) GL-SY
STEM.X...." ZL(N) ENTHAELT 0..N
...8.. ----------------------------...L
.. K.0 . N.1.+.V.PZ.K :. PIVOTZE
ILE.L.`.P.A(K,ZL(K)) :. PIVOTELEMENT.U.~
.. P= BETRAGSGROESSTES SPALTENELEMENT...
... I.K.1 . N...... . A(K,ZL(I)) . . P .
PZ.I:P.A(K,ZL(I))...... I...... ZL(PZ),
ZL(K) :. ZEILENVERTAUSCHUNG.#.N.. VIELFA
CHES DER PIVOTZEILE VON DEN ANDEREN ZEIL
EN ABZIEHEN.3.... I.K.1 . N.Q...L.A(K,ZL
(I)).P :. FAKTOR.A.... J.K.1 . N.....A(
J,ZL(I)).A(J,ZL(I)).A(J,ZL(K)).L...... J
.....B(ZL(I)).B(ZL(I)).B(ZL(K)).L......
I.A.(.. K.G.2.....
> CLICK IMAGE PREVIEW FOR FULL MODAL