利用PowerPoint和Excel创建动态函数图像

1、利用PowerPoint和Excel创建动态函数图像作者：刘景州来源：中国信息技术教育2010年第13期在制作课件时,理科教师经常会用到一些精确的函数图像,特别是动态演示函数变化规律的图像。其实利用PowerPoint和Excel这两个常用的软件就能很好地创建这样的图像,笔者以一个典型的函数y=Asin(x+)图像为例,和大家共同见证这一图像的创建过程,所用到的版本为Office 2007。 利用PowerPoint实现利用PowerPoint实现的创作思路是:利用VBA工具中的文本框、按钮以及相应的画线函数控制y=Asin(x+)中的相应参数,在与用户的交互中,形象展示出各参数对图像的影响以

2、及图像的变化过程,具体操作步骤如下。1.排列课件所用到的各对象首先调出开发工具面板,在PowerPoint选项里显示开发工具选项(如图1),则会出现开发工具的面板。点选开发工具面板中需要的选项并拖放到幻灯片中,即三个文本输入框,用来接收幻灯片放映时输入的A、的值,通过改变这三个参数的值,观察函数y=Asin(x+)图像的相应变化,并联系生活中的实际意义,从而让抽象的数学形象化,激发兴趣,鼓励学生进一步探索数学王国的奥秘。这些功能的实现还需要三个按钮对象,分别命名为画图、画坐标轴、清除图像。命名是在按钮的属性面板里,将“Caption”右侧的内容改为按钮显示的文字,并将“AutoSize”右侧的

3、“False”改为“True”。其他的可以采用默认形式(如图2)。2.VBA代码的编写Office 2007提供了一个扩展功能的工具,可以把指令加载到相应的对象上,从而实现更多的交互功能。在各按钮上点键,选择查看代码就能打开VBA代码编辑窗口。下面是画图按钮的代码:Private Sub CommandButton1_Click()With ActivePresentation.SlideShowSettings.Run.View.PointerColor.RGB = RGB(0, 0, 255)End WithA = Val(TextBox1.Text) * 100B = Val(TextB

4、ox2.Text)C = Val(TextBox3.Text) * 3.14 * 100 / 180Do While Count 450x1 = Count + 100y1 = -A * sin(B * Count + C) / 100) + 200Count = Count + 1x2 = Count + 100y2 = -A * sin(B * Count + C) / 100) + 200SlideShowWindows(1).View.DrawLine x1, y1, x1, y2LoopEnd Sub注:其中With语句改变正弦函数图像的颜色,DrawLine函数配合Do循环画出图像

5、。Private Sub CommandButton2_Click()SlideShowWindows(1).View.EraseDrawingEnd Sub这段代码是清除以前画的图像,实现多次输入。以下内容是画坐标系的代码,是利用画图命令配合循环语句实现的。Private Sub CommandButton3_Click()With ActivePresentation.SlideShowSettings.Run.View.PointerColor.RGB = RGB(0, 0, 0)End Withh = 100k = 200Length = 10Number = 500Dim xxxx

6、= 1Do While xx NumberIf xx Mod 4 = 0 ThenSlideShowWindows(1).View.DrawLine h + xx * Length, k - 7, h + xx * Length, kSlideShowWindows(1).View.DrawLine h - xx * Length, k - 7, h - xx * Length, kSlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4), h + 7, k - xx * (Length + 4)SlideShowWindows(1)

7、.View.DrawLine h, k + xx * (Length + 4), h + 7, k + xx * (Length + 4)ElseSlideShowWindows(1).View.DrawLine h + xx * Length, k - 3, h + xx * Length, kSlideShowWindows(1).View.DrawLine h - xx * Length, k - 3, h - xx * Length, kSlideShowWindows(1).View.DrawLine h, k - xx * (Length + 4), h + 3, k - xx *

8、 (Length + 4)SlideShowWindows(1).View.DrawLine h, k + xx * (Length + 4), h + 3, k + xx * (Length + 4)End Ifxx = xx + 1LoopSlideShowWindows(1).View.DrawLine h, k, h + xx * Length, kSlideShowWindows(1).View.DrawLine h - xx * Length, k, h, kSlideShowWindows(1).View.DrawLine h, k, h, k - xx * LengthSlid

9、eShowWindows(1).View.DrawLine h, k, h, k + xx * LengthEnd Sub下页图3即是幻灯片播放时的效果。 利用Excel实现首先,在工作表中根据函数的等量关系输入相应的数据,然后制作出图表,这里选择的是带平滑线的散点图,利用滚动条实现各参数的动态改变,做出更灵活的动态交互效果。1.输入数据如图4输入各单元格数据,自B1至AX单元格是-24到24数字序列;第二行是X的值,数量关系是B2=B1*PI()/12,用自动填充柄拖到AX2即可;第三行是y值,y=$B$4*SIN($B$6*B2+$B$7),同样填充到AX3;A、分别输入到下面,为滚动条链

10、接用。2.制作图表插入图表,选择带平滑线的散点图,选择数据区域为B2AX3,这样正弦图像已经画好了,到此我们已经得到一个比较精确的正弦函数图像。3.制作滚动条下面我们插入三个滚动条来动态改变A、三个参数的值。和PowerPoint一样,可以调出来开发工具面板,插入滚动条,这里以制作参数A的滚动条为例(如图5)。右击滚动点,设置控件格式,单元格链接为B5,这里要说明一点:B2里面A引用的是B4,B4=B5/10,这是因为滚动条控件格式的步长至少是1,除以10之后让它的步长缩小为0.1,使得图像曲线的变化更流畅、自然。4.演示拖动控制A、三个参数的滚动条,可以看到图表中各参数值的变化以及图像的变化(如图6),这样可以让学生形象地看到y=Asin(x+)的变化规律,帮助学生理解函数的数学意义和现实意义。 小结从上面