/*************************************************************************************************************************************/ /* */ /* 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 D R O I T E " E P A I S S I E " ( U N C Y L I N D R E ) : */ /* */ /* */ /* Author of '$xrs/cylindre.33$I' : */ /* */ /* Jean-Francois Colonna (LACTAMME, 20170130124402). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* 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 \ FRA4(FRA10(FU)) \ /* Rayon du disque materialisant une iteration. */ #include xrs/surfaces.11.I" dfTRANSFORMAT_31(liste_PARAMETRE_Ra,fichier_PARAMETRE_Ra,PARAMETRE_Ra_IMPLICITE,PARAMETRE_Ra) /* Definition du fichier du parametre 'Ra'. */ #define sPARAMETRE_Ra(numero_de_la_periode) \ FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_Ra)) \ /* Formule generale definissant les variations de 'Ra' au cours du temps. */ dfTRANSFORMAT_31(liste_PARAMETRE_Rb,fichier_PARAMETRE_Rb,PARAMETRE_Rb_IMPLICITE,PARAMETRE_Rb) /* Definition du fichier du parametre 'Rb'. */ #define sPARAMETRE_Rb(numero_de_la_periode) \ FLOT(sTRANSFORMAT_31(numero_de_la_periode,liste_PARAMETRE_Rb)) \ /* Formule generale definissant les variations de 'Rb' au cours du temps. */