main_design.m

运行主函数

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