Listing of file='7A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 175, program filename = '7A' 0005 DIM R(9,9),X(10),A(9),B(9) 0010 PRINT "INPUT N,M" 0020 INPUT N,M 0030 PRINT "INPUT MATRIX" 0035 FOR K=1 TO N 0040 INPUT X(1),X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10) 0065 FOR I=1 TO M 0070 FOR J=I TO M 0075 R(I,J)=R(I,J)+X(I)*X(J) 0080 NEXT J 0085 A(I)=A(I)+X(I) 0090 B(I)=B(I)+X(I)^2 0095 NEXT I 0100 NEXT K 0110 FOR I=1 TO M 0130 S=N*B(I)-A(I)^2 0140 FOR J=I TO M 0150 R(I,J),R(J,I)=(N*R(I,J)-A(I)*A(J))/SQR(S*(N*B(J)-A(J)^2)) 0160 NEXT J 0170 R(I,I)=1 0180 NEXT I 0182 PRINT 0184 PRINT "CORRELATION MATRIX:" 0190 FOR I=1 TO M 0200 PRINT 0210 PRINT 0220 FOR J=1 TO M 0225 IF R(I,J)<=1 THEN 230 0227 R(I,J)=1 0230 PRINT R(I,J), 0240 NEXT J 0250 NEXT I 0999 END