IBM Lotus Symphony
|
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
Atn (Número)
Doble
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.
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