RE:do anidados
Publicado por
Javier (1 intervención) el 06/03/2006 23:22:00
program balance
c MODELO DE BALANCE DE ENERGIA DE ORDEN CERO
integer N
real*8 x,y,Pi,dang
parameter (N=100)
open (unit=10,file='table.dat',status='new')
T1=273
tao=0.64
tao1=1
sigma=5.67e-8
alpha=0.3
fkw_in=342
fkw_out=alpha*fkw_in
dt=360*24
Cw=2e8
flw=0.95*sigma*tao*Ti**4
do 100 i=1,N-1
T(i+1)=Ti+(dt/Cw)*(fkw_in-fkw_out-flw)
write (10,*)'T=', T
100 continue
stop
end