Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A
! 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(*,*)I,X(I) END DO STOP END
run
|
edit
|
history
|
help
0
NEWTON FORWARD DIFFERENT INTERPOLATION
Y
Pivot 2
fortran-genetic-algo
A_002 THE GUASS SEIDEL
Adams-Bashforth Method for four step
নাজমুন নাহার
Hello / fortran
4 ER 2(I)
I m