Contido

# Tan Function

Determines the tangent of an angle. The angle is specified in radians.

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

### Sintaxe:

    Tan (Number As Double) As Double

### Return type:

Double

### Parámetros:

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=(radians*180)/Pi

radians=(degrees*Pi)/180

Pi is approximately 3.141593.

### Códigos de erro

5 Chamada de procedemento incorrecta

### Exemplo:

    ' Neste exemplo, a entrada seguinte é posíbel nun triángulo recto:
    REM O ángulo (en graos) e o seu lado oposto para calcular a lonxitude do lado adxacente ao ángulo:
    Sub ExampleTangens
    REM Pi = 3,1415926 é unha variábel predefinida
    Dim d1 As Double
    Dim dAlpha As Double
        d1 = InputBox("Introduza a lonxitude do lado oposto ao ángulo: ","opposite")
        dAlpha = InputBox("Introduza o ángulo Alfa (en graos): ","Alpha")
        Print "a lonxitude do lado adxacente ao ángulo é"; (d1 / tan (dAlpha * Pi / 180))
    End Sub

Temas relacionados

Atn Function

Cos Function

Sin Function

Precisamos da súa axuda!