Математическое моделирование. Черный А.А. - 232 стр.

   G3:=S5+I0*R7+M0*N9;
   G4:=T9*N0-T8;
   G5:=Z9-T9*S0-G4*P0;
   G6:=T9*R0-T7+G4*U0;
   G7:=G4*Z0+T9*W0-G3;
   G0:=(Z6*G7+Z8*G6)/(Z6*G5-Z7*G6);
   H0:=(G0*Z7+Z8)/Z6;
   K0:=G0*P0+H0*U0+Z0;
   L0:=-(W0+G0*S0+H0*R0+K0*N0);
  end;{GB3860}
 procedure GB4290;
  begin
   for J:=1 to X do
     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 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 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 GB4690;
  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]+B[8]*P[J]*K[J];
      N5:=B[9]*K[J]*Q[J]+B[10]*U[J]+B[11]*I[J]*U[J];
      N6:=B[12]*K[J]*U[J]+B[13]*V[J]+B[14]*I[J]*V[J]+B[15]*K[J]*V[J];
      N7:=B[16]*L[J]+B[17]*P[J]*L[J]+B[18]*Q[J]*L[J]+B[19]*L[J]*U[J];
      R3:=B[20]*L[J]*V[J]+B[21]*M[J]+B[22]*P[J]*M[J];
      R4:=B[23]*Q[J]*M[J]+B[24]*U[J]*M[J]+B[25]*M[J]*V[J];
      Z[J]:=N3+N4+N5+N6+N7+R3+R4;
     end;
  end;{GB4690}
end.

unit TPG3_3;
Interface
 uses tpg3_2;
 var
   grMode: Integer;
 procedure PR_MOD; procedure GB4880;
 procedure GB7000;



                                             232