/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   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   1 "   N O N   S I M P L I F I E E  :     */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/bKlein.33$I' :                                                                                             */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20001004111317).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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 20040502092541 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_S                                                                                                                   \
                    FDEUX
=define   PARAMETRE_T                                                                                                                   \
                    FQUATRE
                                        /* Le passage de '$PASSE_1' a '$PASSE_2' a eu lieu le 20040503131049 en cas d'utilisation    */
                                        /* dans 'v $xrs/bKlein.51_61$K xrs/bKlein.33.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_S,fichier_PARAMETRE_S,PARAMETRE_S_IMPLICITE,PARAMETRE_S)
dfTRANSFORMAT_31(liste_PARAMETRE_T,fichier_PARAMETRE_T,PARAMETRE_T_IMPLICITE,PARAMETRE_T)
                                        /* Definition du fichier des parametres 's' et 't'.                                          */

#define   sPARAMETRE_S(numero_de_la_periode)                                                                                            \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_S))
#mdefine  sPARAMETRE_T(numero_de_la_periode)                                                                                            \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_T))
                                        /* Formule generale definissant les variations des parametres 's' et 't' au cours du temps.  */