![res = {} ; Do[Clear[subres, subres1, summ, suminds, sub, sums, tmpi, tmpii, tmpsum, name, tmpsub, subsum, tmpres] ; summ = amplFC1[[rep]] //. {(SumOver[SUNIndex[ii_]] * SUNDelta[ExplicitSUNIndex[jj_Integer], SUNIndex[ii_]] * rest_) :> (rest /. ii -> jj), (SumOver[SUNIndex[ii_]] * (p : HoldPattern[Plus[(SUNDelta[ExplicitSUNIndex[jj_Integer], SUNIndex[ii_]] * _) ..]]) * rest_) :> (p * rest /. ii -> jj)} ; Print["Length of expression ", fcelements[[rep]], ": ", Length[summ]] ; subres = (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..."] ; Sum[WriteString["stdout", (#[[1]]) & /@ {sums}] ; subsum = ( ((* WriteString["stdout", "."] ; *) SUNReduce[SUNReduce[SUNReduce[SUNReduce[#]]]]) & /@ (tmpres = WriteOutUMatrices[(* Print["Expanding matrices and momenta"] ; *) summ (* /. p1 -> -p3 - p4 *) /. subpar /. udrules // MomentumExpand // ExpandScalarProduct // MomentumCombine (* // Expand *)] (* ; Print["Length of expression: ", Length[tmpres], ". Reducing SU(3) structures and simplifying"] *) ; tmpres) ) /. {p2 + p3 -> -p1, -p2 - p3 -> p1} ; If[! FreeQ[subsum, (SU3F | SU3D)[___, _SUNIndex, ___], Infinity], WriteString["stdout", "Still contractions left. Summing explicitly "] ; subsum = (WriteString["stdout", "."] ; SUNReduce[#, Explicit -> True, HoldSums -> False]) & /@ Expand[subsum], subsum] ; Simplify[subsum], Evaluate[sums]] // MomentumExpand // ExpandScalarProduct // Simplify) ; res = Append[res, subres], {rep, 1, Length[amplFC1]}] ;](../HTMLFiles/index_159.gif)
{1}Still contractions left. Summing explicitly ......{2}Still contractions left. Summing explicitly ......{3}Still contractions left. Summing explicitly ......{4}Still contractions left. Summing explicitly ......{5}Still contractions left. Summing explicitly ......{6}Still contractions left. Summing explicitly ...{7}Still contractions left. Summing explicitly ...{8}Still contractions left. Summing explicitly ......{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}{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}Still contractions left. Summing explicitly ..........{7, 2}Still contractions left. Summing explicitly ..........{7, 3}Still contractions left. Summing explicitly ..........{7, 4}Still contractions left. Summing explicitly ........{7, 5}Still contractions left. Summing explicitly ........{7, 6}Still contractions left. Summing explicitly ..........{7, 7}Still contractions left. Summing explicitly ........{7, 8}Still contractions left. Summing explicitly ..........{8, 1}{8, 2}{8, 3}{8, 4}{8, 5}{8, 6}{8, 7}{8, 8}{1, 1, 1}{1, 1, 2}{1, 1, 3}{1, 1, 4}{1, 1, 5}{1, 1, 6}{1, 1, 7}{1, 1, 8}{1, 2, 1}{1, 2, 2}{1, 2, 3}{1, 2, 4}{1, 2, 5}{1, 2, 6}{1, 2, 7}{1, 2, 8}{1, 3, 1}{1, 3, 2}{1, 3, 3}{1, 3, 4}{1, 3, 5}{1, 3, 6}{1, 3, 7}{1, 3, 8}{1, 4, 1}{1, 4, 2}{1, 4, 3}{1, 4, 4}{1, 4, 5}{1, 4, 6}{1, 4, 7}{1, 4, 8}{1, 5, 1}{1, 5, 2}{1, 5, 3}{1, 5, 4}{1, 5, 5}{1, 5, 6}{1, 5, 7}{1, 5, 8}{1, 6, 1}{1, 6, 2}{1, 6, 3}{1, 6, 4}{1, 6, 5}{1, 6, 6}{1, 6, 7}{1, 6, 8}{1, 7, 1}{1, 7, 2}{1, 7, 3}{1, 7, 4}{1, 7, 5}{1, 7, 6}{1, 7, 7}{1, 7, 8}{1, 8, 1}{1, 8, 2}{1, 8, 3}{1, 8, 4}{1, 8, 5}{1, 8, 6}{1, 8, 7}{1, 8, 8}{2, 1, 1}{2, 1, 2}{2, 1, 3}{2, 1, 4}{2, 1, 5}{2, 1, 6}{2, 1, 7}{2, 1, 8}{2, 2, 1}{2, 2, 2}{2, 2, 3}{2, 2, 4}{2, 2, 5}{2, 2, 6}{2, 2, 7}{2, 2, 8}{2, 3, 1}{2, 3, 2}{2, 3, 3}{2, 3, 4}{2, 3, 5}{2, 3, 6}{2, 3, 7}{2, 3, 8}{2, 4, 1}{2, 4, 2}{2, 4, 3}{2, 4, 4}{2, 4, 5}{2, 4, 6}{2, 4, 7}{2, 4, 8}{2, 5, 1}{2, 5, 2}{2, 5, 3}{2, 5, 4}{2, 5, 5}{2, 5, 6}{2, 5, 7}{2, 5, 8}{2, 6, 1}{2, 6, 2}{2, 6, 3}{2, 6, 4}{2, 6, 5}{2, 6, 6}{2, 6, 7}{2, 6, 8}{2, 7, 1}{2, 7, 2}{2, 7, 3}{2, 7, 4}{2, 7, 5}{2, 7, 6}{2, 7, 7}{2, 7, 8}{2, 8, 1}{2, 8, 2}{2, 8, 3}{2, 8, 4}{2, 8, 5}{2, 8, 6}{2, 8, 7}{2, 8, 8}{3, 1, 1}{3, 1, 2}{3, 1, 3}{3, 1, 4}{3, 1, 5}{3, 1, 6}{3, 1, 7}{3, 1, 8}{3, 2, 1}{3, 2, 2}{3, 2, 3}{3, 2, 4}{3, 2, 5}{3, 2, 6}{3, 2, 7}{3, 2, 8}{3, 3, 1}{3, 3, 2}{3, 3, 3}{3, 3, 4}{3, 3, 5}{3, 3, 6}{3, 3, 7}{3, 3, 8}{3, 4, 1}{3, 4, 2}{3, 4, 3}{3, 4, 4}{3, 4, 5}{3, 4, 6}{3, 4, 7}{3, 4, 8}{3, 5, 1}{3, 5, 2}{3, 5, 3}{3, 5, 4}{3, 5, 5}{3, 5, 6}{3, 5, 7}{3, 5, 8}{3, 6, 1}{3, 6, 2}{3, 6, 3}{3, 6, 4}{3, 6, 5}{3, 6, 6}{3, 6, 7}{3, 6, 8}{3, 7, 1}{3, 7, 2}{3, 7, 3}{3, 7, 4}{3, 7, 5}{3, 7, 6}{3, 7, 7}{3, 7, 8}{3, 8, 1}{3, 8, 2}{3, 8, 3}{3, 8, 4}{3, 8, 5}{3, 8, 6}{3, 8, 7}{3, 8, 8}{4, 1, 1}{4, 1, 2}{4, 1, 3}{4, 1, 4}{4, 1, 5}{4, 1, 6}{4, 1, 7}{4, 1, 8}{4, 2, 1}{4, 2, 2}{4, 2, 3}{4, 2, 4}{4, 2, 5}{4, 2, 6}{4, 2, 7}{4, 2, 8}{4, 3, 1}{4, 3, 2}{4, 3, 3}{4, 3, 4}{4, 3, 5}{4, 3, 6}{4, 3, 7}{4, 3, 8}{4, 4, 1}{4, 4, 2}{4, 4, 3}{4, 4, 4}{4, 4, 5}{4, 4, 6}{4, 4, 7}{4, 4, 8}{4, 5, 1}{4, 5, 2}{4, 5, 3}{4, 5, 4}{4, 5, 5}{4, 5, 6}{4, 5, 7}{4, 5, 8}{4, 6, 1}{4, 6, 2}{4, 6, 3}{4, 6, 4}{4, 6, 5}{4, 6, 6}{4, 6, 7}{4, 6, 8}{4, 7, 1}{4, 7, 2}{4, 7, 3}{4, 7, 4}{4, 7, 5}{4, 7, 6}{4, 7, 7}{4, 7, 8}{4, 8, 1}{4, 8, 2}{4, 8, 3}{4, 8, 4}{4, 8, 5}{4, 8, 6}{4, 8, 7}{4, 8, 8}{5, 1, 1}{5, 1, 2}{5, 1, 3}{5, 1, 4}{5, 1, 5}{5, 1, 6}{5, 1, 7}{5, 1, 8}{5, 2, 1}{5, 2, 2}{5, 2, 3}{5, 2, 4}{5, 2, 5}{5, 2, 6}{5, 2, 7}{5, 2, 8}{5, 3, 1}{5, 3, 2}{5, 3, 3}{5, 3, 4}{5, 3, 5}{5, 3, 6}{5, 3, 7}{5, 3, 8}{5, 4, 1}{5, 4, 2}{5, 4, 3}{5, 4, 4}{5, 4, 5}{5, 4, 6}{5, 4, 7}{5, 4, 8}{5, 5, 1}{5, 5, 2}{5, 5, 3}{5, 5, 4}{5, 5, 5}{5, 5, 6}{5, 5, 7}{5, 5, 8}{5, 6, 1}{5, 6, 2}{5, 6, 3}{5, 6, 4}{5, 6, 5}{5, 6, 6}{5, 6, 7}{5, 6, 8}{5, 7, 1}{5, 7, 2}{5, 7, 3}{5, 7, 4}{5, 7, 5}{5, 7, 6}{5, 7, 7}{5, 7, 8}{5, 8, 1}{5, 8, 2}{5, 8, 3}{5, 8, 4}{5, 8, 5}{5, 8, 6}{5, 8, 7}{5, 8, 8}{6, 1, 1}{6, 1, 2}{6, 1, 3}{6, 1, 4}{6, 1, 5}{6, 1, 6}{6, 1, 7}{6, 1, 8}{6, 2, 1}{6, 2, 2}{6, 2, 3}{6, 2, 4}{6, 2, 5}{6, 2, 6}{6, 2, 7}{6, 2, 8}{6, 3, 1}{6, 3, 2}{6, 3, 3}{6, 3, 4}{6, 3, 5}{6, 3, 6}{6, 3, 7}{6, 3, 8}{6, 4, 1}{6, 4, 2}{6, 4, 3}{6, 4, 4}{6, 4, 5}{6, 4, 6}{6, 4, 7}{6, 4, 8}{6, 5, 1}{6, 5, 2}{6, 5, 3}{6, 5, 4}{6, 5, 5}{6, 5, 6}{6, 5, 7}{6, 5, 8}{6, 6, 1}{6, 6, 2}{6, 6, 3}{6, 6, 4}{6, 6, 5}{6, 6, 6}{6, 6, 7}{6, 6, 8}{6, 7, 1}{6, 7, 2}{6, 7, 3}{6, 7, 4}{6, 7, 5}{6, 7, 6}{6, 7, 7}{6, 7, 8}{6, 8, 1}{6, 8, 2}{6, 8, 3}{6, 8, 4}{6, 8, 5}{6, 8, 6}{6, 8, 7}{6, 8, 8}{7, 1, 1}{7, 1, 2}{7, 1, 3}{7, 1, 4}{7, 1, 5}{7, 1, 6}{7, 1, 7}{7, 1, 8}{7, 2, 1}{7, 2, 2}{7, 2, 3}{7, 2, 4}{7, 2, 5}{7, 2, 6}{7, 2, 7}{7, 2, 8}{7, 3, 1}{7, 3, 2}{7, 3, 3}{7, 3, 4}{7, 3, 5}{7, 3, 6}{7, 3, 7}{7, 3, 8}{7, 4, 1}{7, 4, 2}{7, 4, 3}{7, 4, 4}{7, 4, 5}{7, 4, 6}{7, 4, 7}{7, 4, 8}{7, 5, 1}{7, 5, 2}{7, 5, 3}{7, 5, 4}{7, 5, 5}{7, 5, 6}{7, 5, 7}{7, 5, 8}{7, 6, 1}{7, 6, 2}{7, 6, 3}{7, 6, 4}{7, 6, 5}{7, 6, 6}{7, 6, 7}{7, 6, 8}{7, 7, 1}{7, 7, 2}{7, 7, 3}{7, 7, 4}{7, 7, 5}{7, 7, 6}{7, 7, 7}{7, 7, 8}{7, 8, 1}{7, 8, 2}{7, 8, 3}{7, 8, 4}{7, 8, 5}{7, 8, 6}{7, 8, 7}{7, 8, 8}{8, 1, 1}{8, 1, 2}{8, 1, 3}{8, 1, 4}{8, 1, 5}{8, 1, 6}{8, 1, 7}{8, 1, 8}{8, 2, 1}{8, 2, 2}{8, 2, 3}{8, 2, 4}{8, 2, 5}{8, 2, 6}{8, 2, 7}{8, 2, 8}{8, 3, 1}{8, 3, 2}{8, 3, 3}{8, 3, 4}{8, 3, 5}{8, 3, 6}{8, 3, 7}{8, 3, 8}{8, 4, 1}{8, 4, 2}{8, 4, 3}{8, 4, 4}{8, 4, 5}{8, 4, 6}{8, 4, 7}{8, 4, 8}{8, 5, 1}{8, 5, 2}{8, 5, 3}{8, 5, 4}{8, 5, 5}{8, 5, 6}{8, 5, 7}{8, 5, 8}{8, 6, 1}{8, 6, 2}{8, 6, 3}{8, 6, 4}{8, 6, 5}{8, 6, 6}{8, 6, 7}{8, 6, 8}{8, 7, 1}{8, 7, 2}{8, 7, 3}{8, 7, 4}{8, 7, 5}{8, 7, 6}{8, 7, 7}{8, 7, 8}{8, 8, 1}{8, 8, 2}{8, 8, 3}{8, 8, 4}{8, 8, 5}{8, 8, 6}{8, 8, 7}{8, 8, 8}
Converted by Mathematica (July 10, 2003)