Przykład nr 2 ruchu po linii prostej

A=5; (* 1/m *)

B=1; (* s/m *)

(* Ruch odbywa się po osi x *)

x=t/(A*t+B);

y=0;

tmax=10; (* s *)

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

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

Plot[x,{t,0,tmax},PlotRange->All,AxesLabel->{"t [s]", "x [m]"}]

LogPlot[x,{t,0,tmax},PlotRange->All,AxesLabel->{"t [s]", "x [m]"}]

vx=Simplify[D[x,t]]

Plot[vx,{t,0,tmax},PlotRange->All,AxesLabel->{"t [s]", "vx [m/s]"}]

LogPlot[vx,{t,0,tmax},PlotRange->All,AxesLabel->{"t [s]", "vx [m/s]"}]

ax=Simplify[D[x,{t,2}]]

Plot[ax,{t,0,tmax},PlotRange->All,AxesLabel->{"t [s]", "ax [m/(s^2)]"}]

(* Uwaga: ax < 0, więc rysuję - ax *)

LogPlot[-ax,{t,0,tmax},PlotRange->All,AxesLabel->{"t [s]", "-ax [m/(s^2)] "}]

(* Abs[vx]=vx *)

s12=FullSimplify[Integrate[vx,{t,t1,t2}],Element[{t1,t2},Reals]&&t2>t1>0]

(* Całkowita droga przebyta od chwili t=0 po nieskończenie długim czasie *)

stotal=FullSimplify[Integrate[vx,{t,0,Infinity}]]

(* Ten wynik zgadza się z granicą x(t) przy t zmierzającym do nieskończoności, bo punkt materialny nigdzie nie zawraca, a jego prędkość zmierza do zera *)

Limit[x,t->Infinity]