Funkcija Atn[med izvajanjem]

Trigonometrična funkcija, ki vrne arkus tangens numeričnega izraza. Vrnjena vrednost ima obseg med -Pi/2 in +Pi/2.

Arkus tangens je inverzna funkcija tangensa. Funkcija Atn vrne kot »Alfa«, v radianih na osnovi tangensa tega kota. Funkcija Atn lahko tudi vrne kot »Alfa« na osnovi kvocienta dolžin nasprotne katete in soležne katete v pravokotnem trikotniku.

Atn(nasprotna kateta/soležna kateta)= Alfa

Skladnja:

Atn (Število)

Vrnjena vrednost:

Double

Parametri:

Število: poljuben numeričen izraz, ki predstavlja kvocient dolžin obeh katet. Funkcija Atn vrne imenovani kot v radianih (arkus tangens).

Če želite rezultat spremeniti iz radianov v ločne stopinje, zmnožite rezultat s 180/pi.

stopinje=(radiani*180)/pi

radiani=(stopinje*pi)/180

Pi je pri tem konstanta z zaokroženo vrednostjo 3,14159.

Kode napak:

5 Neveljaven klic procedure

Primer:

' naslednji primer izračuna za pravokotni trikotnik

' kot Alfa iz tangensa kota Alfa:

Sub ExampleAtn

' zaokrožen Pi = 3,14159 je konstanta

Dim d1 As Double

Dim d2 As Double

    d1 = InputBox("Vnesite dolžino soležne katete: ","soležna")

    d1 = InputBox("Vnesite dolžino nasproti ležeče katete: ","nasproti")

    Print "Kot Alfa je"; (atn (d2/d1) * 180 / Pi); " stopinj"

End Sub