function prob_func = prob_func_single_person(n,plt)

% Vraci pravdepodobnostni funkci (rozdeleni) nahodne veliciny, ktera
% vyjadruje, kolik pokusu potrebuje osoba k nalezeni druheho priboru.
%
% n.....pocet priboru, ktere prichazeji k dane osobe
% plt...boolean, zda vykreslit tuto dilci prstni funkci

%% kontrola
if nargin<2
    plt=false;
end

%% vypocet
for k = n:(-1):1
    citat = n:(-1):(n-k+1);
    jmenov = [2*n-k, (2*n-1):(-1):(2*n-k+1)];
    prob_func(k) = prod(citat./jmenov);
end

% sum(prob_func)


%% vykresleni histogramu
if plt
    figure
    h1 = bar(prob_func); %vykresli relativni cetnosti
    title(['Rozdeleni prsti pokusu k vytazeni vidlicky pro n=' num2str(n) ' priboru'])
    % xlabel('k')
    % ylabel('Cetnost / pravdepodobnost')
    % legend(['histogram z ' num2str(n) ' simulaci'], 'teoreticky vypocet')
    axis tight
end