Atn Function
āĻ¤ā§āĻ°āĻŋāĻā§āĻ¨āĻŽāĻŋāĻ¤āĻŋāĻ āĻĢāĻžāĻāĻļāĻ¨ āĻ¯āĻž āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ā§āĻ° āĻāĻ°ā§āĻāĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨āĻāĻŋ -Pi/2 āĻĨā§āĻā§ +Pi/2 āĻŽāĻžāĻ¨ā§āĻ° āĻŽāĻ§ā§āĻ¯ā§ āĻāĻāĻāĻŋ āĻŽāĻžāĻ¨āĨ¤
āĻāĻ°ā§āĻāĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻšāĻ˛ā§ āĻā§āĻ¨āĻā§āĻ¨ā§āĻā§āĻ° āĻŦāĻŋāĻĒāĻ°ā§āĻ¤ āĻĢāĻžāĻāĻļāĻ¨āĨ¤ Atn āĻĢāĻžāĻāĻļāĻ¨ā§āĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§ "Alpha" āĻā§āĻ¨āĻāĻŋ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§, āĻ¯āĻž āĻā§āĻ¨āĻāĻŋāĻ° āĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§ āĻĒā§āĻ°āĻāĻžāĻļ āĻāĻ°āĻž āĻšā§āĨ¤ āĻā§āĻ¨ā§āĻ° āĻŦāĻŋāĻĒāĻ°ā§āĻ¤ āĻŦāĻžāĻšā§āĻ° āĻĻā§āĻ°ā§āĻā§āĻ¯ āĻāĻŦāĻ āĻ¸āĻŽāĻā§āĻ¨ā§ āĻ¤ā§āĻ°āĻŋāĻā§āĻā§āĻ° āĻā§āĻ¨ā§āĻ° āĻāĻžāĻā§āĻ° āĻŦāĻžāĻšā§āĻ° āĻ āĻ¨ā§āĻĒāĻžāĻ¤ āĻ¤ā§āĻ˛āĻ¨āĻž āĻāĻ°āĻžāĻ° āĻŽāĻžāĻ§ā§āĻ¯āĻŽā§ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ "Alpha" āĻā§āĻ¨āĻāĻŋāĻ āĻĢāĻ˛āĻžāĻĢāĻ˛ āĻšāĻŋāĻ¸ā§āĻŦā§ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°āĻ¤ā§ āĻĒāĻžāĻ°ā§āĨ¤
Atn(āĻā§āĻ¨ā§āĻ° āĻŦāĻŋāĻĒāĻ°ā§āĻ¤ āĻŦāĻžāĻšā§/āĻā§āĻ¨ā§āĻ° āĻ¨āĻŋāĻāĻāĻŦāĻ°ā§āĻ¤ā§ āĻŦāĻžāĻšā§)= āĻāĻ˛āĻĢāĻž
Atn (Number)
āĻĄāĻžāĻŦāĻ˛
āĻ¸āĻāĻā§āĻ¯āĻž: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻž āĻāĻāĻāĻŋ āĻ¸āĻ āĻŋāĻ āĻ¤ā§āĻ°āĻŋāĻā§āĻā§āĻ° āĻĻā§āĻ āĻŦāĻžāĻšā§āĻ° āĻ āĻ¨ā§āĻĒāĻžāĻ¤ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤ Atn āĻĢāĻžāĻāĻļāĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§ āĻ¸āĻāĻļā§āĻ˛āĻŋāĻˇā§āĻ āĻā§āĻ¨ā§āĻ° āĻŽāĻžāĻ¨ āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§ (āĻāĻ°ā§āĻāĻā§āĻ¨āĻā§āĻ¨ā§āĻ)āĨ¤
āĻ°ā§āĻĄāĻŋāĻ¯āĻŧāĻžāĻ¨āĻā§ āĻĄāĻŋāĻā§āĻ°ā§āĻ¤ā§ āĻĒāĻ°āĻŋāĻŦāĻ°ā§āĻ¤āĻ¨ āĻāĻ°āĻ¤ā§ āĻāĻžāĻāĻ˛ā§, āĻ°ā§āĻĄāĻŋāĻ¯āĻŧāĻžāĻ¨āĻā§ ā§§ā§Žā§Ļ/āĻĒāĻžāĻ āĻĻāĻŋāĻ¯āĻŧā§ āĻā§āĻŖ āĻāĻ°āĻ¤ā§ āĻšāĻŦā§āĨ¤
degree=(radian*180)/pi
radian=(degree*pi)/180
Pi is here the fixed circle constant with the rounded value 3.14159. Pi is a Basic mathematical constant.
REM āĻ¨āĻŋāĻā§āĻ° āĻāĻĻāĻžāĻšāĻ°āĻŖāĻāĻŋ āĻ¸āĻŽāĻā§āĻ¨ā§ āĻ¤ā§āĻ°āĻŋāĻā§āĻ āĻāĻŖāĻ¨āĻž āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯
REM āĻāĻ˛āĻĢāĻž āĻā§āĻ¨ā§āĻ° āĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻĨā§āĻā§ āĻāĻ˛āĻĢāĻž āĻā§āĻ¨:
Sub ExampleAtn
REM rounded 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