HP HP-15C - Inverting a Complex Matrix

Section 4: Using Matrix Operations
163
You can replace | R/S | at line 102 with |PSE| or perhaps delete it
entirely if you have no interest in the intermediate results.
For a function of n variables, the program requires 4n + 1
registers devoted to matrices.
Keystrokes
HTIIP/RI
Display
Program mode.
pfl CLEAR |PRGM|
rniLBLjs
|RCL || MATRIX) [cl
ISTO || MATRIX |[T|
iRCLlfMATRIXlfA]
[ STO || MATRIX] Cc]
IRCL || MATRIX ||T|
ISTO || MATRIX! [A]
[jF][RTN]
FFIfLBL]?
|RCL|4
[RC006
ISTO |8
[GSB][E]
IRCL || MATRIX ||T|
ISTO || MATRIX] [D]
IRCL || MATRIX |[D]
[T][E]0
[CHS]
ITU MATRIX 18
nnn*^o]
mfRTN]
073
fSTOl.1
0
| STO |. 0
|RCL|5
[STO]?
000-
001-42,21, 8
002-45,16,13
003-44,16,15
004-45,16,11
005-44,16,13
006-45,16,15
007-44,16,11
008- 43 32
009-42,21, 7
010- 45 4
011-45,10, 6
012- 44 8
013- 3215
014-45,16,15
015-44,16,14
016-45,16,14
017-43, 6, 0
018- 16
019-42,16, 8
020- 43 20
021- 4332
022- 15
023-45,20, 8
024- 44 .1
025- 0
026- 44 .0
027- 45 5
028- 44 7
Routine to swap A and C
using E.
Line search routine.
Stores d/O'+l) in R8.
For minimum, changes
sign of gradient.
Calculates ||v/(x)||.
Exitsif||v/(x)||=0.
Calculates u^.
Stores HI in R _1.
Stores counter in R7.