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

Author: ARIADNETSAMBALI

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

Add a 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 ...
Read more

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" ...
Read more

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 ...
Read more

solution of system of linear equations - Gauss Jordan method

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

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.
Read more

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; ...
Read more

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 ...
Read more

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 ...
Read more

Solving linear equation systems - Qucs project: Quite ...

Solving linear equation systems ... the Gaussian elimination. The Gauss-Jordan method ... matrices . In such cases, the solution vector ...
Read more

Solve Systems of 3 Linear Equations Using Matrices: Gauss ...

Solve Systems of 3 Linear Equations Using Matrices: Gauss ... Solution Using Matrices: Gauss Elimination and Back Substitution. Solution: Systems of 3 ...
Read more