•Generation of coupling files

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

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

(2 i !, _ 0^( ) δ _ (0 I _ 5)^(2) (δ _ (I _ 1 I _ 4)^(2) δ _ (I _ 2 I _ 3)^(2) + δ _ (I _ 1 I _ 3)^(2) δ _ (I _ 2 I _ 4)^(2) + δ _ (I _ 1 I _ 2)^(2) δ _ (I _ 3 I _ 4)^(2)))/(3 (f _ π^(ó  ))^2)

gencoup = GenericCoupling[mfacoll]

{!, _ 0^( )}

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

{{(2 i SUNDelta[0, I5] (SUNDelta[I1, I4] SUNDelta[I2, I3] + SUNDelta[I1, I3] SUNDelta[I2, I4] + SUNDelta[I1, I2] SUNDelta[I3, I4]))/(3 DecayConstant[PseudoScalar[2], RenormalizationState[0]]^2)}}

$VeryVerbose = 2 ;

CheckF[gencoup, XName[VertexFields -> {PseudoScalar[0][0], Pion[0], Pion[0], Pion[0]}, PerturbationOrder -> 2, PhiModel -> ChPT2, XFileName -> Automatic] <> ".Gen"] ;

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

File exists, loading

CheckF[classcoup, XName[VertexFields -> {PseudoScalar[0][0], Pion[0], Pion[0], Pion[0]}, PerturbationOrder -> 2, PhiModel -> ChPT2, XFileName -> Automatic] <> ".Mod"] ;

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

File exists, loading

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)