Вычислительная техника при моделировании. Черный А.А. - 71 стр.

   begin
     I[J]:=ste(F[J],J1)+V1;
     K[J]:=ste(F[J],O1)+U1*ste(F[J],J1)+Q1;
     L[J]:=ste(F[J],P1)+I1*ste(F[J],O1)+M1*ste(F[J],J1)+F1;
     M[J]:=ste(F[J],T1)+G1*ste(F[J],P1)+H1*ste(F[J],O1)
     +K1*ste(F[J],J1)+L1;
   end;
 end;{GB4290}
procedure GB4170;
 begin
  for J:=1 to X do
   begin
     P[J]:=ste(H[J],J2)+V2;
     Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
   end;
 end;{GB4170}
procedure GB4190;
 begin
  for J:=1 to X do
   begin
     U[J]:=ste(L[J],J3)+V3;
     V[J]:=ste(L[J],O3)+U3*ste(L[J],J3)+Q3;
   end;
 end;{GB4190}
procedure GB4250;
 begin
  for J:=1 to X do
   begin
     P[J]:=ste(H[J],J2)+V2;
     Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
     U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
   end;
 end;{GB4250}
procedure GB4340;
 begin
  for J:=1 to X do
   begin
     P[J]:=ste(H[J],J2)+V2;
     Q[J]:=ste(H[J],O2)+U2*ste(H[J],J2)+Q2;
     U[J]:=ste(H[J],P2)+I2*ste(H[J],O2)+M2*ste(H[J],J2)+F2;
     V[J]:=ste(H[J],T2)+G2*ste(H[J],P2)+H2*ste(H[J],O2)
     +K2*ste(H[J],J2)+L2;
   end;
 end;{GB4340}
procedure GB4400;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*L[J];
 end;{GB4400}
procedure GB4420;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*L[J]+B[5]*M[J];
 end;{GB4420}
procedure GB4450;
 begin
  for J:=1 to X do
   begin
     N3:=B[1]+B[2]*I[J]+B[3]*K[J]+B[4]*P[J];
     N4:=B[5]*I[J]*P[J]+B[6]*Q[J]+B[7]*I[J]*Q[J];
     N5:=B[8]*P[J]*K[J]+B[9]*K[J]*Q[J];
     Z[J]:=N3+N4+N5;
   end;

                                                   71