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
Sintaxia:
Tan (Zenbakia)
Itzulera-balioa:
Double
Parametroak:
Zenbakia: tangentea kalkulatu behar zaion angelua radianetan zehazten duen zenbakizko adierazpena.
Graduak radian bihurtzeko, egin bider Pi/180. Radianak gradu bihurtzeko, egin bider 180/Pi.
graduak=(radianak*180)/pi
radianak=(graduak*pi)/180
Pi gutxi gorabehera 3,141593 da.
Adibidea:
' 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