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))

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:

markieren

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!

Winkelberechnung

Winkelberechnung

Re: Winkelberechnung

Re: Winkelberechnung

Re: Winkelberechnung

Re: Winkelberechnung

Forumregeln

Strahlex Registriert seit: 30. Jun 2007 87 Beiträge Delphi 2005 Personal	#1 Winkelberechnung 14. Okt 2007, 15:07 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
	Zitat

Apollonius Registriert seit: 16. Apr 2007 2.325 Beiträge Turbo Delphi für Win32	#2 Re: Winkelberechnung 14. Okt 2007, 15:15 In welcher Klasse bist du? Mit Trigonometrie geht das recht einfach: Alpha=ArcTan((p2.y-p1.y)/(p1.x-p2.x)) Wer erweist der Welt einen Dienst und findet ein gutes Synonym für "Pointer"? "An interface pointer is a pointer to a pointer. This pointer points to an array of pointers, each of which points to an interface function."
	Zitat

Insider2004 (Gast) n/a Beiträge	#3 Re: Winkelberechnung 15. Okt 2007, 07:48 Funktioniert aber nicht immer...
	Zitat

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#4 Re: Winkelberechnung 15. Okt 2007, 07:57 @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. Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
	Zitat