•Generation of the topology and insertion of the field

Construction of topologies:

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

Field insertion:

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

Graphical representation of the process:

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

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

Converted by Mathematica  (July 10, 2003)