Funkcija Tan

Določa tangens kota. Kot je izražen v radianih.

Funkcija Tan izračuna na osnovi kota Alfa kvocient dolžin nasproti ležeče katete in soležne katete v pravokotnem trikotniku.

Tan(Alfa) = nasprotna kateta/soležna kateta

Skladnja:

Tan (Število)

Vrnjena vrednost:

Double

Parametri:

Število: poljuben numeričen izraz (v radianih), za katerega želite izračunati tangens.

Če želite stopinje pretvoriti v radiane, pomnožite vrednost z pi/180. Za pretvorbo iz radianov v stopinje pomnožite radiane z 180/pi.

stopinje=(radiani*180)/pi

radiani=(stopinje*pi)/180

Pi je približno 3,141593.

Kode napak:

5 Neveljaven klic procedure

Primer:

' V tem primeru lahko za pravokotni trikotnik vnesete:

' dolžino nasproti ležeče katete in kot (v stopinjah), nakar se izračuna dolžina soležne katete:

Sub ExampleTangens

' Pi = 3,1415926 je predhodno definirana spremenljivka

Dim d1 As Double

Dim dAlpha As Double

    d1 = InputBox("Vnesite dolžino nasproti ležeče katete: ","nasproti")

    dKot = InputBox("Vnesite kot Alfa (v stopinjah): ","Alfa")

    Print "Dolžina soležne katete je"; (d1 / tan(dKot * Pi / 180))

End Sub