Cos Function

Beräknar cosinus för en vinkel. Vinkeln anges i radianer. Resultatet ligger mellan -1 och 1.

Med hjälp av vinkeln Alfa beräknar cosinus-funktionen kvoten för längden på den sida som befinner sig intill vinkeln, delat med hypotenusans längd i en rätvinklig triangel.

Cos(Alfa) = Intilliggande/Hypotenusa

Syntax:


Cos (tal)

Returvärde:

Double

Parametrar:

Tal: Numeriskt uttryck som anger den vinkel i radianer för vilken du vill beräkna cosinus.

Du kan konvertera grader till radianer genom att multiplicera antalet grader med pi/180. Du kan konvertera radianer till grader genom att multiplicera antalet radianer med 180/pi.

vinkel=(radian*180)/pi

radian=(vinkel*pi)/180

Pi är här en matematisk konstant med det avrundade värdet 3,14159...

Felkoder:

5 Felaktigt proceduranrop

Exempel:


' I följande exempel kan sekant och vinkel (i grader) hos en rätvinklig
'-sekant och vinkel (grader) anges för beräkning av hypotenusans längd:
Sub ExampleCosinus
' avrundat pi = 3,14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox("Ange den intilliggande sidans längd: ","Intilliggande")
    dAngle = InputBox("Ange vinkeln Alfa (i grader): ","Alfa")
    Print "Hypotenusans längd är"; (d1 / cos (dAngle * Pi / 180))
End Sub