Definitions

Off[General :: spell1] ; Off[Solve :: ifun] ;

norm[v_] := Sqrt[v . v] ;

redundantTrajectory[ {l1_, l2_, l3_}, {xc_, yc_}, n_] := <br />    Module[ ... ll] ; <br />        traj1<br />    ] ;

createDiscontinuityTable[traj_] := <br />    Module[{comp, s}, <br />  ... ;            s = Sort[s] // Reverse] ;

RowBox[{RowBox[{RowBox[{noDiscontinuities, [, RowBox[{traj_, ,, , RowBox[{thresh_:, 2.}]}], ] ... p;        traj[[i]]], {i, 1, Length[traj]}] <br />]}], ;}]

RowBox[{RowBox[{RowBox[{noDiscontinuitiesTrajectory, [, RowBox[{l_, ,, x_, ,, n_:99, ,, , Row ... , <br />,     , noDiscontinuities[redundantTrajectory[l, x, n], thresh]}], ;}]

animateTrajectory[traj_, whi_:0] := <br />    Module[{g, p, plrng, g2}, <b ... Range->plrng, DisplayFunction->$DisplayFunction, Axes-> {True, False}] & /@ g ; g2] ;

centrode[traj_] := <br />    Module[{c1, c2, c3, g1, g2}, <br /> &nbs ... bsp;Show[Graphics[{Thickness[.01], g1, g2, g3}], AspectRatio->Automatic, PlotRange->All]] ;

drawOneConfig[traj_, n_, whi_:0] := <br />        Show ... nt[traj[[n, 5]]]}}], PlotRange->All, AspectRatio->Automatic, DisplayFunction->Identity] ;

superimpose[traj_, n1_, n2_] := <br />    Show[centrode[traj], drawOneConf ... >Automatic, PlotRange->All, DisplayFunction->$DisplayFunction, Axes-> {True, False}] ;

Created by Mathematica  (September 29, 2003)