검색어 입력폼

FORTRAN을 이용한 열전달 2차원 해석

저작시기 2006.04 |등록일 2008.03.09 | 최종수정일 2015.09.06 한글파일한글 (hwp) | 22페이지 | 가격 2,900원

소개글

<2차원 열전달 해석>
격자 20x20
프로그램 코드 (FOTRA)
격자의 온도 분포
Matlab을 사용한 온도 분포 그래프

목차

■ 열전달 해석
A, B 행렬 생성
GAUSS - ELIMINATION METHOD
GAUSS - JORDAN METHOD
LU - METHOD
GAUSS - SEIDEL METHOD
JACOBI METHOD

■ 결과 그래프
■ 온도분포 (Gauss-elimination)

본문내용

A, B 행렬 생성 프로그램
REAL A(190, 190), B(190)
DO I=1, 190
DO J=1, 190
A(I,J)=0.0
ENDDO

IF(I.LT.11) THEN
B(I)=-100
ELSE
B(I)=0
ENDIF
ENDDO

DO I=1, 190
A(I,I)=-4
IF(I.LE.189)THEN
A(I,I+1)=1
ENDIF

IF(I.GT.1) THEN
A(I,I-1)=1
ENDIF

IF(I.LE.180) THEN
A(I,I+10)=1
ENDIF

IF(I.GT.10) THEN
A(I,I-10)=1
ENDIF
ENDDO

DO I=1, 190
REST=MOD(I,10)
IF(REST.EQ.0)THEN
A(I,I-1)=2
ENDIF

IF(REST.EQ.0.AND.I.LT.190) THEN
A(I,I+1)=0.0
A(I+1,I)=0.0
ENDIF
다운로드 맨위로