포트란 프로그래밍으로 알아본 태양과 지구의 복사방출량 차이
- 최초 등록일
- 2008.07.23
- 최종 저작일
- 2007.03
- 3페이지/ 한컴오피스
- 가격 1,000원
소개글
포트란 프로그래밍으로 알아본 태양과 지구의 복사방출량 차이
목차
◎ 포트란 프로그램을 이용한 태양과 지구의 방출 복사량 계산(그래프)
program math_ps
end program
program radiation
end program
본문내용
◎ 포트란 프로그램을 이용한 태양과 지구의 방출 복사량 계산(그래프)
program math_ps
implicit none
integer::temp_earth,temp_sun
real*8::ramda_d,b_ramda_earth,b_ramda_sun,earth_sum,sun_sum,sigma,e_earth,e_sun,i
real*8::sun_pick,earth_pick,wien_sun,wien_earth,j,balue_sun_pick,balue_earth_pick
temp_earth=288
temp_sun=5770
earth_sum=0
sun_sum=0
sun_pick=0
earth_pick=0
sigma=5.67/100000000
open(11,file=`b_ramda.txt`)
do i=1, 100000
read(11,*)b_ramda_sun,b_ramda_earth
ramda_d=1/10000000.
sun_sum=sun_sum+b_ramda_sun*ramda_d
earth_sum=earth_sum+b_ramda_earth*ramda_d
j=i/10.
if(sun_pick<b_ramda_sun)then
sun_pick=b_ramda_sun
balue_sun_pick=j
end if
if(earth_pick<b_ramda_earth)then
earth_pick=b_ramda_earth
balue_earth_pick=j
end if
end do.
참고 자료
없음