/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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 E   L A   S U R F A C E   D E   B O Y  :                                                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/sBoy.13$I' :                                                                                               */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 19990120090311).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F O N C T I O N S   D E   V I S U A L I S A T I O N   E T   D ' I N T E R P O L A T I O N  :                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrs/surfaces.11.I"

=define   PARAMETRE_R                                                                                                                   \
                    PARE(+0.070)

dfTRANSFORMAT_31(liste_PARAMETRE_R,fichier_PARAMETRE_R,PARAMETRE_R_IMPLICITE,PARAMETRE_R)
                                        /* Definition du fichier "Rayon".                                                            */

#define   sPARAMETRE_R(numero_de_la_periode)                                                                                            \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_R))
                                        /* Formule generale definissant les variations du parametre 'R' au cours du temps.           */

=define   PARAMETRE_C0                                                                                                                  \
                    PARE(+10.0)
=define   PARAMETRE_C1                                                                                                                  \
                    PARE(+1.41)
=define   PARAMETRE_C2                                                                                                                  \
                    PARE(+1.98)

dfTRANSFORMAT_31(liste_PARAMETRE_C0,fichier_PARAMETRE_C0,PARAMETRE_C0_IMPLICITE,PARAMETRE_C0)
dfTRANSFORMAT_31(liste_PARAMETRE_C1,fichier_PARAMETRE_C1,PARAMETRE_C1_IMPLICITE,PARAMETRE_C1)
dfTRANSFORMAT_31(liste_PARAMETRE_C2,fichier_PARAMETRE_C2,PARAMETRE_C2_IMPLICITE,PARAMETRE_C2)
                                        /* Definition des fichiers des coefficients '{C0,C1,C2}'                                     */

#define   sPARAMETRE_C0(numero_de_la_periode)                                                                                           \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_C0))
#define   sPARAMETRE_C1(numero_de_la_periode)                                                                                           \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_C1))
#define   sPARAMETRE_C2(numero_de_la_periode)                                                                                           \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_C2))
                                        /* Formule generale definissant les variations des coefficients '{C0,C1,C2}' au cours de t.  */