IBM Lotus Symphony
|
Returnerer en vinkels sinus. Vinklen er angivet i radianer. Resultatet ligger mellem -1 og 1.
Ud fra vinklen Alfa returnerer funktionen Sin forholdet mellem siden over for vinklen og længden på hypotenusen i en retvinklet trekant.
Sin(Alfa) = side over for vinklen/hypotenuse
Sin(Tal)
Double
Tal: Numerisk udtryk, der definerer en vinkel i radianer, for hvilken sinus skal beregnes.
Multiplicér grader med pi/180 for at konvertere grader til radianer, og multiplicér radianer med 180/pi for at konvertere radianer til grader.
grad=(radian*180)/pi
radian=(grad*pi)/180
Pi er ca. 3,141593.
REM I dette eksempel kan følgende indgang angives for en retvinklet trekant:
REM Siden over for vinklen og vinklen (i grader), hvorefter længden på hypotenusen beregnes
Sub EksempelSinus
REM Pi = 3,1415926 er en foruddefineret variabel
Dim d1 As Double
Dim dAlfa As Double
d1 = InputBox$ ("Angiv længden på den modsatte side: ","Modsat side")
dAlfa = InputBox$ ("Angiv vinklen Alfa (i grader):","Alfa")
Print "Længden på hypotenusen er"; (d1 / Sin (dAlfa * Pi / 180))
End Sub