信息论与编码实验报告(4)

END(i)=END1(x(d)); end y=B(n,j+1);

END(t-1)=[char(END1(y)),'0']; END(t)=[char(END1(y)),'1']; t=t+1; END1=END; end

A%排序后的原概率序列 END%编码结果 for i=1:n

[a,b]=size(char(END(i))); L(i)=b; end

avlen=sum(L.*A)%平均码长 H1=log2(A); H=-A*(H1')%熵 P=H/avlen%编码效率