•Generation of coupling files

mfa = FCToFA[amp4]

-16 i (2 L _ 8^( ) - H _ 2^( )) (!, _ 0^( ))^2 δ _ (I _ 1 I _ 2)

$ExpansionQuantities = Union[$ExpansionQuantities, {QuarkCondensate[RenormalizationState[0]]}] ;

mfacoll = MomentaCollect[Expand[mfa], ParticlesNumber -> 1, PerturbationOrder -> 2]

(!, _ 0^( ))^2 (16 i H _ 2^( ) δ _ (I _ 1 I _ 2) - 32 i L _ 8^( ) δ _ (I _ 1 I _ 2))

gencoup = GenericCoupling[mfacoll]

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

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

{{-16 i (2 CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SUNDelta[I1, I2] - CouplingConstant[ChPT3[4], 12, RenormalizationState[0]] SUNDelta[I1, I2])}}

{{-16 i (2 SUNDelta[I1, I2] CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] - SUNDelta[I1, I2] CouplingConstant[ChPT3[4], 12, RenormalizationState[0]])}}

( ) -16 i (2 L δ - H δ ) 8 I I 2 I I 1 2 1 2

$VeryVerbose = 2 ;

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

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

File exists, force evaluating

Saving

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

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

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)