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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

57
writeln(F0,Z[J]:10,'');
end;
write(F0,'');
writeln(F0,'');
end;
end;{OUT_F_H_L}
procedureGB2820;
begin
writeln(F0,'Математическаямодель');
ifX=2then
begin
writeln(F0,'X=2.Model');
writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J),');
end;
ifX=4then
begin
writeln(F0,'X=4.Model');
writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
writeln(F0,'+',B[4],'*I(J)*P(J),');
end;
ifX=8then
begin
writeln(F0,'X=8.Model');
writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
writeln(F0,'+',B[8],'*I(J)*P(J)*U(J),');
end;
ifX=16then
begin
writeln('X=16.Model');
writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
writeln(F0,'X=16.Model');
writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');
writeln(F0,'+',B[12],'*I(J)*P(J)*Q(J)+',B[13],'*U(J)*Q(J)+');
writeln(F0,'+',B[14],'I(J)*U(J)*Q(J)+',B[15],'*P(J)*U(J)*Q(J)+');
writeln(F0,'+',B[16],'I(J)*P(J)*U(J)*Q(J),');
end;
ifX=32then
begin
writeln(F0,'X=32.Model');
writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
       writeln(F0,Z[J]:10,' ');
     end;
   write(F0,'                                                     ');
   writeln(F0,'                                               ');
  end;
 end;{OUT_F_H_L}
procedure GB2820;
 begin
  writeln(F0,'Математическая модель');
    if X=2 then
    begin
    writeln(F0,'X=2. Model');
    writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J),');
    end;
    if X=4 then
    begin
    writeln(F0,'X=4. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'+',B[4],'*I(J)*P(J),');
    end;
    if X=8 then
    begin
    writeln(F0,'X=8. Model');
    writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
    writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
    writeln(F0,'+',B[8],'*I(J)*P(J)*U(J),');
    end;
    if X=16 then
    begin
    writeln('X=16. Model');
    writeln('Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'X=16.Model');
    writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
    writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
    writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
    writeln(F0,'+',B[10],'*I(J)*Q(J)+',B[11],'*P(J)*Q(J)+');
    writeln(F0,'+',B[12],'*I(J)*P(J)*Q(J)+',B[13],'*U(J)*Q(J)+');
    writeln(F0,'+',B[14],'I(J)*U(J)*Q(J)+',B[15],'*P(J)*U(J)*Q(J)+');
    writeln(F0,'+',B[16],'I(J)*P(J)*U(J)*Q(J),');
    end;
    if X=32 then
    begin
    writeln(F0,'X=32. Model');
    writeln(F0,'Z(J)=',B[1],'+',B[2],'*I(J)+',B[3],'*P(J)+');
    writeln(F0,'+',B[4],'*I(J)*P(J)+',B[5],'*U(J)+');
    writeln(F0,'+',B[6],'*I(J)*U(J)+',B[7],'*P(J)*U(J)+');
    writeln(F0,'+',B[8],'*I(J)*P(J)*U(J)+',B[9],'*Q(J)+');
                                                                        57

Страницы