Weiter: Korrekturen Oben: Simulation von Photonenstatistiken Zurück: Delphi-Programm Skript: PDF-Datei Übungen: Blätter

Maple 7 -Programm

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{restart: }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{rx := array(-300.... ...oxed,title=1 Photon,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...d,title=10 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...,title=100 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...title=1000 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...itle=10000 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...tle=100000 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...le=1000000 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...e=10000000 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

$\begin{maplegroup} \begin{mapleinput} \mapleinline{active}{1d}{fd := fopen(d:/da... ...=100000000 Photonen,numpoints=1201); }{%% } \end{mapleinput}\par\end{maplegroup}$

Othmar Marti
Experimentelle Physik
Universiät Ulm