1 ZZ=0
4 DATA 5.3734,10
5 DATA .05,0,6.14,5.35,10.09,8.75,13.50,11.86,17.00,14.84,19.61,17.13,22.64,19.90,23.60,20.71,28.08,24.70,31.91,28.11
10 DIM X(100),Y(100),Z(100),Q(1)
12 INPUT "data statement of keyboard (data or key)";A$:IF A$="data" THEN ZZ=1
15 LPRINT CHR$(27);CHR$(18);CHR$(27);CHR$(14)
20 LPRINT "        LINEAR LEAST SQUARES"
25 LPRINT:LPRINT:LPRINT CHR$(27)CHR$(15)
26 LPRINT "                         ACID/BASE TITRATION":LPRINT:LPRINT
27 IF ZZ=1 THEN 32
30 INPUT "WEIGHT OF KHP";G
31 GOTO 35
32 READ G,N
35 KK=4*G/204.22
40 LPRINT USING "     KHP concentration =    ##.#####";KK:LPRINT
45 IF ZZ=1 THEN 60
50 INPUT "How many points";N
60 A=0:B=0:C=0:D=0:E=0
70 FOR I=1 TO N
75 IF ZZ=1 THEN 85
80 INPUT "give acid and base volumes";X(I),Y(I)
81 GOTO 90
85 READ X(I),Y(I)
90 A=A+X(I)
100 B=B+Y(I)
110 C=C+X(I)*Y(I)
120 D=D+X(I)^2
130 E=E+Y(I)^2
140 NEXT I
150 M=(N*C-A*B)/(N*D-A^2)
160 K=(D*B-A*C)/(N*D-A^2)
170 LPRINT "     Item             x(i)         y(i)       y(calc)       diff"
180 FOR I=1 TO N
190 Z(I)=M*X(I)+K
200 LPRINT USING "    ###             ###.##       ###.##       ###.##       ##.###";I,X(I),Y(I),Z(I),Y(I)-Z(I)
210 NEXT I
220 LPRINT:IF K<0 THEN 250
230 LPRINT USING "     EQUATION:   y = ##.##### x + ##.#####";M,K
240 GOTO 260
250 LPRINT USING "     EQUATION:   y =  ##.##### x   ##.#####";M,K
260 T1=E-B^2/N
270 T2=(C-A*B/N)^2
280 T3=D-A^2/N
290 S1=(T1-T2/T3)/(N-2)
295 SD=SQR(S1)
300 LPRINT:LPRINT "     variance = ";S1;";  standard dev. = ";SD:LPRINT:LPRINT
310 C1 = KK/M:LPRINT
320 LPRINT "     Concentration of y is ";C1
