•Generation of coupling files

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

gencoup = {QuarkCondensate[RenormalizationState[0]]/DecayConstant[PseudoScalar[1], RenormalizationState[0]]}

{!, _ 0^( )/f _ ϕ^(ó  )}

classcoup = {{FCToFA[melsimplified]/gencoup[[1]]}} // Simplify ; classcoup // StandardForm

{{(2 CouplingConstant[ChPTW3[2], 2] (-6 SU3D[6, I1, k1] SU3D[I2, I3, k1] - 6 i SU3D[I2, I3, k1] SU3F[6, I1, k1] + 3 i SU3D[I1, I3, k1] SU3F[6, I2, k1] + 3 i SU3D[I1, I2, k1] SU3F[6, I3, k1] + 3 SU3D[6, I3, k1] (SU3D[I1, I2, k1] - i SU3F[I1, I2, k1]) + 3 SU3F[6, I3, k1] SU3F[I1, I2, k1] + 3 SU3D[6, I2, k1] (SU3D[I1, I3, k1] - i SU3F[I1, I3, k1]) + 3 SU3F[6, I2, k1] SU3F[I1, I3, k1] + 2 SUNDelta[6, I3] SUNDelta[I1, I2] + 2 SUNDelta[6, I2] SUNDelta[I1, I3] - 4 SUNDelta[6, I1] SUNDelta[I2, I3]))/(3 DecayConstant[PseudoScalar[1], RenormalizationState[0]])}}

$VeryVerbose = 2 ;

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

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

File does not exist, evaluating

Saving

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

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)