Excel在信息论与编码教学中应用.docVIP

Excel在信息论与编码教学中应用 　　[摘要]Excel是MS Office产品家族中的电子表格软件，该软件不但可以处理一般的表格和数据，而且还可以用在多媒体教学中。通过具体课程实例，展示Excel在多媒体教学中的应用，就如何改进多媒体教学效果提供了一些方法和思路。 　　[关键词]多媒体教学 自定义函数 Excel VBA 　　中图分类号：G43文献标识码：A文章编号：1671－7597（2009）0510145－01 　　 　　《信息论与编码》课程是信息与计算科学专业的专业基础课。如何把课程的讲授与多媒体教学手段结合起来；如何把复杂的数学问题用形象的手段表现出来；如何把本课程与其他专业课程结合起来；如何提高课堂教学的趣味性，笔者在这些方面做了一些初步的探索。 　　Excel是人们常用的办公软件，具有非常丰富的图表功能和函数功能，Excel的VBA开发环境还为Excel功能的定制提供了强大的支持。我们在《信息论与编码》的多媒体教学实践中，综合运用了这些功能，取得了较好的教学效果。 　　 　　一、图表功能 　　 　　课程中有很多重要的公式，加深对公式的理解，可以帮助学生更好的掌握课程内容。因此，如果能把公式的函数曲线用图形的方式表现出来，并就图形中函数的关键取值进行详细讨论，显然能达到这一目的。 　　例如，课程中有一个特殊信源――二元信源，只有两个消息符号。设其中一个消息发出的概率为，则另一个消息的概率为 ，这个信源的熵为。 　　通常记为 ，称为二进熵函数（图1）。从图中可以非常直观的看到P的变化对 的影响。通过图形，可以加深学生对熵函数性质的理解，包括：极值性、最大熵定理和上凸性等等。 　　 　　二、函数功能 　　 　　Excel在制作函数曲线时，首先需要准备好数据，因为Excel的图表是根据数据生成的。值得一提的是，这些数据根本不需要手工录入，基本上可以由计算机自动生成，这里面主要用到Excel的数据填充和公式运算功能。 　　以上面的二进熵函数为例，数据区域是A2:C22。A列中的数据代表信源符号 的概率P，B列中的数据代表信源符号 的概率，C列中的数据代表信源熵，给定P变化的步长是0.05，这样A2:A22中的数据可填充生成。而B列和C列的数据，可根据公式计算出来。例如：B3=1-A3，C3=-(A3*LOG(A3,2)+B3*LOG(B3,2))。这里用到了Excel内置的数学函数LOG(numb 　　er, base)，其中number是用于计算对数的正实数，base为对数的底数。再把B3、C3单元格的公式分别填充到所在列中即可。最后，用图表向导制作出函数图形，图表类型选择折线图。 　　除了二进熵函数，课程中还有自信息函数、率失真函数都可以用类似的方法进行演示。值得一提的是课程中有一个串联信道的内容，利用函数图形可以在一个坐标系上直观的看到串联两个BSC信道、串联三个BSC信道与单独的BSC信道，信道容量曲线之间的差别。 　　 　　三、VBA 　　 　　Excel集成的VBA(Visual Basic for Application)开发环境为Excel提供了功能扩展和定制的能力。利用VBA用户可以开发自己的函数，甚至可以写一些“应用程序”。在教学中我们利用VBA编写了若干个函数，对Excel的函数库做了扩展。 　　例如，在Shannon编码中，需要把累加概率 表示成二进制数，对应的码字就是小数点后前 位。Excel没有将十进制小数转换成二进制小数的函数，因此可以用VBA设计这个函数。 　　目的：把十进制的小数转化成二进制形式 　　输入：x需要转换的十进制小数 　　返回：trans 转化后的二进制形式 　　Public Function trans(x As Double) As String 　　 Dim result As String 　　 Dim i As Integer 　　 Dim y As Double 　　 y = 1 　　 For i = 1 To 10 　　 y = y * 0.5 　　 If (x - y) 0 Then 　　result = result 1 　　x = x - y 　　 ElseIf (x - y) = 0 Then 　　result = result 1 　　result = Left(result 0000000000, 10)补零 　　Exit For 　　 Else 　　result = result 0 　　 End If 　　 Next i 　　 trans = result 　　End Function 　　在E3单元格中输入公式=LEFT(trans(C