HP HP-32S - Page 179

S04 XEQ E Exchanges solution column and coefficients
column containing I.
Calculates determinant.
Saves determinant in Z.
Restores determinant to original form.
Index value of F for indirect addressing.
Stores index value.
Exchanges solution column and column
containing F.
Calculates determinant.
Saves determinant in Y.
Restores determinant to original form.
Index value of C for indirect addressing.
Stores index value in index variable.
Exchanges solution column and column
containing F.
Calculates determinant.
Saves determinant in X.
Restores determinant to original form.
Calculates determinant of original
coefficients.
Divides by original determinant.
S05 XEQ D
S06
STO 2
S07
XEQ E
S08 6
S89
STO i
S10
XEQ E
Sll
XEQ D
S12 STO Y
S13 XEQ E
S14 3
S15
STO i
S16 XEQ E
S17 XEQ D
S18 STO X
S19 XEQ E
S20
XEQ D
S21
STO* X
S22
STO* Y
S23 STO* 2
S24 RCL X
S25
VIEW X
S26
RCL Y
S27
VIEW Y
S28 RCL Z
S29 VIEW 2
S30 RTN
Recalls and displays results for X, Y and Z.
Returns to the calling program or to
PRGM TOP.
Bytes and Checksum: 045.0, 3971
E01 LBL E This routine exchanges columns for
Cramer's rule.
E02 RCL< i > Gets last element from column of coefficient
determinant.
E03 RCL L Gets last element from solution vector.
E04 ST0<i> Saves vector element in determinant.
12: Mathematics Programs 177