Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_002 GUASSIAN ELIMINATION METHOD
PROGRAM GUASSIAN_EM IMPLICIT NONE REAL::MAT(4,3),D INTEGER::I,J DATA MAT / 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=MAT(1,1) DO I=1,4 MAT(I,1)=MAT(I,1)/D END DO DO J=2,3 D=MAT(1,J) DO I=1,4 MAT(I,J)=MAT(I,J)-(MAT(I,1)*D) END DO END DO D=MAT(2,2) DO I=1,4 MAT(I,2)=MAT(I,2)/D END DO D=MAT(2,1) DO I=1,4 MAT(I,1)=MAT(I,1)-(MAT(I,2)*D) END DO D=MAT(2,3) DO I=1,4 MAT(I,3)=MAT(I,3)-(MAT(I,2)*D) END DO D=MAT(3,3) DO I=1,4 MAT(I,3)=MAT(I,3)/D END DO DO J=1,2 D=MAT(3,J) DO I=1,4 MAT(I,J)=MAT(I,J)- (MAT(I,3)*D) END DO END DO PRINT*,MAT STOP END PROGRAM GUASSIAN_EM
run
|
edit
|
history
|
help
0
Pivot
FIND A DAY
Prime
A_02 QUESTIONS NUMBER 3
Fixed point for several variables
machine epsilon
points on,inside circle
Y
Practice 2(I) second time
3