离散信源最大熵定理的Matlab实现

clear all;
clc;
p=0:0.001:1;
H=-p .* log2(p)-(1-p) .* log2(1-p);
figure;
plot(p, H);
xlabel('p');
ylabel('H(p)');

从运行结果可以看出，在 p=1/2 处概率熵最大