Ⅰ VB計算一元多次方程
一元方程可以用牛頓插值法解。
可以找找相關資料。
下面是vb代碼：
Private Sub Command1_Click()
a = 1
b = 1
c = 1
d = 1
e = 1
x = 0
absolution = 1
Do While absolution > 0.0000001
y = x + a * x ^ 5 + b * x ^ 9 + c * x ^ 13 - d * x ^ 17 - e
'一介導數
Y1 = 1 + 5 * a * x ^ 4 + 9 * b * x ^ 8 + 13 * c * x ^ 12 - 17 * d * x ^ 16
X1 = x - y / Y1
absolution = Abs(X1 - x)
x = X1
Loop
Text1 = X '解
End Sub