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...

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