#######################################################################################################################################
#                                                                                                                                     #
#         C O N S T R U C T I O N   D ' U N   F O N D   " I N F I N I "  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HELI.32.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240423120456).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  IfBasic             ($?_____Fond == $NEXIST) ThenBasic
$Z                                      setParam            _____INuages                  $xiirf/NUAG.A1
$Z                                      setParam            _____PNuages                  $xiP/nuages.02

$Z                                      set                 _____Fond=$xTV/FOND.1

$Z                                      $xci/vraies_C$X                                                                                 \
$Z                                                          A=$_____INuages                                                             \
$Z                                                          p=$_____PNuages                                                             \
$Z                                                          R=$_____Fond                                                                \
$Z                                                                                                                      $formatI
$Z                  ElseBasic
$Z                  EndifBasic

$Z                  $xci/random.01$X                                                                                                    \
$Z                                      borne_inferieure=$GRIS_1                                                                        \
$Z                                      borne_superieure=$GRIS_8                                                                        \
$Z                                      R=$xTV/ETOILES.1                                                                                \
$Z                                                                                                                      $formatI

$Z                  $xci/random.02$X                                                                                                    \
$Z                                      seuil=0.001                                                                                     \
$Z                                      R=$xTV/ETOILES.2                                                                                \
$Z                                                                                                                      $formatI
$Z
$Z                  $xci/and$X                                                                                                          \
$Z                                      A1=$xTV/ETOILES.1                                                                               \
$Z                                      A2=$xTV/ETOILES.2                                                                               \
$Z                                      R=$xTV/ETOILES.3                                                                                \
$Z                                                                                                                      $formatI

$Z                  IfBasic             ($?_____Mire == $NEXIST) ThenBasic
$Z                                      $xci/mire$X                                                                                     \
$Z                                                          A=$NOIR                                                                     \
$Z                                                          absolue=FAUX                                                                \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/transpose$X                                                                                \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/Sx$X                                                                                       \
$Z                                                          R=$xTV/MIRE                                                                 \
$Z                                                                                                                      $formatI
$Z                  ElseBasic
$Z                                      $xci/neutre$X                                                                                   \
$Z                                                          A=$_____Mire                                                                \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/transpose$X                                                                                \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/Sx$X                                                                                       \
$Z                                                          R=$xTV/MIRE                                                                 \
$Z                                                                                                                      $formatI
$Z                                      # Simplification introduite le 20240712152429...                                              #
$Z                  EndifBasic

$Z        execRVB   $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/MIRE                                                                                    \
$Z                                      A2=$_____Fond%s                                                                                 \
$Z                                      R=$xTV/FOND.2%s                                                                                 \
$Z                                                                                                                      $formatI

$Z                  $xci/complement$X                                                                                                   \
$Z                                      A=$xTV/MIRE                                                                                     \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A2=$xTV/ETOILES.3                                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      p=$xiP/gris.52                                                                                  \
$Z                                      R=$xTV/ETOILES                                                                                  \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/maximum$X                                                                                                      \
$Z                                      A1=$xTV/FOND.2%s                                                                                \
$Z                                      A2=$xTV/ETOILES%s                                                                               \
$Z                                      R=$xTV/FOND%s                                                                                   \
$Z                                                                                                                      $formatI