•Calculation of the amplitude

Calculation of the amplitude:

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

(m _ K^+^(ó  ))^2/(f _ K^(ó  ))^2

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

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

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

1/(576 π^2 (f _ K^(ó  r ))^4) ((m _ K^(ó  r ))^2 (576 π^2 (f _ K^(ó  r ))^2 + 9216 π^2 L _ 4^(r ) (m _ π^(ó  r ))^2 - 9216 π^2 L _ 6^(r ) (m _ π^(ó  r ))^2 + 576 π^2 λ (m _ π^(ó  r ))^2 - 9 log((m _ π^(ó  r ))^2/μ^2) (m _ π^(ó  r ))^2 + 13 log((m _ η^(ó  r ))^2/μ^2) (m _ π^(ó  r ))^2 + 18432 π^2 L _ 4^(r ) (m _ K^(ó  r ))^2 - 9216 π^2 L _ 5^( ) (m _ K^(ó  r ))^2 + 9216 π^2 L _ 5^(r ) (m _ K^(ó  r ))^2 - 18432 π^2 L _ 6^(r ) (m _ K^(ó  r ))^2 - 9216 π^2 L _ 8^(r ) (m _ K^(ó  r ))^2 + 1152 π^2 λ (m _ K^(ó  r ))^2 - 18 log((m _ K^(ó  r ))^2/μ^2) (m _ K^(ó  r ))^2 - 52 log((m _ η^(ó  r ))^2/μ^2) (m _ K^(ó  r ))^2 + 576 π^2 λ (m _ η^(ó  r ))^2 + 18 log((m _ η^(ó  r ))^2/μ^2) (m _ η^(ó  r ))^2 - 9216 π^2 L _ 4^( ) ((m _ π^(ó  r ))^2 + 2 (m _ K^(ó  r ))^2)))

Converted by Mathematica  (July 10, 2003)