La programación VB utiliza el método de Newton o método de bisección para resolver ecuaciones

Sub form privado_Click()

Dim x1, x2, xa, xb

x1 = -2: x2 = -1: x = -1.5 p>

Hacer hasta Abs(x ^ 6 - 5 * x ^ 5 3 * x ^ 4 x ^ 3 - 7 * x ^ 2 7 * x - 20) lt; Si x ^ 6 - 5 * x ^ 5 3 * x ^ 4 x ^ 3 - 7 * x ^ 2 7 * x - 20 gt entonces

x1 = x: x = (x1 x2) / 2

Else

x2 = x: x = (x1 x2) / 2

Finalizar si

Bucle

xa = x

x1 = 4: x2 = 5: x = 4.5

Hacer hasta abdominales(x ^ 6 - 5 * x ^ 5 3 * x ^ 4 x ^ 3 - 7 * x ^ 2 7 * x - 20)lt; 0.00001

Si x ^ 6 - 5 * x ^ 5 3 * x ^ 4 x ^ 3 - 7 * x ^ 2 7 * x - 20 lt; 0 Entonces

x1 = x: x = (x1 x2) / 2

Si no

x2 = x: x = (x1 x2 ) / 2

End If

Loop

xb = x

MsgBox "La ecuación está en los dos puntos cero en el - 2, 5 intervalos Los valores aproximados son " &xa & xb

End Sub

Private Sub Form_Load()

Me.AutoRedraw = True

p>

Me.Width = 8000

Me.Height = 8200

Me.Scale (-6, 400)-(6, -400)

'x^6-5*x^5 3*x^4 x^3-7*x^2 7*x-20=0

Línea (-6, 0) -(6 , 0)

Línea (0, 400)-(0, -400)

Para i = -5 a 5

Línea (i , 20) -(i, 0)

ActualX = ActualX - 0.3

Imprimir i

Siguiente i

Para x = - 2 a 5 Paso 0.001

j = x ^ 6 - 5 * x ^ 5 3 * x ^ 4 x ^ 3 - 7 * x ^ 2 7 * x - 20

PSet (x, j)

Siguiente x

Fin Sub