•Generation of topologies and insertion of fields

Construction of topologies:

mesonstop = TopologyList @@ Union[Flatten[{#, List @@ AddExternalLegs[#, ExternalPropagators -> 1], List @@ AddExternalLegs[#, ExternalPropagators -> 2]} &[CreateCTTopologies[1, 2 -> 1, Adjacencies -> {3, 4}, ExcludeTopologies -> {TadpoleCTs (* , SelfEnergyCTs, WFCorrectionCTs *)}]]]] ;

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

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

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

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

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

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

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

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

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

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

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

Field insertion:

$VerticesSpecifications = {{VertexFields -> {PhiMeson[0], Scalar[1][0]}, PhiModel -> ChPTW3, PerturbationOrder -> {2}, CouplingSign -> 1, XFileName -> Automatic}, (* ! *) {VertexFields -> {PhiMeson[0], PhiMeson[0], Scalar[2][0]}, PhiModel -> ChPT3, PerturbationOrder -> {2, 4}, CouplingSign -> 1, XFileName -> Automatic}, {VertexFields -> {PhiMeson[0], PhiMeson[0], Scalar[1][0]}, PhiModel -> ChPTW3, PerturbationOrder -> {2, 4}, CouplingSign -> 1, XFileName -> {"ChPTW3P10P10S10o2", "ChPTW3P10P10o4"}}, (* ! *) {VertexFields -> {PhiMeson[0], Scalar[2][0], Scalar[1][0]}, PhiModel -> ChPTW3, PerturbationOrder -> {2, 4}, CouplingSign -> 1, XFileName -> {"ChPTW3P10S20o2", "ChPTW3P10S20o4"}}} ;

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

mesontreeinsert = InsertFields[mesonstop, {PhiMeson[0, {7}], Scalar[1][0]} -> {Scalar[2][0, {i}]}, Model -> "Automatic", GenericModel -> "Automatic", InsertionLevel -> Classes] ;

Graphical representation of the process:

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

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

Converted by Mathematica  (July 10, 2003)