LibreOffice 7.1 Hjælp
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
Cos (Tal)
Double
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...
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