Section courante

A propos

Section administrative du site

ATAN

 ArcTangante
PL/1

Syntaxe

Y=ATAN(X);

Paramètres

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

Description

Cette fonction trigonométrique permet de connaitre l'«ArcTangente» en radians.

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 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.  Corps: PROC options(main);  
  2.      DECLARE (R) float;
  3.      R = 0.0;
  4.      DO WHILE (R < 1.1);
  5.         display('ArcTan(' || R || ')=' || atan(R));
  6.         R = R + 0.1;
  7.      END;
  8.  END Corps;

on obtiendra le résultat suivant :

ArcTan( 0.00000E+0000)= 0.00000E+0000
ArcTan( 1.00000E-0001)= 9.96687E-0002
ArcTan( 2.00000E-0001)= 1.97396E-0001
ArcTan( 3.00000E-0001)= 2.91457E-0001
ArcTan( 4.00000E-0001)= 3.80506E-0001
ArcTan( 5.00000E-0001)= 4.63648E-0001
ArcTan( 6.00000E-0001)= 5.40420E-0001
ArcTan( 7.00000E-0001)= 6.10726E-0001
ArcTan( 8.00000E-0001)= 6.74741E-0001
ArcTan( 9.00000E-0001)= 7.32815E-0001
ArcTan( 1.00000E+0000)= 7.85398E-0001

Dernière mise à jour : Dimanche, le 12 octobre 2014