\ifx\sevenrm\undefined
  \font\sevenrm=cmr7 scaled \magstep0
\fi

\newread\MyStyle
\openin\MyStyle=src2latex.s2t
\ifeof\MyStyle
  \closein\MyStyle
\else
  \input src2latex.s2t
  \closein\MyStyle
\fi

\ifx\gtfam\undefined
  \ifx\dm\undefined
    \ifx\tendm\undefined
      \def\mc{\null}
    \else
      \def\mc{\tendm}
    \fi
  \else
    \def\mc{\dm}
  \fi
  \ifx\dg\undefined
    \ifx\tendg\undefined
      \def\gt{\null}
    \else
      \def\gt{\tendg}
    \fi
  \else
    \def\gt{\dg}
  \fi
\fi
\ifx\sc\undefined
  \def\sc{\null}
\fi

\tt\mc 

\noindent
function{\tt\mc \kern0.500em}[{\tt\mc \kern0.500em}output{\tt\_\kern.141em}args{\tt\mc \kern0.500em}]{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}plotgitter({\tt\mc \kern0.500em}zustandsraum,{\tt\mc \kern0.500em}plotachsen{\tt\mc \kern0.500em})

\noindent
{}{\tt\%}PLOTGITTER{\tt\mc \kern0.500em}Zeichnet{\tt\mc \kern0.500em}das{\tt\mc \kern0.500em}leere{\tt\mc \kern0.500em}Wabengitter

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Zeichnet{\tt\mc \kern0.500em}ein{\tt\mc \kern0.500em}Gitternetz{\tt\mc \kern0.500em}auf{\tt\mc \kern0.500em}den{\tt\mc \kern0.500em}Koordinaten,{\tt\mc \kern0.500em}die{\tt\mc \kern0.500em}in{\tt\mc \kern0.500em}den{\tt\mc \kern0.500em}ersten{\tt\mc \kern0.500em}beiden

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Reihen{\tt\mc \kern0.500em}von{\tt\mc \kern0.500em}zustandsraum{\tt\mc \kern0.500em}definiert{\tt\mc \kern0.500em}sind.

\noindent
{}\hfill

\noindent
{}global{\tt\mc \kern0.500em}MittelPunkte;

\noindent
{}global{\tt\mc \kern0.500em}animation;

\noindent
{}\hfill

\noindent
{}for{\tt\mc \kern0.500em}wabenNummer=1:length(MittelPunkte)

\noindent
{}{\tt\mc \kern2.000em}ecken{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}EckPunkte(MittelPunkte(wabenNummer));

\noindent
{}{\tt\mc \kern2.000em}patch(zustandsraum(1,{\tt\mc \kern0.500em}ecken),{\tt\mc \kern0.500em}zustandsraum(2,{\tt\mc \kern0.500em}ecken),{\tt\mc \kern0.500em}...

\noindent
{}{\tt\mc \kern5.000em}'white',{\tt\mc \kern0.500em}'EdgeColor','black',{\tt\mc \kern0.500em}'Parent',plotachsen);

\noindent
{}end

\noindent
{}\hfill

\noindent
{}if{\tt\mc \kern0.500em}(animation)

\noindent
{}{\tt\mc \kern2.000em}drawnow;

\noindent
{}end

\noindent
{}\hfill

\noindent
{}{\tt\%}{\tt\mc \kern0.500em}'CurrentAxes',raumplot,{\tt\mc \kern0.500em}...

\rm\mc
