#######################################################################################################################################
# #
# 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.