•Generation of coupling files

mfacoll = MomentaCollect[melsimplified // Expand, ParticlesNumber -> 5, PerturbationOrder -> 2]

e^( ) p _ 1^μ _ 5 ((2 δ _ (I _ 3 I _ 4)^(2) f _ (3 I _ 1 I _ 2)^(2))/(3 (f _ π^(ó  ))^2) + (2 δ _ (I _ 2 I _ 4)^(2) f _ (3 I _ 1 I _ 3)^(2))/(3 (f _ π^(ó  ))^2) + (2 δ _ (I _ 2 I _ 3)^(2) f _ (3 I _ 1 I _ 4)^(2))/(3 (f _ π^(ó  ))^2)) + e^( ) p _ 2^μ _ 5 (-(2 δ _ (I _ 3 I _ 4)^(2) f _ (3 I _ 1 I _ 2)^(2))/(3 (f _ π^(ó  ))^2) + (2 δ _ (I _ 1 I _ 4)^(2) f _ (3 I _ 2 I _ 3)^(2))/(3 (f _ π^(ó  ))^2) + (2 δ _ (I _ 1 I _ 3)^(2) f _ (3 I _ 2 I _ 4)^(2))/(3 (f _ π^(ó  ))^2)) + e^( ) p _ 3^μ _ 5 (-(2 δ _ (I _ 2 I _ 4)^(2) f _ (3 I _ 1 I _ 3)^(2))/(3 (f _ π^(ó  ))^2) - (2 δ _ (I _ 1 I _ 4)^(2) f _ (3 I _ 2 I _ 3)^(2))/(3 (f _ π^(ó  ))^2) + (2 δ _ (I _ 1 I _ 2)^(2) f _ (3 I _ 3 I _ 4)^(2))/(3 (f _ π^(ó  ))^2)) - e^( ) p _ 4^μ _ 5 ((2 δ _ (I _ 2 I _ 3)^(2) f _ (3 I _ 1 I _ 4)^(2))/(3 (f _ π^(ó  ))^2) + (2 δ _ (I _ 1 I _ 3)^(2) f _ (3 I _ 2 I _ 4)^(2))/(3 (f _ π^(ó  ))^2) + (2 δ _ (I _ 1 I _ 2)^(2) f _ (3 I _ 3 I _ 4)^(2))/(3 (f _ π^(ó  ))^2))

gencoup = GenericCoupling[mfacoll]

{e^( ) p _ 4 _ μ _ 5, e^( ) p _ 3 _ μ _ 5, e^( ) p _ 2 _ μ _ 5, e^( ) p _ 1 _ μ _ 5}

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

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

$VeryVerbose = 2 ;

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

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

File does not exist, evaluating

Saving

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

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)