信息论与编码实验程序与结果图(matlab)(共4页).doc

结果图信源熵实验程序：clc; close all; clear;linwidd=1fontt=20p0=0; pd=1; N=20p=linspace(p0,pd,N);I=-log2(p);plot(p,I,k);title(I=-log2(p)函数图);xlabel(p);ylabel(I); clc; close all; clear;linwidd=1fontt=20p0=0; pd=1; N=20p=linspace(p0,pd,N);H=-p.*log2(p)-(1-p).*log2(1-p);plot(p,H,k);title(H=-p.*log2(p)-(1-p).*log2(1-p)函数图);xlabel(p);ylabel(H);信道容量实验程序：clc; close all; clear;linwidd=1fontt=20p0=0; pd=1; N=20p=linspace(p0,pd,