This function computes the number of phases for R134a depending on the inputs for absolute pressure and specific entropy. It makes use of cubic spline functions for liquid and vapor specific entropy.
function getPhase_ps
extends Modelica.Icons.Function;
input AbsolutePressure p "pressure";
input SpecificEntropy s "specific entropy";
output Integer phase "number of phases";
end getPhase_ps;