Cos Function

Kiszámítja a szög koszinuszát. A szög radiánban van megadva. Az eredmény -1 és 1 közötti érték.

Az alfa szög felhasználásával a Cos függvény kiszámítja a szög melletti befogó és az átfogó hosszának arányát.

Cos(alfa) = Melletti/Átfogó

Szintaxis:

Cos (Szám)

Visszatérési érték:

Double

Paraméterek:

Szám: Numerikus kifejezés, amely azon szög értékét tartalmazza radiánban, amelynek ki akarja számolni a koszinuszát.

Fokok radiánná alakításához szorozza meg a fokokat pi/180-nal. Radiánok szögekké alakításához szorozza meg a radiánokat 180/pi-vel.

fok=(radián*180)/pi

radián=(fok*pi)/180

A pi a rögzített körállandó 3.14159-es kerekített értékkel.

Error codes:

5 Érvénytelen eljáráshívás

Példa:

' Az alábbi példa lehetővé teszi egy derékszögű háromszög

' szekánsának és szögének (fokokban) megadását, és ezek alapján kiszámolja a háromszög átfogójának hosszát:

Sub ExampleCosinus

' kerekített Pi = 3.14159

Dim d1 As Double, dAngle As Double

    d1 = InputBox$("Adja meg a szög melletti befogó hosszát: ","Melletti")

    dAngle = InputBox("Adja meg az alfa szöget (fokban): ","Alfa")

    Print "Az átfogó hossza"; (d1 / cos (dAngle * Pi / 180))

End Sub