Section courante

A propos

Section administrative du site

ABS

Valeur absolue
TCL

Syntaxe

abs(n)

Paramètres

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

Retour

Valeur Description
0 ou supérieur Ces valeurs sont les seules pouvant être retourné. La valeur absolue d'un nombre est toujours positive.

Description

Cette fonction retourne la valeur absolue d'un nombre. Ainsi, le signe (négatif), s'il existe, est retiré de façon à conserver uniquement les chiffres du nombre sans toutefois changer sa valeur. Voici un graphique de représentation de la distribution de cette valeur :

Algorithme

MODULE ABS(valeur)
   SI valeur < 0 ALORS
      RETOURNE - valeur
   SINON
      RETOURNE valeur
   FIN SI

Remarques

Exemples

Voici un exemple montrant une utilisation de la valeur absolue avec des parenthèses :

  1. #! /usr/bin/tclsh
  2. puts "Abs(9*(-7))=[expr {abs(9*(-7))}]"

on obtiendra le résultat suivant :

Abs(9*(-7))=63

Voici un exemple montrant une utilisation plus classique de la valeur absolue :

  1. #! /usr/bin/tclsh
  2. puts "Abs(1)=[expr {abs(1)}]"
  3. puts "Abs(-1)=[expr {abs(-1)}]"
  4. puts "Abs(30.2)=[expr {abs(30.2)}]"
  5. puts "Abs(-35.4)=[expr {abs(-35.4)}]"

on obtiendra le résultat suivant :

Abs(1)=1
Abs(-1)=1
Abs(30.2)=30
Abs(-35.4)=35

Voici un exemple montrant la différence de résultats avec la fonction «SGN» :

  1. #! /usr/bin/tclsh
  2. proc sgn {valeur} { 
  3.  if { $valeur < 0 } { 
  4.      return -1 
  5.  }
  6.  if { $valeur == 0 } { 
  7.      return 0 
  8.  }
  9.  return 1
  10. } 
  11.  
  12. puts "abs(1)=[expr {abs(1)}], sgn(1)=[sgn 1]"
  13. puts "abs(-1)=[expr {abs(-1)}], sgn(-1)=[sgn -1]"
  14. puts "abs(0)=[expr {abs(0)}], sgn(0)=[sgn 0]"
  15. puts "abs(5)=[expr {abs(5)}], sgn(5)=[sgn 5]"
  16. puts "abs(10)=[expr {abs(10)}], sgn(10)=[sgn 10]"
  17. puts "abs(-17)=[expr {abs(-17)}], sgn(-17)=[sgn -17]"
  18. puts "abs(27.4)=[expr {abs(27.4)}], sgn(27.4)=[sgn 27.4]"
  19. puts "abs(-12.13)=[expr {abs(-12.13)}], sgn(-12.13)=[sgn -12.13]"

on obtiendra le résultat suivant :

abs(1)= 1, sgn(1)= 1
abs(-1)= 1, sgn(-1)=-1
abs(0)= 0, sgn(0)= 0
abs(5)= 5, sgn(5)= 1
abs(10)= 10, sgn(10)= 1
abs(-17)= 17, sgn(-17)=-1
abs(27.4)= 27.4, sgn(27.4)= 1
abs(-12.13)= 12.13, sgn(-12.13)=-1

Voici un exemple montrant comment effectuer une comparaison avec Abs :

  1. #! /usr/bin/tclsh
  2.  
  3. set A -10
  4. set B 6
  5. if {abs($A) > abs($B)} { puts "|a| > |b|" }
  6. if {abs($A) == abs($B)} { puts "|a| = |b|" }
  7. if {abs($A) < abs($B)} { puts "|a| < |b|" }

on obtiendra le résultat suivant :

|a| > |b|

Voici un exemple montrant comment calculer la distance entre deux nombres à l'aide de la fonction Abs :

  1. #! /usr/bin/tclsh
  2.  
  3. puts "La distance entre -8 et 10 = [expr {abs(-8 - 10)}]"
  4. puts "La distance entre 4 et 8 = [expr {abs(4 - 8)}]"
  5. puts "La distance entre 0 et 5 = [expr {abs(0 - 5)}]"
  6. puts "La distance entre -100 et 100 = [expr {abs(-100 - 100)}]"

on obtiendra le résultat suivant :

La distance entre -8 et 10 = 18
La distance entre 4 et 8 = 4
La distance entre 0 et 5 = 5
La distance entre -100 et 100 = 200

Voici un exemple montrant comment effectuer l'utilisation de la valeur absolue négatif (N_Abs) à l'aide de la fonction Abs :

  1. #! /usr/bin/tclsh
  2.  
  3. proc  N_Abs {X} {
  4.  return 0 - abs($X)
  5. }
  6.  
  7. puts "N_Abs(0)=[N_Abs 0]"
  8. puts "N_Abs(1)=[N_Abs 1]"
  9. puts "N_Abs(2)=[N_Abs 2]"
  10. puts "N_Abs(-1)=[N_Abs -1]"
  11. puts "N_Abs(-2)=[N_Abs -2]"
  12. puts "N_Abs(30.2)=[N_Abs 30.2]"
  13. puts "N_Abs(-35.4)=[N_Abs -35.4]"

on obtiendra le résultat suivant :

N_Abs(0)=0
N_Abs(1)=-1
N_Abs(2)=-2
N_Abs(-1)=-1
N_Abs(-2)=-2
N_Abs(30.2)=-30.2
N_Abs(-35.4)=-35.4

Voici un exemple montrant comment on peut revenir au point de départ en partant des négatif vers les positifs :

  1. #! /usr/bin/tclsh
  2.  
  3. for {set i -5 } {$i <= 5} {incr i} { 
  4.    puts -nonewline "[expr {abs($i)}]"
  5.    if {$i < 5} { puts -nonewline ", " } 
  6. }

on obtiendra le résultat suivant :

5, 4, 3, 2, 1, 0, 1, 2, 3, 4, 5

Voici un exemple montrant comment faire le graphique de la valeur absolue :

  1. #! /usr/bin/tclsh
  2.  
  3. for {set I 7} {$I >= 0} {incr I -1} {
  4.     for {set J 0} {$J < 7-abs($I)} {incr J} { puts -nonewline " " }
  5.     puts -nonewline "*"
  6.     for {set J [expr {-abs($I)}]} {$J <= abs($I)} {incr J} { 
  7.        puts -nonewline [expr {$J==0 ?"|":" "}]
  8.     }
  9.     puts "*"
  10. }
  11. for {set I -8} {$I <= 8} {incr I} {
  12.     puts -nonewline [expr {$I==0?"+":"-"}]
  13. }
  14. puts ""
  15. for {set J 0} {$J >= -7} {incr J -1} {
  16.     for {set I -8} {$I <= 8} {incr I} {
  17.        puts -nonewline [expr {$I==0?"|":" "}]
  18.     }
  19.     puts ""
  20. }

on obtiendra le résultat suivant :

*       |       *
 *      |      *
  *     |     *
   *    |    *
    *   |   *
     *  |  *
      * | *
       *|*
--------+--------
        |        
        |        
        |        
        |        
        |        
        |        
        |        
        |        

Voici un exemple montrant comment faire le graphique de la valeur absolue et la valeur entière :

  1. #! /usr/bin/tclsh
  2.  
  3. for {set I 7} {$I >= 0} {incr I -1} {
  4.     for {set J 0} {$J < 7-abs($I)} {incr J} { puts -nonewline " " }
  5.     puts  -nonewline "+"
  6.     for {set J [expr {-abs($I)}]} {$J <= abs($I)} {incr J} { puts -nonewline [expr {$J==0?"|":" "}]}
  7.     puts "±"
  8. }
  9. for {set I -8} {$I <= 8} {incr I} {
  10.     puts -nonewline [expr {$I == 0?"+":"-"}]
  11. }
  12. puts ""
  13. for {set J 0} {$J >= -7} {incr J -1} {
  14.     for {set I -8} {$I <= 8} {incr I} {
  15.        if {($I + 1 == $J) && ($J <= 0)} { 
  16.        puts -nonewline "-"
  17.        } else { 
  18.           puts -nonewline [expr {$I == 0?"|":" "}] 
  19.        }
  20.     }
  21.     puts ""
  22. }
  23. puts "Legende :"
  24. puts "+ Valeur absolue"
  25. puts "- Valeur entiere"

on obtiendra le résultat suivant :

+       |       ±
 +      |      ±
  +     |     ±
   +    |    ±
    +   |   ±
     +  |  ±
      + | ±
       +|±
--------+--------
       -|        
      - |        
     -  |        
    -   |        
   -    |        
  -     |        
 -      |        
-       |        
Legende :
+ Valeur absolue
- Valeur entiere


Dernière mise à jour : Samedi, le 21 juin 2014