 # SOLUTION OF LINEAR SYSTEM MATRICES WITH GUASS ELIMINATION METHOD

22 %
78 %
Information about SOLUTION OF LINEAR SYSTEM MATRICES WITH GUASS ELIMINATION METHOD

Published on January 22, 2016

Source: slideshare.net

1. DESIGN AN ALGORITHM UNDER FORTRAN 95 TO SOLVED A LINEAR SYSTEM OF MATRICESWITH THE GUASS ELIMINATION METHOD. FORTRAN ALGORITHM FOR A LINEAR SYTSEM OF MATRICES ARIADNE TSAMBALI

2. SOLUTION OF LINEAR SYSTEM MATRICES WITH GUASS ELIMINATION METHOD:- [K][h]=[b] PROGRAM MATRICES !SOLUTION OF A LINEAR SYSTEM WITH GAUSS IMPLICIT NONE REAL,ALLOCATABLE:: A(:,:), B(:),H(:) INTEGER::status, I,J,N=3 ALLOCATE (A(N,N),B(N),H(N), STAT=status) IF (status /= 0) THEN STOP 'NOT ENOUGH MEMORY' ELSE DO I = 1,N !GIVE THE NUMBERS PRINT*, 'EQUATION', I DO J = 1,N PRINT*, 'GIVE A(',J,',',I,')' READ*,A(J,I) ENDDO PRINT*, 'GIVE B(',I,')' READ*, B(I) ENDDO ! GAUSS CALL GAUSS (A,B,H) DO I = 1,N PRINT*,'H(',I,')=', H(I) ENDDO

3. END IF CONTAINS SUBROUTINE GAUSS(A,B,H) REAL:: A(:,:),B(:) REAL:: ATHRISMA,M(SIZE(B)) REAL,INTENT(OUT)::H(:) INTEGER, SAVE:: I,J,K DO I = 1, SIZE(B)-1 DO J = I+1, SIZE(B) M(J) = -A(J,I)/A(I,I) DO K = 1, SIZE(B) A(J,K) = A(J,K) + M(J)*A(I,K) ENDDO B(J) = B(J)+M(J)*B(I) ENDDO ENDDO DO I = SIZE(B),1,-1 ATHRISMA = 0.0 ATHRISMA = SUM(A(I,I:SIZE(B))*H(I:SIZE(B))) H(I) = (B(I)-ATHRISMA) /A(I,I) ENDDO END SUBROUTINE GAUSS END PROGRAM

4. RESULTS:- EQUATION 1 GIVE A( 1, 1) GIVE A( 2, 1) GIVE A( 3, 1) GIVE B( 1) EQUATION 2 GIVE A( 1, 2) GIVE A( 2, 2) GIVE A( 3, 2) GIVE B( 2) EQUATION 3 GIVE A( 1, 3) GIVE A( 2, 3) GIVE A( 3, 3) GIVE B( 3) H( 1)= 2.00000 H( 2)= -1.00000 H( 3)= 1.00000

 User name: Comment:

## Related pages

### Gaussian elimination - Wikipedia, the free encyclopedia

In linear algebra, Gaussian elimination (also known as row reduction) is an algorithm for solving systems of linear equations. It is usually understood as ...

### Systems of Linear Equations: Gaussian Elimination

... three-equation linear systems is more ... Though the method of solution is based on ... This method is called "Gaussian elimination" ...

### Gauss-Jordan Elimination Calculator - Reshish Matrix ...

... using Gauss-Jordan Elimination Calculator ... method. To solve a system of linear equations ... solution set of such system of linear ...

### solution of system of linear equations - Gauss Jordan method

See and learn how to solve system of linear equations by Gauss Jordan method

### Gauss-Jordan Elimination Method - High Speed Internet ...

Gauss-Jordan Elimination Method ... The Gauss-Jordan elimination method to solve a system of linear equations is ... gives us a solution of the system.

### Gaussian Elimination - Home | Mathematics | Oregon State ...

... we may clean up the notation in our work by using matrices. Gaussian Elimination ... method of Gaussian Elimination: ... system has no solutions; ...

### Linear Algebra/Gauss' Method - Wikibooks, open books for ...

Linear Algebra/Gauss' Method. ... one consists of examples of solving linear systems by Gauss' method. ... unknowns linear system whose solution set is ...

### Solution of Linear Systems by Gaussian Elimination Method ...

The Gaussian Elimination method otherwise known as the Gauss-Jordan method or the Row Reduction method ... Solution of Linear Systems by ...