/*************************************************************************************************************************************/
/* */
/* T E S T D E L ' U N I F I C A T I O N D E T R O I S D E S */
/* Q U A T R E I N T E R A C T I O N S F O N D A M E N T A L E S : */
/* */
/* */
/* Author of '$xrq/particle.M0$K' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1994??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R F A C E ' listG ' : */
/* */
/* */
/* :Debut_listG: */
/* :Fin_listG: */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* D I R E C T I V E S S P E C I F I Q U E S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
@define PRAGMA_CPP_____MODULE_NON_DERIVABLE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S G E N E R A U X : */
/* */
/*************************************************************************************************************************************/
/* Nota : les fichiers d'includes generaux ci-apres ne peuvent etre references dans le */
/* fichier "particle.M1.I" (malheureusement) a cause du fonctionnement de la commande */
/* '$xcc/cl$Z' qui n'explore pas recursivement les fichiers d'includes... */
#include INCLUDES_BASE
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* O P T I O N S D E C O M P I L A T I O N : */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* F I C H I E R S D ' I N C L U D E S S P E C I F I Q U E S : */
/* */
/*************************************************************************************************************************************/
#include xrq/particle.M1.I"
/* Definitions de compilation. */
#include xrq/particle.M2.I"
/* Definitions des constantes universelles. */
#include xrq/particle.M3.I"
/* Definitions du temps. */
#include xrq/particle.M4.I"
/* Definitions des differents espaces. */
#include xrq/particle.Mf.I"
/* Definitions des interpolations de parametres. */
#include xrq/particle.M51.I"
#include xrq/particle.M5.I"
#include xrq/particle.M52.I"
#include xrq/particle.M53.I"
/* Definition des descriptions des particules. */
#include xrq/particle.M8.I"
/* Definition de la gestion (liste,...) des particules. */
#include xrq/particle.M55.I"
/* Definition des fonctions de definition et d'edition des particules. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* T E S T D E L ' U N I F I C A T I O N D E T R O I S D E S */
/* Q U A T R E I N T E R A C T I O N S F O N D A M E N T A L E S : */
/* */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
Bblock
DEFV(Particule,INIT(POINTERs(electron),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(neutrino_electronique),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(muon),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(neutrino_muonique),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(tau),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(neutrino_tauique),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(quark_u),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(quark_d),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(quark_c),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(quark_s),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(quark_t),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(quark_b),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(photon),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(boson_Wm),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(boson_Z0),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(gluon),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(boson_Y),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(boson_X),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(graviton),PARTICULE_NON_DEFINIE));
DEFV(Particule,INIT(POINTERs(higgs),PARTICULE_NON_DEFINIE));
/* Particules de test (liste exhaustive...). */
/*..............................................................................................................................*/
#include xrv/champs_5.1A.I"
GET_ARGUMENTSv(nombre_d_arguments
,BLOC(
)
);
#define rv \
REELLE
#define pap \
PARTICULE
#define lo \
FU
#define h \
GAUCHE
#define P \
PAIRE
#define RV \
ccm1s2
#define VB \
cc0
#define BR \
ccp1s2
#define x0 \
UN
#define y0 \
DEUX
#define z0 \
TROIS
#define Vx0 \
QUATRE
#define Vy0 \
CINQ
#define Vz0 \
SIX
#define Lx0 \
SEPT
#define Ly0 \
HUIT
#define Lz0 \
NEUF
#define v \
VRAI
#define r \
FU
#define cR \
INVE(UN)
#define cV \
INVE(DEUX)
#define cB \
INVE(TROIS)
iELECTRON(electron,rv,pap,lo,h,P,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iNEUTRINO_ELECTRON(neutrino_electronique,rv,pap,lo,h,P,x0,y0,z0,VITESSE_DE_LA_LUMIERE,FZERO,FZERO,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iMUON(muon,rv,pap,lo,h,P,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iNEUTRINO_MUON(neutrino_muonique,rv,pap,lo,h,P,x0,y0,z0,VITESSE_DE_LA_LUMIERE,FZERO,FZERO,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iTAU(tau,rv,pap,lo,h,P,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iNEUTRINO_TAU(neutrino_tauique,rv,pap,lo,h,P,x0,y0,z0,VITESSE_DE_LA_LUMIERE,FZERO,FZERO,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iQUARK_u(quark_u,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iQUARK_d(quark_d,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iQUARK_c(quark_c,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iQUARK_s(quark_s,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iQUARK_t(quark_t,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iQUARK_b(quark_b,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iPHOTON(photon,rv,lo,h,P,x0,y0,z0,VITESSE_DE_LA_LUMIERE,FZERO,FZERO,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iWm(boson_Wm,rv,pap,lo,h,P,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iZ0(boson_Z0,rv,pap,lo,h,P,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iGLUON(gluon,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,VITESSE_DE_LA_LUMIERE,FZERO,FZERO,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iY(boson_Y,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iX(boson_X,rv,pap,lo,h,P,RV,VB,BR,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iGRAVITON(graviton,rv,pap,lo,h,P,x0,y0,z0,VITESSE_DE_LA_LUMIERE,FZERO,FZERO,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
iHIGGS(higgs,rv,pap,lo,h,P,x0,y0,z0,Vx0,Vy0,Vz0,Lx0,Ly0,Lz0,v,r,cR,cV,cB);
pPARTICULE(electron);
pPARTICULE(neutrino_electronique);
pPARTICULE(muon);
pPARTICULE(neutrino_muonique);
pPARTICULE(tau);
pPARTICULE(neutrino_tauique);
pPARTICULE(quark_u);
pPARTICULE(quark_d);
pPARTICULE(quark_c);
pPARTICULE(quark_s);
pPARTICULE(quark_t);
pPARTICULE(quark_b);
pPARTICULE(photon);
pPARTICULE(boson_Wm);
pPARTICULE(boson_Z0);
pPARTICULE(gluon);
pPARTICULE(boson_Y);
pPARTICULE(boson_X);
pPARTICULE(graviton);
pPARTICULE(higgs);
/* Test de l'initialisation des particules... */
RETU_Commande;
Eblock
ECommande
Copyright © Jean-François COLONNA, 2019-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2019-2024.