•Generation of topologies and insertion of fields

mesonstop = CreateTopologies[0, 2 -> 2, Adjacencies -> {4}, ExcludeTopologies -> {SelfEnergies, WFCorrections}, CountertermOrder -> 1] ;

mesontreeinsert = InsertFields[mesonstop, {PhiMeson[0, {i1}], PhiMeson[0, {i2}]} -> {PhiMeson[0, {i3}], PhiMeson[0, {i4}]}, Model -> "Automatic", GenericModel -> "Automatic", InsertionLevel -> Classes] ;


Converted by Mathematica  (July 10, 2003)