Section courante

A propos

Section administrative du site

LOG10

 Logarithme 10
Fortran

Syntaxe

FUNCTION LOG10(n)

Paramètres

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

Description

Cette fonction retourne le logarithme de la base 10.

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 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
      x ← x / 10.0
      ajout ← ajout + 2.302585092994046
   FIN BOUCLE FAIRE TANT QUE
   BOUCLE FAIRE TANT QUE x >= 1.1
      x ← SQRT(x)
      fois ← fois x 2
   FIN BOUCLE FAIRE TANT QUE
   x ← x - 1
   savx ← x
   i ← 2
   xp ← x x x
   quotient ← (xp / i)
   dl ← x - quotient
   BOUCLE FAIRE TANT QUE 1.0E-15 ← quotient
      i ← i + 1
      xp ← xp x x
      dl ← dl + (xp / i)
      i ← i + 1
      xp ← xp x x
      quotient ← (xp / i)
      dl ← dl - quotient
   FIN BOUCLE FAIRE TANT QUE
   dl ← dl x fois
   dl ← dl + ajout
   SI negatif ALORS
      dl ← -dl
   FIN SI
   RETOURNE dl

MODULE LOG10(DansNombre)
   RETOURNE LOG(DansNombre) / 2,3025850930

Exemple

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

  1. PROGRAM log10samples
  2.     REAL I
  3.     I = 0.1
  4.     DO WHILE (I <= 2.0)
  5.         PRINT'(a, f7.5, a, f7.5)', 'LOG10(', I, ')=', log10(I)
  6.         I = I + 0.1
  7.     END DO
  8. END

on obtiendra le résultat suivant :

LOG10(0.10000)=*******
LOG10(0.20000)=-.69897
LOG10(0.30000)=-.52288
LOG10(0.40000)=-.39794
LOG10(0.50000)=-.30103
LOG10(0.60000)=-.22185
LOG10(0.70000)=-.15490
LOG10(0.80000)=-.09691
LOG10(0.90000)=-.04576
LOG10(1.00000)=0.00000
LOG10(1.10000)=0.04139
LOG10(1.20000)=0.07918
LOG10(1.30000)=0.11394
LOG10(1.40000)=0.14613
LOG10(1.50000)=0.17609
LOG10(1.60000)=0.20412
LOG10(1.70000)=0.23045
LOG10(1.80000)=0.25527
LOG10(1.90000)=0.27875

Dernière mise à jour : Dimanche, le 23 novembre 2014