Winkel berechnen

Ferrari · Beiträge: 30 Win XP Delphi 6 Personal

Hi,

Die Koordinaten von 3 Punkten (P1,P2,P3) sind gegeben und ich möchte den Winkel P1P2P3 berechnen.
Kann mir da jemand helfen?

Kroko · Beiträge: 1284 W98 W2k WXP Turbo D

verschiebe P1 bis P3 mit -P2, dann ist P2 der Nullpunkt

markieren

Delphi-Quelltext

1:
2:
3:

Alpha1 := AcrTan2 (P3.Y,P3.X);
Alpha2 := ArcTan2 (P1.Y,P1.X);
Alpha := Alpha1-Alpha2; // oder anders herum

_________________
Die F1-Taste steht nicht unter Naturschutz und darf somit regelmäßig und oft benutzt werden! oder Wer lesen kann, ist klar im Vorteil!

starsurfer · Verfasst: Mi 22.03.06 17:09

wenns 2d Koordinaten sind dann guggst du ins Tafelwerk -Allgemeines Dreieck- bei Sinussatz und Kosinussatz ...

bei 3d Koordinaten dann guggst du unter Vektorrechnung und analytische Geometrie, machst aus den Punkten Vektoren und schaust bei Skalarprodukt von Vektoren rein...

_________________
GEIZ IST GEIL! - Ihr Sozialamt

Ferrari · Beiträge: 30 Win XP Delphi 6 Personal

Danke, ich werde es gleich ausprobieren.

Allesquarks · Beiträge: 510 Win XP Prof Delphi 7 E

Kannst es ja auch über das Skalarprodukt machen.

(x1-x3)*(x2-x3)+(y1-y3)*(y2-y3)+(z1-z3)*(z2-z3)
Winkel=arccos(-----------------------------------------------------------------
SQRT((x1-x3)²+(y1-y3)²+(z1-z3)²)*SQRT((x2-x3)²+(y2-y3)²+(z2-z3)²)

Ferrari · Beiträge: 30 Win XP Delphi 6 Personal

Danke. Ich verstehe das zwar nicht, aber wird schon stimmen. Ich kanns ja mal so probieren.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme