Ayuda de LibreOffice 7.1
Función trigonométrica que devuelve l'arcutanxente d'una espresión numbérica. El valor de torna ta nel rangu de -Pi/2 a +Pi/2.
L'arcutanxente ye la función inversa de la tanxente. La función Atn devuelve l'ángulu "Alfa", espresáu en radianes, usando la tanxente del mesmu. La función tamién pue devolver l'ángulu "Alfa" comparando'l coeficiente del llargor del llau que ta opuestu al ángulu col llargor del llau que ta axacente al ángulu nun triángulu rectángulu.
Atn(llau opuestu al ángulu/llau axacente al ángulu)= Alfa
Atn (Númberu)
Doble
Númberu: Cualquier espresión numbérica que represente la proporción ente dos llaos d'un triángulu rectángulu. La función Atn devuelve l'ángulu correspondiente en radianes (arcutanxente)
Pa convertir radianes a graos, multiplique los radianes por 180/pi.
grau=(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.
' L'exemplu siguiente calcula pa un triángulu rectángulu
' l'ángulu Alfa dende la tanxente del ángulu Alfa:
Sub ExampleAtn
' arredondiáu Pi = 3,14159 ye una constante predefinida
Dim d1 As Double
Dim d2 As Double
d1 = InputBox("Introduza'l llargor del llau axacente al ángulu: ","Axacente")
d2 = InputBox("Introduza'l llargor del llau opuestu al ángulu: ","Opuestu")
Print "L'ángulu Alfa ye"; (atn (d2/d1) * 180 / Pi); " graos"
End Sub