IBM Lotus Symphony


Función Sin [Ejecución]

Devuelve el seno de un ángulo. El ángulo se especifica en radianes. El resultado está entre -1 y 1.

Usando el ángulo Alfa, la función Sin devuelve el coeficiente de la longitud del lado opuesto de un ángulo con la longitud de la hipotenusa en un triángulo rectángulo.

Sin(Alfa) = lado opuesto al ángulo/hipotenusa

Sintaxis:

Sin (Número)

Valor de retorno:

Doble

Parámetros:

Número: Expresión numérica que define el ángulo en radianes para el que se desee calcular el seno.

Para convertir grados en radianes, multiplique los grados por Pi/180 y para convertir radianes en grados, multiplique radianes por 180/Pi.

grado=(radián*180)/pi

radián=(grado*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 de la hipotenusa:

Sub EjemploSeno

REM Pi = 3,1415926 es una variable predefinida

Dim d1 As Double

Dim dAlpha as Double

d1 = InputBox$ ("Escriba la longitud del lado opuesto: ","Lado opuesto")

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

Print "La longitud de la hipotenusa es"; (d1 / sin (dAlpha * Pi / 180))

End Sub


Comentarios del producto | Documentación adicional | Marcas registradas