画SIN函数曲线

画SIN函数曲线 步骤 基本步骤方法如下: 设置绘图容器(通常为Form或Picture对象) 1)利用Scale方法设置合适的坐标系统。坐标系统的大小应以能够容纳所要示或绘制的图形为宜。必要时可绘出坐标系. 2)根据函数关系计算函数曲线的每一个坐标点。如函数为y=f(x)，一般设x为循环变量，每循环一次，让计算机计算出一个对应y值， 3)使用Pset方法在(x，y)坐标绘出一个色点。 如: 对象名.Pset(x，y) 4)适当设定循环变量x的循环范围和循环增量，在计算机执行循环过程时，绘制出所绘曲线图形。 循环范围和循环变量确定了要计算和绘制的像素点的个数。若每一个像素点都计算和绘制，则会需要长时间的循环计算;若计算和绘制的像素点太少，则会使曲线不连续。一般情况下，使用Pset方法绘出的曲线是不连续的曲线。若要想得到连续的曲线并且减少像素点，可以把第4步的绘图方法换做Line(画线)方法。 如:对象名.Line -(x，y) 此处省略画线的起始点，表示以上次画线末点为这次画线的起始点。 应用举例 【例11.9】 绘制 1)y1=10Exp(-.2x)sin(2x)曲线 2)y2=10sin(x)cos(2x)曲线 3)y3=10Exp(-.5x)sin(4x)曲线 4)y4=10sin(2x)cos(3x)曲线。运行程序 源程序 问题分析:此题要画两条曲线，可以在同一个容器(如窗体Form1)中绘制，分别利用命令按钮Command1和Command2引导绘制曲线子程序;两条曲线的函数值都是在-10,10范围内，在窗体初始化时设坐标系统为(0，10),(20，-10)。 对象设置 Form1 Caption=绘制函数曲线 Command1 Caption=y1 Command2 Caption=y2 Command3 Caption=y3 Command4 Caption=y4 对象安排如右图示: 程序代码 Sub Colors_Click(Index) Sub Command3_Click() Form1.Scale (0, 10)-(20, -10) Cls CurrentX = 0: CurrentY = 0 End Sub For x = 0 To 20 Step 0.02 Sub Command1_Click() y =10*Exp(-0.5*x)*Sin(4*x) Cls Line -(x, y) CurrentX = 0: CurrentY = 0 Next x For x = 0 To 20 Step 0.02 End Sub y =10*Exp(-0.2*x)*Sin(2*x) PSet (x, y) Sub Command4_Click() Next x Cls CurrentX = 0: CurrentY = 0 End Sub For x = 0 To 20 Step 0.02 Sub Command2_Click() y =10*Sin(2*x)*Cos(3*x) Cls Line -(x, y) CurrentX = 0: CurrentY = 0 Next x For x = 0 To 20 Step 0.02 End Sub y =10*Sin(x)*Cos(2*x) PSet (x, y) Next x End Sub 运行程序(提示:当出现文件下载对话框时,选择"在当前位置运行",然后"确定"和"是)