Cambio al método de iteración de ecuaciones de VBA Newton
Sub?main()
Dim?a!?x!
a?=?InputBox("a=",?" Por favor ingrese los coeficientes de la ecuación: ")
b?=?InputBox("b=",?") Por favor ingresa el coeficiente de la ecuación:")
c?=?InputBox("c=",?" ) Ingrese la ecuación Coeficiente de: ")
d?=?InputBox("d=",?") Ingrese el coeficiente de la ecuación: ")
x? =?solución(a,? b,?c,?d)
Debug.Print?"Raíz de ecuación mostrada x=";?x
End?Sub
Función?ByVal ?d!)
Dim?x0!,?x!,?f!,?fd!,?h!
x?=?1.5
¿Hacer
x0?=?x
f?=?a?*?x0?*?x0?*?x0? ?*?x0? c?*?x0? ?d
fd?=?3?*?a?*?x0?*?x0? ?c
h?=?f?/?fd
x?=?x0?-?h
¿Bucle?While(Abs(x?- ?x0)?gt; =?0.00001)
Solución?=?x
¿Fin?