Calculates the dimension factor φ for Tapered reduction/expansion. The tapered angle θ should be specified.
Tapered Reduction: |
Tapered Expansion: |
function Tapered extends Modelica.Icons.Function; input SI.ReynoldsNumber N_Re "Reynolds number"; input SI.Height p_eps "Pipe roughness height"; input SI.Diameter D_i, D_o "Pipe diameters"; input Modelica.Units.NonSI.Angle_deg theta "Angle of taper"; output Real phi "Dimension factor"; end Tapered;