Module
Contents
Index 🔎︎

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

## Error codes:

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