#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A R B R E   A   P R I O R I   B I N A I R E  :                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.TREE.91.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20160210170520).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ArgsArbresIteres         "$K_VIDE"
$Z                                      # Parametre introduit le 20200703162001 afin de pouvoir generer une foret (voir par exemple : #
$Z                                      # 'v $xiirv/TREE.E6.21' a ce propos).                                                         #

$Z                  setParam            _____Iterations               8

$Z                  setParam            _____NBifurcations            2

$Z                  setParam            _____Facteur                  0.7
$Z                                      # Parametre introduit le 20160215120449...                                                    #
$Z                                      #                                                                                             #
$Z                                      # ATTENTION : '$_____Facteur' est aussi defini dans 'v $xiird/.ACIN.Z1.2.$U _____Facteur'...  #

$Z                  setParam            _____Bidimensionnel           VRAI
$Z                                      # Parametre introduit le 20160215120449...                                                    #

$Z                  SETParam            _____Cartesiennes             VRAI
$Z                                      # Parametre introduit le 20160215120449...                                                    #

$Z                  setParam            _____ArgsArbre                "$K_VIDE"
$Z                                      # Parametre introduit le 20160215120449...                                                    #

$Z                  setParam            _____Unique                   $NEXIST
$Z                                      # Parametre introduit le 20200423104726, la valeur par defaut assurant la compatibilite       #
$Z                                      # anterieure a cette date...                                                                  #

$Z                  FilSTmpB            LiStEPoInTs

$Z                  set                 NFeUiLlEs=`calculINS pow($_____NBifurcations,$_____Iterations)`

$Z                  set                 ArGuMeNtS="$K_VIDE"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" iterations=$_____Iterations"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" nbt=$_____NBifurcations"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" facteur=$_____Facteur"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" bidimensionnel=$_____Bidimensionnel"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" cartesiennes=$_____Cartesiennes"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" $_____ArgsArbre"

$Z                  set                 index=1

$Z                  set                 _____ArgsArbresIteres=($_____ArgsArbresIteres)

$Z                  if                  ($#_____ArgsArbresIteres == 0) then
$Z                                      set                 _____ArgsArbresIteres="$K_VIDE"
$Z                  else
$Z                  endif

$Z                  while               ($index <= $#_____ArgsArbresIteres)
$Z                                      # Possibilite introduite le 20200703162001...                                                 #
$Z                                      #                                                                                             #
$Z                                      # On notera que :                                                                             #
$Z                                      #                                                                                             #
$Z                                      #                  foreach    ArGuMeNtS_Iteres ($_____ArgsArbresIteres)                       #
$Z                                      #                             (...)                                                           #
$Z                                      #                  end                                                                        #
$Z                                      #                                                                                             #
$Z                                      # ne marche pas lorsque '$_____ArgsArbresIteres' est "$K_VIDE"...                             #

#20200703162001____:$Z                  $xci/valeurs_Arbre.01$Z                                                                    \  #
#20200703162001____:$Z                                      "$ArGuMeNtS"                                                           \  #
#20200703162001____:$Z                                      $EXIST $EXIST                                                          \  #
#20200703162001____:$Z                                      $_____Unique                                                           \  #
#20200703162001____:$Z                                                          >> $LiStEPoInTs                                       #

$Z                                      set  ArGsArBreSItEreS=`echo $_____ArgsArbresIteres[$index] | $SE -f $xiMoG/MotsClefs.1$vv$sed`
$Z                                      # Afin de traiter les separateurs "/EsPace/"...                                               #

$Z                                      $xci/valeurs_Arbre.01$Z                                                                         \
$Z                                                          "$ArGuMeNtS $ArGsArBreSItEreS"                                              \
$Z                                                          $EXIST $EXIST                                                               \
$Z                                                          $_____Unique                                                                \
$Z                                                                              >> $LiStEPoInTs
$Z
$Z                                      @                   index = $index + 1
$Z                  end

$Z                  if                  ($_____Cartesiennes == VRAI) then
$Z                                      # Test introduit le 20160215120449...                                                         #
$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $GRE                "^X="                                                                 |     \
$Z                                      $SE                 -e "s/^.*=//"                                                               \
$Z                                                                              >  $LiStEPoInTs$COORD_X

$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $GRE                "^Y="                                                                 |     \
$Z                                      $SE                 -e "s/^.*=//"                                                               \
$Z                                                                              >  $LiStEPoInTs$COORD_Y

$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $GRE                "^Z="                                                                 |     \
$Z                                      $SE                 -e "s/^.*=//"                                                               \
$Z                                                                              >  $LiStEPoInTs$COORD_Z

$Z                                      set       NparticulesX=`$CA $LiStEPoInTs$COORD_X | $WCl`
$Z                                      set       NparticulesY=`$CA $LiStEPoInTs$COORD_Y | $WCl`
$Z                                      set       NparticulesZ=`$CA $LiStEPoInTs$COORD_Z | $WCl`
#20220615103353____:$Z                       set       Nparticules_=`$xcg/MAX3.01$X x=$NparticulesX y=$NparticulesY z=$NparticulesZ`  #
$Z                                      set       Nparticules_=`$xcg/MIN3.01$X x=$NparticulesX y=$NparticulesY z=$NparticulesZ`
$Z                  else
$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $GRE                "^R="                                                                 |     \
$Z                                      $SE                 -e "s/^.*=//"                                                               \
$Z                                                                              >  $LiStEPoInTs.RHO_

$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $GRE                "^P="                                                                 |     \
$Z                                      $SE                 -e "s/^.*=//"                                                               \
$Z                                                                              >  $LiStEPoInTs.PHI_

$Z                                      $CA                 $LiStEPoInTs                                                          |     \
$Z                                      $R                  "$K_BLANC" "$K_NL"                                                    |     \
$Z                                      $GRE                "^T="                                                                 |     \
$Z                                      $SE                 -e "s/^.*=//"                                                               \
$Z                                                                              >  $LiStEPoInTs.THETA

$Z                                      set       NparticulesR=`$CA $LiStEPoInTs.RHO_ | $WCl`
$Z                                      set       NparticulesP=`$CA $LiStEPoInTs.PHI_ | $WCl`
$Z                                      set       NparticulesT=`$CA $LiStEPoInTs.THETA | $WCl`
#20220615103353____:$Z                       set       Nparticules_=`$xcg/MAX3.01$X x=$NparticulesR y=$NparticulesP z=$NparticulesT`  #
$Z                                      set       Nparticules_=`$xcg/MIN3.01$X x=$NparticulesR y=$NparticulesP z=$NparticulesT`
$Z                  endif