entropy.m

来自「matlab下对huffman编码进行模拟.可以进一步帮助理解编码过程」· M 代码 · 共 18 行

function h=entropy(p)
% H=ENTROPY(P)  返回概率矢量P的熵函数。
if length(find(p<0))~=0,
    error('Not a prob.vector,negative component(s)')
end
if abs(sum(p)-1)>10e-10,
    error('Not aprob.vector,components do not add up to 1')
end
h=sum(-p.*log2(p));