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.
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