•Calculation of the amplitude

Calculation of the amplitude:

$ConstantIsoIndices = {i1, i3, I1} ;

ampFC1 = CreateFCAmp[mesontreeinsert, AmplitudeLevel -> Classes] // SUNReduce[#, FullReduce -> True] & // IndicesCleanup // CommutatorReduce ;

ampFC1[[1]] // Length

183

$ConstantIsoIndices = {I1} ;

amplFC = (WriteString["stdout", "."] ; SUNReduce[# // DoSumOver, FullReduce -> True] /. subpar) & /@ ampFC1[[1]] // Simplify

.......................................................................................................................................................................................

1/(48 π^4 (f _ ϕ^(ó  ))^3) (i (3 c _ 2^( ) (2/(q _ 1^2 - (m _ π^+^(ó  ))^2) + 1/(q _ 1^2 - (m _ π^0^(ó  ))^2) - 2/(q _ 1^2 - (m _ K^+^(ó  ))^2) - 1/(q _ 1^2 - (m _ η^(ó  ))^2)) q _ 1^2 - 2 c _ 5^( ) (2/(q _ 1^2 - (m _ π^+^(ó  ))^2) + 1/(q _ 1^2 - (m _ π^0^(ó  ))^2) + 2/(q _ 1^2 - (m _ K^+^(ó  ))^2) + 4/(q _ 1^2 - (m _ K^0^(ó  ))^2) + 1/(q _ 1^2 - (m _ η^(ó  ))^2)) ((m _ π^(ó  ))^2 - (m _ K^+^(ó  ))^2)) δ _ (7 i _ 3)^(3))

Converted by Mathematica  (July 10, 2003)