香农费诺编码的matlab实现

1、信息论与编码实验香农 - 费诺编码的 matlab 实现学院： 班级： 姓名： 学号：摘要:用预先规定的方法将文字、数字或其他对象编成数码，或将信息、数 据转换成规定的电脉冲信号。编码在电子计算机、电视、遥控和通讯等方 面广泛使用。其中费诺编码有广泛的应用 , 通过本次实验 , 了解编码的具体 过程,通过编程实现编码 , 利用 matlab 实现费诺编码。关键字 ： 信息论，费诺编码， matlab正文：费诺编码也是一种常见的信源编码方法。 信源符号以概率递减的次序排列进 来,将排列好的信源符号划分为两大组 , 使第组的概率和近于相同 ,并各赋于一个 二元码符号 ”0和”1”然.后 ,将每一大

2、组的信源符号再分成两组 ,使同一组的两个小 组的概率和近于相同 , 并又分别赋予一个二元码符号 .依次下去 ,直至每一个小组 只剩下一个信源符号为止 .这样 ,信源符号所对应的码符号序列则为编得的码字 .香农 - 费诺编码的 matlab 实现 编码如下： clc;clear;A=0.4,0.3,0.1,0.09,0.07,0.04;A=fliplr(sort(A);% 降序排列m,n=size(A);for i=1:nB(i,1)=A(i);% 生成 B 的第 1 列end%生成 B 第 2 列的元素 a=sum(B(:,1)/2;for k=1:n-1if abs(sum(B(1:k,1)

3、-a)<=abs(sum(B(1:k+1,1)-a)break;endendfor i=1:n% 生成 B 第 2 列的元素if i<=kB(i,2)=0;elseB(i,2)=1;endend%生成第一次编码的结果END=B(:,2)'END=sym(END);%生成第 3 列及以后几列的各元素j=3;while (j=0)p=1;while(p<=n)x=B(p,j-1);for q=p:n if x=-1 break;else if B(q,j-1)=x y=1; continue;else y=0; break;endendendif y=1 q=q+1;en

4、dif q=p|q-p=1 B(p,j)=-1;elseif q-p=2 B(p,j)=0; END(p)=char(END(p),'0' B(q-1,j)=1; END(q-1)=char(END(q-1),'1'else a=sum(B(p:q-1,1)/2; for k=p:q-2if abs(sum(B(p:k,1)-a)<=abs(sum(B(p:k+1,1)-a); break;end end for i=p:q-1 if i<=kB(i,j)=0;END(i)=char(END(i),'0'else B(i,j)=1;

5、END(i)=char(END(i),'1'endendendendp=q;endC=B(:,j); D=find(C=-1); e,f=size(D);if e=n j=0;elsej=j+1;end end B A END for i=1:nu,v=size(char(END(i); L(i)=v;end avlen=sum(L.*A)CoBBand ffindov口问冈Zilc Edit, Duhag Qoklop Window Ifclp0.4COC0-1. 0030-1.0009 1. 0000-1.0000-1.00000.3COC1.03000-1.0003-1. 0000-1.00001.00000. 1C0C1.03001.DODOD-1. 0000-1.0000-1.00000.07001.00001.00 JO1.000H0-1.0000-1.00000.04001.00001. DOJO1.00031. 00000-1.000001.0900J. 00301.00091. 00001.0000-1.0000A =0.4000