function c=get_imf_comp(s);

h1=s;
count=1;
flag=10;
while (flag~=0 & flag~=1)
hU=imf_shft1(h1);
hL=-imf_shft1(-h1);
m1=(hU+hL)/2;
h1=h1-m1;
L_z=zero_count(h1);
L_opt=zero_count(diff(h1));
flag=abs(L_z-L_opt);
count=count+1;
end
%count
c=h1;


