%NIZI vrne tabelo odstotkov ponovitev nizov z 
%vsemi stevili enakimi,
%dvema razlicnima, ... , k razlicnimi
%dolzina niza je d, d>=k
%ponovitve=NIZI(d,k,r,n);
%generiramo n nizov
function ponovitve=nizi(d,k,n);
  ponovitve=zeros(1,k);%tabela, v kateri stejemo kolikokrat so
  %bila vsa stevila enaka, dve razlicni,... 
  rand('seed',sum(100*clock));
  for i=1:n
    vzorec=ceil(d*rand(1,k)); %generiramo niz k stevil med 1 in d 
    razlicnih=unique(vzorec); %izlocimo ponovitve
    r=length(razlicnih); %prestejemo koliko je razlicnih
    ponovitve(r)=ponovitve(r)+1; 
  end 
  pie(ponovitve);
  ponovitve=ponovitve./n;
 
