•Generation of coupling files

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

-e^( ) p _ 1 _ μ _ 3 ((16 L _ 4^( ) f _ (3 I _ 1 I _ 2)^(2))/(f _ π^(ó  ))^2 + (8 L _ 5^( ) f _ (3 I _ 1 I _ 2)^(2))/(f _ π^(ó  ))^2) (m _ π^(ó  ))^2 + e^( ) p _ 2 _ μ _ 3 ((16 L _ 4^( ) f _ (3 I _ 1 I _ 2)^(2))/(f _ π^(ó  ))^2 + (8 L _ 5^( ) f _ (3 I _ 1 I _ 2)^(2))/(f _ π^(ó  ))^2) (m _ π^(ó  ))^2 - (4 e^( ) L _ 9^( ) p _ 2 _ μ _ 3 (p _ 1 ° p _ 3) f _ (3 I _ 1 I _ 2)^(2))/(f _ π^(ó  ))^2 + (4 e^( ) L _ 9^( ) p _ 1 _ μ _ 3 (p _ 2 ° p _ 3) f _ (3 I _ 1 I _ 2)^(2))/(f _ π^(ó  ))^2

gencoup = GenericCoupling[mfacoll] ; gencoup

{e^( ) p _ 2 _ μ _ 3 (p _ 1 ° p _ 3), e^( ) p _ 1 _ μ _ 3 (p _ 2 ° p _ 3), e^( ) p _ 1 _ μ _ 3 (m _ π^(ó  ))^2, e^( ) p _ 2 _ μ _ 3 (m _ π^(ó  ))^2}

classcoup = ClassesCoupling[mfacoll] // Together ;

$VeryVerbose = 2 ;

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

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

File does not exist, evaluating

Saving

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

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)