포트란 - planck law
- 최초 등록일
- 2014.12.21
- 최종 저작일
- 2011.05
- 3페이지/ 한컴오피스
- 가격 1,000원
목차
1. program code
2. 결과값
3. Discussion
본문내용
< program code >
program planck_law
implicit none
integer :: i
real :: x, y, T
write(*,*) "T=1000"
do i=1,2000
T=1000
x=i*0.001
y=3.7427*10**8/(((x**5)*exp(1.4388*10**4/(x*T)))-1)
write(*,*) x,y
end do
write(*,*) "T=3000"
do i=1,2000
T=3000
x=i*0.001
y=3.7427*10**8/(((x**5)*exp(1.4388*10**4/(x*T)))-1)
write(*,*) x,y
end do
write(*,*) "T=4000"
do i=1,2000
T=4000
x=i*0.001
y=3.7427*10**8/(((x**5)*exp(1.4388*10**4/(x*T)))-1)
write(*,*) x,y
end do
write(*,*) "T=5000"
do i=1,2000
T=5000
x=i*0.001
y=3.7427*10**8/(((x**5)*exp(1.4388*10**4/(x*T)))-1)
write(*,*) x,y
end do
write(*,*) "T=6000"
참고 자료
없음