CAMBIOS DE ESTADO
PROBLEMA 1:
Tubos de cobre pulido, de 30 mm de diámetro y 0.85 m de longitud se usan para
hervir agua saturada a 1 bar.
Si los tubos operan al 75% del flujo crítico de calor:
1. ¿Cuántos tubos son necesarios para proporcionar un flujo de vapor igual a
800 kg/h?
2. ¿Cuál es la temperatura superficial correspondiente del tubo?
Solución
%Datos
d=30e-03; %m
l=0.85; %m
m=800/3600; %kg/s
Csf=0.013;
g=9.8; %m/s
%Cálculo del flujo crítico.
%Agua saturada a 1 atm
tsat=XSteam('Tsat_p', 1);
hlv=(XSteam('h_px', 1, 1)-XSteam('h_px', 1, 0))*1e03;
rhov=XSteam('rhoV_p',1);
rhol=XSteam('rhoL_p',1);
myl=XSteam('my_ph',1,XSteam('h_px', 1, 0));
cpl=XSteam('CpL_p',1)*1e03;
kl=XSteam('tcL_p',1);
Prl=myl*cpl/kl;
tkelvin=273.16;
sigma=0.2358*(1-(tsat+tkelvin)/647.15)^1.256*(1-0.625*(1-
(tsat+tkelvin)/647.15));
qmax=pi*hlv*rhov*(sigma*g*(rhol-
rhov)/rhov^2)^0.25*(1+rhov/rhol)^0.5/24;
%Cálculo del número de tubos
q=0.75*qmax;
n=m*hlv/q/pi/d/l;
%Cálculo de la temperatura de la superficie
30
%Se aplica correlación de Rosehnow
ts=tsat+Csf*hlv*Prl*(q/myl/hlv/sqrt(g*(rhol-rhov)/sigma))^(1/3)/cpl;
n = 7.5783 (8 tubos)
ts = 117.7434 ºC
PROBLEMA 2
Se hierve agua a 100ºC por medio de un alambre horizontal de resistencia, de 80 cm
de largo y 4 mm de diámetro, hecho de acero inoxidable pulido mecánicamente.
Determine:
1. Las razones de transferencia de calor hacia el agua y el caudal másico de
evaporación, si la temperatura del alambre es de 115ºC.
2. La razón máxima de evaporación en el régimen de evaporación nucleada.
NOTA: la densidad del vapor en las condiciones que se necesitan para el problema
es igual a 0.5772 kg/m3.
%Datos
tsat=100; %ºC
ts=115; %ºC
tkelvin=273; %ºC
l=80e-02; %m
d=4e-03; %m
Csf=0.013;
%Flujo de calor (W/m2)
s=1; %Por tratarse de agua
g=9.81;
sigma=0.2358*(1-(tsat+tkelvin)/647.15)^1.256*(1-0.625*(1-
((tsat+tkelvin)/647.15)));
%Propiedades del líquido a la temperatura de saturación tsat
myl=0.2817e-03; %Pa*s
rhol=958.3; %kg/m3
cpl=4216; %J/kg/ºC
Prl=1.749;
hlv=2.26e06; %J/kg
31
%Propiedades del vapor a la temperatura media de película y presión de
%raturación
tm=(ts+tsat)/2;
rhov=XSteam('rho_pT',1,tm);
q=myl*hlv*(g*(rhol-rhov)/sigma)^0.5*(cpl*(ts-tsat)/Csf/hlv/Prl^s)^3;
mv=q*pi*d*l/hlv;
%Flujo calorífico crítico
qmax=pi*hlv*rhov*(sigma*g*(rhol-
rhov)/rhov^2)^0.25*(1+rhov/rhol)^0.5/24;
Soluciones:
q = 4.7377e+005 W/m2
mv = 0.0021 kg
qmax = 1.0906e+006 W/m2
32
