Annäherung an Pi mit Monte carlo, paintbox

[Klaus01]

 if (sqrt(x*x+y*y) < 200) ->

Delphi-Quellcode:

if sqrt(sqr(x)+sqr(y)) <= sqrt(sqr(paintbox.width)+(sqr(paintbox.heigth)) then
  //im radius
else
 //asserhalb des Radius

Grüße
Klaus

[einbeliebigername]

Hallo,

Zitat von Klaus01:

if sqrt(sqr(x)+sqr(y)) <= sqrt(sqr(paintbox.width)+(sqr(paintbox.heigth)) then

Das ist aber nicht im Sinne des Erfinders. Denn damit ist der Radius des Kreis so groß wie die Diagonale der PaintBox. Das hat dann die Folge, dass alle Punkte, die man sieht, innerhalb des Kreises liegen. Besser ist das:

Delphi-Quellcode:

  R:= Min(paintbox.width, paintbox.heigth)
  ...
    x:= random(R);
    y:= random(R);
    if (sqrt(x*x+y*y) < R) then
  ...

Einbeliebigername.