Tan Function

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

Sintaxia:


Tan (Number As Double) As Double

Itzulera-balioa:

Double

Parametroak:

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.

Errore-kodeak:

5 Prozedura-deia ez baliozkoa

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