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.

Error codes:

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