Функція Atn
Тригонометрична функція, що повертає арктангенс числового виразу. Обчислене значення знаходиться в діапазоні від -Pi/2 до +Pi/2.
Арктангенс є оберненою функцією до тангенса. Функція Atn повертає кут Alpha у радіанах, використовуючи тангенс цього кута. Ця функція також може повертати кут Alpha, обчислюючи у прямокутному трикутнику відношення довжини протилежного катета до довжини прилеглого катета.
Atn(Протилежна до кута сторона/Прилегла до кута сторона)= Alpha
Синтаксис:
Atn (Число)
Значення, що повертається:
Double
Параметри:
Число: будь-який числовий вираз, що представляє відношення двох сторін прямокутного трикутника. Функція Atn повертає відповідний кут в радіанах (тангенс).
Щоб перетворити радіани в градуси, слід помножити радіани на 180/pi.
градуси=(радіани*180)/pi
радіани=(градуси*пі)/180
Pi - стала з округленим значенням 3,14159.
Приклад:
' У наступному прикладі для прямокутного трикутника обчислюється
' кут Alpha із тангенса кута Alpha:
Sub ExampleAtn
' округлене число Pi = 3,14159 є наперед визначеною сталою
Dim d1 As Double
Dim d2 As Double
d1 = InputBox("Введіть довжину сторони, прилеглої до кута: ","Прилегла")
d2 = InputBox("Введіть довжину сторони, протилежної до кута: ","Протилежна")
Print "Кут Alpha рівний"; (atn (d2/d1) * 180 / Pi); " градусів"
End Sub