Moduł
Spis treści
Indeks 🔎︎

# Funkcja Atn

Funkcja trygonometryczna dająca w wyniku arcus tangens wyrażenia numerycznego. Zwracana wartość mieści się w zakresie od -Pi/2 do +Pi/2.

Arcus tangens jest odwrotnością funkcji tangens. Funkcja Atn zwraca kąt "Alpha" wyrażony w radianach, używając jako parametru tangensa tego kąta. Funkcja ta może także zwrócić kąt "Alpha" przez obliczenie stosunku przyprostokątnej naprzeciw tego kąta do przyprostokątnej przyległej do tego kąta w trójkącie prostokątnym.

Atn(przyprostokątna naprzeciw kąta/przyprostokątna przyległa do kąta)= Alpha

## Składnia:

    Atn (liczba)

## Zwracana wartość:

Podwójna

## Parametry:

Liczba: Dowolne wyrażenie numeryczne wyrażające stosunek dwóch boków w trójkącie prostokątnym. Funkcja Atn zwraca odpowiadający kąt w radianach (arcus tangens).

Aby przeliczyć radiany na stopnie, należy pomnożyć radiany razy 180/pi.

stopnie=(radiany*180)/pi

radiany=(stopnie*pi)/180

Pi oznacza stałą okręgu, której wartość wynosi w przybliżeniu 3,14159.

## Kody błędów:

5 Nieprawidłowe wywołanie procedury

## Przykład:

    ' Poniższy przykład oblicza kąt alfa trójkąta prostokątnego

    ' z tangensa tego kąta w trójkącie prostokątnym:

    Sub ExampleAtn

    ' zdefiniowana stała Pi = 3,14159 (w przybliżeniu)

    Dim d1 As Double

    Dim d2 As Double

        d1 = InputBox("Wprowadź długość przyprostokątnej przyległej do kąta: ","Przyprostokątna")

        d2 = InputBox("Wprowadź długość przeciwprostokątnej do kąta: ","Przeciwprostokątna")

        Print "Kąt Alfa wynosi"; (atn (d2/d1) * 180 / Pi); " stopni"

    End Sub