•Generation of coupling files

Terms are collected according to momenta:

$ExpansionQuantities = Union[$ExpansionQuantities, {QuarkCondensate[___]}] ;

mfacoll = MomentaCollect[melsimplified, ParticlesNumber -> 2, PerturbationOrder -> 1]

-2 i !, _ 0^( ) (d _ (I _ 1 I _ 2 I _ 3)^(3) + δ _ (0 I _ 3)^(3) δ _ (I _ 1 I _ 2)^(3))

The coupling vectors are generated and saved:

gencoup = GenericCoupling[mfacoll] ; gencoup

{!, _ 0^( )}

classcoup = ClassesCoupling[mfacoll] // Together ; classcoup // StandardForm

{{-2 i (SU3D[I1, I2, I3] + SUNDelta[0, I3] SUNDelta[I1, I2])}}

$VeryVerbose = 2 ;

CheckF[gencoup, XName[VertexFields -> {PhiMeson[0], PhiMeson[0], Scalar[2][0]}, PerturbationOrder -> 2, PhiModel -> ChPT3, XFileName -> Automatic] <> ".Gen"] ;

Using file name D:\\Program Files\\Wolfram Research\\Mathematica\\4.1\\AddOns\\Applications\\HighEnergyPhysics\\Phi\\CouplingVectors\\ChPT3P10P10S20o2.Gen

File does not exist, evaluating

Saving

CheckF[classcoup, XName[VertexFields -> {PhiMeson[0], PhiMeson[0], Scalar[2][0]}, PerturbationOrder -> 2, PhiModel -> ChPT3, XFileName -> Automatic] <> ".Mod"] ;

Using file name D:\\Program Files\\Wolfram Research\\Mathematica\\4.1\\AddOns\\Applications\\HighEnergyPhysics\\Phi\\CouplingVectors\\ChPT3P10P10S20o2.Mod

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)