IBM Lotus Symphony
|
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
Sin (Número)
Doble
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.
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