/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   R E L A T I V E S   A   L A   D E R I V A T I O N   F O R M E L L E  :                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xcg/EquaPnThQ.01$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20100104144456).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E   L ' E Q U A T I O N   A   R E S O U D R E  :                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
-define   POLYNOME(x)                                                                                                                   \
-_-_-_-             DIVI(SOUS(PUIX(x,puissance),FU)                                                                                     \
-_-_-_-                 ,SOUS(x,FU)                                                                                                     \
-_-_-_-                  )
-define   EQUATION(x)                                                                                                                   \
-_-_-_-             SOUS(MUL2(x,POLYNOME(x))                                                                                            \
-_-_-_-                 ,MUL2(puissance,nombre_A)                                                                                       \
-_-_-_-                  )
                                        /* Definition de l'equation a resoudre avec ('v $ximcd/operator$FON 20100104120855') :       */
                                        /*                                                                                           */
                                        /*                                                                              n            */
                                        /*                                           n-1   n-2          2    1    0    a  - 1        */
                                        /*                  POLYNOME(a) = S(a,n) =  a   + a    + ... + a  + a  + a  = --------       */
                                        /*                                                                               a-1         */
                                        /*                                                                                           */
                                        /* Il faut resoudre :                                                                        */
                                        /*                                                                                           */
                                        /*                  EQUATION(a) = (a*POLYNOME(a)) - n*A = 0                                  */
                                        /*                                                                                           */
                                        /* d'ou :                                                                                    */
                                        /*                                                                                           */
                                        /*                             n                                                             */
                                        /*                        B - a *I                                                           */
                                        /*                  b = -------------                                                        */
                                        /*                       POLYNOME(a)                                                         */
                                        /*                                                                                           */