Matrix Example 4, make identity matrix, HP15c Advanced Functions Handbook P100

Description

GSB 4

Matrix A is dimensioned as a 4x4 matrix.

The program zeros all elements except the diagonal which is set to 1.

This is a 4x4 identity matrix.
The end sequence 1000,0100,0010,0001 are the elements read out from register (i) which in this case points to A.

When running matrix programs don't set USER mode.
The program will set this if needed.

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

Program Resources

Labels

Name	Description
4	GSB 4 to run program
9	Test loop
.4

Storage Registers

Name	Description
0	Test
1	Test
I	Register pointing to A in this program

Flags

Number	Description
8	CF8 clear complex mode

Program

Line	Display	Key Sequence	Line	Display	Key Sequence
000			013	45 1	RCL 1
001	42,21, 4	f LBL 4	014	43,30, 6	g TEST x≠y
002	43, 5, 8	g CF 8	015	43 35	g CLx
003	42,16, 0	f MATRIX 0	016	43,30, 5	g TEST x=y
004	4	4	017	26	EEX
005	36	ENTER	018	u 44 24	USER STO (i)
006	4	4	019	22 9	GTO 9
007	42,23,11	f DIM A	020	42,21, .4	f LBL . 4
008	45,16,11	RCL MATRIX A	021	42 31	f PSE
009	44 25	STO I	022	u 45 24	USER RCL (i)
010	42,16, 1	f MATRIX 1	023	22 .4	GTO . 4
011	42,21, 9	f LBL 9	024	42 31	f PSE
012	45 0	RCL 0	025	43 32	g RTN