Example #2: Dextrous workspace: (x, y) = (1.5, 1.5)

First set of positions

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

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

animateTrajectory[tr, 0] ;

[Graphics:../anim3.gif]

Second set of positions

animateTrajectory[tr, 1] ;

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

Aggregate set of positions

superimpose[tr, 25, 35] ;

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

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

Created by Mathematica  (September 29, 2003)