IBM Lotus Symphony


Funktionen Cos [Runtime]

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

Syntaks:

Cos (Tal)

Returværdi:

Double

Parametre:

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.

Fejlkoder

5 Ugyldigt procedurekald

Eksempel:

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


Produktfeedback | Yderligere dokumentation | Varemærker