Función Atn

Función trigonométrica que devuelve el arcotangente de una expresión numérica. El valor de retorno está en el intervalo de −Pi/2 a +Pi/2.

La arcotangente es la función inversa de la tangente. La función Atn devuelve el ángulo «Alfa», expresado en radianes, utilizando la tangente de este ángulo. La función también puede devolver el ángulo «Alfa» comparando la relación entre la longitud del lado opuesto al ángulo y la longitud del lado adyacente al ángulo en un triángulo rectángulo.

Atn(side opposite the angle/side adjacent to angle)= Alpha

        Atn (Number As Double) As Double
    

Double

Number: Any numerical expression that represents the ratio of two sides of a right triangle. The Atn function returns the corresponding angle in radians (arctangent).

Para convertir radianes a grados, multiplique los radianes por 180/pi.

grado=(radián*180)/pi

radián=(grado*pi)/180

Pi is here the fixed circle constant with the rounded value 3.14159. Pi is a Basic mathematical constant.

        ' El ejemplo siguiente calcula para un triángulo rectángulo
        ' el ángulo Alfa desde la tangente del ángulo Alfa:
        Sub ExampleAtn
        ' Pi redondeado = 3,14159 es una constante predefinida
        Dim d1 As Double
        Dim d2 As Double
            d1 = InputBox("Escriba la longitud del lado adyacente al ángulo: ","Adyacente")
            d2 = InputBox("Escriba la longitud del lado opuesto al ángulo: ","Opuesto")
            Print "El ángulo Alfa es"; (atn (d2/d1) * 180 / Pi); " grados"
        End Sub