Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Forward
! program gause_back elimination DIMENSION A(10,11),X(10) WRITE(*,*)'ENTER THE DIMENSION OF THE SYSTEM' READ(*,*)N WRITE(*,*)'ENTER THE ELEMENT OF A (ROW-WISE)' DO I=1,N READ(*,*)(A(I,J),J=1,N+1) END DO DO 10 K=1,N+1 PIVOT=A(K,K) DO 20 I=K+1,N FACTOR=A(I,K)/PIVOT DO 30 J=1,N+1 A(I,J)=A(I,J)-FACTOR*A(K,J) 30 CONTINUE 20 CONTINUE 10 CONTINUE ! C ****CHECK FOR TRAINGULIZATION***** DO I=1,N WRITE(*,*)(A(I,J),J=1,N+1) END DO ! C**** BACK SUBSTITUTIONS***** X(N)=A(N,N+1)/A(N,N) DO 40 K=N-1,1,-1 SUM=0 DO 50 J=K+1,N SUM=SUM+A(K,J)*X(J) 50 CONTINUE X(K)=(A(K,N+1)-SUM)/A(K,K) 40 CONTINUE ! C ******RESULT********** WRITE(*,*)'THE SOLUTION VECROT IS' DO I=1,N WRITE(*,60)I,X(I) END DO 60 FORMAT('X(',I2,')='F5.2) STOP END
run
|
edit
|
history
|
help
0
A_04 SIMPSON'S RULE (3(I))
Practice cheby
Fixed point for several variables
NEWTON SECOND LAW
IF GO TO
DO END DO
underoverflow
Question1(b)
A_02 JACOBI METHOD
Subroutine problem