/text/sbasic/shared/03080104.xhp Sun Microsystems, Inc. converted from old format - fpe

Tan function Tan Function [Runtime] Determines the tangent of an angle. The angle is specified in radians.i71396

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 Syntax: Tan (Number) Return value: Double Parameters: Number: Any numeric expression that you want to calculate the tangent for (in radians). To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi. degrees=(radiant*180)/Pi radiant=(degrees*Pi)/180 Pi is approximately 3.141593. Example: ' In this example, the following entry is possible for a right-angled triangle: ' The side opposite the angle and the angle (in degrees) to calculate the length of the side adjacent to the angle: Sub ExampleTangens ' Pi = 3.1415926 is a pre-defined variable Dim d1 As Double Dim dAlpha As Double d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite") dAlpha = 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