Question

用牛顿迭代法求方程2x3-4x2+3x-6=0在1.5附近的根。修改程序，使之能输出迭代的次数和每次迭代的结果

用牛顿迭代法求方程2x3-4x2+3x-6=0在1.5附近的根。修改程序，使之能输出迭代的次数和每次迭代的结果

Answer 1

Private Sub Command1_Click()
Dim x!, xn!, f!, fp!, m%
m = 0
x = 1.5
For i = 1 To 10
f = 2 * x ^ 3 - 4 * x ^ 2 + 3 * x - 6 '求函数值
fp = 6 * x ^ 2 - 8 * x + 3 '求的导数值
xn = x - f / fp
If Abs(xn - x) < 0.000001 Then
Exit For '如果误差小于0。000001则停止循环
End If
x = xn
m = m + 1
Print "第"; m; "次迭代的结果是x"; m; "="; xn
Next i
Print "方程的近似根是"; x
Print "迭代次数为"; m
End Sub