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

    function r=cmessage(f)
t=-f*log(f)/log(2);
r=int(t,-inf,inf);
disp('平均信息量为');
r=double(r);