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
Find HM
A_01 NEWTON_RM(B(II))
trapezna for
Sum of inverse square series
A_01 FIXED_POINT_IM(II)
Matrix problem
finitos
9
Forward
A_01 SECANT_METHOD