Section courante

A propos

Section administrative du site

En LotusScript, il existe déjà une fonction permettant de connaitre le Cosinus. Cependant, il peut être intéressant d'en reproduire une pour notre plaisir personnel :

  1. Function Cosinus(X As Double) As Double
  2.      Dim R,S,I As Double
  3.      R=X*X
  4.      S=42.0
  5.      For I=10 To 1 Step -1
  6.           S=4.0*I-2.0+(-R)/S
  7.      Next
  8.      S=S*S
  9.      Cosinus=(S-R)/(S+R)
  10. End Function
  11.  
  12. Sub Main()
  13.      Dim I As Double
  14.      I=0
  15.      Do While I<Pi
  16.           Print "Cosinus " & Str$(I) & " " & Str$(Cos(I)) & " " & Str$(Cosinus(I))
  17.           I=I+0.1
  18.      Loop 
  19. End Sub

on obtiendra le résultat suivant :

Cosinus .9 .621609968270665 .621609968270665
Cosinus 1 .54030230586814 .54030230586814
Cosinus 1.1 .453596121425577 .453596121425577
Cosinus 1.2 .362357754476674 .362357754476674
Cosinus 1.3 .267498828624587 .267498828624587
Cosinus 1.4 .169967142900241 .169967142900241
Cosinus 1.5 7.07372016677027E-02 7.07372016677026E-02
Cosinus 1.6 -2.9199522301289E-02 -2.9199522301289E-02
Cosinus 1.7 -.128844494295525 -.128844494295525
Cosinus 1.8 -.227202094693088 -.227202094693088
Cosinus 1.9 -.323289566863504 -.323289566863504
Cosinus 2 -.416146836547143 -.416146836547143
Cosinus 2.1 -.504846104599858 -.504846104599858
Cosinus 2.2 -.588501117255346 -.588501117255346
Cosinus 2.3 -.666276021279825 -.666276021279825
Cosinus 2.4 -.737393715541246 -.737393715541246
Cosinus 2.5 -.801143615546934 -.801143615546934
Cosinus 2.6 -.856888753368948 -.856888753368948
Cosinus 2.7 -.904072142017062 -.904072142017062
Cosinus 2.8 -.942222340668659 -.942222340668659
Cosinus 2.9 -.970958165149591 -.970958165149591
Cosinus 3 -.989992496600446 -.989992496600446
Cosinus 3.1 -.999135150273279 -.999135150273279


Dernière mise à jour : Dimanche, le 18 janvier 2015