•Generation of coupling files

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

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

(64 i (!, _ 0^( ))^2 (L _ 8^( ) (d _ (I _ 1 I _ 2 I _ 3)^(3) + δ _ (0 I _ 3)^(3) δ _ (I _ 1 I _ 2)^(3) + δ _ (0 I _ 1)^(3) δ _ (I _ 2 I _ 3)^(3)) + 3 (L _ 6^( ) δ _ (0 I _ 3)^(3) δ _ (I _ 1 I _ 2)^(3) + L _ 7^( ) δ _ (0 I _ 1)^(3) δ _ (I _ 2 I _ 3)^(3))))/f _ ϕ^(ó  )

gencoup = GenericCoupling[mfacoll] ; gencoup

{(!, _ 0^( ))^2}

classcoup = Simplify /@ ClassesCoupling[mfacoll]

( (3) ) 64 i (L (d + δ δ + δ δ ) + 3 (L δ δ + L δ δ )) 8 I I I 0 I I I 0 I I I 6 0 I I I 7 0 I I I 1 2 3 3 1 2 1 2 3 3 1 2 1 2 3 ---------------------------------------------------------------------------------------------------------------------------------------------- ó  f ϕ

$VeryVerbose = 2 ;

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

File exists, force evaluating

Saving

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

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)