/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   E S C A R G O T  :                                                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/escargot.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_K                                                                                                                   \
                    DIVI(LOGX(FDEUX),CERCLE_TRIGONOMETRIQUE)
dfTRANSFORMAT_31(liste_PARAMETRE_K,fichier_PARAMETRE_K,PARAMETRE_K_IMPLICITE,PARAMETRE_K)
                                        /* Definition du fichier du parametre 'k'.                                                   */
#define   sPARAMETRE_K(numero_de_la_periode)                                                                                            \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_K))                                                       \
                                        /* Formule generale definissant les variations du parametre 'k' au cours du temps.           */