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