/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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/Laguerre.11$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1993??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P O L Y N O M E S   D E   L A G U E R R E  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
-define   LAGUERRE(x,p,k)                                                                                                               \
-_-_-_-             MUL2(MONX(NEGA(FU),k)                                                                                               \
-_-_-_-                 ,d-{k}-MUL2(EXPX(x)                                                                                             \
-_-_-_-                            ,d-{p+k}-MUL2(EXPX(NEGA(x)),MONX(x,ADD2(p,k)))                                                       \
-_-_-_-                             )                                                                                                   \
-_-_-_-                  )
                                        /* Definition du polynome de Laguerre d'ordre (p,k) :                                        */
                                        /*                                                                                           */
                                        /*                                  k  [     p+k             ]                               */
                                        /*                   k          k  d   [ x  d     [ -x   p+k]]                               */
                                        /*                  L (x) = (-1) .-----[e .-------[e   .x   ]]                               */
                                        /*                   p               k [      p+k            ]                               */
                                        /*                                 dx  [    dx               ]                               */
                                        /*                                                                                           */
                                        /* avec :                                                                                    */
                                        /*                                                                                           */
                                        /*                  k = 0,1,2,...,+infini                                                    */
                                        /*                  p = 0,1,2,...,+infini                                                    */
                                        /*                                                                                           */
                                        /* Ceci est l'une des trois formules de Rodrigue.                                            */