IBM Lotus Symphony
|
Тригонометрическая функция, возвращающая арктангенс числового выражения. Возвращаемое значение лежит в пределах от -Pi/2 до +Pi/2.
Арктангенс - это функция, обратная к тангенсу. Функция Atn определяет угол, выраженный в радианах, по его тангенсу. Функция может также определить угол на основе отношения противолежащего катета прямоугольного треугольника к прилежащему.
Atn(противолежащий катет/прилежащий катет) = угол
Atn (Число)
Двойной
Число: числовое выражение, задающее отношение катетов в прямоугольном треугольнике. Функция Atn возвращает соответствующий угол, выраженный в радианах (арктангенс).
Для преобразования радианов в градусы необходимо умножить значение на 180/pi.
1 градус = (1 радиан * 180)/pi
1 радиан = (1 градус * pi)/180
Коды ошибок
REM В следующем примере вычисляется угол прямоугольного треугольника
REM по заданным катетам:
Sub ExampleATN
REM Число Pi, приближенно равное 3,14159, - это предопределенная константа
Dim d1 As Double
Dim d2 As Double
d1 = InputBox$ ("Введите длину прилежащего катета: ","Прилежащий")
d2 = InputBox$ ("Введите длину противолежащего катета: ","Противолежащий")
Print "Угол равен "; (atn (d2/d1) * 180 / Pi); " градусам "
End Sub