main.m

运行主函数

close all 
clear all
echo on
p=[0.2, 0.15,0.13,0.12,0.1,0.09,0.08,0.07,0.06];
[h,l]=huffman(p);%生成哈夫曼码矩阵h和一个概率向量为p的信源的码字长度
H=entropy(p);%计算概率向量为p的信源的比特熵
pause %按任意键可看到Huffman码字
h 
pause %按任意键可看到平均码字长度
l
pause %按任意键可看到信源比特熵
H