媒介変数表示のグラフと，グラフ上の各点における速度ベクトルと加速度ベクトル．

Mathematica プログラム例 ( x=1+2t, y=3+4t-5t^2 )

1. x[t_]:=1+2t;y[t_]:=3+4t-5t^2
2. cur=ParametricPlot[{x[t],y[t]}, {t,-2,4}]
3. vecls1=Table[{{x[t],y[t]},{x'[t],y'[t]}}, {t,-2,4,0.5}];
4. vecls2=Table[{{x[t],y[t]},{x''[t],y''[t]}}, {t,-2,4,0.5}];
5. <<Graphics`PlotField`
6. vec1=ListPlotVectorField[vecls1]
7. vec2=ListPlotVectorField[vecls2]
8. Show[cur,vec1]
9. Show[cur,vec1,vec2]

計算結果