•Topologies and fields insertion

Construction of topologies:

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

Paint[tops, ColumnsXRows -> {3, 1}, AutoEdit -> False] ;

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

Field insertion:

inserttops = InsertFields[tops, {Nucleon[0, {j1}], Nucleon[0, {j2}]} -> {Nucleon[0, {j3}], Nucleon[0, {j4}]}, Model -> "Automatic", GenericModel -> "Automatic", InsertionLevel -> Classes] ;

Graphical representation of the process:

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

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

Converted by Mathematica  (July 10, 2003)