qqq.asv

Matlab sources codes

function q = qqq (s,n)
l=2^n;m=max(abs(s));
d=2*m/l;
for b=1 : length(s)
    for a=1:l
        if s(b)<=-m+(a*d);
            q(b)=a-1;break
        end
    end
end