#######################################################################################################################################
#                                                                                                                                     #
#         C O U P E   S P H E R I Q U E   D ' U N   A L B U M  :                                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRX.31.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200124104740).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#20200227135925____:$Z                  set       _____CoteCube=1                                                                     #
$Z                  set       CoTe_CuBe=1

$Z                  set       _____ParamCoupa="$K_VIDE"
$Z                  set       _____ParamCoupa="$_____ParamCoupa"" coupe_quelconque=VRAI"
$Z                  set       _____ParamCoupa="$_____ParamCoupa"" a100=0 a010=0  a001=0"
$Z                  set       _____ParamCoupa="$_____ParamCoupa"" a003=0 a002=+1 a001=-1"
$Z                  set       _____ParamCoupa="$_____ParamCoupa"" a030=0 a020=+1 a010=-1"
$Z                  set       _____ParamCoupa="$_____ParamCoupa"" a300=0 a200=+1 a100=-1"

#20200227135925____:$Z                  set       a000=`calcul 3*pow(1/2,2)-pow($_____CoteCube/2,2)`                                  #
$Z                  set       a000=`calcul 3*pow(1/2,2)-pow($CoTe_CuBe/2,2)`

$Z                  set       _____ParamCoupa="$_____ParamCoupa"" a000=$a000"
$Z                  set       _____ParamCoupa="$_____ParamCoupa"" IZLE=VRAI"

$m4                 _____include(_____xiirv/.STRX.31.1._____U)