2entropy.m

来自「现代通信系统书第四章程序（电子工业出版社）」· M 代码 · 共 9 行

function h=bientrop(p)
% h=bientrop(p) Returns the binary entropy function of the components 
%		of the vevtor p.
n=length(p);
for i=1:n
p1=[p(i) 1-p(i)];
h(i)=entropy(p1);
end