#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   L I S T E   D E   T E S T   D E   V O I S I N S  :                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CARB.01.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150708104205).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 cX0=0
$Z                  set                 cX1=1
$Z                  set                 cXc=`$xcg/MOYE.01$X a=$cX0 b=$cX1 signe="$K_VIDE"`

$Z                  set                 cY0=0
$Z                  set                 cY1=1
$Z                  set                 cYc=`$xcg/MOYE.01$X a=$cY0 b=$cY1 signe="$K_VIDE"`

$Z                  set                 cZ0=0.5

$Z                  echo                "$cX0 $cY0 $cZ0      $cX1 $cY0 $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX1 $cY0 $cZ0      $cX1 $cY1 $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX1 $cY1 $cZ0      $cX0 $cY1 $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX0 $cY1 $cZ0      $cX0 $cY0 $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX0 $cY0 $cZ0      $cXc $cYc $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX1 $cY0 $cZ0      $cXc $cYc $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX1 $cY1 $cZ0      $cXc $cYc $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX0 $cY1 $cZ0      $cXc $cYc $cZ0"                                                            \
$Z                                                                                                  >>! $_____FVoisins
$Z                                      # Generation d'un carre avec ses 4 "demi-diagonales"...                                       #



Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.