Do[Clear[subres, subres1, summ, suminds, sub, sums, tmpi, tmpii, tmpsum, name, tmpsub, subsum, tmpres] ; summ = amplFC1[[rep]] /. {in1 -> 7, in2 -> 3, in3 -> 3} //. {(SumOver[i_, ___] * (SU3Delta | SUNDelta)[j_Integer | ExplicitSUNIndex[j_Integer], SUNIndex[i_]] * rest__) :> (WriteString["+"] ; Times[rest] /. i -> j), (SumOver[i_, ___] * (p : HoldPattern[Plus[((SU3Delta | SUNDelta)[j_Integer | ExplicitSUNIndex[j_Integer], SUNIndex[i_]] * _) ..]]) * rest__) :> (WriteString["+"] ; p * Times[rest] /. i -> j)} ; Print["Length of expression ", fcelements[[rep]], ": ", Length[summ]] ; CheckF[(Print["Finding summation indices"] ; suminds = (#[[1]]) & /@ Union[Cases[summ, _SumOver, Infinity]] ; sums = If[suminds === {}, {I1, 1}, Sequence @@ ((({#, If[FreeQ[summ, #], 1, 8]} & /@ suminds)))] ; Print["Sums: ", {sums}] ; tmpi = 0 ; tmpii = 0 ; Print["Summing"] ; (tmpres = Sum[WriteString["stdout", (#[[1]]) & /@ {sums}] ; subsum = ((WriteString["stdout", "."] ; SUNReduce[#, FullReduce -> True]) & /@ ((* tmpres1 = WriteOutUMatrices[WriteString["stdout", "+"] ; # /. p1 -> -p3 - p4 /. subpar /. udrules // SUNReduce[#, FullReduce -> True] & // MomentumExpand // ExpandScalarProduct // MomentumCombine // Expand] & /@ summ ; *) tmpres = WriteOutUMatrices[(* Print["Expanding matrices and momenta"] ; *) (* tmpres1 *) summ /. p1 -> -p3 - p4 /. subpar /. udrules (* // SUNReduce[#, FullReduce -> True] & *) // MomentumExpand // ExpandScalarProduct // MomentumCombine // Expand] ; (* Print["Length of sub-expression: ", Length[tmpres], ". Reducing SU(3) structures and simplifying"] ; *) tmpres)) /. {p3 + p4 -> -p1, -p3 - p4 -> p1} ; If[FreeQ[subsum, (SU3F | SU3D | SU3Delta)[___, _SUNIndex, ___]] =!= True, WriteString["stdout", " Still contractions left. Summing explicitly. Length: ", Length[subsum]] ; subsum = (WriteString["stdout", "."] ; SUNReduce[#, Explicit -> True, HoldSums -> False]) & /@ Expand[subsum], subsum] ; subsum (* Simplify[subsum] *), Evaluate[sums]]) // MomentumExpand // ExpandScalarProduct // MomentumCombine // SUNReduce[#, FullReduce -> True] & // Simplify), "KPiPiloop" <> ToString[fcelements[[rep]]]], {rep, 1, Length[amplFC1]}] ;

Length of expression 7 : 9

Finding summation indices

Sums: ( I ) 1 8 I 2 8

Summing

{1, 1}{1, 2}{1, 3}{1, 4}{1, 5}{1, 6}{1, 7}{1, 8}{2, 1}{2, 2}{2, 3}{2, 4}{2, 5}{2, 6}{2, 7}{2, 8}{3, 1}{3, 2}{3, 3}{3, 4}{3, 5}{3, 6}{3, 7}{3, 8}{4, 1}{4, 2}{4, 3}{4, 4}{4, 5}{4, 6}{4, 7}{4, 8}{5, 1}{5, 2}{5, 3}{5, 4}{5, 5}{5, 6}{5, 7}{5, 8}{6, 1}{6, 2}{6, 3}{6, 4}{6, 5}{6, 6}{6, 7}{6, 8}{7, 1}............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{7, 2}............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{7, 3}....................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{7, 4}............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{7, 5}............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{7, 6}............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{7, 7}................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{7, 8}............................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................................{8, 1}{8, 2}{8, 3}{8, 4}{8, 5}{8, 6}{8, 7}{8, 8}

Converted by Mathematica  (July 10, 2003)