% Mamy 10 pomiarów pewnej wielko¶ci:\\ 
z=[0.02 0.026 0.023 0.017 0.022 0.019 0.018 0.018 0.017 0.022];
% Proszê znale¼æ ¶redni± i 95\% przedzia³
% ufno¶ci. Czy pomiarów jest wystarczaj±co du¿o aby sensownie wyznaczyæ
% ¶redni± i przedzia³ ufno¶ci?
mi_z=mean(z);
disp(sprintf('srednia = %.2f', mi_z))
N=length(z);
N_rep=1e6;
mi_z_rep=zeros(1,N_rep);
for i=1:N_rep
    mi_z_rep(i)=mean(randsample(z,N,true));
end

gr=prctile(mi_z_rep,[2.5 97.5]);
disp(sprintf(...
    'srednia i jej 95 proc przedzial ufnosci[%.4f %.4f %.4f]'...
    ,gr(1),mi_z,gr(2)));
subplot(211)
[n,x]=hist(z,[0.0170  0.0180    0.0190 0.0200    0.0220    0.0230    0.0260]);
stem(x,n)
subplot(212)
hist(mi_z_rep,30)