作业帮 > 数学 > 作业

用牛顿迭代法求方程,用VB解

来源:学生作业帮 编辑:拍题作业网作业帮 分类:数学作业 时间:2024/03/29 15:04:43
用牛顿迭代法求方程,用VB解
x^6-5x^5+3x^4+x^3-7x^2+7x-20=0 在区间[-2,5]上的两个根
可以用牛顿迭代法,还可以用二分法.
要有具体的过程
Dim a,b
Private Sub Command1_Click()
temp = (Val(a) + Val(b)) / 2
If h(temp) = Abs(h(temp)) And h(a) < 0 Then b = temp
If h(temp) = Abs(h(temp)) And h(b) < 0 Then a = temp
If h(temp) Abs(h(temp)) And h(a) > 0 Then b = temp
If h(temp) Abs(h(temp)) And h(b) > 0 Then a = temp
Print a
Print b
End Sub
Function h(x)
h = Val(x) ^ 6 - 5 * Val(x) ^ 5 + 3 * Val(x) ^ 4 + Val(x) ^ 3 - 7 * Val(x) ^ 2 + 7 * Val(x) - 20
End Function
Private Sub Form_Load()
a = -2
b = 5
End Sub
点一次就再精确一次
再问: 试过了,不行
再答: 为什么不行
再问: 我直接粘到VB里,无法算出啊
再答: 我这可以,你有没有添加一个按钮
再问: 没有,但我用另一种办法算好了