function Lm=SrednjaDuzinaKodneReci(kodnereci,P)
%SrednjaDuzinaKodneReci  Racuna srednju duzinu reci.
%   Lm=SrednjaDuzinaKodneReci(kodnereci,P) racuna srednju duzinu reci skupa kodnih reci.
%   Parametar kodnereci je niz celija (cell aray) cija svaka celija predstavlja 
%   jednu kodnu rec. Svaka kodna rec je predstavljena kao niz karaktera (string).
%   Parametar P je vektor verovatnoca pojavljivanja odgovarajucih reci iz skupa
%   kodnih reci.

n=length(kodnereci);    %broj kodnih reci
Lm=0;                    %inicijalizacija promenljive

%povratak iz funkcije jer P nije vektor verovatnoca
s=sum(P);
if (s < 1-eps) | (s > 1+eps)    % eps - standardna tolerancija za realne brojeve u MATLABu
    return      
end

%povratak iz funkcije ako kodnereci i P nisu iste duzine
if length(P)~=n
    return
end

%racunanje srednje duzine kodne reci    
for i=1:n
    Lm=Lm+P(i)*length(kodnereci{i});  %length(kodnereci{i}) je duzina i-te kodne reci
end