Tan Function
āĻāĻāĻāĻŋ āĻā§āĻ¨ā§āĻ° āĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻž āĻšā§āĨ¤ āĻā§āĻ¨āĻāĻŋ āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°āĻž āĻšā§āĨ¤
āĻāĻ˛āĻĢāĻž āĻā§āĻ¨ āĻŦā§āĻ¯āĻŦāĻšāĻžāĻ° āĻāĻ°ā§, āĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻĢāĻžāĻāĻļāĻ¨āĻāĻŋ āĻā§āĻ¨ā§āĻ° āĻŦāĻŋāĻĒāĻ°ā§āĻ¤ āĻŦāĻžāĻšā§āĻ° āĻĻā§āĻ°ā§āĻ¯ā§āĻ¯ (āĻ˛āĻŽā§āĻŦ) āĻāĻŦāĻ āĻ¸āĻŽāĻā§āĻ¨ā§ āĻ¤ā§āĻ°āĻŋāĻā§āĻā§āĻ° āĻā§āĻ¨ āĻ¸āĻ¨ā§āĻ¨āĻŋāĻšāĻŋāĻ¤ āĻŦāĻžāĻšā§āĻ° (āĻā§āĻŽāĻŋ) āĻĻā§āĻ°ā§āĻā§āĻ¯ā§āĻ° āĻ āĻ¨ā§āĻĒāĻžāĻ¤ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°ā§ āĻĨāĻžāĻā§āĨ¤
āĻā§āĻ¯āĻžāĻ¨(āĻāĻ˛āĻĢāĻž) = āĻā§āĻ¨ā§āĻ° āĻŦāĻŋāĻĒāĻ°ā§āĻ¤ āĻŦāĻžāĻšā§āĻ° āĻĻā§āĻ°ā§āĻā§āĻ¯/āĻā§āĻ¨ā§āĻ° āĻ¨āĻŋāĻāĻāĻŦāĻ°ā§āĻ¤ā§ āĻŦāĻžāĻšā§āĻ° āĻĻā§āĻ°ā§āĻā§āĻ¯
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸:
Tan (Number)
āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻŽāĻžāĻ¨:
āĻĄāĻžāĻŦāĻ˛
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
āĻ¸āĻāĻā§āĻ¯āĻž: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻžāĻ° āĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻāĻŖāĻ¨āĻž āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨ (āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§)āĨ¤
āĻĄāĻŋāĻā§āĻ°āĻŋ āĻĨā§āĻā§ āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯, pi/180 āĻĻā§āĻŦāĻžāĻ°āĻž āĻā§āĻŖ āĻāĻ°āĻž āĻšāĻŦā§āĨ¤ āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ āĻĨā§āĻā§ āĻĄāĻŋāĻā§āĻ°āĻŋāĻ¤ā§ āĻ°ā§āĻĒāĻžāĻ¨ā§āĻ¤āĻ° āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯, 180/pi āĻĻā§āĻŦāĻžāĻ°āĻž āĻā§āĻŖ āĻāĻ°āĻž āĻšāĻŦā§āĨ¤
degrees=(radiant*180)/Pi
radiant=(degrees*Pi)/180
āĻĒāĻžāĻ āĻāĻ° āĻŽāĻžāĻ¨ āĻšāĻ˛ā§ āĻĒā§āĻ°āĻžāĻ¯āĻŧ 3.141593āĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
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