#######################################################################################################################################
#                                                                                                                                     #
#         P R O D U I T   D E   H O R N E R   D U   Q U A T R I E M E   D E G R E   D E   D E U X   I M A G E S  :                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HORN.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20181121114920).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ExtremiteO               0.2

$Z                  setParam            _____ExtremiteE               1.0

$Z                  FilSTmpB            FLImAgEs

$Z                  $CA                 $xci/ProduitHorner_2_04.01$PARAM                                                          |     \
$Z                  $GRE                " a[$Alphabet_0_9][$Alphabet_0_9]="                                                       |     \
$Z                  $SE                 -e "s/^.* \(a[$Alphabet_0_9][$Alphabet_0_9]\)=.*"'$/\1/'                                        \
$Z                                                                                                  >> $FLImAgEs
$Z                                      # Recuperation des images de ponderation utiles...                                            #

$Z                  set                 LImAgEs=`$CA $FLImAgEs`

$Z                  FilSTmpE            FLImAgEs

$Z                  set                 NuMeRo=1

$Z                  set                 PaRaMeTrEs="premiere=$NuMeRo derniere=$#LImAgEs lineaire=VRAI"
$Z                  set                 LExTrEmItE=`$xci/valeurs_inte$X $PaRaMeTrEs vD=$_____ExtremiteO vA=$_____ExtremiteE`
$Z                  unset               PaRaMeTrEs

$Z                  set                 PoNdErAtIoNs="$K_VIDE"

$Z                  FilSTmpB            FImAgEs

$Z                  foreach             PoNdErAtIoN ($LImAgEs)
$Z                                      set                 PImAgE=`$xci/nombres$X A=$xTV/PONDER. premiere=$NuMeRo derniere=$NuMeRo`