ВУЗ:
Составители:
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
- …
- следующая ›
- последняя »