huffmantree.m

晓波压缩编码源程序及相关文档好东西

%%%%%%%%%%%%%%%%%%%%%%%%%            HuffmanTree      %%%%%%%%%%%%%%%%%%%%%%%%

function htree = HuffmanTree(pro)
% 
% 
n=size(pro,2);
tree=ones(6,2*n-1); 
tree(1,:)=1:(2*n-1); 
tree(5,n+1:end)=0; 
tree(2,1:n)=pro;
tree(6,1:end)=0; 
for i=(n+1):(2*n-1);
    [l,r]=findminval(tree);
    tree(2,i)=tree(2,l)+tree(2,r); 
    tree(5,i)=1; 
    tree(3,l)=i;tree(3,r)=i; 
    tree(4,l)=0;tree(4,r)=1; 
    tree(5,l)=0;tree(5,r)=0;
    tree(6,i)=1;
end
htree=tree;