Определить угол между двумя прямыми

[Vladimir!]

Как это можно сделать?
Программно, конечно

[Александр Дмитриев]

Позор, позор...
Если прямые определять координатами двух точек:

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


Const pi As Single = 3.14159265358979
Const e As Single = 2.71828182845905
Function Ugol(x1 As Single, y1 As Single, _
   x2 As Single, y2 As Single, _
   x1t As Single, y1t As Single, _
   x2t As Single, y2t As Single) As Single
Dim u1 As Single, u2 As Single
u1 = Atn((y2 - y1) / (x2 - x1))
u2 = Atn((y2t - y1t) / (x2t - x1t))
Ugol = Abs(u2 - u1)
End Function


Если же её определять уравнением - коэффициентами k и b:

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


Const pi As Single = 3.14159265358979
Const e As Single = 2.71828182845905
Function Ugol(k As Single, b As Single, _
   kt As Single, bt As Single) As Single
Dim u1 As Single, u2 As Single
u1 = Atn(k)
u2 = Atn(kt)
Ugol = Abs(u2 - u1)
End Function


[Matew]

Замечу, что вместо Atn лучше использовать:

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

Private Const SmallNumber As Double = 1E-70
Public Function Atn2(ByVal y As Double, ByVal x As Double) As Double
    If SmallNumber * Abs(y) < Abs(x) Then
        If x < 0 Then
            If y = 0 Then
                Atn2 = Pi()
            Else
                Atn2 = Atn(y / x) + Pi() * Sgn(y)
            End If
        Else
            Atn2 = Atn(y / x)
        End If
    Else
        Atn2 = Sgn(y) * Pi() / 2
    End If
End Function


т.к. могут возникнуть проблемы со знаками в некоторых четвертях.

[GAGArin]

Меня одно удивляет, почему вопросы по математике 9ого класса идут в форуме по VB? Может пора организовать отдельный подфорум и там спрашивать как из двух чисел получить их сумму. Плюс еще надо отдельный форум "Дайте мне готовый код быстро!" чтобы можно было постить вопросы которые самому решать лень.

PS Я не злой, просто третья тема за последнее время на одну и ту же тему.

[Vladimir!]

Ну дык... В общем, спасибо за ответы.
А по поводу математики девятого класса... Да я не программист вообще по образованию, а жуть как интересно и для дела полезно.
Извините, если вопрос показался Вам тупым...
И вообще, форум, насколько я понимаю, для того и существует, чтоб вопросы задавать. Тем более это раздел для начинающих.
КАКИЕ ПРОБЛЕМЫ?
[/b]

[alibek]

А по поводу математики девятого класса... Да я не программист вообще по образованию, а жуть как интересно и для дела полезно.

А причем тут программирование?
Чтобы грамотно писать, нужно быть профессором филологии и получить две Нобелевские премии?

[Vladimir!]

alibek, я с тобой согласен, но и ты согласись, что для того, чтобы грамотно писать надо учиться. Или я не прав и знание vb6 - дар от рождения, впитанный с молоком матери? Если Вы такой талант и та информация, которую Вы вложили в 7099(!!!) собщений была заложена в Вас по умолчанию я Вам искренне завидую. А мне приходится учиться. И хорошо что у таких талантов, как Вы.
Поменьше бы только неистовых флудеров... (Толку от них никакого, а г...на не оберешься)
С уважением, Владимир

[GAGArin]

Поменьше бы только неистовых флудеров... (Толку от них никакого, а г...на не оберешься)
С уважением, Владимир

Я должен писать код для задачи решение которой писал два раза за две недели? Эти посты так трудно найти? Один из них между прочим еще даже на вторую страницу не ушел, да и поиск не отменяли.
http://bbs.vbstreets.ru/viewtopic.php?p=166275#166275
http://bbs.vbstreets.ru/viewtopic.php?p=6572776#6572776
Это не вопрос по програмированию, а по математике причем по школьной, и 9ого класса. Реализация алгоритма есть на форуме где-то в 5-7 экземплярах минимум править там кое что нужно, но это к вопросу о создании второго форума.

Без особого уважения, Rinin

PS К вопросу о моем спецстатусе: его я получил довольно давно, и по собственной инициативе, тогда я просто забросил VB и обитал только в разделах флуда.

[Vladimir!]

Спасибо. Прошу прощения, если кого-то обидел... Не хотел. Но насчет девятого класса... Короче, по этому поводу останусь при своем мнении. Там только транспортир

[Vladimir!]

А насчет уважения - твои проблемы

[keks-n]

Сам ты транспортир! Только что открыл учебник: там всё про это доходчиво для таких как ты написано!

[GSerg]

Флейм прекратить.

[Vladimir!]

Тема закрыта