VB calcula múltiples ecuaciones de una variable

Las ecuaciones de una variable se pueden resolver utilizando el método de interpolación de Newton.

Podrás encontrar información relevante.

El siguiente es el código vb:

Private Sub Command1_Click()

a = 1

b = 1

c = 1

d = 1

e = 1

x = 0

absolución = 1

Hacer mientras absolución > 0.0000001

y = x + a * x ^ 5 + b * x ^ 9 + c * x ^ 13 - d * x ^ 17 - e

' Un número derivado

Y1 = 1 + 5 * a * x ^ 4 + 9 * b * x ^ 8 + 13 * c * x ^ 12 - 17 * d * x ^ 16

X1 = x - y / Y1

absolución = Abs(X1 - x)

x = X1

Bucle

Texto1 = X 'Solución

Fin Sub