---

Hallo,

ich habe die Koordinaten von zwei Punkten und möchte den Winkel der Linie von Punkt 1 zu Punkt 2 bestimmen.
Das Einfachste wäre es ja, eine Linie zu zeichnen und mit "lineObj.angle" den Winkel abzufragen.
Wie kann ich es rein rechnerich lösen?
Den Betrag bekomme ich ja mit dem Arcus Tangens raus, aber je nach dem wie die Linie im Koordinatensystem liegt, muß ja noch ein Wert addiert werden.
Gibt es da eine einfache Lösung?

MfG Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Ralf,

Du musst die Quadranten berücksichtigen und prüfen das es keine Division durch 0 gibt (Sonderfall).
ich verwende folgende Funktion:

Code:

---

Public Function x_Riwi#(ya#, xa#, Ye#, Xe#)
Dim dy#, dx#
Dim TanAlpha#
Dim winkel#

dy = Ye - ya
dx = Xe - xa

If dx <> 0 Then
   TanAlpha = dy / dx
   winkel = Atn(TanAlpha) * 200 / 3.141593
   If winkel < 0 Then
      winkel = winkel + 200
   End If
   If dy < 0 Then
      winkel = winkel + 200
   End If
   If winkel = 0 And dx < 0 Then
      winkel = 200
   End If
Else
   If dy >= 0 Then
      winkel = 100
   Else
      winkel = 300
   End If
End If

x_Riwi = winkel
  
End Function

---

Sie rechnet den Winkel in Gon (400gon = Vollkreis) als Geodätischen Richtungswinkel.

Stelli

------------------
Warum lisp'eln wenn's auch anders geht.  
www.ib-stelberg.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Stelli,

vielen Dank, jetzt ist mir das klargeworden.

Ich wünsche Dir noch einen schönen Restsonntag.

MfG Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP