partial pressure of steam
function pd_pTX extends Modelica.Icons.Function; input Modelica.SIunits.AbsolutePressure p "Pressure"; input Modelica.SIunits.Temperature T "Temperature"; input Modelica.SIunits.MassFraction X[:] = Modelica.Media.Air.ReferenceMoistAir.reference_X "Mass fractions"; output Modelica.SIunits.AbsolutePressure pd "partial pressure"; end pd_pTX;