0
SUBROUTINE birge_vieta(a,m,x0,n,tol,raiz,clave) ! ------------------------------------------------------------------- IMPLICIT NONE INTEGER, INTENT(IN):: m ! Grado del polinomio REAL, DIMENSION(0:m), INTENT(IN) :: a ! Vector de m+1 elementos ! de los coef. del polinomio REAL, INTENT(IN) :: x0 ! Aproximación inicial a la raíz REAL, INTENT(IN) :: tol ! Tolerancia para el error absolut INTEGER, INTENT(INOUT) :: n ! Número máximo de iteraciones/ ! Iteraciones realizadas REAL, INTENT(OUT):: raiz ! Aproximación a la raiz INTEGER, INTENT(OUT) :: clave ! Clave de éxito: ! 0 : éxito ! >0 : iteraciones excedidas ! ------------------------------------------------------------------- INTEGER :: i, j REAL :: xx0,b,c ! ------------------------------------------------------------------- xx0 = x0 DO i=1,n ! ------------------------- ! Esquema de Horner ! ------------------------- b = a(m) c = a(m) DO j=m-1,1,-1 b = b*xx0+a(j) c = c*xx0+b ENDDO b = b*xx0+a(0) ! ------------------------- ! Método de Newton ! ------------------------- raiz = xx0 - b/c IF (ABS((raiz-xx0)/raiz) < tol) THEN clave = 0 n = i RETURN END IF xx0 = raiz END DO clave = 1 RETURN END SUBROUTINE birge_vieta
Wiki User
∙ 14y ago
Add your answer:
Earn +20 pts
When was Artūras Vieta born?
Artūras Vieta was born in 1961.
How tall is Patti Vieta?
Patti Vieta is 5' 6 1/2".
When was Timoleon Vieta Come Home created?
Timoleon Vieta Come Home was created in 2003.
How many pages does Timoleon Vieta Come Home have?
Timoleon Vieta Come Home has 224 pages.
What is the ISBN of Timoleon Vieta Come Home?
The ISBN of Timoleon Vieta Come Home is 1-84195-422-5.
What actors and actresses appeared in Amor ti vieta - 1910?
The cast of Amor ti vieta - 1910 includes: Enzo Bannino
What has the author Kojo T Vieta written?
Kojo T. Vieta has written: 'The flagbearers of Ghana' 'The flagbearers of Ghana' -- subject(s): Biography 'Know your MPs (2009-2013)'
What actors and actresses appeared in Slikta vieta - 2001?
The cast of Slikta vieta - 2001 includes: Leonids Berzins Kaspars Bindemanis Alvis Hermanis Girts Krumins Aleksandrs Radzevics Uldis Steins Regnars Vaivars
What is Franciscus Vieta nickname?
He didn't have one. Though I suppose some people might have called him Franny... but I doubt it.
What did Francoise Viete introduce?
François Viète, known in intellectual circles as Franciscus Vieta, introduced the use of letters as algebraic parameters in developing what he called the new algebra. He also created the binomial formula and the link between the roots and coefficients of a polynomial, called Vieta's formula.
What movie and television projects has Patti Vieta been in?
Patti Vieta has: Played Reporter in "The Net" in 1998. Played Reporter in "Antitrust" in 2001. Played Melissa in "Dead Like Me" in 2003. Played Woman in "Jake 2.0" in 2003. Played Hotel Host in "Man Without a Name" in 2004.
What actors and actresses appeared in Las olas - 2004?
The cast of Las olas - 2004 includes: Julia Borchert Mayte Vieta
