•Generation of coupling files

The amplitude is transformed to FeynArts notation:

mfa = FCToFA[res] ;

Terms are collected according to momenta:

mfacoll = Collect[Expand[mfa], {ParticleMass[__]^4, ParticleMass[a__]^2 * ParticleMass[b__]^2, ParticleMass[__]^2 * MomentaScalarProduct[__], MomentaScalarProduct[__]^2, MomentaScalarProduct[a__] * MomentaScalarProduct[b__]}] ;

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

gencoup = GenericCoupling[mfacoll] ; gencoup

{(p _ 2 ° p _ 3) (m _ K^0^(ó  ))^2, (p _ 2 ° p _ 3) (m _ K^+^(ó  ))^2, (p _ 2 ° p _ 3) (m _ π^(ó  ))^2, (p _ 1 ° p _ 3) (m _ K^0^(ó  ))^2, (p _ 1 ° p _ 3) (m _ K^+^(ó  ))^2, (p _ 1 ° p _ 3) (m _ π^(ó  ))^2, (p _ 1 ° p _ 2) (m _ K^0^(ó  ))^2, (p _ 1 ° p _ 2) (m _ K^+^(ó  ))^2, (p _ 1 ° p _ 2) (m _ π^(ó  ))^2, (m _ π^(ó  ))^2 (m _ K^0^(ó  ))^2, (m _ π^(ó  ))^2 (m _ K^+^(ó  ))^2, (m _ K^+^(ó  ))^4, (m _ K^0^(ó  ))^4, (m _ K^+^(ó  ))^2 (m _ K^0^(ó  ))^2, (m _ π^(ó  ))^4}

classcoup = ClassesCoupling[mfacoll] // Together ;

$VeryVerbose = 2 ;

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

Using file name /home/fjob/.Mathematica/Applications/HighEnergyPhysics/Phi/CouplingVectors/ChPTW3P10P10P10o4.Gen

File does not exist, evaluating

Saving

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

Using file name /home/fjob/.Mathematica/Applications/HighEnergyPhysics/Phi/CouplingVectors/ChPTW3P10P10P10o4.Mod

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)