Maple for PlanetPhysics


\begin{maplelatex}\mapleinline{inert}{2d}{%[poincare, generate_ic, zoom, hamilto...
...{\it generate\_ic},{\it zoom},{\it hamilton\_eqs}\\
\mbox{}]$}
\end{maplelatex}

\begin{maplelatex}\begin{Maple Heading 1}{\textbf{The Toda Hamiltonian}}\end{Maple Heading 1}\end{maplelatex}

\begin{maplelatex}\begin{Maple Normal}{\textbf{Reference:}A.J. Lichtenberg and M...
...(2*q2+2*sqrt(3)*q1) + exp(2*q2-2*sqrt(3)*q1) + exp(-4*q2))-1/8;}\end{maplelatex}

\begin{maplelatex}\mapleinline{inert}{2d}{%H := p1^2/2+p2^2/2+1/24*exp(2*q2+2*3^...
...,{\it q2}-2 \sqrt {3}{\it q1}}}+1/24 {e^{-4 {\it q2}}}-1/8$}
\end{maplelatex}

\begin{mapleinput}
\mapleinline{active}{1d}{\textbf{H, t=-150..150, \{[0,.1,1.4,.1,0]\}:}}{}
\end{mapleinput}

\begin{mapleinput}
\mapleinline{active}{1d}{\begin{Maple Normal}{\textbf{poincare(%, stepsize=.05,iterations=5);}(12 sec.)}\end{Maple Normal}}{}
\end{mapleinput}


\begin{maplelatex}\mapleinline{inert}{2d}{%_____________________________________...
...\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_}\end{displaymath}}
\end{maplelatex}

\begin{maplelatex}\mapleinline{inert}{2d}{%\lq H = .99005020\lq , \lq  Initial conditions...
..., {\it p1}= 0.1, {\it p2}= 1.4, {\it q1}= 0.1, {\it q2}=0$}
\end{maplelatex}

\begin{maplelatex}\mapleinline{inert}{2d}{%\lq Number of points found crossing the ...
...tt \lq Number of points found crossing the (p1,q1) plane: 127\lq }}$}
\end{maplelatex}

\begin{maplelatex}\mapleinline{inert}{2d}{%\lq Maximum H deviation : .5740000000e-5 %\lq }{
$\mbox {{\tt \lq Maximum H deviation : .5740000000e-5 \%\lq }}$}
\end{maplelatex}

\begin{maplelatex}\mapleinline{inert}{2d}{%_____________________________________...
...\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_\_}\end{displaymath}}
\end{maplelatex}

\begin{maplelatex}\mapleinline{inert}{2d}{%\lq Time consumed: 12 seconds\lq }{
$\mbox {{\tt \lq Time consumed: 12 seconds\lq }}$}
\end{maplelatex}


\includegraphics{poly.eps}



\begin{maplelatex}\begin{Maple Normal}{Figure 1.a. shows a 2-D surface-of-sectio...
... intersection points lying on smooth curves.
}\end{Maple Normal}\end{maplelatex}

\begin{mapleinput}
\mapleinline{active}{1d}{\begin{Maple Normal}{\textbf{poincar...
...05,iterations=5,scene=[p2,q2]);}(13 sec.)}\end{Maple Normal}}{}
\end{mapleinput}



Contributors to this entry (in most recent order):

As of this snapshot date, this entry was owned by bloftin.