Atn Function

āĻ¤ā§āϰāĻŋāϕ⧋āύāĻŽāĻŋāϤāĻŋāĻ• āĻĢāĻžāĻ‚āĻļāύ āϝāĻž āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ⧇āϰ āφāĻ°ā§āĻ•āĻŸā§‡āύāĻœā§‡āĻ¨ā§āϟ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύāϟāĻŋ -Pi/2 āĻĨ⧇āϕ⧇ +Pi/2 āĻŽāĻžāύ⧇āϰ āĻŽāĻ§ā§āϝ⧇ āĻāĻ•āϟāĻŋ āĻŽāĻžāύāĨ¤

āφāĻ°ā§āĻ•āĻŸā§‡āύāĻœā§‡āĻ¨ā§āϟ āĻšāϞ⧋ āĻŸā§‡āύāĻœā§‡āĻ¨ā§āĻŸā§‡āϰ āĻŦāĻŋāĻĒāϰ⧀āϤ āĻĢāĻžāĻ‚āĻļāύāĨ¤ Atn āĻĢāĻžāĻ‚āĻļāύ⧇āϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ "Alpha" āϕ⧋āύāϟāĻŋ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇, āϝāĻž āϕ⧋āύāϟāĻŋāϰ āĻŸā§‡āύāĻœā§‡āĻ¨ā§āϟ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇ āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇ āĻĒā§āϰāĻ•āĻžāĻļ āĻ•āϰāĻž āĻšā§ŸāĨ¤ āϕ⧋āύ⧇āϰ āĻŦāĻŋāĻĒāϰ⧀āϤ āĻŦāĻžāĻšā§āϰ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ āĻāĻŦāĻ‚ āϏāĻŽāϕ⧋āύ⧀ āĻ¤ā§āϰāĻŋāϭ⧁āĻœā§‡āϰ āϕ⧋āύ⧇āϰ āĻ•āĻžāϛ⧇āϰ āĻŦāĻžāĻšā§āϰ āĻ…āύ⧁āĻĒāĻžāϤ āϤ⧁āϞāύāĻž āĻ•āϰāĻžāϰ āĻŽāĻžāĻ§ā§āϝāĻŽā§‡ āĻĢāĻžāĻ‚āĻļāύāϟāĻŋ "Alpha" āϕ⧋āύāϟāĻŋāĻ“ āĻĢāϞāĻžāĻĢāϞ āĻšāĻŋāϏ⧇āĻŦ⧇ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰāϤ⧇ āĻĒāĻžāϰ⧇āĨ¤

Atn(āϕ⧋āύ⧇āϰ āĻŦāĻŋāĻĒāϰ⧀āϤ āĻŦāĻžāĻšā§/āϕ⧋āύ⧇āϰ āύāĻŋāĻ•āϟāĻŦāĻ°ā§āϤ⧀ āĻŦāĻžāĻšā§)= āφāϞāĻĢāĻž

āϏāĻŋāύāĻŸā§āϝāĻžāĻ•ā§āϏ:

Atn (Number)

āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:

āĻĄāĻžāĻŦāϞ

āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāϟāĻžāϰ:

āϏāĻ‚āĻ–ā§āϝāĻž: āϝ⧇āϕ⧋āύ⧋ āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻž āĻāĻ•āϟāĻŋ āϏāĻ āĻŋāĻ• āĻ¤ā§āϰāĻŋāϭ⧁āĻœā§‡āϰ āĻĻ⧁āχ āĻŦāĻžāĻšā§āϰ āĻ…āύ⧁āĻĒāĻžāϤ āωāĻ˛ā§āϞ⧇āĻ– āĻ•āϰ⧇ āĻĨāĻžāϕ⧇āĨ¤ Atn āĻĢāĻžāĻ‚āĻļāύ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻ•āϰ⧇ āϏāĻ‚āĻļā§āϞāĻŋāĻˇā§āϟ āϕ⧋āύ⧇āϰ āĻŽāĻžāύ āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇ āĻĒā§āϰāĻĻāĻžāύ āĻ•āϰ⧇ āĻĨāĻžāϕ⧇ (āφāĻ°ā§āĻ•āĻŸā§‡āύāĻœā§‡āĻ¨ā§āϟ)āĨ¤

āϰ⧇āĻĄāĻŋāϝāĻŧāĻžāύāϕ⧇ āĻĄāĻŋāĻ—ā§āϰ⧀āϤ⧇ āĻĒāϰāĻŋāĻŦāĻ°ā§āϤāύ āĻ•āϰāϤ⧇ āϚāĻžāχāϞ⧇, āϰ⧇āĻĄāĻŋāϝāĻŧāĻžāύāϕ⧇ ā§§ā§Žā§Ļ/āĻĒāĻžāχ āĻĻāĻŋāϝāĻŧ⧇ āϗ⧁āĻŖ āĻ•āϰāϤ⧇ āĻšāĻŦ⧇āĨ¤

degree=(radian*180)/pi

radian=(degree*pi)/180

3.14159 āĻĒā§‚āĻ°ā§āĻŖ āϏāĻ‚āĻ–ā§āϝāĻž āĻŽāĻžāύ āϏāĻš āύāĻŋāĻ°ā§āĻĻāĻŋāĻˇā§āϟ āĻŦ⧃āĻ¤ā§āϤāĻžāĻ•āĻžāϰ āĻ§ā§āϰ⧁āĻŦāĻ• āĻšāϞ⧋ āĻĒāĻžāχāĨ¤

Error codes:

5 Invalid procedure call

āωāĻĻāĻžāĻšāϰāĻŖ:

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