MONTE-CARLO-METHODE

[Luckie]

Delphi-Quellcode:

function FKT(a, b, n, x: real): real;
begin
  fkt := a * exp(-x);
end;

procedure TForm1.STARTClick(Sender: TObject);
var
  a, b, n, fi, x, y1, ymax: real;
  i, int: integer;

begin
  a := StrToFloat(Edit1.Text);
  if (a < 1) then
  begin
    messagedlg(
      'untere grenze a muss groesser 1 sein!',
      mtError, [mbOK], 0);
    Edit1.setfocus;
    exit;
  end;

  b := StrToFloat(Edit2.Text);
  if (b <= a) then
  begin
    messagedlg(
      'obere grenze b muss groesser untere grenze a sein!',
      mtError, [mbOK], 0);
    Edit2.setfocus;
    exit;
  end;

  for i := 0 to 100 do
  begin
    int := Random(100);
    if (int > a) and (int < b) then
    begin
      y1 := a * exp(int) - int;
    end;
  end;

  a := StrToInt(Edit1.Text);
  x := StrToInt(Edit5.Text);
  b := StrToInt(Edit2.Text);
  n := StrToInt(Edit3.Text);
  ymax := a * exp(b) - b;
  fi := (b - a) * ymax / n;
  Edit4.Text := FloatToStr(fi);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize();
end;

So läuft das Ding zu mindest schon mal. Ob es stimmt oder nicht, das sagt dir das Licht.

[edit=Daniel B]Doppel-Post gelöscht. MfG Daniel B.[/edit]