GAUSS-JORDAN
FILE INFORMATION
FILENAME(S): GAUSS-JORDAN
FILE TYPE(S): PRG
FILE SIZE: 3.7K
FIRST SEEN: 2025-11-30 01:07:57
APPEARS ON: 2 disk(s)
FILE HASH
1d3737eaed9b7cb5a8d6c5eded9ef4600fa7ca79e9f25f250eb074f13e4ef1bc
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | GAUSS-JORDAN | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 9 | DOWNLOAD FILE |
| L EHRNEN | GAUSS-JORDAN | PRG | Treasure Chest - Wolfgang Rauprich | 17 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 05 00 97 20 35 33 32 38 30 2C 31 35 |.. .... 53280,15|
00000010: 3A 97 20 35 33 32 38 31 2C 31 32 3A 99 22 05 22 |:. 53281,12:."."|
00000020: 00 4D 08 0A 00 8F 20 53 49 4D 55 4C 54 41 4E 45 |.M.... SIMULTANE|
00000030: 20 4C 4F 45 53 55 4E 47 20 4C 49 4E 45 41 52 45 | LOESUNG LINEARE|
00000040: 52 20 47 4C 45 49 43 48 55 4E 47 45 4E 00 7A 08 |R GLEICHUNGEN.z.|
00000050: 0B 00 8F 20 4D 49 54 20 48 49 4C 46 45 20 44 45 |... MIT HILFE DE|
00000060: 52 20 47 41 55 53 53 2D 4A 4F 52 44 41 4E 2D 45 |R GAUSS-JORDAN-E|
00000070: 4C 49 4D 49 4E 41 54 49 4F 4E 00 8A 08 0C 00 8F |LIMINATION......|
00000080: 20 56 41 52 49 41 42 4C 45 4E 00 A8 08 0E 00 8F | VARIABLEN......|
00000090: 20 20 20 43 31 20 20 20 20 20 4C 4F 45 53 55 4E | C1 LOESUN|
000000A0: 47 53 56 45 4B 54 4F 52 00 C5 08 0F 00 8F 20 20 |GSVEKTOR...... |
000000B0: 20 45 31 20 20 20 20 20 46 45 48 4C 45 52 41 4E | E1 FEHLERAN|
000000C0: 5A 45 49 47 45 00 E4 08 10 00 8F 20 20 20 4D 31 |ZEIGE...... M1|
000000D0: 20 20 20 20 20 4D 41 58 49 4D 41 4C 45 20 4C 41 | MAXIMALE LA|
000000E0: 45 4E 47 45 00 05 09 11 00 8F 20 20 20 4E 31 20 |ENGE...... N1 |
000000F0: 20 20 20 20 41 4E 5A 41 48 4C 20 44 45 52 20 5A | ANZAHL DER Z|
00000100: 45 49 4C 45 4E 00 27 09 12 00 8F 20 20 20 4E 32 |EILEN.'.... N2|
00000110: 20 20 20 20 20 41 4E 5A 41 48 4C 20 44 45 52 20 | ANZAHL DER |
00000120: 53 50 41 4C 54 45 4E 00 42 09 13 00 8F 20 20 20 |SPALTEN.B.... |
00000130: 49 32 20 20 20 20 20 48 49 4C 46 53 4D 41 54 52 |I2 HILFSMATR|
00000140: 49 58 00 5B 09 14 00 8F 20 45 4E 44 45 20 44 45 |IX.[.... ENDE DE|
00000150: 52 20 56 41 52 49 41 42 4C 45 4E 00 61 09 1E 00 |R VARIABLEN.a...|
00000160: 8F 00 6A 09 46 00 4D 31 B2 38 00 98 09 50 00 86 |..j.F.M1.8...P..|
00000170: 20 5A 28 38 29 2C 41 28 38 2C 38 29 2C 43 31 28 | Z(8),A(8,8),C1(|
00000180: 38 29 2C 57 28 38 2C 31 29 2C 42 28 38 2C 38 29 |8),W(8,1),B(8,8)|
00000190: 2C 49 32 28 38 2C 33 29 00 C6 09 5A 00 99 22 93 |,I2(8,3)...Z..".|
000001A0: 11 11 11 1D 1D 1D 1D 1D 1D 12 53 49 4D 55 4C 54 |..........SIMULT|
000001B0: 41 4E 45 20 4C 4F 45 53 55 4E 47 20 4D 49 54 20 |ANE LOESUNG MIT |
000001C0: 48 49 4C 46 45 22 00 F2 09 64 00 99 22 11 1D 1D |HILFE"...d.."...|
000001D0: 1D 1D 1D 1D 12 44 45 52 20 47 41 55 53 53 2D 4A |.....DER GAUSS-J|
000001E0: 4F 52 44 41 4E 2D 45 4C 49 4D 49 4E 41 54 49 4F |ORDAN-ELIMINATIO|
000001F0: 4E 22 00 0E 0A 6E 00 8D 20 35 30 30 3A 8F 20 45 |N"...n.. 500:. E|
00000200: 49 4E 47 41 42 45 2D 52 4F 55 54 49 4E 45 00 30 |INGABE-ROUTINE.0|
00000210: 0A 78 00 8D 20 35 30 30 30 3A 8F 20 47 41 55 53 |.x.. 5000:. GAUS|
00000220: 53 2D 4A 4F 52 44 41 4E 2D 52 4F 55 54 49 4E 45 |S-JORDAN-ROUTINE|
00000230: 00 36 0A 82 00 8F 00 47 0A 8C 00 8B 20 4E 31 B1 |.6.....G.... N1.|
00000240: 35 20 A7 20 32 32 30 00 6B 0A 96 00 99 22 11 11 |5 . 220.k...."..|
00000250: 99 20 20 20 20 20 20 20 20 4D 41 54 52 49 58 2D |. MATRIX-|
00000260: 4B 4F 4E 53 54 41 4E 54 45 4E 22 00 71 0A 9B 00 |KONSTANTEN".q...|
00000270: 99 00 80 0A A0 00 81 20 49 B2 31 20 A4 20 4E 31 |....... I.1 . N1|
00000280: 00 91 0A AA 00 3A 20 81 20 4A B2 31 20 A4 20 4E |.....: . J.1 . N|
00000290: 32 00 A5 0A B4 00 3A 20 20 99 A3 31 30 29 41 28 |2.....: ..10)A(|
000002A0: 49 2C 4A 29 3B 00 AF 0A BE 00 3A 20 82 20 4A 00 |I,J);.....: . J.|
000002B0: BF 0A C8 00 3A 20 99 A3 32 35 29 5A 28 49 29 00 |....: ..25)Z(I).|
000002C0: C7 0A D2 00 82 20 49 00 D1 0A DC 00 99 22 11 05 |..... I......"..|
000002D0: 22 00 08 0B E6 00 8B 20 45 31 B2 31 20 A7 20 99 |"...... E1.1 . .|
000002E0: A3 36 29 22 11 11 11 9E 46 45 48 4C 45 52 3A 20 |.6)"....FEHLER: |
000002F0: 4D 41 54 52 49 58 20 53 49 4E 47 55 4C 41 45 52 |MATRIX SINGULAER|
00000300: 05 22 3A 89 20 33 30 30 00 20 0B F0 00 99 22 90 |.":. 300. ....".|
00000310: 20 20 20 20 20 20 20 20 4C 4F 45 53 55 4E 47 22 | LOESUNG"|
00000320: 00 26 0B FA 00 99 00 35 0B 04 01 81 20 49 B2 31 |.&.....5.... I.1|
00000330: 20 A4 20 4E 32 00 55 0B 0E 01 3A 20 99 A3 31 30 | . N2.U...: ..10|
00000340: 29 B5 28 43 31 28 49 29 AC 31 30 30 AA 2E 35 29 |).(C1(I).100..5)|
00000350: AD 31 30 30 3B 00 5D 0B 18 01 82 20 49 00 67 0B |.100;.].... I.g.|
00000360: 22 01 99 22 11 05 22 00 72 0B 2C 01 89 20 39 39 |".."..".r.,.. 99|
00000370: 39 39 00 8A 0B F4 01 8F 20 45 49 4E 47 41 42 45 |99...... EINGABE|
00000380: 20 44 45 52 20 44 41 54 45 4E 00 90 0B 12 02 99 | DER DATEN......|
00000390: 00 B6 0B 1C 02 85 22 9F 1D 1D 1D 41 4E 5A 41 48 |......"....ANZAH|
000003A0: 4C 20 44 45 52 20 47 4C 45 49 43 48 55 4E 47 45 |L DER GLEICHUNGE|
000003B0: 4E 3A 22 3B 4E 31 00 C0 0B 21 02 99 22 11 05 22 |N:";N1...!..".."|
000003C0: 00 D2 0B 26 02 8B 20 4E 31 B1 4D 31 20 A7 20 35 |...&.. N1.M1 . 5|
000003D0: 34 30 00 E4 0B 30 02 8B 20 4E 31 B3 32 20 A7 20 |40...0.. N1.2 . |
000003E0: 39 39 39 39 00 EE 0B 3A 02 4E 32 B2 4E 31 00 FD |9999...:.N2.N1..|
000003F0: 0B 44 02 81 20 49 B2 31 20 A4 20 4E 31 00 17 0C |.D.. I.1 . N1...|
00000400: 4E 02 3A 20 99 22 1D 1D 1D 1D 1D 47 4C 45 49 43 |N.: .".....GLEIC|
00000410: 48 55 4E 47 22 3B 49 00 28 0C 58 02 3A 20 81 20 |HUNG";I.(.X.: . |
00000420: 4A B2 31 20 A4 20 4E 31 00 3B 0C 62 02 3A 20 20 |J.1 . N1.;.b.: |
00000430: 99 A3 32 30 29 4A 3B 22 20 22 3B 00 4B 0C 6C 02 |..20)J;" ";.K.l.|
00000440: 3A 20 20 85 20 41 28 49 2C 4A 29 00 55 0C 76 02 |: . A(I,J).U.v.|
00000450: 3A 20 82 20 4A 00 7C 0C 80 02 3A 20 85 22 20 20 |: . J.|...: ." |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000470: 20 20 20 43 20 20 22 3B 5A 28 49 29 00 84 0C 8A | C ";Z(I)....|
00000480: 02 82 20 49 00 8A 0C 94 02 8E 00 BA 0C 88 13 8F |.. I............|
00000490: 20 47 41 55 53 53 2D 4A 4F 52 44 41 4E 20 4D 41 | GAUSS-JORDAN MA|
000004A0: 54 52 49 58 2D 49 4E 56 45 52 53 49 4F 4E 20 55 |TRIX-INVERSION U|
000004B0: 4E 44 20 4C 4F 45 53 55 4E 47 00 CA 0C 93 13 8F |ND LOESUNG......|
000004C0: 20 56 41 52 49 41 42 4C 45 4E 00 ED 0C 95 13 8F | VARIABLEN......|
000004D0: 20 20 20 41 20 20 20 20 20 20 4B 4F 45 46 46 49 | A KOEFFI|
000004E0: 5A 49 45 4E 54 45 4E 4D 41 54 52 49 58 00 07 0D |ZIENTENMATRIX...|
000004F0: 96 13 8F 20 20 20 42 20 20 20 20 20 20 48 49 4C |... B HIL|
00000500: 46 53 41 52 52 41 59 00 25 0D 97 13 8F 20 20 20 |FSARRAY.%.... |
00000510: 42 31 20 20 20 20 20 47 52 4F 45 53 53 54 45 52 |B1 GROESSTER|
00000520: 20 57 45 52 54 00 43 0D 98 13 8F 20 20 20 43 31 | WERT.C.... C1|
00000530: 20 20 20 20 20 4C 4F 45 53 55 4E 47 53 56 45 4B | LOESUNGSVEK|
00000540: 54 4F 52 00 60 0D 99 13 8F 20 20 20 44 33 20 20 |TOR.`.... D3 |
00000550: 20 20 20 44 45 54 45 52 4D 49 4E 41 4E 54 45 45 | DETERMINANTEE|
00000560: 00 7D 0D 9A 13 8F 20 20 20 45 31 20 20 20 20 20 |.}.... E1 |
00000570: 46 45 48 4C 45 52 41 4E 5A 45 49 47 45 00 9A 0D |FEHLERANZEIGE...|
00000580: 9B 13 8F 20 20 20 48 31 20 20 20 20 20 48 49 4C |... H1 HIL|
00000590: 46 53 56 41 52 49 41 42 4C 45 00 B5 0D 9C 13 8F |FSVARIABLE......|
000005A0: 20 20 20 49 32 20 20 20 20 20 48 49 4C 46 53 4D | I2 HILFSM|
000005B0: 41 54 52 49 58 00 D0 0D 9D 13 8F 20 20 20 49 33 |ATRIX...... I3|
000005C0: 20 20 20 20 20 5A 45 49 4C 45 4E 49 4E 44 45 58 | ZEILENINDEX|
000005D0: 00 EC 0D 9E 13 8F 20 20 20 49 34 20 20 20 20 20 |...... I4 |
000005E0: 53 50 41 4C 54 45 4E 49 4E 44 45 58 00 19 0E 9F |SPALTENINDEX....|
000005F0: 13 8F 20 20 20 49 35 20 20 20 20 20 41 4E 5A 45 |.. I5 ANZE|
00000600: 49 47 45 20 46 55 45 52 20 49 4E 56 45 52 53 45 |IGE FUER INVERSE|
00000610: 53 20 44 52 55 43 4B 45 4E 00 3B 0E A0 13 8F 20 |S DRUCKEN.;.... |
00000620: 20 20 4E 32 20 20 20 20 20 20 41 4E 5A 41 48 4C | N2 ANZAHL|
00000630: 20 44 52 20 53 50 41 4C 54 45 4E 00 68 0E A1 13 | DR SPALTEN.h...|
00000640: 8F 20 20 20 4E 33 20 20 20 20 20 41 4E 5A 41 48 |. N3 ANZAH|
00000650: 4C 20 44 45 52 20 4B 4F 4E 53 54 41 4E 54 45 4E |L DER KONSTANTEN|
00000660: 56 45 4B 54 4F 52 45 4E 00 83 0E A2 13 8F 20 20 |VEKTOREN...... |
00000670: 20 50 31 20 20 20 20 20 50 49 56 4F 54 2D 49 4E | P1 PIVOT-IN|
00000680: 44 45 58 00 A1 0E A3 13 8F 20 20 20 57 20 20 20 |DEX...... W |
00000690: 20 20 20 4C 4F 45 53 55 4E 47 53 4D 41 54 52 49 | LOESUNGSMATRI|
000006A0: 58 00 C1 0E A4 13 8F 20 20 20 5A 20 20 20 20 20 |X...... Z |
000006B0: 20 4B 4F 4E 53 54 41 4E 54 45 4E 56 45 4B 54 4F | KONSTANTENVEKTO|
000006C0: 52 00 DA 0E A5 13 8F 20 45 4E 44 45 20 44 45 52 |R...... ENDE DER|
000006D0: 20 56 41 52 49 41 42 4C 45 4E 00 E0 0E D8 13 8F | VARIABLEN......|
000006E0: 00 19 0F E2 13 45 31 B2 30 3A 8F 20 57 49 52 44 |.....E1.0:. WIRD|
000006F0: 20 31 20 47 45 53 45 54 5A 54 2C 46 41 4C 4C 53 | 1 GESETZT,FALLS|
00000700: 20 44 49 45 20 4D 41 54 52 49 58 20 53 49 4E 47 | DIE MATRIX SING|
00000710: 55 4C 41 45 52 20 49 53 54 00 46 0F EC 13 49 35 |ULAER IST.F...I5|
00000720: B2 30 3A 8F 20 46 41 4C 4C 53 20 30 2C 44 52 55 |.0:. FALLS 0,DRU|
00000730: 43 4B 45 20 44 49 45 20 49 4E 56 45 52 53 45 20 |CKE DIE INVERSE |
00000740: 4D 41 54 52 49 58 00 6F 0F F6 13 4E 33 B2 31 3A |MATRIX.o...N3.1:|
00000750: 8F 20 41 4E 5A 41 48 4C 20 44 45 52 20 4B 4F 4E |. ANZAHL DER KON|
00000760: 53 54 41 4E 54 45 4E 56 45 4B 54 4F 52 45 4E 00 |STANTENVEKTOREN.|
00000770: 7B 0F 00 14 81 49 B2 31 A4 4E 32 00 89 0F 0A 14 |{....I.1.N2.....|
00000780: 3A 20 81 4A B2 31 A4 4E 32 00 9E 0F 14 14 3A 20 |: .J.1.N2.....: |
00000790: 20 42 28 49 2C 4A 29 B2 41 28 49 2C 4A 29 00 A7 | B(I,J).A(I,J)..|
000007A0: 0F 1E 14 3A 20 82 4A 00 BA 0F 28 14 3A 20 20 57 |...: .J...(.: W|
000007B0: 28 49 2C 31 29 B2 5A 28 49 29 00 CB 0F 32 14 3A |(I,1).Z(I)...2.:|
000007C0: 20 20 49 32 28 49 2C 33 29 B2 30 00 D5 0F 3C 14 | I2(I,3).0...<.|
000007D0: 3A 20 82 20 49 00 E0 0F 46 14 3A 20 44 33 B2 31 |: . I...F.: D3.1|
000007E0: 00 EE 0F 50 14 3A 20 81 49 B2 31 A4 4E 32 00 F7 |...P.: .I.1.N2..|
000007F0: 0F 5A 14 3A 20 20 8F 00 29 10 64 14 3A 20 20 8F |.Z.: ..).d.: .|
00000800: 20 53 55 43 48 45 20 4E 41 43 48 20 44 45 4D 20 | SUCHE NACH DEM |
00000810: 47 52 4F 45 53 53 54 45 4E 20 28 50 49 56 4F 54 |GROESSTEN (PIVOT|
00000820: 2D 29 45 4C 45 4D 45 4E 54 00 32 10 6E 14 3A 20 |-)ELEMENT.2.n.: |
00000830: 20 8F 00 3E 10 78 14 3A 20 20 42 31 B2 30 00 4D | ..>.x.: B1.0.M|
00000840: 10 82 14 3A 20 20 81 4A B2 31 A4 4E 32 00 67 10 |...: .J.1.N2.g.|
00000850: 8C 14 3A 20 20 20 8B 28 49 32 28 4A 2C 33 29 B2 |..: .(I2(J,3).|
00000860: 31 29 A7 35 33 35 30 00 76 10 96 14 3A 20 20 81 |1).5350.v...: .|
00000870: 4B B2 31 A4 4E 32 00 90 10 A0 14 3A 20 20 20 8B |K.1.N2.....: .|
00000880: 28 49 32 28 4B 2C 33 29 B1 31 29 A7 36 31 32 30 |(I2(K,3).1).6120|
00000890: 00 AA 10 AA 14 3A 20 20 20 8B 28 49 32 28 4B 2C |.....: .(I2(K,|
000008A0: 33 29 B2 31 29 A7 35 33 34 30 00 C8 10 B4 14 3A |3).1).5340.....:|
000008B0: 20 20 20 8B 28 42 31 B1 B2 B6 28 42 28 4A 2C 4B | .(B1...(B(J,K|
000008C0: 29 29 29 A7 35 33 34 30 00 D5 10 BE 14 3A 20 20 |))).5340.....: |
000008D0: 20 49 33 B2 4A 00 E2 10 C8 14 3A 20 20 20 49 34 | I3.J.....: I4|
000008E0: B2 4B 00 F7 10 D2 14 3A 20 20 20 42 31 B2 B6 28 |.K.....: B1..(|
000008F0: 42 28 4A 2C 4B 29 29 00 01 11 DC 14 3A 20 20 82 |B(J,K)).....: .|
00000900: 4B 00 0A 11 E6 14 3A 20 82 4A 00 24 11 F0 14 3A |K.....: .J.$...:|
00000910: 20 49 32 28 49 34 2C 33 29 B2 49 32 28 49 34 2C | I2(I4,3).I2(I4,|
00000920: 33 29 AA 31 00 35 11 FA 14 3A 20 49 32 28 49 2C |3).1.5...: I2(I,|
00000930: 31 29 B2 49 33 00 46 11 04 15 3A 20 49 32 28 49 |1).I3.F...: I2(I|
00000940: 2C 32 29 B2 49 34 00 92 11 0E 15 3A 20 8F 20 5A |,2).I4.....: . Z|
00000950: 45 49 4C 45 4E 56 45 52 54 41 55 53 43 48 55 4E |EILENVERTAUSCHUN|
00000960: 47 2C 55 4D 20 44 41 53 20 50 49 56 4F 54 2D 45 |G,UM DAS PIVOT-E|
00000970: 4C 45 4D 45 4E 54 20 49 4E 20 44 49 45 20 44 49 |LEMENT IN DIE DI|
00000980: 41 47 4F 4E 41 4C 45 20 5A 55 20 42 52 49 4E 47 |AGONALE ZU BRING|
00000990: 45 4E 00 A6 11 18 15 3A 20 8B 28 49 33 B2 49 34 |EN.....: .(I3.I4|
000009A0: 29 A7 35 35 34 30 00 B3 11 22 15 3A 20 44 33 B2 |).5540...".: D3.|
000009B0: AB 44 33 00 C1 11 2C 15 3A 20 81 4C B2 31 A4 4E |.D3...,.: .L.1.N|
000009C0: 32 00 D3 11 36 15 3A 20 20 48 31 B2 42 28 49 33 |2...6.: H1.B(I3|
000009D0: 2C 4C 29 00 EA 11 40 15 3A 20 20 42 28 49 33 2C |,L)...@.: B(I3,|
000009E0: 4C 29 B2 42 28 49 34 2C 4C 29 00 FC 11 4A 15 3A |L).B(I4,L)...J.:|
000009F0: 20 20 42 28 49 34 2C 4C 29 B2 48 31 00 05 12 54 | B(I4,L).H1...T|
00000A00: 15 3A 20 82 4C 00 18 12 5E 15 3A 20 8B 28 4E 33 |.: .L...^.: .(N3|
00000A10: B3 31 29 A7 35 35 34 30 00 26 12 68 15 3A 20 81 |.1).5540.&.h.: .|
00000A20: 4C B2 31 A4 4E 33 00 38 12 72 15 3A 20 20 48 31 |L.1.N3.8.r.: H1|
00000A30: B2 57 28 49 33 2C 4C 29 00 4F 12 7C 15 3A 20 20 |.W(I3,L).O.|.: |
00000A40: 57 28 49 33 2C 4C 29 B2 45 28 49 34 2C 4C 29 00 |W(I3,L).E(I4,L).|
00000A50: 61 12 86 15 3A 20 20 57 28 49 34 2C 4C 29 B2 48 |a...: W(I4,L).H|
00000A60: 31 00 6A 12 90 15 3A 20 82 4C 00 9F 12 9A 15 3A |1.j...: .L.....:|
00000A70: 20 8F 20 44 49 56 49 53 49 4F 4E 20 56 4F 4E 20 | . DIVISION VON |
00000A80: 50 49 56 4F 54 2D 5A 45 49 4C 45 20 44 55 52 43 |PIVOT-ZEILE DURC|
00000A90: 48 20 50 49 56 4F 54 2D 45 4C 45 4D 45 4E 54 00 |H PIVOT-ELEMENT.|
00000AA0: B1 12 A4 15 3A 20 50 31 B2 42 28 49 34 2C 49 34 |....: P1.B(I4,I4|
00000AB0: 29 00 C0 12 AE 15 3A 20 44 33 B2 44 33 AC 50 31 |).....: D3.D3.P1|
00000AC0: 00 D1 12 B8 15 3A 20 42 28 49 34 2C 49 34 29 B2 |.....: B(I4,I4).|
00000AD0: 31 00 DF 12 C2 15 3A 20 81 4C B2 31 A4 4E 32 00 |1.....: .L.1.N2.|
00000AE0: F9 12 CC 15 3A 20 20 42 28 49 34 2C 4C 29 B2 42 |....: B(I4,L).B|
00000AF0: 28 49 34 2C 4C 29 AD 50 31 00 02 13 D6 15 3A 20 |(I4,L).P1.....: |
00000B00: 82 4C 00 15 13 E0 15 3A 20 8B 28 4E 33 B3 31 29 |.L.....: .(N3.1)|
00000B10: A7 35 36 36 30 00 23 13 EA 15 3A 20 81 4C B2 31 |.5660.#...: .L.1|
00000B20: A4 4E 33 00 3D 13 F4 15 3A 20 20 57 28 49 34 2C |.N3.=...: W(I4,|
00000B30: 4C 29 B2 57 28 49 34 2C 4C 29 AD 50 31 00 46 13 |L).W(I4,L).P1.F.|
00000B40: FE 15 3A 20 82 4C 00 4E 13 08 16 3A 20 8F 00 72 |..: .L.N...: ..r|
00000B50: 13 12 16 3A 20 8F 20 52 45 44 55 5A 49 45 52 45 |...: . REDUZIERE|
00000B60: 20 4E 49 43 48 54 2D 50 49 56 4F 54 2D 5A 45 49 | NICHT-PIVOT-ZEI|
00000B70: 4C 45 00 81 13 1C 16 3A 20 81 4C 31 B2 31 A4 4E |LE.....: .L1.1.N|
00000B80: 32 00 96 13 26 16 3A 20 20 8B 28 4C 31 B2 49 34 |2...&.: .(L1.I4|
00000B90: 29 A7 35 37 37 30 00 A8 13 30 16 3A 20 20 54 B2 |).5770...0.: T.|
00000BA0: 42 28 4C 31 2C 49 34 29 00 BA 13 3A 16 3A 20 20 |B(L1,I4)...:.: |
00000BB0: 42 28 4C 31 2C 49 34 29 B2 30 00 C8 13 44 16 3A |B(L1,I4).0...D.:|
00000BC0: 20 81 4C B2 31 A4 4E 32 00 E9 13 4E 16 3A 20 20 | .L.1.N2...N.: |
00000BD0: 42 28 4C 31 2C 4C 29 B2 42 28 4C 31 2C 4C 29 AB |B(L1,L).B(L1,L).|
00000BE0: 42 28 49 34 2C 4C 29 AC 54 00 F2 13 58 16 3A 20 |B(I4,L).T...X.: |
00000BF0: 82 4C 00 05 14 62 16 3A 20 8B 28 4E 33 B3 31 29 |.L...b.: .(N3.1)|
00000C00: A7 35 37 37 30 00 13 14 6C 16 3A 20 81 4C B2 31 |.5770...l.: .L.1|
00000C10: A4 4E 33 00 34 14 76 16 3A 20 20 57 28 4C 31 2C |.N3.4.v.: W(L1,|
00000C20: 4C 29 B2 57 28 4C 31 2C 4C 29 AB 57 28 49 34 2C |L).W(L1,L).W(I4,|
00000C30: 4C 29 AC 54 00 3D 14 80 16 3A 20 82 4C 00 46 14 |L).T.=...: .L.F.|
00000C40: 8A 16 3A 82 4C 31 00 4D 14 94 16 82 49 00 53 14 |..:.L1.M....I.S.|
00000C50: 9E 16 8F 00 6D 14 A8 16 8F 20 53 50 41 4C 54 45 |....m.... SPALTE|
00000C60: 4E 56 45 52 54 41 55 53 43 48 55 4E 47 00 73 14 |NVERTAUSCHUNG.s.|
00000C70: B2 16 8F 00 7F 14 BC 16 81 49 B2 31 A4 4E 32 00 |.........I.1.N2.|
00000C80: 8E 14 C6 16 3A 20 4C B2 4E 32 AB 49 AA 31 00 AC |....: L.N2.I.1..|
00000C90: 14 D0 16 3A 20 8B 28 49 32 28 4C 2C 31 29 B2 49 |...: .(I2(L,1).I|
00000CA0: 32 28 4C 2C 32 29 29 A7 35 39 32 30 00 BD 14 DA |2(L,2)).5920....|
00000CB0: 16 3A 20 49 33 B2 49 32 28 4C 2C 31 29 00 CE 14 |.: I3.I2(L,1)...|
00000CC0: E4 16 3A 20 49 34 B2 49 32 28 4C 2C 32 29 00 DC |..: I4.I2(L,2)..|
00000CD0: 14 EE 16 3A 20 81 4B B2 31 A4 4E 32 00 EE 14 F8 |...: .K.1.N2....|
00000CE0: 16 3A 20 20 48 31 B2 42 28 4B 2C 49 33 29 00 05 |.: H1.B(K,I3)..|
00000CF0: 15 02 17 3A 20 20 42 28 4B 2C 49 33 29 B2 42 28 |...: B(K,I3).B(|
00000D00: 4B 2C 49 34 29 00 17 15 0C 17 3A 20 20 42 28 4B |K,I4).....: B(K|
00000D10: 2C 49 34 29 B2 48 31 00 20 15 16 17 3A 20 82 4B |,I4).H1. ...: .K|
00000D20: 00 27 15 20 17 82 49 00 33 15 2A 17 81 4B B2 31 |.'. ..I.3.*..K.1|
00000D30: A4 4E 32 00 4C 15 34 17 3A 20 8B 28 49 32 28 4B |.N2.L.4.: .(I2(K|
00000D40: 2C 33 29 B3 B1 31 29 A7 36 31 32 30 00 53 15 3E |,3)..1).6120.S.>|
00000D50: 17 82 4B 00 5C 15 48 17 45 31 B2 30 00 68 15 52 |..K.\.H.E1.0.h.R|
00000D60: 17 81 49 B2 31 A4 4E 32 00 7B 15 5C 17 3A 20 43 |..I.1.N2.{.\.: C|
00000D70: 31 28 49 29 B2 57 28 49 2C 31 29 00 82 15 66 17 |1(I).W(I,1)...f.|
00000D80: 82 49 00 93 15 70 17 8B 28 49 35 B2 31 29 A7 36 |.I...p..(I5.1).6|
00000D90: 31 34 30 00 B6 15 84 17 99 22 93 9E 11 1D 1D 1D |140......"......|
00000DA0: 1D 1D 1D 1D 1D 49 4E 56 45 52 53 45 20 4D 41 54 |.....INVERSE MAT|
00000DB0: 52 49 58 22 3A 99 00 C2 15 8E 17 81 49 B2 31 A4 |RIX":.......I.1.|
00000DC0: 4E 32 00 D0 15 98 17 3A 20 81 4A B2 31 A4 4E 32 |N2.....: .J.1.N2|
00000DD0: 00 F2 15 A2 17 3A 20 20 99 A3 31 31 29 B5 28 42 |.....: ..11).(B|
00000DE0: 28 49 2C 4A 29 AC 31 30 30 AA 2E 35 29 AD 31 30 |(I,J).100..5).10|
00000DF0: 30 3B 00 FB 15 AC 17 3A 20 82 4A 00 03 16 B6 17 |0;.....: .J.....|
00000E00: 3A 20 99 00 0A 16 C0 17 82 49 00 13 16 CA 17 99 |: .......I......|
00000E10: 22 05 22 00 33 16 D4 17 99 22 1D 1D 1D 1D 1D 1D |".".3...."......|
00000E20: 1D 1D 44 45 54 45 52 4D 49 4E 41 4E 54 45 3D 22 |..DETERMINANTE="|
00000E30: 3B 44 33 00 5B 16 DE 17 8E 3A 8F 20 46 41 4C 4C |;D3.[....:. FALL|
00000E40: 53 20 44 49 45 20 49 4E 56 45 52 53 45 20 47 45 |S DIE INVERSE GE|
00000E50: 44 52 55 43 4B 54 20 57 49 52 44 00 64 16 E8 17 |DRUCKT WIRD.d...|
00000E60: 45 31 B2 31 00 91 16 FC 17 8E 3A 8F 20 45 4E 44 |E1.1......:. END|
00000E70: 45 20 44 45 53 20 47 41 55 53 53 2D 4A 4F 52 44 |E DES GAUSS-JORD|
00000E80: 41 4E 2D 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D |AN-UNTERPROGRAMM|
00000E90: 53 00 97 16 0F 27 80 00 00 00 30 00 B2 A9 54 |S....'....0...T |
.. .... 53280,15:. 53281,12:.".".M.... S
IMULTANE LOESUNG LINEARER GLEICHUNGEN.Z.
... MIT HILFE DER GAUSS-JORDAN-ELIMINATI
ON...... VARIABLEN...... C1 LOESUN
GSVEKTOR.E.... E1 FEHLERANZEIGE...
... M1 MAXIMALE LAENGE...... N1
ANZAHL DER ZEILEN.'.... N2 ANZ
AHL DER SPALTEN.B.... I2 HILFSMATR
IX.[.... ENDE DER VARIABLEN.A.....J.F.M1
.8...P.. Z(8),A(8,8),C1(8),W(8,1),B(8,8)
,I2(8,3).F.Z.."...........SIMULTANE LOES
UNG MIT HILFE"...D.."........DER GAUSS-J
ORDAN-ELIMINATION"...N.. 500:. EINGABE-R
OUTINE.0.X.. 5000:. GAUSS-JORDAN-ROUTINE
.6.....G.... N1.5 . 220.K...."...
MATRIX-KONSTANTEN".Q....... .. I.1 . N1
.....: . J.1 . N2.....: ..10)A(I,J);...
..: . J...H.: ..25)Z(I).G.R.. I.Q...."..
"...... E1.1 . ..6)"....FEHLER: MATRIX S
INGULAER.":. 300. ....". LOESUNG"
.&.....5.... I.1 . N2.U...: ..10).(C1(I)
.100..5).100;.].... I.G.".."..".R.,.. 99
99...... EINGABE DER DATEN............".
...ANZAHL DER GLEICHUNGEN:";N1...!..".."
.R.&.. N1.M1 . 540...0.. N1.2 . 9999...:
.N2.N1...D.. I.1 . N1...N.: .".....GLEIC
HUNG";I.(.X.: . J.1 . N1.;.B.: ..20)J;"
";.K.L.: . A(I,J).U.V.: . J.|...: ."
C ";Z(I)...... I....
........ GAUSS-JORDAN MATRIX-INVERSION U
ND LOESUNG.J.... VARIABLEN...... A
KOEFFIZIENTENMATRIX...... B HIL
FSARRAY.%.... B1 GROESSTER WERT.C.
... C1 LOESUNGSVEKTOR.`.... D3
DETERMINANTEE.}.... E1 FEHLERAN
ZEIGE...... H1 HILFSVARIABLE......
I2 HILFSMATRIX.P.... I3 ZEI
LENINDEX...... I4 SPALTENINDEX....
.. I5 ANZEIGE FUER INVERSES DRUCKE
N.;. .. N2 ANZAHL DR SPALTEN.H...
. N3 ANZAHL DER KONSTANTENVEKTOREN
...... P1 PIVOT-INDEX...... W
LOESUNGSMATRIX.A.... Z KONSTAN
TENVEKTOR.Z.... ENDE DER VARIABLEN...X..
.....E1.0:. WIRD 1 GESETZT,FALLS DIE MAT
RIX SINGULAER IST.F...I5.0:. FALLS 0,DRU
CKE DIE INVERSE MATRIX.O...N3.1:. ANZAHL
DER KONSTANTENVEKTOREN.{....I.1.N2.....
: .J.1.N2.....: B(I,J).A(I,J).....: .J.
..(.: W(I,1).Z(I).K.2.: I2(I,3).0.U.<.
: . I...F.: D3.1...P.: .I.1.N2...Z.: ..
).D.: . SUCHE NACH DEM GROESSTEN (PIVOT
-)ELEMENT.2.N.: ..>.X.: B1.0.M...: .J
.1.N2.G...: .(I2(J,3).1).5350.V...: .
K.1.N2... .: .(I2(K,3).1).6120.....:
.(I2(K,3).1).5340.H...: .(B1...(B(J,K
))).5340.U...: I3.J...H.: I4.K...R.:
B1..(B(J,K)).....: .K.....: .J.$...:
I2(I4,3).I2(I4,3).1.5...: I2(I,1).I3.F.
..: I2(I,2).I4.....: . ZEILENVERTAUSCHUN
G,UM DAS PIVOT-ELEMENT IN DIE DIAGONALE
ZU BRINGEN.....: .(I3.I4).5540...".: D3.
.D3.A.,.: .L.1.N2.S.6.: H1.B(I3,L)...@.
: B(I3,L).B(I4,L)...J.: B(I4,L).H1...T
.: .L...^.: .(N3.1).5540.&.H.: .L.1.N3.8
.R.: H1.W(I3,L).O.|.: W(I3,L).E(I4,L).
A...: W(I4,L).H1.J...: .L.....: . DIVIS
ION VON PIVOT-ZEILE DURCH PIVOT-ELEMENT.
....: P1.B(I4,I4).....: D3.D3.P1.Q...: B
(I4,I4).1...B.: .L.1.N2...L.: B(I4,L).B
(I4,L).P1...V.: .L.....: .(N3.1).5660.#.
..: .L.1.N3.=...: W(I4,L).W(I4,L).P1.F.
..: .L.N...: ..R...: . REDUZIERE NICHT-P
IVOT-ZEILE.....: .L1.1.N2...&.: .(L1.I4
).5770...0.: T.B(L1,I4)...:.: B(L1,I4)
.0.H.D.: .L.1.N2...N.: B(L1,L).B(L1,L).
B(I4,L).T...X.: .L...B.: .(N3.1).5770...
L.: .L.1.N3.4.V.: W(L1,L).W(L1,L).W(I4,
L).T.=...: .L.F...:.L1.M....I.S.....M...
. SPALTENVERTAUSCHUNG.S.........I.1.N2.
..F.: L.N2.I.1...P.: .(I2(L,1).I2(L,2)).
5920...Z.: I3.I2(L,1).N...: I4.I2(L,2)..
...: .K.1.N2.....: H1.B(K,I3).....: B(
K,I3).B(K,I4).....: B(K,I4).H1. ...: .K
.'. ..I.3.*..K.1.N2.L.4.: .(I2(K,3)..1).
6120.S.>..K.\.H.E1.0.H.R..I.1.N2.{.\.: C
1(I).W(I,1)...F..I...P..(I5.1).6140.....
."...........INVERSE MATRIX":..B....I.1.
N2.P...: .J.1.N2.....: ..11).(B(I,J).10
0..5).100;.....: .J.....: .......I...J..
".".3.T.."........DETERMINANTE=";D3.[...
.:. FALLS DIE INVERSE GEDRUCKT WIRD.D...
E1.1......:. ENDE DES GAUSS-JORDAN-UNTER
PROGRAMMS....'....0...T
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL