Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 65 стр.

    R7:=(ste(A,R6)+ste(B,R6)+ste(C,R6)+ste(D,R6)+ste(E,R6))/5;
    S4:=S+W;
    S5:=(ste(A,S4)+ste(B,S4)+ste(C,S4)+ste(D,S4)+ste(E,S4))/5;
    V0:=-N0;
    U0:=(N0*R0-N5)/(N3-N0*N0);
    Q0:=-(R0+U0*N0);
    P0:=(N0*S0-N7)/(N3-N0*N0);
    Z1:=R0*S0-R5+P0*(N0*R0-N5);
    Z2:=U0*(N0*S0-N7)+U0*P0*(N0*N0-N3);
    Z3:=R3-R0*R0+2*U0*(N5-N0*R0);
    I0:=(Z1+Z2)/(Z3+(N3-N0*N0)*U0*U0);
    M0:=I0*U0+P0;
    F0:=-(S0+I0*R0+M0*N0);
    Z4:=R0+U0*N0;
    Z5:=Z4*N0-N5-U0*N3;
    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

                                    65