Tan Function

Determina la tangente di un angolo. L'angolo è specificato in radianti.

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

Sintassi:


Tan (Number As Double) As Double

Valore restituito:

Double

Parametri:

Numero: espressione numerica di cui desiderate calcolare la tangente (in radianti).

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.

Codici di errore:

5 Richiamo di procedura non valido

Esempio:


' In questo esempio, per un triangolo retto è possibile immettere:
' Il lato opposto all'angolo e l'angolo (in gradi) per calcolare la lunghezza del lato adiacente l'angolo:
Sub ExampleTangens
' Pi = 3,1415926 è una variabile predefinita
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Inserite la lunghezza del lato opposto all'angolo: ","Opposto")
    dAlpha = InputBox("Inserite l'angolo Alfa (in gradi): ","Alfa")
    Print "La lunghezza del lato adiacente l'angolo è"; (d1 / tan (dAlpha * Pi / 180))
End Sub