用牛顿迭代法求方程,用VB解x^6-5x^5+3x^4+x^3-7x^2+7x-20=0 在区间[-2,5]上的两个根可以用牛顿迭代法,还可以用二分法.要有具体的过程
来源:学生作业帮助网 编辑:六六作业网 时间:2024/05/14 15:47:30
用牛顿迭代法求方程,用VB解x^6-5x^5+3x^4+x^3-7x^2+7x-20=0 在区间[-2,5]上的两个根可以用牛顿迭代法,还可以用二分法.要有具体的过程
用牛顿迭代法求方程,用VB解
x^6-5x^5+3x^4+x^3-7x^2+7x-20=0 在区间[-2,5]上的两个根
可以用牛顿迭代法,还可以用二分法.
要有具体的过程
用牛顿迭代法求方程,用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
点一次就再精确一次