> |
restart;#'therm_eq8.mws'.22-6-00. |
Chapter 8: Set of pre-written equations available.
Definition of molar fraction for the water vapor
> |
eq8_1:=x[v]=n[v]/(n[a]+n[v]); |
Raoult's law applied to saturated humid air
> |
eq8_2:=x[v,sat]=p[v](T)/p; |
Definiton of realtive humidity
> |
eq8_3:=phi=x[v]/x[v,sat];eq8_4:=phi=x[v]/(p[v](T)/p); |
Definiton of absolute humidity, and relation with the molar fraction
> |
eq8_5:=w=m[v]/m[a];eq8_6:=x[v]=1/(Mva/w+1); |
Relation phi(w,T,p)
> |
eq8_7:=phi=1/((p[v](T)/p)*(Mva/w+1)); |
Relation w(phi,T,p)
> |
eq8_8:=w=Mva/((p/(phi*p[v](T)))-1); |
Definition of the dew-point temperature
> |
eq8_9:=p[v](T[R])=phi*p[v](T); |
Definition of the adiabatic saturation (wet-bulb) temperature (neglecting the enthalpy input by the supply water
> |
eq8_10:=''h(T,w(phi,T,p))=h(Tsa,w(1,Tsa,p))''; |
Humid-air enthalpy. Note that 0-references are taken for water in the liquid state and for air in the gas state, both at 0 ÂșC (T[tr]) and 100 kPa (p0).
> |
eq8_11:=h=c[pa]*(T-T[f])+w*((h[lv0]-(c[pv]-c)*(T[b]-T[f]))+c[pv]*(T-T[f])); |
Humid-air density.
> |
eq8_12:=rho=(p/(R[a]*T))*(1-w*(1-Mva)/(w+Mva)); |
WARNING. A list of all variables follows, to copy and paste to the save command (after Maple7 there is no saving all). CAUTION: After pasting all, I must MANUALLY delete system variables: like RealRange_...
> |
save eq8_1, eq8_10, eq8_11, eq8_2, eq8_3, eq8_4, eq8_5, eq8_6, eq8_7, eq8_8, eq8_9,eq8_10,eq8_11,eq8_12, "../therm_eq8.m":" |