Tan funtzioa

Angelu baten tangentea zehazten du. Angelua radianetan ematen da.

Alfa angelua erabiliz, Tan funtzioak angeluzuzen batean angeluaren aurkako aldearen luzeraren eta angeluaren alboko aldearen luzeraren arteko proportzioa kalkulatzen du.

Tan(Alfa) = angeluaren aurkako aldea/angeluaren alboko aldea

Tan (Zenbakia As Double) As Double

Double

Zenbakia: tangentea kalkulatu behar zaion angelua radianetan zehazten duen zenbakizko adierazpena.

Graduak radian bihurtzeko, biderkatu Pi/180 balioarekin, eta radianak gradu bihurtzeko, biderkatu 180/Pi balioarekin.

graduak=(radianak*180)/Pi

radianak=(graduak*Pi)/180

Pi gutxi gorabehera 3,141593 da.

' Adibide honetan, ondorengo sarrera posible da triangelu angeluzuzen batentzat:
' Angeluaren aurkako aldea eta angelua (gradutan) angeluaren alboko aldearen luzera kalkulatzeko:
Sub ExampleTangens
' Pi = 3,1415926 aurrez definitutako aldagaia da
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Sartu angeluaren aurkako aldearen luzera: ","Aurkakoa")
    dAngelua = InputBox("Sartu Alfa angelua (gradutan): ","Alfa")
    Print "angeluaren alboko aldearen luzera honakoa da:"; (d1 / tan (dAngelua * Pi / 180))
End Sub