+ \begin{figure}[h]
+ \begin{pspicture}(0,0)(12,18)
+
+ \rput(6,18){\rnode{weiter_2}{\psframebox{$\bigotimes$}}}
+
+ \rput(6,16){\rnode{random2}{\psframebox[fillstyle=solid,fillcolor=green]{\parbox{7.5cm}{
+ Ausw"urfeln der Zufallszahlen:\\
+ $R_5$, $R_6$, $R_7$ entsprechend Reichweitenverteilung
+ }}}}
+ \ncline[]{->}{weiter_2}{random2}
+
+ \rput(2,14){\rnode{koord_wahl_i}{\psframebox[fillstyle=solid,fillcolor=green]{\parbox{7cm}{
+ Bestimmung von $\vec{r}(k,l,m)$ durch Abbildung von $R_5$, $R_6$ und $R_7$ auf $k$, $l$ und $m$
+ }}}}
+ \ncbar[angleA=180,angleB=180]{->}{random2}{koord_wahl_i}
+
+ \rput(10,14){\rnode{inc_c}{\psframebox[fillstyle=solid,fillcolor=green]{\parbox{7cm}{
+ Erh"ohung des Kohlenstoffs im Volumen $\vec{r}(k,l,m)$
+ }}}}
+ \ncline[]{->}{koord_wahl_i}{inc_c}
+
+ \rput(10,12){\rnode{is_d}{\psframebox[fillstyle=solid,fillcolor=yellow]{Durchlauf vielfaches von $d_v$?}}}
+ \ncline[]{->}{inc_c}{is_d}
+
+ \rput(2,12){\rnode{is_s}{\psframebox[fillstyle=solid,fillcolor=red]{Durchlauf vielfaches von $n$?}}}
+ \ncline[]{->}{is_d}{is_s}
+ \lput*{0}{nein}
+
+ \rput(10,10){\rnode{loop_d}{\psframebox[fillstyle=solid,fillcolor=yellow]{Gehe alle/verbleibende Volumina durch?}}}
+ \ncline[]{->}{is_d}{loop_d}
+ \lput*{0}{ja}
+
+ \rput(10,9){\rnode{d_is_amorph}{\psframebox[fillstyle=solid,fillcolor=yellow]{Volumen $\vec{r}(k,l,m)$ amorph?}}}
+ \ncline[]{->}{loop_d}{d_is_amorph}
+
+ \rput(10,7){\rnode{loop_dn}{\psframebox[fillstyle=solid,fillcolor=yellow]{\parbox{4cm}{
+ Gehe alle/verbleibende\\
+ direkte Nachbarn durch
+ }}}}
+ \ncline[]{->}{d_is_amorph}{loop_dn}
+ \lput*{0}{ja}
+
+ \rput(10,6){\rnode{is_cryst}{\psframebox[fillstyle=solid,fillcolor=yellow]{Nachbarvolumen kristallin?}}}
+ \ncline[]{->}{loop_dn}{is_cryst}
+
+ \rput(11,4){\rnode{transfer}{\psframebox[fillstyle=solid,fillcolor=yellow]{\parbox{3.5cm}{
+ "Ubertrage den Anteil $d_r$ des Kohlenstoffs
+ }}}}
+ \ncline[]{->}{is_cryst}{transfer}
+ \lput*{0}{ja}
+
+ \rput(10,3){\rnode{check_dn}{\psframebox[fillstyle=solid,fillcolor=yellow]{Alle Nachbarn durch?}}}
+ \ncline[]{->}{transfer}{check_dn}
+ \rput(8.5,5){\pnode{h1}}
+ \ncline[]{is_cryst}{h1}
+ \rput(8.5,3.2){\pnode{h2}}
+ \ncline[]{->}{h1}{h2}
+ \lput*{0}{nein}
+ \rput(13,3){\pnode{h3}}
+ \ncline[]{check_dn}{h3}
+ \rput(13,7){\pnode{h4}}
+ \ncline[]{h3}{h4}
+ \lput*{0}{nein}
+ \ncline[]{->}{h4}{loop_dn}