#######################################################################################################################################
#                                                                                                                                     #
#         F O N C T I O N   D E   L I O U V I L L E   V I S U A L I S E E                                                             #
#         T E L   U N   M O U V E M E N T   B R O W N I E N  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRIM.81.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20100103165743).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        SETParam            _____NoLiouville              $NEXIST
$Z                                      # Introduit le 20100104210641...                                                              #

$Z        setParam            _____Multiplicite             `GetParam $xci/valeurs_prem$X multiplicite_diviseurs_premiers`
$Z                                      # Introduit le 20100110140939...                                                              #

$Z                  if                  ($_____NoLiouville == $NEXIST) then
$Z                                      $xci/valeurs_prem$X                                                                             \
$Z                                                          premiere=$PremierNombre                                                     \
$Z                                                          derniere=$DernierNombre                                                     \
$Z                                                          editer_nombres=FAUX                                                         \
$Z                                                          editer_diviseurs=FAUX                                                       \
$Z                                                          fonction_Liouville=VRAI                                                     \
$Z                                                          diviseurs_premiers=VRAI                                                     \
$Z                                                          multiplicite_diviseurs_premiers=$_____Multiplicite                          \
$Z                                                                                                            >   $xTV/LIOUVILLE
$Z                  else
$Z                                      $xrv/neutre$X                                                                                   \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$_____NoLiouville                                                   \
$Z                                                                                                            >   $xTV/LIOUVILLE
$Z                                      # Introduit le 20100104210641 afin de disposer d'une source differente...                     #
$Z                  endif