LibreOffice 24.8 Help
āĻāĻāĻāĻŋ āĻā§āĻ¨ā§āĻ° āĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻž āĻšā§āĨ¤ āĻā§āĻ¨āĻāĻŋ āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§ āĻāĻ˛ā§āĻ˛ā§āĻ āĻāĻ°āĻž āĻšā§āĨ¤
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(Alpha) = side opposite the angle/side adjacent to angle
Tan (Number As Double) As Double
Double
āĻ¸āĻāĻā§āĻ¯āĻž: āĻ¯ā§āĻā§āĻ¨ā§ āĻ¸āĻāĻā§āĻ¯āĻžāĻ¸ā§āĻāĻ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻ¯āĻžāĻ° āĻā§āĻ¨āĻā§āĻ¨ā§āĻ āĻāĻŖāĻ¨āĻž āĻāĻ°āĻ¤ā§ āĻāĻžāĻ¨ (āĻ°ā§āĻĄāĻŋā§āĻžāĻ¨ā§)āĨ¤
To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.
degrees=(radians*180)/Pi
radians=(degrees*Pi)/180
Pi is approximately 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