Теорія імовірностей та математична статистика

Graph2.GraphType:=6;

Graph2.NumPoints:=r-1;

for i:=1 to r-1 do begin

Graph2.Data[i]:=ni[i];

Graph2.XPosData:=xi[i]+dx/2;

end;

Graph3.RandomData:=0;

Graph3.GraphTitle:='Діаграма';

Graph3.GraphType:=6;

Graph3.GraphStyle:=2;

Graph3.NumPoints:=r-1;

for i:=1 to r-1 do begin

Graph3.XPosData:=xi[i]+dx/2;

Graph3.Data[i]:=ni[i];

end;

Graph4.RandomData:=0;

Graph4.GraphTitle:='Функція розподілу';

Graph4.GraphType:=6;

Graph4.NumPoints:=2*(r-1)+2;

fi := VarArrayCreate([0,2*(r-1)+2], varDouble);

nxi := VarArrayCreate([0,2*(r-1)+2], varDouble);

sx:=0;

for i:=1 to r-1 do begin

sx:=wi[i]+sx;

fi[2*i]:=sx-wi[i];