# Cos Function

RaÄuna kosinus kuta. Kut je oznaÄen u radijanima. Rezultat se nalazi izmeÄu -1 i 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.

### Syntax:

``````
Cos (Number As Double) As Double
``````

Double

### Parameters:

Number: Numeric expression that specifies an angle in radians that you want to calculate the cosine for.

Da bi pretvorili stupnjeve u radijane, pomnoĆŸite stupnjeve s pi/180. Da bi pretvorili radijane u stupnjeve pomnoĆŸite radijane sa 180/pi

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

### Error codes:

5 Invalid procedure call

### Example:

``````
REM sljedeÄi primjer omoguÄava unoĆĄenje desno orijentiranog kuta u trokuta
REM sekantu i kut (u stupnjevima) i izraÄunava duĆŸinu hipotenuze
Sub ExampleCosinus
REM zaokruĆŸi Pi = 3.14159
Dim d1 As Double, dAngle As Double
d1 = InputBox\$ (""Unesi duĆŸinu susjedne stranice: ","Adjacent")
dAngle = InputBox("Unesi kut alpha (u stupnjevima): ","Alpha")
Print "The length of the hypotenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub
``````