image of READY prompt

Wang2200.org

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