MATRIXINVERSE.SB
FILE INFORMATION
FILENAME(S): MATRIXINVERSE.SB
FILE TYPE(S): PRG
FILE SIZE: 1.4K
FIRST SEEN: 2025-10-20 14:30:26
APPEARS ON: 1 disk(s)
FILE HASH
5a94201c98d72e4bf9db26991da620b865d94abd3f514567481ef3384cd67689
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCIENTIFIC BASIC | MATRIXINVERSE.SB | PRG | Treasure Chest - Klaus Der Suhler | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 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 00 47 08 14 00 8F 20 2A 20 49 4E 56 |****.G.... * INV|
00000030: 45 52 53 45 20 45 49 4E 45 52 20 4E 2A 4E 2D 4D |ERSE EINER N*N-M|
00000040: 41 54 52 49 58 20 2A 00 6A 08 1E 00 8F 20 2A 2A |ATRIX *.j.... **|
00000050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8D 08 32 00 8F |**********...2..|
00000070: 20 32 2E 38 2E 31 39 38 37 20 20 20 20 20 20 4D | 2.8.1987 M|
00000080: 41 52 54 49 4E 20 41 48 4C 42 4F 52 4E 00 93 08 |ARTIN AHLBORN...|
00000090: 5A 00 3A 00 A4 08 64 00 99 22 93 22 3A 9B 20 31 |Z.:...d..".":. 1|
000000A0: 30 AB 33 30 00 CD 08 C8 00 85 20 22 DA 45 49 4C |0.30...... ".EIL|
000000B0: 45 4E 2D 2F D3 50 41 4C 54 45 4E 5A 41 48 4C 20 |EN-/.PALTENZAHL |
000000C0: 44 45 52 20 CD 41 54 52 49 58 22 3B 4E 00 FC 08 |DER .ATRIX";N...|
000000D0: DC 00 8F 20 45 49 4E 47 41 42 45 4D 41 54 52 49 |... EINGABEMATRI|
000000E0: 58 20 4D 49 54 20 31 20 5A 55 53 41 45 54 5A 4C |X MIT 1 ZUSAETZL|
000000F0: 49 43 48 45 4E 20 53 50 41 4C 54 45 00 0B 09 F0 |ICHEN SPALTE....|
00000100: 00 86 20 41 28 4E 2C 4E AB 31 29 00 11 09 22 01 |.. A(N,N.1)...".|
00000110: 3A 00 2D 09 2C 01 99 22 C5 49 4E 47 41 42 45 20 |:.-.,..".INGABE |
00000120: 5A 45 49 4C 45 4E 57 45 49 53 45 3A 22 00 3D 09 |ZEILENWEISE:".=.|
00000130: 36 01 81 20 49 B7 30 20 A4 20 4E AB 31 00 43 09 |6.. I.0 . N.1.C.|
00000140: 40 01 99 00 53 09 4A 01 81 20 4A B7 30 20 A4 20 |@...S.J.. J.0 . |
00000150: 4E AB 31 00 73 09 54 01 99 22 C1 28 22 49 AA 31 |N.1.s.T..".("I.1|
00000160: 22 2C 22 4A AA 31 22 29 22 3B 3A 85 20 41 28 4A |","J.1")";:. A(J|
00000170: 2C 49 29 00 7B 09 5E 01 82 20 4A 00 83 09 72 01 |,I).{.^.. J...r.|
00000180: 82 20 49 00 89 09 86 01 3A 00 A6 09 90 01 2E 49 |. I.....:......I|
00000190: 4E 56 45 52 53 45 3A 8D 2E FE 20 49 4E 56 45 52 |NVERSE:... INVER|
000001A0: 54 49 45 52 45 4E 00 AC 09 9A 01 3A 00 C6 09 A4 |TIEREN.....:....|
000001B0: 01 F9 20 D5 20 AB 32 20 3A 8F 20 46 4F 52 4D 41 |.. . .2 :. FORMA|
000001C0: 54 49 45 52 45 4E 00 D9 09 AE 01 99 22 11 C9 4E |TIEREN......"..N|
000001D0: 56 45 52 53 45 3A 22 3A 99 00 E9 09 B8 01 81 20 |VERSE:":....... |
000001E0: 49 B7 30 20 A4 20 4E AB 31 00 F9 09 C2 01 81 20 |I.0 . N.1...... |
000001F0: 4A B7 30 20 A4 20 4E AB 31 00 07 0A CC 01 99 20 |J.0 . N.1...... |
00000200: 41 28 4A 2C 49 29 3B 00 0F 0A D6 01 82 20 4A 00 |A(J,I);...... J.|
00000210: 15 0A E0 01 99 00 1D 0A EA 01 82 20 49 00 35 0A |........... I.5.|
00000220: F4 01 99 22 11 11 47 4F 54 4F 2E 49 4E 56 45 52 |..."..GOTO.INVER|
00000230: 53 45 91 91 91 00 3F 0A FE 01 F9 20 4E 3A 80 00 |SE....?.... N:..|
00000240: 45 0A 4E 02 3A 00 58 0A 58 02 2E FE 20 49 4E 56 |E.N.:.X.X... INV|
00000250: 45 52 54 49 45 52 45 4E 00 7D 0A 62 02 8F 22 20 |ERTIEREN.}.b.." |
00000260: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000270: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 A2 0A |-------------...|
00000280: 6C 02 8F 22 20 C2 45 52 45 43 48 4E 55 4E 47 20 |l.." .ERECHNUNG |
00000290: 44 45 52 20 C9 4E 56 45 52 53 45 4E 20 56 4F 4E |DER .NVERSEN VON|
000002A0: 20 C1 00 C6 0A 76 02 8F 22 20 44 55 52 43 48 20 | ....v.." DURCH |
000002B0: CC 4F 45 53 45 4E 20 44 45 53 20 C7 4C 45 49 43 |.OESEN DES .LEIC|
000002C0: 48 55 4E 47 53 2D 00 E5 0A 80 02 8F 22 20 53 59 |HUNGS-......" SY|
000002D0: 53 54 45 4D 53 20 C1 20 2A 20 C9 4E 56 45 52 53 |STEMS . * .NVERS|
000002E0: 45 20 3D 20 C5 00 08 0B 8A 02 8F 22 20 28 C5 3D |E = ......." (.=|
000002F0: C5 49 4E 48 45 49 54 53 4D 41 54 52 49 58 29 20 |.INHEITSMATRIX) |
00000300: 4D 49 54 48 49 4C 46 45 00 2C 0B 94 02 8F 22 20 |MITHILFE.,...." |
00000310: 44 45 53 20 C7 41 55 53 53 2D CA 4F 52 44 41 4E |DES .AUSS-.ORDAN|
00000320: 2D D6 45 52 46 41 48 52 45 4E 53 2E 00 3E 0B 9E |-.ERFAHRENS..>..|
00000330: 02 8F 22 20 D0 41 52 41 4D 45 54 45 52 3A 00 5E |.." .ARAMETER:.^|
00000340: 0B A3 02 8F 22 20 4E 20 20 C1 4E 5A 41 48 4C 20 |...." N .NZAHL |
00000350: DA 45 49 4C 45 4E 2F D3 50 41 4C 54 45 4E 00 82 |.EILEN/.PALTEN..|
00000360: 0B A8 02 8F 22 20 41 20 20 28 4E 2D 31 29 2A 4E |...." A (N-1)*N|
00000370: 20 2D CD 41 54 52 49 58 20 28 C5 49 4E 47 41 42 | -.ATRIX (.INGAB|
00000380: 45 2D 00 A7 0B AD 02 8F 22 20 20 20 20 4D 41 54 |E-......" MAT|
00000390: 52 49 58 20 2B 20 5A 55 53 41 45 54 5A 4C 2E 20 |RIX + ZUSAETZL. |
000003A0: D3 50 41 4C 54 45 29 00 CC 0B B2 02 8F 22 20 2D |.PALTE)......" -|
000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000003C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 DC 0B BC |------------....|
000003D0: 02 81 20 4B B7 30 20 A4 20 4E AB 31 00 E2 0B C6 |.. K.0 . N.1....|
000003E0: 02 3A 00 24 0C D0 02 8F 20 53 50 41 4C 54 45 20 |.:.$.... SPALTE |
000003F0: 4E 20 3D 20 45 49 4E 48 45 49 54 53 56 45 4B 54 |N = EINHEITSVEKT|
00000400: 4F 52 20 28 4B 2D 54 45 53 20 45 4C 45 4D 45 4E |OR (K-TES ELEMEN|
00000410: 54 3D 31 2C 20 41 4C 4C 45 20 41 4E 44 45 52 45 |T=1, ALLE ANDERE|
00000420: 4E 20 30 29 00 34 0C DA 02 81 20 49 B7 30 20 A4 |N 0).4.... I.0 .|
00000430: 20 4E AB 31 00 52 0C E4 02 41 28 4E 2C 49 29 B7 | N.1.R...A(N,I).|
00000440: BC 28 49 B7 4B 29 20 3A 8F 20 30 20 4F 44 45 52 |.(I.K) :. 0 ODER|
00000450: 20 31 00 5A 0C EE 02 82 20 49 00 60 0C 16 03 3A | 1.Z.... I.`...:|
00000460: 00 91 0C 20 03 8F 20 53 50 41 4C 54 45 20 30 20 |... .. SPALTE 0 |
00000470: 5A 55 4D 20 45 49 4E 48 45 49 54 53 56 45 4B 54 |ZUM EINHEITSVEKT|
00000480: 4F 52 20 54 52 41 4E 53 46 4F 52 4D 49 45 52 45 |OR TRANSFORMIERE|
00000490: 4E 00 9F 0C 2A 03 81 20 4A B7 31 20 A4 20 4E 00 |N...*.. J.1 . N.|
000004A0: B8 0C 34 03 41 28 4A 2C 4B 29 B7 41 28 4A 2C 4B |..4.A(J,K).A(J,K|
000004B0: 29 AD 41 28 30 2C 4B 29 00 C8 0C 52 03 81 20 49 |).A(0,K)...R.. I|
000004C0: B7 30 20 A4 20 4E AB 31 00 D8 0C 5C 03 8B 20 49 |.0 . N.1...\.. I|
000004D0: B7 4B 20 A7 20 38 38 30 00 F8 0C 66 03 41 28 4A |.K . 880...f.A(J|
000004E0: 2C 49 29 B7 41 28 4A 2C 49 29 AB 41 28 4A 2C 4B |,I).A(J,I).A(J,K|
000004F0: 29 AC 41 28 30 2C 49 29 00 00 0D 70 03 82 20 49 |).A(0,I)...p.. I|
00000500: 00 08 0D 7A 03 82 20 4A 00 0E 0D 84 03 3A 00 2F |...z.. J.....:./|
00000510: 0D 8E 03 8F 20 4D 41 54 52 49 58 20 4E 41 43 48 |.... MATRIX NACH|
00000520: 20 4C 49 4E 4B 53 20 53 43 48 49 45 42 45 4E 00 | LINKS SCHIEBEN.|
00000530: 3F 0D 98 03 81 20 49 B7 30 20 A4 20 4E AB 31 00 |?.... I.0 . N.1.|
00000540: 4F 0D A2 03 81 20 4A B7 30 20 A4 20 4E AB 31 00 |O.... J.0 . N.1.|
00000550: 63 0D AC 03 41 28 4A 2C 49 29 B7 41 28 4A AA 31 |c...A(J,I).A(J.1|
00000560: 2C 49 29 00 6D 0D B6 03 82 20 4A 2C 49 00 73 0D |,I).m.... J,I.s.|
00000570: C0 03 3A 00 7B 0D CA 03 82 20 4B 00 81 0D D4 03 |..:.{.... K.....|
00000580: 8E 00 00 00 |.... |
..$.... ****************************.G..
.. * INVERSE EINER N*N-MATRIX *.J.... **
**************************...2.. 2.8.198
7 MARTIN AHLBORN...Z.:...D..".":. 1
0.30.M.H.. "ZEILEN-/SPALTENZAHL DER MATR
IX";N...... EINGABEMATRIX MIT 1 ZUSAETZL
ICHEN SPALTE...... A(N,N.1)...".:.-.,.."
EINGABE ZEILENWEISE:".=.6.. I.0 . N.1.C.
@...S.J.. J.0 . N.1.S.T.."A("I.1","J.1")
";:. A(J,I).{.^.. J...R.. I.....:......I
NVERSE:... INVERTIEREN.....:.F.... U .2
:. FORMATIEREN.Y....".INVERSE:":.......
I.0 . N.1...B.. J.0 . N.1...L.. A(J,I);.
..V.. J............ I.5...."..GOTO.INVER
SE....?.... N:..E.N.:.X.X... INVERTIEREN
.}.B.." -----------------------------...
L.." BERECHNUNG DER INVERSEN VON A.F.V..
" DURCH LOESEN DES GLEICHUNGS-......" SY
STEMS A * INVERSE = E......" (E=EINHEITS
MATRIX) MITHILFE.,...." DES GAUSS-JORDAN
-VERFAHRENS..>...." PARAMETER:.^...." N
ANZAHL ZEILEN/SPALTEN......" A (N-1)*N
-MATRIX (EINGABE-......" MATRIX + ZU
SAETZL. SPALTE).L...." -----------------
------------...... K.0 . N.1...F.:.$.P..
SPALTE N = EINHEITSVEKTOR (K-TES ELEMEN
T=1, ALLE ANDEREN 0).4.Z.. I.0 . N.1.R..
.A(N,I)..(I.K) :. 0 ODER 1.Z.... I.`...:
... .. SPALTE 0 ZUM EINHEITSVEKTOR TRANS
FORMIEREN...*.. J.1 . N...4.A(J,K).A(J,K
).A(0,K).H.R.. I.0 . N.1.X.\.. I.K . 880
...F.A(J,I).A(J,I).A(J,K).A(0,I)...P.. I
...Z.. J.....:./.... MATRIX NACH LINKS S
CHIEBEN.?.... I.0 . N.1.O.... J.0 . N.1.
C...A(J,I).A(J.1,I).M.... J,I.S...:.{.J.
. K...T.....
> CLICK IMAGE PREVIEW FOR FULL MODAL