검색어 입력폼

[ 수치해석 ] Gauss-Jacobi 방법 코딩

저작시기 2007.11 |등록일 2013.04.28 한글파일한글 (hwp) | 3페이지 | 가격 1,500원

소개글

포트란을 이용한 Gauss-Jacobi 방법 검증 코딩

목차

없음

본문내용

program Gauss_jacobi
implicit none real b(3), A(3,3),i,n,j,x(3),tol,t,soln,max,error(3),s,x_next(3),times
a(1,1)=9 a(1,2)=4 a(1,3)=1 b(1)=-17
a(2,1)=1 a(2,2)=6 a(2,3)=0 b(2)=4
a(3,1)=1 a(3,2)=-2 a(3,3)=-6 b(3)=14
n=3
tol=0.0001 times = 0

11 format( 3(f11.1,1x),/)12 format(1x,f11.0,1x,A)13 format(A,f11.3,1x,f11.3,1x,f11.3,1x)
print *, "초기값을 입력하시오." read *, s print *, "최대 계산 횟수를 입력하시오." read *,max
do i=1,3 x(i) = s end do

참고 자료

없음
다운로드 맨위로