IBM Lotus Symphony
|
A função trigonométrica que retorna o arco tangente de uma expressão numérica. O valor de retorno está no intervalo -Pi/2 a +Pi/2.
O arco tangente é o inverso da função de tangente. A Função Atn retorna o ângulo "Alpha", expresso em radianos, usando a tangente desse ângulo. A função também pode retornar o ângulo "Alpha", comparando a proporção do comprimento do lado oposto ao ângulo com o comprimento do lado adjacente ao ângulo em um triângulo reto.
Atn(lado oposto ao ângulo/lado adjacente ao ângulo)= Alpha
Atn (Number)
Double
Number: Qualquer expressão numérica que represente a proporção de dois lados de um triângulo reto. A função Atn retorna o ângulo correspondente em radianos (arco tangente).
Para converter radianos em graus, multiplique os radianos por 180/pi.
grau=(radiano*180)/pi
radiano=(grau*pi)/180
Pi aqui é a constante do círculo fixo com o valor arredondado de 3,14159.
REM O exemplo a seguir calcula o triângulo reto
REM o ângulo Alpha da tangente do ângulo Alpha:
Sub ExampleATN
REM Pi arredondado = 3,14159 é uma constante predefinida
Dim d1 As Double
Dim d2 As Double
d1 = InputBox$ ("Enter the length of the side adjacent to the angle: ","Adjacent")
d2 = InputBox$ ("Enter the length of the side opposite the angle: ","Opposite")
Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); " degrees"
End Sub