利用excel制作动态函数图像课件（1）

利用excel制作动态函数图像课件（1）

  利用excel里插入带平滑线的散点图可以绘制函数图像，利用VBA可以实现动态绘制散点图。
以\(y=x^2\)函数为例来说明制作过程

步骤：

1. 添加active控件里的命令按钮，将按钮的名称改为描点作图。在设计模式里输入下列代码：

Range("A2:A100").CleaContents  
 Cells(2,1)=-2  
 i=2  
Do  
Cells(i+1,1)=Cells(i,1)+0.1  
i=i+1  
For n=1 To 10000: Next n  
DoEvents  
Loop Until Cells(i,1)>=2  

点击命令就能在A列里产生自变量x的数据。
2.计算函数值：在B2里输入“=A2^2",双击B2的填充柄。
3.作出图像：选中第一、二列，按“图表/XY散点图/无数据点平滑曲线散点图/完成”作出图像。
 单击命令按钮，可以看出到左上方顺次画出抛物线的动态连线过程。

说明：

• 空循环“For n=1 To 1000000:Next n"中循环次数的多寡，决定描点的速度
  
• "DoEvents"表示不等宏运行结束就刷新屏幕，缺少这一语句只能看到数据变化，不能看到图像变化。
  
• 语句Range("A2:A100").ClearContents 表示清除之前单元格A2~A100里的数据。
• 为了便于观察还可以添加暂停和继续按钮，具体方法明天再去捣鼓。
• 在保存文件时保存为excel启用宏的工作簿

转载于:https://www.cnblogs.com/geogebra/p/6079500.html