dmessage.m

霍夫曼编码

%离散信源的平均信息量,x为和为1的n个概率值矩阵
function r=dmessage(x,n)
r=0;
for i=1:n
    r=r-x(i)*log(x(i))/log(2);
end
disp('此离散信源的平均信息量为');
r