image of READY prompt

Wang2200.org

Listing of file='5A ' on disk='vmedia/glbr_22.wvd.zip'

# Sector 856, program filename = '5A'
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
0065 Y=LOG(Y)
0066 X=LOG(X)
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 "A=";EXP(A)
0170 PRINT "B=";B
0180 S1=B*(S5-S1*S2/N)
0190 S4=S4-S2^2/N
0195 S2=S4-S1
0197 STOP
   : PRINT HEX(03)
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=";EXP(A)*X^B
0430 PRINT
0440 PRINT "ANOTHER POINT? (1=YES,0=NO)"
0450 GOTO 380
0999 END