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

$Z                  set                 cX10=0
$Z                  set                 cX11=1

$Z                  set                 cY10=0
$Z                  set                 cY11=1

$Z                  set                 cZ10=0.5

$Z                  echo                "$cX10 $cY10 $cZ10   $cX11 $cY10 $cZ10"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX11 $cY10 $cZ10   $cX11 $cY11 $cZ10"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX11 $cY11 $cZ10   $cX10 $cY11 $cZ10"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX10 $cY11 $cZ10   $cX10 $cY10 $cZ10"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                                      # Generation d'un grand carre centre...                                                       #

$Z                  set                 cX20=0.4
$Z                  set                 cX21=0.6

$Z                  set                 cY20=0.4
$Z                  set                 cY21=0.6

$Z                  set                 cZ20=0.5

$Z                  echo                "$cX20 $cY20 $cZ20   $cX21 $cY20 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX21 $cY20 $cZ20   $cX21 $cY21 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX21 $cY21 $cZ20   $cX20 $cY21 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX20 $cY21 $cZ20   $cX20 $cY20 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                                      # Generation d'un petit carre centre...                                                       #

$Z                  echo                "$cX10 $cY10 $cZ10   $cX20 $cY20 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX11 $cY10 $cZ10   $cX21 $cY20 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX11 $cY11 $cZ10   $cX21 $cY21 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                  echo                "$cX10 $cY11 $cZ10   $cX20 $cY21 $cZ20"                                                         \
$Z                                                                                                  >>! $_____FVoisins
$Z                                      # Generation d'un cube projete...                                                             #



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