#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A R B R E   D E   T E S T  :                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.QUAD.21.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150624213859).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        set       Increment_X=+0.5
$Z        set       aX1=+0.0
$Z        set       aX2=`$xcg/ADD2.01$X a=$aX1 b=$Increment_X`
$Z        set       aX3=`$xcg/ADD2.01$X a=$aX2 b=$Increment_X`
$Z        set       aX4=`$xcg/ADD2.01$X a=$aX3 b=$Increment_X`

$Z        set       Increment_Y=+0.5
$Z        set       aY1=+0.0
$Z        set       aY2=`$xcg/ADD2.01$X a=$aY1 b=$Increment_Y`
$Z        set       aY3=`$xcg/ADD2.01$X a=$aY2 b=$Increment_Y`
$Z        set       aY4=`$xcg/ADD2.01$X a=$aY3 b=$Increment_Y`
$Z        set       aY5=`$xcg/ADD2.01$X a=$aY4 b=$Increment_Y`

$Z        set       aZ1=+0.5

$Z        FilSTmpB  FiLeTmP_ARBRE

$Z        echo      "RacineQuadrangulation        NumeroNoeud=0   EtiquetteNoeud=0                            X2=$aX1 Y2=$aY1 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "RacineArbre   NumeroPere=0   NumeroNoeud=1   EtiquetteNoeud=1                            X2=$aX2 Y2=$aY1 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=1   NumeroNoeud=2   EtiquetteNoeud=2   X1=$aX2 Y1=$aY1 Z1=$aZ1  X2=$aX2 Y2=$aY2 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=2   NumeroNoeud=3   EtiquetteNoeud=1   X1=$aX2 Y1=$aY2 Z1=$aZ1  X2=$aX1 Y2=$aY3 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=3   NumeroNoeud=4   EtiquetteNoeud=2   X1=$aX1 Y1=$aY3 Z1=$aZ1  X2=$aX2 Y2=$aY2 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=4   NumeroNoeud=5   EtiquetteNoeud=3   X1=$aX2 Y1=$aY2 Z1=$aZ1  X2=$aX3 Y2=$aY3 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=5   NumeroNoeud=6   EtiquetteNoeud=2   X1=$aX3 Y1=$aY3 Z1=$aZ1  X2=$aX2 Y2=$aY4 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=6   NumeroNoeud=7   EtiquetteNoeud=1   X1=$aX2 Y1=$aY4 Z1=$aZ1  X2=$aX2 Y2=$aY5 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=7   NumeroNoeud=8   EtiquetteNoeud=2   X1=$aX2 Y1=$aY5 Z1=$aZ1  X2=$aX2 Y2=$aY4 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=8   NumeroNoeud=9   EtiquetteNoeud=3   X1=$aX2 Y1=$aY4 Z1=$aZ1  X2=$aX3 Y2=$aY3 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=9   NumeroNoeud=10  EtiquetteNoeud=2   X1=$aX3 Y1=$aY3 Z1=$aZ1  X2=$aX4 Y2=$aY4 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=10  NumeroNoeud=11  EtiquetteNoeud=3   X1=$aX4 Y1=$aY4 Z1=$aZ1  X2=$aX3 Y2=$aY3 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=11  NumeroNoeud=12  EtiquetteNoeud=2   X1=$aX3 Y1=$aY3 Z1=$aZ1  X2=$aX2 Y2=$aY2 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z        echo      "Arborescence= NumeroPere=12  NumeroNoeud=13  EtiquetteNoeud=1   X1=$aX2 Y1=$aY2 Z1=$aZ1  X2=$aX2 Y2=$aY1 Z2=$aZ1"  \
$Z                                                                                                  >>  $FiLeTmP_ARBRE
$Z                                      # Voir 'v www.math.u-bordeaux1.fr/MAS10/DOC/PDF-PRES/LeGall.pdf' document d'ou est tire       #
$Z                                      # cet exemple. Voir de plus 'v $xrv/QuadrangulationArbre.11$K exemple'...                     #



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