Как вычислить угол между двумя точками на плоскости?

[TiG]

Как вычислить угол между двумя точками на плоскости?

[uhm]

Во-первых, уже было, во-вторых, две точки не определяют угол.

[GSerg]

Никак, ввиду отсутствия такового.
Может, угол между линией, соединяющей две точки, и положительным направлением абсциссы?

[TiG]

Угу поленился написать, сорь.
Грег прально сказал:

Как вычислить угол между линией, соединяющей две точки, и положительным направлением абсциссы.

[vvs_adm]

Как вычислить угол между линией, соединяющей две точки, и положительным направлением абсциссы.

Элементарно... Сходить к директору школы и попросить его зачислить тебя в первый класс А там уже у одноклассников спросишь, они тебе подробно расскажут

[TiG]

не дерзи...
я написал долбанную формулу, через арксинус который раскладывается на арктанген и имееем мнимый угол, но возможно есть гениальный вариант, который соответственно прост, этому и был посвящен вопрос.

[vvs_adm]

TiG А, так тебе так надо... Тогда приношу свои извинения, не понял вопроса

[Qubicz]

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

Atn ((y2-y1)/(x2-x1))

?
угол в радианах

[TiG]

2 Qubicz, сенк этого ответа я и ждал))) (градусах - умножить на pi/180 вроде как)

[vvs_adm]

(градусах - умножить на pi/180 вроде как)

умножить на 180/пи вроде как Все таки загляни к дирику

[TiG]

2 vvs_adm совершенно верно, сенк

[Опришник]

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

Private Function GetAngle(X0 As Double, Y0 As Double, X1 As Double, Y1 As Double) As Double
    Const RAD = 57.2957795130823
    If X0 <> X1 Then
        GetAngle = Atn((Y1 - Y0) / (X1 - X0)) * RAD + 90 * (Sgn(X1 - X0) + 1)
        If GetAngle < 0 Then GetAngle = 360 + GetAngle
    Else: GetAngle = 180 + Sgn(Y1 - Y0) * 90
    End If
End Function

Это работает!