/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D ' U N C H A M P E L E C T R O - M A G N E T I Q U E " A M B I A N T " : */
/* */
/* */
/* Author of '$xrq/particle.M52$I' : */
/* */
/* Jean-Francois Colonna (LACTAMME, 1994??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S T A T I Q U E D U C H A M P E L E C T R O - M A G N E T I Q U E " A M B I A N T " : */
/* */
/*************************************************************************************************************************************/
#define CHAMP_ELECTRIQUE_X \
FZERO
#define CHAMP_ELECTRIQUE_Y \
FZERO
#define CHAMP_ELECTRIQUE_Z \
FZERO
DEFV(Local,DEFV(Float,INIT(champ_electrique_X,CHAMP_ELECTRIQUE_X)));
DEFV(Local,DEFV(Float,INIT(champ_electrique_Y,CHAMP_ELECTRIQUE_Y)));
DEFV(Local,DEFV(Float,INIT(champ_electrique_Z,CHAMP_ELECTRIQUE_Z)));
DEFV(Local,DEFV(deltaF_3D,champ_electrique));
/* --> */
/* Champ electrique E implicite. */
#define CHAMP_MAGNETIQUE_X \
FZERO
#define CHAMP_MAGNETIQUE_Y \
FZERO
#define CHAMP_MAGNETIQUE_Z \
FZERO
DEFV(Local,DEFV(Float,INIT(champ_magnetique_X,CHAMP_MAGNETIQUE_X)));
DEFV(Local,DEFV(Float,INIT(champ_magnetique_Y,CHAMP_MAGNETIQUE_Y)));
DEFV(Local,DEFV(Float,INIT(champ_magnetique_Z,CHAMP_MAGNETIQUE_Z)));
DEFV(Local,DEFV(deltaF_3D,champ_magnetique));
/* --> */
/* Champ electrique B implicite. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D Y N A M I Q U E D U C H A M P E L E C T R I Q U E " A M B I A N T " : */
/* */
/*************************************************************************************************************************************/
dfTRANSFORMAT_21(liste_CHAMP_ELECTRIQUE_X,fichier_CHAMP_ELECTRIQUE_X,CHAMP_ELECTRIQUE_X_IMPLICITE,CHAMP_ELECTRIQUE_X)
dfTRANSFORMAT_21(liste_CHAMP_ELECTRIQUE_Y,fichier_CHAMP_ELECTRIQUE_Y,CHAMP_ELECTRIQUE_Y_IMPLICITE,CHAMP_ELECTRIQUE_Y)
dfTRANSFORMAT_21(liste_CHAMP_ELECTRIQUE_Z,fichier_CHAMP_ELECTRIQUE_Z,CHAMP_ELECTRIQUE_Z_IMPLICITE,CHAMP_ELECTRIQUE_Z)
/* Definition du champ electrique a chaque instant. */
#define sCHAMP_ELECTRIQUE_X(numero_de_la_periode) \
FLOT(sTRANSFORMAT_21(numero_de_la_periode \
,liste_CHAMP_ELECTRIQUE_X \
) \
)
#define sCHAMP_ELECTRIQUE_Y(numero_de_la_periode) \
FLOT(sTRANSFORMAT_21(numero_de_la_periode \
,liste_CHAMP_ELECTRIQUE_Y \
) \
)
#define sCHAMP_ELECTRIQUE_Z(numero_de_la_periode) \
FLOT(sTRANSFORMAT_21(numero_de_la_periode \
,liste_CHAMP_ELECTRIQUE_Z \
) \
)
/* Formule generale definissant le champ electrique instantane. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N D Y N A M I Q U E D U C H A M P M A G N E T I Q U E " A M B I A N T " : */
/* */
/*************************************************************************************************************************************/
dfTRANSFORMAT_21(liste_CHAMP_MAGNETIQUE_X,fichier_CHAMP_MAGNETIQUE_X,CHAMP_MAGNETIQUE_X_IMPLICITE,CHAMP_MAGNETIQUE_X)
dfTRANSFORMAT_21(liste_CHAMP_MAGNETIQUE_Y,fichier_CHAMP_MAGNETIQUE_Y,CHAMP_MAGNETIQUE_Y_IMPLICITE,CHAMP_MAGNETIQUE_Y)
dfTRANSFORMAT_21(liste_CHAMP_MAGNETIQUE_Z,fichier_CHAMP_MAGNETIQUE_Z,CHAMP_MAGNETIQUE_Z_IMPLICITE,CHAMP_MAGNETIQUE_Z)
/* Definition du champ magnetique a chaque instant. */
#define sCHAMP_MAGNETIQUE_X(numero_de_la_periode) \
FLOT(sTRANSFORMAT_21(numero_de_la_periode \
,liste_CHAMP_MAGNETIQUE_X \
) \
)
#define sCHAMP_MAGNETIQUE_Y(numero_de_la_periode) \
FLOT(sTRANSFORMAT_21(numero_de_la_periode \
,liste_CHAMP_MAGNETIQUE_Y \
) \
)
#define sCHAMP_MAGNETIQUE_Z(numero_de_la_periode) \
FLOT(sTRANSFORMAT_21(numero_de_la_periode \
,liste_CHAMP_MAGNETIQUE_Z \
) \
)
/* Formule generale definissant le champ magnetique instantane. */