IBM Lotus Symphony
|
Trigonometrická funkcia, ktorá vracia arkustangens numerického výrazu. Návratová hodnota je v rozsahu -Pí/2 až +Pí/2.
Funkcia arc tangens je inverzná k funkcii tangens. Funkcia Atn vracia hodnotu uhla "alfa", vyjadrenú v radiánoch použitím tangensu tohto uhla. Funkcia tiež môže vracať hodnotu uhla "alfa" porovnaním pomeru dĺžky protiľahlej strany uhla k dĺžke priľahlej strany uhla pravouhlého trojuholníka.
Funkcia Atn(protiľahlá strana uhla/priľahlá strana uhla)= alfa
Funkcia Atn (číslo)
Typ Double
Číslo: Ľubovoľný numerický výraz, ktorý vyjadruje pomer dvoch strán pravouhlého trojuholníka. Funkcia Atn vracia hodnotu príslušného uhla v radiánoch (arc tangens).
Na prevod hodnoty v radiánoch na stupne vynásobte hodnotu v radiánoch zlomkom 180/pí.
stupne=(radiány*180)/pí
radiány=(stupne*pí)/180
Pí je konštanta kruhu zaokrúhlená na hodnotu 3,14159.
REM Nasledujúci príklad sa týka výpočtov v pravouhlom trojuholníku
REM uhol alfa z funkcie tangens uhla alfa:
Sub Príklad_ATN
REM zaokrúhlená hodnota Pí = 3,14159 je preddefinovaná konštanta
Dim d1 ako typ Double
Dim d2 ako typ Double
d1 = InputBox$ ("Zadajte dĺžku priľahlej strany uhla: ","Priľahlá")
d2 = InputBox$ ("Zadajte dĺžku protiľahlej strany uhla: ","Protiľahlá")
Print "Uhol alfa má"; (atn (d2/d1) * 180 / Pi); " stupňov"
End Sub