•Generation of coupling files

The amplitude is transformed to FeynArts notation:

mfa = FCToFA[res]

-1/(f _ ϕ^(ó  ))^2 (32 i c _ 2^( ) (!, _ 0^( ))^2 (3 N _ 13^( ) (δ _ (0 I _ 2) δ _ (6 I _ 1) + δ _ (0 I _ 1) δ _ (6 I _ 2)) + 2 N _ 12^( ) (d _ (6 I _ 1 I _ 2)^(3) + δ _ (0 I _ 2) δ _ (6 I _ 1) + δ _ (0 I _ 1) δ _ (6 I _ 2)) - 2 N _ 36^( ) (d _ (6 I _ 1 I _ 2)^(3) + δ _ (0 I _ 2) δ _ (6 I _ 1) + δ _ (0 I _ 1) δ _ (6 I _ 2))))

The coupling vectors for the FeynArts model files are generated and saved:

$ExpansionQuantities = Append[$ExpansionQuantities, QuarkCondensate[e__]] ;

gencoup = GenericCoupling[mfa] ; gencoup

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

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

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

$VeryVerbose = 2 ;

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

Using file name /benutzer/theorie/fjob/.Mathematica/4.1/AddOns/Applications/HighEnergyPhysics/Phi/CouplingVectors/ChPTW3P00P00o4.Gen

File exists, force evaluating

Saving

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

Using file name /benutzer/theorie/fjob/.Mathematica/4.1/AddOns/Applications/HighEnergyPhysics/Phi/CouplingVectors/ChPTW3P00P00o4.Mod

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)