Matrix Example test, Identity matrix from [A]/[A]

Description

GSB 8

Matrix division [A]/[A] returns a close approximation to the identity matrix.

Results:
[A] contains LU version of the original [A]
[B] contains the identity matrix from [A]/[A].

To read result matrix [B] elements again, press GSB 0

If you want to do further manual matrix calculations, especially on the DM15L, pressing GSB A, B, C, D or E will read out the corresponding matrix.

USER mode during programming allows indexed STO and RCL of matrix elements. The f MATRIX 0 statement is also essential.
Once the STO and RCL loops reach the dimensioned size of the matrix the GOTO statement is skipped and the next part of the program runs.

John Patterson
jepattersonatactrix.co.nz
http://www.jepspectro.com

Program Resources

Labels

Name Description Name Description
 A Read matrix [A] elements .1 RCL elements from [A] loop
 B Read matrix [B] elements .2 RCL elements from [B] loop
 C Read matrix [C] elements .3 RCL elements from [C]] loop
 D Read matrix [D] elements .4 RCL elements from [D]] loop
 E Read matrix [E] elements .5 RCL elements from [E]] loop
 8 GSB 8 run program .6 STO random numbers into [A]

Flags

Number Description
8 gCF8 Clear complex number flag

Program

Line Display Key Sequence Line Display Key Sequence Line Display Key Sequence
000 021 45,16,11 RCL MATRIX A 042 42,21,13 f LBL C
001 42,21, 8 f LBL 8 022 45,16,11 RCL MATRIX A 043 42,16, 1 f MATRIX 1
002 43, 5, 8 g CF 8 023 10 ÷ 044 42,21, .3 f LBL . 3
003 42,16, 0 f MATRIX 0 024 45,16,12 RCL MATRIX B 045 42 31 f PSE
004 4 4 025 32 12 GSB B 046 u 45 13 USER RCL C
005 42 31 f PSE 026 42 31 f PSE 047 22 .3 GTO . 3
006 36 ENTER 027 43 32 g RTN 048 43 32 g RTN
007 4 4 028 42,21,11 f LBL A 049 42,21,14 f LBL D
008 42,23,11 f DIM A 029 42,16, 1 f MATRIX 1 050 42,16, 1 f MATRIX 1
009 42,16, 1 f MATRIX 1 030 42,21, .1 f LBL . 1 051 42,21, .4 f LBL . 4
010 45,16,11 RCL MATRIX A 031 42 31 f PSE 052 42 31 f PSE
011 42,21, .6 f LBL . 6 032 u 45 11 USER RCL A 053 u 45 14 USER RCL D
012 42 31 f PSE 033 22 .1 GTO . 1 054 22 .4 GTO . 4
013 42 36 f RAN # 034 43 32 g RTN 055 43 32 g RTN
014 2 2 035 42,21,12 f LBL B 056 42,21,15 f LBL E
015 0 0 036 42,16, 1 f MATRIX 1 057 42,16, 1 f MATRIX 1
016 20 × 037 42,21, .2 f LBL . 2 058 42,21, .5 f LBL . 5
017 u 44 11 USER STO A 038 42 31 f PSE 059 42 31 f PSE
018 22 .6 GTO . 6 039 u 45 12 USER RCL B 060 u 45 15 USER RCL E
019 42 31 f PSE 040 22 .2 GTO . 2 061 22 .5 GTO . 5
020 42,26,12 f RESULT B 041 43 32 g RTN 062 43 32 g RTN