Нахождение угла в прямоугольном треугольнике

@Веди · Регистрация: 04.07.2012

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

привет друзья!
если известны катет b=5 и гипотенуза с=10 то
а=b/c = 0.5 - это sin(30)
как найти сам угол в градусах т.е.
что бы а=30
чёт не соображу обратную функцию

@Казанский · 11.04.2019, 20:48

Веди, из справки VBA - Derived Math Functions

Arcsin(X) = Atn(X / Sqr(-X * X + 1))

Угол в радианах, разумеется.

@Веди · 11.04.2019, 20:57 **[ТС]**

Казанский, это я знаю
я имею в виду код на vb6.0
Asin не работает и что делать как вычислить?

@Казанский · 11.04.2019, 21:09

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

Code
1
2
x=.5:?Atn(X / Sqr(-X * X + 1))*180/3.1416
 29,9999298471141

@Веди · 15.04.2019, 03:44 **[ТС]**

Казанский, решает нормально но
не для всех углов. если гипотенуза лежит на оси
то получается деление на 0 а мне нужны все решения
и получается мне нужна функция asin а её нет в vb6

@Казанский · 15.04.2019, 08:57

Сообщение от Веди

если гипотенуза лежит на оси
то получается деление на 0

Значит, неправильно составлена программа. Не путайте длины сторон треугольника и координаты его вершин.
Эту формулу, разумеется, нельзя использовать при х=1 или х=-1. Но и в треугольнике отношение катета и гипотенузы не может быть равно 1. Перед вычислением угла программа должна проверить, что заданный треугольник невырожденный, т.е. что длины всех трех сторон не равны 0.

@Веди · 15.04.2019, 09:21 **[ТС]**

Казанский, "программа должна проверить"
просто я думал обойтись без проверок видно не судьба

@Catstail · 15.04.2019, 09:56

Сообщение от Веди

просто я думал обойтись без проверок

- очень позитивный настрой для программиста

@Веди · 15.04.2019, 18:52 **[ТС]**

Catstail, мозг сломал но не придумал
пришлось делать свою atan

Visual Basic
1
2
3
4
5
6
7
Function aTan(x As Long, y As Long) As Double
  If x > 0 And y <= 0 Then aTan = -Atn(y / x) * 180 / PI
  If x > 0 And y > 0 Then aTan = 360 - Atn(y / x) * 180 / PI
  If x < 0 Then aTan = 180 - Atn(y / x) * 180 / PI
  If x = 0 And y < 0 Then aTan = 90
  If x = 0 And y > 0 Then aTan = 270
End Function

вроде всё фунтициклирует правильно
но всё же думаю можно проще сделать
как пёс всё понимаю а сказать не могу

@Казанский · 15.04.2019, 20:48

Веди, да, примерно так и делают: https://stackoverflow.com/ques... 2-function
еще https://www.google.com/search?q=atan2+vb6

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523

	Нахождение угла в прямоугольном треугольнике 11.04.2019, 20:17. Показов 2311. Ответов 9 Метки math, vb 6.0, Операторы (Все метки) привет друзья! если известны катет b=5 и гипотенуза с=10 то а=b/c = 0.5 - это sin(30) как найти сам угол в градусах т.е. что бы а=30 чёт не соображу обратную функцию 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	11.04.2019, 20:57 [ТС]
	Казанский, это я знаю я имею в виду код на vb6.0 Asin не работает и что делать как вычислить? 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	15.04.2019, 03:44 [ТС]
	Казанский, решает нормально но не для всех углов. если гипотенуза лежит на оси то получается деление на 0 а мне нужны все решения и получается мне нужна функция asin а её нет в vb6 0

@Веди 18 / 13 / 1 Регистрация: 04.07.2012 Сообщений: 523
	15.04.2019, 09:21 [ТС]
	Казанский, "программа должна проверить" просто я думал обойтись без проверок видно не судьба 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	15.04.2019, 20:48
	Веди, да, примерно так и делают: https://stackoverflow.com/ques... 2-function еще https://www.google.com/search?q=atan2+vb6 0

Нахождение угла в прямоугольном треугольнике

Решение