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