Atn-funksjonen

Trigonometrisk funksjon som returnerer arctangens av eit numerisk uttrykk. Resultatet er i området -Pi/2 to +Pi/2.

Arctangens er inversen av tangens-funksjonen. Funksjonen Atn returnerer vinkelen «Alpha» uttrykt i radianar ved å bruka tangens til denne vinkelen. Funksjonen kan også returnera vinkelen «Alpha» ved å samanlikna forholdet mellom dei motsette sidene til vinkelen med lengda av den hosliggjande til vinkelen i ein rettvinkla trekant.

Atn (motsett side til vinkelen / hosliggjande side til vinkelen) = Alpha

        Atn (Tal som Double) som Double
    

Double

Tal: Eit numerisk uttrykk som representerer forholdet mellom to sider i ein rettvinkla trekant. Funksjonen Atn returnerer den tilhøyrande vinkelen i radianar (arctangens).

For å omforma radianar til grader, multipliser radianar med 180/pi.

grader=(radianar*180)/pi

radian=(grad*pi)/180

Pi er her den faste sirkelkonstanten avrunda til 3,14159. Pi er ein grunnleggjande matematisk konstant.

        ' Det neste eksempelet reknar ut for ein rettvinkla trekant
        ' Vinkelen Alpha frå tangenten til vinkelen Alpha:
        Sub ExampleAtn
        ' Pi er ein førehandsdefinert konstant avrunda til 3,14159
        Dim d1 As Double
        Dim d2 As Double
            d1 = InputBox("Skriv inn lengda på den hosliggjande sida til vinkelen: ","Tilstøytande")
            d2 = InputBox("Skriv inn lengda på den motståande sida til vinkelen: ","Motståande")
            Print "Alpha-vinkelen er"; (atn (d2/d1) * 180 / Pi); " grader"
        End Sub