unmentr.m

来自「fs1016w编码标准matlab源码」· M 代码 · 共 10 行

function H=unmentr(Aprob)
%求无记忆时的熵

H=0;
l=size(Aprob,2);
for i=1:l
   if~Aprob(i)==0
        H=H-Aprob(i)*log2(Aprob(i));
   end 
end