6 Haziran 2014 Cuma

confidence interval...(randg,progressbar,array of double,extended)

procedure TForm1.Button1Click(Sender: TObject);
var
 mu,sigma:extended;
 i,n:integer;
 x:array of double;
 xbar,s,se,alt,ust,tablo:real;
begin
 Randomize;
 memo1.clear;
 mu:=strtofloat(edit1.text);
 sigma:=strtofloat(edit2.text);
 n:=strtoint(edit3.text);
 SetLength(x,n);
 ProgressBar1.Max:=n;
for i:=0 to n-1 do
begin
  x[i]:=RandG(mu,sigma);
  memo1.Lines.add(floattostr(x[i]));
  ProgressBar1.Position:=i+1;
end;
 xbar:=mean(x);
 s:=stddev(x);
 se:=s/sqrt(n);
 tablo:=strtofloat(edit4.text);
 alt:=xbar-(se*tablo);
 ust:=xbar+(se*tablo);
 edit5.text:=floattostr(alt);
 edit6.text:=floattostr(ust);
 memo2.Lines.add(formatfloat('0.000',alt)+';'+formatfloat('0.000',ust));
end;

end.




Hiç yorum yok:

Yorum Gönder