#######################################################################################################################################
#                                                                                                                                     #
#         P A R A M E T R E S   D E   L A   G E N E R A T I O N   D E S   I M A G E S  :                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000008/face.2/.CHUR.6.13.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinimumR                 0.1

$Z                  setParam            _____FacteurR_C               6.0
$Z                                      # Facteurs destines a creer une difference au niveau des rayons destinee a distinguer plus    #
$Z                                      # aisement les "Churners" des "Non Churners" (en plus de la couleur).                         #

$Z                  setParam            _____FacteurR_NC              1.5
$Z                                      # Facteurs destines a creer une difference au niveau des rayons destinee a distinguer plus    #
$Z                                      # aisement les "Churners" des "Non Churners" (en plus de la couleur).                         #

$Z                  setParam            _____ChurnROUGE               $GRIS_8

$Z                  setParam            _____NonChurnROUGE            $GRIS_6

$Z                  setParam            _____ChurnVERTE               $GRIS_0

$Z                  setParam            _____NonChurnVERTE            $GRIS_8

$Z                  setParam            _____ChurnBLEUE               $GRIS_0

$Z                  setParam            _____NonChurnBLEUE            $GRIS_4

$Z                  $DELETE             $xTV/COORD.1$COORD_X
$Z                  $DELETE             $xTV/COORD.1$COORD_Y
$Z                  $DELETE             $xTV/COORD.1$COORD_Z
$Z                  $DELETE             $xTV/COORD.1.r
$Z                  $DELETE             $xTV/COORD.2.r
$Z                  $DELETE             $xTV/COORD.3.r

$Z                  $GRE                "^derivee_premiere_Y="                                                                          \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^.*=//"                                                                         \
$Z                                                                                                  >   $xTV/COORD.1$COORD_X

$Z                  $GRE                "^chaoticite="                                                                                  \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^.*=//"                                                                         \
$Z                                                                                                  >   $xTV/COORD.1$COORD_Y

$Z                  $GRE                "^aire_signee="                                                                                 \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^.*=//"                                                                         \
$Z                                                                                                  >   $xTV/COORD.1$COORD_Z

$Z                  $GRE                "^indice_global="                                                                               \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^.*=//"                                                                         \
$Z                                                                                                  >   $xTV/COORD.1.r

$Z        set  minimumXYZ=-1.0
$Z        set  maximumXYZ=+1.0

$Z        set  Par="minimum=$minimumXYZ maximum=$maximumXYZ"

$Z        set  FacteurX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1$COORD_X $Par | $GRE "^facteur d'homothetie=" | $SE -e "s/^.*=//"`
$Z        set  TranslaX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1$COORD_X $Par | $GRE "^translation.........=" | $SE -e "s/^.*=//"`
$Z                                      # Pour ramener les coordonnees {X} dans [-1,+1].                                              #

$Z        set  FacteurY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1$COORD_Y $Par | $GRE "^facteur d'homothetie=" | $SE -e "s/^.*=//"`
$Z        set  TranslaY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1$COORD_Y $Par | $GRE "^translation.........=" | $SE -e "s/^.*=//"`
$Z                                      # Pour ramener les coordonnees {Y} dans [-1,+1].                                              #

$Z        set  FacteurZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1$COORD_Z $Par | $GRE "^facteur d'homothetie=" | $SE -e "s/^.*=//"`
$Z        set  TranslaZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1$COORD_Z $Par | $GRE "^translation.........=" | $SE -e "s/^.*=//"`
$Z                                      # Pour ramener les coordonnees {Z} dans [-1,+1].                                              #

$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/COORD.1$COORD_X                                                                    \
$Z                                      homothetie=$FacteurX translation=$TranslaX                                                      \
$Z                                                                                                  >   $xTV/COORDONNEES$COORD_X

$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/COORD.1$COORD_Y                                                                    \
$Z                                      homothetie=$FacteurY translation=$TranslaY                                                      \
$Z                                                                                                  >   $xTV/COORDONNEES$COORD_Y

$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/COORD.1$COORD_Z                                                                    \
$Z                                      homothetie=$FacteurZ translation=$TranslaZ                                                      \
$Z                                                                                                  >   $xTV/COORDONNEES$COORD_Z

$Z        set  minimumR=$_____MinimumR
$Z        set  maximumR=+1.0

$Z        set  Par="minimum=$minimumR maximum=$maximumR"

$Z        set  FacteurR=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1.r $Par | $GRE "^facteur d'homothetie=" | $SE -e "s/^.*=//"`
$Z        set  TranslaR=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORD.1.r $Par | $GRE "^translation.........=" | $SE -e "s/^.*=//"`
$Z                                      # Pour ramener les rayons dans [0+epsilon,+1].                                                #

$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/COORD.1.r                                                                          \
$Z                                      homothetie=$FacteurR translation=$TranslaR                                                      \
$Z                                                                                                  >   $xTV/COORD.2.r

$Z                  $GRE                "^titre="                                                                                       \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^titre=.*+churn=//"                                                             \
$Z                                                -e "s/^$EXIST"'$'"/$_____FacteurR_C/"                                                 \
$Z                                                -e "s/^$NEXIST"'$'"/$_____FacteurR_NC/"                                               \
$Z                                                                                                  >   $xTV/COORD.3.r

$Z                  $xrv/MUL2.11$X      ne=0                                                                                            \
$Z                                      fichier1=$xTV/COORD.2.r                                                                         \
$Z                                      fichier2=$xTV/COORD.3.r                                                                         \
$Z                                                                                                  >   $xTV/COORDONNEES.r

$Z                  $GRE                "^titre="                                                                                       \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^titre=.*+churn=//"                                                             \
$Z                                                -e "s/^$EXIST"'$'"/$_____ChurnROUGE/"                                                 \
$Z                                                -e "s/^$NEXIST"'$'"/$_____NonChurnROUGE/"                                             \
$Z                                                                                                  >   $xTV/COULEURS$ROUGE
$Z                  $GRE                "^titre="                                                                                       \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^titre=.*+churn=//"                                                             \
$Z                                                -e "s/^$EXIST"'$'"/$_____ChurnVERTE/"                                                 \
$Z                                                -e "s/^$NEXIST"'$'"/$_____NonChurnVERTE/"                                             \
$Z                                                                                                  >   $xTV/COULEURS$VERTE
$Z                  $GRE                "^titre="                                                                                       \
$Z                                      $Fanalyse                                                                                       \
$Z                                      | $SE     -e "s/^titre=.*+churn=//"                                                             \
$Z                                                -e "s/^$EXIST"'$'"/$_____ChurnBLEUE/"                                                 \
$Z                                                -e "s/^$NEXIST"'$'"/$_____NonChurnBLEUE/"                                             \
$Z                                                                                                  >   $xTV/COULEURS$BLEUE

$Z                  $DELETE             $xTV/COORD.1$COORD_X
$Z                  $DELETE             $xTV/COORD.1$COORD_Y
$Z                  $DELETE             $xTV/COORD.1$COORD_Z
$Z                  $DELETE             $xTV/COORD.1.r
$Z                  $DELETE             $xTV/COORD.2.r
$Z                  $DELETE             $xTV/COORD.3.r