Listing of file='1A' on disk='vmedia/glbr_22.wvd.zip'
# Sector 404, program filename = '1A' 0010 PRINT "INPUT N" 0020 INPUT N 0030 PRINT "INPUT DATA POINTS" 0040 S1,S2,S3,S4,S5=0 0050 FOR I=1 TO N 0060 INPUT X,Y 0070 S1=S1+X 0080 S2=S2+Y 0090 S3=S3+X^2 0100 S4=S4+Y^2 0110 S5=S5+X*Y 0120 NEXT I 0130 B=(N*S5-S2*S1)/(N*S3-S1^2) 0140 A=(S2-B*S1)/N 0150 PRINT 0160 PRINT "0 DEG. COEFF.=";A 0170 PRINT "1 DEG. COEFF.=";B 0175 STOP 0177 PRINT HEX(03) 0180 S1=B*(S5-S1*S2/N) 0190 S4=S4-S2^2/N 0195 S2=S4-S1 0200 PRINT 0210 PRINT 0220 PRINT " REGRESSION TABLE" 0230 PRINT 0240 PRINT "SOURCE","SUM OF SQ.","DEG.FREEDOM","MEAN SQ." 0250 PRINT "REGRESSION",S1,1,S1 0260 PRINT "RESIDUAL",S2,N-2,S2/(N-2) 0270 PRINT "TOTAL",S4,N-1 0280 PRINT 0285 PRINT "F=";S1/S2*(N-2) 0290 PRINT 0295 PRINT 0300 S5=S1/S4 0310 PRINT "COEFF. OF DETERMINATION=";S5 0320 PRINT "COEFF. OF CORRELATION=";SQR(S5) 0330 PRINT "STANDARD ERROR OF ESTIMATE=";SQR(S2/(N-2)) 0340 PRINT 0350 PRINT 0360 PRINT "DO YOU WISH TO ESTIMATE VALUES OF Y FROM " 0370 PRINT "THE REGRESSION CURVE? (1=YES,0=NO)" 0380 INPUT X 0390 IF X=0 THEN 999 0400 PRINT "INPUT X" 0410 INPUT X 0420 PRINT "Y=";A+B*X 0430 PRINT 0440 PRINT "ANOTHER POINT? (1=YES,0=NO)" 0450 GOTO 380 0999 END