【VB 】求通过三个坐标点解二次函数的代码
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/05/13 00:48:56
【VB 】求通过三个坐标点解二次函数的代码
如题
如题
可以用lagrange插值法求解.利用lagrange法可以求任意次多项式的插值.对于2次多项式,可用如下代码实现.Option ExplicitDim a#, b#, c#Private Sub Command1_Click() lagrange Val(Form1.Text1.Text), Val(Form1.Text2.Text), Val(Form1.Text3.Text), Val(Form1.Text4.Text), Val(Form1.Text5.Text), Val(Form1.Text6.Text), a, b, c Form1.Label1.Caption = CStr(a) + "*x^2+" + CStr(b) + "*x+" + CStr(c)End SubPublic Function lagrange(ByVal x1#, ByVal y1#, ByVal x2#, ByVal y2#, ByVal x3#, ByVal y3#, ByRef a#, ByRef b#, ByRef c#) a = y1 / (x1 - x2) / (x1 - x3) + y2 / (x2 - x1) / (x2 - x3) + y3 / (x3 - x1) / (x3 - x2) b = -y1 * (x2 + x3) / (x1 - x2) / (x1 - x3) - y2 * (x1 + x3) / (x2 - x1) / (x2 - x3) - y3 * (x1 + x2) / (x3 - x1) / (x3 - x2) c = y1 * x2 * x3 / (x1 - x2) / (x1 - x3) + y2 * x1 * x3 / (x2 - x1) / (x2 - x3) + y3 * x1 * x2 / (x3 - x1) / (x3 - x2)End Function把上述代码复制到VB中,添加6个textbox,一个label,一个commandbutton,即可实现.
【VB 】求通过三个坐标点解二次函数的代码
vb解二次函数代码问题!
根据二次函数图象上的三个点的坐标求函数解析式
根据二次函数图像上三个点的坐标,求函数的解析式
已知三点坐标,在vb中怎样计算角度值?求公式代码
vb一元二次函数y=-x*x 的图像还有函数代码
Vb 根据距离求坐标求VB代码:已知坐标点1的坐标 X=a,Y=b 求向45° 135° 225° 315°
若二次函数图象的顶点坐标为(-1,-2),且通过点(1,10),求这个二次函数的解析式.
这个数学空怎么填已知图象过三个点,通过设二次函数的一般式______列方程组求表达式已知抛物线顶点坐标为(h,k)或对称
根据二次函数图像上三个点的坐标,求出函数的解析式
1.根据二次函数图像上三个点的坐标,求出函数的解析式.
根据二次函数图象上三个点的坐标,求出函数的解析式.