Module
Contents
Index 🔎︎

# 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