# Atn Function

The arctangent is the inverse of the tangent function. The Atn Function returns the angle "Alpha", expressed in radians, using the tangent of this angle. The function can also return the angle "Alpha" by comparing the ratio of the length of the side that is opposite of the angle to the length of the side that is adjacent to the angle in a right-angled triangle.

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).

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

5 无效的过程调用

### 示例:

``````
' 以下示例用于直角三角形的计算
' 利用 Alpha 角的正切值来计算 Alpha 角:
Sub ExampleAtn
' 舍入后的 Pi = 3.14159，是预定义的常数
Dim d1 As Double
Dim d2 As Double
d1 = InputBox("Enter the length of the side adjacent to the angle:","Adjacent")
d2 = InputBox("Enter the length of the side opposite the angle:","Opposite")
Print "The Alpha angle is"; (atn (d2/d1) * 180 / Pi); " degrees"
End Sub
``````