IBM Lotus Symphony
|
Določa tangens kota. Kot je podan v radianih.
S pomočjo kota alfa funkcija Tan vrne razmerje med dolžino nasprotne katete kota in dolžino priležne katete v pravokotnem trikotniku.
Tan(Alfa) = nasprotna kateta/priležna kateta
Tan (Number)
Dvojno
Number: Katerikoli številski izraz, za katerega želite izračunati tangens (v radianih).
Če želite pretvoriti stopinje v radiane, pomnožite stopinje s Pi/180. Če želite pretvoriti radiane v stopinje, pomnožite radiane s 180/Pi.
degrees=(radiant*180)/Pi
radiant=(degrees*Pi)/180
Pi je približno 3,141593.
REM In this example, the following entry is possible for a right-angled triangle:
REM The side opposite the angle and the angle (in degrees) to calculate the length of the side adjacent to the angle:
Sub ExampleTangens
REM Pi = 3.1415926 is a pre-defined variable
Dim d1 as Double
Dim dAlpha as Double
d1 = InputBox$ ("Enter the length of the side opposite the angle: ","opposite")
dAlpha = InputBox$ ("Enter the Alpha angle (in degrees): ","Alpha")
Print "the length of the side adjacent the angle is"; (d1 / tan (dAlpha * Pi / 180))
End Sub