Example #1: Non-dextrous workspace: (x, y) = (3, 2)

First set of positions

RowBox[{Timing, [, RowBox[{RowBox[{tr, =, RowBox[{noDiscontinuitiesTrajectory, [, , RowBox[{{3, 4, 4}, ,, {3, 2}, ,, 51, ,, 4.}], ]}]}], ;}], ]}]

RowBox[{{, RowBox[{RowBox[{0.68, , Second}], ,, Null}], }}]

animateTrajectory[tr, 0] ;

[Graphics:../anim1.gif]

Second set of positions

animateTrajectory[tr, 1] ;

[Graphics:../anim2.gif]

Aggregate set of positions

superimpose[tr, 25, 35] ;

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

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

Created by Mathematica  (September 29, 2003)