/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E   L A   D Y N A M I Q U E   D E   V E R H U L S T  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrk/verhulst.11$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1998??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   ITERATION_DE_VERHULST_01(Xn,Xn_1,r)                                                                                           \
                    Bblock                                                                                                              \
                    EGAL(Xn                                                                                                             \
                        ,SOUS(MUL2(ADD2(r,I)                                                                                            \
                                  ,Xn_1                                                                                                 \
                                   )                                                                                                    \
                             ,MUL2(r                                                                                                    \
                                  ,EXP2(Xn_1)                                                                                           \
                                   )                                                                                                    \
                              )                                                                                                         \
                         );                                                                                                             \
                    Eblock                                                                                                              \
                                        /* Definition de l'une des cinq formes possibles de l'iteration de Verhulst :                */ \
                                        /*                                                                                           */ \
                                        /*                  (R+1)X-R(XX)                                                             */ \
                                        /*                                                                                           */
#define   ITERATION_DE_VERHULST_02(Xn,Xn_1,r)                                                                                           \
                    Bblock                                                                                                              \
                    EGAL(Xn                                                                                                             \
                        ,SOUS(MUL2(ADD2(r,I)                                                                                            \
                                  ,Xn_1                                                                                                 \
                                   )                                                                                                    \
                             ,MUL2(MUL2(r                                                                                               \
                                       ,Xn_1                                                                                            \
                                        )                                                                                               \
                                  ,Xn_1                                                                                                 \
                                   )                                                                                                    \
                              )                                                                                                         \
                         );                                                                                                             \
                    Eblock                                                                                                              \
                                        /* Definition de l'une des cinq formes possibles de l'iteration de Verhulst :                */ \
                                        /*                                                                                           */ \
                                        /*                  (R+1)X-(RX)X                                                             */ \
                                        /*                                                                                           */
#define   ITERATION_DE_VERHULST_03(Xn,Xn_1,r)                                                                                           \
                    Bblock                                                                                                              \
                    EGAL(Xn                                                                                                             \
                        ,MUL2(SOUS(ADD2(r,I)                                                                                            \
                                  ,MUL2(r                                                                                               \
                                       ,Xn_1                                                                                            \
                                        )                                                                                               \
                                   )                                                                                                    \
                             ,Xn_1                                                                                                      \
                              )                                                                                                         \
                         );                                                                                                             \
                    Eblock                                                                                                              \
                                        /* Definition de l'une des cinq formes possibles de l'iteration de Verhulst :                */ \
                                        /*                                                                                           */ \
                                        /*                  ((R+1)-(RX))X                                                            */ \
                                        /*                                                                                           */
#define   ITERATION_DE_VERHULST_04(Xn,Xn_1,r)                                                                                           \
                    Bblock                                                                                                              \
                    EGAL(Xn                                                                                                             \
                        ,ADD2(MUL2(r                                                                                                    \
                                  ,Xn_1                                                                                                 \
                                   )                                                                                                    \
                             ,MUL2(SOUS(I                                                                                               \
                                       ,MUL2(r                                                                                          \
                                            ,Xn_1                                                                                       \
                                             )                                                                                          \
                                        )                                                                                               \
                                  ,Xn_1                                                                                                 \
                                   )                                                                                                    \
                              )                                                                                                         \
                         );                                                                                                             \
                    Eblock                                                                                                              \
                                        /* Definition de l'une des cinq formes possibles de l'iteration de Verhulst :                */ \
                                        /*                                                                                           */ \
                                        /*                  RX+(1-(RX))X                                                             */ \
                                        /*                                                                                           */
#define   ITERATION_DE_VERHULST_05(Xn,Xn_1,r)                                                                                           \
                    Bblock                                                                                                              \
                    EGAL(Xn                                                                                                             \
                        ,ADD2(Xn_1                                                                                                      \
                             ,MUL2(r                                                                                                    \
                                  ,SOUS(Xn_1                                                                                            \
                                       ,EXP2(Xn_1)                                                                                      \
                                        )                                                                                               \
                                   )                                                                                                    \
                              )                                                                                                         \
                         );                                                                                                             \
                    Eblock                                                                                                              \
                                        /* Definition de l'une des cinq formes possibles de l'iteration de Verhulst :                */ \
                                        /*                                                                                           */ \
                                        /*                  X+R(X-(XX))                                                              */ \
                                        /*                                                                                           */

#define   ITERATION_DE_VERHULST(Xn,Xn_1,r)                                                                                              \
                    Bblock                                                                                                              \
                    ITERATION_DE_VERHULST_01(Xn,Xn_1,r);                                                                                \
                    Eblock                                                                                                              \
                                        /* Definition de l'iteration "standard" de Verhulst.                                         */