•Generation of coupling files

melsimplified // Expand // Length

4120

nn = 0 ; mfa = (If[IntegerQ[nn/100], WriteString["stdout", nn, " "]] ; ++ nn ; FCToFA[#]) & /@ Take[Expand[melsimplified], {1, -1}] ;

0 100 200 300 400 500 600 700 800 900 1000 1100 1200 1300 1400 1500 1600 1700 1800 1900 2000 2100 2200 2300 2400 2500 2600 2700 2800 2900 3000 3100 3200 3300 3400 3500 3600 3700 3800 3900 4000 4100

mfa // Length

4120

$VeryVerbose = 2 ;

mfacoll = MomentaCollect[mfa, ParticlesNumber -> 4, PerturbationOrder -> 1] ;

Scalar product is _MomentaScalarProduct | _Pair

Building list of Collect patterns from momenta

Building list of Collect patterns from $ExpansionQuantities

Collecting

gencoup = GenericCoupling[mfacoll] ; gencoup

Applying FCToFA to the expression

{p _ 6 _ μ _ 1, p _ 5 _ μ _ 1, p _ 2 _ μ _ 1, p _ 4 _ μ _ 1, p _ 3 _ μ _ 1}

classcoup = ClassesCoupling[mfacoll] // Together ;

Applying FCToFA to the expression

Applying FCToFA to the expression

A test:

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

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

File exists, force evaluating

Saving

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

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

File exists, force evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)