\ANG{
Im folgenden werden wir den radioaktiven Zerfall mit einem
Tabellenkalkulationsprogramm (in unserem Beispiel OpenOffice.org Calc) simulieren.

\begin{itemize}
  \item Bedeutung der Zellinhalte

        \begin{description}
          \item[0] \quad das Radionuklid ist zerfallen und existiert nicht mehr
          \item[1] \quad das Radionuklid ist noch nicht zerfallen
        \end{description}
  \item Bedeutung der Spalten

        Die Spalte \texttt{A} steht f{\"u}r den Nullpunkt unserer Zeitmessung.
        Spalte \texttt{B} beschreibt die Situation nach einer Halbwertzeit, Spalte
        \texttt{C} nach zwei Halbwertzeiten, $\ldots$, Spalte \texttt{I}
        die Situation nach acht Halbwertzeiten.
  \item Bedeutung der Zeilen

        Zeile 1 steht f{\"u}r das erste Radionuklid, Zeile 2 f{\"u}r das zweite, $\ldots$, Zeile 512 steht f{\"u}r das
        512.Radionuklid.
\end{itemize}

Zum Zeitpunkt 0 sollen alle Radionuklide existieren, also tragen wir in die Zellen
\texttt{A1} bis \texttt{A512} jeweils den Wert 1 ein.

In Zelle \texttt{B1} wird \texttt{=WENN(A1=0;0;WENN(ZUFALLSZAHL()<0,5;0;1))} eingetragen
(welche Bedeutung hat diese Anweisung?).

Nun wird der Inhalt der Zelle \texttt{B1} in alle anderen noch freien Zellen bis zur
Spalte \texttt{I} und zur Zeile 512 kopiert.

Um die zu einem bestimmten Zeitpunkt die Anzahl der noch vorhandenen Radionuklide festzustellen
summieren wir die die Inhalte der jeweiligen Spalten von \texttt{A} bis \texttt{I} und
tragen diese Werte in die Zeile 513 ein.

Zum Abschluss erstellen wir noch eine Grafik mit den Daten aus den Zellen
\texttt{A513} bis \texttt{I513}.

Mit Extras$\rightarrow$Zellinhalte$\rightarrow$Neu berechnen bzw. mit \fbox{F9} k{\"o}nnen wir
wir alle Zellinhalte neu berechnen und somit ein neues ,,Zerfallsexperiment'' starten.

Dein Tabellenblatt sollte dann etwa so

\begin{center}
\begin{tabular}{|p{1cm}|p{1cm}|p{1cm}|p{1cm}|p{1cm}|p{1cm}|p{1cm}|p{1cm}|p{1cm}|p{1cm}|} \hline
  B1 & Formel: & \multicolumn{8}{c|}{\texttt{=WENN(A1=0;0;WENN(ZUFALLSZAHL()<0,5;0;1))}} \\ \hline
     & A & B & C & D & E & F & G & H & I \\ \hline
   1 & 1 & 1 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ \hline
   2 & 1 & 1 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ \hline
   3 & 1 & 1 & 1 & 1 & 1 & 0 & 0 & 0 & 0\\ \hline
   4 & 1 & 1 & 1 & 0 & 0 & 0 & 0 & 0 & 0\\ \hline
   \multicolumn{10}{|c|}{$\dots$} \\ \hline
   510 & 1 & 1 & 1 & 0 & 0 & 0 & 0 & 0 & 0\\ \hline
   511 & 1 & 1 & 0 & 0 & 0 & 0 & 0 & 0 & 0\\ \hline
   512 & 1 & 1 & 1 & 0 & 0 & 0 & 0 & 0 & 0\\ \hline
   513 & 512 & 258 & 118 & 52 & 22 & 14 & 7 & 2 & 1\\ \hline
\end{tabular}
\end{center}

und deine zugeh{\"o}rige Grafik so aussehen:

\psset{xunit=1cm, yunit=0.005cm}
\begin{center}
\begin{pspicture}(0,-5)(9,600)
\psaxes[ticks=none, labels=none](0,0)(9.5,550)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](0,0)(1,512)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](1,0)(2,258)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](2,0)(3,118)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](3,0)(4, 52)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](4,0)(5, 22)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](5,0)(6, 14)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](6,0)(7,  7)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](7,0)(8,  2)
\psframe[fillstyle=solid, fillcolor=blue, linestyle=none](8,0)(9,  1)
\psline(-0.1,100)(0.1,100)\rput(-0.5,100){$100$}
\psline(-0.1,500)(0.1,500)\rput(-0.5,500){$500$}

\rput(0.5,-50){A}
\rput(1.5,-50){B}
\rput(2.5,-50){C}
\rput(3.5,-50){D}
\rput(4.5,-50){E}
\rput(5.5,-50){F}
\rput(6.5,-50){G}
\rput(7.5,-50){H}
\rput(8.5,-50){I}
\end{pspicture}
\end{center}
}
\LSG{}