•Generation of coupling files

The amplitude is transformed to FeynArts notation:

mfa = FCToFA[melsimplified] ;

Terms are collected according to momenta:

$ExpansionQuantities = Union[$ExpansionQuantities, {QuarkCondensate[___]}] ;

mfacoll = MomentaCollect[mfa, ParticlesNumber -> 2, PerturbationOrder -> 1] ;

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

gencoup = GenericCoupling[mfacoll] ; gencoup

{!, _ 0^( )}

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

{{(8 i (CouplingConstant[ChPTW3[2], 2] SU3D[6, I1, I2] + CouplingConstant[ChPTW3[2], 2] SUNDelta[0, I1] SUNDelta[6, I2]))/DecayConstant[PseudoScalar[1], RenormalizationState[0]]}}

$ExpansionQuantities = Complement[$ExpansionQuantities, {QuarkCondensate[___]}] ;

$VeryVerbose = 2 ;

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

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

File exists, force evaluating

Saving

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

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

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)