Определение азимута

[Pug_nosed_2005@mai]

Короче есть некий треугольник... на местности... одна его сторона из вершины С к А лежит например на азимут 350 другая из вершины С к В на азимут 155... известны длинны этих сторон(тоже произвольные)... естественно не сложно посчитать угол между ними... потом можно узнать длину третей стороны из вершины А к В... блин но вот как прописать формулу чтобы рассчитывал азимут из вершины А к В не как не могу придумать(Саму логическую формулировку)... блин вроде сделаю все нормально другие данные ввожу все поехало наперекосяк!!!!!!!!!

[doober]

Все по Эвклиду.Идея ,думаю, понятна вам.

Type Point
X As Single
Y As Single
End Type

Public Function GetAngle(p1 As Point, p2 As Point) As Single
    Pi = 4 * Math.Atn(1)
    Dim deltay As Single
    Dim deltax As Single, angle As Single
    deltax = p2.X - p1.X
    deltay = p2.Y - p1.Y    '
    If deltax = 0 Then
        deltax = 0.000001
    End If
    angle = Math.Atn(deltay / Math.Abs(deltax))
    If deltax < 0# Then
        angle = Pi - angle
    End If

    If angle > 2 * Pi Then
        angle = angle - 2 * Pi
    End If

    If angle < -2 * Pi Then
        angle = angle + 2 * Pi
    End If

    If angle < 0 Then
        angle = 2 * Pi + angle
    End If
    GetAngle = 180 * angle / Pi

End Function

[AndVGri]

Мы же всё же в Excel

Public Function GetAngleAB(ByVal angleCB As Double, ByVal lengthCB As Double, _
                           ByVal angleCA As Double, lengthCA As Double) As Double
    Dim pWFuncs As WorksheetFunction
    Set pWFuncs = Application.WorksheetFunction
    angleCB = pWFuncs.Radians(angleCB)
    angleCA = pWFuncs.Radians(angleCA)
    GetAngleAB = pWFuncs.Atan2(lengthCB * Math.Cos(angleCB) - lengthCA * Math.Cos(angleCA), _
                               lengthCB * Math.Sin(angleCB) - lengthCA * Math.Sin(angleCA))
End Function

[IgorGO]

см. вложение

[type_Oleg]

А Земля у вас плоская или круглая?
Если треугольник небольшой, порядка километров, можно считать плоской. А если большой, то надо использовать формулы сферической геометрии, там сумма углов больше 180.
Например, вершина A(0с.ш, 0в.д), B(0с.ш, 90в.д), C (90 с.ш. - полюс). Все углы - прямые.

Поэтому из точки D(50 с.ш., 10 в.д.) в точку E (50 с.ш. 100 в.д.) кратчайшее направление (азимут) - не ровно на восток.

[IgorGO]

type_Oleg, решили взорвать мозг автору темы?

Земля у нас плоская, и стоит на трех китах.
а три перечисленные Вами точки (даже если допустить, что Земля - это шар) однозначно определяют некую плоскость в пространстве, на которой отчетливо виднеется описанный Вами равнобедренный треугольник, такой же плоский, как содержащая его плоскость.

[doober]

А когда это у нас лучи стали гнуться?

[type_Oleg]

Так ведь сказано было ... на местности. А местность - кривая.

Ну если просто так , оговорка, имеется ввиду не поверхность планеты, а плоскость, считайте в декартовых координатах.

[IgorGO]

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

а замечание type_Oleg, вообще-то дельное, может автор не границы садоводческого товарищества в натуру выносит, а рассчитавает траектории баллистических ракет - ему это в самый раз.
известно, что в военное время обычный косинус может до четырех доходить.