/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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   D I S Q U E   D U   P L A N   C O M P L E X E  :                                                                 */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrs/disque.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  :                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#TestADef RAYON_DE_VISUALISATION                                                                                                        \
                    GRO1(FRA10(FU))                                                                                                     \
                                        /* Rayon du disque materialisant une iteration.                                              */

#include  xrs/surfaces.11.I"

=define   PARAMETRE_S1                                                                                                                  \
                    FU
=define   PARAMETRE_S2                                                                                                                  \
                    FU

dfTRANSFORMAT_31(liste_PARAMETRE_S1,fichier_PARAMETRE_S1,PARAMETRE_S1_IMPLICITE,PARAMETRE_S1)
dfTRANSFORMAT_31(liste_PARAMETRE_S2,fichier_PARAMETRE_S2,PARAMETRE_S2_IMPLICITE,PARAMETRE_S2)
                                        /* Definition du fichier des parametres 's1' et 's2'.                                        */

#define   sPARAMETRE_S1(numero_de_la_periode)                                                                                           \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_S1))
#define   sPARAMETRE_S2(numero_de_la_periode)                                                                                           \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_S2))
                                        /* Formule generale definissant les variations de 's1' et 's2' au cours du temps.            */

=define   PARAMETRE_H                                                                                                                   \
                    FZERO

dfTRANSFORMAT_31(liste_PARAMETRE_H,fichier_PARAMETRE_H,PARAMETRE_H_IMPLICITE,PARAMETRE_H)
                                        /* Definition du fichier des parametres 'h' (introduit le 20051229100606). La valeur par     */
                                        /* defaut est choisie de facon a assurer la compatibilite anterieure, ce qui garantit :      */
                                        /*                                                                                           */
                                        /*                  Fz(u,v) = 0                                                              */
                                        /*                                                                                           */

#define   sPARAMETRE_H(numero_de_la_periode)                                                                                            \
                    FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_H))                                                       \
                                        /* Formule generale definissant les variations de 'h' au cours du temps (introduit le        */
                                        /* 20051229100606).                                                                          */