/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   D E S   F O N C T I O N S   N E C E S S A I R E S                                                  */
/*        A   L ' E T U D E   D E   L ' A T O M E   D ' H Y D R O G E N E  :                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrq/Legendre.11$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1993??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P O L Y N O M E S   D E   L E G E N D R E  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
-define   LEGENDRE(x,l,m)                                                                                                               \
-_-_-_-             MUL2(DIVI(MONX(SOUS(FU,EXP2(x)),MOIT(m))                                                                            \
-_-_-_-                      ,MUL2(FACT(l),MONX(FDEUX,l))                                                                               \
-_-_-_-                       )                                                                                                         \
-_-_-_-                 ,d-{l+m}-MONX(SOUS(EXP2(x),FU),l)                                                                               \
-_-_-_-                  )
                                        /* Definition du polynome de Legendre d'ordre (l,m) :                                        */
                                        /*                                                                                           */
                                        /*                                    m                                                      */
                                        /*                                   ---                                                     */
                                        /*                           [     2] 2     l+m          l                                   */
                                        /*                   m       [1 - x ]      d     [ 2    ]                                    */
                                        /*                  P (x) = -------------.-------[x  - 1]                                    */
                                        /*                   l              l        l+m                                             */
                                        /*                              l!.2       dx                                                */
                                        /*                                                                                           */
                                        /* avec :                                                                                    */
                                        /*                                                                                           */
                                        /*                  l = 0,1,2,...,+infini                                                    */
                                        /*                  m = 0,1,2,...,l                                                          */
                                        /*                                                                                           */
                                        /* soit :                                                                                    */
                                        /*                                                                                           */
                                        /*                  0 <= m <= l                                                              */
                                        /*                                                                                           */