10 DIM X[50],Y[50] 20 PRINT "PLEAS ENTER NUMBER OF CASES" 25 INPUT N 30 PRINT "ENTER THE CASES X,Y" 35 FOR I=1 TO N 40 INPUT X[I],Y[I] 45 NEXT I 9000 LET O=P=X=Y=Z=T=S=U=V=W=0 9005 FOR I=1 TO N 9010 LET X=X+X[I] 9015 LET Y=Y+Y[I] 9020 LET Z=Z+(I*X[I]) 9025 LET T=T+(I*Y[I]) 9030 LET W=W+(X[I]*Y[I]) 9035 LET O=O+(X[I]^2) 9040 LET P=P+(Y[I]^2) 9050 LET S=S+I 9060 NEXT I 9105 LET M=(N*W-X*Y)/(N*O-X^2) 9110 LET V=(O*Y-W*X)/(N*O-X^2) 9115 LET Q=(N*O-X^2)*(N*P-Y^2) 9120 LET R=(N*W-X*Y)/(SQR(Q)) 9150 PRINT 9151 PRINT 9155 PRINT TAB(15)"LEAST SQUARES FIT OF DATA" 9156 PRINT 9157 PRINT 9160 PRINT TAB(20)"SLOPE ="M 9165 PRINT TAB(20)"Y COORD ="V 9170 PRINT TAB(20)"R ="R 9172 PRINT 9990 PRINT 9991 PRINT 9998 PRINT TAB(25)"END OF PROGRAM" 9999 END READY ~