Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 70 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

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('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)послеанализа');
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]