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

   end;
  B[15]:=SS/O[15];
 end;{GB1670}
procedure GB1730;
 begin
  SS:=0; O[16]:=0;
  for J:=1 to X do
   begin
     SS:=SS+L[J]*Y[J];
     O[16]:=O[16]+L[J]*L[J];
   end;
  B[16]:=SS/O[16]; SS:=0; O[17]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*L[J]*Y[J];
     O[17]:=O[17]+(P[J]*L[J])*(P[J]*L[J]);
   end;
  B[17]:=SS/O[17]; SS:=0; O[18]:=0;
  for J:=1 to X do
   begin
     SS:=SS+Q[J]*L[J]*Y[J];
     O[18]:=O[18]+(Q[J]*L[J])*(Q[J]*L[J]);
   end;
  B[18]:=SS/O[18]; SS:=0; O[19]:=0;
  for J:=1 to X do
   begin
     SS:=SS+L[J]*U[J]*Y[J];
     O[19]:=O[19]+(L[J]*U[J])*(L[J]*U[J]);
   end;
  B[19]:=SS/O[19]; SS:=0; O[20]:=0;
  for J:=1 to X do
   begin
     SS:=SS+L[J]*V[J]*Y[J];
     O[20]:=O[20]+(L[J]*V[J])*(L[J]*V[J]);
   end;
  B[20]:=SS/O[20];
 end;{GB1730}
procedure GB1830;
 begin
  SS:=0; O[21]:=0;
  for J:=1 to X do
   begin
     SS:=SS+M[J]*Y[J];
     O[21]:=O[21]+M[J]*M[J];
   end;
  B[21]:=SS/O[21]; SS:=0; O[22]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*M[J]*Y[J];
     O[22]:=O[22]+(P[J]*M[J])*(P[J]*M[J]);
   end;
  B[22]:=SS/O[22]; SS:=0; O[23]:=0;
  for J:=1 to X do
   begin
     SS:=SS+Q[J]*M[J]*Y[J];
     O[23]:=O[23]+(Q[J]*M[J])*(Q[J]*M[J]);
   end;




                                             501