Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
gghhhhh
! Gauss elimination method ! Back substitution Dimension a (10,10),x (10) Write (*,*)'Enter the otder of the matrix' Read (*,*)n Write (*,*)'Enter the augmented matrix' Do i=1,n Read (*,*) ( A (i,j),j=1,n+1) Enddo Do k=1,n-1 Do i=k+1,n Do j=k+1,n+1 A (i,j)= a (i,j)-(a (i,k)/a (k,k))*a (k,j) Enddo Enddo Enddo X (n)=a (n,n+1)/a (n,n) Do k=n-1,1,-1 S=0 Do j=k+1,n S=s+a (k,j)*x (j) Enddo X (k)=(1/a (k,k))*(a(k,n+1)-s) Enddo Write (*,*)'The solutions are',(x (i),i=1,n) Stop End
run
|
edit
|
history
|
help
0
underoverflow
Fhhjhh
A_04 GUASSIAN QUADRATURE METHOD
expx
A_03 MODIFIED EULER METHOD
Matrix 3×3
Ashish.txt
A_04 GUASSIAN QUADRATURE METHOD
Fixed point for several variables
A_01 FALSE_POSITION_METHOD