% rozk³ad dwumianowy
k=10;    %ilo¶æ powtórzeñ
lim=[.6 .3 .18];
subpl=1;
for k=[5 20]
    for  p=[1/6 .5 0.8]
        subplot(2, 3, subpl); binom(k,p); 
        set(gca,'ylim', [0 lim(ceil(subpl/3))])
        subpl=subpl+1;
    end
end
% rozk³ad ilo¶ci szóstek w piêciu rzutach kostk±
figure; 
a=binom(5,1/6)
% ile razy by³o wiêcej ni¿ dwie szóstki
p=sum(a(3:6))
b=binom(100,p); sum(b(22:length(b)))
