model testeF
  parameter Real Re = 100000000;
  parameter Real epsilon = 0.046 / 130.0;
  parameter Real T = 100;
  Real f;
  Real re;
equation
  re = 2000 + time / T * Re;
  f = coeficienteAtrito(re, epsilon);
  annotation(experiment(StopTime = 100), Diagram(coordinateSystem(extent = {{-148.5, -105}, {148.5, 105}}, preserveAspectRatio = true, initialScale = 0.1, grid = {5, 5})));
end testeF;