/*************************************************************************************************************************************/
/* */
/* 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 V A R I E T E D E H O R N E R " C I R C U L A I R E " D U P R E M I E R D E G R E : */
/* */
/* */
/* Author of '$xrs/Horner61.12$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 20201122114541). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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)));
DEFV(Local,DEFV(Float,INIT(pX_a111111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a111110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a111101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a111100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a111011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a111010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a111001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a111000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a110000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a101000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a100000,FU)));
DEFV(Local,DEFV(Float,INIT(pX_a011111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a011110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a011101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a011100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a011011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a011010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a011001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a011000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a010000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a001000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a000000,FZERO)));
/* Definition de la valeur des parametres de 'Fx(u,v,w)'. */
/* */
/* Les valeurs par defaut sont telles que : */
/* */
/* Fx(u,v,w) = cos(u) */
/* */
DEFV(Local,DEFV(Float,INIT(parametre_RY,FU)));
DEFV(Local,DEFV(Float,INIT(pY_a111111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a111110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a111101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a111100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a111011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a111010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a111001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a111000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a110000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a101000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a100000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a011000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a010000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a001000,FU)));
DEFV(Local,DEFV(Float,INIT(pY_a000111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a000110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a000101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a000100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a000011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a000010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a000001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a000000,FZERO)));
/* Definition de la valeur des parametres de 'Fy(u,v,w)'. */
/* */
/* Les valeurs par defaut sont telles que : */
/* */
/* Fx(u,v,w) = cos(v) */
/* */
DEFV(Local,DEFV(Float,INIT(parametre_RZ,FU)));
DEFV(Local,DEFV(Float,INIT(pZ_a111111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a111110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a111101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a111100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a111011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a111010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a111001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a111000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a110000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a101000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a100000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a011000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a010000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001010,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a001000,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a000111,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a000110,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a000101,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a000100,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a000011,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a000010,FU)));
DEFV(Local,DEFV(Float,INIT(pZ_a000001,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a000000,FZERO)));
/* Definition de la valeur des parametres de 'Fz(u,v,w)'. */
/* */
/* Les valeurs par defaut sont telles que : */
/* */
/* Fx(u,v,w) = cos(w) */
/* */
Copyright © Jean-François Colonna, 2020-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2020-2021.