EDA365电子论坛网

标题: 已知信源符号为英文字母（不区分大小写）和空格输出，计算自信息量的信源熵值 [打印本页]

作者: uperrua 时间: 2019-12-9 10:28
标题: 已知信源符号为英文字母（不区分大小写）和空格输出，计算自信息量的信源熵值
本帖最后由 uperrua 于 2019-12-9 10:45 编辑

已知信源符号为英文字母（不区分大小写）和空格输出，计算自信息量的信源熵值

信源熵值的计算

一、实验目的
1 进一步熟悉信源熵值的计算
2 熟悉 Matlab 编程

二、实验原理
熵（平均自信息）的计算公式

MATLAB实现：

；或者：

流程：第一步：打开一个名为“ nan311”的 TXT文档，读入一篇英文文章存入一个数组 temp，为了程序准确性将所读内容转存到另一个数组 S，计算该数组中每个字母与空格的出现次数 ( 遇到小写字母都将其转化为大写字母进行计数 ) ，每出现一次该字符的计数器 +1；
第二步：计算信源总大小计算出每个字母和空格出现的概率；
最后，通过统计数据和信息熵公式计算出所求信源熵值（本程序中单位为奈特nat ）。

程序流程图：

三、实验内容
1、写出计算自信息量的 Matlab 程序
2、已知：信源符号为英文字母（不区分大小写）和空格。
输入：一篇英文的信源文档。
输出：给出该信源文档的中各个字母与空格的概率分布，以及该信源的熵。

四、实验环境
Microsoft Windows 7
Matlab 6.5

五、编码程序
#include"stdio.h"
#include <math.h>
#include <string.h>
#define N 1000
int main(void)
{
char s[N];
int i,n=0;
float num[27]={0};
double result=0,p[27]={0};
FILE *f;
char *temp=new char[485];
f=fopen("nan311.txt","r");
while (!feof(f)) {
fread(temp,1, 486, f);}
fclose(f);
s[0]=*temp;
for(i=0;i<strlen(temp);i++)
{
s=temp;
}
for(i=0;i<strlen(s);i++)
{
if(s==' ')
num[26]++;
else if(s>='a'&&s<='z')
num[s-97]++;
else if(s>='A'&&s<='Z')
num[s-65]++;
}
printf(" 文档中各个字母出现的频率 :\n");
for(i=0;i<26;i++)
{
p=num/strlen(s);
printf("%3c:%f\t",i+65,p);
n++;
if(n==3)
{
printf("\n");
n=0;
}
}
p[26]=num[26]/strlen(s);
printf(" 空格:%f\t",p[26]);
printf("\n");
for(i=0;i<27;i++)
{
if (p!=0)
result=result+p*log(p);
}
result=-result;
printf(" 信息熵为 :%f",result);
printf("\n");
return 0;
}

六、求解结果

其中 nan311.txt 中的文档如下：
There is no hate without fear. Hate is crystallized fear, fear ’dividend, s fear
objectivized. We hate what we fear and so where hate is, fear is lurking. Thus we hate what threatens our person, our vanity and our dreams and plans for ourselves. If we can isolate this element in what we hate we may be able to cease from hating.

七、实验总结
通过这次实验，我们懂得了不必运行程序时重新输入文档就可以对文档进行统计，既节省了时间而且也规避了一些输入错误。在实验中，我们进一步了解到信源熵的计算，理论和实践的结合让我们对这个知识点了解的更加深刻了。

作者: hanser 时间: 2019-12-9 19:58
点个赞

欢迎光临 EDA365电子论坛网 (https://bbs.eda365.com/)