function tau = rand_delay(lambda)

% funzione che calcola il ritardo di un pacchetto data la funzione di
% probabilita lambda
% lambda e' un vettore di elementi dove lambda(k)=\lambda_{k-1} secondo la
% terminologia usata a lezione

list = find(lambda>=rand);
if isempty(list)
    tau = inf;
else
    tau = list(1)-1;
end
