Tan Function

Bestämmer tangens för en vinkel. Vinkeln anges i radianer.

Med vinkeln Alfa kan funktionen Tan beräkna 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.

Tan(Alfa)= sidan mittemot den vinkel/sida som befinner sig intill vinkeln

Syntax:

Tan (tal)

Returvärde:

Double

Parametrar:

Tal: Ett numeriskt uttryck som du vill beräkna tangens för (i radianer).

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

grader=(radiant*180)/Pi

radiant=(grad*Pi)/180

Pi är ungefär 3,141593.

Exempel:

' I det här exemplet är den här inmatningen möjlig för en högervinklad triangel:

' Sidan mittemot vinkeln och vinkeln (i grader) för att beräkna längden på den sida som befinner sig mittemot vinkeln:

Sub ExampleTangens

' Pi = 3,1415926 är en fördefinierad variabel

Dim d1 As Double

Dim dAlpha As Double

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

    dAlpha = InputBox("Ange vinkeln Alfa (i grader): ","Alfa")

    Print "Längden på den sida som befinner sig intill vinkeln är"; (d1 / tan (dAlpha * Pi / 180))

End Sub