Functie Cos

Berekent de cosinus van een hoek. De hoek is gespecificeerd in radialen. Het resultaat ligt tussen -1 en 1.

Met behulp van de hoek Alfa berekent de functie Cos de verhouding van de lengte van de zijde die aan de hoek grenst, gedeeld door de lengte van de hypotenusa in een rechthoekige driehoek.

Cos(Alfa) = Adjacent/Hypotenuse

Cos (Getal als Dubbel) als Dubbel

Double

Getal: Numerieke expressie die een hoek in radialen specificeert waaruit de cosinus berekend moet worden.

Om graden naar radialen om te zetten vermenigvuldigt u graden met Pi / 180. Om radialen naar graden om te zetten vermenigvuldigt u radialen met 180 / Pi.

graad=(radiaal*180)/pi

radiaal=(graad*pi)/180

Pi is hier de vaste cirkelconstante met de afgeronde waarde 3.14159...

' Het volgende voorbeeld laat voor een rechthoekige driehoek de invoer toe van
' secans en hoek (in graden) en berekent de lengte van de hypotenusa:
Sub ExampleCosinus
' afgeronde Pi = 3,14159
Dim d1 As Double, dAngle As Double
    d1 = Invoervak("Voer de lengte van de aangrenzende zijde in: ","Aangrenzend")
    dHoek = InputBox("Voer de hoek Alfa (in graden) in: ","Alfa")
    Print "De lengte van de hypotenusa is: "; (d1 / Cos (dHoek * Pi / 180))
End Sub