Program Gauss
페이지 정보
작성일 19-06-17 05:52본문
Download : Program Gauss.hwp
레포트/기타
Program Gauss , Program Gauss기타레포트 , Program Gauss
Download : Program Gauss.hwp( 30 )
설명
Program Gauss_elimination_haesoo
Implicit none
real :: A(4,4), B(1:4), C(4,5), X(1:4)
integer :: i, j, k
open(unit=10, file=`zi2.txt`, status=`old`)
do i = 1,4
read (10,) (A(i,j), j = 1,4)
end do
do i = 1,4
read (10,) B(i)
end do
do i = 1,4
do j = 1,4
C(i,j) = A(i,j)
end do
end do
do i = 1,4
C(i,5) = B(i)
end do
do i = 1,3
do j=i+1,4
do k=i,5
C(j,k) = C(j,k) / C(j,i)
end do
end do
do j=i+1,4
do k=i,5
C(j,k) = C(j,k) C(i,i)
end do
end do
do j=i+1,4
do k=i,5
C(j,k) = C(i,k) - C(j,k)
end do
end do
end do
write (,) `result of gauss elimination `C=[A B]``
do i = 1, 4
write (,100) `(`,c(i,1:4),`|`,c(i,5),`)`
end do
do i = 1,4
do j = 1,4
A(i,j) = C(i,j)
end do
end do
do i = 1,4
B(i) = C(i,5)
end do
X(4) = B(4)/A(4,4)
X(3) = (B(3)-A(3,4)X(4))/A(3,3)
X(2) = (B(2)-A(2,4)X(4) - A(2,3)X(3))/A(2,2)
X(1) = (B(1) - A(1,4)X(4) - A(1,3)X(3…(생략(省略))
Program Gauss
순서
Program,Gauss,기타,레포트
Program Gauss
다.