Winkel einer Linie durch 2 Punkte

[Jens Schumann]

Hallo:
ich habe eine kleine Erweiterung vorgenommen:

Delphi-Quellcode:

x  A = (0|0) 
 |\ 
 | \ 
 |  \ 
 |   \ 
 |.   \ 
 |----- x  B = (5|5) 
  
  ==> Winkel = 90°

Der Punkt A hat die Koordinaten X1=0 und Y1=0
Der Punkt B hat die Koordinaten X1=5 und Y2=5
Der Tangens der Winkel berechnet sich:(Y2-Y1)/(X2-X1) Achtung: Wenn X1=X2 ist steht im Nenner 0. Das musst Du abfangen.
Mit arctan((Y2-Y1)/(X2-X1) erhälst Du den Winkel in Radiant. Wenn Grad verwenden möchtest muss Du das Ergebnis wie folgt umrechnen:

Delphi-Quellcode:

 Wr : Winkel in Radiant
         Wg : Winkel in Grad

Formel:  Wg:=Wr*180/Pi

Weil es gilt: Pi entspricht 180° und Wr entspricht Wg
Daraus folgt: Pi/Wr=180/Wg
Fix umgestellt ergibt

Wg=Wr*180/Pi