•Generation of coupling files

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

mfacoll = MomentaCollect[melsimplified // FCToFA // Expand, PerturbationOrder -> 3]

-!, _ 0^( ) ((128 i L _ 6^( ) δ _ (0 I _ 3) δ _ (I _ 1 I _ 2))/(f _ π^(ó  ))^2 + (64 i L _ 8^( ) δ _ (0 I _ 3) δ _ (I _ 1 I _ 2))/(f _ π^(ó  ))^2) (m _ π^(ó  ))^2 - (p _ 1 ° p _ 2) !, _ 0^( ) ((32 i L _ 4^( ) δ _ (0 I _ 3) δ _ (I _ 1 I _ 2))/(f _ π^(ó  ))^2 + (16 i L _ 5^( ) δ _ (0 I _ 3) δ _ (I _ 1 I _ 2))/(f _ π^(ó  ))^2)

gencoup = GenericCoupling[mfacoll] ; gencoup

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

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

{{-(16 i (2 CouplingConstant[ChPT2[4], 4, RenormalizationState[0]] SUNDelta[0, I3] SUNDelta[I1, I2] + CouplingConstant[ChPT2[4], 5, RenormalizationState[0]] SUNDelta[0, I3] SUNDelta[I1, I2]))/DecayConstant[PseudoScalar[2], RenormalizationState[0]]^2}, {-(64 i (2 CouplingConstant[ChPT2[4], 6, RenormalizationState[0]] SUNDelta[0, I3] SUNDelta[I1, I2] + CouplingConstant[ChPT2[4], 8, RenormalizationState[0]] SUNDelta[0, I3] SUNDelta[I1, I2]))/DecayConstant[PseudoScalar[2], RenormalizationState[0]]^2}}

$VeryVerbose = 2 ;

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

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

File exists, loading

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

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

File exists, loading

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)