•Generation of coupling files

mfa = FCToFA[amp4] ;

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

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

!, _ 0^( ) ((64 i L _ 8^( ) d _ (8 I _ 1 I _ 2)^(3))/(3^(1/2) f _ ϕ^(ó  )) + (32 i L _ 6^( ) δ _ (I _ 1 I _ 2))/f _ ϕ^(ó  ) + (32 i L _ 8^( ) δ _ (I _ 1 I _ 2))/(3 f _ ϕ^(ó  ))) (m _ π^(ó  ))^2 + (m _ K^0^(ó  ))^2 !, _ 0^( ) (-(32 i L _ 8^( ) d _ (3 I _ 1 I _ 2)^(3))/f _ ϕ^(ó  ) - (32 i L _ 8^( ) d _ (8 I _ 1 I _ 2)^(3))/(3^(1/2) f _ ϕ^(ó  )) + (32 i L _ 6^( ) δ _ (I _ 1 I _ 2))/f _ ϕ^(ó  ) + (32 i L _ 8^( ) δ _ (I _ 1 I _ 2))/(3 f _ ϕ^(ó  ))) + (m _ K^+^(ó  ))^2 !, _ 0^( ) ((32 i L _ 8^( ) d _ (3 I _ 1 I _ 2)^(3))/f _ ϕ^(ó  ) - (32 i L _ 8^( ) d _ (8 I _ 1 I _ 2)^(3))/(3^(1/2) f _ ϕ^(ó  )) + (32 i L _ 6^( ) δ _ (I _ 1 I _ 2))/f _ ϕ^(ó  ) + (32 i L _ 8^( ) δ _ (I _ 1 I _ 2))/(3 f _ ϕ^(ó  )))

gencoup = GenericCoupling[mfacoll]

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

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

{{-(32 i (3 CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SU3D[3, I1, I2] + 3^(1/2) CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SU3D[8, I1, I2] - 3 CouplingConstant[ChPT3[4], 6, RenormalizationState[0]] SUNDelta[I1, I2] - CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SUNDelta[I1, I2]))/(3 DecayConstant[PseudoScalar[1], RenormalizationState[0]])}, {(32 i (3 CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SU3D[3, I1, I2] - 3^(1/2) CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SU3D[8, I1, I2] + 3 CouplingConstant[ChPT3[4], 6, RenormalizationState[0]] SUNDelta[I1, I2] + CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SUNDelta[I1, I2]))/(3 DecayConstant[PseudoScalar[1], RenormalizationState[0]])}, {(32 i (2 3^(1/2) CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SU3D[8, I1, I2] + 3 CouplingConstant[ChPT3[4], 6, RenormalizationState[0]] SUNDelta[I1, I2] + CouplingConstant[ChPT3[4], 8, RenormalizationState[0]] SUNDelta[I1, I2]))/(3 DecayConstant[PseudoScalar[1], RenormalizationState[0]])}}

$VeryVerbose = 2 ;

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

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

File does not exist, evaluating

Saving

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

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)