function c=qqq3(x,n)
l=2^n;
m=max(abs(x));
d=2*m/l;
y=((l-1)/2:-1:-(l-1)/2)*d;
z=[[l-1:-1:l/2],[0:(l/2)-1]];

for a=1:numel(x)
 di=abs(x(a)-y);
    f=find(min(di)==di);
    c(a)=z(f);
end