Tan Function
Lasketaan kulman (radiaaneina) tangentti.
KÀyttÀen alfa-kulmaa, Tan-funktio laskee kulman vastaisen sivun ja viereisen sivun pituuksien suhteen suorakulmaisessa kolmiossa.
Tan(alfa) = kulman vastakkainen sivu/kulman viereinen kateetti
Syntaksi:
Tan (luku1)
Palautusarvo:
Double
Parametrit:
Luku1: numeerinen lauseke, jolle halutaan laskea tangentti (radiaaneissa).
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 likiarvona piistÀ noin 3,141593.
Esimerkki:
' TÀssÀ esimerkissÀ, kÀyttÀjÀ voi tehdÀ seuraavat syötteet suorakulmaiselle kolmiolle:
' Kulman vastainen sivu ja kulma (asteissa), joista lasketaan kulman viereisen kateetin pituus:
Sub ExampleTangens
' Pi = 3.1415926 on esimÀÀritelty vakio
Dim d1 As Double
Dim dAlpha As Double
d2 = InputBox("Anna alfa-kulman vastaisen sivun pituus: ","Vastainen kateetti")
dAlpha = InputBox("Anna alfa-kulma (asteissa): ","Alfa")
Print "kulman viereisen kateetin pituus on"; (d1 / tan (dAlpha * Pi / 180))
End Sub