MATRIX INVERSE
FILE INFORMATION
FILENAME(S): MATRIX INVERSE
FILE TYPE(S): PRG
FILE SIZE: 1.7K
FIRST SEEN: 2025-11-30 19:47:26
APPEARS ON: 1 disk(s)
FILE HASH
60f75549be3a8b4fcec6ef6c0c05c0d473d37f2e746077644bc3deff7b6c2170
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A5 2 | MATRIX INVERSE | PRG | Curtcool, Frank | 12 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: AC 05 10 06 90 06 00 01 24 00 20 57 52 49 54 54 |........$. WRITT|
00000010: 45 4E 20 42 59 20 42 2E 44 2E 47 52 41 49 4E 47 |EN BY B.D.GRAING|
00000020: 45 52 20 28 49 43 50 55 47 29 00 02 1B 00 20 46 |ER (ICPUG).... F|
00000030: 4F 52 20 43 4F 4D 41 4C 20 56 45 52 53 49 4F 4E |OR COMAL VERSION|
00000040: 20 30 2E 31 32 00 03 23 00 20 50 52 4F 47 2E 20 | 0.12..#. PROG. |
00000050: 56 45 52 53 2E 20 31 2E 30 20 53 45 50 54 45 4D |VERS. 1.0 SEPTEM|
00000060: 42 45 52 20 31 39 38 32 00 04 04 00 00 0A 24 00 |BER 1982......$.|
00000070: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000090: 00 14 23 00 20 45 58 41 4D 50 4C 45 20 4F 46 20 |..#. EXAMPLE OF |
000000A0: 52 45 43 55 52 53 49 56 45 20 46 55 4E 43 54 49 |RECURSIVE FUNCTI|
000000B0: 4F 4E 53 00 1E 1C 00 20 20 20 20 20 49 4E 56 45 |ONS.... INVE|
000000C0: 52 53 45 20 4F 46 20 41 20 4D 41 54 52 49 58 00 |RSE OF A MATRIX.|
000000D0: 32 24 00 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |2$. ------------|
000000E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000F0: 2D 2D 2D 00 3C 04 00 00 46 27 00 20 53 45 54 20 |---.<...F'. SET |
00000100: 55 50 20 4D 41 54 52 49 43 45 53 20 41 4E 44 20 |UP MATRICES AND |
00000110: 50 52 49 4E 54 20 5A 4F 4E 45 53 20 2F 2F 00 50 |PRINT ZONES //.P|
00000120: 04 00 00 5A 35 8C 8D 01 02 02 00 06 91 02 00 06 |...Z5...........|
00000130: 92 8D 02 02 02 00 06 91 02 00 06 92 94 C5 00 20 |............... |
00000140: 4D 41 58 20 4D 41 54 52 49 58 20 53 49 5A 45 20 |MAX MATRIX SIZE |
00000150: 49 53 20 36 20 2F 2F 00 64 07 02 00 0C 46 00 6E |IS 6 //.d....F.n|
00000160: 04 00 00 78 18 00 20 47 45 54 20 49 4E 50 55 54 |...x.. GET INPUT|
00000170: 20 4D 41 54 52 49 58 20 2F 2F 00 82 04 00 00 8C | MATRIX //......|
00000180: 06 7F 03 81 00 96 04 00 00 A0 1A 00 20 50 52 49 |............ PRI|
00000190: 4E 54 20 49 4E 50 55 54 20 4D 41 54 52 49 58 20 |NT INPUT MATRIX |
000001A0: 2F 2F 00 AA 04 00 00 B4 1C 5F 02 00 93 4B 65 67 |//......._...Keg|
000001B0: 03 0D 54 48 45 20 4D 41 54 52 49 58 20 49 53 65 |..THE MATRIX ISe|
000001C0: 60 61 00 BE 06 5F 60 61 00 C8 08 7F 04 07 01 16 |`a..._`a........|
000001D0: 00 D2 04 00 00 DC 27 00 20 43 41 4C 43 55 4C 41 |......'. CALCULA|
000001E0: 54 45 20 41 4E 44 20 50 52 49 4E 54 20 44 45 54 |TE AND PRINT DET|
000001F0: 45 52 4D 49 4E 41 4E 54 20 2F 2F 00 E6 04 00 00 |ERMINANT //.....|
00000200: F0 0E 07 05 0A 06 07 01 10 07 07 16 3A 00 FA 06 |............:...|
00000210: 5F 60 61 01 04 24 5F 03 17 44 45 54 45 52 4D 49 |_`a..$_..DETERMI|
00000220: 4E 41 4E 54 20 4F 46 20 4D 41 54 52 49 58 20 3D |NANT OF MATRIX =|
00000230: 65 67 04 05 64 60 61 01 0E 06 5F 60 61 01 18 04 |eg..d`a..._`a...|
00000240: 00 01 22 20 00 20 43 41 4C 43 55 4C 41 54 45 20 |.." . CALCULATE |
00000250: 49 4E 56 45 52 53 45 20 4D 41 54 52 49 58 20 2F |INVERSE MATRIX /|
00000260: 2F 01 2C 04 00 01 36 0F 82 08 A1 73 02 00 01 84 |/.,...6....s....|
00000270: 04 07 85 87 01 40 0F 82 09 9A 73 02 00 01 84 04 |.....@....s.....|
00000280: 07 85 87 01 4A 1D 0A 02 07 08 10 07 09 1C 0A 0A |....J...........|
00000290: 07 01 10 07 07 10 07 09 10 07 08 16 04 05 23 3A |..............#:|
000002A0: 01 54 07 8A 09 6E 73 01 5E 07 8A 08 5F 73 01 68 |.T...ns.^..._s.h|
000002B0: 04 00 01 72 14 00 20 50 52 49 4E 54 20 52 45 53 |...r.. PRINT RES|
000002C0: 55 4C 54 20 2F 2F 01 7C 04 00 01 86 1F 5F 67 03 |ULT //.|....._g.|
000002D0: 15 54 48 45 20 49 4E 56 45 52 53 45 20 4D 41 54 |.THE INVERSE MAT|
000002E0: 52 49 58 20 49 53 65 60 61 01 90 06 5F 60 61 01 |RIX ISe`a..._`a.|
000002F0: 9A 08 7F 04 07 02 16 01 A4 04 9F 03 E8 04 00 03 |................|
00000300: F2 04 00 03 FC 09 70 03 82 74 00 7B 04 06 08 AF |......p..t.{....|
00000310: 07 07 B0 B3 04 10 0F 82 08 41 74 02 00 01 84 04 |.........At.....|
00000320: 07 85 87 04 1A 0F 82 09 3A 74 02 00 01 84 04 07 |........:t......|
00000330: 85 87 04 24 0E AF 0A 01 07 08 10 07 09 1C B0 B3 |...$............|
00000340: 04 2E 07 8A 09 1D 74 04 38 07 8A 08 0E 74 04 42 |......t.8....t.B|
00000350: 0A AA AD 00 03 AB 52 74 04 4C 10 AA AD 00 01 AD |......Rt.L......|
00000360: 00 01 AD 00 01 AB 62 74 04 56 10 AA AD 00 01 AD |......bt.V......|
00000370: 00 01 AD FF FF AB 72 74 04 60 10 AA AD 00 02 AD |......rt.`......|
00000380: FF FF AD 00 01 AB 00 00 04 6A 05 7D 03 07 D0 04 |.........j.}....|
00000390: 00 07 DA 04 00 07 E4 0C 70 04 DC 74 01 78 0B 02 |........p..t.x..|
000003A0: 7B 07 EE 0F 82 0C D5 74 02 00 01 84 04 07 85 87 |{......t........|
000003B0: 07 F8 0F 82 0D C8 74 02 00 01 84 04 07 85 87 08 |......t.........|
000003C0: 02 0F 5F 0A 0B 07 0C 10 07 0D 16 64 66 61 08 0C |.._........dfa..|
000003D0: 07 8A 0D AA 74 08 16 06 5F 60 61 08 20 07 8A 0C |....t..._`a. ...|
000003E0: 9B 74 08 2A 05 7D 04 0B B8 04 00 0B C2 04 00 0B |.t.*.}..........|
000003F0: CC 15 70 0E 82 75 05 78 0B 02 72 07 72 0F 72 10 |..p..u.x..r.r.r.|
00000400: 78 11 02 7C 0B D6 09 07 12 02 00 01 3A 0B E0 0F |x..|........:...|
00000410: 82 08 7B 75 02 00 01 84 04 07 85 87 0B EA 0C 68 |..{u...........h|
00000420: 04 08 04 0F 32 69 77 75 0B F4 09 07 13 02 00 01 |....2iwu........|
00000430: 3A 0B FE 0F 82 09 67 75 02 00 01 84 04 07 85 87 |:.....gu........|
00000440: 0C 08 0C 68 04 09 04 10 32 69 63 75 0C 12 14 0A |...h....2icu....|
00000450: 11 07 12 10 07 13 1C 0A 0B 07 08 10 07 09 16 3A |...............:|
00000460: 0C 1C 09 07 13 02 00 01 3D 0C 26 04 6F 0C 30 07 |........=.&.o.0.|
00000470: 8A 09 2B 75 0C 3A 09 07 12 02 00 01 3D 0C 44 04 |..+u.:......=.D.|
00000480: 6F 0C 4E 07 8A 08 07 75 0C 58 05 7D 0E 0F A0 04 |o.N....u.X.}....|
00000490: 00 0F AA 04 00 0F B4 12 E9 0A EA 75 04 78 0B 02 |...........u.x..|
000004A0: 72 07 72 08 72 09 7C 0F BE 16 8C 8D 11 02 04 07 |r.r.r.|.........|
000004B0: 02 00 01 29 91 04 07 02 00 01 29 92 C5 0F C8 14 |...)......).....|
000004C0: 7F 0E 07 0B 10 07 07 10 07 08 10 07 09 10 07 11 |................|
000004D0: 16 0F D2 1F EF 02 00 01 21 47 04 08 04 09 27 47 |........!G....'G|
000004E0: 22 47 0A 06 07 11 10 04 07 02 00 01 29 13 24 F2 |"G..........).$.|
000004F0: 0F DC 05 EC 0A 13 88 04 00 13 92 04 00 13 9C 0E |................|
00000500: E9 06 A7 76 02 78 0B 02 72 07 7C 13 A6 0D 68 04 |...v.x..r.|...h.|
00000510: 07 02 00 01 2C 69 21 76 13 B0 0F EF 0A 0B 02 00 |....,i!v........|
00000520: 01 0D 02 00 01 13 F2 13 BA 06 6E A3 76 13 C4 16 |..........n.v...|
00000530: 8C 8D 11 02 04 07 02 00 01 29 91 04 07 02 00 01 |.........)......|
00000540: 29 92 C5 13 CE 09 07 14 02 00 00 3A 13 D8 0F 82 |)..........:....|
00000550: 10 95 76 02 00 01 84 04 07 85 87 13 E2 15 7F 0E |..v.............|
00000560: 07 0B 10 07 07 10 02 00 01 0D 07 10 10 07 11 16 |................|
00000570: 13 EC 2B 07 14 02 00 01 21 47 02 00 01 04 10 27 |..+.....!G.....'|
00000580: 47 22 47 0A 0B 02 00 01 0D 07 10 16 24 0A 06 07 |G"G.........$...|
00000590: 11 10 04 07 02 00 01 29 13 24 3D 13 F6 07 8A 10 |.......).$=.....|
000005A0: 46 76 14 00 07 EF 04 14 F2 14 0A 04 6F 14 14 05 |Fv..........o...|
000005B0: EC 06 90 F5 9F 00 00 90 36 9F 00 00 14 FD 73 00 |........6.....s.|
000005C0: 00 14 8F 74 00 00 10 64 9E 00 00 15 F7 75 00 00 |...t...d.....u..|
000005D0: 10 7D 9E 00 00 10 78 9E 00 00 10 73 9E 00 00 15 |.}....x....s....|
000005E0: 8F 75 00 00 00 00 00 00 00 10 6E 9E 00 00 10 69 |.u........n....i|
000005F0: 9E 00 00 14 E9 74 00 00 00 00 00 00 00 00 00 00 |.....t..........|
00000600: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 |................|
00000610: 00 00 00 00 00 00 03 4D 41 54 04 49 4D 41 54 0A |.......MAT.IMAT.|
00000620: 52 45 41 44 4D 41 54 52 49 58 0B 50 52 49 4E 54 |READMATRIX.PRINT|
00000630: 4D 41 54 52 49 58 06 4D 41 54 44 45 54 0B 44 45 |MATRIX.MATDET.DE|
00000640: 54 45 52 4D 49 4E 41 4E 54 04 52 41 4E 4B 03 52 |TERMINANT.RANK.R|
00000650: 4F 57 03 43 4F 4C 08 43 4F 46 41 43 54 4F 52 06 |OW.COL.COFACTOR.|
00000660: 4D 41 54 52 49 58 04 50 52 4F 57 04 50 43 4F 4C |MATRIX.PROW.PCOL|
00000670: 04 46 4F 52 4D 01 49 01 4A 09 53 55 42 4D 41 54 |.FORM.I.J.SUBMAT|
00000680: 52 49 58 06 53 55 42 52 4F 57 06 53 55 42 43 4F |RIX.SUBROW.SUBCO|
00000690: 4C 03 53 55 4D 00 00 02 FF AD FF |L.SUM...... |
........$. WRITTEN BY B.D.GRAINGER (ICPU
G).... FOR COMAL VERSION 0.12..#. PROG.
VERS. 1.0 SEPTEMBER 1982......$. -------
------------------------..#. EXAMPLE OF
RECURSIVE FUNCTIONS.... INVERSE OF A
MATRIX.2$. ----------------------------
---.<...F'. SET UP MATRICES AND PRINT ZO
NES //.P...Z5........................E.
MAX MATRIX SIZE IS 6 //.D....F.N...X.. G
ET INPUT MATRIX //.............. .. PRI
NT INPUT MATRIX //......._...KEG..THE MA
TRIX ISE`A..._`A.H......R....'. CALCULA
TE AND PRINT DETERMINANT //.............
....:..._`A..$_..DETERMINANT OF MATRIX =
EG..D`A..._`A....." . CALCULATE INVERSE
MATRIX //.,...6....S.........@....S.....
....J.........................#:.T...NS.
^..._S.H...R.. PRINT RESULT //.|....._G.
.THE INVERSE MATRIX ISE`A..._`A........
..............P..T.{.............AT.....
........:T.........$..................T.
8....T.B......RT.L............BT.V......
......RT.`...............J.}..P...Z.....
P..T.X..{.....UT.............HT.........
.._........DFA......T..._`A. ....T.*.}..
....B...L.P..U.X..R.R.R.X..|.V......:...
..{U...........H....2IWU........:.....GU
...........H....2ICU...................:
........=.&.O.0...+U.:......=.D.O.N....U
.X.}.. ............U.X..R.R.R.|.........
...)......).E.H..................R.....
!G....'G"G..........).$.................
...V.X..R.|...H.....,I!V................
..N.V.D..........)......).E.N......:.X..
..V..............................+.....
!G.....'G"G.........$..........).$=.....
FV..........O...........6.....S....T...D
.....U...}....X....S.....U........N....I
.....T.................................M
AT.IMAT.READMATRIX.PRINTMATRIX.MATDET.DE
TERMINANT.RANK.ROW.COL.COFACTOR.MATRIX.P
ROW.PCOL.FORM.I.J.SUBMATRIX.SUBROW.SUBCO
L.SUM......
> CLICK IMAGE PREVIEW FOR FULL MODAL