#######################################################################################################################################
#                                                                                                                                     #
#         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.21.5.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131024120233).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$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