IBM Lotus Symphony
|
Laskee kulman kosinin. Kulma määritetään radiaaneina. Tulos on -1 - 1.
Alpha-kulman avulla Cos-funktio laskee kulman viereisen sivun pituuden suhteen jaettuna hypotenuusan pituudella suorakulmaisessa kolmiossa.
Cos(Alpha) = Viereinen/Hypotenuusa
Cos (Number)
Pitkä liukuluku
Number: Numeerinen lauseke, joka määrittää radiaaneina kulman, jonka kosinin haluat laskea.
Voit muuntaa asteet radiaaneiksi kertomalla asteet arvolla pii/180. Voit muuntaa radiaanit asteiksi kertomalla radiaanit arvolla 180/pii.
aste=(radiaani*180)/pii
radiaani=(aste*pii)/180
Piin arvo on tässä pyöristetty lukuun 3,14159.
REM Seuraava esimerkki käyttää suorakulmaista kolmiota ja syöttää
REM sekantin ja kulman (asteina) sekä laskee hypotenuusan pituuden:
Sub ExampleCosinus
REM pyöristetty pii = 3,14159
Dim d1 as Double, dAngle as Double
d1 = InputBox$ (""Enter the length of the adjacent side: ","Adjacent")
dAngle = InputBox$ ("Enter the angle Alpha (in degrees): ","Alpha")
Print "The length of the hypothenuse is"; (d1 / cos (dAngle * Pi / 180))
End Sub