•Generation of coupling files

Terms are collected according to momenta:

mfacoll = MomentaCollect[res, ParticlesNumber -> 2, PerturbationOrder -> 2] ;

The coupling vectors  are generated and saved:

gencoup = GenericCoupling[mfacoll] ; gencoup

{(p _ 1 ° p _ 2) !, _ 0^( ), (p _ 2 ° p _ 3) !, _ 0^( )}

classcoup = Simplify /@ ClassesCoupling[mfacoll] ; classcoup // StandardForm

{{(4 CouplingConstant[ChPTW3[2], 1] CouplingConstant[ChPTW3[4], 21] (UTrace1[NonCommutative[UMatrix[UGenerator[6]], UMatrix[UGenerator[I1]], UMatrix[UGenerator[I3]]]] - UTrace1[NonCommutative[UMatrix[UGenerator[6]], UMatrix[UGenerator[I3]], UMatrix[UGenerator[I1]]]]))/DecayConstant[PseudoScalar[1], RenormalizationState[0]]^3}, {(2 CouplingConstant[ChPTW3[2], 1] CouplingConstant[ChPTW3[4], 22] (SUNDelta[0, I3] (-UTrace1[NonCommutative[UMatrix[UGenerator[6]], UMatrix[UGenerator[I1]]]] + UTrace1[NonCommutative[UMatrix[UGenerator[I1]], UMatrix[UGenerator[6]]]]) - UTrace1[NonCommutative[UMatrix[UGenerator[6]], UMatrix[UGenerator[I1]], UMatrix[UGenerator[I3]]]] + UTrace1[NonCommutative[UMatrix[UGenerator[I1]], UMatrix[UGenerator[6]], UMatrix[UGenerator[I3]]]]))/DecayConstant[PseudoScalar[1], RenormalizationState[0]]^3}}

$VeryVerbose = 2 ;

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

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

File does not exist, evaluating

Saving

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

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)