Section courante

A propos

Section administrative du site

LOG

Logarithme
PL/1

Syntaxe

Y=LOG(X);

Paramètres

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

Description

Cette fonction retourne le logarithme naturel (base e).

Algorithme

MODULE SQRT(X)
   SI X = 0.0 ALORS
      RETOURNE 0.0
   SINON
      M ← 1.0
      XNX
      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
      AXN
      B ← 1.0 - XN
      BOUCLE REPETER
         AA 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 LOG(x)
   negatif ← faux
   fois ← 1
   ajout ← 0
   SI x <= 0.0 ALORS
      RETOURNE 0
   FIN SI
   SI x < 1.0 ALORS
      negatif ← vrai
      x ← 1.0 / x
   FIN SI
   BOUCLE FAIRE TANT QUE x >= 10.0
      xx / 10.0
      ajoutajout + 2.302585092994046
   FIN BOUCLE FAIRE TANT QUE
   BOUCLE FAIRE TANT QUE x >= 1.1
      x ← SQRT(x)
      foisfois x 2
   FIN BOUCLE FAIRE TANT QUE
   xx - 1
   savxx
   i ← 2
   xpx x x
   quotient ← (xp / i)
   dlx - quotient
   BOUCLE FAIRE TANT QUE 1.0E-15 ← quotient
      ii + 1
      xpxp x x
      dldl + (xp / i)
      ii + 1
      xpxp x x
      quotient ← (xp / i)
      dldl - quotient
   FIN BOUCLE FAIRE TANT QUE
   dldl x fois
   dldl + ajout
   SI negatif ALORS
      dl ← -dl
   FIN SI
   RETOURNE dl

Exemple

Voici un exemple permettant d'afficher le logarithme inférieurs à 2 :

  1.  Corps: PROC options(main);
  2.       DECLARE (I) float;
  3.       DO I = 0.1 TO 2.0 BY 0.1;
  4.         display('LOG(' || I || ')=' || log(I));
  5.       END;
  6.  END Corps;

on obtiendra le résultat suivant :

LOG( 1.00000E-0001)=-2.30259E+0000
LOG( 2.00000E-0001)=-1.60944E+0000
LOG( 3.00000E-0001)=-1.20397E+0000
LOG( 4.00000E-0001)=-9.16291E-0001
LOG( 5.00000E-0001)=-6.93147E-0001
LOG( 6.00000E-0001)=-5.10826E-0001
LOG( 7.00000E-0001)=-3.56675E-0001
LOG( 8.00000E-0001)=-2.23143E-0001
LOG( 9.00000E-0001)=-1.05360E-0001
LOG( 1.00000E+0000)= 1.19209E-0007
LOG( 1.10000E+0000)= 9.53103E-0002
LOG( 1.20000E+0000)= 1.82322E-0001
LOG( 1.30000E+0000)= 2.62364E-0001
LOG( 1.40000E+0000)= 3.36472E-0001
LOG( 1.50000E+0000)= 4.05465E-0001
LOG( 1.60000E+0000)= 4.70004E-0001
LOG( 1.70000E+0000)= 5.30628E-0001
LOG( 1.80000E+0000)= 5.87787E-0001
LOG( 1.90000E+0000)= 6.41854E-0001


Dernière mise à jour : Lundi, le 13 octobre 2014