%
% GEOM TEXTBOOK STYLE OPTION -- 25 April 1997 -- By Eckard Specht
%                                                                         
% This style has been designed to satisfy the author's requests concerning
% the layout. It is called by the 'geom' option and can be used in 
% connection with any other option.
%

\typeout{geom textbook style --> [25 April 1997]}

% ---------------------
% Define new font names
% ---------------------
\font\tencmmib=cmmib10 scaled 1000
\font\elvcmmib=cmmib10 scaled 1095
\font\twlcmmib=cmmib10 scaled 1200
\font\elvcmbsy=cmbsy10 scaled 1095
\font\twlcmbsy=cmbsy10 scaled 1200

%%%\font\numl=cmss8 scaled 1600
\font\numl=cmss9 scaled 1200
\font\numn=cmss8 scaled 1200
\font\numc=cmbxti10 scaled 1200
\font\numi=cmss8 scaled 1000
\font\name=cmbxti10 scaled 1728

\font\bb=msbm10 scaled 1200

%\font\elemtext=cmssbx10 scaled 1200
%\font\elemtext=phvb scaled 1000
%\font\elemtextact=phvb scaled 800
%\font\elemtextnormal=cmss8 scaled 1000
%\font\elemtexttiny=phvr scaled 700
%\font\elemtextbftiny=phvb scaled 700

%\font\elemmass=phvr scaled 800
%\font\elemmassact=phvr scaled 600

%\font\elemkern=cmti7 scaled 1000
%\font\elemkern=phvro scaled 700
%\font\elemkernact=phvro scaled 600

%\font\elvcmmi=cmmi10 scaled 1200
\font\manfont=cmr10 scaled 1440
%\font\namfont=cmti12 scaled 1440
\font\namfont=cmti10 scaled 1440
\font\mamfont=cmr12 scaled 1200
\font\ptitfont=cmbx9 scaled 6192
\font\stitfont=cmr8 scaled 2488
\font\ititfont=cmti8 scaled 3583
\font\bandfont=cmr8 scaled 2488
%\font\fbvlogo=fbv scaled 1000
\font\dirtfont=cmti12 scaled 1440
\font\vlgfont=cmr12 scaled 1095 % 1440
\font\zzzfont=cmr10 scaled 1440 % 2488
\font\strfont=cmr10 scaled 1728
%\font\elevencmg=cmg10 scaled 1095
%\font\twelvecmg=cmg10 scaled 1200

% --------------------------
% Define new count registers
% --------------------------

\newcount\picwd
\newcount\picht
\newcount\xco
\newcount\yco
\newcounter{saveeqn}
\newcounter{tasknum}

% ------------------------------
% Define new dimension registers
% ------------------------------

\newdimen\globalindent
\newdimen\exceptindent
\newdimen\exceptwidth
\newdimen\captionwidth
\newdimen\captionw
\newdimen\picturehsep
\newdimen\picturevsep
\newdimen\twlfout
\newdimen\twlfivt
\newdimen\twlsixt
\newdimen\twlsevt
\newdimen\elvfout
\newdimen\elvfivt
\newdimen\elvsixt
\newdimen\elvsevt
\newdimen\wdleft
\newdimen\wdright
\newdimen\wdtotal
\newdimen\stretch

% ---------------------------
% Define new length registers
% ---------------------------
\newlength\isotopwd

% ------------------------
% Define new box registers
% ------------------------

\newbox\physdefbox
\newbox\@tempboxb

% ---------------------
% Set global dimensions
% ---------------------

%\paperwidth 170mm
%\paperheight 240mm
%\hoffset -24mm	% ineq.tex
%\voffset -20mm	% ineq.tex
\hoffset -13.0mm % 10pt math4u
\voffset -11.4mm % 10pt math4u
%\hoffset -15mm %-26.4mm		FAQ Foucault-Pendel 16/144
%\voffset -5mm % -23.4mm		FAQ Foucault-Pendel 16/144
%\hoffset -18mm %-26.4mm		FAQ Foucault-Pendel Sekretariat
%\voffset -10mm % -23.4mm	FAQ Foucault-Pendel Sekretariat
%\voffset 0mm
%\scalefactor 1.25
%\textwidth 160mm	% ineq.tex
%\textheight 240mm
\textwidth 380pt    % 10pt math4u
%\linewidth    808pt % FAQ Foucault-Pendel
%\textwidth    808pt % FAQ Foucault-Pendel
%\textheight   500pt % FAQ Foucault-Pendel
%\marginparwidth 144pt
%\marginparsep 6pt
%\marginparwidth 0pt
%\marginparsep 0pt
\textheight 47\baselineskip	% 10pt math4u
%\textheight 236mm	% ineq.tex
\addtolength{\textheight}{\topskip}
%%%\headheight 14pt
%%%\headsep 18pt
\headheight 12pt
\headsep 15pt
%\headheight 0pt	% FAQ Foucault-Pendel
%\headsep 0pt	% FAQ Foucault-Pendel
%\footskip 0pt	% FAQ Foucault-Pendel
%\topmargin 0pt	% FAQ Foucault-Pendel
\parindent 0pt
%%%\globalindent 37pt % 30pt
\globalindent 31pt
%\oddsidemargin 0mm
%\evensidemargin 0mm
\oddsidemargin 24mm
\evensidemargin 24mm
\unitlength 1mm
\tabcolsep 0pt
\arrayrulewidth .6pt
\fboxsep 1pt

\picturehsep 10pt
\picturevsep 2mm

\mathindent\globalindent
\exceptindent\textwidth
  \advance\exceptindent -\globalindent
  \advance\exceptindent -3pt
\exceptwidth\textwidth
  \advance\exceptwidth -\globalindent

% -----------------------------------------------------
% Redefine baselineskips for '\normalsize' and '\small'
% -----------------------------------------------------

%\@ifundefined{normalsize}{}{
%  \def\normalsize{\@normalsize}}

%\@ifundefined{@normalsize}{}{
%  \@setsize\normalsize{14pt}\xiipt\@xiipt
%  \abovedisplayskip 12pt plus3pt minus7pt
%  \belowdisplayskip \abovedisplayskip
%  \abovedisplayshortskip \z@ plus3pt
%  \belowdisplayshortskip 6.5pt plus3.5pt minus3pt
%  \let\@listi\@listI}

%\@ifundefined{small}{}{
%  \@setsize\small{12.5pt}\xipt\@xipt
%  \abovedisplayskip 11pt plus3pt minus6pt
%  \belowdisplayskip \abovedisplayskip
%  \abovedisplayshortskip \z@ plus3pt
%  \belowdisplayshortskip 6.5pt plus3.5pt minus3pt}

% -----------------------
% Redefine '\part' styles
% -----------------------

\@ifundefined{part}{}{
%  \def\part{\cleardoublepage \thispagestyle{empty} \if@twocolumn \onecolumn
  \def\part{\thispagestyle{empty} \if@twocolumn \onecolumn
    \@tempswatrue \else \@tempswafalse \fi \secdef\@part\@spart}}

\@ifundefined{@part}{}{
  \def\@part[#1]#2#3{\ifnum \c@secnumdepth >-2\relax \refstepcounter{part}
    \addcontentsline{toc}{part}{\hskip\globalindent #2\hfil}
    \addcontentsline{toc}{partcap}{\hskip\globalindent #3\hfil} \else
      \addcontentsline{toc}{part}{#1}\fi
    \markboth{}{} \partmark{#1}
    \addtocontents{lof}{\protect\addvspace{10pt}}
    \addtocontents{lot}{\protect\addvspace{10pt}}
    \if@twocolumn \@topnewpage[\@makeparthead{#2}{#3}] \else
      \@makeparthead{#2}{#3} \@afterheading \fi}
  \def\@spart#1#2{\if@twocolumn
    \@topnewpage[\@makesparthead{#1}{#2}]
    \else \@makesparthead{#1}{#2}
    \@afterheading \fi}}

\def\@makeparthead#1#2{{\topskip 0pt \parindent 0pt \raggedright
  \huge \bf #1\par
  \nobreak \vskip 10pt\relax
  \large \it #2\par
  \nobreak \vskip 130pt}}

\def\@makesparthead#1#2{{\topskip 0pt \parindent 0pt \raggedright
  \huge \bf #1\par
  \nobreak \vskip 10pt\relax
  \large \it #2\par
  \nobreak \vskip 130pt}}

\def\partmark#1{}

% --------------------------------------------------------
% Redefine '\chapter', '\section' and '\subsection' styles
% --------------------------------------------------------

%\renewcommand\chapter{\clearpage
%                    \thispagestyle{plain}%
%                    \global\@topnum\z@
%                    \@afterindentfalse
%                    \secdef\@chapter\@schapter}

%\@ifundefined{@sect}{}{
%  \def\@sect#1#2#3#4#5#6[#7]#8#9{\ifnum #2>\c@secnumdepth
%     \def\@svsec{}\else
%     \addtocounter{#1}{\@ne}\edef\@svsec{%
%% Only indent for 'subsection'
%       \ifnum #2>1 \vbox{\hbox to \globalindent{\csname the#1\endcsname\hss}}\fi}\fi
%     \@tempskipa #5\relax
%       \ifdim \@tempskipa>\z@
%         \begingroup #6\relax
%           \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}%
%         \endgroup
%       \csname #1mark\endcsname{#7}
%% Only save in contents for 'section'
%       \ifnum #2<2
%       \addcontentsline{toc}{#1}{\ifnum #2>\c@secnumdepth \else
%         \protect\numberline{\csname the#1\endcsname}\fi #9}\fi\else
%     \def\@svsechd{#6\hskip #3\@svsec #8\csname #1mark\endcsname {#7}
%       \addcontentsline{toc}{#1}{\ifnum #2>\c@secnumdepth \else
%         \protect\numberline{\csname the#1\endcsname}\fi #9}}\fi
%     \@xsect{#5}}}

%\@ifundefined{@ssect}{}{
%  \def\@ssect#1#2#3#4#5[#6]{\@tempskipa #3\relax
%     \refstepcounter{subsection}
%     \hbox to \globalindent{\numl \thesubsection\hss}\nobreak
%     \ifdim \@tempskipa>\z@
%       Arsch\begingroup #4\@hangfrom{\hskip \globalindent}{\interlinepenalty \@M #5}%
%       \endgroup
%     \else \def\@svsechd{#4\hskip \globalindent\relax #5}\fi
%     \@xsect{#3}}}  

%\renewcommand\chapter{%
%  \@startsection{chapter}{0}{\z@}{-4.0ex plus-1ex minus-.2ex}{20pt plus1pt}{%
%    \large\bf}}

%\renewcommand\section{%
%  \@startsection{section}{1}{\z@}{-3.5ex \@plus -1ex \@minus -.6ex}{1.3ex \@plus.2ex}%
%    {\reset@font\large\bfseries}}

%\renewcommand\subsection{%
%  \@startsection{subsection}{2}{\z@}{-1.5ex plus-1ex minus-.2ex}{0.2pt plus0.1pt}{%
%    \normalsize\em}}

%\renewcommand\thesubsection{%
%  \numl \arabic{subsection}}
%%  }

%\renewcommand{\thechapter}{\Alph{chapter}}

% -----------------------
% Redefine heading styles
% -----------------------

\@ifundefined{@makechapterhead}{}{
  \def\@makechapterhead#1{%
    \thispagestyle{empty}
    \vspace*{33\p@}%
    {\parindent \z@ \raggedright \reset@font
      \ifnum \c@secnumdepth >\m@ne
        \if@mainmatter
          \hrule height 1.6\p@ width \textwidth\par
          \vskip 17\p@
        \fi
      \fi
      \hspace*{6pt}\LARGE \bfseries #1\par
      \nobreak
      \vskip 17\p@
      \hrule height 1.6\p@ width \textwidth\par
      \vskip 34\p@
    }
  }
}

\@ifundefined{@evenhead}{}{
%  \def\@evenhead{\vbox to \headheight{\hbox to \textwidth{\hbox to \globalindent{\oldstylenums{\thepage} \hfil}%
  \def\@evenhead{\vbox to \headheight{\hbox to \textwidth{\hbox to \globalindent{\thepage \hfil}%
    \small\sl \leftmark \hfil} \vfil \hrule}}}

\@ifundefined{@oddhead}{}{
  \def\@oddhead{\vbox to \headheight{\hbox to \textwidth{\hfil \small\sl \rightmark
%    \hbox to \globalindent{\hfil \normalsize \rm \oldstylenums{\thepage}}} \vfil \hrule}}}
    \hbox to \globalindent{\hfil \normalsize \rm \thepage}} \vfil \hrule}}}

\@ifundefined{chaptermark}{}{
  \def\chaptermark#1{\markboth {#1}{#1}}}

\def\schaptermark#1{\markboth {#1}{#1}}

\@ifundefined{sectionmark}{}{
  \def\sectionmark#1{\markright {\ifnum \c@secnumdepth >\z@
    \thesection \quad
  \fi #1}{}}}
%  \def\sectionmark#1{\markright {#1}{}}}

\@ifundefined{rightmark}{}{
  \def\rightmark{\expandafter\@rightmark\botmark}}

\def\insertsectname#1{\def\rightmark{#1}}
\def\resetsectname{\def\rightmark{\expandafter\@rightmark\botmark}}

% -------------------------
% Redefine '\caption' style
% -------------------------

\@ifundefined{@makecaption}{}{
  \long\def\@makecaption#1#2{\small \vskip 10pt \setbox\@tempboxa\hbox{#1. #2}
    \ifdim \wd\@tempboxa >\hsize #1. #2\par \else
    \hbox to \hsize{\box\@tempboxa\hfil} \fi}}

% ---------------------------------
% Redefine '\tableofcontents' style
% ---------------------------------

\@ifundefined{tableofcontents}{}{
  \def\tableofcontents{%\cleardoublepage \thispagestyle{empty} 
    \@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
%    \fi \section*{\@maketochead
    \fi %\@maketochead
    \@mkboth{\hskip\globalindent\relax \contentsname}%
      {\hskip\globalindent\relax \contentsname}%}
    \@starttoc{toc}\if@restonecol\twocolumn\fi}}

%\@ifundefined{l@part}{}{
%  \def\l@part#1#2{\addpenalty{-\@medpenalty} \addvspace{1.5em plus 2pt} 
%    \@tempdima\globalindent \begingroup \parindent\z@ \rightskip\@pnumwidth 
%    \parfillskip -\@pnumwidth \leavevmode \advance\leftskip\@tempdima
%    \hskip -\leftskip \large\bf #1\hfil
%    \par \nobreak \global \@nobreaktrue
%    \everypar{\global\@nobreakfalse\everypar{}} \endgroup}}

\def\l@partcap#1#2{\addpenalty{-\@medpenalty} \addvspace{0.1em plus 1pt} 
  \@tempdima\globalindent \begingroup \parindent\z@ \rightskip\@pnumwidth 
  \parfillskip -\@pnumwidth \leavevmode \advance\leftskip\@tempdima
  \hskip -\leftskip \normalsize\em #1\hfil
  \par \nobreak \global \@nobreaktrue
  \everypar{\global\@nobreakfalse\everypar{}} \endgroup}

%\@ifundefined{l@chapter}{}{
%  \def\l@chapter#1#2{\addpenalty{-\@lowpenalty} \vskip 1.0em plus 1pt
%%E. SPECHT
%    \@tempdima0pt \begingroup \parindent\z@ \rightskip\@pnumwidth 
%    \parfillskip -\@pnumwidth \leavevmode \advance\leftskip\@tempdima
%    \hskip -\leftskip \small\bf #1 \rm \nobreak
%    \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern \@dotsep mu$} \hfill\nobreak
%    \hbox to \@pnumwidth{\hss #2} \par \vskip 3pt plus 1pt
%    \penalty\@highpenalty \endgroup}}

\@ifundefined{l@part}{}{
  \def\l@part{\@dottedtocline{0}{1em}{2.3em}}}

\@ifundefined{l@chapter}{}{
  \def\l@chapter{\@dottedtocline{1}{1em}{2.3em}}}

\@ifundefined{l@section}{}{
  \def\l@section#1#2{\vskip \z@ plus .2pt
    {\leftskip\z@ \rightskip\@tocrmarg \parfillskip -\rightskip
    \parindent\z@ \@afterindenttrue \interlinepenalty\@M
    \leavevmode \@tempdima0pt \advance\leftskip\@tempdima
    \hskip -\leftskip \small #1\nobreak
    \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern \@dotsep mu$} \hfill\nobreak
    \hbox to \@pnumwidth{\hss #2} \par}}}

%\def\@maketochead{{\topskip 0pt \parindent 0pt \raggedright
%  {\huge \bf \contentsname\par} \nobreak \vskip130pt
%  {\vlgfont Band 1:}\\[3mm] {\dirtfont Mechanik -- W"armelehre}\vskip12pt}}
%  {\vlgfont Band 2:}\\[3mm] {\dirtfont Elektrizit"at und Magnetismus -- Schwingungen}\\[1mm]
%                            {\dirtfont und Wellen -- Atome}\vskip12pt}}

% ----------------------------------------------------
% Redefine '\tableofcontents' style [from stroppe.sty]
% ----------------------------------------------------

\@ifundefined{tableofcontents}{}{
  \def\tableofcontents{%\cleardoublepage
    \thispagestyle{empty} 
    \@restonecolfalse\if@twocolumn\@restonecoltrue\onecolumn
    \fi \section*{\@maketochead
    \@mkboth{\hskip0mm\relax \contentsname}%
      {\hskip\globalindent\relax \contentsname}%
    }{}%
    \@starttoc{toc}%
    \if@restonecol\twocolumn\fi}}

\@ifundefined{l@part}{}{
  \def\l@part#1#2{\addpenalty{-\@medpenalty} \addvspace{1.5em plus 2pt} 
    \@tempdima\globalindent \begingroup \parindent\z@ \rightskip\@pnumwidth 
    \parfillskip -\@pnumwidth \leavevmode \advance\leftskip\@tempdima
    \hskip -\leftskip \large\bf #1\hfil
    \par \nobreak \global \@nobreaktrue
    \everypar{\global\@nobreakfalse\everypar{}} \endgroup}}

\def\l@partcap#1#2{\addpenalty{-\@medpenalty} \addvspace{0.1em plus 1pt} 
  \@tempdima\globalindent \begingroup \parindent\z@ \rightskip\@pnumwidth 
  \parfillskip -\@pnumwidth \leavevmode \advance\leftskip\@tempdima
  \hskip -\leftskip \normalsize\em #1\hfil
  \par \nobreak \global \@nobreaktrue
  \everypar{\global\@nobreakfalse\everypar{}} \endgroup}

\@ifundefined{l@chapter}{}{
  \def\l@chapter#1#2{\addpenalty{-\@lowpenalty} \vskip 1.0em plus 1pt
    \@tempdima\globalindent \begingroup \parindent\z@ \rightskip\@pnumwidth 
    \parfillskip -\@pnumwidth \leavevmode \advance\leftskip\@tempdima
    \hskip -\leftskip \small\bf #1 \rm \nobreak
    \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern \@dotsep mu$} \hfill\nobreak
    \hbox to \@pnumwidth{\hss #2} \par \vskip 3pt plus 1pt
    \penalty\@highpenalty \endgroup}}

\@ifundefined{l@section}{}{
  \def\l@section#1#2{\vskip \z@ plus .2pt
    {\leftskip\z@ \rightskip\@tocrmarg \parfillskip -\rightskip
    \parindent\z@ \@afterindenttrue \interlinepenalty\@M
    \leavevmode \@tempdima\globalindent \advance\leftskip\@tempdima
    \hskip -\leftskip \small #1\nobreak
    \leaders\hbox{$\m@th \mkern \@dotsep mu.\mkern \@dotsep mu$} \hfill\nobreak
    \hbox to \@pnumwidth{\hss #2} \par}}}

\def\@maketochead{{\topskip 0pt \parindent 0pt \raggedright
  \Large \bf \contentsname\par \nobreak \vskip 0.9in}} % 0.2in

% --------------------------
% Redefine '\theindex' style
% --------------------------

\@ifundefined{theindex}{}{
  \def\theindex{\@restonecoltrue\if@twocolumn\@restonecolfalse\fi
    \columnseprule \z@ \columnsep 35pt
    \twocolumn[\@makeidxhead]
    \@mkboth{\hskip\globalindent\relax \indexname}%
      {\indexname}
    \thispagestyle{empty} \parindent\z@
    \parskip\z@ plus .3pt\relax \let\item\@idxitem \let\subitem\@idxsubitem}}

\def\@makeidxhead{{\topskip 0pt \parindent 0pt \raggedright
  \huge \bf \indexname\par \nobreak \vskip 140pt}}

\@ifundefined{@idxitem}{}{
  \def\@idxitem{\par\hangindent 15pt \footnotesize}} 

\def\@idxsubitem{\par\hangindent 15pt \footnotesize ---}

% -------------------------
% Redefine 'footnote' style
% -------------------------
%\@ifundefined{@makefnmark}{}{
%  \def\@makefnmark{\mbox{$^{\dagger}$}}}
%\@ifundefined{@thefnmark}{}{
%  \def\@thefnmark{\mbox{$^{\dagger}$}}}
\@ifundefined{@fnsymbol}{}{%
  \def\@fnsymbol#1{\ensuremath{\ifcase#1\or \dagger\or \ddagger\or *\or
    \mathsection\or \mathparagraph\or \|\or **\or \dagger\dagger
    \or \ddagger\ddagger \else\@ctrerr\fi}}}
\renewcommand{\thefootnote}{\fnsymbol{footnote}}
\renewcommand{\thempfootnote}{\fnsymbol{footnote}}

% --------------------------------------
% Redefine 'enumerate' environment style
% --------------------------------------

%\@ifundefined{labelenumi}{}{
%  \def\labelenumi{\theenumi)}}
%\@ifundefined{theenumi}{}{
%  \def\theenumi{\alph{enumi}}}
%\@ifundefined{leftmargini}{}{
%  \def\leftmargini{0pt}}

% -----------------------------
% Redefining counters and names
% -----------------------------

%\@ifundefined{thechapter}{}{
%  \def\thechapter{}}
%\@ifundefined{thesection}{}{
%  \def\thesection{}}
\@ifundefined{theequation}{}{
  \def\theequation{\arabic{equation}}}
\@ifundefined{figurename}{}{
  \def\figurename{Bild}}
\@ifundefined{tablename}{}{
  \def\tablename{\small \bf Tabelle}}
\@ifundefined{indexname}{}{
  \def\indexname{Sachwortverzeichnis}}
%\@ifundefined{topfraction}{}{
%  \def\topfraction{0.1}}
\@ifundefined{bottomfraction}{}{
  \def\bottomfraction{0.1}}
%\@ifundefined{topnumber}{}{
%  \def\topnumber{0}}

% -----------------------------------------------
% Define some abbreviations for existing commands
% -----------------------------------------------

\def\beq{\begin{equation}}
\def\eeq{\end{equation}}

\def\beqa{\begin{eqalignno}}
\def\eeqa{\end{eqalignno}}

%\@ifundefined{[}{}{
%  \def\[{\relax\ifmmode\@badmath\else
%    \ifvmode \nointerlineskip \makebox[.8\linewidth]\fi$$ \fi}}

%\@ifundefined{displaymath}{}{
%  \def\displaymath{\[}}

\def\bdm{\begin{displaymath}}
\def\edm{\end{displaymath}}

\def\bdma{\begin{eqalignno*}}
\def\edma{\end{eqalignno*}}

\def\bdmaa{\begin{eqaligntwo*}}
\def\edmaa{\end{eqaligntwo*}}

\def\bex{\begin{example}}
\def\eex{\end{example}}

\def\blq{\begin{lquote}}
\def\elq{\end{lquote}}

\def\blqem{\begin{lquoteem}}
\def\elqem{\end{lquoteem}}

\def\bcode{\upar\begin{verbatim}\small}
\def\ecode{\end{verbatim}}

% -----------------------
% Define new environments
% -----------------------
\newenvironment{task}%
  {\begin{list}{}%
    {\renewcommand{\makelabel}{\hbox to \globalindent{\hskip1pt%
%%%      \psboxit{8 roundedbox gsave 2 setlinewidth stroke grestore}{\spbox{\numl\Alph{chapter}.\thetasknum}}\hfil}}%
      \psboxit{3 cartouche gsave 1.2 setlinewidth stroke grestore}{\spbox{\numl\Alph{chapter}.\thetasknum}}\hfil}}%
      \setlength{\labelsep}{0pt}%
      \setlength{\topsep}{1.0ex plus 2.0ex minus 0.5ex}%
      \setlength{\itemsep}{1.5ex plus 2.5ex minus 1ex}%
      \setlength{\labelwidth}{\globalindent}%
      \setlength{\leftmargin}{\labelwidth}%
%      \setlength{\textwidth}{\exceptwidth}%
    }%
  }%
  {\end{list}}

\newenvironment{solution}%
  {\begin{list}{}%
    {\renewcommand{\makelabel}{\hbox to \globalindent{%
%%%      \psboxit{5 cartouche}{\spbox{\numl\thetasknum}}\hfil}}%
      \psboxit{3 cartouche}{\spbox{\numl\thetasknum}}\hfil}}%
      \setlength{\labelsep}{0pt}%
      \setlength{\labelwidth}{\globalindent}%
%      \setlength{\leftmargin}{\labelwidth}%
%      \setlength{\textwidth}{\exceptwidth}%
    }%
  }%
  {\end{list}}

\newenvironment{code}{\upar \small\begin{verbatim}}{\end{verbatim}\upar}

\newenvironment{lquote}{\begin{list}{}{\leftmargin\globalindent
  \parsep0pt
  \itemsep0pt
%  \topsep0pt
  \parskip0pt
%  \partopsep0pt
  \labelsep0pt
  \labelwidth\globalindent}
  \item[]}{\end{list}}

\newenvironment{lquoteem}{\begin{list}{}{\leftmargin\globalindent}
  \em\item[]}{\end{list}}

\newenvironment{alphlist}[1]{\begin{list}{}{\settowidth{\labelwidth}{#1}
%  \labelsep1em
  \setlength{\leftmargin}{\labelwidth} \addtolength{\leftmargin}{\labelsep}
  \parsep0pt \itemsep0pt \topsep4pt plus2pt minus1pt \itemindent0pt
  \renewcommand{\makelabel}[1]{##1\hfil}
}}{\end{list}}

\newlength{\defitemindent} \setlength{\defitemindent}{0pt}
\newcommand{\deflabel}[1]{\hspace{\defitemindent}#1\hfill}
\newenvironment{deflist}[1]%
{\begin{list}{}
  {\itemsep=4pt \parsep=0pt \partopsep=8pt \topsep=0pt \parskip=0pt
  \settowidth{\labelwidth}{\hspace{\defitemindent}#1}%
  \setlength{\leftmargin}{\labelwidth}%
  \addtolength{\leftmargin}{\labelsep}%
  \renewcommand{\makelabel}{\deflabel}}}%
{\end{list}}

\newcounter{mynum}
\newenvironment{mo}{\begin{list}{\alph{mynum})}{%
  \usecounter{mynum}
  \settowidth{\labelwidth}{3mm}
  \labelsep4pt
  \setlength{\leftmargin}{\labelwidth} \addtolength{\leftmargin}{\labelsep}
  \parsep0pt
  \itemsep1.5pt
  \topsep3.4pt
  \parskip0pt
  \partopsep0pt
}}{\end{list}}

\newenvironment{itm}{\begin{list}{\textbullet}{%
  \settowidth{\labelwidth}{4mm}
  \labelsep4pt
  \setlength{\leftmargin}{\labelwidth} \addtolength{\leftmargin}{\labelsep}
  \parsep0pt
  \itemsep0pt
  \topsep4pt
  \parskip0pt
  \partopsep0pt
}}{\end{list}}

\newenvironment{itmblk}{\begin{list}{}{%
  \settowidth{\labelwidth}{4mm}
  \labelsep4pt
  \setlength{\leftmargin}{\labelwidth} \addtolength{\leftmargin}{\labelsep}
  \parsep0pt
  \itemsep0pt
  \topsep4pt
  \parskip0pt
  \partopsep0pt
}}{\end{list}}

\@ifundefined{@begintheorem}{}{%
  \def\@begintheorem#1#2{\trivlist
    \item[\hskip \labelsep{\small\bfseries #1\ #2:}]\small}}

% ------------------------
% Define some new commands
% ------------------------

\def\marginlabel#1{\mbox{}\marginpar{\raggedleft\hspace{0pt}#1}}
\def\ranka{$\heartsuit$ }
\def\rankb{$\heartsuit \,\heartsuit$ }
\def\rankc{$\heartsuit \,\heartsuit \,\heartsuit$ }
\def\rankd{$\heartsuit \,\heartsuit \,\heartsuit \,\heartsuit$ }
\def\ranke{$\heartsuit \,\heartsuit \,\heartsuit \,\heartsuit \,\heartsuit$ }
\newtheorem{example}{Beispiel}
\def\N{\mathbb{N}}
\def\Z{\mathbb{Z}}
\def\Q{\mathbb{Q}}
\def\R{\mathbb{R}}
\def\C{\mathbb{C}}
\def\E{\mathbb{E}}
\def\spar{\smallskip \par}
\def\mpar{\medskip \par}
\def\bpar{\bigskip \par}
\def\upar{\par\vspace*{-4pt}}
\def\apar{\par\vspace*{-1ex}}
\def\D{\displaystyle}
\def\T{\textstyle}
\def\SC{\scriptstyle}
\def\SS{\scriptscriptstyle}
\def\mkm{\mkern 1mu}
\def\mkmh{\mkern 1.5mu}
\def\mkmm{\mkern 2mu}
\def\mkmmh{\mkern 2.5mu}
\def\mkmmm{\mkern 3mu}
\def\mhpt{\relax\ifmmode \mkern -1mu\else \kern -0.5pt\fi}
\def\aufz3#1#2#3{\mbox{$#1,\mkmmm #2,\mkmmm #3 \mkmm \dots$}}
\def\s{\mkern 3mu}
\def\x{\mkern -2.5mu}
\def\tc{\mkern -2mu}
\def\hc{\mkern -1.5mu}
\def\bc{\mkern -1mu}
\def\cc{\mkern -0.8mu}
\def\r{\rule{0in}{2ex}}
\def\rr{\SC\rule{0in}{1.2ex}}
\def\rrr{\T\rule{0in}{2.0ex}}
\def\rd#1{\raise0.5ex\hbox{#1}}
\def\rrd#1{\raise0.2ex\hbox{$\D #1$}}
\def\rrrd#1{\raise0.2ex\hbox{$\T #1$}}
\def\rb{\rule[-1.0ex]{0pt}{3.5ex}}
\def\rbu{\rule[0ex]{0pt}{2.5ex}}
\def\rbl{\rule[-1.0ex]{0pt}{1.0ex}}
\def\rbb{\rule[-3.0ex]{0pt}{7.0ex}}
\def\bm#1{\mbox{\boldmath$#1$}}
\def\dn#1{\relax\ifmmode {\rm d}#1\else ${\rm d}#1$\fi}
\def\db#1{{\rm d}{\mbox{\boldmath$#1$}}}
\def\ddn#1{{\rm d^2}#1}
\def\ddb#1{{\rm d^2}{\mbox{\boldmath$#1$}}}
\def\dnd#1{{\rm d}#1^2}
\def\dbd#1{{\rm d}{\mbox{\boldmath$#1^2$}}}
\def\pn#1{\relax\ifmmode \partial#1\else $\partial#1$\fi}
\def\ppn#1{\partial^2#1}
\def\pnp#1{\partial#1^2}
\def\frc#1#2{\frac{\rrrd{#1}}{\rrr #2}}
\def\alphrm{\relax\ifmmode {\gr a} \else {\gr a}\fi}
\def\betarm{\relax\ifmmode {\gr b} \else {\gr b}\fi}
\def\gammarm{\relax\ifmmode {\gr g} \else {\gr g}\fi}
\def\murm{\relax\ifmmode {\twelvecmg m} \else {\twelvecmg m$\cc$}\fi}
\def\murmm{\relax\ifmmode {\elevencmg m} \else {\elevencmg m$\cc$}\fi}
\def\nurm{\relax\ifmmode {\gr n} \else {\gr n}\fi}
\def\taurm{\relax\ifmmode {\gr t} \else {\gr t}\fi}
\def\alphbf{\relax\ifmmode {\grbf a} \else {\grbf a}\fi}
\def\betabf{\relax\ifmmode {\grbf b} \else {\grbf b}\fi}
\def\alphrmi{\relax\ifmmode \textstyle\raisebox{-1.4pt}{\tencmg \symbol{97}}
  \displaystyle \else\raisebox{-1.4pt}{\tencmg \symbol{97}}\fi}
\def\betarmi{\relax\ifmmode \textstyle\raisebox{-1.4pt}{\tencmg \symbol{98}}
  \displaystyle \else\raisebox{-1.4pt}{\tencmg \symbol{98}}\fi}
\def\gammarmi{\relax\ifmmode \textstyle\raisebox{-1.4pt}{\tencmg \symbol{103}}
  \displaystyle \else\raisebox{-1.4pt}{\tencmg \symbol{103}}\fi}
\def\murmi{\relax\ifmmode \textstyle\raisebox{-1.4pt}{\tencmg \symbol{109}}
  \displaystyle \else\raisebox{-1.4pt}{\tencmg \symbol{109}}\fi}
\def\taurmi{\relax\ifmmode \textstyle\raisebox{-1.4pt}{\tencmg \symbol{116}}
  \displaystyle \else\raisebox{-1.4pt}{\tencmg \symbol{116}}\fi}
\def\mikro#1{\relax\ifmmode {\gr m} {\rm #1} \else {\gr m}#1\fi}
\def\promille{\%${\scriptsize 0}$}
%\def\dropping#1#2{#2\relax}
\def\ui{\relax\ifmmode u_{\rm I} \else $u_{\rm I}$ \fi}
\def\uii{\relax\ifmmode u_{\rm II} \else $u_{\rm II}$ \fi}
\def\uarc{\relax\ifmmode u\mkern-12mu${\tencmmib\symbol{127}}$ \else
  $u\mkern-12mu${\tencmmib\symbol{127}} \fi}
\def\mi{\,{\rm i}\,}
\def\mj{\,{\rm j}\,}
%\def\mod{\mathop{\operator@font mod}\nolimits}
\def\ggT{\mathop{\operator@font ggT}\nolimits}
\def\kgV{\mathop{\operator@font kgV}\nolimits}
\def\divides{\mathop |}
%\def\ldef{\mathrel:\:\joinrel=}
%\def\rdef{\mathrel=\:\joinrel:}
\def\ldef{\equiv}
\def\rdef{\equiv}
\def\ndivides{\mathop{\not|}\:}
\def\expj#1{\,{\rm e}^{\mj\bc #1}}
\def\expmj#1{\,{\rm e}^{-\mj\bc #1}}
\def\ttl#1{{\bf\small #1}}
\def\lit#1{{\sf\small [#1]}}
\def\sumsym{\sum\limits_{\rm sym}}
\def\aufgabe#1{\setcounter{equation}{0}\par\vspace{3ex plus 1ex minus 1ex}\underline{Aufgabe #1:}\par\vspace*{0.5ex}}
\def\variante#1{\setcounter{equation}{0}\par\vspace{3ex plus 1ex minus 1ex}\underline{Variante:}\par\vspace*{0.5ex}}
%\def\loesung#1#2{\setcounter{equation}{0}\par\vspace{3ex plus 1ex minus 1ex}\underline{L"osung #1:}\enspace(#2)\par\vspace*{0.5ex}}
\def\loesung#1#2{\setcounter{equation}{0}\par\vspace{3ex plus 1ex minus 1ex}\underline{L"osung #1:}\par\vspace*{0.5ex}}
\def\dreieck#1{\relax\ifmmode \Delta #1\else $\Delta #1$\fi}
%\def\strecke#1{\relax\ifmmode #1\else $#1$\fi}
\def\winkel#1{\relax\ifmmode \varangle #1\else $\varangle #1$\fi}
%\def\underleftarrow#1{\vbox {\ialign {##\crcr $\hfil
%  \displaystyle {#1}\hfil $\crcr \leftarrowfill \crcr
%  \noalign {\kern -\p@ \nointerlineskip }}}}
%\def\underrightarrow#1{\vbox {\ialign {##\crcr $\hfil
%  \displaystyle {#1}\hfil $\crcr \rightarrowfill \crcr
%  \noalign {\kern -\p@ \nointerlineskip }}}}
\def\parspin#1#2{\relax\ifmmode \mbox{#1} \c \uparrow \hc \uparrow \c \mbox{#2}
  \else $\mbox{#1} \c \uparrow \hc \uparrow \c \mbox{#2}$\fi}
\def\antispin#1#2{\relax\ifmmode \mbox{#1} \c \uparrow \c \downarrow \c \mbox{#2}
  \else $\mbox{#1} \c \uparrow \c \downarrow \c \mbox{#2}$\fi}
\def\inex#1#2#3{\relax\ifmmode {#1}_{#2}^{\,#3}\else ${#1}_{#2}^{\,#3}$\fi}
\def\anti#1{\relax\ifmmode \overline{\mbox{#1}}\else
  $\overline{\mbox{#1}}$\fi}
\def\mze#1#2{\mbox{$#1\:$#2}}
\def\mzee#1#2#3{\mbox{$#1\:$}\mbox{#2$\:$#3}}
\def\mzeee#1#2#3#4{\mbox{$#1\:$#2$\:$#3$\:$#4}}
\def\mzeeee#1#2#3#4#5{\mbox{$#1\:$#2$\:$#3$\:$#4$\:$#5}}
\def\isotop#1#2#3{\elvfout=\fontdimen14\elvsy%
  \fontdimen14\elvsy=4.5pt%
  \twlfout=\fontdimen14\twlsy%
  \fontdimen14\twlsy=5pt%
  \setbox\@tempboxa\hbox{$\SC #2$}%
  \setbox\@tempboxb\hbox{$\SC #3$}%
  \isotopwd=\wd\@tempboxa%
    \ifmmode^{\makebox[\isotopwd][r]{\box\@tempboxa}}%
            _{\makebox[\isotopwd][r]{\box\@tempboxb}}{\rm #1}%
    \else  $^{\makebox[\isotopwd][r]{\box\@tempboxa}}%
            _{\makebox[\isotopwd][r]{\box\@tempboxb}}{\rm #1}$\fi
    \fontdimen14\twlsy=\twlfout \fontdimen14\elvsy=\elvfout}
\def\grad{\relax\ifmmode \mkern -1mu\textstyle^\circ\mkern -1mu\else
  $\mkern -3mu\textstyle^\circ\mkern -1mu$\fi}
\def\sgrad{\relax\ifmmode \mkern -1mu\scriptstyle^\circ\mkern -1mu\else
  $\mkern -3mu\scriptstyle^\circ\mkern -1mu$\fi}
\def\gradC{\relax\ifmmode \mkern 2mu\textstyle^\circ\mkern -1mu{\rm C}\else
  $\mkern -1.5mu\textstyle^\circ\mkern -1mu{\rm C}$\fi}
\def\gradF{\relax\ifmmode \mkern 2mu\textstyle^\circ\mkern -1mu{\rm F}\else
  $\mkern -1.5mu\textstyle^\circ\mkern -1mu{\rm F}$\fi}
\def\vs#1{\ifmmode v_#1^{\,2}\else$v_#1^{\,2}$\fi}
\def\ovs#1{\ifmmode \overline{v_#1^{\,2}}\else$\overline{v_#1^{\,2}}$\fi}
\def\vstack#1#2{\raisebox{-6.25pt}{\vbox{\hbox{#1} \par \hbox{#2}}}}
\def\chem#1{%
  \twlfout=\fontdimen14\twlsy \twlfivt=\fontdimen15\twlsy
  \twlsixt=\fontdimen16\twlsy \twlsevt=\fontdimen17\twlsy
  \elvfout=\fontdimen14\elvsy \elvfivt=\fontdimen15\elvsy
  \elvsixt=\fontdimen16\elvsy \elvsevt=\fontdimen17\elvsy
  \relax\ifmmode
    \fontdimen15\twlsy=6.5pt \fontdimen14\twlsy=6.5pt \fontdimen16\twlsy=3.3pt
    \fontdimen17\twlsy=3.3pt
    \fontdimen15\elvsy=5.8pt \fontdimen14\elvsy=5.8pt \fontdimen16\elvsy=3.0pt
    \fontdimen17\elvsy=3.0pt
    \rm #1\else $
    \fontdimen15\twlsy=6.5pt \fontdimen14\twlsy=6.5pt \fontdimen16\twlsy=3.3pt
    \fontdimen17\twlsy=3.3pt
    \fontdimen15\elvsy=5.8pt \fontdimen14\elvsy=5.8pt \fontdimen16\elvsy=3.0pt
    \fontdimen17\elvsy=3.0pt
    \rm #1$\fi
  \fontdimen14\twlsy=\twlfout \fontdimen15\twlsy=\twlfivt
  \fontdimen16\twlsy=\twlsixt \fontdimen17\twlsy=\twlsevt
  \fontdimen14\elvsy=\elvfout \fontdimen15\elvsy=\elvfivt
  \fontdimen16\elvsy=\elvsixt \fontdimen17\elvsy=\elvsevt}
\def\chemmi#1{%
  \twlfout=\fontdimen14\twlsy \twlfivt=\fontdimen15\twlsy
  \twlsixt=\fontdimen16\twlsy \twlsevt=\fontdimen17\twlsy
  \elvfout=\fontdimen14\elvsy \elvfivt=\fontdimen15\elvsy
  \elvsixt=\fontdimen16\elvsy \elvsevt=\fontdimen17\elvsy
  \relax\ifmmode
    \fontdimen15\twlsy=6.5pt \fontdimen14\twlsy=6.5pt \fontdimen16\twlsy=3.3pt
    \fontdimen17\twlsy=3.3pt
    \fontdimen15\elvsy=5.8pt \fontdimen14\elvsy=5.8pt \fontdimen16\elvsy=3.0pt
    \fontdimen17\elvsy=3.0pt
    #1\else $
    \fontdimen15\twlsy=6.5pt \fontdimen14\twlsy=6.5pt \fontdimen16\twlsy=3.3pt
    \fontdimen17\twlsy=3.3pt
    \fontdimen15\elvsy=5.8pt \fontdimen14\elvsy=5.8pt \fontdimen16\elvsy=3.0pt
    \fontdimen17\elvsy=3.0pt
    #1$\fi
  \fontdimen14\twlsy=\twlfout \fontdimen15\twlsy=\twlfivt
  \fontdimen16\twlsy=\twlsixt \fontdimen17\twlsy=\twlsevt
  \fontdimen14\elvsy=\elvfout \fontdimen15\elvsy=\elvfivt
  \fontdimen16\elvsy=\elvsixt \fontdimen17\elvsy=\elvsevt}
\def\epowfrac#1#2{%
%  \tenfout=\fontdimen13\tensy \tenfivt=\fontdimen14\tensy
%  \ninfout=\fontdimen13\ninsy \ninfivt=\fontdimen18\ninsy
%  \egtfout=\fontdimen15\egtsy %\egtfivt=\fontdimen14\egtsy
%  \sevfout=\fontdimen13\sevsy \sevfivt=\fontdimen18\sevsy
%  \sixfout=\fontdimen13\sixsy \sixfivt=\fontdimen18\sixsy
%  \fontdimen13\tensy=15pt \fontdimen14\tensy=15pt
%  \fontdimen13\ninsy=8pt \fontdimen18\ninsy=8pt
%  \fontdimen15\egtsy=20pt %\fontdimen14\egtsy=20pt
%  \fontdimen13\sevsy=8pt \fontdimen18\sevsy=8pt
%  \fontdimen13\sixsy=8pt \fontdimen18\sixsy=8pt%
  {\rm e}^{\T-{#1 \over #2}}        %-\frac{\SC #1}{\SC #2}}
%  \fontdimen13\tensy=\tenfout \fontdimen14\tensy=\tenfivt
%  \fontdimen13\ninsy=\ninfout \fontdimen18\ninsy=\ninfivt
%  \fontdimen15\egtsy=\egtfout %\fontdimen14\egtsy=\egtfivt
%  \fontdimen13\sevsy=\sevfout \fontdimen18\sevsy=\sevfivt
%  \fontdimen13\sixsy=\sixfout \fontdimen18\sixsy=\sixfivt
}

\let\hangafter\@hangfrom
\def\frtsk{\item \refstepcounter{tasknum}}
%\def\frtsk{\par\vspace{0ex plus 2ex} \item \refstepcounter{tasknum}}
\def\frsol{\vspace{0ex plus 2ex minus 1ex}\parbox[b]{\globalindent}{\hbox to \globalindent{\hskip1pt%
%%%   \psboxit{8 roundedbox gsave 0.84 setgray fill grestore 2 setlinewidth stroke}{%
   \psboxit{3 cartouche gsave 1.2 setlinewidth stroke grestore}{%
            \spbox{\numl\Alph{chapter}.\thetasknum}}\hfil}}%
   \refstepcounter{tasknum}}
%\def\htsk#1#2{\hyperlink{#1}{\numn #2}}
\def\htsk#1#2{{\numn #2}}
\def\hypertarget#1#2{#2}
\def\apptask{\vspace{4ex plus 2pt} ZUSATZAUFGABEN \vspace{2ex plus 2pt}}
\def\ctn#1#2{\parbox[b]{20mm}{\hbox to 20mm{\numl #1--#2\hfil}}}
\def\stn#1#2{\parbox[b]{20mm}{\hbox to 20mm{\numn #1--#2\hfil}}}
\def\tk#1{{\numi #1}\hskip4pt}
\def\bdmni{\mathindent 0pt \bdm}
\def\edmni{\edm \mathindent\globalindent}
\def\alpheqn{\setcounter{saveeqn}{\value{equation}}%
  \setcounter{equation}{0}%
  \renewcommand{\theequation}{\thechapter.\arabic{saveeqn}\alph{equation}}}
\def\abeqn{\setcounter{saveeqn}{\value{equation}}%
  \setcounter{equation}{0}%
  \renewcommand{\theequation}{\thechapter.\arabic{saveeqn}a,b}}
\def\bceqn{\setcounter{saveeqn}{\value{equation}}%
  \setcounter{equation}{0}%
  \renewcommand{\theequation}{\thechapter.\arabic{saveeqn}b,c}}
\def\abceqn{\setcounter{saveeqn}{\value{equation}}%
  \setcounter{equation}{0}%
  \renewcommand{\theequation}{\thechapter.\arabic{saveeqn}a,b,c}}
\def\reseteqn{\setcounter{equation}{\value{saveeqn}}%
  \renewcommand{\theequation}{\thechapter.\arabic{equation}}}
\def\physdef#1#2#3{\beq #1 \qquad \setbox\physdefbox\vbox{\small\bf (#2)#3}
  \parbox{\wd\physdefbox}{\box\physdefbox}
  \hss \eeq}
\def\physdefrm#1#2#3{\beq #1 \qquad \setbox\physdefbox\vbox{\rm #2#3}
  \parbox{\wd\physdefbox}{\box\physdefbox}
  \hss \eeq}
\def\physdefem#1#2#3{\beq #1 \qquad \setbox\physdefbox\vbox{\small\em (#2)#3}
  \parbox{\wd\physdefbox}{\box\physdefbox}
  \hss \eeq}
\def\physdefdm#1#2#3{$$\hskip\globalindent\relax #1 \qquad
  \setbox\physdefbox\vbox{\small\bf (#2)#3}
  \parbox{\wd\physdefbox}{\box\physdefbox}\hss$$}
\def\sperr#1{%\kern0.25em
  \SperrRest#1\endlist
  \def\endlist{\global\advance\@listdepth\m@ne \endtrivlist}}
  \def\SperrRest{\afterassignment\Sperrzeichen\let\next= }
  \def\Sperrzeichen{\ifx\next\endlist \let\next\relax \kern-0.25em
    \else \next \kern0.25em \let\next\SperrRest \fi \next}
\def\sperrbold#1{%\kern0.3em
  \SperrRest#1\endlist
  \def\endlist{\global\advance\@listdepth\m@ne \endtrivlist}}
  \def\SperrRest{\afterassignment\Sperrzeichen\let\next= }
  \def\Sperrzeichen{\ifx\next\endlist \let\next\relax \kern-0.3em
    \else \next \kern0.3em \let\next\SperrRest \fi \next}

% ----------------------------
% Define some picture commands
% ----------------------------

\def\hhpic#1#2{\begin{figure}[htb]
  \setbox\@tempboxa\hbox{\psfig{file=#1}}
  \captionwidth\exceptindent \advance\captionwidth -\picturehsep
  \advance\captionwidth -\wd\@tempboxa
  \hskip\globalindent\relax
  \box\@tempboxa \hfill
  \parbox[b]{\captionwidth}{\caption[]{#2}}%
  \end{figure}}

\def\vvpic#1#2{\begin{figure}[htb]
  \hskip \globalindent\relax
  \psfig{file=#1} \\
  \parbox[b]{\exceptindent}{\caption[]{\hskip\globalindent #2}}
  \end{figure}}

\def\vvvpic#1#2#3#4{\begin{figure}[htb]
  \setbox\@tempboxa\hbox{\psfig{file=#1}}
  \setbox\@tempboxb\hbox{\psfig{file=#3}}
  \wdleft\wd\@tempboxa
  \wdright\wd\@tempboxb
  \wdtotal\wdleft \advance\wdtotal by \wdright
%  \ifdim\wdtotal<\exceptindent \stretch\exceptindent \advance\stretch by -10mm
%    \divide\stretch by \wdtotal \multiply\wdleft by \stretch \multiply\wdright by \stretch \fi
\multiply\wdleft by 15 \divide\wdleft by 10
\multiply\wdright by 18 \divide\wdright by 10
  \hskip \globalindent\relax
  \hbox to \exceptindent{\vbox{\box\@tempboxa \parbox[b]{\wdleft}{\caption{#2}}} \hskip-80mm
    \vbox{\box\@tempboxb \parbox[b]{\wdright}{\caption{#4}}}}
  \end{figure}}


% Lemming
\newenvironment{proof}{{\em Beweis:}}{$\:\Box$}

% Manuela <= Bernd
\newcommand{\komma}{\text{,}}
\newcommand{\geo}[1]{#1}
\newcommand{\strecke}[1]{\overline{\geo{#1}}}
\newcommand{\mfrac}[2]{\tfrac{\textstyle\text{\raisebox{-0.0ex}{\footnotesize$#1$}}}{\textstyle\text{\raisebox{-0.2ex}{\footnotesize$#2$}}}\rule[-1.2ex]{0mm}{0.1mm}}
\newcommand{\bogen}[1]{\stackrel{\raisebox{0ex}{$\frown$}}{\raisebox{0ex}[1.05ex]{$\geo{#1}$}}}
\newcommand{\gerade}[1]{#1}
\newcommand{\mstrecke}[1]{|#1|}