•Generation of coupling files

mfa = FCToFA[melsimplified] ;

mfacoll = Collect[mfa // Expand, {FourVector[__] * MomentaScalarProduct[__], FourVector[__] * ParticleMass[__]^2}] ;

mfacoll1 = mfacoll /. {FourVector[a__] * ParticleMass[b__]^2 * c__ :> FourVector[a] * ParticleMass[b]^2 * Collect[Expand[Times[c]], {_DecayConstant, _CouplingConstant}], FourVector[a__] * MomentaScalarProduct[b__] * c__ :> FourVector[a] * MomentaScalarProduct[b] * Collect[Expand[Times[c]], {_DecayConstant, _CouplingConstant}]} ;

mfacoll1

(p _ 2 _ μ _ 1 (L _ 5^( ) (-(16 d _ (8 I _ 1 I _ 2)^(3))/3^(1/2) - 8/3 δ _ (I _ 1 I _ 2)) - 8 L _ 4^( ) δ _ (I _ 1 I _ 2)) (m _ π^(ó  ))^2)/f _ ϕ^(ó  ) + (p _ 2 _ μ _ 1 (m _ K^+^(ó  ))^2 (L _ 5^( ) (-8 d _ (3 I _ 1 I _ 2)^(3) + (8 d _ (8 I _ 1 I _ 2)^(3))/3^(1/2) - 8/3 δ _ (I _ 1 I _ 2)) - 8 L _ 4^( ) δ _ (I _ 1 I _ 2)))/f _ ϕ^(ó  ) + (p _ 2 _ μ _ 1 (m _ K^0^(ó  ))^2 (L _ 5^( ) (8 d _ (3 I _ 1 I _ 2)^(3) + (8 d _ (8 I _ 1 I _ 2)^(3))/3^(1/2) - 8/3 δ _ (I _ 1 I _ 2)) - 8 L _ 4^( ) δ _ (I _ 1 I _ 2)))/f _ ϕ^(ó  )

gencoup = GenericCoupling[mfacoll1, FCToFA -> False] ; gencoup

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

classcoup = ClassesCoupling[mfacoll1, FCToFA -> False] ; classcoup // StandardForm

{{(CouplingConstant[ChPT3[4], 5, RenormalizationState[0]] (-(16 SU3D[8, I1, I2])/3^(1/2) - 8/3 SUNDelta[I1, I2]) - 8 CouplingConstant[ChPT3[4], 4, RenormalizationState[0]] SUNDelta[I1, I2])/DecayConstant[PseudoScalar[1], RenormalizationState[0]]}, {(CouplingConstant[ChPT3[4], 5, RenormalizationState[0]] (-8 SU3D[3, I1, I2] + (8 SU3D[8, I1, I2])/3^(1/2) - 8/3 SUNDelta[I1, I2]) - 8 CouplingConstant[ChPT3[4], 4, RenormalizationState[0]] SUNDelta[I1, I2])/DecayConstant[PseudoScalar[1], RenormalizationState[0]]}, {(CouplingConstant[ChPT3[4], 5, RenormalizationState[0]] (8 SU3D[3, I1, I2] + (8 SU3D[8, I1, I2])/3^(1/2) - 8/3 SUNDelta[I1, I2]) - 8 CouplingConstant[ChPT3[4], 4, RenormalizationState[0]] SUNDelta[I1, I2])/DecayConstant[PseudoScalar[1], RenormalizationState[0]]}}

$VeryVerbose = 2 ;

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

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

File does not exist, evaluating

Saving

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

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

File does not exist, evaluating

Saving

$VeryVerbose = 0 ;

Converted by Mathematica  (July 10, 2003)