Atn Function
Тригонометрическая функция, возвращающая арктангенс числового выражения. Возвращаемое значение находится в диапазоне от -Pi/2 до Pi/2.
Арктангенс является обратной функцией для тангенса. Функция Atn возвращает угол "альфа", выраженный в радианах, используя тангенс этого угла. Эта функция также может возвращать угол Alpha, сравнивая в прямоугольном треугольнике отношение длины стороны, противолежащей углу, с длиной стороны, прилежащей к углу.
Atn(Противолежащая_углу_сторона/Прилежащая_к_углу_сторона)= Alpha
Синтаксис
Atn (Число)
Возвращаемое значение:
Double
Параметры:
Число. Любое числовое выражение, представляющее отношение двух сторон прямоугольного треугольника. Функция Atn возвращает соответствующий угол в радианах (арктангенс).
Чтобы преобразовать радианы в градусы, следует умножить радианы на 180/pi.
Градусы=(Радианы*180)/pi
Радианы=(Градусы*пи)/180
Здесь Pi — константа с округленным значением 3,14159.
Пример:
REM В следующем примере для прямоугольного треугольника вычисляется
REM угол Alpha из тангенса угла Alpha.
Sub ExampleAtn
REM округленное число Pi = 3,14159 является предопределенной константой
Dim d1 As Double
Dim d2 As Double
d1 = InputBox("Введите длину стороны, прилежащей к углу: ","Прилежащая")
d2 = InputBox("Введите длину стороны, противолежащей углу: ","Противолежащая")
Print "Угол Alpha равен"; (atn (d2/d1) * 180 / Pi); " градусов"
End Sub