/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   R E L A T I V E S   A U   R E C U I T   S I M U L E  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrk/recuit_2D.14$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A T E R I A L I S A T I O N   D E S   C O N N E X I O N S  :                                                             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#TestADef MATERIALISER_LES_CONNEXIONS                                                                                                   \
                    VRAI
DEFV(Local,DEFV(Logical,INIT(materialiser_les_connexions,MATERIALISER_LES_CONNEXIONS)));
                                        /* Precise si les connexions que peuvent entretenir les points entre-eux sont a materialiser */
                                        /* par des chaines de points. On notera qu'avant le 1994010500, la valeur implicite de       */
                                        /* 'materialiser_les_connexions' etait 'FAUX'...                                             */

#define   NOMBRE_ABSOLU_DE_POINTS_SUR_UNE_CHAINE_DE_CONNEXION                                                                           \
                    SEIZE
DEFV(Local,DEFV(Positive,INIT(nombre_absolu_de_points_sur_une_chaine_de_connexion
                             ,NOMBRE_ABSOLU_DE_POINTS_SUR_UNE_CHAINE_DE_CONNEXION
                              )
                )
     );
                                        /* Nombre de points (non compris les extremites) destines a materialiser la connexion entre  */
                                        /* les points de l'espace lorsqu'une ponderation fonction de la longueur theorique de chaque */
                                        /* connexion n'est pas realisee.                                                             */

#define   FACTEUR_DE_LA_LONGUEUR                                                                                                        \
                    FLOT(HUIT)
DEFV(Local,DEFV(Float,INIT(facteur_de_la_longueur,FACTEUR_DE_LA_LONGUEUR)));
                                        /* Ce facteur permet de convertir une longueur en un nombre de points...                     */
#define   PONDERATION_DES_CONNEXIONS_PAR_LA_LONGUEUR                                                                                    \
                    FZERO
DEFV(Local,DEFV(Float,INIT(ponderation_des_connexions_par_la_longueur,PONDERATION_DES_CONNEXIONS_PAR_LA_LONGUEUR)));
                                        /* Ce facteur permet de ponderer le nombre de points materialisant une connexion par sa      */
                                        /* longueur theorique (c'est-a-dire celle qui est visee a la fin du processus...).           */

#define   NOMBRE_DE_POINTS_SUR_UNE_CHAINE_DE_CONNEXION                                                                                  \
                    INTE(BARY(nombre_absolu_de_points_sur_une_chaine_de_connexion                                                       \
                             ,MUL2(facteur_de_la_longueur,ACCES_DISTANCE(pointI,pointJ))                                                \
                             ,ponderation_des_connexions_par_la_longueur                                                                \
                              )                                                                                                         \
                         )                                                                                                              \
                                        /* Determination du nombre de points qui materialiseront effectivement chaque connexion.     */ \
                                        /* On notera que dans l'etat implicite, ce nombre est independant de la longueur des         */ \
                                        /* connexions car 'PONDERATION_DES_CONNEXIONS_PAR_LA_LONGUEUR' est nulle...                  */