Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
A
!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
euler-cromer
divisibility rule
Find HM
Regression
A_03 ADAMS FORTH O PRED.CORR.METHOD
Reza bisection
Backward
A_04 SIMPSON'S ONE THIRD(3(I))
Summation of 1 to 100 square integer namber
A_03 RUNGE KUTTA METHOD O(4)