IBM Lotus Symphony


Función Tan [Ejecución]

Calcula la tangente de un ángulo. El ángulo se especifica 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.

grados=(radián*180)/Pi

radián=(grados*Pi)/180

Pi es aproximadamente 3,141593.

Códigos de error

5 Inicio del proceso no válido

Ejemplo:

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

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

Sub EjemploTangentes

REM Pi = 3,1415926 es un valor predefinido

Dim d1 As Double

Dim dAlpha as Double

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

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

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

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas