ВУЗ:
Составители:
70
readln(G[J]);
writeln(F0,'G(',J,')=',G[J]);
end;
SS:=0;
forJ:=1toN0doSS:=SS+G[J];
S0:=SS/N0;
writeln('S0=',S0);
SS:=0;writeln(F0,'S0=',S0);
forJ:=1toN0doSS:=SS+(G[J]‐S0)*(G[J]‐S0);
U9:=SS/F8;
writeln('ДисперсияопытовU9=',U9);
writeln(F0,'ДисперсияопытовU9=',U9);
end;
ifI0=4then
begin
writeln('ВводU9‐дисперсияопытов');
readln(U9);
writeln(F0,'U9‐дисперсияопытов=',U9);
end;
ifnot(I0=5)then
begin
writeln('РасчетныевеличиныT(J)');
writeln(F0,'РасчетныевеличиныT(J)');
forJ:=1toXdo
begin
T[J]:=abs(B[J]/sqrt(U9/O[J]));
writeln('T(',J,')=',T[J]);
writeln(F0,'T(',J,')=',T[J]);
end;
writeln('');
writeln('Дляуровнязначимости5%');
writeln('');
writeln('F823456');
writeln('');
writeln('T04,3033,1822.7762,5712,447');
writeln('');
writeln('F8=N0‐1=',N0,'‐1=',F8:1);
writeln('ВводT0‐табличногоT‐критерия');
readln(T0);
writeln(F0,'T‐критерийT0=',T0);
writeln('B(J)послеанализа');
writeln(F0,'B(J)послеанализа');
forJ:=1toXdo
begin
ifT[J]<T0thenB[J]:=0;
writeln('B(',J,')=',B[J]);
writeln(F0,'B(',J,')=',B[J]);
end;
K9:=0;
readln(G[J]);
writeln(F0,'G(',J,')=',G[J]);
end;
SS:=0;
for J:=1 to N0 do SS:=SS+G[J];
S0:=SS/N0;
writeln('S0=',S0);
SS:=0; writeln(F0,'S0=',S0);
for J:=1 to N0 do SS:=SS+(G[J]‐S0)*(G[J]‐S0);
U9:=SS/F8;
writeln('Дисперсия опытов U9=',U9);
writeln(F0,'Дисперсия опытов U9=',U9);
end;
if I0=4 then
begin
writeln('Ввод U9‐дисперсия опытов');
readln(U9);
writeln(F0,'U9‐дисперсия опытов =',U9);
end;
if not(I0=5) then
begin
writeln(' Расчетные величины T(J)');
writeln(F0,'Расчетные величины T(J)');
for J:=1 to X do
begin
T[J]:=abs(B[J]/sqrt(U9/O[J]));
writeln('T(',J,')=',T[J]);
writeln(F0,'T(',J,')=',T[J]);
end;
writeln(' ');
writeln(' Для уровня значимости 5% ');
writeln(' ');
writeln(' F8 2 3 4 5 6 ');
writeln(' ');
writeln(' T0 4,303 3,182 2.776 2,571 2,447 ');
writeln(' ');
writeln('F8=N0‐1=',N0,'‐1=',F8:1);
writeln('Ввод T0‐табличного T‐критерия');
readln(T0);
writeln(F0,'T‐критерий T0=',T0);
writeln(' B(J) после анализа');
writeln(F0,' B(J) после анализа');
for J:=1 to X do
begin
if T[J]Страницы
- « первая
- ‹ предыдущая
- …
- 68
- 69
- 70
- 71
- 72
- …
- следующая ›
- последняя »
