Cos Function

Angelu baten kosinua kalkulatzen du. Angelua radianetan zehazten da. Emaitza -1 eta 1 artekoa da.

Using the angle Alpha, the Cos function calculates the ratio of the length of the side that is adjacent to the angle, divided by the length of the hypotenuse in a right-angled triangle.

Cos(Alpha) = Adjacent/Hypotenuse

Sintaxia:


Cos (Number As Double) As Double

Itzulera-balioa:

Double

Parametroak:

Zenbakia: kosinua kalkulatu behar zaion angelua radianetan zehazten duen zenbakizko adierazpena.

Graduak radian bihurtzeko, egin graduak bider Pi/180. Radianak gradu bihurtzeko, egin radianak bider 180/Pi.

graduak=(radianak*180)/pi

radianak=(graduak*pi)/180

Pi is here the fixed circle constant with the rounded value 3.14159...

Errore-kodeak:

5 Prozedura-deia ez baliozkoa

Adibidea:


' Ondorengo adibidean, triangelu angeluzuzen baten sekantea eta angelua
' (gradutan) sartu eta hipotenusaren luzera kalkulatzen da:
Sub ExampleCosinus
' Pi biribildua = 3,14159
Dim d1 As Double, dAngle As Double
    d1 = InputBox$ (""Sartu alboko aldearen luzera: ","Albokoa")
    dAngelua = InputBox("Sartu Alfa angelua (gradutan): ","Alfa")
    Print "Hipotenusaren luzera:"; (d1 / cos (dAngelua * Pi / 180))
End Sub