index_31.html

•Generation of coupling files

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

${(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 _ K^0^(ó ))^2, (p _ 1 ° p _ 4) (m _ K^+^(ó ))^2, (p _ 2 ° p _ 4) (m _ K^+^(ó ))^2, (p _ 2 ° p _ 4) (m _ K^0^(ó ))^2, (p _ 1 ° p _ 3) (m _ K^+^(ó ))^2, (p _ 1 ° p _ 3) (m _ K^0^(ó ))^2, (p _ 3 ° p _ 4) (m _ K^0^(ó ))^2, (p _ 3 ° p _ 4) (m _ K^+^(ó ))^2, (p _ 1 ° p _ 2) (m _ K^0^(ó ))^2, (p _ 1 ° p _ 2) (m _ K^+^(ó ))^2, (p _ 2 ° p _ 4) (m _ π^(ó ))^2, (p _ 1 ° p _ 3) (m _ π^(ó ))^2, (p _ 1 ° p _ 4) (m _ π^(ó ))^2, (p _ 2 ° p _ 3) (m _ K^0^(ó ))^2, (p _ 2 ° p _ 3) (m _ K^+^(ó ))^2, (p _ 3 ° p _ 4) (m _ π^(ó ))^2, (p _ 1 ° p _ 2) (m _ π^(ó ))^2, (p _ 2 ° p _ 3) (m _ π^(ó ))^2, (m _ K^+^(ó ))^4, (m _ K^0^(ó ))^4, (m _ K^+^(ó ))^2 (m _ K^0^(ó ))^2, (m _ π^(ó ))^2 (m _ K^0^(ó ))^2, (m _ π^(ó ))^2 (m _ K^+^(ó ))^2, (m _ π^(ó ))^4}$

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

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

Converted by Mathematica (July 10, 2003)