Section courante

A propos

Section administrative du site

ATAN

 ArcTangente
Perl
 POSIX

Syntaxe

sub POSIX::atan($expression);

Paramètres

Nom Description
$expression Ce paramètre permet d'indiquer l'expression contenant le nombre à traiter

Description

Cette fonction trigonométrique retourne l'«ArcTangente».

Algorithme

MODULE SQRT(X)
   SI X = 0.0 ALORS
      RETOURNE 0.0
   SINON
      M ← 1.0
      XN ← X
      BOUCLE FAIRE TANT QUE XN >= 2.0
         XN ← 0.25 x XN
         M ← 2.0 x M
      FIN BOUCLE FAIRE TANT QUE
      BOUCLE FAIRE TANT QUE XN < 0.5
         XN ← 4.0 x XN
         M ← 0.5 x M
      FIN BOUCLE FAIRE TANT QUE
      A ← XN
      B ← 1.0 - XN
      BOUCLE REPETER
         A ← A x (1.0 + 0.5 x B)
         B ← 0.25 x (3.0 + B) x B x B
      FIN BOUCLE JUSQU'A B ← 1.0E - 15
      RETOURNE A x M
   FIN SI

MODULE POSIX::ATAN(X)
   A ← 1.0 / SQRT(1.0 + (X x X))
   B ← 1.0
   BOUCLE POUR N ← 1 JUSQU'A 11
      A ← (A + B) / 2.0
      B ← SQRT(A x B)
   FIN BOUCLE POUR
   RETOURNE X / (SQRT(1.0 + (X x X)) x A)

Exemple

Voici un exemple permet d'afficher les ArcTangente inférieurs à 1 :

  1. #!/usr/bin/perl
  2.  
  3. use POSIX;
  4.  
  5. $R=0.0;
  6. while($R <= 1.0) {
  7.    print "ArcTan(".$R.")=".POSIX::atan($R)."\n";
  8.    $R+=0.1;
  9. }

on obtiendra le résultat suivant :

ArcTan(0)=0
ArcTan(0.1)=0.099668652491162
ArcTan(0.2)=0.197395559849881
ArcTan(0.3)=0.291456794477867
ArcTan(0.4)=0.380506377112365
ArcTan(0.5)=0.463647609000806
ArcTan(0.6)=0.540419500270584
ArcTan(0.7)=0.610725964389209
ArcTan(0.8)=0.674740942223553
ArcTan(0.9)=0.732815101786507
ArcTan(1)=0.785398163397448

Voir également

Langage de programmation - Fonction C pour Linux - atan

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