IBM Lotus Symphony
|
Funkcja trygonometryczna zwracająca arcus tangens wyrażenia liczbowego. Zwracana wartość należy do zakresu od -Pi/2 do +Pi/2.
Arcus tangens jest odwrotnością funkcji tangens. Funkcja Atn zwraca kąt "Alfa", wyrażony w radianach, używając tangensa tego kąta. Ta funkcja może również zwrócić kąt "Alfa" poprzez porównanie stosunku długości przyprostokątnej przylegającego do kąta Alfa i długości przyprostokątnej leżącej naprzeciw kąta Alfa w trójkącie prostokątnym.
Atn(przyprostokątna leżąca naprzeciw kąta/przyprostokątna przylegająca do kąta) = Alfa
Atn (Liczba)
Liczba zmiennopozycyjna o podwójnej precyzji
Liczba: Wyrażenie liczbowe reprezentujące stosunek dwóch boków trójkąta prostokątnego. Funkcja Atn zwraca odpowiedni kąt w radianach (arcus tangens).
Aby zamienić radiany na stopnie, należy pomnożyć radiany przez wartość 180/pi.
stopnie=(radiany*180)/pi
radiany=(stopnie*pi)/180
Pi jest tutaj stałą o wartości równej w zaokrągleniu 3,14159.
REM Przykład obliczania dla trójkąta prostokątnego
REM kąta Alfa na podstawie tangensa kąta Alfa:
Sub Przyklad_ATN
REM Predefiniowana, zaokrąglona stała Pi = 3,14159
Dim d1 As Double
Dim d2 As Double
d1 = InputBox$ ("Wprowadź długość przyprostokątnej przy kącie: ","Przyprostokątna przy kącie")
d2 = InputBox$ ("Wprowadź długość przyprostokątnej naprzeciw kąta: ","Przyprostokątna naprzeciw kąta")
Print "Kąt Alfa ma"; (atn (d2/d1) * 180 / Pi); " stopni"
End Sub