Немного геометрии

[StimorolD3DX]

Вообщем есть 2 точки А и В на плоскости. Их координаты известны. Вопрос: Как узнать угол между ними? Какую формулу использовать?

Может кто не понял суть вопроса вот аттачу картинку.

[Mikle]

StimorolD3DX
Atn((x1-x2)/(y1-y2))
С учетом того, что на 0 делить нельзя и функция Atn определена не на всей числовой оси, то есть сделай соответствующий Select Case.

[iGrok]

Код: Выделить всё

Public Const pi As Double = 3.14159265358979

Function RTG(Rad As Double) As Double
    RTG = (180 * Rad) / pi
End Function

Function GTR(Grd As Double) As Double
    GTR = (Grd * pi) / 180
End Function

Function XAngle(x1 As Long, y1 As Long, x2 As Long, y2 As Long) As Double
Dim tn As Double
    If x2 - x1 = 0 Then XAngle = IIf(y2 < y1, 0, 180): Exit Function
    tn = -(y1 - y2) / (x2 - x1)
    XAngle = RTG(Atn(tn)) + 90
    If x2 < x1 Then XAngle = XAngle + 180
End Function


[StimorolD3DX]

Спасибо всем