unmentr.m

fs1016w编码标准matlab源码

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