www.gusucode.com > matlab通信工程仿真源码（张德丰等编著）程序书籍 > matlab_code/matlab通信工程仿真源码（张德丰等编著）/第7章/message.m

    function r=message(x,n)      %参数x是概率分布,n是离散信源的分布值数目
r=0;
for i=1:n
    r=r-x(i)*log(x(i))/log(2);
end
disp('此离散信源的平均信息量为');
r