model MKC_plano_com_unidades "Sistema massa-mola-amortecedor em modelo plano com unidades e comentários"
  constant Real PI = Modelica.Constants.pi;
  constant Real g(quantity = "Aceleracao", unit = "m/s/s") = 10.0 "Acelearção da gravidade";
  parameter Real m(quantity = "Massa", unit = "kg") = 0.2 "Massa";
  parameter Real k(quantity = "Rigidez", unit = "N/m") = 10000.0 "Constante elástica";
  parameter Real c(quantity = "Amortecimento", unit = "kg/s") = 10.0 "Constante de amortecimento";
  Real y(start = 0.0, quantity = "Posicao", unit = "m") "Posição";
  Real v(start = 0.0, quantity = "Velocidade", unit = "m/s") "Velocidade";
  Real a(quantity = "Aceleracao", unit = "m/s/s") "Aceleração";
  Real P(quantity = "Forca", unit = "N") "Força peso";
  Real Fd(quantity = "Forca", unit = "N") "Força viscosa";
  Real Fk(quantity = "Forca", unit = "N") "Força elástica";
  Real Wn(quantity = "VelocidadeAngular", unit = "rad/s") "Frequência Natural Angular";
  Real Fn(quantity = "Frequencia", unit = "Hz") "Frequência Natural";
equation
  m * a = P - Fd - Fk;
  der(v) = a;
  der(y) = v;
  P = m * g;
  Fk = k * y;
  Fd = c * v;
  Wn = sqrt(k / m);
  Fn = Wn / 2 / PI;
  annotation(Diagram(coordinateSystem(extent = {{-148.5, -105}, {148.5, 105}}, preserveAspectRatio = true, initialScale = 0.1, grid = {5, 5})));
end MKC_plano_com_unidades;