Комплекс компьютерных программ эффективного математического моделирования на языке Турбо Паскаль. Черный А.А. - 223 стр.

  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
     U[J]:=ste(L[J],J3)+V3;
     V[J]:=ste(L[J],O3)+U3*ste(L[J],J3)+Q3;
   end;
 end;{GB4190}




                                                  223