

%% 
%% This is a LaTeX document generated by automatic conversion of a
%% Mathematica notebook using Mathematica 5.0.
%% 
%% This document uses special macros that are defined in a LaTeX 
%% package file named notebook2e.sty.  Appropriate commands for 
%% loading the package have been included in this document.
%% 
%% The LaTeX package files can be found in a directory with path:
%% 
%% D:\Programme\Wolfram Research\Mathematica\5.0\SystemFiles\IncludeFiles\TeX\
%% 
%% The LaTeX package used in this document may require that your 
%% LaTeX implementation support fonts other than the standard 
%% Computer Modern fonts that are used by LaTeX.  For more
%% information see the Additional Information under TeXSave
%% in the Help Browser, or at
%% 
%% http://documents.wolfram.com/v5/RefGuide/TeXSave.html
%% 
%% Implementation-specific instructions for installing TeX-related 
%% files can be found at
%% 
%% http://support.wolfram.com/mathematica/interface/export/virtualfonts.html
%% 
%% 

\documentclass{article}
\usepackage{notebook2e, latexsym}


\begin{document}

Napoleon Punkte (beide)

\dispSFinmath{
\MathBegin{MathArray}{l}
\MathBegin{MathArray}{l}
\Mvariable{SetDirectory}[  \\
\noalign{\vspace{0.625ex}}
\hspace{1.em} "D:/Dokumente\multsp und\multsp Einstellungen/vmesser/Eigene\multsp   \\
\noalign{\vspace{0.625ex}}
\hspace{3.em} \Mvariable{Dateien/diplom/Mathematica"}];  \\
\noalign{\vspace{0.625ex}}\\
\MathEnd{MathArray}  \\
\MathBegin{MathArray}{l}
\Mfunction{Needs}["GeoBeweiser`"]  \\
\noalign{\vspace{0.625ex}}  \\
\noalign{\vspace{0.625ex}}\\
\MathEnd{MathArray}  \\
\Muserfunction{clearndg}[];  \\
\noalign{\vspace{0.625ex}}  \\
\MathBegin{MathArray}{l}
\Mfunction{Clear}[\Mvariable{u1},\Mvariable{u2},\Mvariable{u3},\Mvariable{x1},\Mvariable{x2},\Mvariable{x3},\Mvariable{x4},\Mvariable{x5},\Mvariable{x6},\Mvariable{x7},\Mvariable{x8},
 \\
\noalign{\vspace{0.625ex}}
\hspace{1.em} \Mvariable{x9},\Mvariable{x10},\Mvariable{x11},\Mvariable{x12},\Mvariable{x13},\Mvariable{x14},y];\\
\MathEnd{MathArray}
\MathEnd{MathArray}
}

\dispSFinmath{
\MathBegin{MathArray}{l}
\Mvariable{vars}:=\{y\};  \\
\noalign{\vspace{0.625ex}}  \\
\Mvariable{parameters}:=\{\Mvariable{u1},\Mvariable{u2},\Mvariable{u3}\};
\MathEnd{MathArray}
}

\dispSFinmath{
\MathBegin{MathArray}{l}
(*\Mvariable{Punkte}\multsp \Mvariable{definieren}*)  \\
\noalign{\vspace{0.625ex}}A=\Muserfunction{point}[0,0];B=\Muserfunction{point}[\Mvariable{u1},0];\IndentingNewLine   \\
\noalign{\vspace{0.625ex}}
\hspace{1.em} C=\Muserfunction{point}[\Mvariable{u2},\Mvariable{u3}];\\
\MathEnd{MathArray}
}

\dispSFinmath{
\MathBegin{MathArray}{l}
(*\Mvariable{Konstruktion}*)  \\
\noalign{\vspace{0.625ex}}a=\Muserfunction{ppline}[B,C]\\
\MathEnd{MathArray}
}

\dispSFoutmath{
\{\Mvariable{u3},\Mvariable{u1}-\Mvariable{u2},-\Mvariable{u1}\multsp \Mvariable{u3}\}
}

\dispSFinmath{
b=\Muserfunction{ppline}[A,C]
}

\dispSFoutmath{
\{\Mvariable{u3},-\Mvariable{u2},0\}
}

\dispSFinmath{
c=\Muserfunction{ppline}[A,B]
}

\dispSFoutmath{
\{0,1,0\}
}

\dispSFinmath{
\Muserfunction{AddGleichung}[\Muserfunction{isorthogonal}[a,b]]
}

\dispSFoutmath{
{{\Mvariable{u2}}^2}-\Mvariable{u1}\multsp \Mvariable{u2}+{{\Mvariable{u3}}^2}
}

\dispSFinmath{
\MathBegin{MathArray}{l}
(*\multsp \Mvariable{polynomials}\multsp *)  \\
\noalign{\vspace{0.625ex}}\Mvariable{polys}=\Mfunction{Map}[\Mfunction{Numerator}[\Mfunction{Together}[\#]]\multsp \&,\multsp \Mvariable{Gleichungen}]\\
\MathEnd{MathArray}
}

\dispSFoutmath{
\{{{\Mvariable{u2}}^2}-\Mvariable{u1}\multsp \Mvariable{u2}+{{\Mvariable{u3}}^2}\}
}

\dispSFinmath{
\Mvariable{con}=\Muserfunction{sqrdist}[A,B]-(\Muserfunction{sqrdist}[B,C]+\Muserfunction{sqrdist}[A,C])
}

\dispSFoutmath{
-2\multsp {{\Mvariable{u2}}^2}+2\multsp \Mvariable{u1}\multsp \Mvariable{u2}-2\multsp {{\Mvariable{u3}}^2}
}

\dispSFinmath{
\Muserfunction{IdealMember}[\Mvariable{con},\Mvariable{polys},\Mvariable{vars}]//\Mfunction{Timing}
}

\dispSFoutmath{
\{0.02\multsp \Mvariable{Second},\Mvariable{True}\}
}


\end{document}
