Cos-funktion
Beregner cosinus af en vinkel. Vinklen er angivet i radianer. Resultatet ligger mellem -1 og 1.
Ved brug af vinklen Alfa beregner Cos-funktionen forholdet mellem sidelængden der er tilstødende til vinklen, divideret med længden af hypotenusen i en retvinklet trekant.
COS(Alpha) = Tilstødende/Hypotenuse
Syntaks:
Cos (Tal)
Returværdi:
Double
Parametre:
Tal: Numerisk udtryk der specificerer en vinkel i radianer som du vil beregne cosinus til.
For at konvertere grader til radianer, gang grader med pi/180. For at konvertere radianer til grader, gang radianer med 180/pi.
grad=(radian*180)/pi
radian=(grad*pi)/180
Her er Pi den faste cirkelkonstant med den afrundede værdi 3,14159...
Eksempel:
REM Følgende eksempel tillader, for en retvinklet trekant, indtastningen af
REM sekant og vinkel (i grader) og beregner længden af hypotenusen:
Sub ExampleCosinus
REM afrundet Pi = 3,14159
Dim d1 As Double, dAngle As Double
d1 = InputBox("Angiv længden af den tilstødende side: ","Tilstødende")
dAngle = InputBox("Angiv vinklen Alfa (i grader): ","Alfa")
Print "Længden af hypotenusen er"; (d1 / Cos (dAngle * PI / 180))
End Sub