function[y]=pocetzmen(x)

x=sign(x); %znamienka v postupnosti x
x(x==0)=[]; %odstranenie prvkov v postupnosti, ktore su nuly
mn=find(x==-1); %do mn sa vratia indexy pozicii prvkov so zapornymi znamienkami
mp=find(x==1); %do mp sa vratia indexy pozicii prvkov s kladnymi znamienkami
%Vypocet znamienkovych zmien
mnz=mn(2:end)-mn(1:end-1); 
k1=length(mnz(mnz>1)); 
mpz=mp(2:end)-mp(1:end-1); 
k2=length(mpz(mpz>1)); 
y=k1+k2+(~isempty(mn))*(~isempty(mp)); %celkovy pocet znamienkovych zmien + 1 (ta prva zmena)

end

%x = [4,-5,8,7,-2,0,4,0,8,-1]
%x(x==0)=[]
%result = numel(find(diff(sign(x))))