/*************************************************************************************************************************************/
/* */
/* D E F I N I T I O N S D E S F L U C T U A T I O N S Q U A N T I Q U E S D U V I D E : */
/* */
/* */
/* Author of '$xrq/nucleon.LI$I' : */
/* */
/* Jean-Francois COLONNA (LACTAMME, 1991??????????). */
/* */
/*************************************************************************************************************************************/
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E V E N E M E N T N E U T R E P O U R U N P O I N T D U V I D E : */
/* */
/*************************************************************************************************************************************/
#define PROBABILITE_DE_INCHANGE_V \
GRO1(FRA2(FU))
DEFV(Local,DEFV(Float,INIT(probabilite_de_INCHANGE_V,PROBABILITE_DE_INCHANGE_V)));
/* Probabilite du vertex : V --> V. */
#define INCHANGE_V \
Bblock \
Eblock \
/* Vertex : V --> V. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* I N T E R A C T I O N F O R T E ( " S T R O N G I N T E R A C T I O N " ) */
/* */
/* E V E N E M E N T S " C O N D I T I O N N E L S " P O U R U N P O I N T D U V I D E : */
/* */
/*************************************************************************************************************************************/
#define PROBABILITE_DE_STRONG_CREATION_V___QxAQxG \
FRA2(PROBABILITE_DE_INCHANGE_V)
DEFV(Local,DEFV(Float,INIT(probabilite_de_STRONG_CREATION_V___QxAQxG,PROBABILITE_DE_STRONG_CREATION_V___QxAQxG)));
/* _ */
/* Probabilite du vertex : V --> QxQxG. */
#define ANGLE_POLARISATION_DE_STRONG_CREATION_V___QxAQxG \
NEUT(GRO5(FRA9(PI_SUR_2)))
DEFV(Local,DEFV(Float,INIT(angle_polarisation_de_STRONG_CREATION_V___QxAQxG
,ANGLE_POLARISATION_DE_STRONG_CREATION_V___QxAQxG
)
)
);
/* _ */
/* Dispersion de l'angle du vertex : V --> QxQxG. */
DEFV(Local,DEFV(Positive,INIT(compteur_de_STRONG_CREATION_V___QxAQxG,ZERO)));
/* _ */
/* Compteur des vertex : V --> QxQxG. */
#define STRONG_CREATION_V___QxAQxG(quarkA1,anti_quarkA1,gluonA1) \
Bblock \
DEFINITION_DE_LA_VITESSE_ALEATOIRE; \
/* Structures necessaires a definir une vitesse en coordonnees spheriques et en coordonnees */ \
/* cartesiennes. */ \
DEBUT_DE_ROTATION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT(point_courant_dans_le_vide); \
DEBUT_DE_CHOIX_D_UNE_DIRECTION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
/* Rotation aleatoire de l'espace physique afin de placer le vertex 'V --> QxAQxG' dans */ \
/* le plan (OX2,OY2) du referentiel aleatoire (OX2,OY2,OZ2). */ \
INITIALISATION_DU_MODULE_DE_LA_VITESSE_ALEATOIRE_D_UN_QUARK_OU_D_UN_ANTI_QUARK; \
/* Choix aleatoire du meme module de la vitesse pour 'Q' et 'AQ'... */ \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,NEUT(ADD2(GRO1(FRA3(CERCLE_TRIGONOMETRIQUE)) \
,EXAGERATION(angle_polarisation_de_STRONG_CREATION_V___QxAQxG) \
) \
) \
); \
CREATION_D_UN_QUARK_VIRTUEL(quarkA1 \
,QUARK_SAVEUR_INDEFINIE \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(quarkA1,PERTURBER_UNE_POSITION); \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,NEGA(ADD2(GRO1(FRA3(CERCLE_TRIGONOMETRIQUE)) \
,EXAGERATION(angle_polarisation_de_STRONG_CREATION_V___QxAQxG) \
) \
) \
); \
CREATION_D_UN_ANTI_QUARK_VIRTUEL(anti_quarkA1 \
,QUARK_SAVEUR_INDEFINIE \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(anti_quarkA1,PERTURBER_UNE_POSITION); \
INITIALISATION_DU_MODULE_DE_LA_VITESSE_ALEATOIRE_D_UN_GLUON; \
/* Le module de la vitesse des gluons est figees, puisque ces particules se deplacent a la */ \
/* vitesse de la lumiere, et la direction est aleatoire (en coordonnees spheriques). */ \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,NEUT(GRO0(FRA3(CERCLE_TRIGONOMETRIQUE))) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA1 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA1,PERTURBER_UNE_POSITION); \
GENERATION_DE_3_CHARGES_DE_COULEUR(quarkA1,anti_quarkA1,gluonA1); \
TRACE_D_UN_EVENEMENT(Prin3("STRONG_CREATION_V___QxAQxG VIDE --> Q(%d)xAQ(%d)xG(%d)" \
,ETIQUETTE(quarkA1) \
,ETIQUETTE(anti_quarkA1) \
,ETIQUETTE(gluonA1) \
) \
); \
FIN_DE_CHOIX_D_UNE_DIRECTION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
FIN_DE_ROTATION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
INCR(compteur_de_STRONG_CREATION_V___QxAQxG,I); \
Eblock \
/* _ */ \
/* Vertex : V --> QxQxG. */
#define PROBABILITE_DE_STRONG_CREATION_V___GxGxG \
GRO3(FRA2(PROBABILITE_DE_STRONG_CREATION_V___QxAQxG))
DEFV(Local,DEFV(Float,INIT(probabilite_de_STRONG_CREATION_V___GxGxG,PROBABILITE_DE_STRONG_CREATION_V___GxGxG)));
/* Probabilite du vertex : V --> GxGxG. */
#define ANGLE_POLARISATION_DE_STRONG_CREATION_V___GxGxG \
NEUT(GRO5(FRA9(PI_SUR_2)))
DEFV(Local,DEFV(Float,INIT(angle_polarisation_de_STRONG_CREATION_V___GxGxG
,ANGLE_POLARISATION_DE_STRONG_CREATION_V___GxGxG
)
)
);
/* Dispersion de l'angle du vertex : V --> GxGxG. */
DEFV(Local,DEFV(Positive,INIT(compteur_de_STRONG_CREATION_V___GxGxG,ZERO)));
/* Compteur des vertex : V --> GxGxG. */
#define STRONG_CREATION_V___GxGxG(gluonA1,gluonA2,gluonA3) \
Bblock \
DEFINITION_DE_LA_VITESSE_ALEATOIRE; \
/* Structures necessaires a definir une vitesse en coordonnees spheriques et en coordonnees */ \
/* cartesiennes. */ \
INITIALISATION_DU_MODULE_DE_LA_VITESSE_ALEATOIRE_D_UN_GLUON; \
/* Le module de la vitesse des gluons est figees, puisque ces particules se deplacent a la */ \
/* vitesse de la lumiere, et la direction est aleatoire (en coordonnees spheriques). */ \
DEBUT_DE_ROTATION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT(point_courant_dans_le_vide); \
DEBUT_DE_CHOIX_D_UNE_DIRECTION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
/* Rotation aleatoire de l'espace physique afin de placer le vertex 'V --> GxGxG' dans */ \
/* le plan (OX2,OY2) du referentiel aleatoire (OX2,OY2,OZ2). */ \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,GRO0(FRA3(CERCLE_TRIGONOMETRIQUE)) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA1 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA1,PERTURBER_UNE_POSITION); \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,NEUT(ADD2(GRO1(FRA3(CERCLE_TRIGONOMETRIQUE)) \
,EXAGERATION(angle_polarisation_de_STRONG_CREATION_V___GxGxG) \
) \
) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA2 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA2,PERTURBER_UNE_POSITION); \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,NEGA(ADD2(GRO1(FRA3(CERCLE_TRIGONOMETRIQUE)) \
,EXAGERATION(angle_polarisation_de_STRONG_CREATION_V___GxGxG) \
) \
) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA3 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA3,PERTURBER_UNE_POSITION); \
GENERATION_DE_3_CHARGES_DE_COULEUR(gluonA1,gluonA2,gluonA3); \
TRACE_D_UN_EVENEMENT(Prin3("STRONG_CREATION_V___GxGxG VIDE --> G(%d)xG(%d)xG(%d)" \
,ETIQUETTE(gluonA1) \
,ETIQUETTE(gluonA2) \
,ETIQUETTE(gluonA3) \
) \
); \
FIN_DE_CHOIX_D_UNE_DIRECTION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
FIN_DE_ROTATION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
INCR(compteur_de_STRONG_CREATION_V___GxGxG,I); \
Eblock \
/* Vertex : V --> GxGxG. */
#define PROBABILITE_DE_STRONG_CREATION_V___GxGxGxG \
EXP2(PROBABILITE_DE_STRONG_CREATION_V___GxGxG)
DEFV(Local,DEFV(Float,INIT(probabilite_de_STRONG_CREATION_V___GxGxGxG,PROBABILITE_DE_STRONG_CREATION_V___GxGxGxG)));
/* Probabilite du vertex : V --> GxGxGxG. */
#define ANGLE_POLARISATION_DE_STRONG_CREATION_V___GxGxGxG \
NEUT(GRO7(FRA9(PI_SUR_2)))
DEFV(Local,DEFV(Float,INIT(angle_polarisation_de_STRONG_CREATION_V___GxGxGxG
,ANGLE_POLARISATION_DE_STRONG_CREATION_V___GxGxGxG
)
)
);
/* Dispersion de l'angle du vertex : V --> GxGxGxG. */
DEFV(Local,DEFV(Positive,INIT(compteur_de_STRONG_CREATION_V___GxGxGxG,ZERO)));
/* Compteur des vertex : V --> GxGxGxG. */
#define STRONG_CREATION_V___GxGxGxG(gluonA1,gluonA2,gluonA3,gluonA4) \
Bblock \
DEFINITION_DE_LA_VITESSE_ALEATOIRE; \
/* Structures necessaires a definir une vitesse en coordonnees spheriques et en coordonnees */ \
/* cartesiennes. */ \
INITIALISATION_DU_MODULE_DE_LA_VITESSE_ALEATOIRE_D_UN_GLUON; \
/* Le module de la vitesse des gluons est figees, puisque ces particules se deplacent a la */ \
/* vitesse de la lumiere, et la direction est aleatoire (en coordonnees spheriques). */ \
DEBUT_DE_ROTATION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT(point_courant_dans_le_vide); \
DEBUT_DE_CHOIX_D_UNE_DIRECTION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
/* Rotation aleatoire de l'espace physique afin de placer le vertex 'V --> GxGxGxG' dans */ \
/* le plan (OX2,OY2) du referentiel aleatoire (OX2,OY2,OZ2). */ \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,GRO0(FRA4(CERCLE_TRIGONOMETRIQUE)) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA1 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA1,PERTURBER_UNE_POSITION); \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,NEUT(ADD2(GRO1(FRA4(CERCLE_TRIGONOMETRIQUE)) \
,EXAGERATION(angle_polarisation_de_STRONG_CREATION_V___GxGxGxG) \
) \
) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA2 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA2,PERTURBER_UNE_POSITION); \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,GRO2(FRA4(CERCLE_TRIGONOMETRIQUE)) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA3 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA3,PERTURBER_UNE_POSITION); \
VITESSE_CARTESIENNE_POLAIRE(vitesse_courante \
,rho_de_la_vitesse \
,OPPOSITION_DE_PHASE(theta_polaire) \
,NEGA(ADD2(GRO1(FRA4(CERCLE_TRIGONOMETRIQUE)) \
,EXAGERATION(angle_polarisation_de_STRONG_CREATION_V___GxGxGxG) \
) \
) \
); \
CREATION_D_UN_GLUON_VIRTUEL(gluonA4 \
,point_courant_dans_le_vide \
,vitesse_courante \
,ROUGE_indefinie \
,VERTE_indefinie \
,BLEUE_indefinie \
); \
FLUCTUATION_ALEATOIRE_DES_POSITIONS_INITIALE_ET_COURANTE(gluonA4,PERTURBER_UNE_POSITION); \
GENERATION_DE_4_CHARGES_DE_COULEUR(gluonA1,gluonA2,gluonA3,gluonA4); \
TRACE_D_UN_EVENEMENT(Prin4("STRONG_CREATION_V___GxGxGxG VIDE --> G(%d)xG(%d)xG(%d)xG(%d)" \
,ETIQUETTE(gluonA1) \
,ETIQUETTE(gluonA2) \
,ETIQUETTE(gluonA3) \
,ETIQUETTE(gluonA4) \
) \
); \
FIN_DE_CHOIX_D_UNE_DIRECTION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
FIN_DE_ROTATION_D_ALIGNEMENT_DE_L_ESPACE_PHYSIQUE_VERS_LE_QUARK_REEL_DOMINANT; \
INCR(compteur_de_STRONG_CREATION_V___GxGxGxG,I); \
Eblock \
/* Vertex : V --> GxGxGxG. */
/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/* */
/* E V E N E M E N T S " C O N D I T I O N N E L S " P O U R L E V I D E */
/* O U " F L U C T U A T I O N S Q U A N T I Q U E S D U V I D E " : */
/* */
/*************************************************************************************************************************************/
#define NOMBRE_D_EVENEMENTS_POUR_LES_FLUCTUATIONS_QUANTIQUES_DU_VIDE \
GRO2(MILLE) \
/* Nombre d'evenements de fluctuations du vide, dont tous ne seront pas fructueux... */
DEFV(Local,DEFV(Positive,INIT(nombre_d_evenements_pour_les_fluctuations_quantiques_du_vide
,NOMBRE_D_EVENEMENTS_POUR_LES_FLUCTUATIONS_QUANTIQUES_DU_VIDE
)
)
);
/* Nombre d'evenements a produire pour faire fluctuer le vide... */
#define PROBABILITE_D_EVENEMENT_CONDITIONNEL_POUR_UN_POINT_DU_VIDE \
GRO2(FRA2(FU))
DEFV(Local,DEFV(Float,INIT(probabilite_d_evenement_conditionnel_pour_un_point_du_vide
,PROBABILITE_D_EVENEMENT_CONDITIONNEL_POUR_UN_POINT_DU_VIDE
)
)
);
/* Probabilite pour qu'un point du vide choisit aleatoirement soit la "victime" d'un */
/* evenement conditionnel du type : */
/* */
/* INCHANGE_V, */
/* STRONG_CREATION_V___QxAQxG, */
/* STRONG_CREATION_V___GxGxG, */
/* STRONG_CREATION_V___GxGxGxG. */
/* */
#define ___FLUCTUATIONS_QUANTIQUES_DU_VIDE \
Bblock \
DEFV(pointF_3D,point_courant_dans_le_vide); \
/* Pour memoriser la position du point courant dans le vide. */ \
Repe(INTE(tSCALE(REGUL1(FLOT(nombre_d_evenements_pour_les_fluctuations_quantiques_du_vide))))) \
/* ATTENTION : le nombre d'evenements ne change pas quand la periode de l'horloge varie, */ \
/* l'influence du temps se faisant sentir dans 'GENERATION_D_UNE_PROBABILITE_01(...)'. */ \
Bblock \
DEFV(Float,INIT(champ_aleatoire,FLOT__UNDEF)); \
/* Pour calculer la valeur d'un champ aleatoire a l'emplacement du point courant. */ \
GENERATION_D_UN_POINT(point_courant_dans_le_vide); \
/* Selection d'un point alaetoire dans le vide (fluctuation potentielle). */ \
CALCUL_DU_CHAMP_GLOBAL(ASD1(point_courant_dans_le_vide,x) \
,ASD1(point_courant_dans_le_vide,y) \
,ASD1(point_courant_dans_le_vide,z) \
,CALCULER_LE_CHAMP_DE_FLUX \
,NE_PAS_CALCULER_LE_CHAMP_DE_CONFINEMENT \
,cutoff_du_champ_global \
); \
GENERATION_D_UNE_VALEUR(champ_aleatoire,MINIMUM_DU_CHAMP_GLOBAL,MAXIMUM_DU_CHAMP_GLOBAL); \
/* Valeur du champ aleatoire a l'emplacement du point courant dans le vide. */ \
Test(IFLE(champ_aleatoire,champ_global)) \
Bblock \
/* Lorsque le champ aleatoire est inferieur au champ global, la fluctuation est acceptee */ \
/* et de potentielle, devient VIRTUELle... */ \
DEFV(Float,INIT(probabilite_d_evenement_conditionnel,FLOT__UNDEF)); \
/* Probabilite pour que le point courant soit la "victime" d'un evenement conditionnel du */ \
/* type : */ \
/* */ \
/* INCHANGE_V, */ \
/* STRONG_CREATION_V___QxAQxG, */ \
/* STRONG_CREATION_V___GxGxG, */ \
/* STRONG_CREATION_V___GxGxGxG. */ \
/* */ \
GENERATION_D_UNE_PROBABILITE_01(probabilite_d_evenement_conditionnel); \
Test(IFLE(probabilite_d_evenement_conditionnel \
,REGUL0(probabilite_d_evenement_conditionnel_pour_un_point_du_vide) \
) \
) \
Bblock \
DEFV(Float,INIT(probabilite_de_choix,FLOT__UNDEF)); \
/* Probabilite de choix entre : */ \
/* */ \
/* INCHANGE_V, */ \
/* STRONG_CREATION_V___QxAQxG, */ \
/* STRONG_CREATION_V___GxGxG, */ \
/* STRONG_CREATION_V___GxGxGxG. */ \
/* */ \
GENERATION_D_UNE_VALEUR(probabilite_de_choix \
,EVENEMENT_IMPOSSIBLE \
,ADD4(REGUL0(probabilite_de_INCHANGE_V) \
,REGUL0(probabilite_de_STRONG_CREATION_V___GxGxG) \
,REGUL0(probabilite_de_STRONG_CREATION_V___QxAQxG) \
,REGUL0(probabilite_de_STRONG_CREATION_V___GxGxGxG) \
) \
); \
/* ATTENTION : 'hPROBABILITE(...)' ne doit pas intervenir ici, car ici, dans */ \
/* 'CHOIX_D_UN_EVENEMENT_ENTRE_PLUSIEURS_EVENEMENTS_POSSIBLES(...)', le choix est */ \
/* instantane, contrairement a celui effectue par 'GENERATION_D_UNE_PROBABILITE_01(...)'. */ \
DEBUT_DU_CHOIX_ENTRE_PLUSIEURS_EVENEMENTS_POSSIBLES(probabilite_de_choix); \
CHOIX_D_UN_EVENEMENT_ENTRE_PLUSIEURS_EVENEMENTS_POSSIBLES \
(REGUL0(probabilite_de_INCHANGE_V) \
,INCHANGE_V \
); \
CHOIX_D_UN_EVENEMENT_ENTRE_PLUSIEURS_EVENEMENTS_POSSIBLES \
(REGUL0(probabilite_de_STRONG_CREATION_V___GxGxG) \
,STRONG_CREATION_V___GxGxG(gluonA1,gluonA2,gluonA3) \
); \
CHOIX_D_UN_EVENEMENT_ENTRE_PLUSIEURS_EVENEMENTS_POSSIBLES \
(REGUL0(probabilite_de_STRONG_CREATION_V___QxAQxG) \
,STRONG_CREATION_V___QxAQxG(quarkA1,anti_quarkA1,gluonA1) \
); \
CHOIX_D_UN_EVENEMENT_ENTRE_PLUSIEURS_EVENEMENTS_POSSIBLES \
(REGUL0(probabilite_de_STRONG_CREATION_V___GxGxGxG) \
,STRONG_CREATION_V___GxGxGxG(gluonA1,gluonA2,gluonA3,gluonA4) \
); \
FIN_DU_CHOIX_ENTRE_PLUSIEURS_EVENEMENTS_POSSIBLES; \
Eblock \
ATes \
Bblock \
Eblock \
ETes \
Eblock \
ATes \
Bblock \
/* Lorsque l'evenement n'est pas favorable, la fluctuation est ignoree... */ \
Eblock \
ETes \
Eblock \
ERep \
Eblock \
/* Fluctuations quantiques du vide... */
BFonctionI
DEFV(LoF,GENERE__Fonction__OPT(FLUCTUATIONS_QUANTIQUES_DU_VIDE,V,___FLUCTUATIONS_QUANTIQUES_DU_VIDE))
EFonctionI