IBM Lotus Symphony
|
Beregner cosinus til en vinkel. Vinkelen angis i radianer. Resultatet ligger mellom -1 og 1.
Ved hjelp av vinkelen Alpha beregner Cos-funksjonen forholdet mellom lengden av siden nærmest vinkelen og lengden på hypotenusen i en rettvinklet trekant.
Cos(Alpha) = Tilstøtende/Hypotenus
Cos (tall)
Dobbel
Tall: Numerisk uttrykk som spesifiserer en vinkel i radianer som du vil beregne cosinus for.
For å konvertere grader til radianer må du multiplisere grader med pi/180. For å konvertere radianer til grader må du multiplisere radianer med 180/pi.
grader=(radian*180)/pi
radian=(grader*pi)/180
Pi er her den faste sirkelkonstanten med avrundet verdi 3,14159...
REM Det følgende eksempelet tillater for en rettvinklet trekant angivelse av
REM sekant og vinkel (i grader) og beregner lengden av hypotenusen:
Sub ExampleCosinus
REM avrundet Pi = 3,14159
Dim d1 as Double, dAngle as Double
d1 = InputBox$ (""Angi lengden på tilstøtende side: ","Tilstøtende")
dAngle = InputBox$ ("Angi vinkelen Alpha (i grader): ","Alpha")
Print "Lengden på hypotenusen er"; (d1 / cos (dAngle * Pi / 180))
End Sub