LibreOffice 7.1 žinynas
Apibrėžia kampo tangentą. Kampas nurodomas radianais.
Naudojant kampą „Alfa“, „tan“ funkcija apskaičiuoja kraštinės, esančios priešais šį kampą, ir kraštinės, esančios greta šio kampo, ilgio santykį stačiajame trikampyje.
Tan(Alfa) = kraštinė priešais kampą/kraštinė greta kampo
Tan (skaičius)
Dvigubas
Skaičius: bet kuris skaitinis reiškinys, kurios tangentą norite apskaičiuoti (radianais).
Norėdami konvertuoti laipsnius į radianus, padauginkite iš Pi/180. Norėdami konvertuoti radianus į laipsnius, padauginkite iš 180/Pi.
laipsniai=(radiantas*180)/Pi
radiantas=(laipsniai*Pi)/180
Pi apytiksliai lygu 3,141593.
' Šiame pavyzdyje galimas šitoks įrašas stčiajam trikampiui:
' Kraštinė, esanti prieš kampą, ir kampas (laipsniais) norint apskaičiuoti šiam kampui gretimos kraštinės ilgį:
Sub ExampleTangens
' Pi = 3,1415926 yra apibrėžtas kintamasis
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Įveskite kraštinės, esančios priešais kampą, ilgį: ","Priešais")
dAlpha = InputBox("Įveskite kampą „Alfa“ (laipsniais): ","Alfa")
Print "gretimos kampui kraštinės ilgis yra"; (d1 / tan (dAlpha * Pi / 180))
End Sub