•Generation of coupling files

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

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

gencoup = GenericCoupling[mfacoll] ; gencoup

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

classcoup = ClassesCoupling[mfacoll] // Together ;

$VeryVerbose = 2 ;

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

File does not exist, evaluating

Saving

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)