Tan Function

āĻāĻ•āϟāĻŋ āϕ⧋āύ⧇āϰ āĻŸā§‡āύāĻœā§‡āĻ¨ā§āϟ āύāĻŋāĻ°ā§āϧāĻžāϰāĻŖ āĻ•āϰāĻž āĻšā§ŸāĨ¤ āϕ⧋āύāϟāĻŋ āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇ āωāĻ˛ā§āϞ⧇āĻ– āĻ•āϰāĻž āĻšā§ŸāĨ¤

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

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

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


Tan (Number)

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

āĻĄāĻžāĻŦāϞ

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

āϏāĻ‚āĻ–ā§āϝāĻž: āϝ⧇āϕ⧋āύ⧋ āϏāĻ‚āĻ–ā§āϝāĻžāϏ⧂āϚāĻ• āĻāĻ•ā§āϏāĻĒā§āϰ⧇āĻļāύ āϝāĻžāϰ āĻŸā§‡āύāĻœā§‡āĻ¨ā§āϟ āĻ—āĻŖāύāĻž āĻ•āϰāϤ⧇ āϚāĻžāύ (āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇)āĨ¤

āĻĄāĻŋāĻ—ā§āϰāĻŋ āĻĨ⧇āϕ⧇ āϰ⧇āĻĄāĻŋ⧟āĻžāύ⧇ āϰ⧂āĻĒāĻžāĻ¨ā§āϤāϰ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ, pi/180 āĻĻā§āĻŦāĻžāϰāĻž āϗ⧁āĻŖ āĻ•āϰāĻž āĻšāĻŦ⧇āĨ¤ āϰ⧇āĻĄāĻŋ⧟āĻžāύ āĻĨ⧇āϕ⧇ āĻĄāĻŋāĻ—ā§āϰāĻŋāϤ⧇ āϰ⧂āĻĒāĻžāĻ¨ā§āϤāϰ āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ, 180/pi āĻĻā§āĻŦāĻžāϰāĻž āϗ⧁āĻŖ āĻ•āϰāĻž āĻšāĻŦ⧇āĨ¤

degrees=(radiant*180)/Pi

radiant=(degrees*Pi)/180

āĻĒāĻžāχ āĻāϰ āĻŽāĻžāύ āĻšāϞ⧋ āĻĒā§āϰāĻžāϝāĻŧ 3.141593āĨ¤

Error codes:

5 Invalid procedure call

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


REM āĻāχ āωāĻĻāĻžāĻšāϰāϪ⧇, āύāĻŋāĻšā§‡āϰ āĻāĻ¨ā§āĻŸā§āϰāĻŋāϟāĻŋ āϏāĻŽāϕ⧋āύ⧀ āĻ¤ā§āϰāĻŋāϭ⧁āĻœā§‡āϰ āϜāĻ¨ā§āϝ āϏāĻŽā§āĻ­āĻžāĻŦā§āϝ:
REM āϕ⧋āύ⧇āϰ āĻŦāĻŋāĻĒāϰ⧀āϤ āĻŦāĻžāĻšā§ āĻāĻŦāĻ‚ āϕ⧋āύ āϏāĻ‚āĻļā§āϞāĻŋāĻˇā§āϟ āĻŦāĻžāĻšā§āϰ āĻĻ⧈āĻ°ā§āĻ˜ā§āϝ āĻ—āĻŖāύāĻž āĻ•āϰāĻžāϰ āϜāĻ¨ā§āϝ āϕ⧋āύ (āĻĄāĻŋāĻ—ā§āϰāĻŋāϤ⧇):
Sub ExampleTangens
REM Pi = 3.1415926 āĻĒā§‚āĻ°ā§āĻŦāĻŋāύāĻŋāĻ°ā§āϧāĻžāϰāĻŋāϤ āϭ⧇āϰāĻŋā§Ÿā§‡āĻŦāϞ
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Enter the length of the side opposite the angle: ","opposite")
    ddAlpha = InputBox("Enter the Alpha angle (in degrees): ","Alpha")
    Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))
End Sub