#######################################################################################################################################
#                                                                                                                                     #
#         P R O D U I T   H Y P E R - C O M P L E X E   D E   Q U A T R E   C H A M P S  :                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.QUAT.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20060621104428).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Champ1                   trefle

$Z                  setParam            _____Parametres1              "ct=3"

$Z                  setParam            _____Champ2                   trefle

$Z                  setParam            _____Parametres2              "ct=4"

$Z                  setParam            _____Champ3                   trefle

$Z                  setParam            _____Parametres3              "ct=5"

$Z                  setParam            _____Champ4                   trefle

$Z                  setParam            _____Parametres4              "ct=6"

$Z                  setParam            _____Arithmetique             "arithmetique_etendue=FAUX arithmetique_etendue_produit=FAUX"
$Z                                      # Introduit le 20061019104444...                                                              #

$Z                  setParam            _____PonderR                  1

$Z                  setParam            _____PonderI                  0

$Z                  setParam            _____PonderJ                  0

$Z                  setParam            _____PonderK                  0

$Z                  setParam            _____PonderM                  0
$Z                                      # Introduit le 20060621134359...                                                              #

$Z                  setParam            _____PonderT                  0
$Z                                      # Introduit le 20060621134359...                                                              #

$Z                  setParam            _____PonderP                  0
$Z                                      # Introduit le 20060621134359...                                                              #

$Z                  setParam            _____PonderA                  0
$Z                                      # Introduit le 20060621134359...                                                              #

$Z                  setParam            _____ZeroM                    `GetParam $xci/montagne.01 zero`
$Z                                      # Introduit le 20060628143603...                                                              #

$Z                  Sdu

$Z                  $xci/$_____Champ1$X                                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      $_____Parametres1                                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/CHAMP.11                                                                                 \
$Z                                                                                                                      $formatI

$Z                  $xci/$_____Champ2$X                                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      $_____Parametres2                                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/CHAMP.12                                                                                 \
$Z                                                                                                                      $formatI

$Z                  $xci/$_____Champ3$X                                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      $_____Parametres3                                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/CHAMP.21                                                                                 \
$Z                                                                                                                      $formatI

$Z                  $xci/$_____Champ4$X                                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      $_____Parametres4                                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/CHAMP.22                                                                                 \
$Z                                                                                                                      $formatI

$Z                  $xci/multHC_02.01$X                                                                                                 \
$Z                                      AR1=$xTV/CHAMP.11                                                                               \
$Z                                      AI1=$xTV/CHAMP.12                                                                               \
$Z                                      AJ1=$xTV/CHAMP.21                                                                               \
$Z                                      AK1=$xTV/CHAMP.22                                                                               \
$Z                                      AR2=$xTV/CHAMP.22                                                                               \
$Z                                      AI2=$xTV/CHAMP.21                                                                               \
$Z                                      AJ2=$xTV/CHAMP.11                                                                               \
$Z                                      AK2=$xTV/CHAMP.12                                                                               \
$Z                                      $_____Arithmetique                                                                              \
$Z                                      pcR=$_____PonderR pcI=$_____PonderI pcJ=$_____PonderJ pcK=$_____PonderK                         \
$Z                                      pcM=$_____PonderM pcT=$_____PonderT pcP=$_____PonderP pcA=$_____PonderA                         \
$Z                                      R=$xTV/SURFACE                                                                                  \
$Z                                                                                                                      $formatI
$Z                  $xci/init$X                                                                                                         \
$Z                                      n=$BLANC                                                                                        \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/montagne.01$X                                                                                                  \
$Z                                      A=$xTV/SURFACE                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                      zero=$_____ZeroM                                                                                \
$Z                                      avion=VRAI                                                                                      \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/transpose$X                                                                                                    \
$Z                                                                                                                      $formatI  |     \

$Z                  $xci/format.01$X                                                                                                    \
$Z                                      mode=7                                                                                          \
$Z                                      R=$_____imageR                                                                                  \
$Z                                                                                                                      $formatI        \
$Z                                                                                                                      $formatR_Pal

$Z                  Pal