% W próbce 20 testowanych baterii stwierdzono 
% ¶redni czas ¿ycia 28.85 miesi±ca. 
% Okre¶liæ 95\% przedzia³ ufno¶ci dla ¶redniej. 
% Warto¶ci dla badanej próbki by³y nastêpuj±ce:\\
z=[ 30 32 31 28 31 29 29 24 30 31 ...
    28 28 32 31 24 23 31 27 27 31];% miesiêcy\\

mi_z=mean(z);
disp(sprintf('sredni czas zycia = %.2f', mi_z))
N=length(z);
N_rep=1e4;
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[%.2f %.2f %.2f]'...
    ,gr(1),mi_z,gr(2)));

normplot(z)

s=std(z);
disp([tinv(0.025,N-1) tinv(0.975,N-1)]*s/sqrt(N)+mi_z)
