•Generation of coupling files

mfa = FCToFA[melsimplified] ;

mfacoll = MomentaCollect[mfa // Expand, ParticlesNumber -> 4, PerturbationOrder -> 4, HoldMinuses -> True] ;

gencoup = GenericCoupling[mfacoll] ; gencoup

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

classcoup = ClassesCoupling[mfacoll] // Together ;

$VeryVerbose = 2 ;

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

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

File exists, force evaluating

Saving

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

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

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)