作业帮 > 数学 > 作业

求vb代码:解高次方程(二分法)

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/06/16 02:04:39
求vb代码:解高次方程(二分法)
f(x)=3x^4-4x^2-5x+13=0
求vb代码:解高次方程(二分法)
'vb题库的标准答案.
Private Sub Form_Activate()
X1 = 2
Do
x0 = X1
f = 3 * x0 ^ 3 - 4 * x0 ^ 2 - 5 * x0 + 13
f1 = 9 * x0 ^ 2 - 8 * x0 - 5
X1 = x0 - f / f1
Loop Until Abs(X1 - x0) < 0.0001
Print X1
End Sub
'请参考.