100 REM ***** CORMAT ***** STATISTICS PROGRAM ***** 110 REM ***** VERSION 1 EDITED 8/1972 ******* 120 REM CORRELATION MATRIX 130 DIM S(26,26),D(26),X(26) 140 READ N,M 150 MAT S=ZER 160 LET X(1)=1 170 FOR K=2 TO M+1 180 FOR I=2TON+1 190 READ X(I) 200 NEXT I 210 FOR I=1 TO N+1 220 FOR J=I TO N+1 230 LET S(I,J)=S(I,J)+X(I)*X(J) 240 NEXT J 250 NEXT I 260 NEXT K 270 REM HAVING COMPUTED THE SUM-OF-SQUARES MATRIX, WE CONTINUE 280 PRINT "VARIABLE ","MEAN ","VARIANCE ","STD. DEV." 290 FOR I=2 TO N+1 300 LET M1=S(1,I)/M 310 LET Q=(S(I,I)-S(1,I)*S(1,I)/M)/(M-1) 320 LET D(I)=SQR(Q) 330 PRINT I-1,M1,Q,D(I) 340 NEXT I 350 REM NOW WE PRODUCE AND PRINT THE CORRELATION MATRIX... 360 PRINT 370 PRINT "THE CORRELATION MATRIX" 380 PRINT 390 FOR I=2 TO N+1 400 FOR J=2 TO I-1 410 PRINT " ", 420 NEXT J 430 FOR J=I TO N+1 440 PRINT (M*S(I,J)-S(1,I)*S(1,J))/M/(M-1)/D(I)/D(J), 450 NEXT J 460 PRINT 470 PRINT 480 NEXT I 490 DATA 4,15 500 DATA 32,48,54,15 510 DATA 36,33,19,15 520 DATA 3,28,30,14 530 DATA 12,33,64,22 540 DATA 36,34,60,24 550 DATA 24,36,53,19 560 DATA 19,42,29,13 570 DATA 20,33,55,15 580 DATA 27,36,62,23 590 DATA 15,22,33,12 600 DATA 45,46,68,25 610 DATA 9,28,42,17 620 DATA 11,32,45,18 630 DATA 33,34,39,19 640 DATA 21,45,39,18 650 END