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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

82
end;{GB2510}
procedureGB2520;
begin
forJ:=1toXdo
Q[J]:=ste(K[J],J4)+V4;
end;{GB2520}
procedureGB2530;
begin
forJ:=1toXdo
V[J]:=ste(M[J],J5)+V5;
end;{GB2530}
procedureGB2540;
begin
forJ:=1toXdo
Z[J]:=B[1]+B[2]*I[J];
end;{GB2540}
procedureGB2550;
begin
forJ:=1toXdo
Z[J]:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
end;{GB2550}
procedureGB2570;
begin
forJ:=1toXdo
begin
N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
Z[J]:=N3+N4+B[8]*I[J]*P[J]*U[J];
end;
end;{GB2570}
procedureGB2600;
begin
forJ:=1toXdo
begin
N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
N6:=B[11]*P[J]*Q[J]+B[12]*I[J]*P[J]*Q[J]+B[13]*U[J]*Q[J];
N7:=B[14]*I[J]*U[J]*Q[J]+B[15]*P[J]*U[J]*Q[J];
Z[J]:=N3+N4+N5+N6+N7+B[16]*I[J]*P[J]*U[J]*Q[J];
end;
end;{GB2600}
procedureGB2670;
begin
forJ:=1toXdo
begin
N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
 end;{GB2510}
procedure GB2520;
 begin
  for J:=1 to X do
   Q[J]:=ste(K[J],J4)+V4;
 end;{GB2520}
procedure GB2530;
 begin
  for J:=1 to X do
   V[J]:=ste(M[J],J5)+V5;
 end;{GB2530}
procedure GB2540;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J];
 end;{GB2540}
procedure GB2550;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
 end;{GB2550}
procedure GB2570;
 begin
  for J:=1 to X do
   begin
    N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
    N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
    Z[J]:=N3+N4+B[8]*I[J]*P[J]*U[J];
   end;
 end;{GB2570}
procedure GB2600;
 begin
  for J:=1 to X do
   begin
    N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
    N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
    N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
    N6:=B[11]*P[J]*Q[J]+B[12]*I[J]*P[J]*Q[J]+B[13]*U[J]*Q[J];
    N7:=B[14]*I[J]*U[J]*Q[J]+B[15]*P[J]*U[J]*Q[J];
    Z[J]:=N3+N4+N5+N6+N7+B[16]*I[J]*P[J]*U[J]*Q[J];
   end;
 end;{GB2600}
procedure GB2670;
 begin
  for J:=1 to X do
   begin
    N3:=B[1]+B[2]*I[J]+B[3]*P[J]+B[4]*I[J]*P[J];
    N4:=B[5]*U[J]+B[6]*I[J]*U[J]+B[7]*P[J]*U[J];
    N5:=B[8]*I[J]*P[J]*U[J]+B[9]*Q[J]+B[10]*I[J]*Q[J];
                                                                82

Страницы