•Generation of coupling files

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

mfacoll = MomentaCollect[mel, ParticlesNumber -> 2, PerturbationOrder -> 3]

(32 i (2 L _ 6^( ) + L _ 8^( )) (m _ π^(ó  ))^2 !, _ 0^( ) δ _ (I _ 1 I _ 2)^(2))/f _ π^(ó  )

gencoup = GenericCoupling[mfacoll] ; gencoup

{(m _ π^(ó  ))^2 !, _ 0^( )}

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

{{(32 i (2 CouplingConstant[ChPT2[4], 6, RenormalizationState[0]] + CouplingConstant[ChPT2[4], 8, RenormalizationState[0]]) SUNDelta[I1, I2])/DecayConstant[PseudoScalar[2], RenormalizationState[0]]}}

$VeryVerbose = 2 ;

CheckF[gencoup, XName[VertexFields -> {PseudoScalar[0][0], Pion[0]}, PerturbationOrder -> 4, PhiModel -> ChPT2, XFileName -> Automatic] <> ".Gen"] ;

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

File does not exist, evaluating

Saving

CheckF[classcoup, XName[VertexFields -> {PseudoScalar[0][0], Pion[0]}, PerturbationOrder -> 4, PhiModel -> ChPT2, XFileName -> Automatic] <> ".Mod"] ;

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)