Atn Function

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

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

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

Syntax:


        Atn (Число)

Return value:

Double

Parameters:

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

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

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

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

Pi is here the fixed circle constant with the rounded value 3.14159. Pi is a Basic mathematical constant.

Error codes:

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

Example:


        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