read catrom: # # Compute a full trajectory with independent x, y parametric functions. # x := [0, 0, 2, 1, 0.5, 4, 3, 2.5, 3.5, 3.5]: y := [0, 0, 3, 4, 1, 2, 3, 1, 4, 4]: T := [0, 0, 1, 2, 3, 4, 5, 6, 7, 7]: py := CRsegments(y,t): px := CRsegments(x,t): with(plots): plot1 := plot({[px,py,0..6.99]}): plot2 := plot({pairs(x,y)},style=point): display({plot1,plot2}, title=`Piecewise Cubic Catmull-Rom Trajectory`);