Manipulator-specific animation functions

ConvertTrajToGraphics[l_] := <br />    Join[{{Thickness[.015], RGBColor[0, 0, 1], Line[l]}}, {PointSize[.02], RGBColor[1, 0, 0], Point[#]} & /@ l] ;

ExtractMaximalPlotRange[ranges_, l_:2] := <br />    Module[{r2}, <br />&nb ... ]}, {Min[r2[[3]]], Max[r2[[4]]]}, {Min[r2[[5]]], Max[r2[[6]]]}}] <br />    ] ;

AnimateGraphicsList[traj_, l_:2] := <br />    Module[{f, g, plrng}, <br /> ... bsp;Show[f[#], PlotRange->plrng, FrameTrue, AspectRatio->Automatic] & /@ traj] ;

AnimateTrajectory[dh_, traj_, l_:2, n_:20, tfin_:False] := <br />    Modul ...    AnimateGraphicsList[Table[ConvertTrajToGraphics[traj2], {t, 0, tf, tf/n}], l]] ;

Created by Mathematica  (October 21, 2003)