Conteúdo

# <variável id="Atn_h1">Função Atn</variável>

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.

A arcotangente é a inversa da função tangente. A função Atn devolve o ângulo «Alpha», expresso em radianos, utilizando a tangente desse ângulo. A função também pode devolver o ângulo «Alpha» comparando a razão entre o comprimento do lado oposto ao ângulo e o comprimento do lado adjacente ao ângulo num triângulo retângulo.

Atn(lado oposto ao ângulo/lado adjacente ao ângulo) = Alfa

### Sintaxe:

            Atn (Número como Double) como Double

### Tipo de retorno:

Double

### Parâmetros:

Número: Qualquer expressão numérica que represente a razão entre dois lados de um triângulo retângulo. A função Atn devolve o ângulo correspondente em radianos (arcotangente).

Para converter radianos em graus, multiplique os radianos por 180/pi.

grau=(radiano*180)/pi

radiano=(grau*pi)/180

Pi é, neste contexto, a constante circular, cujo valor arredondado é 3,14159. Pi é uma constante matemática básica.

### Códigos de erro

5 Chamada de procedimento inválido

### Exemplo:

            ' O seguinte exemplo calcula um triângulo de ângulos retos
            ' o ângulo Alfa da tangente de um ângulo Alfa:
            Sub ExampleAtn
            ' Pi arredondado = 3,14159 é uma constante pré-definida
            Dim d1 As Double
            Dim d2 As Double
                d1 = InputBox("Introduza o comprimento do lado adjacente ao ângulo: ","Adjacente")
                d2 = InputBox("Introduza o comprimento do lado oposto ao ângulo: ","Oposto")
                Print "O ângulo Alfa é"; (atn (d2/d1) * 180 / Pi); " graus"
            End Sub

Tópicos relacionados

Função cosseno

Função seno

Função Tan

Necessitamos da sua ajuda!