Cos Function
Arvutab nurga koosinuse. Nurk tuleb anda radiaanides. Tulemus on vahemikus -1 kuni 1.
Funktsioon Cos arvutab täisnurkse kolmnurga nurga Alfa nurga kõrval oleva külje pikkuse suhte hüpotenuusi pikkusse.
Cos(alfa) = Lähiskaatet/Hüpotenuus
Süntaks:
Cos (arv)
Tagastusväärtus:
Double
Parameetrid:
Arv: arvavaldis, mis määrab nurga (radiaanides), mille koosinust soovid arvutada.
Kraadide teisendmiseks radiaanideks korruta kraadid pii/180. radiaanide teisendamiseks kraadideks korruta radiaanid 180/pii.
kraadid=(radiaanid*180)/pii
radiaanid=(kraadid*pii)/180
Pii on fikseeritud konstant ümardatud väärtusega 3,14159.
Näide:
REM Järgmises näites arvutatakse väärtus täisnurkse kolmnurga korral, kui sisestatud on
REM sekans ja nurk (kraadides) ja arvutab hüpotenuusi pikkuse:
Sub ExampleCosinus
REM ümardatud pii = 3.14159
Dim d1 As Double, dAngle As Double
d1 = InputBox(""Sisesta lähiskaateti pikkus: ","Lähis")
dAngle = InputBox("Sisesta nurk alfa (kraadides): ","alfa")
Print "Hüpotenuusi pikkus on"; (d1 / cos (dAngle * pii / 180))
End Sub