Listing of file='6A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 268, program filename = '6A' 0005 PRINT "NO. OF DATA POINTS, N?" 0010 INPUT N 0020 PRINT "INPUT DATA POINTS 1/LINE (XI,YI,CARRIAGE RETURN)" 0030 S1,S2,S3,S4,S5=0 0040 FOR I=1 TO N 0050 INPUT X,Y 0060 S1=S1+X 0070 S2=S2+Y 0080 S3=S3+X*X 0090 S4=S4+Y*Y 0100 S5=S5+X*Y 0110 NEXT I 0120 R=(N*S5-S1*S2)/SQR((N*S3-S1^2)*(N*S4-S2^2)) 0125 PRINT 0130 PRINT "COEFF. OF CORRELATION=";R 0140 END