Active JavaScript en el navegador para mostrar las páginas de ayuda de LibreOfficeDev.

Cos Function

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

Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.

Cos(Alpha) = Adjacent/Hypotenuse

Sintaxis:


Cos (Number As Double) As Double

Valor de retorno:

Double

Parámetros:

Número: Expresión numérica que especifica un ángulo en radianes para el que se desea calcular el coseno.

Para convertir grados a radianes, multiplique los grados por pi/180. Para convertir radianes a grados, multiplique los radianes por 180/pi.

grado=(radián*180)/pi

radián=(grado*pi)/180

Pi is here the fixed circle constant with the rounded value 3.14159...

Códigos de error:

5 Llamada a procedimiento no válida

Ejemplo:


' El ejemplo siguiente permite para un triángulo rectángulo la entrada de
' la secante y el ángulo (en grados) y calcula la longitud de la hipotenusa:
Sub ExampleCosinus
' Pi redondeado = 3,14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox("Escriba la longitud del lado adyacente: ","Adyacente")
    dAngle = InputBox("Escriba el ángulo Alfa (en grados): ","Alfa")
    Print "The length of the hypotenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub