model EsferaViscosa_bloco "Esfera em meio viscoso modelada por blocos"
  Modelica.Blocks.Continuous.Integrator integrator annotation(Placement(visible = true, transformation(origin = {50, -0}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
  Modelica.Blocks.Math.Gain gain(k = 1 / 0.2) annotation(Placement(visible = true, transformation(origin = {10, -0}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
  Modelica.Blocks.Math.Gain gain1(k = 0.2) annotation(Placement(visible = true, transformation(origin = {-68.291, -0}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
  Modelica.Blocks.Math.Gain gain2(k = 10) annotation(Placement(visible = true, transformation(origin = {50, -50}, extent = {{10, -10}, {-10, 10}}, rotation = 0)));
  Modelica.Blocks.Math.Feedback feedback annotation(Placement(visible = true, transformation(origin = {-28.19, 0}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
  Modelica.Blocks.Sources.Step step(height = 10) annotation(Placement(visible = true, transformation(origin = {-106.906, 0}, extent = {{-10, -10}, {10, 10}}, rotation = 0)));
equation
  connect(integrator.y, gain2.u) annotation(Line(visible = true, origin = {70.75, -25}, points = {{-9.75, 25}, {9.25, 25}, {9.25, -25}, {-8.75, -25}}, color = {0, 0, 127}));
  connect(gain.y, integrator.u) annotation(Line(visible = true, origin = {29.5, -0}, points = {{-8.5, -0}, {8.5, 0}}, color = {0, 0, 127}));
  connect(feedback.y, gain.u) annotation(Line(visible = true, origin = {-10.595, -0}, points = {{-8.595000000000001, 0}, {8.595000000000001, -0}}, color = {0, 0, 127}));
  connect(gain2.y, feedback.u2) annotation(Line(visible = true, origin = {-5.793, -36}, points = {{44.793, -14}, {-22.397, -14}, {-22.397, 28}}, color = {0, 0, 127}));
  connect(gain1.y, feedback.u1) annotation(Line(visible = true, origin = {-46.74, -0}, points = {{-10.551, -0}, {10.551, 0}}, color = {0, 0, 127}));
  connect(step.y, gain1.u) annotation(Line(visible = true, origin = {-88.099, -0}, points = {{-7.807, 0}, {7.807, -0}}, color = {0, 0, 127}));
  annotation(experiment(StopTime = 0.2), Diagram(coordinateSystem(extent = {{-148.5, -105}, {148.5, 105}}, preserveAspectRatio = true, initialScale = 0.1, grid = {5, 5})));
end EsferaViscosa_bloco;