@ELT,SI ECL*TPF$.COMPUT/SYM,,,155610120310 E=EIGVEC(A) S=SUBSET(E,1,I) D=SUBSET(E,I+1) ST=TRANSP(S) PRINT(A,ST*S,S,D) @ELT,SI ECL*TPF$.COMPUT/NONSYM,,,160662120310 E=EIGVEC(A) S=SUBSET(E,1,I) D=SUBSET(E,I+1) PRINT(A,S,D) @ELT,SI ECL*TPF$.EX4/1,,,156365120310 I=4 A=MATRIX(I,I) Y 5 4 1 1 4 5 1 1 1 1 4 2 1 1 2 4 @ADD COMPUT/SYM @ELT,SI ECL*TPF$.EX4/2,,,156321120310 I=4 A=MATRIX(I,I) Y 6 4 4 1 4 6 1 4 4 1 6 4 1 4 4 6 @ADD COMPUT/SYM @ELT,SI ECL*TPF$.EX4/3,,,156557120310 I=4 A=MATRIX(I,I) Y 2 1 3 4 1 -3 1 5 3 1 6 -2 4 5 -2 -1 @ADD COMPUT/SYM @ELT,SI ECL*TPF$.EX4/4,,,157063120310 I=4 A=MATRIX(I,I) Y 5 7 6 5 7 10 8 7 6 8 10 9 5 7 9 10 PRINT(EIGVAL(A)) @ELT,SI ECL*TPF$.EX4/10,,,157663120310 I=8 A=MATRIX(I,I) Y 611 196 -192 407 -8 -52 -49 29 196 899 113 -192 -71 -43 -8 -44 -192 113 899 196 61 49 8 52 407 -192 196 611 8 44 59 -23 -8 -71 61 8 411 -599 208 208 -52 -43 49 44 -599 411 208 208 -49 -8 8 59 208 208 99 -911 29 -44 52 -23 208 208 -911 99 @ADD COMPUT/SYM @ELT,SI ECL*TPF$.EX5/1,,,161467120310 I=3 A=MATRIX(I,I) Y 33 -24 8 16 -10 -4 72 -57 -17 @ADD COMPUT/NONSYM @ELT,SI ECL*TPF$.EX5/2,,,161043120310 I=3 A=MATRIX(I,I) Y 4 2 0 1 4 1 1 1 4 @ADD COMPUT/NONSYM @ELT,SI ECL*TPF$.EX5/3,,,100370120410 I=3 A=MATRIX(I,I) Y 1 .1 0 0 1 1 .01 0 1 @ADD COMPUT/NONSYM W=COMPLX(1,SQRT(3)) WC=CONJ(W) OMEGA=COMPOS(1,-.5*W,-.5*WC) PRINT(OMEGA) LAMDA=1+.1*OMEGA PRINT(LAMDA) S1=SUBSET(S,1) S2=SUBSET(S,2) S3=SUBSET(S,3) S1=S1/S1(1) S2=S2/S2(1) S3=S3/S3(1) PRINT(S1,S2,S3) PRINT(OMEGA) W1=OMEGA(2) W2=OMEGA(3) PRINT(W1*W1,10*W1) PRINT(W2*W2,10*W2) @ELT,SI ECL*TPF$.EX5/4,,,161261120310 I=3 A=MATRIX(3,3) Y 8 -4 18 -1 4 -5 -5 -2 -7 @ADD COMPUT/NONSYM @ELT,SI ECL*WVSFIL.EX6/5,,,144573120410 A=MATRIX(4,4) Y 5,9 3,3 2,2 1,1 5,5 6,10 3,3 2,2 -6,-6 -5,-5 -1,3 -3,-3 -7,-7 -6,-6 -5,-5 0,4 E=EIGVEC(A) PRINT(E) S1=SUBSET(E,1) S2=SUBSET(E,2) S3=SUBSET(E,3) S4=SUBSET(E,4) D=SUBSET(E,5) PRINT(S1=REAL(S1)*2) S2(4)=0 PRINT(S2=REAL(S2)/2) S3(3)=0 PRINT(S3=-REAL(S3)/2) S4=REAL(S4) PRINT(S4=S4/S4(2)) S=COMPOS(S4,S1,S3,S2) PRINT(S,D) @ELT,SI ECL*TPF$.EX6/6,,,074664120410 I=4 A=MATRIX(I,I) Y 3 1 0 0,-2 1 3 0,2 0 0 0,-2 1 1 0,2 0 1 1 @ADD COMPUT/NONSYM