/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   O P E R A T I O N S   D ' A C C U M U L A T I O N  :                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/accumule.04$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1996??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   ATTENUATION(a,x,b)                                                                                                            \
                    COND(IZEQ(x)                                                                                                        \
                        ,x                                                                                                              \
                        ,AXPB(a,x,b)                                                                                                    \
                         )                                                                                                              \
                                        /* Definition de la transformation du numero d'image 'x' : c'est 'AXPB(a,x,b)' sauf si 'x'   */ \
                                        /* est nul, auquel cas la forme lineaire est nulle ce qui permet d'avoir pour la derniere    */ \
                                        /* image accumulee un facteur d'attenuation 'facteur_d_attenuation_courant' egal a 1 par     */ \
                                        /* definition ('v $xci/accumule.01$K facteur_d_attenuation_courant').                        */