（推荐）信息论与编码课程设计

《（推荐）信息论与编码课程设计》由会员分享，可在线阅读，更多相关《（推荐）信息论与编码课程设计（19页珍藏版）》请在装配图网上搜索。

1、如果您需要使用本文档，请点击下载按钮下载!信息论与编码课程设计报告设计题目：统计信源熵、香农编码与费诺编码 专业班级：XXXXXXXXXXXX 姓 名：XXXXXXXXXXXX 学 号：XXXXXXXXXXXX 指导老师：XXXXXXXXXXXX 成 绩： 时间：2015年3月31日如果您需要使用本文档，请点击下载按钮下载!目录一、 设计任务与要求.2二、 设计思路.2三、设计流程图.5四、程序及结果.7五、心得体会.11六、参考文献.12附录. .13如果您需要使用本文档，请点击下载按钮下载!一、 设计任务与要求1.统计信源熵要求：统计任意文本文件中各字符（不区分大小写）数量，计算字符概率，

2、并计算信源熵。2.香农编码要求：任意输入消息概率，利用香农编码方法进行编码，并计算信源熵和编码效率。3.费诺编码要求：任意输入消息概率，利用费诺编码方法进行编码，并计算信源熵和编码效率。二、 设计思路1、统计信源熵：统计信源熵就是对一篇英文文章中的种字符（包括标点符号及空格，英文字母不区分大小写）统计其出现的次数，然后计算其出现的概率，最后由信源熵计算公式： 算出信源熵。所以整体步骤就是先统计出文章中总的字符数，然后统计每种字符的数目，直到算出所有种类的字符的个数，进而算出每种字符的概率，再由信源熵计算公式计算出信源熵。在这里我选择用Matlab来计算信源熵，因为Matlab中系统自带了许多文

3、件操作和字符串操作函数，其计算功能强大，所以计算信源熵很是简单。如果您需要使用本文档，请点击下载按钮下载!2、香农编码信源编码模型：信源编码就是从信源符号到码符号的一种映射，它把信源输出的符号变换成码元序列。 信源编码器 信源 码元 码符号次扩展信源无失真编码器凡是能载荷一定的信息量，且码字的平均长度最短，可分离的变长码的码字集合都可以称为最佳码。为此必须将概率大的信息符号编以短的码字，概率小的符号编以长的码字，使得平均码字长度最短。能获得最佳码的编码方法主要有：香农（Shannon）、费诺（Fano）、哈夫曼（Huffman）编码等。香农第一定理：离散无记忆信源为熵,其次扩展为如果您需要使用

4、本文档，请点击下载按钮下载!熵为,码符号集为。先对信源进行编码，总可以找到一种编码方法，构成唯一可译码，使中每个信源符号所需的平均码长满足且当时有 ，是平均码长，是对应的码字长度。香农编码方法：（1） 将信源消息符号按其出现的概率大小依次排列: （2）确定满足下列不等式整数码长为（3）为了编成唯一可译码，计算第个消息的累加概率为（4）将累加概率变成二进制数。 （5）取二进制数小数点后位即为该消息符号的二进制码字。 3、费诺编码方法（1）将信源消息符号按其出现的概率大小依次排列：如果您需要使用本文档，请点击下载按钮下载!（2）将依次排列的信源符号按概率值分为两大组，使两个组的概率之和近似相同，并

5、对各组赋予一个二进制码元“0”和“1”。（3）将每一大组的信源符号再分为两组，使划分后的两个组的概率之和近似相同，并对各组赋予一个二进制符号“0”和“1”。（4）如此重复，直至每个组只剩下一个信源符号为止。（5）信源符号所对应的码字即为费诺码。三、 设计流程图1、 统计信源熵用Matlab读入一段英文 计算这段文字的字符总数unm 统计每种字符的个数n(i) 算出每种字符的概率p(i) 由信源熵计算公式计算出信源熵 2、 香农编码开始输入概率矩阵如果您需要使用本文档，请点击下载按钮下载!将概率由大到小排列计算累加概率和概率的个数根据公式调用函数计算码长用循环程序编码并调整输出格式 计算信源熵和

6、编码效率输出信源熵、编码效率和码字结束3、 费诺编码开始输入概率矩阵将概率由大到小排列计算累加概率和概率的个数如果您需要使用本文档，请点击下载按钮下载!在两组概率之和近似相等的条件下将概率分为两组，各赋予0，1两个码元将每一大组的的概率重复上一步操作，直到每组只剩一个概率 用循环程序编码并调整输出格式计算信源熵和编码效率输出信源熵、编码效率和码字结束四、 程序及结果1、 统计信源熵的Matlab程序function h=entropy(p)clcfid=fopen(shuju.txt,r);%打开txt文件ex,num=fscanf(fid,%c,inf)%读取二进制文件的数据，并将数据存入矩

7、阵str1=lower(ex)%将字符串中的大写字母转换成小写字母sort_str1=sort(str1);%按照字符的ASCII值对字符串排序j=1;for i=1:length(sort_str1)-1%计算出字符串的种类 if strcmp(sort_str1(i),sort_str1(i+1)=1%比较两个字符串是否完全相等，相等是1，否则0 j=j+1; str2(j)=sort_str1(i); end str2(j+1)=sort_str1(i+1);如果您需要使用本文档，请点击下载按钮下载!endfor i = 1:length(str2)%length函数获取字符串长度 st

8、r_num =strfind(sort_str1,str2(i);%strfind(S1,S2):寻找S2是否匹配S1，并返回S2的位置 count1(i) = length(str_num);endstr2count=count1(3:end)p=count./sum(count)sum(-p.*log2(p)%计算信源熵待读取的英文：The Pressure of Graduate StudentsNow I am a post graduate student, I will graduate next year, so I start to find jobs recently, I

9、feel so much pressure, though I have good education, I still get rejection from the companies. The pressure of graduate students are so heavy, the competition is so fierce that many students cant get the ideal jobs. They should adjust their strategies.The pressure of graduate students is so heavy. O

10、n the one hand, they dont have experience, so they dont know how to get the job interview and miss many chances. On the other hand, there are more and more students have high education, some have received higher education, some have studies abroad which make their resumes stand out. Those average st

11、udents dont have advantages over the above mentioned ones.Average students need to make their resumes specially, so they can have the chance. They can describe their characteristic to fit the job, the employers will see this and give you the chance. Students can also make their internship experience

12、 stand out, because the employers pay special attention to it.The job pressure is heavy for every graduate student, if the students take the wise strategy, they can have more chances to get the job.程序运行结果：总共出现的字符种类： ,.abcdefghijklmnoprstuvwxy每种字符对应出现的次数： 206 16 11 78 10 33 42 161 10 20 65 53 8 5 16

13、21 58 64 16 55 80 113 36 20 8 3 20 4每种字符出现的概率： 0.1672 0.0130 0.0089 0.0633 0.0081 0.0268 0.0341 0.1307 0.0081 0.0162 0.0528 0.0430 0.0065 0.0041 0.0130 0.0170 0.0471 0.0519 0.0130 0.0446 0.0649 0.0917 0.0292 0.0162 0.0065 0.0024 0.0162 0.0032信源熵：4.1250如果您需要使用本文档，请点击下载按钮下载!2、香农编码程序function c=shannon(

14、p)% p=0.25 0.25 0.20 0.15 0.10 0.05;% shannon(p);p,index=sort(p);p=fliplr(p);%从大到小n=length(p);pa=0;%累加概率for i=2:n pa(i)=pa(i-1)+p(i-1); endk=ceil(-log2(p);%码长计算c=cell(1,n);%生成元胞数组，存码字，是cell，跟上一行不一样for i=1:n ci= ; tmp=pa(i); for j=1:k(i) tmp=tmp * 2; if tmp=1 tmp=tmp - 1; ci(j)= 1; else ci(j)= 0; end

15、 endend%p%pa%交换回原来的顺序c=fliplr(c);c(index)=c;fprintf(信源信息熵:n);H=sum(-p.*log2(p)%计算信源熵fprintf(平均码长:n);K=sum(p.*k)%计算平均码长fprintf(编码效率:n);w=H./K%计算编码效率fprintf(码字:n);c程序运行结果： p=0.25 0.25 0.20 0.15 0.10 0.05;shannon(p);如果您需要使用本文档，请点击下载按钮下载!信源信息熵:H = 2.4232平均码长:K = 2.7000编码效率:w = 0.8975码字:c = 01 00 100 101

16、 1101 111103、 费诺编码程序主程序function c=fano1(p)% p=0.25 0.25 0.20 0.15 0.10 0.05% c=fano1(p)n=size(p,2);if n=1 c=cell(1,1); c1=; returnendp,index=sort(p);%按概率排序p=fliplr(p);total=sum(p);%总概率acc=0;%累积概率flag=0;%是否到达尾部的标志for i=1:n-1 newacc=acc+p(i); if abs(total-2 * newacc)=abs(total - 2*acc) flag=1; break;

17、end acc=newacc;endif flag i=n;endsplit=i;%从分界点对两边的码递归做fanoc1=fano1(p(1:split-1);c2=fano1(p(split:n);c=cell(1,n);%添加前缀0，1如果您需要使用本文档，请点击下载按钮下载!for i=1:split-1 ci=strcat(0,c1i);endfor i = split:n ci=strcat(1,c2i-split+1 );end%将顺序调整回去c=fliplr(c);c(index)=c;子程序function =fano2(c,p)for i=1:length(c)%求平均码长

18、count(i)=length(cell2mat(c(i); endfprintf(信源信息熵:n);H=sum(-p.*log2(p)%计算信源熵fprintf(平均码长:n)K=sum(count.*p)%计算平均码长fprintf(编码效率:n)w=H./K%计算编码效率fprintf(码字:n)c程序运行结果： p=0.25 0.25 0.20 0.15 0.10 0.05c=fano1(p)fano2(c,p)p = 0.2500 0.2500 0.2000 0.1500 0.1000 0.0500c = 00 01 10 110 1110 1111信源信息熵:H = 2.4232平

19、均码长:K = 2.4500编码效率:w = 0.9891码字:c = 00 01 10 110 1110 1111五、 心得体会做这次课程设计前前后后花了三天时间，之前并没有用心想，只是看了看网上的资料，看人家都是用什么方法解决的。我看的有用C（包括C+和C#）语言的，有用Matlab的，还有用别的什么软件的。由于我对Matlab编程还比较熟悉一点，最后我还是选择用Matlab来做。一开始编程，我甚至连一些常用的Matlab函数都忘了，没什么想法后我在网上看了一些人用Matlab编的程序，拿来仔细研究后也慢慢着编出了自己的程序。在编程过程中，遇到了各种问题问题，有时由于一个小问题不通，我要反

20、复琢磨半天，最后发现是在一个小地方上出错了，真是备受煎熬，但这也是编程的乐趣所在，在这个过程中自己也学到了许多编程知识和技巧。如果您需要使用本文档，请点击下载按钮下载!在编程过程中，我体会到了Matlab功能的强大，我需要好好学习一下，这对我以后在信号处理与仿真计算上有很大帮助。通过这次课程设计，我对信息论与编码技术中的一些基础知识，如信源熵、通信系统模型、信道与信源编码等知识又重新学习了一下，感觉虽是学过的知识，但隔一段时间不看合上书自己竟然什么也想不起来。学过的知识，觉得自己早就已经理解了的，在实际用来解决问题时又是无从下手，需多看人家的例子，在此基础上才能用来解决自己的问题。我之所以自己

21、一组，是想真学到点东西，这过程中很累人，但这是因为自己当初没有提早准备，还有就是自己知识也学的不扎实造成的，于是感悟到做什么事情都要有计划地提早准备，不然会坐失良机，最后只能悔不当初。如果您需要使用本文档，请点击下载按钮下载!六、 参考文献1 曹雪虹，张宗橙.信息论与编码（第二版）.北京：清华大学出版社，2009.22 王薇,姚鑫锋.从零开始学MATLAB.北京：电子工业出版社，2012.9附录1、统计信源熵的Matlab程序function h=entropy(p)clcfid=fopen(shuju.txt,r);%打开txt文件ex,num=fscanf(fid,%c,inf)%读取二进

22、制文件的数据，并将数据存入矩阵str1=lower(ex)%将字符串中的大写字母转换成小写字母sort_str1=sort(str1);%按照字符的ASCII值对字符串排序j=1;for i=1:length(sort_str1)-1%计算出字符串的种类 if strcmp(sort_str1(i),sort_str1(i+1)=1%比较两个字符串是否完全相等，相等是1，否则0 j=j+1; str2(j)=sort_str1(i); end str2(j+1)=sort_str1(i+1);endfor i = 1:length(str2)%length函数获取字符串长度 str_num =

23、strfind(sort_str1,str2(i);%strfind(S1,S2):寻找S2是否匹配S1，并返回S2的位置 count1(i) = length(str_num);endstr2count=count1(3:end)p=count./sum(count)sum(-p.*log2(p)%计算信源熵2、香农编码程序function c=shannon(p)% p=0.25 0.25 0.20 0.15 0.10 0.05;如果您需要使用本文档，请点击下载按钮下载!% shannon(p);p,index=sort(p);p=fliplr(p);%从大到小n=length(p);pa

24、=0;%累加概率for i=2:n pa(i)=pa(i-1)+p(i-1); endk=ceil(-log2(p);%码长计算c=cell(1,n);%生成元胞数组，存码字，是cell，跟上一行不一样for i=1:n ci= ; tmp=pa(i); for j=1:k(i) tmp=tmp * 2; if tmp=1 tmp=tmp - 1; ci(j)= 1; else ci(j)= 0; end endend%p%pa%交换回原来的顺序c=fliplr(c);c(index)=c;fprintf(信源信息熵:n);H=sum(-p.*log2(p)%计算信源熵fprintf(平均码长

25、:n);K=sum(p.*k)%计算平均码长fprintf(编码效率:n);w=H./K%计算编码效率fprintf(码字:n);shannon(p);信源信息熵:H = 2.42324、 费诺编码程序主程序function c=fano1(p)% p=0.25 0.25 0.20 0.15 0.10 0.05如果您需要使用本文档，请点击下载按钮下载!% c=fano1(p)n=size(p,2);if n=1 c=cell(1,1); c1=; returnendp,index=sort(p);%按概率排序p=fliplr(p);total=sum(p);%总概率acc=0;%累积概率fla

26、g=0;%是否到达尾部的标志for i=1:n-1 newacc=acc+p(i); if abs(total-2 * newacc)=abs(total - 2*acc) flag=1; break; end acc=newacc;endif flag i=n;endsplit=i;%从分界点对两边的码递归做fanoc1=fano1(p(1:split-1);c2=fano1(p(split:n);c=cell(1,n);%添加前缀0，1for i=1:split-1 ci=strcat(0,c1i);endfor i = split:n ci=strcat(1,c2i-split+1 );end%将顺序调整回去c=fliplr(c);c(index)=c;子程序function =fano2(c,p)for i=1:length(c)%求平均码长 count(i)=length(cell2mat(c(i); endfprintf(信源信息熵:n);如果您需要使用本文档，请点击下载按钮下载!H=sum(-p.*log2(p)%计算信源熵fprintf(平均码长:n)K=sum(count.*p)%计算平均码长fprintf(编码效率:n)w=H./K%计算编码效率fprintf(码字:n)c （注：可编辑下载，若有不当之处，请指正，谢谢!）