Pressure loss after Hagen-Poiseuille:
pressureLoss := m_flow * (8*mu*l)/(pi*rho*r^4);
function laminarPressureLoss extends Internal.FlowResistance.partialPressureLoss; import Modelica.Constants.pi; end laminarPressureLoss;