Cos Function
Cos laskee kulman kosinin. Kulma on radiaaneissa. Vastaus on välillä -1 ... 1.
Käyttäen alfa-kulmaa, Cos-funktio laskee kulman viereisen sivun ja hypotenuusan pituuksien suhteen suorakulmaisessa kolmiossa.
Cos(Alpha) = Adjacent/Hypotenuse
Syntaksi:
Cos (luku1)
Palautusarvo:
Double
Parametrit:
Luku: numeerinen lauseke, joka määrittää sen kulman radiaaneissa, jolle halutaan laskea kosini.
Asteiden muuntamiseksi radiaaneiksi, kerro radiaanit termillä pi/180. Radiaanien muuntamiseksi asteiksi, kerro radiaanit termillä 180/pi.
asteet=(radiaanit*180)/Pi
radiaanit=(asteet*pi)/180
Pi on kiinteä vakion, piin likiarvo, pyöristetty arvosta 3,14159...
Esimerkki:
' Tämä esimerkkiohjelma ottaa syötteenä vastaan suorakulmaisen kolmion ...
' ... yhden kulman (asteissa) ja sen viereisen sivun ja laskee hypotenuusan pituuden:
Sub ExampleCosinus
' Pi = 3.1415926 (pii pyöristettynä)
Dim d1 As Double, dAngle As Double
d1 = InputBox("Anna alfa-kulman viereisen kateetin pituus: ","Viereinen kateetti")
dAngle = InputBox("Anna alfa-kulma (asteissa): ","Alfa")
Print "Hypotenuusan pituus on"; (d1 / cos (dAngle * Pi / 180))
End Sub