•Generation of coupling files

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

mfacoll = Simplify /@ MomentaCollect[melsimplified // Expand, PerturbationOrder -> 3, ParticlesNumber -> 2] ;

gencoup = GenericCoupling[mfacoll] ; gencoup

{(p _ 1 ° p _ 2) !, _ 0^( ), (m _ π^(ó  ))^2 !, _ 0^( ), (m _ K^+^(ó  ))^2 !, _ 0^( ), (m _ K^0^(ó  ))^2 !, _ 0^( )}

classcoup = Simplify /@ ClassesCoupling[mfacoll] ;

$VeryVerbose = 2 ;

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

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

File does not exist, evaluating

Saving

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

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)