Simple cubic trajectory example

Path endpoints (format = {time, value})

p0 = {0, 15} ; pf = {3, 75} ;

Corresponding cubic polynomial

poly = CubicPolyTrajectory[{p0, pf}, 0, 0]

(15 + 20 t^2 - (40 t^3)/9) If[t≥0&&t<3, 1, 0] + If[t≥3, 75, 0]

Plot result

PlotPolyTrajectory[{p0, pf}, {p0[[1]], pf[[1]] + 2}, Blue, CubicPolyTrajectory, 0, 0, PlotLabe ... p0[[1]], pf[[1]] + 2}, Blue, CubicPolyTrajectory, 0, 0, PlotLabel->"Acceleration"] ;

[Graphics:../HTMLFiles/index_27.gif]

[Graphics:../HTMLFiles/index_28.gif]

[Graphics:../HTMLFiles/index_29.gif]

Created by Mathematica  (November 12, 2003)