%===============================================================================
% Font-Definitionen (CM-FONTS) fuer Technik Ergebnisse
%===============================================================================
   \font \kla=     cmr8
   \font \klit=    cmti8 
   \font \klb=     cmmi8
   \font \klc=     cmsy8
   \font \kld=     cmex10 scaled 833
   \font \klsf=    cmmib10 scaled 833
   \font \klsl=    cmsl8
   \font \klbf=    cmbx8
   \font \kltt=    cmtt8
   \font \kkla=    cmr6
   \font \kklb=    cmmi6
   \font \kklc=    cmsy6
   \font \kkld=    cmex10 scaled 694
   \font \kklsf=   cmmib10 scaled 694
   \font \tafont=  cmbx10 scaled\magstep2
   \font \hftc=    cmmib10 
   \font \hft=     cmmib10 scaled\magstep2
   \font \tbfont=  cmbx10 scaled\magstep1
   \font \tcfont=  cmbx10
   \font \tdfont=  cmb10
   \font \tbfonta= cmsl10 scaled\magstephalf
%-------------------------------------------------------------
%-----------------------------------------------------------------------%
%  Makro fuer Grosshandbuch-Format einspaltig mit Kolumnentitel und Pagina. %
%  Kolumnentitel und Pagina haben die selbe Schriftgr\"osse             %
%-----------------------------------------------------------------------%
%
     \magnification\magstep1
%
% Die Satzspiegelbreite
%
     \hsize = 13.8truecm
%
% Die Satzspiegelhoehe
%
     \vsize = 22truecm
%
\nopagenumbers
\raggedbottom
\abovedisplayskip=8pt  plus 0pt minus 2pt
\belowdisplayskip=8pt plus 0pt minus 2pt
\abovedisplayshortskip=0pt plus 2pt
\belowdisplayshortskip=2pt plus 2pt
\lineskip=0pt
\linepenalty=0
\frenchspacing
\parskip=0pt
\clubpenalty=10000
\widowpenalty=10000
%\pretolerance=1000
\tolerance=500
%===============================================================================
% Definition der versal griechischen Buchstaben
%===============================================================================

  \mathchardef\Gamma="0100
  \mathchardef\Delta="0101
  \mathchardef\Theta="0102
  \mathchardef\Lambda="0103
  \mathchardef\Xi="0104
  \mathchardef\Pi="0105
  \mathchardef\Sigma="0106
  \mathchardef\Upsilon="0107
  \mathchardef\Phi="0108
  \mathchardef\Psi="0109
  \mathchardef\Omega="010A
%-------------------------------------------------------------------------------
% Formel linksbuendig mit 20 pt Einzug
%
%-------------------------------------------------------------------------------
   \catcode`\@=11
%-------------------------------------------------------------------------------
      \newdimen\mathindent % Betrag, um den eingerueckt wird
      \mathindent=20pt
      \def \eqno {$\hfill$}
      \def \leqno {$\hfill$}
      \long\def \leftdisplay#1$${\line{\hskip\mathindent
                                       $\displaystyle#1$\hfil}$$}
      \everydisplay{\leftdisplay}

      \def \eqalignno#1{%
              \displ@y \tabskip=0pt
              \advance\displaywidth by -\mathindent
              \vbox{%
                \halign to \displaywidth{%
                  \hfil$\displaystyle{##}$\tabskip=0pt
                  &$\displaystyle{{}##}$\hfil\tabskip=\centering
                  &\llap{$##$}\tabskip=0pt\crcr#1\crcr}}}

%-------------------------------------------------------------------------------
%  Kleindruck einzelne Woerter
%
   \def \petit           {\baselineskip=9.6pt\textfont0=\kla
                          \scriptfont0=\kkla
                          \textfont1=\klb \scriptfont1=\kklb
                          \textfont2=\klc \scriptfont2=\kklc
                          \textfont3=\kld \scriptfont3=\kkld
                          \scriptscriptfont0=\kkla
                          \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
                          \let\bf=\klbf\let\sf=\klsf\let\sg=\klsf
                          \let\rm=\klfam}
   %\def \eklein          {\egroup}
%------------------------------------------------------------------------
%===============================================================================
% Makro fuer Vektoren in halbfett-kursiv.
%===============================================================================
%
%------------------------------------------------------------------------------%
%  Halbfett,kursiv fuer Vektoren
%
\def\vek#1{{\textfont1=\hftc\scriptfont1=\kklsf
\textfont0=\tenbf\scriptfont0=\sevenbf
\mathchoice{\hbox{$\displaystyle#1$}}{\hbox{$\textstyle#1$}}
{\hbox{$\scriptstyle#1$}}{\hbox{$\scriptscriptstyle#1$}}}}
%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Dach (Zirkumflex) ueber nachfolgenden
% Zeichen (max. 3)
%
        \def\vhat#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \,\widehat {#1}\,$}}
        {\hbox{$\textstyle \,\widehat {#1}\,$}}
        {\hbox{$\scriptstyle \,\widehat {#1}\,$}}
        {\hbox{$\scriptscriptstyle \,\widehat {#1}\,$}}}}
%
%------------------------------------------------------------------------------%
% Vektoren als Exponenten in halbfett-kursiv mit Dach (Zirkumflex) ueber
%  nachfolgenden % Zeichen (max. 3)
%
%     \def\vhexp#1{\hbox{\textfont0=\kleinhalbcurs\textfont1=\kleinhalbcurs
%                        $\,\widehat{#1}\,$}}
%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Tilde ueber nachfolgenden
% Zeichen (max. 3)
%
        \def\vtilde#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \widetilde {#1}$}}
        {\hbox{$\textstyle \widetilde {#1}$}}
        {\hbox{$\scriptstyle \widetilde {#1}$}}
        {\hbox{$\scriptscriptstyle \widetilde {#1}$}}}}
%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Punkt ueber nachfolgendem
% Zeichen
%
        \def\vdot#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \dot{\kern-4pt{#1}}$}}
        {\hbox{$\textstyle \dot{\kern-4pt{#1}}$}}
        {\hbox{$\scriptstyle \dot{\kern-4pt{#1}}$}}
        {\hbox{$\scriptscriptstyle \dot{\kern-4pt{#1}}$}}}}

%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Doppelpunkt ueber nachfolgendem
% Zeichen
%
        \def\vddot#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \ddot{#1}$}}
        {\hbox{$\textstyle \ddot{#1}$}}
        {\hbox{$\scriptstyle \ddot{#1}$}}
        {\hbox{$\scriptscriptstyle \ddot{#1}$}}}}
%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Strich ueber nachfolgenden
% Zeichen
%
        \def\vbar#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \overline{#1}$}}
        {\hbox{$\textstyle \overline{#1}$}}
        {\hbox{$\scriptstyle \overline{#1}$}}
        {\hbox{$\scriptscriptstyle \overline{#1}$}}}}
%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Doppelstrich ueber nachfolgenden
% Zeichen
%
        \def\vdbar#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \overline{\overline{#1}}$}}
        {\hbox{$\textstyle \overline{\overline{#1}}$}}
        {\hbox{$\scriptstyle \overline{\overline{#1}}$}}
        {\hbox{$\scriptscriptstyle \overline{\overline{#1}}$}}}}
%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Strich unter nachfolgenden
% Zeichen
%
        \def\vubar#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \underline{#1}$}}
        {\hbox{$\textstyle \underline{#1}$}}
        {\hbox{$\scriptstyle \underline{#1}$}}
        {\hbox{$\scriptscriptstyle \underline{#1}$}}}}
%
%------------------------------------------------------------------------------%
% Vektoren in halbfett-kursiv mit Doppelstrich unter nachfolgenden
% Zeichen
%
        \def\vdubar#1{{\textfont1=\hftc\scriptfont1=\kklsf
        \textfont0=\tenbf\scriptfont0=\sevenbf
        \mathchoice{\hbox{$\displaystyle \underline{\underline{#1}}$}}
        {\hbox{$\textstyle \underline{\underline{#1}}$}}
        {\hbox{$\scriptstyle \underline{\underline{#1}}$}}
        {\hbox{$\scriptscriptstyle \underline{\underline{#1}}$}}}}
%
%
%------------------------------------------------------------------------------%
% Matrizen in kursiv-fett 10pt
%===============================================================================

    \def\MK #1{\hbox{\hftc #1}}
%-------------------------------------------------------------------------------
%===============================================================================
% Ueberschrift bis 4.Ordnung mit automatischer Numerierung
%
%===============================================================================
  % Zaehler-Definitionen fuer Ueberschriften
  %
\expandafter \newcount \csname c@Tl\endcsname
    \csname c@Tl\endcsname=0
\expandafter \newcount \csname c@Tm\endcsname
    \csname c@Tm\endcsname=0
\expandafter \newcount \csname c@Tn\endcsname
    \csname c@Tn\endcsname=0
\expandafter \newcount \csname c@To\endcsname
    \csname c@To\endcsname=0
\expandafter \newcount \csname c@Tp\endcsname
    \csname c@Tp\endcsname=0
\def \resetcount#1    {\global
    \csname c@#1\endcsname=0}
\def\@nameuse#1{\csname #1\endcsname}
\def\arabic#1{\@arabic{\@nameuse{c@#1}}}
\def\@arabic#1{\ifnum #1>0 \number #1\fi}
 % --------------------------------------------------------------
 % Zaehler-Definition fuer Fussnoten und Uberschriften:
 %
\expandafter \newcount \csname c@fn\endcsname
    \csname c@fn\endcsname=0
\def \stepc#1    {\global
    \expandafter
    \advance
    \csname c@#1\endcsname by 1}
%------------------------------------------------------------------
\newdimen\oldparindent
\def\ignorepar{\ifx\par\endgraf
\oldparindent=\parindent\parindent=0pt
     \def\par{\ifvmode\else\endgraf\let\par=\endgraf
              \parindent=\oldparindent\fi}\fi}
%%
\newdimen\dimenone
\newdimen\skipone
\def\checkleftspace#1#2#3{%
    \dimenone=\pagetotal
    \advance\dimenone by -\pageshrink
    \ifdim\dimenone > \pagegoal
          \else\dimenone=\pagetotal
          \advance\dimenone by \pagestretch
             \ifdim\dimenone < \pagegoal\dimenone=\pagetotal
                \advance\dimenone by 24pt
               \setbox0=\hbox{#1\arabic{Tl}\ }
                \setbox0=\vbox{#1\parskip=0pt
                \raggedright\noindent%
                \hangindent=\wd0\hangafter=1
                \box0#2%
                 \vskip#3} \advance\dimenone by \ht0
                 \advance\dimenone by 3\baselineskip
                     \ifdim\dimenone > \pagegoal\vfill\eject
                     \fi
            \else\eject
            \fi
    \fi}
 % Beginn Ueberschrift 1. Ordnung arabisch numeriert
 %
    \def\raggedright{\rightskip=0pt plus 5em}
%
    \newtoks\leftheadline
    \newtoks\rightheadline
 \def \titlea#1{\leftheadline={\kla \folio\quad #1\hfill}
 {\ifvmode\else\par\fi
    \checkleftspace{\tafont}{#1}{12pt}
     \stepc{Tl}
     \resetcount{Tm}
    %\bgroup
    \tafont
    \setbox0=\hbox{\arabic{Tl}\ }
     \vskip18pt
     \baselineskip=16pt
     \lineskip=16pt
     \raggedright
    \noindent
    \hangindent=\wd0\hangafter=1
    \box0#1%
    \vskip50pt
    %\egroup
     \nobreak}
   %\vskip-\parskip
    \ignorepar\ignorespaces}
 % -----------------------------------------------------------------
 % Beginn Ueberschrift 2. Ordnung arabisch numeriert
 %
 \def \titleb#1{\rightheadline={\kla \hfill #1\quad\folio}
 {\ifvmode\else\par\fi
   \checkleftspace{\tbfont}{#1}{12pt}%
     \stepc{Tm}
     \resetcount{Tn}
   %\bgroup
     \tbfont
    \setbox0\hbox{\arabic{Tl}.\arabic{Tm}\ }%
     \vskip18pt
     \raggedright
     \baselineskip=14.4pt
     \lineskip=14.4pt
     \noindent
     \hangindent=\wd0\hangafter=1
     \box0#1%
     \vskip12pt%
     \noindent
 %  \egroup%
     \nobreak}%
 %   \vskip-\parskip
   \ignorepar\ignorespaces}
 % ----------------------------------------------------------------
 % Beginn Ueberschrift 3. Ordnung arabisch numeriert
 %
 \def \titlec#1{{\ifvmode\else\par\fi
     \checkleftspace{\tcfont}{#1}{12pt}
     \stepc{Tn}
     \resetcount{To}
     \bgroup
     \tcfont
     \setbox0\hbox{\arabic{Tl}.\arabic{Tm}.\arabic{Tn}\ }
     \goodbreak
     \vskip18pt
     \raggedright
     \noindent
     \baselineskip=12pt
     \lineskip=12pt
     \hangindent=\wd0\hangafter=1
     \box0#1%
     \vskip12pt%
     \noindent
     \egroup%
     \nobreak}%
   %\vskip-\parskip
   \ignorepar\ignorespaces}
 % -------------------------------------------------------------------
 % Beginn Ueberschrift 4. Ordnung arabisch numeriert
 %
 \def \titled#1{{\ifvmode\else\par\fi
     \checkleftspace{\tdfont}{#1}{12pt}
     \stepc{To}
     \resetcount{Tp}
     \bgroup
     \tdfont
     \setbox0\hbox{\arabic{Tl}.\arabic{Tm}.\arabic{Tn}.\arabic{To}\ }
     \goodbreak
     \vskip18pt
     \raggedright
     \baselineskip=12pt
     \lineskip=12pt
     \noindent
     \hangindent=\wd0\hangafter=1
     \box0#1%
     \vskip12pt%
     \noindent
     \egroup%
     \nobreak}%
   %\vskip-\parskip
    \ignorepar\ignorespaces}
% -------------------------------------------------------------------
% Definition neue Zeile
%
    \def \nz    {\hfill\break}
%
%===============================================================================
% Spitzmarke kursiv.
%
%===============================================================================
%
%  Spitzmarke kursiv
%
   \def \titlef #1{\hsize=37.5truecc\hangindent=-19.5cc\hangafter=0
                   \bgroup\noindent\tbfonta\ #1%
                   \egroup\ignorespaces}
%===============================================================================
% Abbildungslegende.
%
%===============================================================================
% Definition "Beginn Literaturverzeichnis"
%der kleine Zwischenraum wird definiert:

 \let\zw=\thinspace
%---------------------------------------------------------------------------
% Abbildung
   \def \caption  #1#2{\vskip6pt\noindent \bgroup
                  \baselineskip=9.6pt plus0pt minus0pt
                  \let\sanf=\ssanf \let\send=\ssend
                  \textfont0=\kla \scriptfont0=\kkla
                  \textfont1=\klb \scriptfont1=\kklb
                  \textfont2=\klc \scriptfont2=\kklc
                  \scriptscriptfont0=\kkla
                  \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
                  \let\sf=\klsf\let\sg=\klsg\let\rm=\klfam
                   {\klbf #1}$\;$#2 \filbreak\par\egroup\vskip0.5cm}
%===============================================================================
 %der kleine Zwischenraum wird definiert:
      \let\zw=\thinspace
 %____________________________________________________________
 % Definition der Anf\"uhrungszeichen:
 %
 % deutsche Anf\"uhrungszeichen auf:
 \def \daa{\hbox{\lower6pt\hbox{''}}}
 %
 % deutsche Anf\"uhrungszeichen zu:
 \def \daz{`` }
 %
 % % -------------------------------------------------------------------
 % Definition "neue Zeile"
 %
     \def \nz{\hfil\break}
 %
 % ---------------------------------------------------------------
 % Definition "Absatz"
 %
      \def \ab{\par}
 %
%===============================================================================
% Makro fuer Fussnoten mit automatischer Numerierung.
%
%===============================================================================
%% Zaehler-Definitionen fuer Ueberschriften
%%
\expandafter \newcount \csname c@Tl\endcsname
    \csname c@Tl\endcsname=0
\expandafter \newcount \csname c@Tm\endcsname
    \csname c@Tm\endcsname=0
\expandafter \newcount \csname c@Tn\endcsname
    \csname c@Tn\endcsname=0
\expandafter \newcount \csname c@To\endcsname
    \csname c@To\endcsname=0
\expandafter \newcount \csname c@Tp\endcsname
    \csname c@Tp\endcsname=0
\def \resetcount#1    {\global
    \csname c@#1\endcsname=0}
\def\@nameuse#1{\csname #1\endcsname}
\def\arabic#1{\@arabic{\@nameuse{c@#1}}}
\def\@arabic#1{\ifnum #1>0 \number #1\fi}
%-------------------------------------------------------------------------------
% Zaehler-Definition fuer Fussnoten und Uberschriften:
%
\expandafter \newcount \csname c@fn\endcsname
    \csname c@fn\endcsname=0
\def \stepc#1    {\global
    \expandafter
    \advance
    \csname c@#1\endcsname by 1}
%-------------------------------------------------------------------------------
   \def \foonote #1      {\bgroup
                          \baselineskip=9pt plus0pt minus0pt
                          \lineskip=9pt plus0pt minus6pt
                          \lineskiplimit=-6pt
                          \kla
                          \textfont0=\kla \scriptfont0=\kkla
                          \textfont1=\klb \scriptfont1=\kklb
                          \textfont2=\klc \scriptfont2=\kklc
                          \textfont3=\kld \scriptfont3=\kkld
                          \scriptscriptfont0=\kkla
                          \let\it=\klit \let\bf=\klbf \let\rm=\kla
                          \let\sf=\klsf \let\sg=\klsf
                          \stepc{fn} \footnote {$^{\kla\arabic{fn}}$}
                          \bgroup #1%
                          \egroup \egroup\ \ }
%-------------------------------------------------------------------------------
    \catcode`\@ = 12
%===============================================================================
% Aufzaehlungsliste ohne Einzug.
%
%===============================================================================
\def\item#1{\smallskip\par\noindent\hangindent=5mm\hangafter=1\hbox to
5mm{#1\hfil}\ignorespaces}
\def\itemitem#1{\smallskip\par\noindent\hangindent=10mm\hangafter=1\hbox
to 10mm{\kern5mm#1\hfil}\ignorespaces}
%-------------------------------------------------------------------------------
% Makro fuer Tabelle mit 5 Spalten.
% Die Tabellenbreite ist 18cic.
%
%-------------------------------------------------------------------------------
%
% Tabelle mit 5 Spalten.
   \def \btab    {\ \vskip24pt\bgroup\par\noindent\baselineskip=9pt
                  \let\sanf=\ssanf \let\send=\ssend
                  \textfont0=\kla \scriptfont0=\kkla
                  \textfont1=\klb \scriptfont1=\kklb
                  \textfont2=\klc \scriptfont2=\kklc
                  \textfont3=\kld \scriptfont3=\kkld
                  \scriptscriptfont0=\kkla
                  \def\klfam{\fam0}\kla\let\sl=\klsl\let\it=\klit
                  \let\bf=\klbf\let\sf=\klsf\let\sg=\klsf
                  \let\rm=\klfam\let\nz=\cr
                  \halign to 18cc \bgroup\strut
                  \hfill ## & \hfill ## & \hfill ## &
                  ## \hfill & \hfill ## \cr}

   \def \etab    {\egroup\par\egroup\vskip24pt}
   \def \tabzw   {\kern6mm}
   \def \hlin {\noalign{\medskip\hrule width 18cc height 0.3pt\medskip}}

%-------------------------------------------------------------------------------
   \def \bleg    {\cr \noalign \bgroup \vskip4.5pt \let\cr=\hb \noindent}
   \def \eleg    {\egroup \cr}
%-------------------------------------------------------------------------------
   \def \strich  {\leaders \hrule height1pt}
%-------------------------------------------------------------------------------
%===============================================================================
% Referenzen mit freigestellter Numerierung in Grundschrift
%
%===============================================================================
%
     \def \begref {\vskip24pt}

     \def \ref #1#2{\bgroup\petit\par\noindent\hbox to 0.8cm{#1}%
                   \nobreak\noindent
                  \hangindent=1.02truecm\hangafter=1%
                  #2 \par\egroup}
%===============================================================================
% Grenzwerte zu Integer- und Summenzeichen neben den Zeichen sowie unter       %
% und ueber den Zeichen                                                        %
%==============================================================================%
%  Grenzwerte ueber und unter dem Integerzeichen
  \def\intl{\int\limits}
%  Grenzwerte neben dem Summenzeichen
  \def\suml{\sum\nolimits}
%==============================================================================%
% Kopfzeile
\headline={\ifnum\pageno=1{\hfil}
\else\ifodd\pageno
\the\rightheadline
              \else \the\leftheadline\fi\fi}
%-------------------------------------------------------------------
% Abbildungen
\def\begcap#1cm#2\endcap{\par\vskip18pt\def\footnoterule{}
\parindent=0pt
\setbox1=\vbox{\hbox{\vrule height#1true cm}#2}%
\dimen0=\ht1\advance\dimen0by\dp1\advance\dimen0by5\normalbaselineskip
\ifdim\dimen0>\vsize
  \pageinsert\box1\vss\endinsert
  \else % keine seitenhohe Abbildung
  \ifdim\pagetotal<\pagegoal %aktuelle Seite noch nicht voll
    \advance\dimen0by\pagetotal
    \ifdim\dimen0>\pagegoal %passt Abb+4Z nicht mehr auf akt Seite
      \topinsert\box1\endinsert
      \else\dimen0=\pagetotal %Abb+4Z passt auf akt Seite
      \advance\dimen0 by-6.5\normalbaselineskip
      \ifdim\dimen0>0pt %sind mindestens 7 Zeilen ueber Abb
        \vskip6pt plus6pt minus6pt
        {\box1}
        \vskip6pt plus6pt minus6pt
        \else\topinsert\box1\endinsert
      \fi
    \fi
    \else\dimen0=\pagetotal\advance\dimen0 by-\pagegoal %akt Seite voll
    \advance\dimen0 by-6.5\normalbaselineskip
    \ifdim\dimen0>0pt %sind noch 7 Zeilen vor Abb auf naechster Seite
        \vskip6pt plus6pt minus6pt
        {\box1}
        \vskip6pt plus6pt minus6pt
      \else\topinsert\box1\endinsert
    \fi
  \fi
\fi}
%