UC知道vb编程绘图再线等
来源：百度知道 编辑：UC知道 时间：2024/05/24 20:32:12
我有这样一个程序
Private Sub Command1_Click()
Dim x As Double, y As Double
DrawWidth = 2
Scale (-5, 5)-(5, -5)
Line (-5, 0)-(5, 0), vbBlue
Line (0, 5)-(0, -5), vbBlue
pset(1,1)
pset(2,3)
pset(3,5)
End Sub
如何把(1,1)(2,3)(3,5)这三点用光滑曲线连接
请给编码谢谢
Private Sub Command1_Click()
Dim x As Double, y As Double
DrawWidth = 2
Scale (-5, 5)-(5, -5)
Line (-5, 0)-(5, 0), vbBlue
Line (0, 5)-(0, -5), vbBlue
pset(1,1)
pset(2,3)
pset(3,5)
End Sub
如何把(1,1)(2,3)(3,5)这三点用光滑曲线连接
请给编码谢谢
用插值算法,算出若干点用line方法连线就ok
插值算法有很多,先给你一个手头上有的,其他的自己可以到网上找
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 模块名：InterpModule.bas
' 函数名：INLagrn
' 功能： 用拉格朗日插值公式进行一元全区间不等距插值
' 参数： n - Integer型变量，给定结点的点数
' x - Double型一维数组，长度为n，存放给定的n个结点的值x(i)，要求x(1)<x(2)<...<x(n)
' y - Double型一维数组，长度为n，存放给定的n个结点的函数值y(i)，y(i) = f(x(i)), i=1,2,...,n
' t - Double型变量，存放指定的插值点的值
' 返回值：Double型，指定的查指点t的函数近似值f(t)
'''''''''''''