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

  SS:=SS+V[J]*Y[J];
  O[14]:=O[14]+V[J]*V[J];
 end;
B[14]:=SS/O[14]; SS:=0; O[15]:=0;
for J:=1 to X do
 begin
  SS:=SS+I[J]*V[J]*Y[J];
  O[15]:=O[15]+(I[J]*V[J])*(I[J]*V[J]);
 end;
B[15]:=SS/O[15]; SS:=0; O[16]:=0;
for J:=1 to X do
 begin
  SS:=SS+P[J]*V[J]*Y[J];
  O[16]:=O[16]+(P[J]*V[J])*(P[J]*V[J]);
 end;
B[16]:=SS/O[16]; SS:=0; O[17]:=0;
for J:=1 to X do
 begin
  SS:=SS+U[J]*K[J]*Y[J];
  O[17]:=O[17]+(U[J]*K[J])*(U[J]*K[J]);
 end;
B[17]:=SS/O[17]; SS:=0; O[18]:=0;
for J:=1 to X do
 begin
  SS:=SS+U[J]*Q[J]*Y[J];
  O[18]:=O[18]+(U[J]*Q[J])*(U[J]*Q[J]);
 end;
B[18]:=SS/O[18]; SS:=0; O[19]:=0;
for J:=1 to X do
 begin
  SS:=SS+I[J]*P[J]*V[J]*Y[J];
  O[19]:=O[19]+(I[J]*P[J]*V[J])*(I[J]*P[J]*V[J]);
 end;
B[19]:=SS/O[19]; SS:=0; O[20]:=0;
for J:=1 to X do
 begin
  SS:=SS+I[J]*U[J]*Q[J]*Y[J];
  O[20]:=O[20]+(I[J]*U[J]*Q[J])*(I[J]*U[J]*Q[J]);
 end;
B[20]:=SS/O[20]; SS:=0; O[21]:=0;
for J:=1 to X do
 begin
  SS:=SS+P[J]*U[J]*K[J]*Y[J];
  O[21]:=O[21]+(P[J]*U[J]*K[J])*(P[J]*U[J]*K[J]);
 end;
B[21]:=SS/O[21]; SS:=0; O[22]:=0;
for J:=1 to X do
 begin
  SS:=SS+K[J]*V[J]*Y[J];
  O[22]:=O[22]+(K[J]*V[J])*(K[J]*V[J]);
 end;
B[22]:=SS/O[22]; SS:=0; O[23]:=0;
for J:=1 to X do
 begin
  SS:=SS+Q[J]*V[J]*Y[J];
  O[23]:=O[23]+(Q[J]*V[J])*(Q[J]*V[J]);
 end;




                                              470