/*************************************************************************************************************************************/
/* */
/* 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 H Y P E R - T O R E : */
/* */
/* */
/* Author of '$xrs/hyper_tore.11$I' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 20221230092041). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D E S T R O I S F O N C T I O N S ' F ' : */
/* */
/* */
/* Definition ('v $xrs/hyper_plan.11$K') : */
/* */
/* La plan est defini parametriquement */
/* en fonction des trois parametres 'u', */
/* 'v' et 'w' : */
/* */
/* R(w) = w */
/* */
/* F (u,v,w) = R(w).cos(v) */
/* x */
/* */
/* F (u,v,w) = R(w).sin(v) */
/* y */
/* */
/* F (u,v,w) = u */
/* z */
/* */
/* avec : */
/* */
/* u E [-1/4,+1/4] */
/* */
/* v E [ 0 , 2.p ] */
/* */
/* w E [+1/2, +1 ] */
/* */
/* (ou 'p' designe 'pi'). */
/* */
/* */
/*************************************************************************************************************************************/
#define R__HyperTore_1(u,v,w) \
NEUT(w) \
/* Definition de la fonction R(u,v,w). */
#define Fx_HyperTore_1(u,v,w) \
MUL2(R__HyperTore_1(u,v,w),COSX(v)) \
/* Definition de la fonction F (u,v,w). */ \
/* x */
#define Fy_HyperTore_1(u,v,w) \
MUL2(R__HyperTore_1(u,v,w),SINX(v)) \
/* Definition de la fonction F (u,v,w). */ \
/* y */
#define Fz_HyperTore_1(u,v,w) \
NEUT(u) \
/* Definition de la fonction F (u,v,w). */ \
/* z */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N I T I A L I S A T I O N S R E L A T I V E S A L A P S E U D O - P R O J E C T I O N : */
/* */
/*************************************************************************************************************************************/
#define Pxyz_HyperTore_1 \
Bblock \
BLOC(VIDE;); \
Eblock