Pag-andar ng Atn

Trigonometric function na nagbabalik ng arctangent ng isang numeric na expression. Ang return value ay nasa range -Pi/2 hanggang +Pi/2.

Ang arctangent ay ang kabaligtaran ng tangent function. Ang Atn Ibinabalik ng function ang anggulo na "Alpha", na ipinahayag sa mga radian, gamit ang tangent ng anggulong ito. Ang function ay maaari ding ibalik ang anggulo na "Alpha" sa pamamagitan ng paghahambing ng ratio ng haba ng gilid na nasa tapat ng anggulo sa haba ng gilid na katabi ng anggulo sa isang right-angled na tatsulok.

Atn (panig sa tapat ng anggulo/gilid na katabi ng anggulo)= Alpha

        Atn (Bilang Bilang Doble) Bilang Doble
    

Double

Numero: Anumang numerical expression na kumakatawan sa ratio ng dalawang panig ng isang right triangle. Ang Atn function ay nagbabalik ng kaukulang anggulo sa radians (arctangent).

Upang i-convert ang mga radian sa mga degree, i-multiply ang mga radian sa 180/pi.

degree=(radian*180)/pi

radian=(degree*pi)/180

Pi ay dito ang fixed circle constant na may rounded value na 3.14159. Pi ay a Pangunahing mathematical constant .

        ' Ang sumusunod na halimbawa ay kinakalkula para sa isang right-angled na tatsulok
        ' ang anggulong Alpha mula sa padaplis ng anggulong Alpha:
        Sub ExampleAtn
        ' rounded Pi = 3.14159 Ay isang paunang natukoy na pare-pareho
        Dim d1 As Double
        Dim d2 As Double
            d1 = InputBox("Ipasok ang haba ng gilid na katabi ng anggulo: ","Katabi")
            d2 = InputBox("Ipasok ang haba ng gilid sa tapat ng anggulo: ","Kabaligtaran")
            I-print ang "Ang anggulo ng Alpha ay"; (atn (d2/d1) * 180 / Pi); "degree"
        End Sub