>	restart:#"m08_p03"

Calcular la cantidad de agua que hay que aÑadir para pasar aire atmosférico de 2 °C y 70% de humedad a 26 °C y 40% de humedad.

Datos:

>	read"../therm_eq.m":read"../therm_proc.m":with(therm_proc):

>	su1:="Aire":su2:="H2O":dat:=[T1=(2+273)*K_,phi1=0.7,T2=(26+273)*K_,phi2=0.4];

Esquema:

>

>

Eqs. const.:

>	Adat:=get_gas_data(su1):Adat:=subs(c[p]=c[pa],R=R[a],M=M[a],T[b]=nada,[Adat]):Wgdat:=get_gas_data(su2):Wgdat:=subs(c[p]=c[pv],R=R[v],M=M[v],[Wgdat]):Wldat:=get_liq_data(su2):Wdat:=op(Wgdat),Wldat:get_pv_data(su2):dat:=op(dat),Const,SI2,SI1:

a) Calcular la cantidad de agua que hay que añadir para pasar aire atmosférico de 2 °C y 70% de humedad a 26 °C y 40% de humedada

>	w1_:=evalf(subs(dat,w(phi1,T1,p0))):'w1'=evalf(%,2);w2_:=evalf(subs(dat,w(phi2,T2,p0))):'w2'=evalf(%,2);w12_:=w2_-w1_:'w12'=evalf(%,2);

i.e. hay que añadir 5,5 g de agua por cada kg de aire seco.

>