Gabarito homework_01

Questão 01

homework_01_1

program homework_01_1
implicit none
real, parameter :: mu = 1.0, rho_s = 1.0, rho_f = 0.5
real :: delta_p, diametro, velocidade
integer :: i
integer*2 :: val_i, val_f
val_i = 50; val_f = 1000
delta_p = (val_f val_i) / 100
open(10,file='vel-viscoso.txt')
write(10,*) 'diametro velocidade'
do i = 1, 100
diametro = 50 + (i-1) * delta_p
velocidade = ( (0.524) * (diametro)**2 * (rho_s rho_f) ) / mu
write(10,*) diametro, velocidade
end do
close(10)
stop 'Programa finalizado!'
end program

view raw
homework_01_1.f90
hosted with ❤ by GitHub

Resultado:

newplot


Questão 02

program homework_01_2
implicit none
real, parameter :: so = 1367.0 ! fluxo médio anual da energia solar incidente sobre o planeta Terra
real, parameter :: alfa = 0.3 ! média do albedo
real, parameter :: sigma = 5.57e8 ! W m^-2 K^-4 – constante de Stefan-Boltzmann
real :: temperatura_emissividade, temperatura_emissividade1,temperatura_emissividade2
temperatura_emissividade = ( so * ( (1.0 alfa) / (4.0 * sigma) ) )**0.25
temperatura_emissividade1 = ( so * 0.3 * ( (1.0 alfa) / (4.0 * sigma) ) )**0.25
temperatura_emissividade2 = ( so * ( (1.0 ( alfa + alfa * 0.3 )) / (4.0 * sigma) ) )**0.25
print *, 'Temperatura de emissividade da Terra So = 1367.0 : ', temperatura_emissividade
print *, 'Temperatura de emissividade da Terra So – 30% : ', temperatura_emissividade1
print *, 'Temperatura de emissividade da Terra Albedo – 30% : ', temperatura_emissividade2
stop 'Programa finalizado!'
end program
! Resultado
! Temperatura de emissividade da Terra So = 1367.0 : 2.55998746E-02 ! Temperatura de emissividade da Terra So – 30% : 1.89460274E-02 ! Temperatura de emissividade da Terra Albedo – 30% : 2.47340817E-02

view raw
homework_01_2.f90
hosted with ❤ by GitHub

Resultado:

Temperatura de emissividade da Terra So = 1367.0     :    2.55998746E-02
Temperatura de emissividade da Terra So - 30%        :    1.89460274E-02
Temperatura de emissividade da Terra Albedo - 30%    :    2.47340817E-02

Deixe um comentário

Faça o login usando um destes métodos para comentar:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Este site utiliza o Akismet para reduzir spam. Saiba como seus dados em comentários são processados.