Función Tan

Calcula la tangente de un ángulo. El ángulo se devuelve en radianes.

Usando el ángulo Alfa, la función Tan calcula el coeficiente de la longitud del lado opuesto al ángulo con la longitud del lado adyacente al ángulo en un triángulo rectángulo.

Tan(Alpha) = lado opuesto al ángulo/lado adyacente al ángulo

Sintaxis:

Tan (Número)

Valor de retorno:

Doble

Parámetros:

Número: Cualquier expresión numérica de la que se desee calcular la tangente (en radianes).

Para convertir grados en radianes, multiplique por pi/180. Para convertir radianes en grados, multiplique por 180/Pi.

grado=(radianes*180)/Pi

radián=(grado*Pi)/180

Pi es aproximadamente 3,141593.

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:

' En este ejemplo, la entrada siguiente es posible para un triángulo rectángulo:

' El lado opuesto al ángulo y éste (en grados) para calcular la longitud del lado adyacente al ángulo:

Sub ExampleTangens

' Pi = 3,1415926 es una variable predefinida

Dim d1 As Double

Dim dAlpha As Double

    d1 = InputBox("Digite la longitud del lado opuesto al ángulo: ","opuesto")

    dAlpha = InputBox("Escriba el ángulo Alfa (en grados): ","Alfa")

    Print "la longitud del lado adyacente al ángulo es"; (d1 / tan (dAlpha * Pi / 180))

End Sub