•Generation of coupling files

The amplitude calculated 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]]}

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

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

( (3) ) 8 i c (d + δ δ ) 5 6 I I 0 I 6 I 1 2 1 2

$VeryVerbose = 2 ;

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

File does not exist, evaluating

Saving

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)