Tan Fonksiyonu
Bir açının tanjantını belirler. Açı radyan olarak belirtilir.
Herhangi bir dik açılı üçgende Tan fonksiyonu Alfa açısını kullanarak açının karşısındaki kenarın uzunluğunun açıya komşu kenarın uzunluğuna oranını hesaplar.
Tan(Alfa) = karşı açı/komşu açı
Sözdizimi:
Tan (Number)
Dönen değer:
İki satır
Parametreler:
Sayı: Tanjantını hesaplamak istediğiniz (radyan cinsinden) herhangi sayısal ifadedir.
Dereceyi radyana dönüştürmek için, Pi/180 ile çarpın. Radyanı dereceye dönüştürmek için, 180/Pi ile çarpın.
degrees=(radiant*180)/Pi
radiant=(degrees*Pi)/180
Pi yaklaşık olarak 3.141593'tür.
Örnek:
' Bu örnekte, aşağıdaki girdi dik açılı üçgen için mümkündür:
' Açının karşısındaki kenar ve açının kendisi (derece olarak) açıya komşu kenarın uzunluğunu hesaplamakta kullanılır:
Sub ExampleTangens
' Pi = 3.1415926 öntanımlı bir değişkendir
Dim d1 As Double
Dim dAlpha As Double
d1 = InputBox("Açının karşısındaki kenarın uzunluğunu girin: ","karşı")
dAlfa = InputBox("Alfa açısını girin (derece olarak): ","Alfa")
Print "açının komşu kenarının uzunluğu"; (d1 / tan (dAlfa * Pi / 180))
End Sub