En Perl, il existe déjà une fonction permettant de connaitre l'ArcTangente. Cependant, il peut être intéressant d'en reproduire une pour notre plaisir personnel. Pour remédier à se problème, il suffit de créer une fonction ressemblant à ceci avec un préalable la fonction de racine carré:

#!/usr/bin/perl sub SquareRoot($X) {   my($A,$B,$M,$XN);   if(@_[0]==0.0) {      return 0.0;   } else {      $M=1.0;      $XN=@_[0];      while($XN>=2.0) {         $XN=0.25*$XN;         $M=2.0*$M;      }      while($XN<0.5) {         $XN=4.0*$XN;         $M=0.5*$M;      }      $A=$XN;      $B=1.0-$XN;      do {         $A=$A*(1.0+0.5*$B);         $B=0.25*(3.0+$B)*$B*$B;      } while($B>=1.0E-15);      return $A*$M;   } } sub ArcTan($X) {    my($A,$B,$N);    $A = 1.0 / &SquareRoot(1.0 + (@_[0] * @_[0]));    $B = 1.0;    $N = 1;    while($N<=11) {      $A = ($A + $B) / 2.0;      $B = &SquareRoot($A * $B);      $N++;    }    return @_[0] / (&SquareRoot(1.0 + (@_[0] * @_[0])) * $A); } $R=0.0; while($R<=1.1) {    print "ArcTan(".$R.")=".&ArcTan($R)."\n";    $R+=0.1; }