Funktionen Atn

Trigonometrisk funktion som returnerer arcus tangens på et numerisk udtryk. Returværdien er i området -PI/2 til +PI/2.

Arcus-tangensen er tangens-funktionens inversion. Funktionen Atn returnerer vinklen "Alfa", udtrykt i radianer med denne vinkels tangens. Funktionen kan også returnere vinklen "Alfa" ved at sammenligne forholdet mellem længden af vinklens modstående side og længden af dens hosstående side med vinklen i en retvinklet trekant.

Atn(vinklens modstående side/vinklens hosstående side)= Alpha

        Atn (Tal som Double) som Double
    

Double

Tal: Ethvert numerisk udtryk, der repræsenterer forholdet mellem to sider i en retvinklet trekant. Funktionen Atn returnerer den tilsvarende vinkel i radianer (arcustangens).

For at konvertere radianer til grader, gang radianer med 180/pi.

grad=(radian*180)/pi

radian=(grad*pi)/180

Pi er her den faste cirkelkontant med den afrundede værdi 3,14159. Pi er en Grundliggende matematisk konstant.

        REM Følgende eksempel beregner for en retvinklet trekant
        REM vinklen Alfa fra tangenten på vinklen Alfa:
        Sub ExampleAtn
        REM afrundet PI = 3,14159 er en foruddefineret konstant
        Dim d1 As Double
        Dim d2 As Double
            d1 = InputBox("Angiv længden på siden, der støder op til vinklen: ","Tilstødende")
            d2 = InputBox("Angiv længden af den modstående side: ","Modstående")
            Print "Alphavinklen er"; (atn (d2/d1) * 180 / PI); " grader"
        End Sub