LibreOffice 25.2 Hjelp
Reknar ut cosinus for ein vinkel. Vinkelen er oppgjeve i radianar. Resultatet er mellom -1 og 1.
Ved å bruka vinkelen Alfa reknar Cos-funksjonen ut forholdet mellom lengda på den hosliggjande sida til vinkelen dividert med lengda på hypotenusen i ein rettvinkla trekant.
Cos(alfa) = hosliggjande/hypotenus
Cos (Tal som Double) som Double
Double
Tal: Numerisk uttrykk som viser vinkelen (i radianar) som du vil rekna ut cosinus for.
For å gjere grader om til radianar, multipliser gradene med pi/180. For å gjere om radianar til grader, multipliser radianane med 180/pi.
grader=(radianar*180)/pi
radian=(grad*pi)/180
Pi er her den faste sirkelkonstanten avrunda til 3,14159…
' Det neste eksempelet viser korleis du kan setja inn sekant og vinkel (i grader)
'og slik rekna ut lengda på hypotenusen i ein rettvinkla trekant:
Sub ExampleCosinus
' Avrunda Pi = 3,14159
Dim d1 As Double, dAngle As Double
d1 = InputBox$ ("Skriv inn lengda på den hosliggjande sida: ","Hosliggjande")
dAngle = InputBox$ ("Skriv inn vinkelen Alfa (i grader): ","Alfa")
Print "Lengda på hypotenusen er"; (d1 / cos (dAngle * Pi / 180))
End Sub