/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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                                */
/*        D ' U N   P S E U D O - T O R E   A   D E U X   T R O U S  :                                                               */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/huit.11.1$I' :                                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20161207094206).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   F O N C T I O N S   A   D E R I V E R  :                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
-define   XPlan_xrs_huit_11(u,v)                                                                                                        \
-_-_-_-             MUL3(parametre_R                                                                                                    \
-_-_-_-                 ,Choix(u,v)                                                                                                     \
-_-_-_-                 ,RACX(DIVI(ADD2(parametre_A,COSX(v)),parametre_B))                                                              \
-_-_-_-                  )

-define   YPlan_xrs_huit_11(u,v)                                                                                                        \
-_-_-_-             MUL2(parametre_R,DIVI(SINX(v),parametre_C))
                                        /* Definition de l'equation de la courbe en "8" dans le plan {OX,OY} :                       */
                                        /*                                                                                           */
                                        /*                                 /\            /\                                          */
                                        /*                                /  \          /  \                                         */
                                        /*                               /    \        /    \                                        */
                                        /*                              /      \      /      \                                       */
                                        /*                             /  --->  \    /  <---  \                                      */
                                        /*                  u = 2.p   /       |  \  /  |       \  u = 0                              */
                                        /*                           /        |   \/   |        \                                    */
                                        /*                           \        |   /\   |        /                                    */
                                        /*                  u = 4.p   \       |  /  \  |       /  u = 2.p                            */
                                        /*                             \  <---  /    \  --->  /                                      */
                                        /*                              \      /      \      /                                       */
                                        /*                               \    /        \    /                                        */
                                        /*                                \  /          \  /                                         */
                                        /*                                 \/            \/                                          */
                                        /*                                                                                           */
                                        /*                                                                                           */
                                        /* Le parametrage en {u,v} vient de l'equation cartesienne du '8' dans le plan :             */
                                        /*                                                                                           */
                                        /*                   2    2       2                                                          */
                                        /*                  y  = x .(1 - x )                                                         */
                                        /*                                                                                           */
                                        /* En faisant le changement de variable :                                                    */
                                        /*                                                                                           */
                                        /*                   2                                                                       */
                                        /*                  x  = z + 1/2                                                             */
                                        /*                                                                                           */
                                        /* on obtient l'equation :                                                                   */
                                        /*                                                                                           */
                                        /*                   2   2                                                                   */
                                        /*                  y + z  = 1/4                                                             */
                                        /*                                                                                           */
                                        /* qui est donc l'equation d'un cercle que l'on peut parametrer en {rho=1/2,theta=v}, d'ou   */
                                        /* le parametrage ci-dessus en revenant a {x,y}...                                           */
                                        /*                                                                                           */
                                        /* Le 20161208100155, afin d'etre homogene avec le nom de leurs derivees, 'XPlan(u,v)' et    */
                                        /* 'YPlan(u,v)' ont ete rebaptises 'XPlan_xrs_huit_11(u,v)' et 'YPlan_xrs_huit_11(u,v)'      */
                                        /* respectivement. On notera de plus que '_xrs_huit_11' qui semble inutile (puisque          */
                                        /* apparemment local a 'v $xrs/huit.11$K') ne l'est pas car, en effet, ce fichier est        */
                                        /* reference dans 'v $xcp/$xcp/DerivFormel$I include  xrs.huit.11.1.I' qui permet la         */
                                        /* generation du fichier 'v $ximd/DerivFormel.1$DEF' qui lui a une portee "universelle"...   */