Atn Function

Тригонометрическая функция, возвращающая арктангенс числового выражения. Возвращаемое значение находится в диапазоне от -Pi/2 до Pi/2.

Арктангенс является обратной функцией для тангенса. Функция Atn возвращает угол "альфа", выраженный в радианах, используя тангенс этого угла. Эта функция также может возвращать угол Alpha, сравнивая в прямоугольном треугольнике отношение длины стороны, противолежащей углу, с длиной стороны, прилежащей к углу.

Atn(Противолежащая_углу_сторона/Прилежащая_к_углу_сторона)= Alpha

Синтаксис

Atn (Число)

Возвращаемое значение:

Double

Параметры:

Число. Любое числовое выражение, представляющее отношение двух сторон прямоугольного треугольника. Функция Atn возвращает соответствующий угол в радианах (арктангенс).

Чтобы преобразовать радианы в градусы, следует умножить радианы на 180/pi.

Градусы=(Радианы*180)/pi

Радианы=(Градусы*пи)/180

Здесь Pi — константа с округленным значением 3,14159.

Error codes:

5 Неправильный вызов процедуры

Пример:

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