function [intBin,decBin]=decnum2bin(num,qLevel)
intBin=dec2bin(num)
lenIB=length(intBin);
decpart=num-floor(num);
decBin=[];
if (qLevel+1)>lenIB
    intBin=zeros(1,qLevel+1);
elseif qLevel>=0
    binlist=intBin;
    binlist(end-qN+1:end)=0;
else
    N=-1;
    res=decpart;
    while (N>=qLevel)&&(res>2^qLevel)
        res=decpart-2^N;
        if res==0
            decBin=[decBin,1];
            decBin(end+1:-qLevel)=0;
            break;
        elseif res>0
            decBin=[decBin,1];
        else
            decBin=[decBin,0];
        end
        N=N-1;
    end
    binlist=[intBin,decBin];
end