•Calculation of the amplitude

Calculation of the amplitude:

$ConstantIsoIndices = {i1, i3, I1} ;

ampFC = CreateFCAmp[mesontreeinsert] ;

amplFC = (ampFC[[1]] // DoSumOver) /. subpar /. udrules /. i3 -> i1 // SUNReduce // SUNReduce // SUNReduce // Simplify

-1/(144 π^4 f _ ϕ^(ó  )) (i !, _ 0^( ) ((6 (d _ (1 i _ 1 k1)^(3))^2 + 6 (d _ (2 i _ 1 k1)^(3))^2 + 6 (d _ (3 i _ 1 k1)^(3))^2 + 3 3^(1/2) d _ (8 i _ 1 i _ 1)^(3) + 4 δ _ (1 i _ 1)^(3) + 4 δ _ (2 i _ 1)^(3) + 4 δ _ (3 i _ 1)^(3) + 6)/(q _ 1^2 - (m _ π^(ó  ))^2) + (6 (d _ (4 i _ 1 k1)^(3))^2 + 6 (d _ (5 i _ 1 k1)^(3))^2 + 6 (d _ (6 i _ 1 k1)^(3))^2 + 6 (d _ (7 i _ 1 k1)^(3))^2 - 2 3^(1/2) d _ (8 i _ 1 i _ 1)^(3) + 4 δ _ (4 i _ 1)^(3) + 4 δ _ (5 i _ 1)^(3) + 4 δ _ (6 i _ 1)^(3) + 4 δ _ (7 i _ 1)^(3) + 8)/(q _ 1^2 - (m _ K^(ó  ))^2) + (6 (d _ (8 i _ 1 k1)^(3))^2 - 3^(1/2) d _ (8 i _ 1 i _ 1)^(3) + 4 δ _ (8 i _ 1)^(3) + 2)/(q _ 1^2 - (m _ η^(ó  ))^2)))

Converted by Mathematica  (July 10, 2003)