function funcaoHarmonica input Real t; input Real Fo; input Real T; input Real to; output Real F; protected constant Real PI = Modelica.Constants.pi; algorithm F := Fo * sin(2 * PI * (t - to) / T); end funcaoHarmonica;