Calculation of the amplitude:
![]()
![]()
![amplFC2 = (summ = SUNReduce[SUNReduce[#]] & /@ (Print["Expanding..."] ; tmp = Expand[#] ; Print["Reducing..."] ; tmp) ; suminds = (#[[1]]) & /@ Union[Cases[#, _SumOver, Infinity]] ; sums = If[suminds === {}, {I1, 1}, Sequence @@ ((({#, If[FreeQ[summ, #], 1, 8]} & /@ suminds)))] ; Print["Length of expression: ", Length[summ]] ; tmpii = 0 ; res = (If[IntegerQ[tmpii/100], Print[tmpii]] ; ++ tmpii ; Sum[SUNReduce[SUNReduce[Sum[WriteOutUMatrices[#], Evaluate[sums]], Explicit -> True, HoldSums -> False]]]) & /@ summ) & /@ Take[amplFC, {1, -1}] ;](../HTMLFiles/index_77.gif)
![]()
![]()
![]()
![]()
![]()
![]()
The new (as compared to the K->2π amplitude) contributions with a weak counterterm vertex are proportional to the 'scalar' momentum and vanish when it's set to zero.
![]()
![]()
Further isospin reduction and change to Mandelstam variables:
![res1 = CheckF[((Simplify[ExpandScalarProduct[SUNReduce[SUNReduce[#]]] /. D -> Sequence[] /. subpar /. udrules] // PropagatorDenominatorExplicit) /. MandelstamRules // Simplify // MomentumCombine) & /@ amplFC2 /. {p1 + p2 -> -p3, -p1 - p2 -> p3, p2 + p3 -> -p1, -p2 - p3 -> p1, p1 + p3 -> -p2, -p1 - p3 -> p2} // Simplify, "KSS2res1"]](../HTMLFiles/index_86.gif)
![]()
The new (as compared to the K->π amplitude) contributions with a weak counterterm vertex are proportional to the 'scalar' momentum and vanish when it's set to zero. The contributions with a leading order counterterm vertex are not proportional to the 'scalar' momentum and don't vanish when it's set to zero
![]()
![]()
Converted by Mathematica (July 10, 2003)