%SLICICE ocena povprecnega stevila nakupov, da
%zberemo n razlicnih slicic, cena ene slicice c1
%[nakupov,cena]=SLICICE(n,c1)
function [nakupov,cena]=slicice(n,v,s,c1)
   T=zeros(1,n);
   st_nic=n;  
   clf  
   hold on;  
   axis off  
   spy(reshape(T,v,s));%v*s=n  
   nakupov=0; 
   while st_nic>0    
     nakupov=nakupov+1;    
     sl=ceil(n*rand(1));    
     if T(1,sl)==0       
       T(1,sl)=1;       
       st_nic=st_nic-1;    
     end    
     spy(reshape(T,v,s));    
    %pause(0.05);  
   end  
   cena=c1*nakupov;  
   hold off