Delphi-PRAXiS - Winkelberechnung

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - Winkelberechnung (https://www.delphipraxis.net/101500-winkelberechnung.html)

Strahlex

14. Okt 2007 14:07

Winkelberechnung

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

14. Okt 2007 14:15

Re: Winkelberechnung

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

Insider2004

15. Okt 2007 06:48

Re: Winkelberechnung

Funktioniert aber nicht immer...

SirThornberry

15. Okt 2007 06:57

Re: Winkelberechnung

@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

15. Okt 2007 15:44

Re: Winkelberechnung

Liste der Anhänge anzeigen (Anzahl: 1)

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:

Alle Zeitangaben in WEZ +1. Es ist jetzt 00:19 Uhr.