Atn Function

Trigonometrisk funktion som returnerar arcustangens för ett numeriskt uttryck. Det returvärdet ligger i intervallet -Pi/2 till +Pi/2.

Arcustangens är inversen av funktionen tangens. Funktionen Atn returnerar vinkeln Alfa uttryckt i radianer, med hjälp av den här vinkelns tangens. Funktionen kan också returnera vinkeln Alfa genom att bestämma förhållandet mellan längden på den sida som befinner sig mittemot vinkeln och längden på den sida som befinner sig intill vinkeln i en rätvinklig triangel.

Atn(sidan mittemot vinkeln/sidan bredvid vinkeln)= Alfa

Syntax:

Atn (tal)

Returvärde:

Double

Parametrar:

Tal: Ett numeriskt uttryck som representerar förhållandet mellan två sidor i en rätsidig triangel. Funktionen Atn returnerar motsvarande vinkel i radianer (arcustangens).

Du kan konvertera radianer till grader genom att multiplicera radiantalet med 180/pi.

vinkel=(radian*180)/pi

radian=(vinkel*pi)/180

Pi är här en matematisk konstant med det avrundade värdet 3,14159.

Exempel:

' I följande exempel beräknas vinkeln Alfa för en rätvinklig

' triangel från tangens för vinkeln Alfa:

Sub ExampleAtn

' avrundat pi = 3,14159 är en fördefinierad konstant

Dim d1 As Double

Dim d2 As Double

    d1 = InputBox("Ange längden på den sida som befinner sig intill vinkeln: ","Intilliggande")

    d2 = InputBox("Ange längden på den sida som befinner sig mittemot vinkeln: ","Mittemot")

    Print "Vinkeln Alfa är"; (atn (d2/d1) * 180 / Pi); " grader"

End Sub