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
What else can I help you with?
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 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 is Franciscus Vieta nickname?
He didn't have one. Though I suppose some people might have called him Franny... but I doubt it.
Why is it vietor triangle is inverted?
The Vieta triangle is inverted to provide a geometric interpretation of Vieta's formulas in relation to the roots of a polynomial. By inverting the triangle, the relationships between the roots and the coefficients of the polynomial can be visually represented, allowing for easier understanding of how the roots interact. This inversion can also highlight symmetries and relationships that might not be as apparent in a standard orientation.
