IBM Lotus Symphony
|
Função trigonométrica que devolve o arco tangente de uma expressão numérica. O valor de retorno está no intervalo entre -Pi/2 e +Pi/2.
O arco tangente é o inverso da função tangente. A função Atn devolve o ângulo "Alpha", expresso em radianos, utilizando a tangente deste ângulo. A função pode também devolver o ângulo "Alpha" comparando o comprimento do lado oposto ao ângulo com o comprimento do lado adjacente ao ângulo num triângulo de ângulo recto.
Atn(lado oposto ao ângulo/lado adjacente ao ângulo)= Alpha
Atn (Number)
Duplo
Number: Qualquer expressão numérica que represente a proporção de dois lados de um triângulo recto. A função Atn devolve 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 circular fixa com o valor arredondado de 3,14159.
REM O seguinte exemplo calcula um triângulo de ângulo recto
REM o ângulo Alpha da tangente do ângulo Alpha:
Sub ExampleATN
REM Pi arredondado= 3.14159 é uma constante pré-definida
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