%% Created by Maple 9.00, Linux
%% Source Worksheet: /mnt/home/thomas/public_html/eth/5_semester/atmosphaerenphysik_WS_2005_2006/uebungen/3/uebung_3.mw
%% Generated: Sun Dec 18 13:53:00 CET 2005
\documentclass{article}
\usepackage{maple2e}
\def\emptyline{\vspace{12pt}}
\DefineParaStyle{maplegroup}
\DefineParaStyle{Author}
\DefineParaStyle{subtitle}
\DefineParaStyle{Bullet Item}
\DefineParaStyle{Dash Item}
\DefineParaStyle{Diagnostic}
\DefineParaStyle{Error}
\DefineParaStyle{Heading 1}
\DefineParaStyle{Heading 2}
\DefineParaStyle{Heading 3}
\DefineParaStyle{Heading 4}
\DefineParaStyle{Normal}
\DefineParaStyle{Text Output}
\DefineParaStyle{Title}
\DefineParaStyle{Warning}
\DefineCharStyle{2D Math}
\DefineCharStyle{Help Heading}
\DefineCharStyle{Maple Input}
\DefineCharStyle{FixedWidth}
\DefineCharStyle{endFixedWidth}
\begin{document}
\pagestyle{empty}
\begin{mapleinput}
\mapleinline{active}{1d}{restart;}{}
\end{mapleinput}\begin{mapleinput}
\mapleinline{active}{1d}{S_ver := (1-b_2/r_2^3)/(1-b_1/r_1^3);}{}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{S_ver := (1-b_2/r_2^3)/(1-b_1/r_1^3)}{%
\[
{\it S\_ver}\, := \, \left( 1-{\frac {{\it b\_2}}{{{\it r\_2}}^{3}}} \right)  \left( 1-{\frac {{\it b\_1}}{{{\it r\_1}}^{3}}} \right) ^{-1}
\]
}

\end{maplelatex}
\begin{mapleinput}
\mapleinline{active}{1d}{b_1 := 1.47e-21;}{}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{b_1 := 0.147e-20}{%
\[
{\it b\_1}\, := \,{ 1.47\times 10^{-21}}
\]
}

\end{maplelatex}
\begin{mapleinput}
\mapleinline{active}{1d}{b_2 := 6.508e-22;}{}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{b_2 := 0.6508e-21}{%
\[
{\it b\_2}\, := \,{ 6.508\times 10^{-22}}
\]
}

\end{maplelatex}
\begin{mapleinput}
\mapleinline{active}{1d}{r_1_0 := 1.918e-6;}{}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{r_1_0 := 0.1918e-5}{%
\[
{\it r\_1\_0}\, := \, 0.000001918
\]
}

\end{maplelatex}
\begin{mapleinput}
\mapleinline{active}{1d}{r_2_0 := 1.276e-6;}{}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{r_2_0 := 0.1276e-5}{%
\[
{\it r\_2\_0}\, := \, 0.000001276
\]
}

\end{maplelatex}
\begin{mapleinput}
\mapleinline{active}{1d}{plot3d(S_ver, r_1=r_1_0..5e-6, r_2=r_2_0..5e-6);}{}
\end{mapleinput}
\mapleresult
\begin{center}
\mapleplot{mapleplot3d1.eps}

\end{center}
\begin{mapleinput}
\mapleinline{active}{1d}{r_1:=r_2; plot(S_ver, r_2=r_2_0..5e-6);}{}
\end{mapleinput}
\mapleresult
\begin{maplelatex}
\mapleinline{inert}{2d}{r_1 := r_2}{%
\[
{\it r\_1}\, := \,{\it r\_2}
\]
}

\end{maplelatex}

\mapleresult
\begin{center}
\mapleplot{mapleplot2.eps}

\end{center}
\begin{mapleinput}
\mapleinline{active}{1d}{}{}
\end{mapleinput}\end{document}
%% End of Maple 9.00 Output