WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаМатематика, Геометрія, Статистика → Теорія імовірностей та математична статистика - Реферат

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

t:=xi[t];
Edit6.Text:=t;
end
else begin
t:=m/2;k:=t;
t:=xi[k];
s1:=t;
t:=xi[k+1];
s2:=t;
Edit6.Text:='[' + s1 + ',' + s2 + ']';
end;
{Середнє}
ser:=0;
for i:=1 to n do
ser:=ser+p[i];
ser:=ser/n;
t:=ser; Edit15.Text:=t;
{Deviacia}
tx:=0;
for i:=1 to n do
tx:=tx+(p[i]-ser)*(p[i]-ser);
t:=tx;
Edit8.Text:=t;
{Variansa}
if n1 then sx:=tx/(n-1);t:=sx;
Edit9.Text:=t;
sx:=0;
{momenty}
for i:=1 to n do {1}
sx:=sx+p[i]-ser;
sx:=sx/n;
t:=sx;
Edit7.Text:=t;
tx:=tx/n;t:=tx; {2}
Edit12.Text:=t;
sx:=0;
for i:=1 to n do {3}
sx:=sx+(p[i]-ser)*(p[i]-ser)*(p[i]-ser);
sx:=sx/n;
t:=sx;
Edit13.Text:=t;
{Assymetrija}
if tx0 then sx:=sx/(sqrt(tx)*sqrt(tx)*sqrt(tx));
t:=sx;
Edit10.Text:=t;
sx:=0;
for i:=1 to n do {4}
sx:=sx+(p[i]-ser)*(p[i]-ser)*(p[i]-ser)*(p[i]-ser);
sx:=sx/n;
t:=sx;
Edit14.Text:=t;
{Eksces}
if tx0 then sx:=sx/(tx*tx)-3;
t:=tx;
Edit11.Text:=t;
{rozpodil function}
s2:=xi[1]; sx:=0;
Memo1.lines[0]:='0, x<' + s2;
for i:=1 to m-1 do begin
sx:=sx+wi[i];
t:=sx;
s1:=t;
s2:=xi[i];
s3:=xi[i+1];
Memo1.lines[i]:=s1 + ', ' + s2 + '=for i:=1 to m do begin
Form2.StringGrid1.Cells[i,0]:=xi[i];
Form2.StringGrid1.Cells[i,1]:=ni[i];
Form2.StringGrid1.Cells[i,2]:=wi[i];
end;
end
else begin
sx:=v[n]-v[1];
i:=1;
r:=1;
while ii:=2*i;
r:=r+1;
end;
sx:=sx/(r-1)-0.2;
xi := VarArrayCreate([0,r-1], varDouble);
ni := VarArrayCreate([0,r-1], varInteger);
wi := VarArrayCreate([0,r-1], varDouble);
w := VarArrayCreate([0,r-1], varVariant);
xi[1]:=v[1]-0.2; s1:=xi[1];s2:=v[1]+sx;
Form2.StringGrid1.Cells[1,0]:='[' + s1 + ';' + s2 + ')';
xi[r-1]:=v[n]-sx; s1:=xi[r-1];
s2:=v[n]+0.2;
Form2.StringGrid1.Cells[r-1,0]:='[' + s1 + ';' + s2 + ']';
for i:=2 to r-2 do begin
xi[i]:=xi[i-1]+sx; s1:=xi[i]; s2:=xi[i]+sx;
Form2.StringGrid1.Cells[i,0]:='[' + s1 + ';' + s2 + ']';
end;
i:=1;j:=1;
while iif v[i]ni[j]:=ni[j]+1;
i:=i+1;
end
else if j<=r-1 then j:=j+1;
end;
ni[r-1]:=ni[r-1]+1;
sn:=0;
for i:=1 to r-1 do begin
sn:=sn+ni[i];
Form2.StringGrid1.Cells[i,1]:= ni[i];
end;
for i:=1 to r-1 do begin
w[i]:=Form2.StringGrid1.Cells[i,0];
wi[i]:=ni[i]/sn;
Form2.StringGrid1.Cells[i,2]:= wi[i];
end;
{moda}
t:=ni[1];
for i:=1 to r-1 do
if t<=ni[i] then begin
t:=ni[i];
k:=i;
end;
Edit4.text:='{';
for i:=1 to r-1 do
if t=ni[i] then begin
s1:=xi[i]+sx/2;
Edit4.text:=Edit4.Text + s1;
if ki then Edit4.Text:=Edit4.Text + ','
else Edit4.Text:=Edit4.Text + '}';
end;
{mediana}
if r-1 mod 20 then begin
t:=r/2; s1:=w[t];
Edit6.Text:=s1;
end
else begin
t:=(r-1)/2;
s1:=xi[t+1]+sx-sx/2;
s2:=xi[t+1]+sx+sx/2;
Edit6.Text:='[' + s1 + ';' + s2 + ']';
end;
{rozpodil function}
s2:=xi[1]; w[1]:=0;
Memo1.lines[0]:='0, x<' + s2;
for i:=1 to r-1 do begin
w[1]:=w[1]+wi[i];
t:=w[1];
s1:=t;
s2:=xi[i];
s3:=xi[i]+sx;
Memo1.lines[i]:=s1 + ', ' + s2 + '={serednie}
tx:=0;
for i:=1 to n do
tx:=tx+p[i];
ser:=tx/n;t:=ser;
Edit15.text:=t;
{Deviacia}
tx:=0;
for i:=1 to n do
tx:=tx+(p[i]-ser)*(p[i]-ser);
t:=tx;
Edit8.Text:=t;
{Variansa}
if n1 then dx:=tx/(n-1);t:=dx;
Edit9.Text:=t;
{momenty}
for i:=1 to n do {1}
dx:=dx+p[i]-ser;
dx:=dx/n;
t:=dx;
Edit7.Text:=t;
tx:=tx/n;t:=tx; {2}
Edit12.Text:=t;
dx:=0;
for i:=1 to n do {3}
dx:=dx+(p[i]-ser)*(p[i]-ser)*(p[i]-ser);
dx:=dx/n;
t:=dx;
Edit13.Text:=t;
{Assymetrija}
if tx0 then dx:=dx/(sqrt(tx)*sqrt(tx)*sqrt(tx));
t:=dx;
Edit10.Text:=t;
dx:=0;
for i:=1 to n do {4}
dx:=dx+(p[i]-ser)*(p[i]-ser)*(p[i]-ser)*(p[i]-ser);
dx:=dx/n;
t:=dx;
Edit14.Text:=t;
{Eksces}
dx:=dx/(tx*tx)-3;
t:=tx;
Edit11.Text:=t;
s:=ser;
end;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
Form3.ShowModal;
end;
end.
unit Unit3;
interface
uses main, unit2,
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, graphsv3;
type
TForm3 = class(TForm)
Graph1: TGraph;
Graph2: TGraph;
Graph3: TGraph;
Graph4: TGraph;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.DFM}
procedure TForm3.FormActivate(Sender: TObject);
var i,j:integer;dx:double;nxi,fi:variant;
begin
dx:=sx;
sx:=0;
if typ=true then begin
Graph1.RandomData:=0;
Graph1.GraphTitle:='Гістограма';
Graph1.GraphType:=3;
Graph1.NumPoints:=m;
for i:=1 to m do begin
Graph1.Data[i]:=ni[i];
Graph1.XPosData:=xi[i];
end;
Graph2.RandomData:=0;
Graph2.GraphTitle:='Полігон';
Graph2.GraphType:=6;
Graph2.NumPoints:=m;
for i:=1 to m do begin
Graph2.Data[i]:=ni[i];
Graph2.XPosData:=xi[i];
end;
Graph3.RandomData:=0;
Graph3.GraphTitle:='Діаграма';
Graph3.GraphType:=6;
Graph3.GraphStyle:=2;
Graph3.NumPoints:=m;
for i:=1 to m do begin
Graph3.XPosData:=xi[i];
Graph3.Data[i]:=ni[i];
end;
Graph4.RandomData:=0;
Graph4.GraphTitle:='Функція розподілу';
Graph4.GraphType:=6;
Graph4.NumPoints:=2*m+2;
fi := VarArrayCreate([0,2*m+2], varDouble);
nxi := VarArrayCreate([0,2*m+2], varDouble);
for i:=1 to m do begin
sx:=wi[i]+sx;
fi[2*i]:=sx-wi[i];
fi[2*i+1]:=sx;
nxi[2*i]:=xi[i];
nxi[2*i+1]:=xi[i];
end;
fi[2*m+2]:=1;
nxi[1]:=xi[1]-s;
nxi[2*m+2]:=xi[m]+s;
j:=0;
for i:=1 to 2*m+2 do begin
Graph4.Data[i]:=fi[i];
Graph4.XPosData:=nxi[i];
end;
end
else begin
Graph1.RandomData:=0;
Graph1.GraphTitle:='Гістограма';
Graph1.GraphType:=3;
Graph1.NumPoints:=r-1;
for i:=1 to r-1 do begin
Graph1.Data[i]:=ni[i];
Graph1.XPosData:=xi[i];
end;
Graph2.RandomData:=0;
Graph2.GraphTitle:='Полігон';
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];
fi[2*i+1]:=sx;
nxi[2*i]:=xi[i];
nxi[2*i+1]:=xi[i];
end;
fi[2*(r-1)+2]:=1;
nxi[1]:=xi[1]-3;
nxi[2*(r-1)+2]:=xi[r-1]+3;
j:=0;
for i:=1 to 2*(r-1)+2 do begin
Graph4.Data[i]:=fi[i];
Graph4.XPosData:=nxi[i];
end;
end;
end;
end.
Список літератури
1. Крамер Гарольд. Математические методы статистики. М.: Мир, 1976.
2. Бух Арлей. Введение в теорию вероятностей и математическую
Loading...

 
 

Цікаве