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

  SS:=0; O[3]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*Y[J];
     O[3]:=O[3]+P[J]*P[J];
   end;
  B[3]:=SS/O[3];
  SS:=0; O[4]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*P[J]*Y[J];
     O[4]:=O[4]+(I[J]*P[J])*(I[J]*P[J]);
   end;
  B[4]:=SS/O[4];
 end;{GB810}
procedure GB850;
 begin
  SS:=0; O[5]:=0;
  for J:=1 to X do
   begin
     SS:=SS+U[J]*Y[J];
     O[5]:=O[5]+U[J]*U[J];
   end;
  B[5]:=SS/O[5];
  SS:=0; O[6]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*U[J]*Y[J];
     O[6]:=O[6]+(I[J]*U[J])*(I[J]*U[J]);
   end;
  B[6]:=SS/O[6];
  SS:=0; O[7]:=0;
  for J:=1 to X do
   begin
     SS:=SS+P[J]*U[J]*Y[J];
     O[7]:=O[7]+(P[J]*U[J])*(P[J]*U[J]);
   end;
  B[7]:=SS/O[7];
  SS:=0; O[8]:=0;
  for J:=1 to X do
   begin
     SS:=SS+I[J]*P[J]*U[J]*Y[J];
     O[8]:=O[8]+(I[J]*P[J]*U[J])*(I[J]*P[J]*U[J]);
   end;
  B[8]:=SS/O[8];
 end;{GB850}
procedure GB940;
 begin
  SS:=0; O[9]:=0;
  for j:=1 to X do
   begin
     SS:=SS+Q[J]*Y[J];

                                            156