Tan-funksjonen

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

Ved Ä bruka vinkelen Alpha 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

Syntaks:


Tan (tal)

Returverdi:

Double

Parameterar:

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

For Ă„ konvertera grader til radianar, multipliser med med pi/180. For Ă„ konvertera radianar til grader, multipliser med 180/pi.

grader=(radianar*180)/pi

radianar=(grader*pi)/180

Pi er tilnĂŠrma lik 3.141593.

Feilkodar

5 Ugyldig prosedyreoppkall

Eksempel:


' 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

StĂžtt oss!