#######################################################################################################################################
#                                                                                                                                     #
#         P R O B L E M E   D E S   C I N Q   C O R P S  :                                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiak/.NCOS.E1.1.$U' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20221018121022).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Reference                1

$Z                  setParam            _____Trainnees                0.98

$Z                  setParam            _____Zoom                     1.15

$Z                  setParam            _____TranslationX             0

$Z                  setParam            _____TranslationY             0

$Z                  SET       Premiere=1
$Z                  SET       Derniere=512

$Z                  @         Nimages = $Derniere - $Premiere
$Z                  @         Nimages = $Nimages + 1

$Z                  set       NcorpsS=5

$Z                  alias     genere    'set       FiLe=\!:1 ; set LiStE=(\!:2*)                                                  ;    \\
$Z                                       $DELETE   $FiLe                                                                          ;    \\
$Z                                       echo "$LiStE" | $SE -e "s/  */ /g" | $R "$K_BLANC" "$K_NL" > $FiLe                       ;    \\
$Z                                       unset     FiLe LiStE'

$Z                  genere    $xT/COORDONNEES$COORD_X  +1.0e3    -800.0e9  +800.0e9  -1600.0e9 +1600.0e9
$Z                  genere    $xT/COORDONNEES$COORD_Y  +1.0e3    +1.0e3    +1.0e3    +1.0e3    +1.0e3
$Z                  genere    $xT/COORDONNEES$COORD_Z  +1.0e3    +1.0e3    +1.0e3    +1.0e3    +1.0e3
$Z                  genere    $xT/VITESSES$COORD_X     0         0         0         0         0
$Z                  genere    $xT/VITESSES$COORD_Y     0         +5.0e3    -5.0e3    +3.0e3    -3.0e3
$Z                  genere    $xT/VITESSES$COORD_Z     0         0         0         0         0
$Z                  genere    $xT/MASSES               1.0e30    2.0e27    2.0e27    2.0e27    2.0e27
$Z                  genere    $xT/RAYONS               6.0e10    4.0e10    4.0e10    4.0e10    4.0e10
$Z                  genere    $xT/COULEURS$ROUGE       $GRIS_8   $GRIS_0   $GRIS_0   $GRIS_8   $GRIS_4
$Z                  genere    $xT/COULEURS$VERTE       $GRIS_7   $GRIS_8   $GRIS_4   $GRIS_0   $GRIS_0
$Z                  genere    $xT/COULEURS$BLEUE       $GRIS_0   $GRIS_4   $GRIS_8   $GRIS_4   $GRIS_8

$Z                  SET       _____images=$xTV/NCOS.D1

$Z                  $xrr/N_corps.11$X                                                                                                   \
$Z                                      corps=$NcorpsS                                                                                  \
$Z                                      np=$Nimages                                                                                     \
$Z                                      LISTE_X=$xT/COORDONNEES$COORD_X                                                                 \
$Z                                      LISTE_Y=$xT/COORDONNEES$COORD_Y                                                                 \
$Z                                      LISTE_Z=$xT/COORDONNEES$COORD_Z                                                                 \
$Z                                      LISTE_VX=$xT/VITESSES$COORD_X                                                                   \
$Z                                      LISTE_VY=$xT/VITESSES$COORD_Y                                                                   \
$Z                                      LISTE_VZ=$xT/VITESSES$COORD_Z                                                                   \
$Z                                      LISTE_MASSE=$xT/MASSES                                                                          \
$Z                                      LISTE_RAYON=$xT/RAYONS                                                                          \
$Z                                      LISTE_ROUGE=$xT/COULEURS$ROUGE                                                                  \
$Z                                      LISTE_VERTE=$xT/COULEURS$VERTE                                                                  \
$Z                                      LISTE_BLEUE=$xT/COULEURS$BLEUE                                                                  \
$Z                                      centrer=FAUX reference=$_____Reference                                                          \
$Z                                      dct=100                                                                                         \
$Z                                      nombre=40000                                                                                    \
$Z                                      trainees=VRAI mode=1                                                                            \
$Z                                      attenuation_des_images=1.0                                                                      \
$Z                                      attenuation_des_trainees=$_____Trainnees                                                        \
$Z                                      renormaliser=FAUX                                                                               \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      TRANSLATION_OX=$_____TranslationX                                                               \
$Z                                      TRANSLATION_OY=$_____TranslationY                                                               \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      R=$_____images.                                                                                 \
$Z                                      $formatI