LibreOffice 7.3 laguntza
Angelu baten tangentea zehazten du. Angelua radianetan ematen da.
Using the angle Alpha, the Tan function calculates the ratio of the length of the side opposite the angle to the length of the side adjacent to the angle in a right-angled triangle.
Tan(Alpha) = side opposite the angle/side adjacent to angle
Tan (Number As Double) As Double
Double
Zenbakia: tangentea kalkulatu behar zaion angelua radianetan zehazten duen zenbakizko adierazpena.
To convert degrees to radians, multiply by Pi/180. To convert radians to degrees, multiply by 180/Pi.
degrees=(radians*180)/Pi
radians=(degrees*Pi)/180
Pi is approximately 3.141593.
' 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