Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Gauss forward elimination
! program gause_forward 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=N,1,-1 PIVOT=A(K,K) DO 20 I=K-1,1,-1 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**** FORWARD SUBSTITUTIONS***** X(N)=A(N,N+1)/A(N,N) DO I=1,N END DO DO 40 K=1,N SUM=0 DO 50 J=1,N-1 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
Summation of 1 to 100 integer namber
Adams-Bashforth Method for four step
9
A_01 NEWTON_RM(B(I))
রাবেয়া সরকার রিমা 💙💚💛
y
Y
A_02 THE GUASS SEIDEL METHOD
A_01 QN:1(I)
A_02 JACOBIAN NEWTON'S METHOD