Tan Function

āļšāˇāļĢāļēāļš āļ§āˇāļ‚āļĸāļąāļē āļ­āˇ“āļģāļĢāļē āļšāļģāļē⎒. āļšāˇāļĢāļē āļģ⎚āļŠāˇ’āļēāļąāˇŠ ⎀āļŊ⎒āļąāˇŠ āˇ€āˇ’āˇāˇšāˇ‚āļĢāļē āļšāļģ āļ‡āļ­.

Using the angle Alpha, the Tan Function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.

Tan(āļ‡āļŊāˇŠāˇ†āˇ) = āļšāˇāļĢāļēāļ§ āˇ€āˇ’āļģ⎔āļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­/āļšāˇāļĢāļēāļ§ āļļāļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­

āļšāˇāļģāļš āļģ⎓āļ­āˇ’āļē:


Tan (āļ…āļ‚āļšāļē)

āļ†āļ´āˇƒāˇ” āļŊāļļāˇāļ¯āˇ™āļą āļ…āļœāļē:

Double

āļ´āļģāˇāļ¸āˇ’āļ­āˇ“āļąāˇŠ:

āļ…āļ‚āļšāļē: āļ§āˇāļ‚āļĸāļąāļē (āļģ⎚āļŠāˇ’āļēāļąāˇŠ ⎀āļŊ⎒āļąāˇŠ) āļœāļĢāļąāļē āļšāˇ’āļģ⎓āļ¸āļ§ āļ”āļļāļ§ āļ…āˇ€āˇāˇŠâ€āļē āļ•āļąāˇ‘āļ¸ āˇƒāļ‚āļ›āˇŠâ€āļēāˇāļ­āˇŠāļ¸āļš āļ´āˇŠâ€āļģāļšāˇāˇāļąāļēāļšāˇŠ.

āļ…āļ‚⎁āļš āļģ⎚āļŠāˇ’āļēāļą āˇ€āļŊāļ§ āļ´āļģ⎒⎀āļģ⎊āļ­āļąāļē āļšāˇ’āļģ⎓āļ¸āļ§ Pi/180āļœāˇ™āļąāˇŠ āļœāˇ”āļĢ āļšāļģāļąāˇŠāļą. āļģ⎚āļŠāˇ’āļēāļą āļ…āļ‚⎁āļš āˇ€āļŊāļ§ āļ´āļģ⎒⎀āļģ⎊āļ­āļąāļē āļšāˇ’āļģ⎓āļ¸āļ§ 180/Piāļœāˇ™āļąāˇŠ āļœāˇ”āļĢ āļšāļģāļąāˇŠāļą.

āļ…āļ‚⎁āļš=(āļģ⎚āļŠāˇ’āļēāļą*180)/Pi

āļģ⎚āļŠāˇ’āļēāļą=(āļ…āļ‚⎁āļš*Pi)/180

Pi āļ†āˇƒāļąāˇŠāļą āˇ€āˇāļē⎙āļąāˇŠ 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("āļšāˇāļĢāļēāļ§ āˇ€āˇ’āļģ⎔āļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­āˇš āļ¯āˇ’āļœ āļ‡āļ­āˇ”āļŊ⎊ āļšāļģāļąāˇŠāļą: ","⎀⎒āļģ⎔āļ¯āˇŠāļ°")
    dAlpha = InputBox("āļ‡āļŊāˇŠāˇ†āˇ āļšāˇāļĢāļē āļ‡āļ­āˇ”āļŊ⎊ āļšāļģāļąāˇŠāļą (āļ…āļ‚⎁āļš āˇ€āļŊ⎒āļąāˇŠ): ","āļ‡āļŊāˇŠāˇ†āˇ")
    Print "āļšāˇāļĢāļēāļ§ āļļāļ¯āˇŠāļ° āļ´āˇāļ­āˇŠāļ­āˇš āļ¯āˇ’āļœ"; (d1 / tan (dAlpha * Pi / 180))
End Sub