clc
clear
L=10;
n=10;
tek=10000;
for j=1:tek
for i=1:n
u=rand;
x(i)=-L*log(1-u);
end
ort(j)=mean(x);
mcort=mean(ort)
mcvar=var(ort)
z=(ort-ones(1,tek))*mcort*(1/sqrt(mcvar));
hist(z)
s=0;
for r=1:tek
if z(r)<=1.64
s=s+1;
ol=s/tek
Hiç yorum yok:
Yorum Gönder