•Generation of the topology and insertion of the field

mesonstop = CreateTopologies[1, 1 -> 1, Adjacencies -> {3, 4}] ;

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

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

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

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

Converted by Mathematica  (July 10, 2003)