•Generation of coupling files

The amplitude is transformed to FeynArts notation:

mfa = FCToFA[melsimplified] ;

The coupling vectors for the FeynArts model files are generated and saved:

gencoup = {QuarkCondensate[RenormalizationState[0]]/DecayConstant[PseudoScalar[1], RenormalizationState[0]]^3}

{!, _ 0^( )/(f _ ϕ^(ó  ))^3}

classcoup = {{mfa/gencoup[[1]]}} // Simplify

( 2 (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) (3) ) -- i c (6 d d d - 6 i d f d + 3 d d d + 6 d d d + 3 d d d + 6 d d d + 6 i d d f + 6 i d d f + 6 i d d f + 3 i d d f + 3 i d d f + 3 i d d f + 3 i d d f + 3 i d d f + 3 i d d f + 3 d f f + 3 d f f + 3 d f f + 3 d f f - 3 i d d f + 3 d f f + 3 d f f - 3 i d d f - 6 d f f - 3 d f f - 3 d f f - 3 i f f f - 3 i f f f - 3 i d d f - 6 i d d f - 6 d f f - 3 d f f - 3 d f f - 3 i f f f - 3 d f f - 3 i f f f - 3 i d d f - 6 i d d f - 6 d f f - 3 d f f - 3 d f f - 3 i f f f - 3 d f f - 3 i f f f + 12 d d δ + 12 i d f δ + 12 i d f δ + 12 i d f δ + 3 d (-i d f - f f - i d f + d (d - i f ) - f f + d (d - i f ) + 4 d δ ) + 3 d (-i d f - f f - i d f + d (d - i f ) - f f + d (d - i f ) + 4 d δ ) + 12 d δ + 4 d δ + 4 d δ + 4 d δ + 4 d δ + 4 d δ + 4 d δ + 4 d δ + 4 i f δ + 8 δ δ δ + 4 d δ + 4 i f δ + 8 δ δ δ + 4 d δ + 4 i f δ + 8 δ δ δ ) 9 5 6 I k1 I k1 k2 I I k2 6 I k1 I k1 k2 I I k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 I k1 k2 I I k1 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 6 I k1 I k1 k2 I I k2 I k1 k2 6 I k2 I I k1 I k1 k2 6 I k2 I I k1 6 I k1 I k1 k2 I I k2 I I k1 6 I k2 I k1 k2 I I k1 6 I k2 I k1 k2 I I k1 6 I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 I I k1 6 I k2 I k1 k2 I I k1 6 I k2 I k1 k2 I I k1 6 I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 I I k1 6 I k2 I k1 k2 I I k1 6 I k2 I k1 k2 I I k1 6 I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k2 I k1 k2 6 I k1 I I k1 0 I I I k1 6 I k1 0 I I I k1 6 I k1 0 I I I k1 6 I k1 0 I 6 I k1 I k1 k2 I I k2 I k1 k2 I I k2 I k1 k2 I I k2 I I k2 I k1 k2 I k1 k2 I I k2 I k1 k2 I I k2 I k1 k2 I k1 k2 I I k1 0 I 6 I k1 I k1 k2 I I k2 I k1 k2 I I k2 I k1 k2 I I k2 I I k2 I k1 k2 I k1 k2 I I k2 I k1 k2 I I k2 I k1 k2 I k1 k2 I I k1 0 I I I I 6 I I I I 6 I I I I 6 I I I I 6 I 6 I I I I 6 I I I I 6 I I I I 6 I I I I 6 I I I I 0 I 6 I I I 6 I I I I 6 I I I I 0 I 6 I I I 6 I I I I 6 I I I I 0 I 6 I I I 1 2 3 4 1 2 3 4 2 1 4 3 1 2 4 3 2 1 3 4 1 2 3 4 2 3 4 1 2 4 3 1 2 3 4 1 1 4 3 2 1 3 4 2 1 4 2 3 1 2 4 3 1 3 2 4 1 2 3 4 4 3 1 2 3 4 1 2 4 2 1 3 2 4 1 3 2 4 1 3 3 2 1 4 2 3 1 4 2 3 1 4 3 4 1 2 1 4 3 2 1 3 4 2 4 1 3 2 3 1 4 2 2 1 4 3 1 2 4 3 2 4 1 3 1 4 2 3 1 2 4 3 4 1 2 3 2 1 4 3 2 1 4 3 2 1 3 4 1 2 3 4 2 3 1 4 1 3 2 4 1 2 3 4 3 1 2 4 2 1 3 4 2 1 3 4 2 3 4 1 3 4 2 1 2 4 3 1 2 3 4 1 4 3 1 2 3 1 2 2 1 3 1 3 2 2 1 3 2 1 2 3 3 2 3 1 3 4 1 2 4 1 2 2 1 4 1 4 2 2 1 4 2 1 2 4 4 2 4 1 2 3 4 1 1 3 4 2 1 2 4 3 1 2 3 4 3 4 1 2 2 4 1 3 2 3 1 4 1 4 2 3 1 4 2 3 1 4 2 3 1 3 2 4 1 3 2 4 1 3 2 4 1 2 3 4 1 2 3 4 1 2 3 4

$VeryVerbose = 2 ;

CheckF[gencoup, XName[VertexFields -> {PseudoScalar[0][0], PhiMeson[0], PhiMeson[0], PhiMeson[0]}, PerturbationOrder -> 2, PhiModel -> ChPTW3, XFileName -> Automatic] <> ".Gen"] ;

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

File does not exist, evaluating

Saving

CheckF[classcoup, XName[VertexFields -> {PseudoScalar[0][0], PhiMeson[0], PhiMeson[0], PhiMeson[0]}, PerturbationOrder -> 2, PhiModel -> ChPTW3, XFileName -> Automatic] <> ".Mod"] ;

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)