model forcaHarmonica "Força harmônica"
  extends forca;
  parameter Real Fo = 100.0;
  parameter Real T = 2.0;
  parameter Real to = 0.0;
equation
  P = funcaoHarmonica(time, Fo, T, to);
  annotation(Diagram(coordinateSystem(extent = {{-148.5, -105}, {148.5, 105}}, preserveAspectRatio = true, initialScale = 0.1, grid = {5, 5})));
end forcaHarmonica;