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

     SS:=SS+K[J]*Q[J]*V[J]*Y[J];
     O[27]:=O[27]+(K[J]*Q[J]*V[J])*(K[J]*Q[J]*V[J]);
   end;
  B[27]:=SS/O[27];
 end;{GB2040}
procedure GB3660(A,B,E,N,R:real; var V0,U0,Q0:real);
 var L2,N0,R0,N3,N4,N5:real;
 begin
  N0:=(ste(A,N)+ste(B,N)+ste(E,N))/3;
  R0:=(ste(A,R)+ste(B,R)+ste(E,R))/3;
  L2:=2*N;
  N3:=(ste(A,L2)+ste(B,L2)+ste(E,L2))/3;
  N4:=N+R;
  N5:=(ste(A,N4)+ste(B,N4)+ste(E,N4))/3;
  V0:=-N0;
  U0:=(N0*R0-N5)/(N3-N0*N0);
  Q0:=-(R0+U0*N0);
 end;{GB3660}
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 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 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;
 end;{GB4450}
procedure GB4390;
 begin
  for J:=1 to X do
   Z[J]:=B[1]+B[2]*I[J]+B[3]*K[J];
 end;{GB4390}




                                                390