.. " N- " ()

.. " " ( )

. " " ( )

.. " " ( )

. " . - " ( )
booksonchemistry.com -> -> -> .. -> " " -> 40

- ..

.. , 2001. 158 c.
ISBN 5-7511-1449-3
( ): metodlinearizacii2001.djvu
<< 1 .. 34 35 36 37 38 39 < 40 > 41 42 43 44 45 .. 46 >>

189 Goldman J // J Electi oanalyt. Chem 1966 - 11 4 -C 255,
- 6. - 416 424
190 Goldman J A// Ibid - 1967 -14 4 373
191 Goldman J.A// Ibid - 1968 16 C. 47, -18 1 -2 -C41 197
// - 1989 - 44 - 3 556 193
1 /
. , - ,
1979 480
124

194. / 11

1. 1966 143
195
. - 1990 -253
196 AnchoniSsT GheAM Valchei S //Talanta 1984 -31 -5 1 315
197 Lingane J J Hartley AM //Anal chini acta 1954 - 11 -5 -C 4/5
198 Hartmann H Scholzel //Z phys Chem., N 1-9 1956 -C 106
199. /' in - 1958. 11 88


TITR

{ ()
()
}
PROGRAM TITR;
USES CRT,STAT;
LABEL 5,10,15,30;
VAR
X, Y, W, V,G,R,BETA,BR,U,FN :RA;
LI, L2,L3,L,I,N,J.J1 INTEGER,
F:ARRAY[1..2] OF DOUBLE;
D,VO,P,Q,SIGM,ETA,T,CT,DPS,INFPS,SUPPS,TETA,Z,VEQ,VEQO,
B,B1,B2,B3,B4,B5,B6,WN,SWXY,SWX,SWY,SWX2,SWY2,
INFPSO,SUPPSO,DIAP,GO,H,PSOPT,C,CAP,YO,DVEQ,DYO,
K,A,DK,PS,FT:DOUBLE;IMF:STRING[30]; FF:TEXT;
KK,CH:CHAR,
BEGIN
REPEAT CLRSCR,WRITE(' 1 -> , 2 -> '); READLN(KK)
UNTIL (KK=T) OR (KK='2I);
IF KK-2' THEN BEGIN
WR1TEC N=');
READLN(N);
WRITELN(' PACTBOFA V0,'); WRITECVO^.
READLN(VO);
WR1TELNC P,Q,SIGM,ErA');
WRITE(' -); READLN(P);
WRITE(' Q='); READLN(Q);
WRITE(' SIGM-); READLN(SIGM);
126

WRITEf ETA-); READLN(ETA);
T = TQN(N-1,0.95); WRITELN(' '); WRITFLN('T-,T:6:3);
WRITELNC CT, /');
WRITEC -); READLN(CT);
WRITELNC L1,L2,L3'); WRITEC L1-);
READLN(Ll);
WRITEC L2^)- READLN(L2);
WRITEC L3=l); READLN(L3);
WRITELNC D'); WRITEC D='); READLN(D);
IF (Ll=l) OR (L2=0) THEN BEGIN
WRITELNC GO');
WRITEC G0=');READLN(G0)
END;
IF (L1=0) THEN BEGIN
WRITELNC DPS - PS1);
WRITEC DPS-); READLN(DPS);
WRITELNC PS');
WRITEC INFPS0-); READLN(INFPSO);
WRITELNC PS1);
WRITEC SUPPS0-); READLN(SUPPSO)
END;
IF ((Ll=l) OR (L2=l)) AND (L3=0) THEN BEGIN
WRITELNC
=2.303 RT/F); WRITEC -); READLN(TETA);
WRITELNC
11 ');
WRITEC Z='); READLN(Z);CAP: =Z/TETA END;

WRITELNC , ');
FOR I:=l N DO BEGIN
WRITE(' V(',1:2,')='); READLN(V[I])
END;
WRITELNC
');
FOR I:=l N DO BEGIN
WRITE(' G(',I:2,')='); READLN(G[I])
END
END
ELSE
BEGIN
WRITE(* '); READLN(IMF); ASSIGN(FF,IMF);
RESET(FF); READ(FF,N);
READLN(FF,VO);
READLN(FF,P);
READLN(FF,Q);
READLN(FF,SIGM);
READLN(FF,ETA);
T:=TQN(N-1,0.95);
READLN(FF,CT);
READLN(FF,L1);
READLN(FF,L2),
READLN(FF,L3);
READLN(FF,D);
IF (Ll=l) OR (L2=0) THEN READLN(FF,GO);
IF (L1=0) THEN BEGIN
READLN(FF,DPS);
READLN(FF,INFPSO);
READLN(FF,SUPPSO)
END;
IF (<L1=1) OR (L2=l)) AND (L3=0) THEN BEGIN
128

READLN(FF,TETA);
READLN(FF,Z);CAP:=Z/TETA
END;
FOR 1=1 TO N DO READLN(FF,V[I]);
FOR I:=l TO N DO READLN(FF,G[I]);
CLOSE(FF)
END;
REPEAT
CLRSCR;WRITEC -> 1,->0');
READLN(CH)
UNTIL (=') OR (-');
IF =' THEN BEGIN
WRITE(' ');
READLN(lMF);
ASSIGN(FF,IMF); REWRITE(FF)
END;
VEQ0:=0;J:=0;J1:=0;
IF (LI=1) OR (L2=0) THEN BEGIN
B:=P/Q;B 1 :=SIGM/Q-1
END
ELSE
BEGIN
B:=Q/P; BL1-SIGM/P END;
IF LI=0 THEN B2:=SIGM-Q;
B3:=SIGM-P-Q;B4:=P-SIGM;
IF (L1=0) AND (L2=0) THEN BEGIN
B5 :=SIGM/Q+1; B6:=P/Q-1 END;WN:=1/N;
FOR I:=l TO N DO
BEGIN
W[I] ~WN;
IF (LI =1) OR (L2=0) THEN BETA[I]:=(VO+V[I])/VO

ELSE BETA[I]:=VO+V[I];
END;
5: J1:=J1+1;L:=0;
WHILE L1=T DO BEGIN IF Jl-1 THEN BEGIN
FOR I:=l TON DO BEGIN
IF L3=l THEN R[I]:=G[I]/GO ELSE
R[IJ:=EXP(2.3026*CAP*(G[I]-G0));
BR[I]:-BETA[I]*R[I];
X[I]:=EXP(B*LN(R[I])+B1*LN(BETA[I]/(1-BR[I]))); X[I] :=X[I] *D; Y[I]
:=X[I] * V[I]/(1 -BR[I])
END
END;SUM(N,X,Y,W,SWX,SWY,SWXY,SWX2,SWY2); F[ 1 ] :=FK(SWX,S W
Y,SWXY,SWX2,SWY2);GOTO 30 END;
<< 1 .. 34 35 36 37 38 39 < 40 > 41 42 43 44 45 .. 46 >>

2011 BooksOnChemistry. .