Przykład krzywej Lissajous

Ruch punktu materialnego dany jest układem równań
x = b sin ( 2ω t ),
y = c cos ( 3 ω t ),
gdzie b, c i ω to dodatnie stałe.

Przykład:

b=5;c=2;ω=4π;p=ParametricPlot[{b Sin [2ω t],c Cos [3ω t]},{t,0,6π/ω},PlotRange->{{-11/2,11/2},{-5/2,5/2}},AxesLabel->{"x [m]","y [m]"},PlotLabel-> " x=b*sin(2ωt), y=c*cos(3ωt), b=5m, c=2m, ω=4π"];
 (* Export[ NotebookDirectory[] <> "przyklad2.png",p]; *)

Animate[Show[p,ListPlot[{{b Sin [2ω t],c Cos [3 ω t]}},PlotStyle->{PointSize[0.03],Red}]],{t,0,2π/ω}]