DETERMINANTEN
FILE INFORMATION
FILENAME(S): DETERMINANTEN
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-10-20 14:31:45
APPEARS ON: 3 disk(s)
FILE HASH
1cadef08774dfd6d83dcc5aa9127ecc0b50fff48eaecdc4e05beec9adc7242d3
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MULTISOFT | DETERMINANTEN | PRG | Treasure Chest - Klaus Der Suhler | 10 | 0 | DOWNLOAD FILE |
| MULTISOFT | DETERMINANTEN | PRG | Treasure Chest - Klaus Der Suhler | 10 | 0 | DOWNLOAD FILE |
| MATHE | DETERMINANTEN | PRG | Treasure Chest - Plattfuss | 10 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 23 08 0A 00 8F 2A 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 00 45 08 0B 00 8F 2A 2A 2A 2A 2A 2A 2A |***.E....*******|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 00 67 08 0C 00 8F 2A 2A 20 20 20 |*****.g....** |
00000050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000060: 20 20 20 20 20 2A 2A 00 89 08 14 00 8F 2A 2A 20 | **......** |
00000070: 20 50 52 4F 47 52 41 4D 4D 20 56 4F 4E 20 20 20 | PROGRAMM VON |
00000080: 20 20 20 20 20 20 20 2A 2A 00 AB 08 19 00 8F 2A | **......*|
00000090: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000000A0: 20 20 20 20 20 20 20 20 20 2A 2A 00 CD 08 1E 00 | **.....|
000000B0: 8F 2A 2A 20 20 57 4F 4C 46 47 41 4E 47 20 44 52 |.** WOLFGANG DR|
000000C0: 45 57 45 53 20 20 20 20 20 20 20 2A 2A 00 EF 08 |EWES **...|
000000D0: 23 00 8F 2A 2A 20 20 20 20 20 20 20 20 20 20 20 |#..** |
000000E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 2A 00 | **.|
000000F0: 11 09 28 00 8F 2A 2A 20 20 49 53 4F 4C 44 45 2D |..(..** ISOLDE-|
00000100: 4B 55 52 5A 2D 53 54 52 2E 31 35 32 20 20 20 2A |KURZ-STR.152 *|
00000110: 2A 00 33 09 2D 00 8F 2A 2A 20 20 20 20 20 20 20 |*.3.-..** |
00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000130: 20 2A 2A 00 55 09 32 00 8F 2A 2A 20 20 34 34 30 | **.U.2..** 440|
00000140: 30 20 4D 55 45 4E 53 54 45 52 20 20 20 20 20 20 |0 MUENSTER |
00000150: 20 20 20 2A 2A 00 77 09 37 00 8F 2A 2A 20 20 20 | **.w.7..** |
00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000170: 20 20 20 20 20 2A 2A 00 99 09 3C 00 8F 2A 2A 20 | **...<..** |
00000180: 20 41 55 47 55 53 54 20 31 39 38 34 20 20 20 20 | AUGUST 1984 |
00000190: 20 20 20 20 20 20 20 2A 2A 00 BB 09 41 00 8F 2A | **...A..*|
000001A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
000001B0: 20 20 20 20 20 20 20 20 20 2A 2A 00 DD 09 46 00 | **...F.|
000001C0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
000001D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FF 09 |*************...|
000001E0: 4B 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |K..*************|
000001F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000200: 1F 0A 64 00 86 41 28 32 30 2C 32 30 29 2C 42 28 |..d..A(20,20),B(|
00000210: 32 30 2C 32 30 29 2C 43 28 32 30 2C 32 30 29 00 |20,20),C(20,20).|
00000220: 30 0A 6E 00 86 58 28 32 30 29 2C 44 28 32 30 29 |0.n..X(20),D(20)|
00000230: 00 57 0A C8 00 99 22 93 11 11 44 49 45 53 45 53 |.W...."...DIESES|
00000240: 20 50 52 4F 47 52 41 4D 4D 20 45 52 4D 4F 45 47 | PROGRAMM ERMOEG|
00000250: 4C 49 43 48 54 3A 22 00 81 0A D2 00 99 22 11 11 |LICHT:"......"..|
00000260: 44 45 54 45 52 4D 49 4E 41 4E 54 45 4E 42 45 52 |DETERMINANTENBER|
00000270: 45 43 48 4E 55 4E 47 20 20 20 20 20 20 5B 31 5D |ECHNUNG [1]|
00000280: 22 00 AB 0A DC 00 99 22 11 11 4D 41 54 52 49 5A |"......"..MATRIZ|
00000290: 45 4E 4D 55 4C 54 49 50 4C 49 4B 41 54 49 4F 4E |ENMULTIPLIKATION|
000002A0: 20 20 20 20 20 20 20 5B 32 5D 22 00 D5 0A E6 00 | [2]".....|
000002B0: 99 22 11 11 47 4C 45 49 43 48 55 4E 47 53 53 59 |."..GLEICHUNGSSY|
000002C0: 53 54 45 4D 20 4C 4F 45 53 45 4E 20 20 20 20 20 |STEM LOESEN |
000002D0: 20 5B 33 5D 22 00 FE 0A F0 00 99 22 11 11 45 4E | [3]"......"..EN|
000002E0: 44 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |DE |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 5B 34 5D 00 22 | [4]."|
00000300: 0B F5 00 99 22 11 11 11 42 49 54 54 45 20 57 41 |...."...BITTE WA|
00000310: 45 48 4C 45 4E 20 53 49 45 20 31 2F 32 2F 33 2F |EHLEN SIE 1/2/3/|
00000320: 34 22 00 3B 0B FA 00 41 24 B2 22 22 3A A1 41 24 |4".;...A$."":.A$|
00000330: 3A 8B 41 24 B2 22 22 A7 32 35 30 00 4D 0B 04 01 |:.A$."".250.M...|
00000340: 8B 41 24 B2 22 31 22 A7 8D 31 30 30 30 00 5F 0B |.A$."1"..1000._.|
00000350: 0E 01 8B 41 24 B2 22 32 22 A7 8D 32 30 30 30 00 |...A$."2"..2000.|
00000360: 71 0B 18 01 8B 41 24 B2 22 33 22 A7 8D 33 30 30 |q....A$."3"..300|
00000370: 30 00 7F 0B 1D 01 8B 41 24 B2 22 34 22 A7 80 00 |0......A$."4"...|
00000380: 89 0B 22 01 89 20 32 30 30 00 CA 0B E8 03 99 22 |..".. 200......"|
00000390: 93 11 11 44 49 45 53 45 53 20 55 4E 54 45 52 50 |...DIESES UNTERP|
000003A0: 52 4F 47 52 41 4D 4D 20 42 45 53 54 49 4D 4D 54 |ROGRAMM BESTIMMT|
000003B0: 20 20 20 20 20 11 20 20 20 20 20 20 44 45 54 45 | . DETE|
000003C0: 52 4D 49 4E 41 4E 54 45 4E 22 00 F3 0B F2 03 99 |RMINANTEN"......|
000003D0: 22 11 42 49 53 20 5A 55 20 45 49 4E 45 52 20 47 |".BIS ZU EINER G|
000003E0: 52 4F 45 53 53 45 20 56 4F 4E 20 32 30 20 2A 20 |ROESSE VON 20 * |
000003F0: 32 30 22 00 3E 0C FC 03 99 22 11 11 11 11 42 49 |20".>...."....BI|
00000400: 54 54 45 20 47 45 42 45 4E 20 53 49 45 20 44 49 |TTE GEBEN SIE DI|
00000410: 45 20 44 49 4D 45 4E 53 49 4F 4E 20 20 20 20 20 |E DIMENSION |
00000420: 20 20 20 20 20 20 11 44 45 52 20 4D 41 54 52 49 | .DER MATRI|
00000430: 58 20 41 4E 20 28 32 2D 32 30 29 2E 91 22 00 6C |X AN (2-20)..".l|
00000440: 0C 06 04 85 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00000450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4E 20 3A 8B 4E |.........";N :.N|
00000460: B3 32 B0 4E B1 32 30 A7 31 30 30 30 00 83 0C 10 |.2.N.20.1000....|
00000470: 04 8F 20 45 49 4E 47 41 42 45 20 4D 41 54 52 49 |.. EINGABE MATRI|
00000480: 58 20 41 00 A5 0C 1A 04 8F 20 45 49 4E 47 41 42 |X A...... EINGAB|
00000490: 45 20 45 52 46 4F 4C 47 54 20 5A 45 49 4C 45 4E |E ERFOLGT ZEILEN|
000004A0: 57 45 49 53 45 00 B5 0C 24 04 81 20 49 20 B2 20 |WEISE...$.. I . |
000004B0: 31 20 A4 20 4E 00 BE 0C 2E 04 99 22 93 22 00 CE |1 . N......"."..|
000004C0: 0C 38 04 81 20 4B 20 B2 20 31 20 A4 20 4E 00 EB |.8.. K . 1 . N..|
000004D0: 0C 42 04 99 22 41 28 22 49 22 2C 22 4B 22 29 3D |.B.."A("I","K")=|
000004E0: 3F 22 3A 85 20 41 28 49 2C 4B 29 00 F3 0C 4C 04 |?":. A(I,K)...L.|
000004F0: 82 20 4B 00 08 0D 56 04 99 22 93 22 3A 81 20 4D |. K...V..".":. M|
00000500: 20 B2 20 31 20 A4 20 4E 00 27 0D 60 04 99 22 41 | . 1 . N.'.`.."A|
00000510: 28 22 49 22 2C 22 4D 22 29 3D 22 2C 20 41 28 49 |("I","M")=", A(I|
00000520: 2C 4D 29 3A 82 20 4D 00 68 0D 6A 04 5A 24 B2 22 |,M):. M.h.j.Z$."|
00000530: 22 3A 99 22 41 4C 4C 45 20 57 45 52 54 45 20 4F |":."ALLE WERTE O|
00000540: 4B 20 28 4A 2F 4E 29 20 20 20 4A 22 3A 20 85 22 |K (J/N) J": ."|
00000550: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000560: 9D 9D 9D 9D 22 3B 5A 24 00 7E 0D 74 04 8B 20 5A |....";Z$.~.t.. Z|
00000570: 24 20 B2 20 22 4A 22 20 A7 20 31 32 30 30 00 95 |$ . "J" . 1200..|
00000580: 0D 7E 04 8B 20 5A 24 20 B3 B1 20 22 4E 22 20 A7 |.~.. Z$ .. "N" .|
00000590: 20 31 31 31 30 00 B9 0D 88 04 99 22 12 57 45 4C | 1110......".WEL|
000005A0: 43 48 45 53 20 41 28 49 2C 4B 29 20 49 53 54 20 |CHES A(I,K) IST |
000005B0: 46 41 4C 53 43 48 3F 92 22 00 C8 0D 92 04 85 20 |FALSCH?."...... |
000005C0: 22 4B 20 3D 20 22 3B 52 00 E4 0D 9C 04 99 22 41 |"K = ";R......"A|
000005D0: 28 22 49 22 2C 22 52 22 29 3D 22 3A 85 20 41 28 |("I","R")=":. A(|
000005E0: 49 2C 52 29 00 EF 0D A6 04 89 20 31 31 31 30 00 |I,R)...... 1110.|
000005F0: F7 0D B0 04 82 20 49 00 06 0E BA 04 49 B2 31 3A |..... I.....I.1:|
00000600: 44 45 54 B2 31 2E 00 0E 0E C4 04 4B B2 49 00 1E |DET.1......K.I..|
00000610: 0E CE 04 8B 4A B3 B2 4E A7 89 31 32 35 30 00 2D |....J..N..1250.-|
00000620: 0E D8 04 8B 4A B1 4E A7 89 31 33 31 30 00 3B 0E |....J.N..1310.;.|
00000630: E2 04 41 4B B2 41 28 4B 2C 49 29 00 4C 0E EC 04 |..AK.A(K,I).L...|
00000640: 8B 41 4B B3 30 A7 41 4B B2 AB 41 4B 00 5A 0E F6 |.AK.0.AK..AK.Z..|
00000650: 04 41 4A B2 41 28 4A 2C 49 29 00 6B 0E 00 05 8B |.AJ.A(J,I).k....|
00000660: 41 4A B3 30 A7 41 4A B2 AB 41 4A 00 7A 0E 0A 05 |AJ.0.AJ..AJ.z...|
00000670: 8B 41 4A B1 41 4B A7 4B B2 4A 00 84 0E 14 05 4A |.AJ.AK.K.J.....J|
00000680: B2 4A AA 31 00 94 0E 1E 05 8B 49 B1 B2 4B A7 89 |.J.1......I..K..|
00000690: 31 33 39 30 00 9C 0E 28 05 4A B2 49 00 A9 0E 32 |1390...(.J.I...2|
000006A0: 05 48 B2 41 28 49 2C 4A 29 00 BB 0E 3C 05 41 28 |.H.A(I,J)...<.A(|
000006B0: 49 2C 4A 29 B2 41 28 4B 2C 4A 29 00 C8 0E 46 05 |I,J).A(K,J)...F.|
000006C0: 41 28 4B 2C 4A 29 B2 48 00 D2 0E 50 05 4A B2 4A |A(K,J).H...P.J.J|
000006D0: AA 31 00 E2 0E 5A 05 8B 4A B3 B2 4E A7 89 31 33 |.1...Z..J..N..13|
000006E0: 33 30 00 EF 0E 64 05 44 45 54 B2 AB 44 45 54 00 |30...d.DET..DET.|
000006F0: FC 0E 6E 05 48 B2 41 28 49 2C 49 29 00 0A 0F 78 |..n.H.A(I,I)...x|
00000700: 05 8B 48 B3 30 A7 48 B2 AB 48 00 27 0F 82 05 8F |..H.0.H..H.'....|
00000710: 20 49 46 48 3E 3D 31 30 5E 2D 35 54 48 45 4E 47 | IFH>=10^-5THENG|
00000720: 4F 54 4F 31 34 35 30 00 33 0F 8C 05 8F 44 45 54 |OTO1450.3....DET|
00000730: 3D 30 2E 00 70 0F 96 05 8F 50 52 49 4E 54 22 93 |=0..p....PRINT".|
00000740: 11 11 11 44 49 45 20 44 45 54 45 52 4D 49 4E 41 |...DIE DETERMINA|
00000750: 4E 54 45 20 42 45 54 52 41 45 47 54 3A 22 3A 50 |NTE BETRAEGT:":P|
00000760: 52 49 4E 54 22 11 11 11 11 11 11 11 22 44 45 54 |RINT"......."DET|
00000770: 00 7A 0F A0 05 8F 20 45 4E 44 00 84 0F AA 05 4A |.z.... END.....J|
00000780: B2 4A AA 31 00 93 0F B4 05 8B 4A B1 4E A7 89 31 |.J.1......J.N..1|
00000790: 35 35 30 00 9D 0F BE 05 4B B2 49 AA 31 00 C4 0F |550.....K.I.1...|
000007A0: C8 05 41 28 4A 2C 4B 29 B2 41 28 4A 2C 4B 29 AB |..A(J,K).A(J,K).|
000007B0: 41 28 49 2C 4B 29 AD 41 28 49 2C 49 29 AC 41 28 |A(I,K).A(I,I).A(|
000007C0: 4A 2C 49 29 00 CE 0F D2 05 4B B2 4B AA 31 00 DE |J,I).....K.K.1..|
000007D0: 0F DC 05 8B 4B B3 B2 4E A7 89 31 34 38 30 00 E8 |....K..N..1480..|
000007E0: 0F E6 05 4A B2 4A AA 31 00 F8 0F F0 05 8B 4A B3 |...J.J.1......J.|
000007F0: B2 4E A7 89 31 34 37 30 00 02 10 FA 05 49 B2 49 |.N..1470.....I.I|
00000800: AA 31 00 12 10 04 06 8B 49 B3 B2 4E A7 89 31 32 |.1......I..N..12|
00000810: 32 30 00 1A 10 0E 06 49 B2 31 00 2D 10 18 06 44 |20.....I.1.-...D|
00000820: 45 54 B2 44 45 54 AC 41 28 49 2C 49 29 00 37 10 |ET.DET.A(I,I).7.|
00000830: 22 06 49 B2 49 AA 31 00 47 10 2C 06 8B 49 B3 B2 |".I.I.1.G.,..I..|
00000840: 4E A7 89 31 35 36 30 00 77 10 36 06 99 22 93 11 |N..1560.w.6.."..|
00000850: 11 11 44 49 45 20 44 45 54 45 52 4D 49 4E 41 4E |..DIE DETERMINAN|
00000860: 54 45 20 42 45 54 52 41 45 47 54 3A 22 3A 99 22 |TE BETRAEGT:":."|
00000870: 11 11 11 22 44 45 54 00 AA 10 40 06 97 31 39 38 |..."DET...@..198|
00000880: 2C 30 3A 99 22 57 45 49 54 45 52 20 4D 49 54 20 |,0:."WEITER MIT |
00000890: 45 49 4E 45 52 20 54 41 53 54 45 22 3A 92 31 39 |EINER TASTE":.19|
000008A0: 38 2C 31 3A 97 31 39 38 2C 30 00 B0 10 A4 06 8E |8,1:.198,0......|
000008B0: 00 F8 10 D0 07 99 22 93 11 44 49 45 53 45 53 20 |......"..DIESES |
000008C0: 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 45 52 |UNTERPROGRAMM ER|
000008D0: 4D 4F 45 47 4C 49 43 48 54 20 20 20 20 20 20 20 |MOEGLICHT |
000008E0: 20 44 49 45 20 4D 55 4C 54 49 50 4C 49 4B 41 54 | DIE MULTIPLIKAT|
000008F0: 49 4F 4E 20 56 4F 4E 22 00 0E 11 DA 07 99 22 5A |ION VON"......"Z|
00000900: 57 45 49 20 4D 41 54 52 49 5A 45 4E 2E 22 00 26 |WEI MATRIZEN.".&|
00000910: 11 E4 07 99 22 11 11 43 20 3D 20 41 20 2A 20 42 |...."..C = A * B|
00000920: 20 11 11 20 20 22 00 64 11 EE 07 85 22 11 5A 41 | .. ".d....".ZA|
00000930: 48 4C 20 44 45 52 20 5A 45 49 4C 45 4E 20 44 45 |HL DER ZEILEN DE|
00000940: 52 20 4D 41 54 52 49 58 20 41 20 28 3C 20 32 30 |R MATRIX A (< 20|
00000950: 29 20 22 3B 4E 3A 8B 4E B3 31 B0 4E B1 32 30 A7 |) ";N:.N.1.N.20.|
00000960: 32 30 33 30 00 A2 11 F8 07 85 22 11 5A 41 48 4C |2030......".ZAHL|
00000970: 20 44 45 52 20 53 50 41 4C 54 45 4E 20 44 45 52 | DER SPALTEN DER|
00000980: 20 4D 41 54 52 49 58 20 41 20 28 3C 20 32 30 29 | MATRIX A (< 20)|
00000990: 22 3B 4D 3A 8B 4D B3 31 B0 4D B1 32 30 A7 32 30 |";M:.M.1.M.20.20|
000009A0: 34 30 00 D1 11 02 08 99 22 11 11 44 49 45 20 4D |40......"..DIE M|
000009B0: 41 54 52 49 58 20 42 20 4D 55 53 53 22 4D 22 5A |ATRIX B MUSS"M"Z|
000009C0: 45 49 4C 45 4E 20 45 4E 54 48 41 4C 54 45 4E 2E |EILEN ENTHALTEN.|
000009D0: 22 00 10 12 0C 08 85 22 11 5A 41 48 4C 20 44 45 |"......".ZAHL DE|
000009E0: 52 20 53 50 41 4C 54 45 4E 20 44 45 52 20 4D 41 |R SPALTEN DER MA|
000009F0: 54 52 49 58 20 42 20 28 3C 20 32 30 29 22 3B 4C |TRIX B (< 20)";L|
00000A00: 3A 8B 4C B3 31 B0 4C B1 32 30 20 A7 32 30 36 30 |:.L.1.L.20 .2060|
00000A10: 00 27 12 16 08 8F 20 45 49 4E 47 41 42 45 20 4D |.'.... EINGABE M|
00000A20: 41 54 52 49 58 20 41 00 49 12 20 08 8F 20 45 49 |ATRIX A.I. .. EI|
00000A30: 4E 47 41 42 45 20 45 52 46 4F 4C 47 54 20 5A 45 |NGABE ERFOLGT ZE|
00000A40: 49 4C 45 4E 57 45 49 53 45 00 59 12 2A 08 81 20 |ILENWEISE.Y.*.. |
00000A50: 49 20 B2 20 31 20 A4 20 4E 00 62 12 34 08 99 22 |I . 1 . N.b.4.."|
00000A60: 93 22 00 72 12 3E 08 81 20 4B 20 B2 20 31 20 A4 |.".r.>.. K . 1 .|
00000A70: 20 4D 00 8F 12 48 08 99 22 41 28 22 49 22 2C 22 | M...H.."A("I","|
00000A80: 4B 22 29 3D 3F 22 3A 85 20 41 28 49 2C 4B 29 00 |K")=?":. A(I,K).|
00000A90: 97 12 52 08 82 20 4B 00 AC 12 5C 08 99 22 93 22 |..R.. K...\.."."|
00000AA0: 3A 81 20 4A 20 B2 20 31 20 A4 20 4D 00 CB 12 66 |:. J . 1 . M...f|
00000AB0: 08 99 22 41 28 22 49 22 2C 22 4A 22 29 3D 22 2C |.."A("I","J")=",|
00000AC0: 20 41 28 49 2C 4A 29 3A 82 20 4A 00 FC 12 70 08 | A(I,J):. J...p.|
00000AD0: 5A 24 B2 22 22 3A 99 22 41 4C 4C 45 20 57 45 52 |Z$."":."ALLE WER|
00000AE0: 54 45 20 4F 4B 20 28 4A 2F 4E 29 20 22 3A 99 22 |TE OK (J/N) ":."|
00000AF0: 20 20 4A 22 3A 85 22 91 22 3B 5A 24 00 12 13 7A | J":.".";Z$...z|
00000B00: 08 8B 20 5A 24 20 B2 20 22 4A 22 20 A7 20 32 32 |.. Z$ . "J" . 22|
00000B10: 33 30 00 29 13 84 08 8B 20 5A 24 20 B3 B1 20 22 |30.).... Z$ .. "|
00000B20: 4E 22 20 A7 20 32 31 34 30 00 4D 13 8E 08 99 22 |N" . 2140.M...."|
00000B30: 12 57 45 4C 43 48 45 53 20 41 28 49 2C 4B 29 20 |.WELCHES A(I,K) |
00000B40: 49 53 54 20 46 41 4C 53 43 48 3F 92 22 00 5C 13 |IST FALSCH?.".\.|
00000B50: 98 08 85 20 22 4B 20 3D 20 22 3B 52 00 78 13 A2 |... "K = ";R.x..|
00000B60: 08 99 22 41 28 22 49 22 2C 22 52 22 29 3D 22 3A |.."A("I","R")=":|
00000B70: 85 20 41 28 49 2C 52 29 00 83 13 AC 08 89 20 32 |. A(I,R)...... 2|
00000B80: 31 34 30 00 8B 13 B6 08 82 20 49 00 A2 13 C0 08 |140...... I.....|
00000B90: 8F 20 45 49 4E 47 41 42 45 20 4D 41 54 52 49 58 |. EINGABE MATRIX|
00000BA0: 20 42 00 C4 13 CA 08 8F 20 45 49 4E 47 41 42 45 | B...... EINGABE|
00000BB0: 20 45 52 46 4F 4C 47 54 20 5A 45 49 4C 45 4E 57 | ERFOLGT ZEILENW|
00000BC0: 45 49 53 45 00 D4 13 D4 08 81 20 49 20 B2 20 31 |EISE...... I . 1|
00000BD0: 20 A4 20 4D 00 DD 13 DE 08 99 22 93 22 00 ED 13 | . M......"."...|
00000BE0: E8 08 81 20 4B 20 B2 20 31 20 A4 20 4C 00 0A 14 |... K . 1 . L...|
00000BF0: F2 08 99 22 42 28 22 49 22 2C 22 4B 22 29 3D 3F |..."B("I","K")=?|
00000C00: 22 3A 85 20 42 28 49 2C 4B 29 00 12 14 FC 08 82 |":. B(I,K)......|
00000C10: 20 4B 00 27 14 06 09 99 22 93 22 3A 81 20 4A 20 | K.'....".":. J |
00000C20: B2 20 31 20 A4 20 4C 00 46 14 10 09 99 22 42 28 |. 1 . L.F...."B(|
00000C30: 22 49 22 2C 22 4A 22 29 3D 22 2C 20 42 28 49 2C |"I","J")=", B(I,|
00000C40: 4A 29 3A 82 20 4A 00 77 14 1A 09 5A 24 B2 22 22 |J):. J.w...Z$.""|
00000C50: 3A 99 22 41 4C 4C 45 20 57 45 52 54 45 20 4F 4B |:."ALLE WERTE OK|
00000C60: 20 28 4A 2F 4E 29 20 22 3A 99 22 20 20 4A 22 3A | (J/N) ":." J":|
00000C70: 85 22 91 22 3B 5A 24 00 8D 14 24 09 8B 20 5A 24 |.".";Z$...$.. Z$|
00000C80: 20 B2 20 22 4A 22 20 A7 20 32 34 30 30 00 A4 14 | . "J" . 2400...|
00000C90: 2E 09 8B 20 5A 24 20 B3 B1 20 22 4E 22 20 A7 20 |... Z$ .. "N" . |
00000CA0: 32 33 31 30 00 C8 14 38 09 99 22 12 57 45 4C 43 |2310...8..".WELC|
00000CB0: 48 45 53 20 42 28 49 2C 4B 29 20 49 53 54 20 46 |HES B(I,K) IST F|
00000CC0: 41 4C 53 43 48 3F 92 22 00 D7 14 42 09 85 20 22 |ALSCH?."...B.. "|
00000CD0: 4B 20 3D 20 22 3B 52 00 F3 14 4C 09 99 22 42 28 |K = ";R...L.."B(|
00000CE0: 22 49 22 2C 22 52 22 29 3D 22 3A 85 20 42 28 49 |"I","R")=":. B(I|
00000CF0: 2C 52 29 00 FE 14 56 09 89 20 32 33 31 30 00 06 |,R)...V.. 2310..|
00000D00: 15 60 09 82 20 49 00 11 15 6A 09 81 49 B2 31 A4 |.`.. I...j..I.1.|
00000D10: 4E 00 1C 15 74 09 81 4A B2 31 A4 4C 00 25 15 7E |N...t..J.1.L.%.~|
00000D20: 09 53 55 B2 30 00 47 15 88 09 81 4B B2 31 A4 4D |.SU.0.G....K.1.M|
00000D30: 3A 53 55 B2 53 55 AA 41 28 49 2C 4B 29 AC 42 28 |:SU.SU.A(I,K).B(|
00000D40: 4B 2C 4A 29 3A 82 4B 00 55 15 92 09 43 28 49 2C |K,J):.K.U...C(I,|
00000D50: 4A 29 B2 53 55 00 5F 15 9C 09 82 4A 3A 82 49 00 |J).SU._....J:.I.|
00000D60: 8E 15 A6 09 99 22 93 11 11 44 49 45 20 45 52 47 |....."...DIE ERG|
00000D70: 45 42 4E 49 53 4D 41 54 52 49 58 20 45 4E 54 48 |EBNISMATRIX ENTH|
00000D80: 41 45 4C 54 22 4E 22 5A 45 49 4C 45 4E 22 00 A4 |AELT"N"ZEILEN"..|
00000D90: 15 B0 09 99 22 55 4E 44 22 4C 22 53 50 41 4C 54 |...."UND"L"SPALT|
00000DA0: 45 4E 2E 22 00 CD 15 BA 09 99 22 11 44 49 45 20 |EN."......".DIE |
00000DB0: 41 55 53 47 41 42 45 20 45 52 46 4F 4C 47 54 20 |AUSGABE ERFOLGT |
00000DC0: 5A 45 49 4C 45 4E 57 45 49 53 45 2E 22 00 DF 15 |ZEILENWEISE."...|
00000DD0: C4 09 81 49 B2 31 A4 4E 3A 81 4A B2 31 A4 4C 00 |...I.1.N:.J.1.L.|
00000DE0: F8 15 CE 09 99 22 43 28 22 49 22 2C 22 4A 22 29 |....."C("I","J")|
00000DF0: 3D 22 43 28 49 2C 4A 29 00 FF 15 D8 09 82 4A 00 |="C(I,J)......J.|
00000E00: 34 16 E2 09 97 31 39 38 2C 30 3A 99 22 11 57 45 |4....198,0:.".WE|
00000E10: 49 54 45 52 20 4D 49 54 20 45 49 4E 45 52 20 54 |ITER MIT EINER T|
00000E20: 41 53 54 45 2E 22 3A 92 31 39 38 2C 31 3A 97 31 |ASTE.":.198,1:.1|
00000E30: 39 38 2C 30 00 3B 16 EC 09 82 49 00 65 16 F6 09 |98,0.;....I.e...|
00000E40: 41 24 B2 22 22 3A 85 22 41 55 53 47 41 42 45 20 |A$."":."AUSGABE |
00000E50: 57 49 45 44 45 52 48 4F 4C 45 4E 20 28 4A 2F 4E |WIEDERHOLEN (J/N|
00000E60: 29 22 3B 41 24 00 76 16 00 0A 8B 41 24 B2 22 4A |)";A$.v....A$."J|
00000E70: 22 A7 32 35 30 30 00 88 16 0A 0A 8B 41 24 B3 B1 |".2500......A$..|
00000E80: 22 4E 22 A7 32 35 35 30 00 BB 16 14 0A 97 31 39 |"N".2550......19|
00000E90: 38 2C 30 3A 99 22 57 45 49 54 45 52 20 4D 49 54 |8,0:."WEITER MIT|
00000EA0: 20 45 49 4E 45 52 20 54 41 53 54 45 22 3A 92 31 | EINER TASTE":.1|
00000EB0: 39 38 2C 31 3A 97 31 39 38 2C 30 00 C1 16 28 0A |98,1:.198,0...(.|
00000EC0: 8E 00 E6 16 B8 0B 8F 20 4C 4F 45 53 55 4E 47 20 |....... LOESUNG |
00000ED0: 56 4F 4E 20 47 4C 45 49 43 48 55 4E 47 53 53 59 |VON GLEICHUNGSSY|
00000EE0: 53 54 45 4D 45 4E 00 0C 17 C2 0B 8F 20 4E 20 47 |STEMEN...... N G|
00000EF0: 4C 45 49 43 48 55 4E 47 45 4E 20 4D 49 54 20 4E |LEICHUNGEN MIT N|
00000F00: 20 55 4E 42 45 4B 41 4E 4E 54 45 4E 00 1D 17 CC | UNBEKANNTEN....|
00000F10: 0B 99 22 93 22 3A 99 3A 99 3A 99 3A 99 00 45 17 |..".":.:.:.:..E.|
00000F20: D6 0B 99 22 44 49 45 53 45 53 20 55 4E 54 45 52 |..."DIESES UNTER|
00000F30: 52 4F 47 52 41 4D 4D 20 42 45 53 54 49 4D 4D 54 |ROGRAMM BESTIMMT|
00000F40: 20 22 3A 99 3A 00 73 17 E0 0B 99 22 44 49 45 20 | ":.:.s...."DIE |
00000F50: 4C 4F 45 53 55 4E 47 20 45 49 4E 45 53 20 47 4C |LOESUNG EINES GL|
00000F60: 45 49 43 48 55 4E 47 53 53 59 53 54 45 4D 45 53 |EICHUNGSSYSTEMES|
00000F70: 22 3A 99 00 9E 17 EA 0B 99 22 56 4F 4E 20 4E 20 |":......."VON N |
00000F80: 47 4C 45 49 43 48 55 4E 47 45 4E 20 4D 49 54 20 |GLEICHUNGEN MIT |
00000F90: 4E 20 55 4E 42 45 4B 41 4E 4E 54 45 4E 22 00 BF |N UNBEKANNTEN"..|
00000FA0: 17 EF 0B 99 22 11 11 4D 41 54 52 49 58 20 41 20 |...."..MATRIX A |
00000FB0: 2A 20 58 20 3D 20 56 45 4B 54 4F 52 20 44 22 00 |* X = VEKTOR D".|
00000FC0: F5 17 F4 0B 97 31 39 38 2C 30 3A 99 22 11 11 57 |.....198,0:."..W|
00000FD0: 45 49 54 45 52 20 4D 49 54 20 45 49 4E 45 52 20 |EITER MIT EINER |
00000FE0: 54 41 53 54 45 22 3A 92 20 31 39 38 2C 31 3A 97 |TASTE":. 198,1:.|
00000FF0: 31 39 38 2C 30 00 3C 18 08 0C 99 20 22 93 11 11 |198,0.<.... "...|
00001000: 11 57 49 45 56 49 45 4C 45 20 47 4C 45 49 43 48 |.WIEVIELE GLEICH|
00001010: 55 4E 47 45 4E 20 53 4F 4C 4C 45 4E 22 3A 99 20 |UNGEN SOLLEN":. |
00001020: 22 47 4C 45 49 43 48 5A 45 49 54 49 47 20 45 52 |"GLEICHZEITIG ER|
00001030: 46 55 45 4C 4C 54 20 53 45 49 4E 22 00 44 18 12 |FUELLT SEIN".D..|
00001040: 0C 85 20 4E 00 59 18 1C 0C 8B 28 4E B3 32 B0 4E |.. N.Y....(N.2.N|
00001050: B1 32 30 29 A7 33 30 38 30 00 69 18 26 0C 81 20 |.20).3080.i.&.. |
00001060: 49 20 B2 20 31 20 A4 20 4E 00 72 18 30 0C 99 22 |I . 1 . N.r.0.."|
00001070: 93 22 00 82 18 3A 0C 81 20 4B 20 B2 20 31 20 A4 |."...:.. K . 1 .|
00001080: 20 4E 00 9E 18 44 0C 99 22 41 28 22 49 22 2C 22 | N...D.."A("I","|
00001090: 4B 22 29 3D 22 3A 85 20 41 28 49 2C 4B 29 00 A6 |K")=":. A(I,K)..|
000010A0: 18 4E 0C 82 20 4B 00 BB 18 58 0C 99 22 93 22 3A |.N.. K...X..".":|
000010B0: 81 20 4D 20 B2 20 31 20 A4 20 4E 00 DA 18 62 0C |. M . 1 . N...b.|
000010C0: 99 22 41 28 22 49 22 2C 22 4D 22 29 3D 22 2C 20 |."A("I","M")=", |
000010D0: 41 28 49 2C 4D 29 3A 82 20 4D 00 09 19 6C 0C 5A |A(I,M):. M...l.Z|
000010E0: 24 B2 22 22 3A 99 22 41 4C 4C 45 20 57 45 52 54 |$."":."ALLE WERT|
000010F0: 45 20 4F 4B 20 28 4A 2F 4E 29 20 22 3A 85 22 20 |E OK (J/N) ":." |
00001100: 20 4A 9D 9D 9D 22 3B 5A 24 00 1F 19 76 0C 8B 20 | J...";Z$...v.. |
00001110: 5A 24 20 B2 20 22 4A 22 20 A7 20 33 32 35 30 00 |Z$ . "J" . 3250.|
00001120: 36 19 80 0C 8B 20 5A 24 20 B3 B1 20 22 4E 22 20 |6.... Z$ .. "N" |
00001130: A7 20 33 31 36 30 00 58 19 8A 0C 99 22 57 45 4C |. 3160.X...."WEL|
00001140: 43 48 45 53 20 41 28 49 2C 4B 29 20 49 53 54 20 |CHES A(I,K) IST |
00001150: 46 41 4C 53 43 48 3F 22 00 75 19 94 0C 85 20 22 |FALSCH?".u.... "|
00001160: 4B 20 3D 20 22 3B 52 3A 8B 52 B1 4E B0 52 B3 31 |K = ";R:.R.N.R.1|
00001170: A7 33 31 36 30 00 91 19 9E 0C 99 22 41 28 22 49 |.3160......"A("I|
00001180: 22 2C 22 52 22 29 3D 22 3A 85 20 41 28 49 2C 52 |","R")=":. A(I,R|
00001190: 29 00 9C 19 A8 0C 89 20 33 31 36 30 00 A4 19 B2 |)...... 3160....|
000011A0: 0C 82 20 49 00 CF 19 BC 0C 99 22 93 22 3A 81 20 |.. I......".":. |
000011B0: 49 20 B2 20 31 20 A4 20 4E 3A 99 22 44 28 22 49 |I . 1 . N:."D("I|
000011C0: 22 29 3D 20 22 3A 85 20 44 28 49 29 3A 82 49 00 |")= ":. D(I):.I.|
000011D0: F8 19 C6 0C 99 22 93 22 3A 81 20 49 20 B2 20 31 |.....".":. I . 1|
000011E0: 20 A4 20 4E 3A 99 22 44 28 22 49 22 29 3D 20 22 | . N:."D("I")= "|
000011F0: 3B 44 28 49 29 3A 82 49 00 26 1A D0 0C 5A 24 B2 |;D(I):.I.&...Z$.|
00001200: 22 22 3A 99 22 41 4C 4C 45 20 57 45 52 54 45 20 |"":."ALLE WERTE |
00001210: 4F 4B 20 28 4A 2F 4E 29 22 3A 85 22 20 20 4A 9D |OK (J/N)":." J.|
00001220: 9D 9D 22 3B 5A 24 00 3C 1A DA 0C 8B 20 5A 24 20 |..";Z$.<.... Z$ |
00001230: B2 20 22 4A 22 20 A7 20 33 33 35 30 00 53 1A E4 |. "J" . 3350.S..|
00001240: 0C 8B 20 5A 24 20 B3 B1 20 22 4E 22 20 A7 20 33 |.. Z$ .. "N" . 3|
00001250: 32 37 30 00 76 1A EE 0C 99 22 11 11 57 45 4C 43 |270.v...."..WELC|
00001260: 48 45 53 20 44 28 49 29 20 49 53 54 20 46 41 4C |HES D(I) IST FAL|
00001270: 53 43 48 3F 20 22 00 90 1A F8 0C 85 20 22 49 22 |SCH? "...... "I"|
00001280: 3B 49 3A 8B 49 B1 4E B0 49 B3 31 A7 33 32 37 30 |;I:.I.N.I.1.3270|
00001290: 00 A4 1A 02 0D 99 22 11 11 11 44 28 22 49 22 29 |......"...D("I")|
000012A0: 3D 20 3F 22 00 B5 1A 0C 0D 85 20 44 28 49 29 3A |= ?"...... D(I):|
000012B0: 89 33 32 37 30 00 C0 1A 16 0D 8D 20 33 34 32 30 |.3270...... 3420|
000012C0: 00 D3 1A 20 0D 8B 20 56 20 B2 20 31 20 A7 20 33 |... .. V . 1 . 3|
000012D0: 34 31 30 00 E8 1A 2A 0D 99 22 93 22 3A 99 22 11 |410...*..".":.".|
000012E0: 11 11 11 11 11 11 11 22 00 14 1B 34 0D 99 22 12 |......."...4..".|
000012F0: 44 45 52 20 4C 4F 45 53 55 4E 47 53 56 45 4B 54 |DER LOESUNGSVEKT|
00001300: 4F 52 20 48 41 54 20 44 49 45 20 57 45 52 54 45 |OR HAT DIE WERTE|
00001310: 92 22 3A 99 00 24 1B 3E 0D 81 20 4B 20 B2 20 31 |.":..$.>.. K . 1|
00001320: 20 A4 20 4E 00 3D 1B 48 0D 99 22 58 28 22 4B 22 | . N.=.H.."X("K"|
00001330: 29 3D 20 22 3B 58 28 4B 29 3A 82 20 4B 00 70 1B |)= ";X(K):. K.p.|
00001340: 52 0D 97 31 39 38 2C 30 3A 99 22 57 45 49 54 45 |R..198,0:."WEITE|
00001350: 52 20 4D 49 54 20 45 49 4E 45 52 20 54 41 53 54 |R MIT EINER TAST|
00001360: 45 22 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 |E":.198,1:.198,0|
00001370: 00 76 1B 57 0D 8E 00 8D 1B 5C 0D 8F 20 53 55 42 |.v.W.....\.. SUB|
00001380: 52 4F 55 54 49 4E 45 20 47 41 55 53 53 00 AE 1B |ROUTINE GAUSS...|
00001390: 66 0D 81 20 49 20 B2 20 31 20 A4 20 4E 3A 4B 20 |f.. I . 1 . N:K |
000013A0: B2 20 49 3A 49 31 20 B2 20 49 20 AA 20 31 00 C2 |. I:I1 . I . 1..|
000013B0: 1B 70 0D 8B 20 49 31 20 B1 20 4E 20 A7 20 33 34 |.p.. I1 . N . 34|
000013C0: 39 30 00 D3 1B 7A 0D 81 20 4A 20 B2 20 49 31 20 |90...z.. J . I1 |
000013D0: A4 20 4E 00 F6 1B 84 0D 8B 20 B6 28 41 28 4A 2C |. N...... .(A(J,|
000013E0: 49 29 29 20 B3 B2 20 B6 28 41 28 4B 2C 49 29 29 |I)) .. .(A(K,I))|
000013F0: A7 20 33 34 38 30 00 00 1C 8E 0D 4B 20 B2 20 4A |. 3480.....K . J|
00001400: 00 08 1C 98 0D 82 20 4A 00 1C 1C A2 0D 8B 20 49 |...... J...... I|
00001410: 20 B1 B2 20 4B 20 A7 20 33 35 35 30 00 37 1C AC | .. K . 3550.7..|
00001420: 0D 81 20 4A 20 B2 20 31 20 A4 20 4E 3A 48 20 B2 |.. J . 1 . N:H .|
00001430: 20 41 28 49 2C 4A 29 00 56 1C B6 0D 41 28 49 2C | A(I,J).V...A(I,|
00001440: 4A 29 20 B2 20 41 28 4B 2C 4A 29 3A 41 28 4B 2C |J) . A(K,J):A(K,|
00001450: 4A 29 20 B2 20 48 00 5E 1C C0 0D 82 20 4A 00 6B |J) . H.^.... J.k|
00001460: 1C CA 0D 48 20 B2 20 44 28 49 29 00 84 1C D4 0D |...H . D(I).....|
00001470: 44 28 49 29 20 B2 20 44 28 4B 29 3A 44 28 4B 29 |D(I) . D(K):D(K)|
00001480: 20 B2 20 48 00 AC 1C DE 0D 8B 20 B6 28 41 28 49 | . H...... .(A(I|
00001490: 2C 49 29 29 20 B1 B2 20 28 30 2E 30 30 30 30 30 |,I)) .. (0.00000|
000014A0: 30 30 30 30 31 29 A7 20 33 35 37 30 00 D9 1C E8 |00001). 3570....|
000014B0: 0D 99 22 93 11 11 11 4D 41 54 52 49 58 20 49 53 |.."....MATRIX IS|
000014C0: 54 20 53 49 4E 47 55 4C 41 45 52 22 3A 56 20 B2 |T SINGULAER":V .|
000014D0: 20 31 3A 89 20 33 37 37 30 00 F1 1C F2 0D 41 28 | 1:. 3770.....A(|
000014E0: 49 2C 49 29 20 B2 20 31 20 AD 20 41 28 49 2C 49 |I,I) . 1 . A(I,I|
000014F0: 29 00 0A 1D FC 0D 44 28 49 29 20 B2 20 44 28 49 |).....D(I) . D(I|
00001500: 29 20 AC 20 41 28 49 2C 49 29 00 1E 1D 06 0E 8B |) . A(I,I)......|
00001510: 20 49 31 20 B1 20 4E 20 A7 20 33 36 36 30 00 4C | I1 . N . 3660.L|
00001520: 1D 10 0E 81 20 4B 20 B2 20 49 31 20 A4 20 4E 3A |.... K . I1 . N:|
00001530: 41 28 49 2C 4B 29 20 B2 20 41 28 49 2C 4B 29 20 |A(I,K) . A(I,K) |
00001540: AC 20 41 28 49 2C 49 29 3A 82 20 4B 00 6A 1D 1A |. A(I,I):. K.j..|
00001550: 0E 81 20 4A 20 B2 20 49 31 20 A4 20 4E 3A 81 20 |.. J . I1 . N:. |
00001560: 4B 20 B2 20 49 31 20 A4 20 4E 00 90 1D 24 0E 41 |K . I1 . N...$.A|
00001570: 28 4A 2C 4B 29 20 B2 20 41 28 4A 2C 4B 29 20 AB |(J,K) . A(J,K) .|
00001580: 20 41 28 49 2C 4B 29 20 AC 20 41 28 4A 2C 49 29 | A(I,K) . A(J,I)|
00001590: 00 98 1D 2E 0E 82 20 4B 00 B8 1D 38 0E 44 28 4A |...... K...8.D(J|
000015A0: 29 20 B2 20 44 28 4A 29 20 AB 20 44 28 49 29 20 |) . D(J) . D(I) |
000015B0: AC 20 41 28 4A 2C 49 29 00 C0 1D 42 0E 82 20 4A |. A(J,I)...B.. J|
000015C0: 00 C8 1D 4C 0E 82 20 49 00 D8 1D 56 0E 58 28 4E |...L.. I...V.X(N|
000015D0: 29 20 B2 20 44 28 4E 29 00 E7 1D 60 0E 4E 31 20 |) . D(N)...`.N1 |
000015E0: B2 20 4E 20 AB 20 31 00 FC 1D 6A 0E 8B 20 4E 31 |. N . 1...j.. N1|
000015F0: 20 B3 B2 20 4F 20 A7 20 33 37 37 30 00 0D 1E 74 | .. O . 3770...t|
00001600: 0E 81 20 49 20 B2 20 31 20 A4 20 4E 31 00 24 1E |.. I . 1 . N1.$.|
00001610: 7E 0E 49 4E B2 4E AB 49 3A 58 28 49 4E 29 B2 44 |~.IN.N.I:X(IN).D|
00001620: 28 49 4E 29 00 34 1E 88 0E 81 20 4A 20 B2 20 31 |(IN).4.... J . 1|
00001630: 20 A4 20 49 00 46 1E 92 0E 4B 20 B2 20 4E 20 AB | . I.F...K . N .|
00001640: 20 4A 20 AA 20 31 00 69 1E 9C 0E 58 28 49 4E 29 | J . 1.i...X(IN)|
00001650: 20 B2 20 58 28 49 4E 29 20 AB 20 41 28 49 4E 2C | . X(IN) . A(IN,|
00001660: 4B 29 20 AC 20 58 28 4B 29 00 71 1E A6 0E 82 20 |K) . X(K).q.... |
00001670: 4A 00 79 1E B0 0E 82 20 49 00 7F 1E BA 0E 8E 00 |J.y.... I.......|
00001680: 00 00 8B |... |
..#....****************************.E...
.****************************.G....**
**......** PROGRAM
M VON **......**
**.M....** WOLFGANG DREWES
**...#..** **.
..(..** ISOLDE-KURZ-STR.152 **.3.-..*
* **.U.2..** 440
0 MUENSTER **.W.7..**
**...<..** AUGUST 1984
**...A..**
**...F..****************************...
K..****************************...D..A(2
0,20),B(20,20),C(20,20).0.N..X(20),D(20)
.W.H.."...DIESES PROGRAMM ERMOEGLICHT:".
..R.."..DETERMINANTENBERECHNUNG [1]
"......"..MATRIZENMULTIPLIKATION [
2]".U...."..GLEICHUNGSSYSTEM LOESEN
[3]"......"..ENDE
[4]."...."...BITTE WAEHLEN SIE 1/2/3/
4".;...A$."":.A$:.A$."".250.M....A$."1".
.1000._....A$."2"..2000.Q....A$."3"..300
0.....A$."4".....".. 200.J...."...DIESE
S UNTERPROGRAMM BESTIMMT . DETE
RMINANTEN"......".BIS ZU EINER GROESSE V
ON 20 * 20".>...."....BITTE GEBEN SIE DI
E DIMENSION .DER MATRIX AN (2-
20)..".L...."....................";N :.N
.2.N.20.1000...... EINGABE MATRIX A.....
. EINGABE ERFOLGT ZEILENWEISE...$.. I .
1 . N......".".N.8.. K . 1 . N...B.."A("
I","K")=?":. A(I,K)...L.. K...V..".":. M
. 1 . N.'.`.."A("I","M")=", A(I,M):. M.
H.J.Z$."":."ALLE WERTE OK (J/N) J": ."
....................";Z$.~.T.. Z$ . "J"
. 1200...~.. Z$ .. "N" . 1110......".WEL
CHES A(I,K) IST FALSCH?.".H.... "K = ";R
......"A("I","R")=":. A(I,R)...... 1110.
..... I.....I.1:DET.1....D.K.I...N..J..N
..1250.-.X..J.N..1310.;...AK.A(K,I).L...
.AK.0.AK..AK.Z...AJ.A(J,I).K....AJ.0.AJ.
.AJ.Z....AJ.AK.K.J.....J.J.1......I..K..
1390...(.J.I...2.H.A(I,J)...<.A(I,J).A(K
,J).H.F.A(K,J).H.R.P.J.J.1...Z..J..N..13
30...D.DET..DET...N.H.A(I,I)...X..H.0.H.
.H.'.... IFH>=10^-5THENGOTO1450.3....DET
=0..P....PRINT"....DIE DETERMINANTE BETR
AEGT:":PRINT"......."DET.Z. .. END.....J
.J.1......J.N..1550.....K.I.1.D.H.A(J,K)
.A(J,K).A(I,K).A(I,I).A(J,I).N.R.K.K.1..
....K..N..1480.....J.J.1......J..N..1470
.....I.I.1......I..N..1220.....I.1.-...D
ET.DET.A(I,I).7.".I.I.1.G.,..I..N..1560.
W.6.."....DIE DETERMINANTE BETRAEGT:":."
..."DET...@..198,0:."WEITER MIT EINER TA
STE":.198,1:.198,0.........P.."..DIESES
UNTERPROGRAMM ERMOEGLICHT DIE MUL
TIPLIKATION VON"...Z.."ZWEI MATRIZEN.".&
...."..C = A * B .. ".D....".ZAHL DER Z
EILEN DER MATRIX A (< 20) ";N:.N.1.N.20.
2030......".ZAHL DER SPALTEN DER MATRIX
A (< 20)";M:.M.1.M.20.2040.Q...."..DIE M
ATRIX B MUSS"M"ZEILEN ENTHALTEN."......"
.ZAHL DER SPALTEN DER MATRIX B (< 20)";L
:.L.1.L.20 .2060.'.... EINGABE MATRIX A.
I. .. EINGABE ERFOLGT ZEILENWEISE.Y.*..
I . 1 . N.B.4..".".R.>.. K . 1 . M...H..
"A("I","K")=?":. A(I,K)...R.. K...\.."."
:. J . 1 . M.K.F.."A("I","J")=", A(I,J):
. J...P.Z$."":."ALLE WERTE OK (J/N) ":."
J":.".";Z$...Z.. Z$ . "J" . 2230.)....
Z$ .. "N" . 2140.M....".WELCHES A(I,K)
IST FALSCH?.".\.... "K = ";R.X...."A("I"
,"R")=":. A(I,R)...... 2140...... I.....
. EINGABE MATRIX B.D.J.. EINGABE ERFOLGT
ZEILENWEISE.T.T.. I . 1 . M......"."...
... K . 1 . L......"B("I","K")=?":. B(I,
K)...... K.'....".":. J . 1 . L.F...."B(
"I","J")=", B(I,J):. J.W...Z$."":."ALLE
WERTE OK (J/N) ":." J":.".";Z$...$.. Z$
. "J" . 2400...... Z$ .. "N" . 2310.H.8
..".WELCHES B(I,K) IST FALSCH?.".W.B.. "
K = ";R...L.."B("I","R")=":. B(I,R)...V.
. 2310...`.. I...J..I.1.N...T..J.1.L.%.~
.SU.0.G....K.1.M:SU.SU.A(I,K).B(K,J):.K.
U...C(I,J).SU._....J:.I......"...DIE ERG
EBNISMATRIX ENTHAELT"N"ZEILEN"......"UND
"L"SPALTEN.".M....".DIE AUSGABE ERFOLGT
ZEILENWEISE."...D..I.1.N:.J.1.L...N.."C(
"I","J")="C(I,J)...X..J.4....198,0:.".WE
ITER MIT EINER TASTE.":.198,1:.198,0.;..
..I.E...A$."":."AUSGABE WIEDERHOLEN (J/N
)";A$.V....A$."J".2500......A$.."N".2550
......198,0:."WEITER MIT EINER TASTE":.1
98,1:.198,0.A.(........ LOESUNG VON GLEI
CHUNGSSYSTEMEN...B.. N GLEICHUNGEN MIT N
UNBEKANNTEN...L..".":.:.:.:..E.V.."DIES
ES UNTERROGRAMM BESTIMMT ":.:.S...."DIE
LOESUNG EINES GLEICHUNGSSYSTEMES":......
."VON N GLEICHUNGEN MIT N UNBEKANNTEN"..
...."..MATRIX A * X = VEKTOR D"......198
,0:."..WEITER MIT EINER TASTE":. 198,1:.
198,0.<.... "....WIEVIELE GLEICHUNGEN SO
LLEN":. "GLEICHZEITIG ERFUELLT SEIN".D..
.. N.Y....(N.2.N.20).3080.I.&.. I . 1 .
N.R.0.."."...:.. K . 1 . N...D.."A("I","
K")=":. A(I,K)...N.. K...X..".":. M . 1
. N.Z.B.."A("I","M")=", A(I,M):. M...L.Z
$."":."ALLE WERTE OK (J/N) ":." J...";Z
$...V.. Z$ . "J" . 3250.6.... Z$ .. "N"
. 3160.X...."WELCHES A(I,K) IST FALSCH?"
.U.... "K = ";R:.R.N.R.1.3160......"A("I
","R")=":. A(I,R)...... 3160...... I.O..
..".":. I . 1 . N:."D("I")= ":. D(I):.I.
..F..".":. I . 1 . N:."D("I")= ";D(I):.I
.&.P.Z$."":."ALLE WERTE OK (J/N)":." J.
..";Z$.<.Z.. Z$ . "J" . 3350.S.... Z$ ..
"N" . 3270.V...."..WELCHES D(I) IST FAL
SCH? "...... "I";I:.I.N.I.1.3270......".
..D("I")= ?"...... D(I):.3270...... 3420
.S. .. V . 1 . 3410...*..".":."........"
...4..".DER LOESUNGSVEKTOR HAT DIE WERTE
.":..$.>.. K . 1 . N.=.H.."X("K")= ";X(K
):. K.P.R..198,0:."WEITER MIT EINER TAST
E":.198,1:.198,0.V.W.....\.. SUBROUTINE
GAUSS...F.. I . 1 . N:K . I:I1 . I . 1.B
.P.. I1 . N . 3490.S.Z.. J . I1 . N.....
. .(A(J,I)) .. .(A(K,I)). 3480.....K . J
...... J...... I .. K . 3550.7.... J . 1
. N:H . A(I,J).V...A(I,J) . A(K,J):A(K,
J) . H.^.... J.K.J.H . D(I)...T.D(I) . D
(K):D(K) . H...... .(A(I,I)) .. (0.00000
00001). 3570.Y...."....MATRIX IST SINGUL
AER":V . 1:. 3770.....A(I,I) . 1 . A(I,I
).....D(I) . D(I) . A(I,I)...... I1 . N
. 3660.L.... K . I1 . N:A(I,K) . A(I,K)
. A(I,I):. K.J.... J . I1 . N:. K . I1 .
N...$.A(J,K) . A(J,K) . A(I,K) . A(J,I)
...... K...8.D(J) . D(J) . D(I) . A(J,I)
...B.. J.H.L.. I.X.V.X(N) . D(N)...`.N1
. N . 1...J.. N1 .. O . 3770...T.. I . 1
. N1.$.~.IN.N.I:X(IN).D(IN).4.... J . 1
. I.F...K . N . J . 1.I...X(IN) . X(IN)
. A(IN,K) . X(K).Q.... J.Y.... I......
...
> CLICK IMAGE PREVIEW FOR FULL MODAL