Accueil de Gladir.com Notes légales de Gladir.com Flux RSS des nouvelles du site Gladir.com - Langage de programmation - Perl - Sqrt (Racine carré) Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

Bien qu'en Perl, il existe une fonction «Sqrt» permettant de calculer la racine carré, il peut quand même être amusant d'effectuer se genre de calcul nous même. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci :

  1. #!/usr/bin/perl
  2.  
  3. sub SquareRoot() {
  4.   my($X) = @_;
  5.   if($X==0.0) {
  6.      return 0.0;
  7.   } else {
  8.      $M=1.0;
  9.      $XN=$X;
  10.      while($XN>=2.0) {
  11.         $XN=0.25*$XN;
  12.         $M=2.0*$M;
  13.      }
  14.      while($XN<0.5) {
  15.         $XN=4.0*$XN;
  16.         $M=0.5*$M;
  17.      }
  18.      $A=$XN;
  19.      $B=1.0-$XN;
  20.      do {
  21.         $A=$A*(1.0+0.5*$B);
  22.         $B=0.25*(3.0+$B)*$B*$B;
  23.      } while($B>=1.0E-15);
  24.      return $A*$M;
  25.   }
  26. }
  27.  
  28. $R=2.0;
  29. while($R<=1000.0) {
  30.     print "Sqrt(".$R.")=".&SquareRoot($R)."\n";
  31.     $R*=$R;
  32. }

on obtiendra le résultat suivant :

Sqrt(2)= 1.41421 1.41421
Sqrt(4)= 2.0000 2.0000
Sqrt(16)= 4.0000 4.0000
Sqrt(256)= 16.0000 16.0000


Voir également

Science - Mathématique

Dernière mise à jour: Mardi, le 3 janvier 2012