Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A_02 THE GUASS SEIDEL METHOD
PROGRAM GUASS_SEIDEL_METHOD IMPLICIT NONE REAL::MAT(4,3),X,Y,Z INTEGER::I,J X=1.5 Y=1.5 Z=-0.5 DATA MAT / 8.0,-3.0,2.0,11.0 , & 2.0,-8.0,-1.0,-3.0, & 2.0,-4.0,-10.0,10.0 / DO I=1,100 X=(MAT(4,1)+(-1.0*MAT(2,1)*Y)+(-1.0*MAT(3,1)*Z))/MAT(1,1) Y=(-1.0*MAT(4,2)+(MAT(1,2)*X)+(MAT(3,2)*Z))/(-1.0*MAT(2,2)) Z=(-1.0*MAT(4,3)+(MAT(1,3)*X)+(MAT(2,3)*Y))/(-1.0*MAT(3,3)) END DO PRINT*,'THE MATRIX IS:' PRINT*,MAT PRINT*, ' THE SOLUTIONS IS:' PRINT*,X,Y,Z STOP END PROGRAM GUASS_SEIDEL_METHOD
run
|
edit
|
history
|
help
0
points on,inside circle
gauss seidel and jacobi
Sum of series
Sffgg
1
A_01 FIXED_POINT_IM(I)
G b
Fortran!
4 ER 2(I)
Practice 2(I)