Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
fucugigugug
real a(50,50),b(50,50),c(50,50) integer p write(*,*)'enter the order of the matrix' read(*,*)n write(*,*)'enter the matrix' do i=1,n read(*,*)(a(i,j),j=1,n) enddo do i=1,n do j=1,n b(i,j)=a(i,j) enddo enddo do p=1,n call trace (n,b,t) t=t/p write(*,*)t call operation (n,b,t,a,c) do i=1,n do j=1,n b(i,j)=c(i,j) enddo enddo enddo end subroutine trace(n,a1,t1) real a1(50,50),t1 t1=0 do i=1,n t1=t1+a1(i,i) enddo return stop end subroutine operation(n,b1,tr,am,c1) real am(50,50),b1(50,50),c1(50,50),tr do i =1,n b1(i,i)=b1(i,i)-tr enddo do i=1,4 do j=1,4 c1(i,j)=0 do k=1,n c1(i,j)=c1(i,j)+am(i,k)*b1(k,j) enddo enddo enddo return end
run
|
edit
|
history
|
help
0
Q1a
Question1(b)
Pivot
Practice cheby
y
Recursive fibonacci
Y
A_04 FINITE DIFFERENCE METHOD
Shooting
A_03 EULER'S METHOD