Section courante

A propos

Section administrative du site

COS

 Cosinus
Perl
 POSIX

Syntaxe

sub POSIX::cos($expression);

Paramètres

Nom Description
$expression Ce paramètre permet d'indiquer une expression représentant un nombre à traiter

Description

Cette fonction trigonométrique retourne le «Cosinus».

Algorithme

MODULE POSIX::COS(X)
   R ← X x X
   S ← 42.0
   BOUCLE POUR I ← 10 JUSQU'A 1
      S ← 4.0 x I - 2.0 + (-R) / S
   FIN BOUCLE POUR
   S ← S x S
   RETOURNE (S - R) / (S + R)

Exemple

Voici un exemple permet d'afficher les Cosinus inférieurs à π :

  1. #!/usr/bin/perl
  2.      
  3. use strict;
  4. use Math::Trig;
  5. use POSIX; 
  6.  
  7. my $I = 0;
  8. while($I < pi) {
  9.     print "Cosinus " . $I . " ". POSIX::cos($I) . "\n";
  10.     $I += 0.1;
  11. }

on obtiendra le résultat suivant :

Cosinus 0 1
Cosinus 0.1 0.9950041652780258
Cosinus 0.2 0.9800665778412416
Cosinus 0.3 0.955336489125606
Cosinus 0.4 0.9210609940028851
Cosinus 0.5 0.8775825618903728
Cosinus 0.6 0.8253356149096783
Cosinus 0.7 0.7648421872844885
Cosinus 0.8 0.6967067093471655
Cosinus 0.9 0.6216099682706645
Cosinus 1.0 0.5403023058681398
Cosinus 1.1 0.4535961214255775
Cosinus 1.2 0.3623577544766736
Cosinus 1.3 0.26749882862458735
Cosinus 1.4 0.16996714290024081
Cosinus 1.5 0.07073720166770268
Cosinus 1.6 -0.029199522301289037
Cosinus 1.7 -0.12884449429552508
Cosinus 1.8 -0.22720209469308753
Cosinus 1.9 -0.32328956686350396
Cosinus 2.0 -0.4161468365471428
Cosinus 2.1 -0.5048461045998579
Cosinus 2.2 -0.5885011172553463
Cosinus 2.3 -0.6662760212798248
Cosinus 2.4 -0.737393715541246
Cosinus 2.5 -0.8011436155469343
Cosinus 2.6 -0.8568887533689478
Cosinus 2.7 -0.9040721420170617
Cosinus 2.8 -0.9422223406686585
Cosinus 2.9 -0.9709581651495908
Cosinus 3.0 -0.9899924966004456
Cosinus 3.1 -0.9991351502732795

Voir également

Langage de programmation - Perl - Référence de procédures et fonctions - cos
Langage de programmation - Fonction C pour Linux - cos

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