#######################################################################################################################################
#                                                                                                                                     #
#         A D A P A T A T I O N   D U   D E B I T   D E S   I M A G E S   A U   T E M P S   R E E L                                   #
#         B A S E E   S U R   L A   M O Y E N N E   D E S   P A S   D E   T E M P S   D ' U N E   I M A G E                           #
#         G E N E R A T E U R   D E   C O T E S   B I D I M E N S I O N N E L L E S   E T   " E T C H I N G "  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.ETC2.61.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Normaliser               FAUX

$Z                  setParam            _____Critere                  "moyenne_Y"

$Z                  setParam            _____AFonctionDT              0

$Z                  setParam            _____ALogFonctionDT           1

$Z                  setParam            _____BFonctionDT              -7

$Z                  set                 Numero=$Premiere

$Z                  set                 Liste=`$xci/nombres$X A="$K_VIDE" premiere=$Premiere derniere=$Derniere`

$Z                  foreach             NumeroA   ($Liste)
$Z                                      set       FileDT=`GetXTmp "$K_VIDE" "$K_VIDE" $xTV`
$Z
$Z                                      $CA       $_____Fnombres                                                                  |     \
$Z                                      $GRE      "image $NumeroA "                                                               |     \
$Z                                      $SE       -e "s/^.* PasDeTemps=//"                                                              \
$Z                                                -e 's/ .*$//'                                                                         \
$Z                                                                                                            > $FileDT
$Z
$Z                                      SIZE      $FileDT
$Z
$Z                                      if        ($Fsize > 0) then
$Z                                                set       FileDTN=`GetXTmp "$K_VIDE" "$K_VIDE" $xTV`
$Z
$Z                                                $xrv/normalise.01$X                                                                   \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$FileDT                                                             \
$Z                                                          normaliser=$_____Normaliser                                                 \
$Z                                                                                                                      > $FileDTN
$Z
$Z                                                set       Parametres="valeurs=VRAI variations=FAUX conclusion=FAUX graphe=FAUX"
$Z
$Z        set       FonctionDT=`$xrv/variation.01$X ne=0 fichierY=$FileDTN $Parametres | $GRE "^$_____Critere="`
$Z                                                set       FonctionDT=`echo $FonctionDT | $SE -e "s/^.*=//"`
$Z
$Z        set       Duplication=`calcul (($_____AFonctionDT*$FonctionDT) + ($_____ALogFonctionDT*log($FonctionDT)) + $_____BFonctionDT)`
$Z                                                set       Duplication=`$xcg/MAX2.01$X a=$Duplication b=1 entier=VRAI signe="$K_VIDE"`
$Z
$Z                                                $DELETE   $FileDTN
$Z                                      else
$Z                                                set       Duplication=1
$Z                                      # En general cas de la premiere image (qui montre les conditions initiales...).               #
$Z                                      endif
$Z
$Z                                      $DELETE   $FileDT
$Z
$Z                                      set       Compteur=$Duplication
$Z
$Z                                      while     ($Compteur > 0)
$Z                                                set       NumeroR=`$xci/nombres$X A="$K_VIDE" premiere=$Numero derniere=$Numero`
$Z
$Z                                                $xci/neutre$X                                                                         \
$Z                                                          A=$_____imagesA.$NumeroA                                                    \
$Z                                                          R=$_____images.$NumeroR                                                     \
$Z                                                                                                                      $formatI
$Z
$Z                                                @         Numero = $Numero + 1
$Z                                                @         Compteur = $Compteur - 1
$Z                                      end
$Z                  end

$Z                  @                   Derniere = $Numero - 1