•Generation of topologies and insertion of fields

Construction of topologies:

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

Field insertion:

mesontreeinsert = InsertFields[mesonstop, {Pion[0, {i1}], Pion[0, {i2}]} -> {Pion[0, {i3}], Pion[0, {i4}]}] ;

Graphical representation of the process:

Paint[mesontreeinsert, PaintLevel -> {Classes}, AutoEdit -> False, SheetHeader -> False, Numbering -> False, ColumnsXRows -> {2, 2}] ;

[Graphics:../HTMLFiles/index_18.gif]

Converted by Mathematica  (July 10, 2003)