IBM Lotus Symphony


Función Atn [Ejecución]

Función trigonométrica que devuelve la arcotangente de una expresión numérica. El valor de retorno está en el rango 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, usando la tangente del mismo. La función también puede devolver el ángulo "Alfa" comparando el coeficiente de la longitud del lado que está opuesto al ángulo con la longitud del lado que está adyacente al ángulo en un triángulo rectángulo.

Atn(lado opuesto al ángulo/lado adyacente al ángulo)= Alfa

Sintaxis:

Atn (Número)

Valor de retorno:

Doble

Parámetros:

Número: Cualquier expresión numérica que represente la proporción entre dos lados de un triángulo rectángulo. La función Atn devuelve el ángulo correspondiente en radianes (arcotangente)

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

grado=(radián*180)/pi

radián=(grado*pi)/180

Pi es aquí la constante fija de la circunferencia, con el valor redondeado de 3,14159.

Códigos de error

5 Inicio del proceso no válido

Ejemplo:

REM El ejemplo siguiente calcula para un triángulo rectángulo

REM el ángulo Alfa desde la tangente del ángulo Alfa:

Sub EjemploATN

REM redondeado Pi = 3,14159 es una constante predefinida

Dim d1 As Double

Dim d2 As Double

d1 = InputBox$ ("Especifique la longitud del lado adyacente al ángulo: ","adyacente")

d2 = InputBox$ ("Especifique la longitud del lado opuesto al ángulo: ","opuesto")

Print "El ángulo Alfa es"; (atn (d2/d1) * 180 / Pi); "grados"

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas