Как узнать угол

@LordWolf · Регистрация: 22.03.2010

Студворк — интернет-сервис помощи студентам

Суть проблемы состоит в том чтобы узнать угол, скажем между центром рисунка и какй-нибуть точкой.
Стандартная функция atn() visual basic возращает значения только от 0 до 90 градусов(до 3.14/2рад)
Я написал функцию для нахождения угла, но она работает слегка неправильно

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Function GetAngle(X As Single, Y As Single) As Single
If X > 0 And Y > 0 Then
GetAngle = Atn(Y / X)
ElseIf Y > 0 And X = 0 Then
GetAngle = Pi / 2
ElseIf Y > 0 And X < 0 Then
GetAngle = Atn(-X / Y) + Pi / 2
ElseIf Y = 0 And X < 0 Then
GetAngle = Pi
ElseIf Y < 0 And X < 0 Then
GetAngle = Atn(Y / X) + Pi
ElseIf Y < 0 And X = 0 Then
GetAngle = Pi / 2 * 3
ElseIf Y < 0 And X > 0 Then
GetAngle = Atn(X / -Y) + (Pi / 2 * 3)
ElseIf Y = 0 And X > 0 Then
GetAngle = 0
End If
End Function

Подскажите плз ошибку, или предложите вариант попроще.
Заранее спасибо

@Somebody · 22.03.2010, 17:39

atan2

@LordWolf · 22.03.2010, 18:03 **[ТС]**

Спасибо, опробую

@gaw · 22.03.2010, 18:06

Visual Basic
1
2
3
4
5
6
7
Public Function GetAngle(X0 As Single, Y0 As Single, X As Single, Y As Single) As Single
Dim k
If Y - Y0 <> 0 Then
If Y - Y0 > 0 Then k = 1 Else k = 0
GetAngle = 180 * k + 90 + Int(180 * Atn((X - X0) / (Y - Y0)) / (4 * Atn(1)))
End If
End Function

@LordWolf · 23.03.2010, 09:24 **[ТС]**

Ни то ни другое на практике как надо неработает.
При сканировании изображения и переводе координат точки в угловые половина картинки получается нормальной, а вторая половина "шумит".(
Вот проэкт.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Somebody 2838 / 1647 / 254 Регистрация: 03.12.2007 Сообщений: 4,222
	22.03.2010, 17:39
	atan2 Миниатюры 1

@LordWolf 0 / 0 / 1 Регистрация: 22.03.2010 Сообщений: 5
	22.03.2010, 18:03 [ТС]
	Спасибо, опробую 0