/*************************************************************************************************************************************/
/* */
/* 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 " L I N E A I R E " D U Q U A T R I E M E D E G R E : */
/* */
/* */
/* Author of '$xrs/Horner24.12$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 20201120103501). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* 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_a44,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a43,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a42,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a41,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a40,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a34,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a33,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a32,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a31,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a30,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a24,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a23,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a22,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a21,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a20,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a14,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a13,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a12,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a11,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a10,FU)));
DEFV(Local,DEFV(Float,INIT(pX_a04,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a03,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a02,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a01,FZERO)));
DEFV(Local,DEFV(Float,INIT(pX_a00,FZERO)));
/* Definition de la valeur des parametres de 'Fx(u,v)'. */
/* */
/* Les valeurs par defaut sont telles que : */
/* */
/* Fx(u,v) = u */
/* */
DEFV(Local,DEFV(Float,INIT(parametre_RY,FU)));
DEFV(Local,DEFV(Float,INIT(pY_a44,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a43,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a42,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a41,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a40,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a34,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a33,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a32,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a31,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a30,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a24,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a23,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a22,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a21,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a20,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a14,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a13,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a12,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a11,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a10,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a04,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a03,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a02,FZERO)));
DEFV(Local,DEFV(Float,INIT(pY_a01,FU)));
DEFV(Local,DEFV(Float,INIT(pY_a00,FZERO)));
/* Definition de la valeur des parametres de 'Fy(u,v)'. */
/* */
/* Les valeurs par defaut sont telles que : */
/* */
/* Fx(u,v) = v */
/* */
DEFV(Local,DEFV(Float,INIT(parametre_RZ,FU)));
DEFV(Local,DEFV(Float,INIT(pZ_a44,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a43,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a42,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a41,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a40,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a34,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a33,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a32,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a31,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a30,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a24,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a23,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a22,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a21,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a20,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a14,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a13,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a12,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a11,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a10,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a04,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a03,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a02,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a01,FZERO)));
DEFV(Local,DEFV(Float,INIT(pZ_a00,FZERO)));
/* Definition de la valeur des parametres de 'Fz(u,v)'. */
/* */
/* Les valeurs par defaut sont telles que : */
/* */
/* Fx(u,v) = 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_a44,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a43,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a42,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a41,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a40,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a34,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a33,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a32,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a31,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a30,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a24,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a23,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a22,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a21,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a20,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a14,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a13,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a12,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a11,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a10,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a04,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a03,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a02,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a01,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pX_a00,d_FCONSTANTES)));
/* Definition de la valeur des derivees des parametres de 'Fx(u,v)'. */
DEFV(Local,DEFV(Float,INIT(d_pY_a44,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a43,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a42,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a41,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a40,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a34,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a33,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a32,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a31,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a30,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a24,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a23,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a22,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a21,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a20,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a14,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a13,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a12,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a11,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a10,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a04,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a03,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a02,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a01,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pY_a00,d_FCONSTANTES)));
/* Definition de la valeur des derivees des parametres de 'Fy(u,v)'. */
DEFV(Local,DEFV(Float,INIT(d_pZ_a44,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a43,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a42,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a41,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a40,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a34,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a33,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a32,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a31,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a30,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a24,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a23,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a22,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a21,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a20,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a14,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a13,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a12,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a11,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a10,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a04,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a03,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a02,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a01,d_FCONSTANTES)));
DEFV(Local,DEFV(Float,INIT(d_pZ_a00,d_FCONSTANTES)));
/* Definition de la valeur des derivees des parametres de 'Fz(u,v)'. */
Copyright © Jean-François Colonna, 2020-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2020-2021.