% spocita a zobrazi vysledek ulohy o rozebirani priboru

N = 7;

%% vypocet
[prst, nosic] = prob_func_complete(N);


%% vykresleni histogramu
%close all
h1 = bar(nosic, prst); %vykresli prst. rozdeleni
% set(h1,'BarWidth',0.3);
title(['Rozdeleni pravdepodobnosti celkoveho poctu pokusu pro N=' num2str(N) ' priboru'])
xlabel('Pocet pokusu vedouci k rozebrani priboru')
ylabel('Pravdepodobnost')
axis tight