function [podil_zavesenych]=telefon(lambda, inv_mi, pocet_hovoru)
% funkce pro simulaci volani na telefonni linku
% synatxe: podil_zavesenych=telefon(lambda, inv_mi, pocet_hovoru)
% vstupni parametry: lambda ... intenzita prichozich hovoru
%                    inv_mi ... prumerna delka hovoru
%                    pocet_hovoru ... pocet simulovanych hovoru
% vystupni parametr: podil_zavesenych ... procento ztracenych hovoru

% pocet volani (zjistime, zatim 0)
pocet_volani=0;
% okamzik nejblizsiho volani
t_prichod=0;
% aktualni cas simulace
t=0;
mi=1/inv_mi;
for i=1:pocet_hovoru
    % cas ukonceneho hovoru
    t=t-log(rand)/mi;
    while t_prichod<=t % je/li linka obsazena, volajici zavesi
        pocet_volani=pocet_volani+1;
        t_prichod=t_prichod-log(rand)/lambda;
    end
    % cas zacatku noveho hovoru
    t=t_prichod;
end
podil_zavesenych=(pocet_volani-pocet_hovoru)/pocet_volani;
