《香农费诺编码的matlab实现》由会员分享，可在线阅读，更多相关《香农费诺编码的matlab实现（6页珍藏版）》请在装配图网上搜索。
1、信息论与编码实验
香农 -- 费诺编码的 matlab 实现
学院：
班级：
姓名： 学号：
摘要:
用预先规定的方法将文字、数字或其他对象编成数码，或将信息、数 据转换成规定的电脉冲信号。编码在电子计算机、电视、遥控和通讯等方 面广泛使用。其中费诺编码有广泛的应用 , 通过本次实验 , 了解编码的具体 过程,通过编程实现编码 , 利用 matlab 实现费诺编码。
关键字 ： 信息论，费诺编码， matlab
正文：
费诺编码也是一种常见的信源编码方法。 信源符号以概率递减的次序排列进 来,将排列好的信源符号划分为两大组 , 使第组的概率和近于相同 ,并各赋于一
2、个 二元码符号 ”0和””1”然.后 ,将每一大组的信源符号再分成两组 ,使同一组的两个小 组的概率和近于相同 , 并又分别赋予一个二元码符号 .依次下去 ,直至每一个小组 只剩下一个信源符号为止 .这样 ,信源符号所对应的码符号序列则为编得的码字 .
香农 -- 费诺编码的 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:n
B(i,1)=A(i);% 生成 B 的第 1 列
end
%生成 B 第 2 列的
3、元素 a=sum(B(:,1))/2;
for k=1:n-1
if abs(sum(B(1:k,1))-a)<=abs(sum(B(1:k+1,1))-a)
break;
end
end
for i=1:n% 生成 B 第 2 列的元素
if i<=k
B(i,2)=0;
else
B(i,2)=1;
end
end
%生成第一次编码的结果
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
4、x==-1 break;
else if B(q,j-1)==x y=1; continue;
else y=0; break;
end
end
end
if y==1 q=q+1;
end
if q==p|q-p==1 B(p,j)=-1;
else
if 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-2
if abs(sum(B(p:k,1))-a)<=abs(sum(
5、B(p:k+1,1))-a); break;
end end for i=p:q-1 if i<=k
B(i,j)=0;
END(i)=[char(END(i)),'0'];
else B(i,j)=1; END(i)=[char(END(i)),'1'];
end
end
end
end
p=q;
end
C=B(:,j); D=find(C==-1); [e,f]=size(D);
if e==n j=0;
else
j=j+1;
end end B A END for i=1:n
[u,v]=size(char(END(i))); L(i)=v;
end
6、 avlen=sum(L.*A)
CoBBand ffindov
口问冈
Zilc Edit, Duhag Qoklop Window Ifclp
0.4COC
0
-1. 0030
-1.0009
・ 1. 0000
-1.0000
-1.
0000
0.3COC
1.0300
0
-1.0003
-1. 0000
-1.0000
■1.
0000
0. 1C0C
1.0300
1.DODO
D
-1. 0000
-1.0000
-1.
0000
0.0700
1.0000
1.00 JO
1.000H
0
-1.00
7、00
-1.
0000
0.0400
1.0000
1. DOJO
1.0003
1. 0000
0
-1.
0000
0
1.0900
J. 0030
1.0009
1. 0000
1.0000
-1.
0000
A =
0.4000
0. JJUU
0. 1UJU
u.uruj
0. 04UU
0
END =
10, 110, )110, 11110, lllllj
avLcn =
1.7800
U. LI口 LII」 J
实验总结:
香农费诺编码的matlab实现
