%Zawarto¶æ procentowa aluminium w 18 antycznych naczyniach z Teb by³a
%nastêpuj±ca:
al=[11.4 13.4 13.5 13.8 13.9 14.4 14.5 15 15.1 15.8 16 16.3 16.5 16.9 17 17.2 17.5 19.0];
%Jaka jest mediana procentowej zawarto¶ci aluminium i
%jaki jest 95\% przedzia³ ufno¶ci.
N=length(al);
N_rep=1e4;
me=zeros(1,N_rep);
for i=1:N_rep
    x=randsample(al,N,true);
    me(i)=median(x);
end
med=median(al);
gr=prctile(me,[2.5 97.5]);
disp(sprintf('mediana i jej 95 proc przedzial ufnosci[%.2f %.2f %.2f]',gr(1),med,gr(2)));
