prüfen ob punkt sich im kreis befindet

[glkgereon]

hi
einige werden es erraten haben, ja ich will mir eine monte-carlo-simulation machen

dazu muss man ja prüfen, ob ein punkt im kreis is (oder eben nicht)
ich wollte es mit nem viertelkreis machen

hab irgendwo gehört, man müsste sinus*cosinus und dann wenn >1 dann isses drin, wenn <1, dann halt nit oder so....

weiss das einer genau?

[Matze]

[dp]monte* *carlo*[/dp]

[glkgereon]

also um ehrlich zu sein finde ich in den beiträgen nichts, wo dieses problem besprochen wird, und den einen qt kapier ich nicht

[shmia]

Delphi-Quellcode:

function IsPointInCircle(point, center : TPoint; radius:double): boolean;
var
   distance2 : double;
begin
   // Berechnung des Abstands des Punktes vom Mittelpunkt nach Pythagoras
   distance2 := Sqr(point.x-center.x) + Sqr(point.y-center.y);
   // das Wurzelziehen sparen wir uns, stattdessen wird der Radius ebenfalls quadriert

   result := (distance2 <= Sqr(radius));
end;

Und jetzt das Ganze als Einzeiler (zwecks Performance und Vermeidung von Rundungsfehlern):

Delphi-Quellcode:

function IsPointInCircle(point, center : TPoint; radius:double): boolean;
begin
   // Berechnung des Abstands des Punktes vom Mittelpunkt nach Pythagoras
   // das Wurzelziehen sparen wir uns, stattdessen wird der Radius ebenfalls quadriert
   result := ((Sqr(point.x-center.x) + Sqr(point.y-center.y)) <= Sqr(radius));
end;

[woki]

Hi,

1. Vermeide Sinus, Cosinus, Wurzelziehen, alles sehr erchenaufwendig un hier überflüsssig
2. Pythagoras ist ein guter Ansatz.
3. Die Umformungen nochmal überprüfen

Grüsse
Woki

[alcaeus]

Hi woki,

Zitat:

Zitat von woki

2. Pythagoras ist ein guter Ansatz.

shmias Lösung funktioniert (bei mir) einwandfrei, Ansätze brauchts also nicht mehr ;)
@glkbkk: wenn du nur einen viertelkreis willst, dann musst du die Koordinaten relativ zum Mittelpunkt betrachten, falls es sich bei den Winkeln um 0-90, 90-180 usw. handelt. Falls es nicht die Viertelkreise sind, kommst du um Trig-Funktionen nicht herum..

Greetz
alcaeus

[glkgereon]

danke...

klar:

Delphi-Quellcode:

if sqr(x)+sqr(y)<sqr(radius)

das is die lösung!!!
danke fürs stichwort

[woki]

Zitat:

Zitat von alcaeus

Hi woki,

Zitat:

Zitat von woki

2. Pythagoras ist ein guter Ansatz.

shmias Lösung funktioniert (bei mir) einwandfrei, Ansätze brauchts also nicht mehr ;)

nun, das soll sie wohl auch, hatte beim lesen sqr und sqrt verwechselt.

Grüsse
Woki