IBM Lotus Symphony


Função Atn [Runtime]

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

Sintaxe:

Atn (Number)

Valor de retorno:

Duplo

Parâmetros:

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.

Códigos de erro

5 Chamada de procedimento não válido

Exemplo:

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais