Atn Function
α’αα»ααααβααααΈαααβααΆαααβαααβαααα‘ααβα’ααααβααααααβααβααααααβαααΒ α αααααβαααα‘ααβαααα·αβαα βα αααααβααΈ -Pi/2 αα +Pi/2Β α
α’ααααβααααααβααΊβααΆβα’αα»ααααβα αααΆαβααβα’αα»ααααβααααααΒ α α’αα»αααα Atn αααα‘ααβαα»α "α’αΆααα αααΆ" αααβαα·αβααΆβαααΆααααα αααβααααΎβααααααβααβαα»αβαααΒ α α’αα»ααααβααβα’αΆα βαααα‘ααβαα»α "α’αΆααα αααΆ" αααβααααααααβαααΆααΆαααβααβααααααβαααα»αβαα αα·αβααααααβαααα»αβααΆααβαααα»αβααααΈαααβαααΒ α
Atn(αααα»αβαα/αααα»αβααΆαα)= Alpha
ααΆαααβααααααα α
Atn (Number)
αααααβαααα‘αα α
αααα
αααΆαααΆαααααα α
α ααα½αβ α ααααααβαααβααΆβαα½αβαααβααααΆαβα²ααβαααΆααΆαααβααβαααα»αβααΈαβααβααααΈαααβαααΒ α α’αα»αααα Atn αααα‘ααβαα»αβααααΌαβααααΆβαα·αβααΆβαααΆααααα (α’ααααβαααααα)Β α
ααΎααααΈβααααααβαααΆαααααβααΆβααΊαααα αα»αβαααΆαααααβααΉα 180/piΒ α
degree=(radian*180)/pi
radian=(degree*pi)/180
Pi αα βααΈβαααβααΊβααΆβαααβααααααβααα αααβααΆαβαααααββαααααα 3.14159Β α
α§ααΆα ααα α
REM The following example calculates for a right-angled triangle
REM the angle Alpha from the tangent of the angle Alpha:
Sub ExampleAtn
REM rounded Pi = 3.14159 is a predefined constant
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