%% Created by Maple 6 (IBM INTEL NT)
%% Source Worksheet: r-Ltimelik.mws
%% Generated: Mon Apr 26 17:07:00 2004
\documentclass{article}
\usepackage{maple2e}
 \def\emptyline{\vspace{12pt}}
\DefineParaStyle{Heading 1}
\DefineParaStyle{Heading 2}
\DefineParaStyle{Heading 3}
\DefineParaStyle{Warning}
\DefineCharStyle{2D Comment}
\DefineCharStyle{2D Math}
\begin{document}
\pagestyle{empty}
\begin{maplegroup}
\begin{Heading 1}
Kerr space-time
\end{Heading 1}

\begin{Heading 2}
\mapleinline{inert}{2d}{r;}{%
$r$%
}-
\mapleinline{inert}{2d}{L;}{%
$L$%
} plot
\end{Heading 2}

\begin{Heading 3}
Time-like geodesics
\end{Heading 3}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{restart:}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{with(plots):}{%
}
\end{mapleinput}

\mapleresult
\begin{maplettyout}
Warning, the name changecoords has been redefined
\end{maplettyout}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plotQ_p := plot(1/2*(27*e^2+18*e-1+sqrt((27*e^2+18*e-1)^2+64*e))/e, e
= -1..1.2, Q = -12..32, color = blue, labelfont = [TIMES, ITALIC,
16]):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plotQ_m1 := plot(1/2*(27*e^2+18*e-1-sqrt((27*e^2+18*e-1)^2+64*e))/e,
e = -1..0, color = blue):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plotQ_m2 := plot(1/2*(27*e^2+18*e-1-sqrt((27*e^2+18*e-1)^2+64*e))/e,
e = 0.2..1.2, color = blue):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plotQ_m3 := plot(1/2*(27*e^2+18*e-1-sqrt((27*e^2+18*e-1)^2+64*e))/e,
e = 0..0.2, color = blue, linestyle = 3, numpoints = 12, adaptive =
false):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{a2e := plot( -19*e, e = 0..1.2, color = blue):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{popis := textplot(\{[0.3,20, Q_plus], [-0.2, 24, Q_minus], [0.8, -2,
Q_minus], [0.15, 26, "d > 0"], [-0.7, 18, "d < 0"], [0.5, 10, "d <
0"], [0.2, -1.7, "d > 0"], [0.9, -6, "d < 0"], [0.7, -10, "Q =
-ae^2"]\}, font =[TIMES, BOLDITALIC, 10]):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{popis2 := textplot(\{[0, 12, "12M^2"], [0, 16, "16M^2"]\}, align =
'RIGHT'):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{plotsetup(ps, plotoutput = `r-Ltimel.eps`, plotoptions = `color,
portrait, noborder`):}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{display([plotQ_p, plotQ_m1, plotQ_m2, plotQ_m3, a2e, popis, popis2],
thickness = 2);}{%
}
\end{mapleinput}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\end{mapleinput}

\end{maplegroup}
\end{document}
%% End of Maple 6 Output
