IBM Lotus Symphony
|
Beregner en vinkels cosinus. Vinklen er angivet i radianer. Resultatet ligger mellem -1 og 1.
Ud fra vinklen Alfa beregner funktionen Cos forholdet mellem på den side, der støder op til vinklen, og længden på hypotenusen i en retvinklet trekant.
Cos(Alfa) = Tilstødende side/Hypotenuse
Cos (Tal)
Double
Tal: Numerisk udtryk, der angiver en vinkel i radianer, for hvilken cosinus skal beregnes.
Multiplicér grader med pi/180, hvis du vil konvertere grader til radianer. Multiplicér radianer med 180/pi, hvis du vil konvertere radianer til grader.
grad=(radian*180)/pi
radian=(grad*pi)/180
Pi er her den faste cirkelkonstant med den afrundede værdi 3,14159.
REM I følgende eksempel for en retvinklet trekant modtages værdier for
REM sekant og vinkel (i grader), og længden på hypotenusen beregnes
Sub EksempelCosinus
REM afrundet Pi = 3,14159
Dim d1 as Double, dVinkel as Double
d1 = InputBox$ (""Angiv længden på den tilstødende side: ","Tilstødende")
dVinkel = InputBox$ ("Angiv vinklen Alfa (i grader):","Alfa")
Print "Længden på hypothenusen er"; (d1 / Cos (dVinkel * Pi / 180))
End Sub