Tan funktsioon

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:

Topelttäpsusega reaalarv

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.

Veakoodid:

5 Vigane protseduuri väljakutse

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