P0 1 S=T/N:B=(V-S*U)/(W-S*T):A=(U-B*T)/N:C=A:GOSUB P+1:GOTO 6 2 RETURN 3 GOTO 5 4 RETURN 5 C=LN C:RETURN 6 Q=U*U/N:R=(C*U+B*V-Q)/(Z-Q):PRINT "a=";A,"b=";B,"r^2";R 7 INPUT "x= ",F:IF F<=0 THEN 7 8 GOSUB P*10:PRINT "EXPECTED y =",G:GOTO 7 10 G=A+B*F:RETURN 20 E=EXP 1 21 G=E^(B*F):G=A*G:RETURN 30 G=A+B*LN F:RETURN 40 G=A*F^B:RETURN P1 1 VAC 2 $="LINEAR":P=1:GOTO#5 P2 1 VAC 2 $="EXPONENTIAL":P=2:GOTO#5 P3 1 VAC 2 $="LOGARITHMIC":P=3:GOTO#5 P4 1 VAC 2 $="POWER":P=4:GOTO#5 P5 3 PRINT "REGRESSION ANALYSIS";-P;":",$ 4 PRINT "ROUND ";N+1:N=N+1:INPUT "x=",X,"y=",Y:GOSUB P+4:GOTO 9 5 RETURN 6 Y=LN Y:RETURN 7 X=LN X:RETURN 8 X=LN X:GOTO 6 9 T=T+X:U=U+Y:V=V+X*Y:W=W+X*X:Z=Z+Y*Y:GOTO 4