function b=bit2(vreca_bitova,varijanca,brkoef)
% Dodijela bitova cjelobrojno - Pohlepni postupak

% Autor: Peter Skoda

% Inicijalizacija pojaseva
b=zeros(size(varijanca)); % svi u nuli

% Podijela bitova po pojasevima
while vreca_bitova>0, % dok vreca nije prazna
	i=find(varijanca==max(varijanca)); % nadji pojas s najvecom varijancom
	if length(i)>1, % ako ih postoji vise
        i=i(ceil(rand(1)*3)); % izaberi jedan slucajno
	end
	vreca_bitova=vreca_bitova-brkoef(i); % uzmi bitove iz vrece
	if vreca_bitova>=0, % ako nismo u minusu
        b(i)=b(i)+1; % dodaj jedan bit pojasu
        varijanca(i)=varijanca(i)/2; % smanji varijancu pojasa na pola
	end
end