•Generation of topologies and insertion of fields

$VerticesSpecifications = {{VertexFields -> {Pion[0], Pion[0], Photon[0]}, PhiModel -> ChPTPhoton2, PerturbationOrder -> {4}, CouplingSign -> 1, XFileName -> Automatic}} ;

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

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

Converted by Mathematica  (July 10, 2003)