Modul
Obsah
Index 🔎︎

# Funkce Atn

Trigonometrická funkce, která vrátí arkustangens číselného výrazu. Vrácená hodnota je v rozsahu -Pi/2 až +Pi/2.

Arkustanges je inverzní funkce k tangens. Funkce Atn vrací úhel "alfa", v radiánech, s použitím tangens tohoto úhlu. Funkce také může vrátit úhel "alfa" porovnáním délky protilehlé a přilehlé odvěsny v pravoúhlém trojúhelníku.

Atn(protilehlá odvěsna/přilehlá odvěsna)= Alfa

## Syntaxe:

    Atn (Number)

## Návratová hodnota:

Double

## Parametry:

Number: Číselný výraz, který představuje poměr dvou odvěsen trojúhelníku. Funkce Atn vrací odpovídající úhel v radiánech (arkustangens).

Chcete-li převést radiány na stupně, vynásobte je hodnotou 180/Pi.

hodnota ve stupních=(hodnota v radiánech*180)/Pi

hodnota radiánech=(hodnota ve stupních*Pi)/180

Pi je konstanta s hodnotou přibližně 3.14159.

## Chybové kódy:

5 Neplatné volání procedury

## Příklad:

    ' Následující příklad spočítá v pravoúhlém trojúhelníku

    ' úhel alfa z tangens úhlu alfa:

    Sub ExampleAtn

    ' zaokrouhlené Pi = 3.14159 je předdefinovaná konstanta

    Dim d1 As Double

    Dim d2 As Double

        d1 = InputBox("Zadejte délku odvěsny přilehlé úhlu: ","Přilehlá")

        d2 = InputBox("Zadejte délku odvěsny protilehlé úhlu: ","Protilehlá")

        Print "Úhel alfa je "; (atn (d2/d1) * 180 / Pi); " stupňů"

    End Sub