IBM Lotus Symphony
|
Beregner tangens til en vinkel. Vinkelen angis i radianer.
Ved hjelp av vinkelen Alpha beregner Tan-funksjonen forholdet mellom lengden på motsatt side av en vinkel og lengden på den tilstøtende siden til vinkelen i en rettvinklet trekant.
Tan(Alpha) = side motsatt vinkelen/side tilstøtende vinkelen
Tan (tall)
Dobbel
Tall: Et numerisk uttrykk du vil beregne tangens for (i radianer).
For å konvertere grader til radianer må du multiplisere med Pi/180. For å konvertere radianer til grader må du multiplisere med 180/Pi.
degrees=(radiant*180)/Pi
radiant=(degrees*Pi)/180
Pi er ca. 3,141593.
REM I dette eksempelet er følgende oppføring mulig for en rettvinklet trekant:
REM Siden som er motsatt av vinkelen, og vinkelen (i grader) for å beregne lengden på siden som er tilstøtende til vinkelen:
Sub ExampleTangens
REM Pi = 3,1415926 er en forhåndsdefinert variabel.
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Angi lengden på siden motsatt av vinkelen: ","motsatt")
dAlpha = InputBox$ ("Angi Alpha-vinkelen (i grader): ","Alpha")
Print "Lengden på siden som tilstøter vinkelen, er"; (d1 / tan (dAlpha * Pi / 180))
End Sub