Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_02 GUASSIAN ELIMINATION METHOD
PROGRAM GUASSIAN_EM IMPLICIT NONE REAL::A(4,3),D INTEGER::I,J DATA A / 2.0,-5.0,3.0,-1.0 , & 3.0,1.0,-4.0,-10.0, & -2.0,-3.0,6.0,10.0 / D=A(1,1) DO I=1,4 A(I,1)=A(I,1)/D END DO DO J=2,3 D=A(1,J) DO I=1,4 A(I,J)=A(I,J)-(A(I,1)*D) END DO END DO D=A(2,2) DO I=1,4 A(I,2)=A(I,2)/D END DO D=A(2,1) DO I=1,4 A(I,1)=A(I,1)-(A(I,2)*D) END DO D=A(2,3) DO I=1,4 A(I,3)=A(I,3)-(A(I,2)*D) END DO D=A(3,3) DO I=1,4 A(I,3)=A(I,3)/D END DO DO J=1,2 D=A(3,J) DO I=1,4 A(I,J)=A(I,J)- (A(I,3)*D) END DO END DO PRINT*,A STOP END PROGRAM GUASSIAN_EM
run
|
edit
|
history
|
help
0
A_03 EULER'S METHOD
Practice 4 I
Subroutine problem
Inverse matric
A_03 MODIFIED EULER METHOD
spl
A_02 JACOBI METHOD
A_02 JACOBIAN NEWTON'S METHOD
my_second_code
Rabeya