raizes f(x)=0, Metodo de Newton-Rhapson.

 

Texto,

 'Marcelo Paiva
'Metodo de Newton-Raphson, adaptado de, Souza, Teofilo Miguel de. Calcu-
'Numerico e Aplicacoes,p. 38, --Lorena, Editora Lighthouse, 2014. com
'leves alteracoes relacionadas ao conceito de desvios com comando goto e
'referentes a fução "ABS", funcao modulo, e a funcao IF, a rotina é
'muito boa, para funcao y=x^2 acharemos raiz real, ela exite e x igual
'a zero, para funcao y=x^2+5, o programa entrara em loop infinito procura
'uma aproximacao de uma raiz real que nao existe, esta caracteristica
' tambem aconteceu com um algoritmo meu que nao se baseia o laco na pre-
'cisao do resultado.

dim as  double x
dim as  double erro
dim as  integer n
dim as  double a
dim as  double fx
dim as  double flx
dim as  double erroabs


input "x inicial =";x
input "erro admitido";erro
n=0
setenta:
a=x
fx=x^2
'fx=x^2+5
flx=2*x
x=x-(fx/flx)
erroabs=abs(x-a)
n=n+1
if erroabs>erro then goto setenta else goto centoequarenta
centoequarenta:
cls
print
print "calculo de umaraiz pelo metodo de newton-raphson"
print
print
print x
print n

sleep