#######################################################################################################################################
#                                                                                                                                     #
#         E T U D E   D E   L A   C O N J E C T U R E   D E   S Y R A C U S E                                                         #
#         D A N S   U N   E S P A C E   B I D I M E N S I O N N E L  :                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.SYRA.H1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20210706120654).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____U0                       7

$Z                  setParam            _____TransformationX          neutre$X

$Z                  SETParam            _____Dimension                2

$Z                  FilSTmpB            FCoOrD
$Z                                      # ATTENTION : les 'FilSTmpE's ont lieu ailleurs...                                            #

$Z                  FilSTmpB            FSyracuse

$Z                  $xci/valeurs_Syra$X                                                                                                 \
$Z                                      p=1 d=100000                                                                                    \
$Z                                      u0=$_____U0                                                                                     \
$Z                                      stop_421=VRAI                                                                             |     \
$Z                  $xrv/$_____TransformationX                                                                                          \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                 |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                              >  $FSyracuse.1

$Z                  $CA                 $FSyracuse.1                                                                              |     \
$Z                  $TAI                -$_____Dimension                                                                                \
$Z                                                                              >  $FSyracuse.2

$Z                  set                 LoNgUeUr=`$CA $FSyracuse.1 $FSyracuse.2 | $WCl`
$Z                  @                   LoNgUeUr = $LoNgUeUr / $_____Dimension
$Z                  @                   LoNgUeUr = $LoNgUeUr * $_____Dimension

$Z                  $CA                 $FSyracuse.1 $FSyracuse.2                                                                 |     \
$Z                  $HEA                -$LoNgUeUr                                                                                      \
$Z                                                                              >> $FSyracuse

$Z                  set                 ArGuMeNtS="$K_VIDE"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" ne=0"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" fichier=="
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" premier=FAUX"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" taille=$_____Dimension"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" element_variable=VRAI"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" Men_tete=FAUX"

$Z                  $CA                 $FSyracuse                                                                                |     \
$Z                  $xrv/un_sur_N.01$X  $ArGuMeNtS                                                                                      \
$Z                                      numero_element_variable=0                                                                       \
$Z                                                                              >  $FCoOrD$COORD_X
$Z                  set                 NpartX=`$CA $FCoOrD$COORD_X | $WCl`

$Z                  $CA                 $FSyracuse                                                                                |     \
$Z                  $xrv/un_sur_N.01$X  $ArGuMeNtS                                                                                      \
$Z                                      numero_element_variable=1                                                                       \
$Z                                                                              >  $FCoOrD$COORD_Y
$Z                  set                 NpartY=`$CA $FCoOrD$COORD_Y | $WCl`

$Z                  if                  ($_____Dimension >= 3) then
$Z                                      $CA                 $FSyracuse                                                            |     \
$Z                                      $xrv/un_sur_N.01$X  $ArGuMeNtS                                                                  \
$Z                                                          numero_element_variable=2                                                   \
$Z                                                                                                  >  $FCoOrD$COORD_Z
$Z                                      set                 NpartZ=`$CA $FCoOrD$COORD_Z | $WCl`
$Z                  else
$Z                  endif

$Z                  FilSTmpE            FSyracuse

$Z                  if                  ($_____Dimension == 2) then
$Z                                      set                 Nparts=`$xcg/MIN2.01$X x=$NpartX y=$NpartY`
$Z                  else
$Z                                      set                 Nparts=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`
$Z                  endif

$Z                  $xci/valeurs_inte$X p=1 d=$Nparts                                                                                   \
$Z                                      vD=$NOIR_PLANCHER vA=$BLANC                                                                     \
$Z                                      lineaire=VRAI                                                                                   \
$Z                                      entier=VRAI                                                                                     \
$Z                                                                              >  $FCoOrD$NIVEAU