Scribd
Cargar
511 vistas1 página

Algoritmo de Gauss-Seidel en Pseudocódigo

Este algoritmo de Gauss-Seidel resuelve sistemas de ecuaciones lineales mediante iteraciones sucesivas. Primero lee los datos del sistema (coeficientes de la matriz y términos independientes) y establece valores iniciales para la solución. Luego, en cada iteración actualiza el valor de cada incógnita reemplazando en la ecuación correspondiente los valores actualizados de las demás incógnitas. Finaliza cuando el error entre iteraciones consecutivas cae por debajo de un umbral o supera el número máximo de iteraciones permitidas, e imprime la

Cargado por

Andres Raggi
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd
511 vistas1 página

Algoritmo de Gauss-Seidel en Pseudocódigo

Este algoritmo de Gauss-Seidel resuelve sistemas de ecuaciones lineales mediante iteraciones sucesivas. Primero lee los datos del sistema (coeficientes de la matriz y términos independientes) y establece valores iniciales para la solución. Luego, en cada iteración actualiza el valor de cada incógnita reemplazando en la ecuación correspondiente los valores actualizados de las demás incógnitas. Finaliza cuando el error entre iteraciones consecutivas cae por debajo de un umbral o supera el número máximo de iteraciones permitidas, e imprime la

Cargado por

Andres Raggi
Derechos de autor
© © All Rights Reserved
Nos tomamos en serio los derechos de los contenidos. Si sospechas que se trata de tu contenido, reclámalo aquí.
Formatos disponibles
Descarga como PDF, TXT o lee en línea desde Scribd

Pseudocodigo del algoritmo de Gauss - Seidel

x(i) = (x(i) + b(i)) / a(i,i)


START PROGRAM GaussSeidel END DO
! max = ABS(x(1))
! Ingreso de datos DO i=2,n ! norma infinito de x
! ------------------------------------- IF (ABS(x(i))> max) THEN
READ n ! dimension del sistema max = ABS(x(i))
! Leer coeficientes de la matriz y del vector de terminos independientes END IF
DO i=1,n END DO
DO j=1,n !ingreso de los coeficientes de la ecuacion i Ex = ABS((max – maxo) /max )
READ a(i,j) k = k+1
END DO IF (Ex <= Tol ) THEN ! proced. exitoso
READ b(i) !ingreso del termino independiente de la ecuaccion i Flag = 1
END DO END IF
READ Tol !tolerancia del error IF (k > NMI ) THEN ! proced. no exitoso
READ NMI ! Numero Maximo de Iteraciones Flag = 2
DO i=1,n END IF
READ xo(i) ! valores del vector incial IF ((k > NMI ) .OR. (Ex <= Tol)) EXIT
END DO xo = x
! norma infinito de xo maxo = max
maxo = ABS(xo(1)) EN DO
DO i=2,n IF (Flag < 2) THEN
IF (ABS(xo(i))> max) THEN PRINT ‘Procedimiento termino exitosmente’
max = ABS(xo(i)) DO i=1,n
END IF PRINT x(i) ! valores del vector solucion
END DO END DO
! ELSE
k=1 PRINT ‘ Numero de iteraciones exedido’
DO END IF
DO i=1,n !
DO j=1,i-1 END PROGRAM GaussSeidel
x(i) = x(i) - a(i,j) * x(j)
END DO
DO j=i+1,n
x(i) = x(i) - a(i,j) * xo(j)
END DO
x(i) = (x(i)+b(i)) / a(i, i)
END DO

También podría gustarte