Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Inverse matric
!matrix inversion... dimension a(10,10),bI(10,10) print*,"enter the dimension of a matrix:" read*,n print*,"enter the element of the matrix row wise" do i=1,n read*,(a(i,j),j=1,n) end do do i=1,n do j=1,n bI(i,j)=0 end do bI(i,i)=1 end do do k=1,n do i=1,n if (k.ne.i) then r=a(i,k)/a(k,k) do j=1,n a(i,j)=a(i,j)-r*a(k,j) bI(i,j)=bI(i,j)-r*bI(k,j) end do end if end do end do do i=1,n do j=1,n bI(i,j)=bI(i,j)/a(i,i) end do end do print*,"inverse of a=" do i=1,n print*,(bI(i,j),j=1,n) end do stop end
run
|
edit
|
history
|
help
0
A_02 THE GUASS SEIDEL METHOD
A_02 GUASS SEIDEL METHOD
A_03 ADAMS BASHFORTH S4
Example 45 175 page
Random walk by using Monte Carlo method
A_02 GUASSIAN_ELIMINATION METHOD
A_04 SHOOTING METHOD
problem_4
Hello / fortran
y