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 āˇāˇ.
āļāļ¯āˇāˇāļģāļĢāļē:
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