%% Created by Maple 9.50 (IBM INTEL NT)
%% Source Worksheet: kegel_2.mws
%% Generated: Wed Jan 30 11:54:14 2008
\documentclass{article}
\usepackage{maple2e}
 \def\emptyline{\vspace{12pt}}
\DefineParaStyle{Maple Output}
\DefineCharStyle{2D Math}
\DefineCharStyle{2D Output}
\begin{document}
\pagestyle{empty}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{r:=3.0; h:=15.5; alpha:=Pi*32.656973/180;}{%
}
\end{mapleinput}

\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{r := 3.0;}{%
\[
r := 3.0
\]
%
}
\end{maplelatex}

\begin{maplelatex}
\mapleinline{inert}{2d}{h := 15.5;}{%
\[
h := 15.5
\]
%
}
\end{maplelatex}

\begin{maplelatex}
\mapleinline{inert}{2d}{alpha := .1814276278*Pi;}{%
\[
\alpha  := 0.1814276278\,\pi 
\]
%
}
\end{maplelatex}

\end{maplegroup}
\begin{maplegroup}
\begin{mapleinput}
\mapleinline{active}{1d}{f:=simplify(Pi*r^2*h/(root(4,3)*sqrt(h^2-r^2*(tan(alpha))^2)*cos(alph
a)));}{%
}
\end{mapleinput}

\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{f := 21.32084407;}{%
\[
f := 21.32084407
\]
%
}
\end{maplelatex}

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

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

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