•Generation of topologies and insertion of fields

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

mesontreeinsert = InsertFields[mesonstop, {Pion[0, {d1}], Pion[0, {d2}]} -> {Pion[0, {d3}], Pion[0, {d4}]}, Model -> "Automatic", GenericModel -> "Automatic", InsertionLevel -> Classes] ;

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

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

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

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

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

Converted by Mathematica  (July 10, 2003)