model EsferaViscosa_plano "Esfera com força viscosa"
  constant Real g = 10.0;
  parameter Real m = 0.2;
  parameter Real c = 10.0;
  Real y(start = 0.0), v(start = 0.0), a;
  Real P, Fd;
equation
  m * a = P - Fd;
  der(v) = a;
  der(y) = v;
  P = m * g;
  Fd = c * v;
  annotation(experiment(StopTime = 0.2), Diagram(coordinateSystem(extent = {{-148.5, -105}, {148.5, 105}}, preserveAspectRatio = true, initialScale = 0.1, grid = {5, 5})));
end EsferaViscosa_plano;