Cos Function

Beregner cosinus af en vinkel. Vinklen er angivet i radianer. Resultatet ligger mellem -1 og 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

Syntaks:


Cos (Number As Double) As Double

Returværdi:

Double

Parametre:

Tal: Numerisk udtryk der specificerer en vinkel i radianer som du vil beregne cosinus til.

For at konvertere grader til radianer, gang grader med pi/180. For at konvertere radianer til grader, gang radianer med 180/pi.

grad=(radian*180)/pi

radian=(grad*pi)/180

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

Fejlkoder:

5 Ugyldigt Procedurekald

Eksempel:


REM Følgende eksempel tillader, for en retvinklet trekant, indtastningen af
REM sekant og vinkel (i grader) og beregner længden af hypotenusen:
Sub ExampleCosinus
REM afrundet Pi = 3,14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox("Angiv længden af den tilstødende side: ","Tilstødende")
    dAngle = InputBox("Angiv vinklen Alfa (i grader): ","Alfa")
    Print "Længden af hypotenusen er"; (d1 / Cos (dAngle * PI / 180))
End Sub