•Generation of coupling files

mfa = FCToFA[melsimplified, ParticlesNumber -> 6, ScalarProductForm -> MomentaScalarProduct] ;

mfacoll = MomentaCollect[mfa, ParticlesNumber -> 6] ;

gencoup = GenericCoupling[mfacoll]

{p _ 5 ° p _ 6, p _ 1 ° p _ 2, p _ 3 ° p _ 4, (m _ π^(ó  ))^2, p _ 1 ° p _ 3, p _ 2 ° p _ 4, p _ 2 ° p _ 3, p _ 1 ° p _ 4, p _ 4 ° p _ 6, p _ 3 ° p _ 5, p _ 2 ° p _ 5, p _ 1 ° p _ 5, p _ 4 ° p _ 5, p _ 3 ° p _ 6, p _ 2 ° p _ 6, p _ 1 ° p _ 6}

classcoup = ClassesCoupling[mfacoll] // Together ;

$VeryVerbose = 2 ;

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

Utilities |

Using file name F:\\fjob\\Mathematica\\4.0\\AddOns\\Applications\\HighEnergyPHysics\\Phi\\CouplingVectors\\ChPT2P20P20P20P20P20P20o2.Gen

Force evaluating

Saving

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

Using file name F:\\fjob\\Mathematica\\4.0\\AddOns\\Applications\\HighEnergyPHysics\\Phi\\CouplingVectors\\ChPT2P20P20P20P20P20P20o2.Mod

Force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)