#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D ' U N E   E V O L U T I O N                                                                         #
#         D ' U N E   V A R I E T E   D E   C A L A B I - Y A U   Q U A D R I D I M E N S I O N N E L L E  :                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000006/face.1/.CAYA.41.2.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____MinimumK                 0

$Z        setParam            _____MaximumK                 4

$Z        $DELETE             $xTV/PARAMETRE_K

$Z        $xci/valeurs_inte$X premiere=$_____MinimumK derniere=$_____MaximumK                                                           \
$Z                            vD=$_____MinimumK vA=$_____MaximumK                                                                       \
$Z                            cubique=FAUX                                                                                              \
$Z                                                                                                  > $xTV/PARAMETRE_K

$Z        $DELETE             $_____Param_K1
$Z        $DELETE             $_____Param_K2

$Z        @         ItErAtIoN = $_____MaximumK - $_____MinimumK
$Z        @         ItErAtIoN = $ItErAtIoN + 1

$Z        repeat    $ItErAtIoN          eval      "$CA      $xTV/PARAMETRE_K >>! $_____Param_K1"

$Z        $CA       $_____Param_K1                                                                                                |     \
$Z        $SOR                                                                                                                          \
$Z                                                                                                  > $_____Param_K2

$Z        set       _____Param_N1=$ItErAtIoN
$Z        set       _____Param_N2=$ItErAtIoN

$Z        set       Premiere = 1
$Z        @         Derniere = $ItErAtIoN * $ItErAtIoN

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