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

Delphi-Programm

procedure TForm1.doit(Sender: TObject);
   var s,t:string;
       i,j,k:integer;
       f:textfile;
       ttt:integer;
       mx : longint;
       cnt: array[-300..300] of longint;
function arcsin(x:extended):extended; begin
  ArcSin := ArcTan (x/sqrt (1-sqr (x)));
end; function arccos(x:extended):extended; begin
  ArcCos := ArcTan (sqrt (1-sqr (x)) /x);
end; begin
  label1.caption := '';
  s := '';
  randomize;
  mx := 1;
  for k := 1 to 9 do
    begin
      for j := -300 to 300 do
        cnt[j] := 0;
      for i := 1 to mx do
        begin
          j := random(5);
          if odd(j) then
            ttt := round(100*(arcsin(random*1.9998-0.9999)/pi+round(j-2)))
          else
            ttt := round(100*(arcsin(random*1.9998-0.9999)/pi+round(j-2)));
          inc(cnt[ttt]);
        end;
      str(k:1,t);
      t := 'x:\bildablage\photon'+t+'.txt';
      assignfile(f,t);
      rewrite(f);
      for j := -300 to 300 do
        writeln(f,cnt[j]);
      closefile(f);
      mx := mx*10;
    end;
end;