model EsferaViscosa_plano_com_unidades "Esfera com força viscosa com unidades e comentários" constant Real g(quantity = "Aceleracao", unit = "m/s/s") = 10.0 "aceleração da gravidade"; parameter Real m(quantity = "Massa", unit = "kg") = 0.2 "massa"; parameter Real c(quantity = "Amortecimento", unit = "kg/s") = 10.0 "constante de amortecimento"; Real y(start = 0.0, quantity = "Comprimento", 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") "Peso"; Real Fd(quantity = "Forca", unit = "N") "Força Elástica"; 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_com_unidades;