•Generation of coupling files

mfa = FCToFA[res] ;

mfacoll = Collect[mfa /. ParticleMass -> ParticleMassTmp, {_MomentaScalarProduct, ParticleMassTmp[PseudoScalar[1], b___]^2, ParticleMassTmp[PseudoScalar[1], b___] ParticleMassTmp[PseudoScalar[2], a___], ParticleMassTmp[PseudoScalar[2], a___]^2, ParticleMassTmp[PseudoScalar[7], d___]^2, ParticleMassTmp[PseudoScalar[8], c___]^2, ParticleMassTmp[PseudoScalar[11], d___]^2}] /. ParticleMassTmp -> ParticleMass ;

mfacoll // Length

18

mfacoll // LeafCount

200317

gencoup = GenericCoupling[mfacoll]

{p _ 1 ° p _ 4, p _ 2 ° p _ 5, p _ 3 ° p _ 6, p _ 1 ° p _ 6, p _ 5 ° p _ 6, p _ 4 ° p _ 5, p _ 2 ° p _ 3, p _ 1 ° p _ 2, p _ 3 ° p _ 4, p _ 3 ° p _ 5, p _ 2 ° p _ 6, p _ 1 ° p _ 3, p _ 2 ° p _ 4, p _ 4 ° p _ 6, p _ 1 ° p _ 5, (m _ π^(ó  ))^2, (m _ K^+^(ó  ))^2, (m _ K^0^(ó  ))^2}

classcoup = ClassesCoupling[mfacoll] ;

$VeryVerbose = 2 ;

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

File does not exist, evaluating

Saving

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)