Module
Contents
Index 🔎︎

# Tan Function

Calcula la tanxente d'un ángulu. L'ángulu devolver en radianes.

Usando l'ángulu Alfa, la función Tan calcula'l coeficiente del llargor del llau opuestu al ángulu col llargor del llau axacente al ángulu nun triángulu rectángulu.

Tan(Alpha) = llau opuestu al ángulu/llau axacente al ángulu

## Sintaxis:

    Tan (Númberu)

## Valor de torna:

Doble

## Parámetros:

Númberu: Cualquier espresión numbérica de la que se deseye calcular la tanxente (en radianes).

Pa convertir graos en radianes, multiplique por pi/180. Pa convertir radianes en graos, multiplique por 180/Pi.

grau=(radianes*180)/pi

radián=(grado*pi)/180

Pi ye aproximadamente 3,141593.

## Error codes:

5 Llamada a procedimientu non válida

## Exemplu:

    ' Nesti exemplu, la entrada siguiente ye posible pa un triángulu rectángulu:

    ' El llau opuestu al ángulu y l'ángulu (en graos) pa calcular el llargor del llau axacente al ángulu:

    Sub ExampleTangens

    ' Pi = 3,1415926 ye una variable predefinida

    Dim d1 As Double

    Dim dAlpha As Double

        d1 = InputBox("Introduza'l llargor del llau opuestu al ángulu: ","opuestu")

        dAngle = InputBox("Escriba l'ángulu Alfa (en graos): ","Alfa")

        Print "el llargor del llau axacente al ángulu ye"; (d1 / tan (dAlpha * Pi / 180))

    End Sub