function b=cd2b(x,n)
    y=fix(x); 
i=1;
while true
    if y~=0
    a(i)=mod(y,2);
    s=y/2;
    y=fix(s);
    i=i+1;
    else
     
    break;
    
    end    
end

    if numel(a)<n
        for i=0:n-numel(a)-1
            a=[a 0];
        end
    else 
        m=a;
        for j=1:n
            c(j)=m(j);
        end
       a=c; 
    end

 c=fliplr([a]);
b=[c,abs(x(a)-y)];

c(1)=[];
end