Функция Atn
Тригонометрична функция, която връща аркустангенса на стойността на числов израз. Резултатът е между -Pi/2 и +Pi/2.
Аркустангенсът е обратна функция на тангенса. Функцията Atn намира ъгъл в радиани по неговия тангенс. Тя също така може да намери ъгъл по съотношението на срещуположния и прилежащия катет на ъгъла в правоъгълен триъгълник.
Atn(срещулежащ катет / прилежащ катет) = ъгъл
Синтаксис:
Atn (Number)
Връщана стойност:
Double
Параметри:
Number: числов израз, представляващ съотношението между два катета на правоъгълен триъгълник. Функцията Atn връща съответния ъгъл в радиани (аркустангенс).
За да преобразувате от радиани към градуси, умножете радианите по 180/π.
degrees = (radians * 180) / Pi
radians = (degrees * Pi) / 180
Pi (π) е съотношението между периметъра и диаметъра на кръг, приблизително 3,14159.
Пример:
' Изчисление за правоъгълен триъгълник
' Намираме ъгъла по тангенса му:
Sub ExampleAtn
' Pi е дефинирана константа с приблизителна стойност 3,14159
Dim d1 As Double
Dim d2 As Double
d1 = InputBox("Въведете дължината на прилежащия катет: ", "Прилежащ катет")
d2 = InputBox("Въведете дължината на срещулежащия катет: ", "Срещулежащ катет")
Print "Ъгълът е "; (atn(d2 / d1) * 180 / Pi); " градуса"
End Sub