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