•Calculation of the amplitude

Calculation of the amplitude:

amplF = (WriteString["stdout", "."] ; Simplify[#]) & /@ CreateFCAmp[mesontreeinsert, AmplitudeLevel -> Classes, Sum -> False, EqualMasses -> True] ;

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

$ConstantIsoIndices = {} ;

amplFC = ((WriteString["stdout", "."] ; Simplify[MomentumCombine[SUNReduce[#, FullReduce -> True]]]) & /@ amplF) ;

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

Converted by Mathematica  (July 10, 2003)