\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}plotwaben({\tt\mc \kern0.500em}zustandsraum{\tt\mc \kern0.500em})

\noindent
{}{\tt\%}PLOTWABEN{\tt\mc \kern0.500em}Graphische{\tt\mc \kern0.500em}Anzeige{\tt\mc \kern0.500em}der{\tt\mc \kern0.500em}Ergebnisse

\noindent
{}{\tt\%}{\tt\mc \kern1.500em}Markiert{\tt\mc \kern0.500em}alle{\tt\mc \kern0.500em}bebauten{\tt\mc \kern0.500em}Waben{\tt\mc \kern0.500em}mit{\tt\mc \kern0.500em}einer{\tt\mc \kern0.500em}Farbe

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

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

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

\noindent
{}\hfill

\noindent
{}bebautezellen{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}find(zustandsraum(4,:));{\tt\mc \kern0.500em}{\tt\%}{\tt\mc \kern0.500em}Vektor{\tt\mc \kern0.500em}mit{\tt\mc \kern0.500em}Indizes{\tt\mc \kern0.500em}aller{\tt\mc \kern0.500em}bebauten{\tt\mc \kern0.500em}Zellen

\noindent
{}\hfill

\noindent
{}{\tt\%}{\tt\mc \kern0.500em}ecken{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}zeros(length(BebautIndizes));

\noindent
{}\hfill

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

\noindent
{}{\tt\mc \kern2.000em}{\tt\%}{\tt\mc \kern0.500em}ecken{\tt\mc \kern0.500em}={\tt\mc \kern0.500em}EckPunkte(BebautIndizes(wabe));

\noindent
{}{\tt\mc \kern2.000em}{\tt\%}{\tt\mc \kern0.500em}hier{\tt\mc \kern0.500em}sollen{\tt\mc \kern0.500em}alle{\tt\mc \kern0.500em}bebauten{\tt\mc \kern0.500em}Waben{\tt\mc \kern0.500em}mit{\tt\mc \kern0.500em}Farbe{\tt\mc \kern0.500em}markiert{\tt\mc \kern0.500em}werden..{\tt\mc \kern0.500em}ungefähr{\tt\mc \kern0.500em}so:

\noindent
{}{\tt\mc \kern2.000em}{\tt\%}{\tt\mc \kern0.500em}patch(zustandsraum(1,ecken),{\tt\mc \kern0.500em}zustandsraum(2,ecken),{\tt\mc \kern0.500em}'red',{\tt\mc \kern0.500em}'EdgeColor','black');

\noindent
{}{\tt\mc \kern2.000em}plotwabe(wabe,raumplot,zustandsraum(4,wabe));

\noindent
{}end

\noindent
{}\hfill

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

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

\noindent
{}end

\noindent
{}\hfill

\noindent
{}end

\noindent
{}\hfill

\noindent
{}

\rm\mc
