5 PRINT 6 PRINT 10 PRINT " PRODUCT-MOMENT CORRELATION PROGRAM" 12 PRINT 30 PRINT "TYPE IN THE NUMBER OF CASES (40 MAX.) "; 31 INPUT N 40 LET A=0 41 LET B=0 42 LET C=0 43 LET D=0 44 LET E=0 50 DIM X[40],Y[40] 60 PRINT 65 PRINT "TYPE IN THE TWO VARIABLES VALUES PER CASE (E.G. : 12,15)" 70 FOR I=1 TO N 80 INPUT X[I],Y[I] 90 LET A=A+X[I] 100 LET B=B+Y[I] 120 NEXT I 130 LET A=A/N 140 LET B=B/N 150 FOR K=1 TO N 160 LET X[K]=X[K]-A 170 LET Y[K]=Y[K]-B 180 NEXT K 190 FOR L=1 TO N 200 LET C=C+(X[L]*Y[L]) 210 LET D=D+(X[L]^2) 220 LET E=E+(Y[L]^2) 230 NEXT L 240 LET R=C/(SQR(D*E)) 245 PRINT 250 PRINT 255 PRINT " THE PRODUCT-MOMENT CORRELATION IS ";R 300 REM: PROGRAM BY J. J. PICAZO 400 END