/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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.1C$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M E T H O D E   D E S   M O I N D R E S   C A R R E S  :                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   CALCUL_DE_LA_SOMME_DES_DIFFERENCES_DES_CARRES(anti_qualite)                                                                   \
                    Bblock                                                                                                              \
                    EGAL(anti_qualite,FZERO);                                                                                           \
                                        /* Initialisation du cumul...                                                                */ \
                    DoIn(pointI,PREMIER_POINT_DU_RESEAU,DERNIER_POINT_DU_RESEAU,I)                                                      \
                         Bblock                                                                                                         \
                         DoIn(pointJ,PREMIER_POINT_DU_RESEAU,DERNIER_POINT_DU_RESEAU,I)                                                 \
                              Bblock                                                                                                    \
                              Test(IFGT(pointI,pointJ))                                                                                 \
                                   Bblock                                                                                               \
                                   INCR(anti_qualite                                                                                    \
                                       ,EXP2(SOUS(RpdisF3D(ACCES_POINT(pointI)                                                          \
                                                          ,ACCES_POINT(pointJ)                                                          \
                                                           )                                                                            \
                                                 ,ACCES_DISTANCE(pointI,pointJ)                                                         \
                                                  )                                                                                     \
                                             )                                                                                          \
                                        );                                                                                              \
                                        /* Pour chaque couple de point 'pI' et 'pJ', on evalue l'erreur commise sur leur distance    */ \
                                        /* en evaluant :                                                                             */ \
                                        /*                                                                                           */ \
                                        /*                  d(pI,pJ) - DISTANCE(pI,pJ)                                               */ \
                                        /*                                                                                           */ \
                                        /* ou 'd(...)' represente la distance courante, et 'DISTANCE(...)' attendue a la fin du      */ \
                                        /* processus...                                                                              */ \
                                   Eblock                                                                                               \
                              ATes                                                                                                      \
                                   Bblock                                                                                               \
                                   Eblock                                                                                               \
                              ETes                                                                                                      \
                              Eblock                                                                                                    \
                         EDoI                                                                                                           \
                         Eblock                                                                                                         \
                    EDoI                                                                                                                \
                    Eblock                                                                                                              \
                                        /* Methode des moindres carres.                                                              */