Tan Function
Määrab nurga tangensi. Nurk tuleb anda radiaanides.
Funktsioon Tan tagastab täisnurkse kolmnurga nurga alfa vastaskülje pikkuse suhte nurga kõrvalkülje pikkusse.
Tan(alfa) = nurga vastaskaatet/nurga lähiskaatet
Süntaks:
Tan (arv)
Tagastusväärtus:
Double
Parameetrid:
Arv: suvaline arvavaldis (radiaanides), mille tangensi soovid arvutada.
Kraadide teisendmiseks radiaanideks korruta pii/180. Radiaanide teisendamiseks kraadideks korruta 180/pii.
kraadid=(radiaanid*180)/pii
radiaanid=(kraadid*pii)/180
Pii on ligikaudu 3.141593.
Näide:
REM Selles näites saab täisnurkse kolmnurga jaoks sisestada järgmise kirje:
REM Nurga vastaskülg ja nurk (kraadides) nurga kõrvalkülje pikkuse arvutamiseks:
Sub ExampleTangens
REM Pii = 3.1415926 on eeldefineeritud muutuja
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Sisesta nurga vastaskaateti pikkus: ","vastas")
dAlpha = InputBox("Sisesta nurk alfa (kraadides): ","alfa")
Print "nurga lähiskaateti pikkus on"; (d1 / tan (dAlpha * pii / 180))
End Sub