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 "La longitud de la hipotenusa es "; (d1 / cos (dAngle * Pi / 180))
End Sub

¡Necesitamos su ayuda!