Module
Enhavo
Indekso 🔎︎

# Tan Function

Kalkulas la tangenton de angulo en radianoj.

Uzante la angulon Alfa, la funkcio Tan kalkulas la proporcion de la longo de la latero kontraŭ la angulo al la longo de la latero apud la angulo en orta triangulo.

Tan(Alfa) = latero kontraŭ la angulo/latero apud la angulo

## Sintakso:

    Tan (Number)

## Liverota valoro:

Duobla

## Parametroj:

Number: Numera esprimo (en radianoj) por kiu kalkuli la tangenton.

Por konverti gradojn al radianoj, multipliku la gradojn per pi/180. Por konverti randianojn al gradoj, multipliku la radianojn per 180/pi.

grado=(radiano*180)/pi

radiano=(grado*pi)/180

Pi estas proksimume 3,141593.

## Error codes:

5 Nevalida procedurvoko

## Ekzemplo:

    REM En ĉi tiu ekzemplo, la sekva elemento eblas por orta triangulo:

    REM La latero kontraŭ la angulo kaj la angulo (en gradoj) por kalkuli la longon de la latero apud la angulo:

    Sub ExampleTangens

    REM Pi = 3,1415926 estas difinita variablo

    Dim d1 As Double

    Dim dAlpha As Double

        d1 = InputBox("Tajpu la longon de la latero kontraŭ la angulo: ","kontraŭa")

        dAlpha = InputBox("Tajpu la angulon Alfa (en gradoj): ","Alfa")

        Print "la longo de la latero paud la angulo estas"; (d1 / tan (dAlpha * Pi / 180))

    End Sub