검색어 입력폼

[ 수치해석 ] 포트란을 이용한 사면안정 해석 코딩

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

목차

없음

본문내용

implicit none
Real, Dimension(0:31,0:217) :: H
Real :: amax, oldval, err
integer :: numit, i, j

open(unit=1,file="output1.txt",status="unknown")

!mesh= 1m*1m

!전체 초기값 설정
do i=0,31
do j=0,217
H(i,j)=0
end do
end do

!댐 좌측 상부 경계 조건
do j=0,101
H(0,j)=15
end do

!댐 우측 상부 경계 조건
do j=117,217
H(0,j)=2
end do

!좌측 경계
do i=0,30
H(i,0)=15
end do

!우측 경계
do i=0,30
H(i,217)=2
end do

참고 자료

없음
다운로드 맨위로