Przykład nr 1 ruchu po linii prostej

A=2; (* m/s *)

B=1; (* m/s *)

(* Ruch odbywa się po osi x *)

x=A*t-B*t^3;

y=0;

tmax=3; (* s *)

p=ParametricPlot[{x,y},{t,0,tmax},PlotRange->{{-22,2},{-1/2,1/2}},AxesLabel->{"x [m]","y [m]"},PlotLabel-> "A=2m/s, B=1m/s"];
 (* Export[ NotebookDirectory[] <> "przyklad.png",p];  *)

Animate[Show[p,ListPlot[{{x,y}/.{t->tt}},  PlotStyle->{PointSize[0.03],Orange}]],{tt,0,tmax}]