E%()BTC U/W-FOCAL:EVDEMO15.10.78?MB-BJC MATRIX DIAGONALIZATION DEMO PROGRAM -JVZ-?M?CBTO I EIGVAL.FC;O I,E;S B1=FBLK()?M?CSB^O I EIGVEC.FC;O I,E;S B2=FBLK()?M?C	B(F I=1,!=3;F J=1,!;S A(I,J)=FRAN()?M?C<B2F I=1,!;F J=1,!;T A(I,J);N;T !;N;T !?MDOB<L G <B1>[3
;F I=1,!;T X(I);N;T !?MDCFL G <B2>[3];F I=1,!;T X(I);N;T !!?M?EDCPF I=1,!;F J=1,!;Z $;F K=1,!;S $=$+A(I,K)*C(K,J);N;S D(I,J)=$?MCZF I=1,!;F J=1,!;Z $;F K=1,!;S $=$+D(I,K)*B(K,J);N;T +$;N;T !?M?ML D EVDEMO;L S EVDEMO;E?M?) FRA(6,0) FRA(7,FSGN(7-SB

Note: Lines longer than 256 characters were wrapped