•Calculation of the amplitude

Calculation of the amplitude:

ampFC = CreateFCAmp[mesontreeinsert] ;

$ConstantIsoIndices = {i1, i3} ;

amplFC2 = (ampFC[[1]] // PropagatorDenominatorExplicit // DoSumOver) /. subpar /. udrules /. i3 -> i1 // SUNReduce[#, FullReduce -> True] & // Simplify

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

Converted by Mathematica  (July 10, 2003)