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