
function S = subordinatepass(sublist,threshold) 
% 
% Funkcija za racunanje povratnog prolaza
% 
% Autori  : Davor Zivko i Dario Zrno
% Projekt : Kompresija slike EZW algoritmom
% Kolegij : Napredne metode digitalne obrade signala, sk.god. 2004/05
% 
% function S = subordinatepass(sublist,threshold)
%
% Ulazi funkcije:
%         sublist............. matrica znacajnih koeficijenata
%         threshold........... trenutna vrijednost praga
% 
% Izlaz funkcije:
%         S................... binarna matrica, koja ima 1 za koeficijente
%                              jednake pragu, a 0 za razlicite od praga
%

S=[];

% broj koeficijenata
[m,n]=size(sublist);

% ova petlja zapisuje S = 1 ako je koeficijent jednak pragu, a 0 ako je
% razlicit od praga
for i=1:n;
    if bitand(sublist(1,i),threshold)==threshold,
        % if sublist(1,i)>=threshold,
        S=[S,1];
        % sublist(1,i)=sublist(1,i)-threshold;
    else S=[S,0]; 
    end
end