率失真函数计算matlab程序-信息论

率失真函数计算matlab程序-信息论的程序，用于学习使用

function h=Hp（p）
%熵函数计算，输入是概率p（标量或一维矢量）
%输出是h与p同维度
h=zeros（1length（p））
index=find（p>0&p<1）;
P=p（index）;
h（index） = -P.*log（P）-（1-P）.*log（1-P）;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        184  2019-04-08 21:28  Hp.m

     文件       1485  2019-04-20 12:31  R_delta.m

     文件        433  2019-04-08 21:29  test1.m

     文件        380  2019-04-17 20:09  test2.m

----------- ---------  ---------- -----  ----

                 2482                    4