•Calculation of the amplitude

Calculation of the amplitude ***NOT FINISHED***. E.g. {1,1,1,2} is non-vanishing.

amplFC = Expand[CreateFCAmp[mesontreeinsert, AmplitudeLevel -> Classes, EqualMasses -> False, Sum -> True]] // Contract // Simplify ;

softamp = Expand[(amplFC // PropagatorDenominatorExplicit)] //. Times[f__, SumOver[i_]] :> Sum[Times[f], {i, 1, 3}] // IsoToChargedMasses // SUNReduce // Simplify

{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}

Converted by Mathematica  (July 10, 2003)