•Calculation of the amplitude

Calculation of the amplitude:

CreateFCAmp[mesontreeinsert, WFRenormalize -> False][[1]] //. channel // SUNReduce[#, FullReduce -> True] & // Simplify

(m _ π^(ó  ))^2/(f _ π^(ó  ))^2

amplFC = CreateFCAmp[mesontreeinsert, WFRenormalize -> True][[1]] //. channel // SUNReduce[#, FullReduce -> True] & // Simplify

((m _ π^(ó  ))^2 (24 π^2 (f _ π^(ó  ))^2 - 384 π^2 L _ 5^( ) (m _ π^(ó  ))^2 + 64 π^2 λ (m _ π^(ó  ))^2 + 2 log((m _ π^(ó  ))^2/μ^2) (m _ π^(ó  ))^2 + 32 π^2 λ (m _ K^(ó  ))^2 + log((m _ K^(ó  ))^2/μ^2) (m _ K^(ó  ))^2 - 384 π^2 L _ 4^( ) ((m _ π^(ó  ))^2 + 2 (m _ K^(ó  ))^2)))/(24 π^2 (f _ π^(ó  ))^4)

ampl2mult = DiscardOrders[((amplFC // DCRenormalize) // PMRenormalize) /. channel /. dcren /. logRule /. toEtaRules, PerturbationOrder -> 4] // Simplify

-1/(288 π^2 (f _ π^(ó  r ))^4) ((m _ π^(ó  r ))^2 (-288 π^2 (f _ π^(ó  r ))^2 - 4608 π^2 L _ 4^(r ) (m _ π^(ó  r ))^2 + 4608 π^2 L _ 5^( ) (m _ π^(ó  r ))^2 - 4608 π^2 L _ 5^(r ) (m _ π^(ó  r ))^2 + 4608 π^2 L _ 6^(r ) (m _ π^(ó  r ))^2 + 4608 π^2 L _ 8^(r ) (m _ π^(ó  r ))^2 - 768 π^2 λ (m _ π^(ó  r ))^2 + 21 log((m _ π^(ó  r ))^2/μ^2) (m _ π^(ó  r ))^2 + log((m _ η^(ó  r ))^2/μ^2) (m _ π^(ó  r ))^2 - 9216 π^2 L _ 4^(r ) (m _ K^(ó  r ))^2 + 9216 π^2 L _ 6^(r ) (m _ K^(ó  r ))^2 - 384 π^2 λ (m _ K^(ó  r ))^2 + 6 log((m _ K^(ó  r ))^2/μ^2) (m _ K^(ó  r ))^2 - 4 log((m _ η^(ó  r ))^2/μ^2) (m _ K^(ó  r ))^2 + 4608 π^2 L _ 4^( ) ((m _ π^(ó  r ))^2 + 2 (m _ K^(ó  r ))^2)))

Converted by Mathematica  (July 10, 2003)