#######################################################################################################################################
#                                                                                                                                     #
#         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   T R I D I M E N S I O N N E L  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.SYRA.81.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20130118104120).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____U0                       7

$Z                  setParam            _____TransformationX          neutre$X
$Z                                      # Parametre introduit le 20130125131225, en notant que :                                      #
$Z                                      #                                                                                             #
$Z                                      #                   PUIX.01$X           exposant=0.02                                         #
$Z                                      #                                                                                             #
$Z                                      # permet de prendre mieux en compte la "dynamique" du processus...                            #

$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                                                                              >> $FSyracuse
$Z                                      # Le 20130124083517 (avec retard...) fut introduit "p=1 d=100000" afin d'atteindre {4,2,1}... #

$Z                  $CA                 $FSyracuse                                                                                |     \
$Z                  $HEA                --lines=-2                                                                                |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      origine=0    extremite=+1                                                                       \
$Z                                                                              >  $FCoOrD$COORD_X

$Z                  $CA                 $FSyracuse                                                                                |     \
$Z                  $HEA                --lines=-1                                                                                |     \
$Z                  $TAI                +2                                                                                        |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      origine=0    extremite=+1                                                                       \
$Z                                                                              >  $FCoOrD$COORD_Y

$Z                  $CA                 $FSyracuse                                                                                |     \
$Z                  $TAI                +3                                                                                        |     \
$Z                  $xrv/normalise.01$X                                                                                                 \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      origine=-0.5 extremite=+0.5                                                                     \
$Z                                                                              >  $FCoOrD$COORD_Z

$Z                  FilSTmpE  FSyracuse

$Z                  set       NpartX=`$CA $FCoOrD$COORD_X | $WCl`
$Z                  set       NpartY=`$CA $FCoOrD$COORD_Y | $WCl`
$Z                  set       NpartZ=`$CA $FCoOrD$COORD_Z | $WCl`

$Z                  set       Nparts=`$xcg/MIN3.01$X x=$NpartX y=$NpartY z=$NpartZ`

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



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