#######################################################################################################################################
#                                                                                                                                     #
#         B I J E C T I O N   E N T R E   D E U X   E N S E M B L E S  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.BIJE.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20170528101806).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____CoordonneesAleatoires    $EXIST
$Z                                      # Argument introduit le 20180611102003...                                                     #

$Z                  FilSTmpB            Fpoints

$Z                  @                   GraineE1X = $_____GraineE1 + 1
$Z                  @                   GraineE1Y = $_____GraineE1 + 2

$Z                  set                 MaRgE=0.99
$Z                  set                 BorneInfE1X=`$xcg/AXPB.01$X a=-$MaRgE x=$_____RayonE1 b=$_____CentreE1X`
$Z                  set                 BorneSupE1X=`$xcg/AXPB.01$X a=+$MaRgE x=$_____RayonE1 b=$_____CentreE1X`

$Z                  set                 BorneInfE1Y=`$xcg/AXPB.01$X a=-$MaRgE x=$_____RayonE1 b=$_____CentreE1Y`
$Z                  set                 BorneSupE1Y=`$xcg/AXPB.01$X a=+$MaRgE x=$_____RayonE1 b=$_____CentreE1Y`

$Z                  if                  ($_____CoordonneesAleatoires == $EXIST) then
$Z                                      # Test introduit le 20180611102003...                                                         #
$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE1                                                    \
$Z                                                          inf=$BorneInfE1X sup=$BorneSupE1X                                           \
$Z                                                          graine=$GraineE1X                                                           \
$Z                                                                                                  >>! $Fpoints.E1$COORD_X

$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE1                                                    \
$Z                                                          inf=$BorneInfE1Y sup=$BorneSupE1Y                                           \
$Z                                                          graine=$GraineE1Y                                                           \
$Z                                                                                                  >>! $Fpoints.E1$COORD_Y
$Z                  else
$Z                                      $xci/valeurs_inte$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE1                                                    \
$Z                                                          vD=$BorneInfE1X vA=$BorneSupE1X                                             \
$Z                                                          lineaire=VRAI                                                               \
$Z                                                                                                  >>! $Fpoints.E1$COORD_X

$Z                                      set                 MoyenneE1Y=`$xcg/MOYE.01$X a=$BorneInfE1Y b=$BorneSupE1Y`
$Z                                      $xci/valeurs_inte$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE1                                                    \
$Z                                                          vD=$MoyenneE1Y vA=$MoyenneE1Y                                               \
$Z                                                          lineaire=VRAI                                                               \
$Z                                                                                                  >>! $Fpoints.E1$COORD_Y
$Z                  endif

$Z                  $xrv/neutre$X                                                                                                       \
$Z                                      ne=$_____NPointsE1                                                                              \
$Z                                      fichier=$_____RougeP1                                                                           \
$Z                                                                                                  >>! $Fpoints.E1$ROUGE

$Z                  $xrv/neutre$X                                                                                                       \
$Z                                      ne=$_____NPointsE1                                                                              \
$Z                                      fichier=$_____VerteP1                                                                           \
$Z                                                                                                  >>! $Fpoints.E1$VERTE

$Z                  $xrv/neutre$X                                                                                                       \
$Z                                      ne=$_____NPointsE1                                                                              \
$Z                                      fichier=$_____BleueP1                                                                           \
$Z                                                                                                  >>! $Fpoints.E1$BLEUE

$Z                  @                   GraineE2X = $_____GraineE2 + 1
$Z                  @                   GraineE2Y = $_____GraineE2 + 2

$Z                  set                 BorneInfE2X=`$xcg/AXPB.01$X a=-$MaRgE x=$_____RayonE2 b=$_____CentreE2X`
$Z                  set                 BorneSupE2X=`$xcg/AXPB.01$X a=+$MaRgE x=$_____RayonE2 b=$_____CentreE2X`

$Z                  set                 BorneInfE2Y=`$xcg/AXPB.01$X a=-$MaRgE x=$_____RayonE2 b=$_____CentreE2Y`
$Z                  set                 BorneSupE2Y=`$xcg/AXPB.01$X a=+$MaRgE x=$_____RayonE2 b=$_____CentreE2Y`

$Z                  if                  ($_____CoordonneesAleatoires == $EXIST) then
$Z                                      # Test introduit le 20180611102003...                                                         #
$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE2                                                    \
$Z                                                          inf=$BorneInfE2X sup=$BorneSupE2X                                           \
$Z                                                          graine=$GraineE2X                                                           \
$Z                                                                                                  >>! $Fpoints.E2$COORD_X

$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE2                                                    \
$Z                                                          inf=$BorneInfE2Y sup=$BorneSupE2Y                                           \
$Z                                                          graine=$GraineE2Y                                                           \
$Z                                                                                                  >>! $Fpoints.E2$COORD_Y
$Z                  else
$Z                                      $xci/valeurs_inte$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE1                                                    \
$Z                                                          vD=$BorneInfE2X vA=$BorneSupE2X                                             \
$Z                                                          lineaire=VRAI                                                               \
$Z                                                                                                  >>! $Fpoints.E2$COORD_X

$Z                                      set                 MoyenneE2Y=`$xcg/MOYE.01$X a=$BorneInfE2Y b=$BorneSupE2Y`
$Z                                      $xci/valeurs_inte$X                                                                             \
$Z                                                          premiere=1                                                                  \
$Z                                                          derniere=$_____NPointsE2                                                    \
$Z                                                          vD=$MoyenneE2Y vA=$MoyenneE2Y                                               \
$Z                                                          lineaire=VRAI                                                               \
$Z                                                                                                  >>! $Fpoints.E2$COORD_Y
$Z                  endif

$Z                  $xrv/neutre$X                                                                                                       \
$Z                                      ne=$_____NPointsE2                                                                              \
$Z                                      fichier=$_____RougeP2                                                                           \
$Z                                                                                                  >>! $Fpoints.E2$ROUGE

$Z                  $xrv/neutre$X                                                                                                       \
$Z                                      ne=$_____NPointsE2                                                                              \
$Z                                      fichier=$_____VerteP2                                                                           \
$Z                                                                                                  >>! $Fpoints.E2$VERTE

$Z                  $xrv/neutre$X                                                                                                       \
$Z                                      ne=$_____NPointsE2                                                                              \
$Z                                      fichier=$_____BleueP2                                                                           \
$Z                                                                                                  >>! $Fpoints.E2$BLEUE