Теория и практика эффективного математического моделирования. Черный А.А. - 362 стр.

    Z6:=R3+U0*N5-Z4*R0-Z5*U0;
    Z7:=Z4*S0+Z5*P0-R5-U0*N7;
    Z0:=(N0*W0-N9)/(N3-N0*N0);
    Z8:=Z5*Z0+Z4*W0-R7-U0*N9;
    Z9:=S3+I0*R5+M0*N7;
    T7:=R5+I0*R3+M0*N5;
    T8:=N7+I0*N5+M0*N3;
    T9:=S0+I0*R0+M0*N0;
    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 GB4150;
  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;
      end;
  end;{GB4150}
procedure GB4210;
  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;
      end;
  end;{Gb4210}
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 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




                                  362