•Generation of coupling files

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

1/(36 (f _ ϕ^(ó  ))^2) (i !, _ 0^( ) (3 d _ (I _ 1 k1 k2)^(3) (d _ (I _ 2 I _ 5 k2)^(3) d _ (I _ 3 I _ 4 k1)^(3) + d _ (I _ 2 I _ 5 k1)^(3) d _ (I _ 3 I _ 4 k2)^(3) + d _ (I _ 2 I _ 4 k2)^(3) d _ (I _ 3 I _ 5 k1)^(3) + d _ (I _ 2 I _ 4 k1)^(3) d _ (I _ 3 I _ 5 k2)^(3) + d _ (I _ 2 I _ 3 k2)^(3) d _ (I _ 4 I _ 5 k1)^(3) + d _ (I _ 2 I _ 3 k1)^(3) d _ (I _ 4 I _ 5 k2)^(3)) + 2 (3 d _ (I _ 1 I _ 3 k1)^(3) d _ (I _ 2 k1 k2)^(3) d _ (I _ 4 I _ 5 k2)^(3) + 3 d _ (I _ 1 I _ 2 k1)^(3) d _ (I _ 3 k1 k2)^(3) d _ (I _ 4 I _ 5 k2)^(3) + 3 d _ (I _ 1 I _ 3 k1)^(3) d _ (I _ 2 I _ 5 k2)^(3) d _ (I _ 4 k1 k2)^(3) + 3 d _ (I _ 1 I _ 2 k1)^(3) d _ (I _ 3 I _ 5 k2)^(3) d _ (I _ 4 k1 k2)^(3) + 3 d _ (I _ 1 I _ 5 k1)^(3) (d _ (I _ 2 k1 k2)^(3) d _ (I _ 3 I _ 4 k2)^(3) + d _ (I _ 2 I _ 4 k2)^(3) d _ (I _ 3 k1 k2)^(3) + d _ (I _ 2 I _ 3 k2)^(3) d _ (I _ 4 k1 k2)^(3)) + 12 d _ (I _ 1 I _ 3 k1)^(3) d _ (I _ 2 I _ 4 k1)^(3) δ _ (0 I _ 5)^(3) + 12 d _ (I _ 1 I _ 2 k1)^(3) d _ (I _ 3 I _ 4 k1)^(3) δ _ (0 I _ 5)^(3) + 4 d _ (I _ 3 I _ 4 I _ 5)^(3) δ _ (I _ 1 I _ 2)^(3) + 4 d _ (I _ 2 I _ 4 I _ 5)^(3) δ _ (I _ 1 I _ 3)^(3) + 4 d _ (I _ 2 I _ 3 I _ 5)^(3) δ _ (I _ 1 I _ 4)^(3) + 6 d _ (I _ 2 I _ 3 I _ 4)^(3) δ _ (I _ 1 I _ 5)^(3) + 4 d _ (I _ 1 I _ 4 I _ 5)^(3) δ _ (I _ 2 I _ 3)^(3) + 8 δ _ (0 I _ 5)^(3) δ _ (I _ 1 I _ 4)^(3) δ _ (I _ 2 I _ 3)^(3) + 4 d _ (I _ 1 I _ 3 I _ 5)^(3) δ _ (I _ 2 I _ 4)^(3) + 8 δ _ (0 I _ 5)^(3) δ _ (I _ 1 I _ 3)^(3) δ _ (I _ 2 I _ 4)^(3) + 6 d _ (I _ 1 I _ 3 I _ 4)^(3) δ _ (I _ 2 I _ 5)^(3) + 4 d _ (I _ 1 I _ 2 I _ 5)^(3) δ _ (I _ 3 I _ 4)^(3) + 8 δ _ (0 I _ 5)^(3) δ _ (I _ 1 I _ 2)^(3) δ _ (I _ 3 I _ 4)^(3) + 6 d _ (I _ 1 I _ 2 I _ 4)^(3) δ _ (I _ 3 I _ 5)^(3) + 6 d _ (I _ 1 I _ 2 I _ 3)^(3) δ _ (I _ 4 I _ 5)^(3) + 3 d _ (I _ 3 I _ 4 k1)^(3) f _ (I _ 1 k1 k2)^(3) f _ (I _ 2 I _ 5 k2)^(3) + 3 d _ (I _ 3 I _ 4 k1)^(3) f _ (I _ 1 I _ 5 k2)^(3) f _ (I _ 2 k1 k2)^(3) + 3 d _ (I _ 2 I _ 4 k1)^(3) f _ (I _ 1 k1 k2)^(3) f _ (I _ 3 I _ 5 k2)^(3) + 3 d _ (I _ 2 I _ 4 k1)^(3) f _ (I _ 1 I _ 5 k2)^(3) f _ (I _ 3 k1 k2)^(3) + 3 d _ (I _ 1 I _ 4 k1)^(3) (d _ (I _ 2 k1 k2)^(3) d _ (I _ 3 I _ 5 k2)^(3) + d _ (I _ 2 I _ 5 k2)^(3) d _ (I _ 3 k1 k2)^(3) + 4 d _ (I _ 2 I _ 3 k1)^(3) δ _ (0 I _ 5)^(3) + f _ (I _ 2 k1 k2)^(3) f _ (I _ 3 I _ 5 k2)^(3) + f _ (I _ 2 I _ 5 k2)^(3) f _ (I _ 3 k1 k2)^(3)) + 3 d _ (I _ 2 I _ 3 k1)^(3) f _ (I _ 1 k1 k2)^(3) f _ (I _ 4 I _ 5 k2)^(3) + 3 d _ (I _ 1 I _ 3 k1)^(3) f _ (I _ 2 k1 k2)^(3) f _ (I _ 4 I _ 5 k2)^(3) + 3 d _ (I _ 1 I _ 2 k1)^(3) f _ (I _ 3 k1 k2)^(3) f _ (I _ 4 I _ 5 k2)^(3) + 3 d _ (I _ 2 I _ 3 k1)^(3) f _ (I _ 1 I _ 5 k2)^(3) f _ (I _ 4 k1 k2)^(3) + 3 d _ (I _ 1 I _ 3 k1)^(3) f _ (I _ 2 I _ 5 k2)^(3) f _ (I _ 4 k1 k2)^(3) + 3 d _ (I _ 1 I _ 2 k1)^(3) f _ (I _ 3 I _ 5 k2)^(3) f _ (I _ 4 k1 k2)^(3))))

gencoup = GenericCoupling[mfacoll]

{!, _ 0^( )}

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

{{(i (3 SU3D[I1, k1, k2] SU3D[I2, I5, k2] SU3D[I3, I4, k1] + 3 SU3D[I1, k1, k2] SU3D[I2, I5, k1] SU3D[I3, I4, k2] + 6 SU3D[I1, I5, k1] SU3D[I2, k1, k2] SU3D[I3, I4, k2] + 3 SU3D[I1, k1, k2] SU3D[I2, I4, k2] SU3D[I3, I5, k1] + 3 SU3D[I1, k1, k2] SU3D[I2, I4, k1] SU3D[I3, I5, k2] + 6 SU3D[I1, I4, k1] SU3D[I2, k1, k2] SU3D[I3, I5, k2] + 6 SU3D[I1, I5, k1] SU3D[I2, I4, k2] SU3D[I3, k1, k2] + 6 SU3D[I1, I4, k1] SU3D[I2, I5, k2] SU3D[I3, k1, k2] + 3 SU3D[I1, k1, k2] SU3D[I2, I3, k2] SU3D[I4, I5, k1] + 3 SU3D[I1, k1, k2] SU3D[I2, I3, k1] SU3D[I4, I5, k2] + 6 SU3D[I1, I3, k1] SU3D[I2, k1, k2] SU3D[I4, I5, k2] + 6 SU3D[I1, I2, k1] SU3D[I3, k1, k2] SU3D[I4, I5, k2] + 6 SU3D[I1, I5, k1] SU3D[I2, I3, k2] SU3D[I4, k1, k2] + 6 SU3D[I1, I3, k1] SU3D[I2, I5, k2] SU3D[I4, k1, k2] + 6 SU3D[I1, I2, k1] SU3D[I3, I5, k2] SU3D[I4, k1, k2] + 6 SU3D[I3, I4, k1] SU3F[I1, k1, k2] SU3F[I2, I5, k2] + 6 SU3D[I3, I4, k1] SU3F[I1, I5, k2] SU3F[I2, k1, k2] + 6 SU3D[I2, I4, k1] SU3F[I1, k1, k2] SU3F[I3, I5, k2] + 6 SU3D[I1, I4, k1] SU3F[I2, k1, k2] SU3F[I3, I5, k2] + 6 SU3D[I2, I4, k1] SU3F[I1, I5, k2] SU3F[I3, k1, k2] + 6 SU3D[I1, I4, k1] SU3F[I2, I5, k2] SU3F[I3, k1, k2] + 6 SU3D[I2, I3, k1] SU3F[I1, k1, k2] SU3F[I4, I5, k2] + 6 SU3D[I1, I3, k1] SU3F[I2, k1, k2] SU3F[I4, I5, k2] + 6 SU3D[I1, I2, k1] SU3F[I3, k1, k2] SU3F[I4, I5, k2] + 6 SU3D[I2, I3, k1] SU3F[I1, I5, k2] SU3F[I4, k1, k2] + 6 SU3D[I1, I3, k1] SU3F[I2, I5, k2] SU3F[I4, k1, k2] + 6 SU3D[I1, I2, k1] SU3F[I3, I5, k2] SU3F[I4, k1, k2] + 24 SU3D[I1, I4, k1] SU3D[I2, I3, k1] SUNDelta[0, I5] + 24 SU3D[I1, I3, k1] SU3D[I2, I4, k1] SUNDelta[0, I5] + 24 SU3D[I1, I2, k1] SU3D[I3, I4, k1] SUNDelta[0, I5] + 8 SU3D[I3, I4, I5] SUNDelta[I1, I2] + 8 SU3D[I2, I4, I5] SUNDelta[I1, I3] + 8 SU3D[I2, I3, I5] SUNDelta[I1, I4] + 12 SU3D[I2, I3, I4] SUNDelta[I1, I5] + 8 SU3D[I1, I4, I5] SUNDelta[I2, I3] + 16 SUNDelta[0, I5] SUNDelta[I1, I4] SUNDelta[I2, I3] + 8 SU3D[I1, I3, I5] SUNDelta[I2, I4] + 16 SUNDelta[0, I5] SUNDelta[I1, I3] SUNDelta[I2, I4] + 12 SU3D[I1, I3, I4] SUNDelta[I2, I5] + 8 SU3D[I1, I2, I5] SUNDelta[I3, I4] + 16 SUNDelta[0, I5] SUNDelta[I1, I2] SUNDelta[I3, I4] + 12 SU3D[I1, I2, I4] SUNDelta[I3, I5] + 12 SU3D[I1, I2, I3] SUNDelta[I4, I5]))/(36 DecayConstant[PseudoScalar[1], RenormalizationState[0]]^2)}}

$VeryVerbose = 2 ;

CheckF[gencoup, XName[VertexFields -> {PhiMeson[0], PhiMeson[0], 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\\ChPT3P10P10P10P10S20o2.Gen

File does not exist, evaluating

Saving

CheckF[classcoup, XName[VertexFields -> {PhiMeson[0], PhiMeson[0], 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\\ChPT3P10P10P10P10S20o2.Mod

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)