/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   D E   L A   N - B O U T E I L L E   D E   K L E I N   D I T E   " V E R S I O N   2 "  :                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/bKlein.63$I' :                                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20030404093019).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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"

                                        /* Les passages de '$PASSE_1' a '$PASSE_2' ont eu lieu le 20040502092544 pour permettre      */
                                        /* en particulier la realisation de 'v $xrs/bKlein.51_61$K' ; c'est vrai aussi du            */
                                        /* remplacement de certains 'define's par des 'mdefine's...                                  */

=define   PARAMETRE_M                                                                                                                   \
                    FTROIS
=define   PARAMETRE_T                                                                                                                   \
                    DIVI(FTROIS,FDEUX)
                                        /* Le passage de '$PASSE_1' a '$PASSE_2' a eu lieu le 20040503131148 en cas d'utilisation    */
                                        /* dans 'v $xrs/bKlein.51_61$K xrs/bKlein.63.I' pour eviter des messages "... redefined"     */
                                        /* relatifs au symbole 'PARAMETRE_T' definis dans {$xrs/bKlein.63$I,$xrs/bKlein.63$I} et     */
                                        /* donc doublement...                                                                        */

dfTRANSFORMAT_31(liste_PARAMETRE_M,fichier_PARAMETRE_M,PARAMETRE_M_IMPLICITE,PARAMETRE_M)
                                        /* Definition du fichier du parametre 'm'.                                                   */
dfTRANSFORMAT_31(liste_PARAMETRE_T,fichier_PARAMETRE_T,PARAMETRE_T_IMPLICITE,PARAMETRE_T)
                                        /* Definition du fichier du parametre 't' (introduit le 20030408161844).                     */

#define   sPARAMETRE_M(numero_de_la_periode)                                                                                            \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_M))                                                       \
                                        /* Formule generale definissant les variations du parametre 'm' au cours du temps.           */
#mdefine  sPARAMETRE_T(numero_de_la_periode)                                                                                            \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_T))                                                       \
                                        /* Formule generale definissant les variations du parametre 't' au cours du temps.           */