•Generation of the topology and insertion of the field

Construction of topologies:

mesonstop = (Join[#, (# // AddExternalLegs) /. Vertex[n__][i_ ? Positive] -> Vertex[n][-i]]) &[CreateCTTopologies[1, 1 -> 1]] ;

Paint[mesonstop, AutoEdit -> False, SheetHeader -> False, Numbering -> True, ColumnsXRows -> {3, 2}] ;

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

Specification of which coupling vectors are to be used:

$VerticesSpecifications = {{VertexFields -> {PseudoScalar[0][0], PhiMeson[0]}, PhiModel -> ChPT3, PerturbationOrder -> {2, 4}, CouplingSign -> 1, XFileName -> Automatic}, {VertexFields -> {PseudoScalar[0][0], PseudoScalar[0][0]}, PhiModel -> ChPT3, PerturbationOrder -> {2, 4}, CouplingSign -> 1, XFileName -> Automatic}} ;

Field insertion:

InitializeModel["Automatic", GenericModel -> "Automatic", Reinitialize -> True] ;

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

Graphical representation of the process:

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

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

Converted by Mathematica  (July 10, 2003)