image of READY prompt

Wang2200.org

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