Función Tan

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

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

Sintaxis:


Tan (Number As Double) As Double

Valor de retorno:

Doble

Parámetros:

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

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

El valor aproximado de Pi es 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

¡Necesitamos su ayuda!