用牛顿迭代法求解亿元五次方程

求X5+14X4-46X3+10X2+ X+ 9=0的解   vb和c语言都行 --------------------编程问答-------------------- 亿元  --------------------编程问答-------------------- 哦天啊，我都不会解高次方程了，我还是回去看看书吧 --------------------编程问答-------------------- http://zhidao.baidu.com/question/256989555.html --------------------编程问答-------------------- 请问你是要代码，还是净要解呢？如果你要代码，那我就写给你，如果你要解，我也可以写给你。

X1=-16.7772392958876
X2=2.50084636314905
X3=虚根
X4=虚根
X5=虚根

代码：

'注：这些代码只能用于解你给出的方程

Private Sub Form_Click()

Dim X0 As Double, X1 As Double

X0 = 5 '不断修改这里得值可以尝试求出不同的解

Do Until Abs(X0 - X1) < 1 / 200

  X1 = X0

  X0 = X0 - Y(X0) / TY(X0)

  DoEvents

Loop

Print X0

End Sub



Public Function Y(X As Double) As Double '原函数

Y = X ^ 5 + 14 * X ^ 4 - 46 * X ^ 3 + 10 * X ^ 2 + X + 9

End Function



Public Function TY(X As Double) As Double '导函数

TY = 5 * X ^ 4 + 14 * 4 * X ^ 3 - 46 * 3 * X ^ 2 + 10 * 2 * X + 1

End Function

OK了，拿去吧。 --------------------编程问答-------------------- 以上的解精确到1/200 --------------------编程问答--------------------  亿元

补充：VB ,  基础类