Winkelberechnung

[Strahlex]

Hallo!

Ich habe ein Delphi-Mathematisches Problem:

ich benötige eine Formel für den Winkel von Punkt1 zu Punkt2 in Grad, wenn jeweils X und Y gegeben sind:

http://www.directupload.com/showoriginal-19871.jpg

Bitte um Hilfe

[Apollonius]

In welcher Klasse bist du? Mit Trigonometrie geht das recht einfach:
Alpha=ArcTan((p2.y-p1.y)/(p1.x-p2.x))

[Insider2004]

Funktioniert aber nicht immer...

[SirThornberry]

@Strahlex: könntest du das bild bitte an den Beitrag anhängen damit es auch noch verfügbar ist nachdem es nicht mehr auf dem aktuellen Webspace liegt.

Zur Formel: Schau mal nach winkelberechnung im rechtwinkligen Dreieck.

[Strahlex]

Ich habe das Problem nun folgendermaßen gelöst:

Delphi-Quellcode:

Winkel:=ArcTan((YPunkt2-YPunkt1)/(XPunkt2-XPunkt1)) *180/PI;

if ((YPunkt2 > YPunkt1) and (XPunkt2 < XPunkt1)) or ((YPunkt2 < YPunkt1) and (XPunkt2 < XPunkt1)) then
  Winkel := Winkel + 180
else if ((YPunkt2 < YPunkt1) and (XPunkt2 > XPunkt1)) then
  Winkel := Winkel +360;

THX an alle! :cheers:




:dp: