•Generation of coupling files

mfa = FCToFA[melsimplified]

2 i f _ ϕ^(ó  ) !, _ 0^( ) δ _ (I _ 1 I _ 2)

$ExpansionQuantities = Union[$ExpansionQuantities, {QuarkCondensate[RenormalizationState[0]]}] ;

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

2 i f _ ϕ^(ó  ) !, _ 0^( ) δ _ (I _ 1 I _ 2)

gencoup = GenericCoupling[mfacoll]

{!, _ 0^( )}

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

{{2 i DecayConstant[PseudoScalar[1], RenormalizationState[0]] SUNDelta[I1, I2]}}

$VeryVerbose = 2 ;

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

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

File exists, force evaluating

Saving

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

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

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)