/*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S R E L A T I V E S A U X P A R A M E T R E S */ /* D ' U N E S U R F A C E D E H O R N E R " C I R C U L A I R E " D U D E U X I E M E D E G R E : */ /* */ /* */ /* Author of '$xrs/Horner42.12$I' : */ /* */ /* Jean-Francois Colonna (LACTAMME, 20201012123044). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D E S P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ DEFV(Local,DEFV(Float,INIT(parametre_RX,FU))); /* Parametre introduit le 20201020105745... */ DEFV(Local,DEFV(Float,INIT(pX_a2222,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2221,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2220,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2212,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2211,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2210,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2202,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2201,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2200,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2122,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2121,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2120,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2112,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2111,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2110,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2102,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2101,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2100,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2022,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2021,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2020,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2012,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2011,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2010,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2002,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2001,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a2000,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1222,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1221,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1220,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1212,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1211,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1210,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1202,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1201,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1200,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1122,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1121,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1120,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1112,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1111,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1110,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1102,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1101,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1100,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1022,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1021,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1020,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1012,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1011,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1010,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1002,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1001,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a1000,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0222,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0221,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0220,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0212,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0211,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0210,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0202,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0201,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0200,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0122,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0121,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0120,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0112,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0111,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0110,FU))); DEFV(Local,DEFV(Float,INIT(pX_a0102,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0101,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0100,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0022,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0021,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0020,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0012,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0011,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0010,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0002,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0001,FZERO))); DEFV(Local,DEFV(Float,INIT(pX_a0000,FZERO))); /* Definition de la valeur des parametres de 'Fx(u,v)'. */ /* */ /* Les valeurs par defaut sont telles que : */ /* */ /* Fx(u,v) = 1 * sin(u) * cos(v) * 1 */ /* */ /* soit les indices : */ /* */ /* 0 1 1 0 */ /* */ DEFV(Local,DEFV(Float,INIT(parametre_RY,FU))); /* Parametre introduit le 20201020105745... */ DEFV(Local,DEFV(Float,INIT(pY_a2222,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2221,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2220,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2212,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2211,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2210,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2202,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2201,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2200,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2122,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2121,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2120,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2112,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2111,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2110,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2102,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2101,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2100,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2022,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2021,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2020,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2012,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2011,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2010,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2002,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2001,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a2000,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1222,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1221,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1220,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1212,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1211,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1210,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1202,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1201,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1200,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1122,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1121,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1120,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1112,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1111,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1110,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1102,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1101,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1100,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1022,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1021,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1020,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1012,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1011,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1010,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1002,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1001,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a1000,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0222,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0221,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0220,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0212,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0211,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0210,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0202,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0201,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0200,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0122,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0121,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0120,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0112,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0111,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0110,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0102,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0101,FU))); DEFV(Local,DEFV(Float,INIT(pY_a0100,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0022,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0021,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0020,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0012,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0011,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0010,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0002,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0001,FZERO))); DEFV(Local,DEFV(Float,INIT(pY_a0000,FZERO))); /* Definition de la valeur des parametres de 'Fy(u,v)'. */ /* */ /* Les valeurs par defaut sont telles que : */ /* */ /* Fx(u,v) = 1 * sin(u) * 1 * sin(v) */ /* */ /* soit les indices : */ /* */ /* 0 1 0 1 */ /* */ DEFV(Local,DEFV(Float,INIT(parametre_RZ,FU))); /* Parametre introduit le 20201020105745... */ DEFV(Local,DEFV(Float,INIT(pZ_a2222,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2221,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2220,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2212,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2211,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2210,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2202,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2201,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2200,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2122,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2121,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2120,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2112,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2111,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2110,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2102,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2101,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2100,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2022,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2021,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2020,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2012,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2011,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2010,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2002,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2001,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a2000,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1222,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1221,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1220,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1212,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1211,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1210,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1202,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1201,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1200,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1122,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1121,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1120,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1112,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1111,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1110,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1102,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1101,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1100,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1022,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1021,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1020,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1012,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1011,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1010,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1002,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1001,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a1000,FU))); DEFV(Local,DEFV(Float,INIT(pZ_a0222,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0221,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0220,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0212,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0211,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0210,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0202,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0201,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0200,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0122,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0121,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0120,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0112,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0111,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0110,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0102,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0101,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0100,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0022,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0021,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0020,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0012,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0011,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0010,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0002,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0001,FZERO))); DEFV(Local,DEFV(Float,INIT(pZ_a0000,FZERO))); /* Definition de la valeur des parametres de 'Fz(u,v)'. */ /* */ /* Les valeurs par defaut sont telles que : */ /* */ /* Fx(u,v) = cos(u) * 1 * 1 * 1 */ /* */ /* soit les indices : */ /* */ /* 1 0 0 0 */ /* */ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D E S D E R I V E E S D E S P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ DEFV(Local,DEFV(Float,INIT(d_pX_a2222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a2000,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a1000,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pX_a0000,d_FCONSTANTES))); /* Definition de la valeur des derivees des parametres de 'Fx(u,v)'. */ DEFV(Local,DEFV(Float,INIT(d_pY_a2222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a2000,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a1000,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pY_a0000,d_FCONSTANTES))); /* Definition de la valeur des derivees des parametres de 'Fy(u,v)'. */ DEFV(Local,DEFV(Float,INIT(d_pZ_a2222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a2000,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a1000,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0222,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0221,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0220,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0212,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0211,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0210,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0202,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0201,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0200,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0122,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0121,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0120,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0112,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0111,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0110,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0102,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0101,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0100,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0022,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0021,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0020,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0012,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0011,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0010,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0002,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0001,d_FCONSTANTES))); DEFV(Local,DEFV(Float,INIT(d_pZ_a0000,d_FCONSTANTES))); /* Definition de la valeur des derivees des parametres de 'Fz(u,v)'. */