Cos Fonksiyonu
Bir açının kosinüs değerini hesaplar. Açı radyan olarak tanımlanır. Sonuç -1 ile 1 arasındadır.
Alfa açısını kullanarak, Cos fonksiyonu açıya komşu olan kenarın uzunluğunu ile dik açı ücgendeki hipotenüz uzunluğunun bölünmesi oranını hesaplar.
Cos(Alpha) = Adjacent/Hypotenuse
Sözdizimi:
Cos (Sayı)
Dönen değer:
İki satır
Parametreler:
Sayı: Radyan olarak kosinüs değereini hesaplayacağınız açıyı belirten sayısal ifade
Dereceleri radyanlara çevirmek için dereceleri pi/180 ile çarpın. Radyanları derecelere çevirmek için, radyanları 180/pi ile çarpın.
degree=(radian*180)/pi
radian=(degree*pi)/180
Pi burada yuvarlanmış değeri ile 3.14159... olan sabit dairesel bir sabittir.
Örnek:
REM Takip eden örnek sağ açılı üçgene girdi için izin verir
REM sekant ve açı (derece olarak) ve hipotenüsün boyunu hesaplar:
Sub ExampleCosinus
REM yuvarlanmış Pi = 3.14159
Dim d1 As Double, dAngle As Double
d1 = InputBox("Komşu kenarın boyunu gir: ","Komşu")
dAngle = InputBox("Alfa açısını girin (derece olarak): ","Alpha")
Print "Hipotenüsün uzunluğu"; (d1 / cos (dAngle * Pi / 180))
End Sub