Pseudocodigo Del Algoritmo De Eliminacion Gaussiana Pivoteo Parcial 1i5366

Pseudocodigo del algoritmo de eliminacion gaussiana con pivoteo parcial START PROGRAM GaussPivoteoParcial ! ! Ingreso de datos ! ------------------------------------READ n ! dimension del sistema ! Leer coeficientes de la matriz y del vector de terminos independientes DO i=1,n DO j=1,n !ingreso de los coeficientes de la ecuacion i READ a(i,j) END DO READ b(i) !ingreso del termino independiente de la ecuaccion i END DO ! DO i=1,n-1 ! Pivoteo Parcial ! ------------------------------------may = ABS(a(i,i)) ! inicializacion fmay = i ! inicializacion DO j = i +1, n ! se busca la mayor comp en valor abs de la columna IF (ABS(a(j,i)) > may) THEN may = ABS(a(j,i)) fmay = j END IF END DO DO k = 1,n ! se intercambia la fila i por la fila fmay paso = a(i,k) a(i,k) = a(fmay, k) a(fmay, k) = paso END DO paso = b(i) b(i) = b(fmay) b(fmay) = paso

! ------------------------------------! Eliminacion ! ------------------------------------DO j = i+1,n m= a(j,i) / a(i,i) DO k = i+1,n a(j,k)= a(j,k) – m * a(i,k) END DO b(j) = b(j) – m * b(i) END DO END DO ! ------------------------------------! Sustitucion hacia atras ! ------------------------------------x(n) = b(n) / a(n,n) ! inicio de la sustitucion DO i = n-1,1,-1 x(i) = b(i) DO j = i+1,n x(i) = x(i)- a(i,j) * x(j) END DO x(i) = x(i) / a(i,i) END DO ! Salida de resultados ! ------------------------------------DO i = 1,n Print x(i) END DO ! END PROGRAM GaussPivoteoParcial