•Generation of coupling files

mfa = FCToFA[melsimplified]

-(2 i !, _ 0^( ) (3 d _ (I _ 1 I _ 4 k1)^(3) d _ (I _ 2 I _ 3 k1)^(3) + 3 d _ (I _ 1 I _ 3 k1)^(3) d _ (I _ 2 I _ 4 k1)^(3) + 3 d _ (I _ 1 I _ 2 k1)^(3) d _ (I _ 3 I _ 4 k1)^(3) + 9 d _ (I _ 2 I _ 3 I _ 4)^(3) δ _ (0 I _ 1) + 2 δ _ (I _ 1 I _ 4) δ _ (I _ 2 I _ 3) + 2 δ _ (I _ 1 I _ 3) δ _ (I _ 2 I _ 4) + 2 δ _ (I _ 1 I _ 2) δ _ (I _ 3 I _ 4)))/(9 f _ ϕ^(ó  ))

$ExpansionQuantities = Union[$ExpansionQuantities, {QuarkCondensate[RenormalizationState[0]]}]

{CouplingConstant (QED (2), e___), FourVector (__), ParticleMass(ϕ, b___), ParticleMass(π, a___), ParticleMass(K^+, d___), ParticleMass(K^0, c___), ParticleMass(η, d___), !, _ 0^( )}

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

-(2 i !, _ 0^( ) (3 d _ (I _ 1 I _ 4 k1)^(3) d _ (I _ 2 I _ 3 k1)^(3) + 3 d _ (I _ 1 I _ 3 k1)^(3) d _ (I _ 2 I _ 4 k1)^(3) + 3 d _ (I _ 1 I _ 2 k1)^(3) d _ (I _ 3 I _ 4 k1)^(3) + 9 d _ (I _ 2 I _ 3 I _ 4)^(3) δ _ (0 I _ 1) + 2 δ _ (I _ 1 I _ 4) δ _ (I _ 2 I _ 3) + 2 δ _ (I _ 1 I _ 3) δ _ (I _ 2 I _ 4) + 2 δ _ (I _ 1 I _ 2) δ _ (I _ 3 I _ 4)))/(9 f _ ϕ^(ó  ))

gencoup = GenericCoupling[mfacoll]

{!, _ 0^( )}

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

{{-(2 i (3 SU3D[I1, I4, k1] SU3D[I2, I3, k1] + 3 SU3D[I1, I3, k1] SU3D[I2, I4, k1] + 3 SU3D[I1, I2, k1] SU3D[I3, I4, k1] + 9 SU3D[I2, I3, I4] SUNDelta[0, I1] + 2 SUNDelta[I1, I4] SUNDelta[I2, I3] + 2 SUNDelta[I1, I3] SUNDelta[I2, I4] + 2 SUNDelta[I1, I2] SUNDelta[I3, I4]))/(9 DecayConstant[PseudoScalar[1], RenormalizationState[0]])}}

$VeryVerbose = 2 ;

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

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

File exists, force evaluating

Saving

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

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

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)