Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 158 стр.

 end;{GB940}
procedure GB1110;
 begin
  SS:=0; O[17]:=0;
  for J:=1 to X do
   begin
     SS:=SS+V[J]*Y[J];
     O[17]:=O[17]+V[J]*V[J];
   end;
  B[17]:=SS/O[17];
  SS:=0; O[18]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*V[J]*Y[J];
     O[18]:=O[18]+(I[J]*V[J])*(I[J]*V[J]);
   end;
  B[18]:=SS/O[18];
  SS:=0; O[19]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*V[J]*Y[J];
     O[19]:=O[19]+(P[J]*V[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]*P[J]*V[J]*Y[J];
     O[20]:=O[20]+(I[J]*P[J]*V[J])*(I[J]*P[J]*V[J]);
   end;
  B[20]:=SS/O[20];
  SS:=0; O[21]:=0;
  for J:=1 to X do
   begin
     SS:=SS+U[J]*V[J]*Y[J];
     O[21]:=O[21]+(U[J]*V[J])*(U[J]*V[J]);
   end;
  B[21]:=SS/O[21];
  SS:=0; O[22]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*U[J]*V[J]*Y[J];
     O[22]:=O[22]+(I[J]*U[J]*V[J])*(I[J]*U[J]*V[J]);
   end;
  B[22]:=SS/O[22];
  SS:=0; O[23]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*U[J]*V[J]*Y[J];
     O[23]:=O[23]+(P[J]*U[J]*V[J])*(P[J]*U[J]*V[J]);
   end;
  B[23]:=SS/O[23];

                                           158