int2bin.asv

用离散余弦变换实现JPEG编码

%整形转换成二进制数
function b = int2bin(x,n)


x = abs(x);
if nargin==2,
  if max(x) >= 2^n,
     error(' x must be smaller than 2^n')
  end
elseif nargin==1,
  n=max(floor(log2(abs(x)))+1);
end
idx=diag(2^(diag([n-1:-1:0])));
for j=1:n
   tmp = x - sign(x)*idx(j).*[x~=0];
     % if x > 0, tmp = x - 2^(n-j), if x < 0, tmp=x+2^(n-j)
   b= [b [tmp >= 0].*[x~=0]];
   x=tmp;
end