%%% 下面用MATLAB實現(xiàn)哈夫曼編碼的例程（以子函數(shù)形式給出）:
clear all;
fprintf('Reading data ....')
data=imread('E:\temp\originalimage(holl).bmp')
data=uint8(data);% 讀入數(shù)據(jù)，并將數(shù)據(jù)限制為unit8型 
fprintf('Done!\n')
fprintf('Comqressing data...')
[zipped,info]=norm2huff(data);  %進行壓縮編碼
fprintf('Done!\n')
fprintf('Decomqressing data...')
unzipped=huff2norm(zipped,info);% 進行解壓縮
fprintf('Done!\n')
isOK=isequal(data(:),unzipped(:)) %顯示壓縮效果
whos data zipped unzipped
%%%%%%%%%%   norm2huff   %%%%%%%%%%
% NORM2HUFF 哈夫曼編碼器
% 對于輸入向量，NORM2HUFF(X) 返回向量的哈夫曼編碼后的碼串
%  矩陣用X(:)形式輸入
%  輸入限制為 unit8格式，輸出為unit8的序列
%  [….,info] 返回解碼需要的解碼信息
% INFO.pad =最后添加的比特數(shù)
% INFO.huffcodes=Huffman碼字
% INFO.ratio=壓縮率
% INFO.length=原始數(shù)據(jù)長度
% INFO.maxcodelen=最大碼長
% function  [zipped, info]  = norm2huff(vector)
if ~isa(vector,'unit8'),
    error ('input argument must be a unit8 vector');
end                  %保證輸入為unit8的數(shù)據(jù)
vector = vector(:)';      %將輸入向量轉(zhuǎn)換為行向量
f=frequency(vector);    %計算個元素出現(xiàn)的概率
simbols=find(f~=0);     %尋找數(shù)出現(xiàn)的所有元素
f=f(simbols);
[f,sortindex]=sort(f);     %將元素按照出現(xiàn)概率排列
simbols=simbols(sortindex);
len=length(simbols);
simbols_index=num2cell(1:len);
codeword_tmp=cell(len,1);
while length(f)>1,
    index1=simbols_index{1};
    index2=simbols_index{2};
    codeword_tmp(index1)=addnode(codeword_tmp(index1),unit8(0));
    codeword_tmp(index2)=addnode(codeword_tmp(index1),unit8(1));
    f=[sum(f(1:2))   f(3:end)];
    simbol_index=[{[index1 index2]} simbols_index(3:end)];
    %將數(shù)據(jù)重新排列，是兩個節(jié)點的頻率盡量與前一個節(jié)點的頻率相當
    [f,sortindex]=sort(f);
    simbols_index=simbols(sortindex);
end  %對應(yīng)相應(yīng)的元素和碼字
codeword=cell(256,1);
code(simbols)=codeword_tmp;  %計算總的字符串長度
len=0;
for index=1:length(vector),
    len=len+length(codeword{double(vector(index))+1});
end    %產(chǎn)生0 1序列
string=repmat(unit8(0),1,len);
pointer=1;
for index=1:length(vector),
    code = codeword{double(vector(index))+1};
    len=length(code);
    string(pointer+(0:len-1))=code;
    poiter=pointer+len;
end
%如果需要的話加零
len=length(string);
pad=8-mod(len,8);
if pad>0,
    string =[string unit8(zeros(1,pad))];
end
%保存實際有用的碼字
codewod=codeword(simbols);
codelen=zeros(size(codeword));
weights=2.^(0:23);
maxcodelen=0;
for index=1:length(codeword),
    len=length(codeword{index});
    if len>maxcodelen,
        maxcodelen=len;
    end
    if len>0,
        code=sum(weights(codeword{index}==1));
        code=bitset(code,len+1);
        codeword(index)=code;
        codelen(index)=len;
    end
end
codeword=[codeword{:}];
%計算壓縮后的向量
cols=length(string)/8;
string=reshape(string,8,cols);
weights=2.^(0:7);
zipped=uni8(weights*double(string));
%存儲數(shù)據(jù)到一個稀疏矩陣
huffcodes=sparse(1,1);
for index=1:numel(codeword),
    huffcodes(codeword(index),1)=simbols(index);
end
%產(chǎn)生信息結(jié)構(gòu)體
info.pad=pad;
info.huffcodes=huffcodes;
info.rato=cols./length(vector);
info.length=length(vector);
info.maxcodelen=maxcodelen;
%%%%%%%%%%  addnode %%%%%%%%%%%%
function codeword_new=addnode(codeword_old,item)
codewod_new=cell(size(codeword_old)),
codeword_new{index}=[item codeword_old{index}];
%%%%%%%%    huff2norm      %%%%%%%%%%%%
function vector =huff2norm(zipped,info)
% HUFF2NORM   哈夫曼解碼器
if ~isa(zipped,'unit8'),
    error('input argument must be a unit vector')
end   %產(chǎn)生01 序列
len=length(zipped );
string=repmat(unit8(0),1,len.*8);
bitindex=1:8;
for index =1:len,
    string(bitindex+8.*(index-1))  ,
    unit8(bitget(zipped(index),bitindex));
end    %調(diào)整字符串
string=logical(string(:)');
len=length(string);
string((len-info.pad.l+1):end)=[ ];
len=length(string);   %解碼
weights=2>(0:51);
vector=repmat(unit8(0),1,info.length);
vectorindex=1;
codeindex=1;
code=0;
for index=1:len,
    code=bitset(code,codeindex,string(index));
    codeindex=codeindex+1;
    byte=decode(bitset(code,codeindex),info);
    if byte>0,
        vector(vectorindex)=byte-1;
        codeindex=1;
        code=0;
        vectorindex=vectorindex+1;
    end
end
%%%%%%%%%%%%%     decode       %%%%%%%%%%
function byte=decode(code,info)
byte=info.huffcode(code);
% %%%%%%%%%%   frequence  %%%%%%%%%%
function f=frequency(vector)  
% FREQUENCY 計算元素出現(xiàn)概率     
if ~isa(vector,'unit8'),
    error('input argument must be a unit8 vector ')
end
f=repmat(0,1,256);  %掃描向量
len=length(vector);
for index=1:255,
   f(index+1)=sum(vector==unit8(index));
end  %歸一化
f=f./len;
% 運行上述程序，得到結(jié)果為： 
%  Name              Size             Bytes              Class             
%  data    	256*256	65535           unit8 arrray
%  unzipped           1*65535	         65535           unit8 arrray
%  zipped             1*57712          57712           unit8 arrray     
%  Grand  total is 188784 elements using 188784 bytes     
% 其中壓縮的信息結(jié)構(gòu)體info 為：
%         pad:7
%    huffcodes:[108471*1  double]   
%        ratio:0.8806
%       length:65535
% maxcodelen:16