model dutoRugoso "Duto hidráulico com perda de carga distribuida"
  extends duasVias;
  parameter Real e = 0.0001;
  parameter Real L = 1.0;
  Real epsilon;
  Real Re;
  Real hl;
  Real f;
equation
  z1 = 0.0;
  z2 = 0.0;
  d1 = 0.1;
  d2 = 0.1;
  dh = -hl;
  hl = f * L / d1 * v1 ^ 2 / 2 / g;
  Re = abs(v1) * d1 / nu;
  epsilon = e / d1;
  f = coeficienteAtrito(Re, epsilon);
  annotation(Diagram(coordinateSystem(extent = {{-148.5, -105}, {148.5, 105}}, preserveAspectRatio = true, initialScale = 0.1, grid = {5, 5})));
end dutoRugoso;