bintohex.m

此为基于二代提升小波的阈值压缩算法源码

%-------------------------------------------------------------------
% 函数说明：二进制转化成十六进制
% 输入参数：bin为二进制，此时二进制数按位存储，length为此二进制数的长度
% 返回值：得到对应的十六进制数
%-----------------------------------------------------------------
function [hex]=BintoHex(bin,length)
	
    cell='0123456789ABCDEF'; 
    j=rem(length,4);
    if ( j== 0)
	    len = length;
    else len = length + (4-j);
    end
	buf = zeros(1,len);
	dec = zeros(1,len/4);
    hex = zeros(1,len/4);
    
    if j==0
        j=4;
    end
    i=4-j+1:len;%计算从哪位开始赋值
    buf(i)=bin(i-(4-j));%，赋值，高位前补零
	for i = len/4:-1:1
		dec(len/4-i+1) = buf(len-i*4+4)+buf(len-i*4+3)*2+buf(len-i*4+2)*2*2+buf(len-i*4+1)*2*2*2;%从高位开始，四位一组，转化为10进制表示的数
    end
    hex=cell(rem(dec,16)+1);