Tan-funksjonen

Finn tangens for ein vinkel i radianar. Vinkelen er oppgjeve i radianar.

Ved å bruka vinkelen Alfa reknar Tan-funksjonen ut forholdet mellom lengda på den motståande sida til vinkelen og lengda på den hosliggjande sida i ein rettvinkla trekant.

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

Tan (Tal som Double) som Double

Double

Tal: Eit numeriskt uttrykk som du vil rekna ut tangens for (i radianar).

For å konvertera grader til radianar, multipliserer du gradene med Pi/180. Du kan konvertera radianar til grader ved å multiplisera radianar med 180/Pi.

grader=(radianar*180)/Pi

radianar=(grader*Pi)/180

Pi er tilnærma lik 3,141593.

' I dette eksempelet er desse innskrivingane moglege for ein rettvinkla trekant:
' Sida motsett vinkelen og vinkelen (i grader) for å rekna ut lengda på den hosliggjande sida til vinkelen:
Sub ExampleTangens
' Pi er ein førehandsdefinert konstant avrunda til 3,1415926
Dim d1 As Double
Dim dAlpha As Double
    d1 = InputBox("Skriv inn lengda på den motståande sida til vinkelen: ","motståande")
    dAlpha = InputBox$ ("Skriv inn vinkelen Alfa (i grader): ","Alfa")
    Print "lengda på den motståande sida til vinkelen er"; (d1 / tan (dAlpha * Pi / 180))
End Sub