#######################################################################################################################################
#                                                                                                                                     #
#         D I S P O S I T I O N   " H A R M O N I E U S E "   D E   P O I N T S   S U R   U N E   S P H E R E                         #
#         A V E C   V I S U A L I S A T I O N   D E   L A   S P H E R E  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PSPH.41.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20080228120238).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Rayon                    1.0

$Z                  setParam            _____NPoints                  8

$Z                  setParam            _____NIterations              100000

$Z                  setParam            _____pdi                      `GetParam $xrv/optimise.02$X pdi`

$Z                  setParam            _____pdf                      `GetParam $xrv/optimise.02$X pdf`

$Z                  setParam            _____tdi                      `GetParam $xrv/optimise.02$X tdi`

$Z                  setParam            _____tdf                      `GetParam $xrv/optimise.02$X tdf`

$Z                  setParam            _____OCubique                 `GetParam $xrv/optimise.02$X interpolation_cubique`

$Z                  setParam            _____NVoisins                 3

$Z                  setParam            _____Aleatoire                VRAI

$Z                  setParam            _____Mauvais                  FAUX

$Z                  setParam            _____NPerturbations           3

$Z                  setParam            _____Zoom                     0.9

$Z                  setParam            _____RotationOX               0

$Z                  setParam            _____RotationOY               0

$Z                  setParam            _____RotationOZ               0

$Z                  setParam            _____Grossissement            `GetParam $xrv/particule.10$X grossissement`

$Z                  setParam            _____DepthCueing              1.0

$Z                  setParam            _____RayonP                   0.02

$Z                  setParam            _____CouleurPR                $GRIS_8

$Z                  setParam            _____CouleurPV                $GRIS_8

$Z                  setParam            _____CouleurPB                $GRIS_8

$Z                  setParam            _____RayonS                   0.01

$Z                  setParam            _____CouleurSR                $GRIS_8

$Z                  setParam            _____CouleurSV                $GRIS_5

$Z                  setParam            _____CouleurSB                $GRIS_0

$Z                  $DELETE             $xTV/COORDONNEES

$Z                  set                 Probabilite=`calcul 1.6/$_____NPoints`
$Z                                      # Le parametre '1.6' a ete obtenu experimentalement afin d'obtenir pour 'v $xiirs/PSPH.11',   #
$Z                                      # l'apparence d'un ruban de 4 faces a 4 cotes, reunies par 2 ensembles de 2 faces a 3 cotes.  #

$Z                  $xrv/optimise.02$X                                                                                                  \
$Z                                      ne=$_____NPoints                                                                                \
$Z                                      LISTE_RHO=$_____Rayon                                                                           \
$Z                                      choix_points_aleatoire=$_____Aleatoire                                                          \
$Z                                      plus_mauvais_point=$_____Mauvais                                                                \
$Z                                      nombre_points_a_perturber=$_____NPerturbations                                                  \
$Z                                      ppp=$Probabilite                                                                                \
$Z                                      pdi=$_____pdi pdf=$_____pdf                                                                     \
$Z                                      pdi=$_____pdi pdf=$_____pdf                                                                     \
$Z                                      interpolation_cubique=$_____OCubique                                                            \
$Z                                      iterations=$_____NIterations                                                                    \
$Z                                      cartesienneA=FAUX                                                                               \
$Z                                      cartesienneR=VRAI                                                                               \
$Z                                      lister_initiale_finale=FAUX                                                                     \
$Z                                                                                                  >   $xTV/COORDONNEES

$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_Y
$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_Z

$Z                  $CA                 $xTV/COORDONNEES                                                                                \
$Z                                      | $GRE    " [XxYyZz]="                                                                          \
$Z                                      | $SE     -e "s/^.* [Xx]=//"                                                                    \
$Z                                                -e 's/ .*$//'                                                                         \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_X
$Z                  $CA                 $xTV/COORDONNEES                                                                                \
$Z                                      | $GRE    " [XxYyZz]="                                                                          \
$Z                                      | $SE     -e "s/^.* [Yy]=//"                                                                    \
$Z                                                -e 's/ .*$//'                                                                         \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_Y
$Z                  $CA                 $xTV/COORDONNEES                                                                                \
$Z                                      | $GRE    " [XxYyZz]="                                                                          \
$Z                                      | $SE     -e "s/^.* [Zz]=//"                                                                    \
$Z                                                -e 's/ .*$//'                                                                         \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_Z
$Z                                      # Le '$GRE' a ete introduit le 20080224162733 au cas ou "lister_initiale_finale=VRAI" serait  #
$Z                                      # utilise...                                                                                  #

$Z                  $DELETE             $xTV/COORDONNEES

$Z                  $DELETE             $xTV/DISTANCES

$Z                  $xrv/distance.02$X                                                                                                  \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$_____NPoints                                                                                \
$Z                                      LISTE_X=$xTV/COORDONNEES_01$COORD_X                                                             \
$Z                                      LISTE_Y=$xTV/COORDONNEES_01$COORD_Y                                                             \
$Z                                      LISTE_Z=$xTV/COORDONNEES_01$COORD_Z                                                             \
$Z                                      premiers_voisins=VRAI                                                                           \
$Z                                      N=$_____NVoisins                                                                                \
$Z                                                                                                  >   $xTV/DISTANCES

$Z        set       ListeCouples=`$CA $xTV/DISTANCES | $SE -e "s/^.*couple=//" -e 's/ .*$//' -e "s/[^,$Alphabet_0_9]//g" | $SOR -u`
$Z                                      # Le '$SOR -u' a ete introduit le 20011014100521, depuis que l'option implicite "tri=VRAI"    #
$Z                                      # a ete introduite le 20011014091311 dans 'v $xrv/distance.02$K 20011014091311'.              #

$Z                  $DELETE             $xTV/DISTANCES