Resumen Raices cuadradas por el método de Newton

Mensaje enviado por AVernieri@juncalnet.com.ar

Hola!

Gente, para aquellos que estén interesados en el tema de las raíces cuadradas, aquí les paso una rutinita muy sencilla, para encontrar raices cuadradas por el método de Newton...

Fijense que es sorprendente la velocidad de convergencia de la serie, en cuatro o cinco iteraciones se obtienen resultados bastante precisos...

Numero: es el numero del cual quiero obtener la raiz cuadrada
El resultado queda en Raiz.

Que la disfruten!
Saludos
Alberto

Anterior = 0
Raiz = Numero / 2#

Do Until Abs(Raiz - Anterior) < 0.0000000001 ' Aqui va la precision a conseguir
  Anterior = Raiz
  Raiz = (Anterior + Numero / Anterior) / 2#
  Debug.Print Raiz ' Este debug es para ver como va convergiendo la formula...
Loop



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com