•Generation of coupling files

mfacoll = MomentaCollect[melsimplified // Expand, PerturbationOrder -> 3]

(e^( ))^2 g^(μ _ 3 μ _ 4) (2 i δ _ (I _ 1 I _ 2)^(2) - 2 i δ _ (3 I _ 1)^(2) δ _ (3 I _ 2)^(2))

gencoup = GenericCoupling[mfacoll] ; gencoup

{(e^( ))^2 g^(μ _ 3 μ _ 4)}

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

{{-2 i (SUNDelta[3, I1] SUNDelta[3, I2] - SUNDelta[I1, I2])}}

$VeryVerbose = 2 ;

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

File does not exist, evaluating

Saving

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)