Module
Contents
Index 🔎︎

# Cos Function

Calcula'l cosenu d'un ángulu. L'ángulu especificar en radianes. La resultancia ta ente -1 y 1.

Usando l'ángulu Alfa, la función Cos calcula'l coeficiente del llargor del llau que ye axacente al ángulu, estremáu pol llargor de la hipotenusa nun triángulu rectángulu.

Cos(Alfa) = Axacente/Hipotenusa

## Sintaxis:

    Cos (Númberu)

## Valor de torna:

Doble

## Parámetros:

Númberu: Espresión numbérica qu'especifica un ángulu en radianes pal que se deseya calcular el cosenu.

Pa convertir graos a radianes, multiplique los graos por pi/180. Pa convertir radianes a graos, multiplique los radianes por 180/pi.

grau=(radián*180)/pi

radián=(grado*pi)/180

Pi ye equí la constante afita de la circunferencia, col valor redondiáu de 3,14159...

## Error codes:

5 Llamada a procedimientu non válida

## Exemplu:

    ' L'exemplu siguiente dexa pa un triángulu rectángulu la entrada de

    ' la secante y l'ángulu (en graos) y calcula el llargor de la hipotenusa:

    Sub ExampleCosinus

    ' arredondiáu Pi = 3.14159

    Dim d1 As Double, dAngle As Double

        d1 = InputBox$ (""Escriba'l llargor del llau axacente: ","Axacente")

        dAngle = InputBox("Escriba l'ángulu Alfa (en graos): ","Alfa")

        Print "El llargor de la hipotenusa ye "; (d1 / cos (dAngle * Pi / 180))

    End Sub