(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    341925,       8030]
NotebookOptionsPosition[    336690,       7862]
NotebookOutlinePosition[    337297,       7885]
CellTagsIndexPosition[    337254,       7882]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Load", " ", "FeynArts", " ", "and", " ", "FormCalc"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "<<", "\"\</home/stefan/.Mathematica/Applications/FeynArts-3.9/FeynArts.m\>\
\""}], "\[IndentingNewLine]", 
   RowBox[{
   "<<", "\"\</home/stefan/.Mathematica/Applications/FormCalc-9.4/FormCalc.m\>\
\""}], "\n"}]}]], "Input",
 CellChangeTimes->{{3.4634682742722187`*^9, 3.4634682889179363`*^9}, {
   3.463666001953456*^9, 3.463666006416147*^9}, {3.465539716931117*^9, 
   3.46553972071353*^9}, {3.4689075188441143`*^9, 3.468907529849032*^9}, {
   3.469425155249784*^9, 3.46942515995168*^9}, {3.471787300641184*^9, 
   3.471787304833091*^9}, {3.540124990890944*^9, 3.540124993954651*^9}, {
   3.573907116026257*^9, 3.573907118444072*^9}, {3.574063995175148*^9, 
   3.574063995253078*^9}, 3.574066890993726*^9, {3.5740679198327093`*^9, 
   3.574067920456141*^9}, {3.639390790353677*^9, 3.639390822975874*^9}, {
   3.75178278570612*^9, 3.751782786167355*^9}, {3.751784220098384*^9, 
   3.751784227057734*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 
   3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787062656*^9}, 
   3.753009597398189*^9, 3.757426249406972*^9, 3.757849775366496*^9}],

Cell[BoxData["\<\"FeynArts 3.9 (23 Sep 2015)\"\>"], "Print",
 CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 
   3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787062656*^9}, 
   3.753009597398189*^9, 3.757426249406972*^9, 3.7578497753678007`*^9}],

Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 
   3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787062656*^9}, 
   3.753009597398189*^9, 3.757426249406972*^9, 3.7578497753706617`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 
   3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787062656*^9}, 
   3.753009597398189*^9, 3.757426249406972*^9, 3.75784977537155*^9}],

Cell[BoxData["\<\"FormCalc 9.4 (7 Jun 2016)\"\>"], "Print",
 CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 
   3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787062656*^9}, 
   3.753009597398189*^9, 3.757426249406972*^9, 3.757849775372332*^9}],

Cell[BoxData["\<\"by Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 
   3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787062656*^9}, 
   3.753009597398189*^9, 3.757426249406972*^9, 3.757849775373104*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"Ask", " ", "for", " ", "tree"}], "-", 
     RowBox[{"level", " ", "amplitudes", " ", "for", " ", "2"}]}], "\[Rule]", 
    
    RowBox[{"2", " ", "process"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"tree", " ", "=", " ", 
   RowBox[{"CreateTopologies", "[", 
    RowBox[{"0", ",", 
     RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{
  3.544348838516971*^9, {3.751784232391736*^9, 3.7517842614437313`*^9}, 
   3.753010027367437*^9}],

Cell[BoxData[
 RowBox[{"TopologyList", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Topology", "[", "1", "]"}], "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "4", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "4", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "4", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "4", "]"}], "[", "5", "]"}]}], "]"}]}], "]"}], 
   ",", 
   RowBox[{
    RowBox[{"Topology", "[", "1", "]"}], "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Internal", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}]}], "]"}], 
   ",", 
   RowBox[{
    RowBox[{"Topology", "[", "1", "]"}], "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Internal", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}]}], "]"}], 
   ",", 
   RowBox[{
    RowBox[{"Topology", "[", "1", "]"}], "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "1", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Incoming", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "2", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "3", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Outgoing", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "1", "]"}], "[", "4", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"Propagator", "[", "Internal", "]"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "5", "]"}], ",", 
       RowBox[{
        RowBox[{"Vertex", "[", "3", "]"}], "[", "6", "]"}]}], "]"}]}], 
    "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.753010028178088*^9, 3.757426249835832*^9, 
  3.757849776076832*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Paint", "[", "tree", "]"}]], "Input",
 CellChangeTimes->{{3.753010029117697*^9, 3.753010031963561*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.753010032165286*^9, 3.757426250442635*^9, 
  3.757849777035005*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.753010032165286*^9, 3.757426250442635*^9, 
  3.757849777036199*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.753010032165286*^9, 3.757426250442635*^9, 
  3.757849777037348*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.753010032165286*^9, 3.757426250442635*^9, 
  3.757849777038294*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-9.094947017729282*^-12, 15.000000000003638`}, {
       9.999999999983629, 10.000000000007276`}}], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999996362}, {
       9.999999999985448, 9.999999999989086}}], 
      LineBox[{{20.000000000009095`, 15.000000000003638`}, {
       10.000000000009095`, 10.000000000003638`}}], 
      LineBox[{{20., 5.}, {10., 10.}}], 
      {PointSize[0.04], PointBox[{10., 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox["T1",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      LineBox[{{20.000000000005457`, 15.000000000003638`}, {
       14.000000000003638`, 10.000000000001819`}}], 
      LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 
       10.}}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 
       10.}}], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox["T2",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 
       14.000000000003638`}}], 
      LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
       9.999999999988404, 6.}}], 
      LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], 
      LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 
       5.999999999996362}}], 
      LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], 
      {PointSize[0.04], PointBox[{10., 13.99999999999999}], 
       PointBox[{10., 6.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox["T3",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 
       14.000000000003638`}}], 
      LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
       9.999999999988404, 6.}}], 
      LineBox[{{20.00000000000182, 15.}, {10., 6.}}], 
      LineBox[{{20.00000000000182, 5.}, {10., 14.}}], 
      LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], 
      {PointSize[0.04], PointBox[{10., 13.99999999999999}], 
       PointBox[{10., 6.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox["T4",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["2",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {28.5, 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[RightArrow]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {33., 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["2",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {37.5, 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
  AspectRatio->1.0999999999999999`,
  ImageSize->{288, 288},
  PlotRange->{{0, 66}, {0, 72.6}}]], "Print",
 CellChangeTimes->{3.753010032165286*^9, 3.757426250442635*^9, 
  3.757849777041135*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynArtsGraphics", "[", 
   RowBox[{"2", "\[Rule]", "2"}], "]"}], "[", 
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       InterpretationBox[
        RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1\"\>", 
         "\[InvisibleSpace]", "\<\"]\"\>"}],
        SequenceForm["[", "T1", "]"],
        Editable->False], 
       InterpretationBox[
        RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2\"\>", 
         "\[InvisibleSpace]", "\<\"]\"\>"}],
        SequenceForm["[", "T2", "]"],
        Editable->False], 
       InterpretationBox[
        RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T3\"\>", 
         "\[InvisibleSpace]", "\<\"]\"\>"}],
        SequenceForm["[", "T3", "]"],
        Editable->False]},
      {
       InterpretationBox[
        RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T4\"\>", 
         "\[InvisibleSpace]", "\<\"]\"\>"}],
        SequenceForm["[", "T4", "]"],
        Editable->False], "Null", "Null"},
      {"Null", "Null", "Null"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.7]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], "]"}]], "Output",
 CellChangeTimes->{3.753010032213748*^9, 3.757426250495949*^9, 
  3.757849777042542*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "Insert", " ", "particles", " ", "into", " ", "the", " ", "generic", " ", 
    "amplitudes"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"instree", " ", "=", " ", 
    RowBox[{"InsertFields", "[", 
     RowBox[{"tree", ",", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"2", ",", 
           RowBox[{"{", "1", "}"}]}], "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"F", "[", 
           RowBox[{"2", ",", 
            RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"V", "[", "3", "]"}], ",", 
         RowBox[{"-", 
          RowBox[{"V", "[", "3", "]"}]}]}], "}"}]}], ",", 
      RowBox[{"Model", "\[Rule]", "SM"}], ",", 
      RowBox[{"InsertionLevel", "\[Rule]", "Particles"}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.468577023475312*^9, 3.46857704094656*^9}, {
   3.518346879876877*^9, 3.518346885643848*^9}, {3.518432278357397*^9, 
   3.518432278564756*^9}, {3.523877351365882*^9, 3.523877379830977*^9}, {
   3.523879280487521*^9, 3.523879281917865*^9}, {3.523879473276319*^9, 
   3.5238794745562363`*^9}, {3.523881019422226*^9, 3.5238810228971643`*^9}, {
   3.523881058423822*^9, 3.523881061531026*^9}, 3.5239525413819103`*^9, 
   3.540130262320133*^9, {3.544348949965809*^9, 3.544349016042832*^9}, {
   3.5443494902342863`*^9, 3.5443494973868637`*^9}, {3.5443510182267447`*^9, 
   3.544351071697852*^9}, {3.5443526000284567`*^9, 3.5443526089250393`*^9}, {
   3.544423627292789*^9, 3.5444236276022177`*^9}, {3.544431441667838*^9, 
   3.544431446064337*^9}, {3.544432352180706*^9, 3.544432354341776*^9}, {
   3.5772016349940453`*^9, 3.577201694891657*^9}, {3.6393908384160757`*^9, 
   3.639390839308447*^9}, {3.751782846375349*^9, 3.7517829090477753`*^9}, {
   3.751784245775297*^9, 3.751784258739746*^9}, {3.7574262541092377`*^9, 
   3.7574262827673397`*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.7578497779111347`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"generic\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/home/stefan/.Mathematica/Applications/FeynArts-3.9/Models/Lorentz.gen\"\
\>"}],
  SequenceForm[
  "", "loading ", "generic", " model file ", 
   "/home/stefan/.Mathematica/Applications/FeynArts-3.9/Models/Lorentz.gen"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777912879*^9}],

Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777914473*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Lorentz\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["generic model ", {"Lorentz"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777950519*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777951709*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/home/stefan/.Mathematica/Applications/FeynArts-3.9/Models/SM.mod\"\>"}],
  
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/home/stefan/.Mathematica/Applications/FeynArts-3.9/Models/SM.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777955456*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.7578497779564047`*^9}],

Cell[BoxData[
 InterpretationBox[GridBox[{
    {GridBox[{
       {
        RowBox[{"$CKM", "=", "False"}]}
      },
      BaselinePosition->{Baseline, {1, 1}},
      GridBoxAlignment->{
       "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
        "RowsIndexed" -> {}},
      GridBoxItemSize->{"Columns" -> {{
           Scaled[0.999]}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
        "RowsIndexed" -> {}}]}
   },
   BaselinePosition->{Baseline, {1, 1}},
   GridBoxAlignment->{
    "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
     "RowsIndexed" -> {}}],
  Definition[$CellContext`$CKM],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777957539*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777958683*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "46", 
   "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", 
   "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\" classes\"\>"}],
  SequenceForm[
  "> ", 46, " particles (incl. antiparticles) in ", 16, " classes"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.7578497779597282`*^9}],

Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.7578497779902678`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "88", 
   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
  SequenceForm["> ", 88, " vertices"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849777993566*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "115", 
   "\[InvisibleSpace]", "\<\" counter terms of order 1\"\>"}],
  SequenceForm["> ", 115, " counter terms of order 1"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.75784977802964*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\" counter terms of order 2\"\>"}],
  SequenceForm["> ", 6, " counter terms of order 2"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.7578497780313673`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"SM\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["classes model ", {"SM"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849778034978*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849778036124*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
  SequenceForm[
  "inserting at level(s) ", {Generic, FeynArts`Classes, FeynArts`Particles}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.7578497780373383`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
insertions\"\>"}],
  SequenceForm[
  "> Top. ", 1, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849778038468*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 3 Classes, 3 Particles \
insertions\"\>"}],
  SequenceForm[
  "> Top. ", 2, ": ", "2 Generic, 3 Classes, 3 Particles insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849778039443*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
insertions\"\>"}],
  SequenceForm[
  "> Top. ", 3, ": ", "1 Generic, 1 Classes, 1 Particles insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849778071879*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \
insertions\"\>"}],
  SequenceForm[
  "> Top. ", 4, ": ", "0 Generic, 0 Classes, 0 Particles insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849778073124*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 4 Classes, 4 Particles \
insertions\"\>"}],
  SequenceForm["in total: ", "3 Generic, 4 Classes, 4 Particles insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 
   3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 
   3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 
   3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 
   3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 
   3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 
   3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 
   3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 
   3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, {
   3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 
   3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 
   3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 
   3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 
   3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 
   3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 
   3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 
   3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 
   3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 
   3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 
   3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 
   3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 
   3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 
   3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 
   3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 
   3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 
   3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 
   3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 
   3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 
   3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 
   3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 
   3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 
   3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 
   3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, {
   3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 
   3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 
   3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 
   3.7517829093584013`*^9}, 3.753009639750628*^9, {3.7574262513196507`*^9, 
   3.757426283023459*^9}, 3.757849778076581*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Paint", "[", "instree", "]"}]], "Input",
 CellChangeTimes->{{3.544349023487143*^9, 3.5443490283024673`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"8 diagrams\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "8 diagrams"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 
   3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 
   3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 
   3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 
   3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 
   3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 
   3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 
   3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 
   3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 
   3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 
   3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 
   3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 
   3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 
   3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 
   3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 
   3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 
   3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 
   3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 
   3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 
   3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 
   3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 
   3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 
   3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 
   3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 
   3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 
   3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 
   3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 
   3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 
   3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 
   3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 
   3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 
   3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 
   3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 
   3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, {
   3.7517828908677883`*^9, 3.751782910533724*^9}, {3.7574262623795033`*^9, 
   3.7574262838806543`*^9}, 3.757849782084255*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"3 diagrams\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "3 diagrams"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 
   3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 
   3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 
   3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 
   3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 
   3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 
   3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 
   3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 
   3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 
   3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 
   3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 
   3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 
   3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 
   3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 
   3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 
   3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 
   3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 
   3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 
   3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 
   3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 
   3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 
   3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 
   3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 
   3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 
   3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 
   3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 
   3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 
   3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 
   3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 
   3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 
   3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 
   3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 
   3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 
   3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, {
   3.7517828908677883`*^9, 3.751782910533724*^9}, {3.7574262623795033`*^9, 
   3.7574262838806543`*^9}, 3.757849782085533*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], 
      {Dashing[{0.030000000000000002`, 0.030000000000000002`}], 
       LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["S",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.3048}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "G1", " ", "N1"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], 
      {Dashing[{0.030000000000000002`, 0.030000000000000002`}], 
       LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["H",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.3048}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "C1", " ", "N2"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], 
      {Dashing[{0.030000000000000002`, 0.030000000000000002`}], 
       LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["H",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.3048}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "P1", " ", "N3"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], LineBox[CompressedData["
1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
YYABMg==
       "]], InsetBox[
       TagBox[
        StyleBox[
         TagBox["V",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.0548}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "G2", " ", "N4"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], LineBox[CompressedData["
1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
YYABMg==
       "]], InsetBox[
       TagBox[
        StyleBox[
         TagBox["\[Gamma]",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.0548}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "C1", " ", "N5"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], LineBox[CompressedData["
1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
YYABMg==
       "]], InsetBox[
       TagBox[
        StyleBox[
         TagBox["\[Gamma]",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.0548}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "P1", " ", "N6"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], LineBox[CompressedData["
1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
YYABMg==
       "]], InsetBox[
       TagBox[
        StyleBox[
         TagBox["Z",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.0548}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "C2", " ", "N7"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, {
       5.999999999996362, 10.000000000001819`}}], 
      PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, {
       2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 
       13.191399151637638`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, 
       ImageScaled[{1, 1}]], 
      LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, {
       5.999999999994543, 9.999999999994543}}], 
      PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, {
       3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 
       8.191399151637638}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, 
       ImageScaled[{0, 1}]], LineBox[CompressedData["
1:eJwl1H1ME3cYB/BDFDsEXElhiyWMlwqdvLQMcBTfbsRNiRUQeTllg0kFkWEo
0FoCLnQYgbHBjpWpKDLdJKuUdmGkDDKGzNGFESTQgRSGWhxiy5sYAZXxsu9l
f9w9+eTJ89xzufs9nqnZsWkbCIKIxsVEgsXc/EliIxN5JEFHRObsh9XeU0ur
3iSR1XOeewHuX9LKmTzZ/bG+A/aoKz2zBT53utY8B3MO9+g94WpZdz4nAHEP
pd0PU9PiNgHMozY7ymD+GV1oBDzINs9r4bFibn0UHGZj+8ZTWL3GLqPgiW9Y
4uDtqP99tFkCn9xnWJLDDnrirzzY0neg6Sd4wSdh+gs4q1Xw92O410/ySgt3
H0pwdvQhCeHdKN0oTIvcin1h8fwIxQ4kifzfHNZD4QXt6ZVouHp873Q47Cbx
Uqng/tQtT0Twbmthrgk2t6dR78JvSncbtgnwvNdLTIwtZ9ftE2GaZb2yD+aM
6L8sh+NEZeNHYPPQckszTHXIaSls0iijjLCZfjZ3lalXdymewGMsnzoj3FVi
X7UIcx7c/oPtizpP+p91uLNHpoiH/Zu43E1CfIf7An4NXOwx5+sAcwTDMSY4
ZHGo3RWe/9qZ2MonCedlC8sHHrtRkBwOu+ZRdeHwhxJvx2PwvcqclDi41hp2
9BPYy6mgOBdWB3Vy8uDyKotGBS/0/ahivJdLc1tgXlCFbQ5MDj+cHIb5V2+u
ZsOZrvVhL2DTZ3YWGRzma1fpHIR6UYDkPMzy+9PCh6vTYgauwWu+yfMimNzl
stkAGz1OrL4Ph6imBC/h1mQXpyh45pzaGvI23mfXsfqjTD59TKWAo+ySL1Mw
XZXX/QtstNcOJMM8f5e5FTj2Wjo7A85o9BnYuYMkdJkbm+UwFX9JkA4fvCNU
ljH9rhzY/jm8Fld18TpsKV3M/BaOi5uV/ApLLyhTGuB5G0HbfVjpFDPaCAe+
1/1snZlP2tPL5HU5STu83sH/O8S7rYZzZyqKImBlUo1IA2fMjIhTYGpnbUAL
3GAIlSjgMOJWbi/s5nhWWA7XZutPPYWLT4qNl2C1QmVw98Mcy5nON+DWW0I1
BZsOHhb/AJORRXdr4I4TTmQjLGON2TyA3Qv9TE0w7/mIxgPntFXZZW2Du6Ij
0z6CZZrvXxiY/jYXK2jYonu5fg/Olyvu/AzPvIpOmoUHKyIERljKYTexgnEO
jleqzbCdeYMtH77ZrqIfw7rChL5IuH/rw9IJOPP47J4smI7/bmEctu8/cqoC
vsxOlD5i+ufJyzVMvkEfOAVvK5o5ZIBrN03mrMDhzZxHI7DlLRd3LrMHvooU
WGFysqTgAzj1tQ7Dc2ae4Fj+p/D1zsLBZXgi8d/odtiO2Wsh5P97LpD8D+yo
xO8=
       "]], 
      PolygonBox[{{17.46093276775842, 12.884110639798687`}, {
       16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 
       11.808600848362362`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, 
       ImageScaled[{1, 0}]], LineBox[CompressedData["
1:eJwd1AtU01UcB/B/KhzqjEUwZQHqcCR6xAHCZASzPy8P6BB5KDMWj4GwPDTm
mCeqJTjDR8DZEptTqJbHYEDJI8KlOAgJE5DHjsk6gQ6O4ABD4pgMG9h33XPu
+Z/Pvfd/f/f+7v9/vYUFSYdXEQSRgGp/EraXKNtI4v/iQxK6ap+c1/xIwszV
Z7QzYcYdJR229lHjPoWDWZTe7fBnl/c07IZTxvrFPFjHiUzzhPP1ntpj8Lz2
jZ9sm0jifJiCUQdzOkbEMzCZ6Jw2aZ//V+HlCbidRtP4bieJ76uVFLtVCROp
+XB0KfPjR3Awt/h2Iywv+zd5Etb4ZZFz8JrFgxwzTJsUd/mwEGcptmIYFjiJ
+Ikw7UTYUpt9/Dr1oUJYcrG7WQk3NTNLyuD51VK1AA73cB2ugoNLLW4MWHTw
Fr8W9omaMo55kwTll/ruZjg6SMq9BOcPBD02wHrD1PQh+Bl5g22EGfHjKwy4
nx+SOAdT7jleWWAgT3/262j+JOESZvliCNareJEx8PmOvMHrsPnzpcbjsOBB
0XeNcOfRUbYBNm1Y6GuAjYYQKhGA9Up6++vhFtrLtQxY5MfS1MIzA7LNXNir
yRT9FSzJZtUcgG0pb9lOw1pP2rgI/s025ZwLr1zYVvQh3PpXi40D23R3S0/C
uvSOew5w0Yu0RSVsjToaWrsR/exBh29gOvlBSgJME+qtTbDFfSLRAVZn7Kns
tvffWBVxawNJUJNOlZnggI/a/1bAKqG74AlsOkF5FAFbh1deJwKRL+ZtHgFT
yisMbrBqcaTKsB7rKpTu94WtTilZcjh3puH623BThEgUCgucVYp9cOwOt0Cr
F9rrmAvZsMiQPGuAhVrubjnMkdw/XQkb2UkhF+zxuB6NMjj9SWZ5CzyU/2pb
KmyNfpbaB3cWVChZMG+8uvghLHEsZT71xP6uRQvnYC3flq+GVc3LP1phjTWz
3xfmP8X57EDevpyeq/fAuPeNckc4oGq2ZivcvdHgSYU1yi63q29iPn9TDx2m
+271joA9etijvrAuYX3GNJ0k6i13XMNhy9nCsHr43c36vANw06l3dCfhcouY
WQjHDgiCpTBVn/dPJdwZWasqgMVnxja1waYr/pJCuH3nJ10jMPF7XY0M7lmT
vfwcdmGUZB6BOTFkvGsQSZR4/cCLh6+KZI1b7Hbae44O7zTc7wmF558fl/a6
k0RO3M3HMbA+iqXIgaWjRso+eMvXWbLZdcin1662ZJj8o0qeC7eqj1zjw6rD
Y+89WIv/OGH1i3TY3DoUI4DTja67RDBnMO6ShYb3qBcfHoMl88vms/C5Bv+6
M/D+msnJKJin+PZnLezCVoa7w+aIieKbcOfCoN8r8GjgzN0xe/zSvc42N3zv
9vsNdrLfbzTyP8Yez1w=
       "]], 
      PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, {
       17.71700652762421, 7.423177872040263}, {17.204859007892626`, 
       6.808600848362362}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, 
       ImageScaled[{0, 0}]], LineBox[CompressedData["
1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F
dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30
4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x
bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7
7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM
Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC
TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy
3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY
eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF
WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+
friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15
7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV
2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F
rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX
/pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4
p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+
XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb
aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b
lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv
UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh
0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ
L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H
YYABMg==
       "]], InsetBox[
       TagBox[
        StyleBox[
         TagBox["Z",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.999999999999995, 9.0548}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      {PointSize[0.04], PointBox[{6., 10.}], 
       PointBox[{13.99999999999999, 10.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T1", " ", "P1", " ", "N8"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 
       14.000000000003638`}}], 
      PolygonBox[{{5.597022314125994, 14.440297768587394`}, {
       4.363176198265607, 14.1616873553286}, {4.442779173482406, 
       14.957717107496592`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
       9.999999999988404, 6.}}], 
      PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 
       5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, 
       ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJwt1Q841HccB/BfWbiunrT8q2TknMv94VKccvySKbbLrRI1bdfJg+hw2mYS
12NEdU2U6Ir+IInOpJI1rm3+LFGz4rS5ypKrFkKSh2vv357d89z9nte9P9/f
9/P5/X7P87OXxm2MmEkQRAS+1FFhjB+CQRL/fTgk8U3hvEwP2Mw4b7qHTRK8
CzbZMljjMGJ+A37rrTleAou98pvOwr76uuAeeMI3JvYEzDhlc3KOI0kU9H6g
U8EPb/4t8YaTnru7qGH+F44PZLBkqKjmLvzzk+mAIrjaKpo9ySYVPpJ613ZY
/zTIxRn9uB2U06dg0x1k5TYOqdhcWradzSSJrCMP9mfCxZ9eOfU55W0ZNhdh
ofK1vRLOoTOJRvjSOic7DaxZG8Nvhu9HHjg9BhOHnyQ0wG3Rb+XOTiShaBav
o9ZbWVSLd8BRRFl7NvxAUNVSAGtPd4fuhM0rOrbco3L509dC9LeLviTZhEUS
rbYxDYvhceed9UI4dFy3cya8qjrwRznMcmxOe4P5bhd4+ZdR9VWlrm8x/xRf
J9bCpqOKRyaov5TsZzBdhusnUPKY2K/ko46TAtguQukQBG/sX5QXCYcyR/an
on4N3S0yHxYkWX6iRs4/Fq5qgrXjsuC/YHVDYfkbWNLUpie4pELKshpkOmN/
PzfRQvhWoEvZVpjMTljtwCUJGj38kRJmJc5daot8g64i+Rc4yT7FnY68keHg
MglbLzgofoX9a6Mv5fIxR3mS6Fgr9suPT2RGw4qvO8bOwuz5kxFnYP1mjyL0
qxgdud7VBcevW7s1HOtThlSWc3BkDckmNyF3rz434APXPaINboSLbjp7yGGN
SDcooeznZHceHp5eNJwCe/gMDXRyqOfXRlgCS4/TxmegT72juA3/K/IaB1tc
4XjR4VojzNOcsbzvSzinM7iND3ubdGu+h88cVnmEwrszz7dqYFZqMC0R7v9h
1epR2HruVXUajpx/Ql2ceHj+TTv898GxQscjYbCgKbsmFvV1tGcWefBEbm26
GJ5QtOy4Dedwgys4qO/6rPXNDBfcj84UwyzkhvxwkSflcxeqnqBfvYXXyziY
/Nao6Fc4JHMwshS2s3B8WIM554gCU3tgV69aS9xvzdHIRpqxK/LiDEk9fHdq
6WlbWLz396k/OCQpY2wpcIdJp4C0d9T9aQ/jbIAl5nELnLikRnskNj8C1goz
hkPQn8lltfU+OKo/7EUmckOIfOQYbCbWz1Ujd+guC62C14vpHne4JFm//nxc
M7V/76jyTzh4VZf/Y1hQyOqFFV62Y12TcE6M3bV2rJep78+05KP+0DzJFZz/
svGzk3zYNHckNwfrLQbuSEUw2W0w3oX62c8PWEfDLOeWfj/U+8qFKd/BhNk7
LhPn3+PVGlIMZ0k4Nh/C74aWZNyAxarSCjyv5OIlHSOd8HDNCg9zrFcdml/2
Epbs0W5lU/0WsOuNluN5yZr9egN8PdF1+2J4Qucj3Qt7jh29vRy+ZzFtXIl+
fntv5RcIx/MLb1DzzghbOFtKrR+gJczikQrLLY83JVN5paiHwSPJhlT7gDyY
RZN1ufNITe/6wOlKWNB4qs8TOZm9cncLLB4M9OIhN/E+lNYHE4wWnQU8y1Nj
YoBNm9b4j2E/lXZb20I35LuDjDsw7+aA3qyVcEGY1Kcc9p1Ify+mcoPKKAv1
U3dejcfArTVBPyVQ9VHNH2fCj/vCLkZhngs15V3FlK9yv5KhPvJFaUUdnGQY
pqfDYbcYPffgOk+zwhJcv2v7bJR6WLHsRONd5EbUe2PF/+8PHvkvEMBcQw==

       "]], 
      PolygonBox[{{15.597022314125994`, 14.559702231412594`}, {
       14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 
       14.0422828925034}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, 
       ImageScaled[{Rational[1, 2], 0}]], LineBox[CompressedData["
1:eJwt1QtMU1cYB/A7FZTnykqBRlHwASLPUlQQHQchDBAtFhRRwPJWHqNDURRw
qOs2deUtTkGKiI/MIlWxihNXh4JsBHkPRQYIBWaYFEWKAmH/m6xJc/PL/zvf
/c45TWoekcSPnkdRVDS+9JOansNnBaFU9NOYZPYmpQ7ZrSSUUMwUS+DNeua8
MJjaJ9rmA0fXPpNmwc27zrlrwiZznjsUsMxjw9IeI5IZus/38HtY9d2NMy1w
oteQ4epVhOoTDd4agJdok/lhsGLxuBMD691yfxkrgB0aHlzwh9texe9vpOt3
uX1ebEyoFCfm2HwLQvlXzyaNIA8fbZjdAMuqJ49Zm5BM9lST2TcwSR0zCTEh
VLiH99wVWKjp5nsArjeoj3kBqxZGmSfCdkfIdh1LvP+HZAsfrC+RPFG6wozN
nP3ayKfT/j4QT+drHFfew/u0yy3jLsACr+65IMxTaGDr0wDLeu/oqLGf3mxO
wRQsrNEUlxgRyjG16PHq1YQy65yuC0L+qktpsxtm1LD7rZDP6/5NR0zbI0eP
jXyL+ErsY1iw2U7LAm45JF+ihoWLgxZsgxtiVD22VoTKSVKpT2P98Gn+l9Ew
Mf0ppB25u+mLmmJYWCuyM8N8w1FNXW0wY22tWRTm73x7zVh7Dc7TOfBlIfK3
rwtN3WCG9zj7Fuxcwa5KpnMT4cWbqM/Yuq61HDYbdbudBfdPnyjpgBUlA6GB
tD3vxGtYY32a1IS+/2slI5VOsEApXVaBeXYKYtSRcM7VhLhAuN4upC0f7vsY
w18IP+1Y/vQJTH4/9f45C+enJV+lpvNcsftdeKj9rpa1DfrbaXTdh/eMZ1kK
YP+X1z60swi1O5bdfhamJqxcZuCZ5dfX/0nb16veFP3TNV1q5mBBj8+0Lc7r
WGFZJNcW909dfmQDj8g682LgvmXrOMthjYku6XmYZHZPs+A3yt6ORtj/1Ng7
bTi72HURZYf1rtfLKVgd6bWRS3ujfuok3u9w6OqRGLi00UTzX8zLGdKtOw83
38xVDMJVxWS2EZbNLWl7ifrXv9rXzNHmKwvq4dCVzy9y7GEfnaEyeMh3fWkE
rPi4oicB3tNxODifzqW9Szl0P6u4S09oy49+TyHnBSSuUMNC+dqUEUOi0O8s
LWA5YK4of+lbQ0KCQ+15DrC/JzfHgEXIaMVAwRa4Wc/C1hcOeL5gVSwsVLrF
ZsGVlwflJ+DSo/rKVlj80HNBCSwTsSp16ft1+dByH1YZ8350NCIKz63fTrbC
1MmUqU1GhOSFHA8bhRlv9D9ZI5dYJehrcPB7GJe5zaJfhOZxc1OYUSHSkbOI
4ufstXVOMJlsKglFvndgv7MfLPRM5s9i/vJK0weRcKl22gEJ9rfVI+NMGtx3
K11jG3JDGXcgn67f0p5tYEioiHXDw1LYLFjMVjFJZkJY2Y06uv6DS/Iokyge
Bd626of9GzV7NFCvtnD5agYWnKuzdEb/f74I7zR2xDwpM2vS0T+xt6mIS/tg
zuVnhiRzSlSxgwcLDvr5MTGvDT+jNg5W6SlYfFjrXnWFCKZOFwWl476MrL4e
lcDN9Xv/OoP7eiB/F18N9/3BF2WgXrTI3b4VZpDoF9uRS3hFvDdwpr3hU13Y
rzX742dc7G/jtOtdzHPp+p1YNpzjTsIDMY8woqrbAWa8q0+ewP7Gc/MKvWEq
YzJPwiQUp0zVLKDzgNtnw3AeoRNhVUdgWcunifVMQsa9hDvzaSuqdO3hyCRr
eQUsCOiv8sD65nbLh89ov/b2SoYXBm/fNAg3s3W0qtBvlv7f4P7//8Ek/wEs
SGzt
       "]], 
      PolygonBox[{{14.402977685874006`, 5.559702231412599}, {
       15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 
       5.0422828925034056`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, 
       ImageScaled[{Rational[1, 2], 0}]], 
      LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["F",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.3048, 9.999999999999995}, 
       ImageScaled[{1, Rational[1, 2]}]], 
      {PointSize[0.04], PointBox[{10., 13.99999999999999}], 
       PointBox[{10., 6.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T2", " ", "G1", " ", "N9"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["e",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {24., 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["e",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {28.5, 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[RightArrow]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {33., 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["W",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {37.5, 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["W",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {42., 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
  AspectRatio->1.0999999999999999`,
  ImageSize->{288, 288},
  PlotRange->{{0, 66}, {0, 72.6}}]], "Print",
 CellChangeTimes->{
  3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 
   3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 
   3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 
   3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 
   3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 
   3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 
   3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 
   3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 
   3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 
   3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 
   3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 
   3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 
   3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 
   3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 
   3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 
   3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 
   3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 
   3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 
   3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 
   3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 
   3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 
   3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 
   3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 
   3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 
   3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 
   3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 
   3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 
   3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 
   3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 
   3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 
   3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 
   3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 
   3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 
   3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, {
   3.7517828908677883`*^9, 3.751782910533724*^9}, {3.7574262623795033`*^9, 
   3.7574262838806543`*^9}, 3.7578497822294292`*^9}],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 
       14.000000000003638`}}], 
      PolygonBox[{{5.597022314125994, 14.440297768587394`}, {
       4.363176198265607, 14.1616873553286}, {4.442779173482406, 
       14.957717107496592`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
       9.999999999988404, 6.}}], 
      PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 
       5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, 
       ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJwt1Q841HccB/BfWbiunrT8q2TknMv94VKccvySKbbLrRI1bdfJg+hw2mYS
12NEdU2U6Ir+IInOpJI1rm3+LFGz4rS5ypKrFkKSh2vv357d89z9nte9P9/f
9/P5/X7P87OXxm2MmEkQRAS+1FFhjB+CQRL/fTgk8U3hvEwP2Mw4b7qHTRK8
CzbZMljjMGJ+A37rrTleAou98pvOwr76uuAeeMI3JvYEzDhlc3KOI0kU9H6g
U8EPb/4t8YaTnru7qGH+F44PZLBkqKjmLvzzk+mAIrjaKpo9ySYVPpJ613ZY
/zTIxRn9uB2U06dg0x1k5TYOqdhcWradzSSJrCMP9mfCxZ9eOfU55W0ZNhdh
ofK1vRLOoTOJRvjSOic7DaxZG8Nvhu9HHjg9BhOHnyQ0wG3Rb+XOTiShaBav
o9ZbWVSLd8BRRFl7NvxAUNVSAGtPd4fuhM0rOrbco3L509dC9LeLviTZhEUS
rbYxDYvhceed9UI4dFy3cya8qjrwRznMcmxOe4P5bhd4+ZdR9VWlrm8x/xRf
J9bCpqOKRyaov5TsZzBdhusnUPKY2K/ko46TAtguQukQBG/sX5QXCYcyR/an
on4N3S0yHxYkWX6iRs4/Fq5qgrXjsuC/YHVDYfkbWNLUpie4pELKshpkOmN/
PzfRQvhWoEvZVpjMTljtwCUJGj38kRJmJc5daot8g64i+Rc4yT7FnY68keHg
MglbLzgofoX9a6Mv5fIxR3mS6Fgr9suPT2RGw4qvO8bOwuz5kxFnYP1mjyL0
qxgdud7VBcevW7s1HOtThlSWc3BkDckmNyF3rz434APXPaINboSLbjp7yGGN
SDcooeznZHceHp5eNJwCe/gMDXRyqOfXRlgCS4/TxmegT72juA3/K/IaB1tc
4XjR4VojzNOcsbzvSzinM7iND3ubdGu+h88cVnmEwrszz7dqYFZqMC0R7v9h
1epR2HruVXUajpx/Ql2ceHj+TTv898GxQscjYbCgKbsmFvV1tGcWefBEbm26
GJ5QtOy4Dedwgys4qO/6rPXNDBfcj84UwyzkhvxwkSflcxeqnqBfvYXXyziY
/Nao6Fc4JHMwshS2s3B8WIM554gCU3tgV69aS9xvzdHIRpqxK/LiDEk9fHdq
6WlbWLz396k/OCQpY2wpcIdJp4C0d9T9aQ/jbIAl5nELnLikRnskNj8C1goz
hkPQn8lltfU+OKo/7EUmckOIfOQYbCbWz1Ujd+guC62C14vpHne4JFm//nxc
M7V/76jyTzh4VZf/Y1hQyOqFFV62Y12TcE6M3bV2rJep78+05KP+0DzJFZz/
svGzk3zYNHckNwfrLQbuSEUw2W0w3oX62c8PWEfDLOeWfj/U+8qFKd/BhNk7
LhPn3+PVGlIMZ0k4Nh/C74aWZNyAxarSCjyv5OIlHSOd8HDNCg9zrFcdml/2
Epbs0W5lU/0WsOuNluN5yZr9egN8PdF1+2J4Qucj3Qt7jh29vRy+ZzFtXIl+
fntv5RcIx/MLb1DzzghbOFtKrR+gJczikQrLLY83JVN5paiHwSPJhlT7gDyY
RZN1ufNITe/6wOlKWNB4qs8TOZm9cncLLB4M9OIhN/E+lNYHE4wWnQU8y1Nj
YoBNm9b4j2E/lXZb20I35LuDjDsw7+aA3qyVcEGY1Kcc9p1Ify+mcoPKKAv1
U3dejcfArTVBPyVQ9VHNH2fCj/vCLkZhngs15V3FlK9yv5KhPvJFaUUdnGQY
pqfDYbcYPffgOk+zwhJcv2v7bJR6WLHsRONd5EbUe2PF/+8PHvkvEMBcQw==

       "]], 
      PolygonBox[{{15.597022314125994`, 14.559702231412594`}, {
       14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 
       14.0422828925034}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, 
       ImageScaled[{Rational[1, 2], 0}]], LineBox[CompressedData["
1:eJwt1QtMU1cYB/A7FZTnykqBRlHwASLPUlQQHQchDBAtFhRRwPJWHqNDURRw
qOs2deUtTkGKiI/MIlWxihNXh4JsBHkPRQYIBWaYFEWKAmH/m6xJc/PL/zvf
/c45TWoekcSPnkdRVDS+9JOansNnBaFU9NOYZPYmpQ7ZrSSUUMwUS+DNeua8
MJjaJ9rmA0fXPpNmwc27zrlrwiZznjsUsMxjw9IeI5IZus/38HtY9d2NMy1w
oteQ4epVhOoTDd4agJdok/lhsGLxuBMD691yfxkrgB0aHlzwh9texe9vpOt3
uX1ebEyoFCfm2HwLQvlXzyaNIA8fbZjdAMuqJ49Zm5BM9lST2TcwSR0zCTEh
VLiH99wVWKjp5nsArjeoj3kBqxZGmSfCdkfIdh1LvP+HZAsfrC+RPFG6wozN
nP3ayKfT/j4QT+drHFfew/u0yy3jLsACr+65IMxTaGDr0wDLeu/oqLGf3mxO
wRQsrNEUlxgRyjG16PHq1YQy65yuC0L+qktpsxtm1LD7rZDP6/5NR0zbI0eP
jXyL+ErsY1iw2U7LAm45JF+ihoWLgxZsgxtiVD22VoTKSVKpT2P98Gn+l9Ew
Mf0ppB25u+mLmmJYWCuyM8N8w1FNXW0wY22tWRTm73x7zVh7Dc7TOfBlIfK3
rwtN3WCG9zj7Fuxcwa5KpnMT4cWbqM/Yuq61HDYbdbudBfdPnyjpgBUlA6GB
tD3vxGtYY32a1IS+/2slI5VOsEApXVaBeXYKYtSRcM7VhLhAuN4upC0f7vsY
w18IP+1Y/vQJTH4/9f45C+enJV+lpvNcsftdeKj9rpa1DfrbaXTdh/eMZ1kK
YP+X1z60swi1O5bdfhamJqxcZuCZ5dfX/0nb16veFP3TNV1q5mBBj8+0Lc7r
WGFZJNcW909dfmQDj8g682LgvmXrOMthjYku6XmYZHZPs+A3yt6ORtj/1Ng7
bTi72HURZYf1rtfLKVgd6bWRS3ujfuok3u9w6OqRGLi00UTzX8zLGdKtOw83
38xVDMJVxWS2EZbNLWl7ifrXv9rXzNHmKwvq4dCVzy9y7GEfnaEyeMh3fWkE
rPi4oicB3tNxODifzqW9Szl0P6u4S09oy49+TyHnBSSuUMNC+dqUEUOi0O8s
LWA5YK4of+lbQ0KCQ+15DrC/JzfHgEXIaMVAwRa4Wc/C1hcOeL5gVSwsVLrF
ZsGVlwflJ+DSo/rKVlj80HNBCSwTsSp16ft1+dByH1YZ8350NCIKz63fTrbC
1MmUqU1GhOSFHA8bhRlv9D9ZI5dYJehrcPB7GJe5zaJfhOZxc1OYUSHSkbOI
4ufstXVOMJlsKglFvndgv7MfLPRM5s9i/vJK0weRcKl22gEJ9rfVI+NMGtx3
K11jG3JDGXcgn67f0p5tYEioiHXDw1LYLFjMVjFJZkJY2Y06uv6DS/Iokyge
Bd626of9GzV7NFCvtnD5agYWnKuzdEb/f74I7zR2xDwpM2vS0T+xt6mIS/tg
zuVnhiRzSlSxgwcLDvr5MTGvDT+jNg5W6SlYfFjrXnWFCKZOFwWl476MrL4e
lcDN9Xv/OoP7eiB/F18N9/3BF2WgXrTI3b4VZpDoF9uRS3hFvDdwpr3hU13Y
rzX742dc7G/jtOtdzHPp+p1YNpzjTsIDMY8woqrbAWa8q0+ewP7Gc/MKvWEq
YzJPwiQUp0zVLKDzgNtnw3AeoRNhVUdgWcunifVMQsa9hDvzaSuqdO3hyCRr
eQUsCOiv8sD65nbLh89ov/b2SoYXBm/fNAg3s3W0qtBvlv7f4P7//8Ek/wEs
SGzt
       "]], 
      PolygonBox[{{14.402977685874006`, 5.559702231412599}, {
       15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 
       5.0422828925034056`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, 
       ImageScaled[{Rational[1, 2], 0}]], 
      LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], 
      PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4,
        10.599999999999994`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          SubscriptBox["\[Nu]", "e"],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.0548, 9.999999999999995}, 
       ImageScaled[{1, Rational[1, 2]}]], 
      {PointSize[0.04], PointBox[{10., 13.99999999999999}], 
       PointBox[{10., 6.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T2", " ", "C1", " ", "N10"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     {Thickness[0.005], 
      LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 
       14.000000000003638`}}], 
      PolygonBox[{{5.597022314125994, 14.440297768587394`}, {
       4.363176198265607, 14.1616873553286}, {4.442779173482406, 
       14.957717107496592`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, 
       ImageScaled[{Rational[1, 2], 1}]], 
      LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
       9.999999999988404, 6.}}], 
      PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 
       5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], 
      InsetBox[
       TagBox[
        StyleBox[
         TagBox["e",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, 
       ImageScaled[{Rational[1, 2], 1}]], LineBox[CompressedData["
1:eJwt1Q841HccB/BfWbiunrT8q2TknMv94VKccvySKbbLrRI1bdfJg+hw2mYS
12NEdU2U6Ir+IInOpJI1rm3+LFGz4rS5ypKrFkKSh2vv357d89z9nte9P9/f
9/P5/X7P87OXxm2MmEkQRAS+1FFhjB+CQRL/fTgk8U3hvEwP2Mw4b7qHTRK8
CzbZMljjMGJ+A37rrTleAou98pvOwr76uuAeeMI3JvYEzDhlc3KOI0kU9H6g
U8EPb/4t8YaTnru7qGH+F44PZLBkqKjmLvzzk+mAIrjaKpo9ySYVPpJ613ZY
/zTIxRn9uB2U06dg0x1k5TYOqdhcWradzSSJrCMP9mfCxZ9eOfU55W0ZNhdh
ofK1vRLOoTOJRvjSOic7DaxZG8Nvhu9HHjg9BhOHnyQ0wG3Rb+XOTiShaBav
o9ZbWVSLd8BRRFl7NvxAUNVSAGtPd4fuhM0rOrbco3L509dC9LeLviTZhEUS
rbYxDYvhceed9UI4dFy3cya8qjrwRznMcmxOe4P5bhd4+ZdR9VWlrm8x/xRf
J9bCpqOKRyaov5TsZzBdhusnUPKY2K/ko46TAtguQukQBG/sX5QXCYcyR/an
on4N3S0yHxYkWX6iRs4/Fq5qgrXjsuC/YHVDYfkbWNLUpie4pELKshpkOmN/
PzfRQvhWoEvZVpjMTljtwCUJGj38kRJmJc5daot8g64i+Rc4yT7FnY68keHg
MglbLzgofoX9a6Mv5fIxR3mS6Fgr9suPT2RGw4qvO8bOwuz5kxFnYP1mjyL0
qxgdud7VBcevW7s1HOtThlSWc3BkDckmNyF3rz434APXPaINboSLbjp7yGGN
SDcooeznZHceHp5eNJwCe/gMDXRyqOfXRlgCS4/TxmegT72juA3/K/IaB1tc
4XjR4VojzNOcsbzvSzinM7iND3ubdGu+h88cVnmEwrszz7dqYFZqMC0R7v9h
1epR2HruVXUajpx/Ql2ceHj+TTv898GxQscjYbCgKbsmFvV1tGcWefBEbm26
GJ5QtOy4Dedwgys4qO/6rPXNDBfcj84UwyzkhvxwkSflcxeqnqBfvYXXyziY
/Nao6Fc4JHMwshS2s3B8WIM554gCU3tgV69aS9xvzdHIRpqxK/LiDEk9fHdq
6WlbWLz396k/OCQpY2wpcIdJp4C0d9T9aQ/jbIAl5nELnLikRnskNj8C1goz
hkPQn8lltfU+OKo/7EUmckOIfOQYbCbWz1Ujd+guC62C14vpHne4JFm//nxc
M7V/76jyTzh4VZf/Y1hQyOqFFV62Y12TcE6M3bV2rJep78+05KP+0DzJFZz/
svGzk3zYNHckNwfrLQbuSEUw2W0w3oX62c8PWEfDLOeWfj/U+8qFKd/BhNk7
LhPn3+PVGlIMZ0k4Nh/C74aWZNyAxarSCjyv5OIlHSOd8HDNCg9zrFcdml/2
Epbs0W5lU/0WsOuNluN5yZr9egN8PdF1+2J4Qucj3Qt7jh29vRy+ZzFtXIl+
fntv5RcIx/MLb1DzzghbOFtKrR+gJczikQrLLY83JVN5paiHwSPJhlT7gDyY
RZN1ufNITe/6wOlKWNB4qs8TOZm9cncLLB4M9OIhN/E+lNYHE4wWnQU8y1Nj
YoBNm9b4j2E/lXZb20I35LuDjDsw7+aA3qyVcEGY1Kcc9p1Ify+mcoPKKAv1
U3dejcfArTVBPyVQ9VHNH2fCj/vCLkZhngs15V3FlK9yv5KhPvJFaUUdnGQY
pqfDYbcYPffgOk+zwhJcv2v7bJR6WLHsRONd5EbUe2PF/+8PHvkvEMBcQw==

       "]], 
      PolygonBox[{{15.597022314125994`, 14.559702231412594`}, {
       14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 
       14.0422828925034}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, 
       ImageScaled[{Rational[1, 2], 0}]], LineBox[CompressedData["
1:eJwt1QtMU1cYB/A7FZTnykqBRlHwASLPUlQQHQchDBAtFhRRwPJWHqNDURRw
qOs2deUtTkGKiI/MIlWxihNXh4JsBHkPRQYIBWaYFEWKAmH/m6xJc/PL/zvf
/c45TWoekcSPnkdRVDS+9JOansNnBaFU9NOYZPYmpQ7ZrSSUUMwUS+DNeua8
MJjaJ9rmA0fXPpNmwc27zrlrwiZznjsUsMxjw9IeI5IZus/38HtY9d2NMy1w
oteQ4epVhOoTDd4agJdok/lhsGLxuBMD691yfxkrgB0aHlzwh9texe9vpOt3
uX1ebEyoFCfm2HwLQvlXzyaNIA8fbZjdAMuqJ49Zm5BM9lST2TcwSR0zCTEh
VLiH99wVWKjp5nsArjeoj3kBqxZGmSfCdkfIdh1LvP+HZAsfrC+RPFG6wozN
nP3ayKfT/j4QT+drHFfew/u0yy3jLsACr+65IMxTaGDr0wDLeu/oqLGf3mxO
wRQsrNEUlxgRyjG16PHq1YQy65yuC0L+qktpsxtm1LD7rZDP6/5NR0zbI0eP
jXyL+ErsY1iw2U7LAm45JF+ihoWLgxZsgxtiVD22VoTKSVKpT2P98Gn+l9Ew
Mf0ppB25u+mLmmJYWCuyM8N8w1FNXW0wY22tWRTm73x7zVh7Dc7TOfBlIfK3
rwtN3WCG9zj7Fuxcwa5KpnMT4cWbqM/Yuq61HDYbdbudBfdPnyjpgBUlA6GB
tD3vxGtYY32a1IS+/2slI5VOsEApXVaBeXYKYtSRcM7VhLhAuN4upC0f7vsY
w18IP+1Y/vQJTH4/9f45C+enJV+lpvNcsftdeKj9rpa1DfrbaXTdh/eMZ1kK
YP+X1z60swi1O5bdfhamJqxcZuCZ5dfX/0nb16veFP3TNV1q5mBBj8+0Lc7r
WGFZJNcW909dfmQDj8g682LgvmXrOMthjYku6XmYZHZPs+A3yt6ORtj/1Ng7
bTi72HURZYf1rtfLKVgd6bWRS3ujfuok3u9w6OqRGLi00UTzX8zLGdKtOw83
38xVDMJVxWS2EZbNLWl7ifrXv9rXzNHmKwvq4dCVzy9y7GEfnaEyeMh3fWkE
rPi4oicB3tNxODifzqW9Szl0P6u4S09oy49+TyHnBSSuUMNC+dqUEUOi0O8s
LWA5YK4of+lbQ0KCQ+15DrC/JzfHgEXIaMVAwRa4Wc/C1hcOeL5gVSwsVLrF
ZsGVlwflJ+DSo/rKVlj80HNBCSwTsSp16ft1+dByH1YZ8350NCIKz63fTrbC
1MmUqU1GhOSFHA8bhRlv9D9ZI5dYJehrcPB7GJe5zaJfhOZxc1OYUSHSkbOI
4ufstXVOMJlsKglFvndgv7MfLPRM5s9i/vJK0weRcKl22gEJ9rfVI+NMGtx3
K11jG3JDGXcgn67f0p5tYEioiHXDw1LYLFjMVjFJZkJY2Y06uv6DS/Iokyge
Bd626of9GzV7NFCvtnD5agYWnKuzdEb/f74I7zR2xDwpM2vS0T+xt6mIS/tg
zuVnhiRzSlSxgwcLDvr5MTGvDT+jNg5W6SlYfFjrXnWFCKZOFwWl476MrL4e
lcDN9Xv/OoP7eiB/F18N9/3BF2WgXrTI3b4VZpDoF9uRS3hFvDdwpr3hU13Y
rzX742dc7G/jtOtdzHPp+p1YNpzjTsIDMY8woqrbAWa8q0+ewP7Gc/MKvWEq
YzJPwiQUp0zVLKDzgNtnw3AeoRNhVUdgWcunifVMQsa9hDvzaSuqdO3hyCRr
eQUsCOiv8sD65nbLh89ov/b2SoYXBm/fNAg3s3W0qtBvlv7f4P7//8Ek/wEs
SGzt
       "]], 
      PolygonBox[{{14.402977685874006`, 5.559702231412599}, {
       15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 
       5.0422828925034056`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox["W",
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, 
       ImageScaled[{Rational[1, 2], 0}]], 
      LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], 
      PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4,
        10.599999999999994`}}], InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          SubscriptBox["\[Nu]", "e"],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->9.996694214876033],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         9.996694214876033]& ], {9.0548, 9.999999999999995}, 
       ImageScaled[{1, Rational[1, 2]}]], 
      {PointSize[0.04], PointBox[{10., 13.99999999999999}], 
       PointBox[{10., 6.}]}, InsetBox[
       TagBox[
        StyleBox[
         TagBox[
          RowBox[{"T2", " ", "P1", " ", "N11"}],
          DisplayForm],
         FontFamily->"Helvetica",
         FontSize->7.997355371900827],
        StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
         7.997355371900827]& ], {10., -0.5}, 
       ImageScaled[{Rational[1, 2], 0}]]},
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["e",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {24., 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["e",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {28.5, 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[RightArrow]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {33., 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["W",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {37.5, 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[
    TagBox[
     StyleBox[
      TagBox["W",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {42., 69.96}, 
    ImageScaled[{Rational[1, 2], Rational[1, 2]}]]},
  AspectRatio->1.0999999999999999`,
  ImageSize->{288, 288},
  PlotRange->{{0, 66}, {0, 72.6}}]], "Print",
 CellChangeTimes->{
  3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 
   3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 
   3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 
   3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 
   3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 
   3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 
   3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 
   3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 
   3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 
   3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 
   3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 
   3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 
   3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 
   3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 
   3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 
   3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 
   3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 
   3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 
   3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 
   3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 
   3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 
   3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 
   3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 
   3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 
   3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 
   3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 
   3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 
   3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 
   3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 
   3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 
   3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 
   3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 
   3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 
   3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, {
   3.7517828908677883`*^9, 3.751782910533724*^9}, {3.7574262623795033`*^9, 
   3.7574262838806543`*^9}, 3.757849782281026*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynArtsGraphics", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\<\"e\"\>", ",", "\<\"e\"\>"}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\<\"W\"\>", ",", "\<\"W\"\>"}], "}"}]}], "]"}], "[", 
  RowBox[{
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G1 N1\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 G1 N1", "]"],
         Editable->False], 
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N2\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 C1 N2", "]"],
         Editable->False], 
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N3\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 P1 N3", "]"],
         Editable->False]},
       {
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G2 N4\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 G2 N4", "]"],
         Editable->False], 
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N5\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 C1 N5", "]"],
         Editable->False], 
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N6\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 P1 N6", "]"],
         Editable->False]},
       {
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C2 N7\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 C2 N7", "]"],
         Editable->False], 
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N8\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T1 P1 N8", "]"],
         Editable->False], 
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 G1 N9\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T2 G1 N9", "]"],
         Editable->False]}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]], ",", 
   TagBox[
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 C1 N10\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T2 C1 N10", "]"],
         Editable->False], 
        InterpretationBox[
         RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 P1 N11\"\>", 
          "\[InvisibleSpace]", "\<\"]\"\>"}],
         SequenceForm["[", "T2 P1 N11", "]"],
         Editable->False], "Null"},
       {"Null", "Null", "Null"},
       {"Null", "Null", "Null"}
      },
      GridBoxAlignment->{
       "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, 
        "Rows" -> {{Baseline}}, "RowsIndexed" -> {}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.7]}, 
          Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
    Function[BoxForm`e$, 
     MatrixForm[BoxForm`e$]]]}], "]"}]], "Output",
 CellChangeTimes->{
  3.54434902903172*^9, 3.544349501114208*^9, 3.544349924740225*^9, {
   3.5443510204149103`*^9, 3.5443510740130777`*^9}, {3.544352603789734*^9, 
   3.544352610463797*^9}, 3.544353910861651*^9, 3.5443605594521*^9, 
   3.544421414095154*^9, 3.544423630462803*^9, 3.544423908128598*^9, 
   3.544424291465847*^9, 3.544428285976355*^9, 3.544431539897418*^9, 
   3.544432674417766*^9, 3.544437279132515*^9, 3.544440126600431*^9, 
   3.544441619831958*^9, 3.5444417527973137`*^9, 3.544442089522257*^9, 
   3.5444559194134693`*^9, 3.544466718261837*^9, 3.544466860323759*^9, 
   3.5445044261661043`*^9, 3.5445271093077793`*^9, 3.5446797307833776`*^9, 
   3.5447621598900347`*^9, 3.544778379331201*^9, {3.544786411177494*^9, 
   3.544786436190906*^9}, 3.544786895217174*^9, 3.544846905223381*^9, 
   3.544879251514142*^9, 3.544889540355603*^9, 3.544889644517748*^9, 
   3.544889712068019*^9, 3.544889932411522*^9, 3.544933364103704*^9, 
   3.54494407990781*^9, 3.544944285611891*^9, 3.544957464614003*^9, 
   3.544966044167049*^9, 3.544967885767524*^9, 3.5449694164702473`*^9, 
   3.544984345111309*^9, 3.545022449946577*^9, 3.54504817937052*^9, 
   3.54504911353714*^9, 3.545068059310388*^9, 3.545115019103861*^9, 
   3.54512051100974*^9, 3.5451217580312862`*^9, 3.545124518299301*^9, 
   3.5451296485453587`*^9, 3.54515127950727*^9, 3.545224742542913*^9, 
   3.5452252267606573`*^9, 3.5452253042621613`*^9, 3.545311147189931*^9, 
   3.545368539018231*^9, 3.545392911941742*^9, 3.545562225146181*^9, 
   3.545568456170101*^9, 3.54557883981968*^9, 3.545582118019966*^9, 
   3.545653069726852*^9, 3.5456566739809723`*^9, 3.54591240231647*^9, 
   3.545964790424246*^9, 3.5459650633945227`*^9, 3.5459652950658417`*^9, 
   3.545966644968745*^9, 3.545966733464631*^9, 3.545966858412745*^9, 
   3.56629425047576*^9, 3.566729365133562*^9, 3.56680313733496*^9, 
   3.57390715097182*^9, 3.5739074700888357`*^9, 3.574053312558915*^9, 
   3.574056176750208*^9, 3.5740632632095823`*^9, 3.574064004753079*^9, 
   3.5740657711305933`*^9, 3.574066906041996*^9, 3.5740676646844797`*^9, 
   3.574067960911901*^9, 3.574068259528693*^9, 3.5740685020602427`*^9, 
   3.5740689724513693`*^9, 3.574069138448431*^9, 3.574166680016651*^9, 
   3.574430443169115*^9, 3.5744306242585993`*^9, 3.574435877689062*^9, 
   3.574691483292399*^9, 3.575011270156187*^9, 3.575953306834338*^9, 
   3.5766850819176407`*^9, 3.5766853735523157`*^9, {3.577201651540936*^9, 
   3.577201696307725*^9}, 3.5775141858436127`*^9, 3.577521658523286*^9, 
   3.639390842769829*^9, 3.639390873388139*^9, 3.639391612923332*^9, {
   3.751782891095708*^9, 3.7517829106698513`*^9}, {3.757426262522524*^9, 
   3.757426284046217*^9}, 3.757849782282278*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"feynamp", "=", 
    RowBox[{"CreateFeynAmp", "[", "instree", "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.544350780672267*^9, 3.544350812271162*^9}, {
   3.5447785439410143`*^9, 3.5447785865271597`*^9}, {3.544969308502781*^9, 
   3.544969312862899*^9}, {3.544969490967451*^9, 3.544969539913645*^9}, {
   3.5449697951723022`*^9, 3.544969799036089*^9}, 3.544984433607854*^9, {
   3.573907195588002*^9, 3.573907204560914*^9}, {3.574166979752173*^9, 
   3.574166983787244*^9}, {3.5772017256088333`*^9, 3.577201729132174*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{
  3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 
   3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 
   3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 
   3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 
   3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 
   3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 
   3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 
   3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 
   3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 
   3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 
   3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 
   3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 
   3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 
   3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 
   3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 
   3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 
   3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 
   3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 
   3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 
   3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 
   3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 
   3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 
   3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 
   3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 
   3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 
   3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 
   3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 
   3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 
   3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 
   3.751782918342229*^9, 3.7530103024401503`*^9, 3.757426290118435*^9, 
   3.757849787397174*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}],
  SequenceForm[
  "creating amplitudes at level(s) ", {
   Generic, FeynArts`Classes, FeynArts`Particles}],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 
   3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 
   3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 
   3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 
   3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 
   3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 
   3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 
   3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 
   3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 
   3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 
   3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 
   3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 
   3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 
   3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 
   3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 
   3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 
   3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 
   3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 
   3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 
   3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 
   3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 
   3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 
   3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 
   3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 
   3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 
   3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 
   3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 
   3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 
   3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 
   3.751782918342229*^9, 3.7530103024401503`*^9, 3.757426290118435*^9, 
   3.757849787398217*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"2 Generic, 3 Classes, 3 Particles \
amplitudes\"\>"}],
  SequenceForm[
  "> Top. ", 1, ": ", "2 Generic, 3 Classes, 3 Particles amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 
   3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 
   3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 
   3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 
   3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 
   3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 
   3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 
   3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 
   3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 
   3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 
   3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 
   3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 
   3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 
   3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 
   3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 
   3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 
   3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 
   3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 
   3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 
   3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 
   3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 
   3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 
   3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 
   3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 
   3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 
   3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 
   3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 
   3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 
   3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 
   3.751782918342229*^9, 3.7530103024401503`*^9, 3.757426290118435*^9, 
   3.757849787432254*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \
amplitudes\"\>"}],
  SequenceForm[
  "> Top. ", 2, ": ", "1 Generic, 1 Classes, 1 Particles amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 
   3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 
   3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 
   3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 
   3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 
   3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 
   3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 
   3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 
   3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 
   3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 
   3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 
   3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 
   3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 
   3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 
   3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 
   3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 
   3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 
   3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 
   3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 
   3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 
   3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 
   3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 
   3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 
   3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 
   3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 
   3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 
   3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 
   3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 
   3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 
   3.751782918342229*^9, 3.7530103024401503`*^9, 3.757426290118435*^9, 
   3.7578497874336443`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Generic, 4 Classes, 4 Particles \
amplitudes\"\>"}],
  SequenceForm["in total: ", "3 Generic, 4 Classes, 4 Particles amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 
   3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 
   3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 
   3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 
   3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 
   3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 
   3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 
   3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 
   3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 
   3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 
   3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 
   3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 
   3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 
   3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 
   3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 
   3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 
   3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 
   3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 
   3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 
   3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 
   3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 
   3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 
   3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 
   3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 
   3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 
   3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 
   3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 
   3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 
   3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 
   3.751782918342229*^9, 3.7530103024401503`*^9, 3.757426290118435*^9, 
   3.757849787435071*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"feynamp", "=", 
  RowBox[{"feynamp", "//.", 
   RowBox[{"ME", "\[Rule]", "0", 
    RowBox[{"(*", 
     RowBox[{"fermion", " ", "mass", " ", "to", " ", "zero"}], 
     "*)"}]}]}]}]], "Input",
 CellChangeTimes->{{3.566803147948325*^9, 3.5668031491679907`*^9}, {
  3.7517830277765217`*^9, 3.751783043664007*^9}, {3.757426293752906*^9, 
  3.7574262940885267`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"FeynAmpList", "[", 
   RowBox[{
    RowBox[{"Process", "\[Rule]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"F", "[", 
           RowBox[{"2", ",", 
            RowBox[{"{", "1", "}"}]}], "]"}], ",", 
          InterpretationBox[
           RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}],
           SequenceForm["p", 1],
           Editable->False], ",", "0", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"F", "[", 
            RowBox[{"2", ",", 
             RowBox[{"{", "1", "}"}]}], "]"}]}], ",", 
          InterpretationBox[
           RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}],
           SequenceForm["p", 2],
           Editable->False], ",", "0", ",", 
          RowBox[{"{", 
           RowBox[{"Charge", ",", 
            RowBox[{"-", "LeptonNumber"}]}], "}"}]}], "}"}]}], "}"}], 
      "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"V", "[", "3", "]"}], ",", 
          InterpretationBox[
           RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
           SequenceForm["k", 1],
           Editable->False], ",", "MW", ",", 
          RowBox[{"-", "Charge"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"V", "[", "3", "]"}]}], ",", 
          InterpretationBox[
           RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
           SequenceForm["k", 2],
           Editable->False], ",", "MW", ",", "Charge"}], "}"}]}], "}"}]}]}], 
    ",", 
    RowBox[{"Model", "\[Rule]", 
     RowBox[{"{", "\<\"SM\"\>", "}"}]}], ",", 
    RowBox[{"GenericModel", "\[Rule]", 
     RowBox[{"{", "\<\"Lorentz\"\>", "}"}]}], ",", 
    RowBox[{"AmplitudeLevel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}], ",", 
    RowBox[{"ExcludeParticles", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"ExcludeFieldPoints", "\[Rule]", 
     RowBox[{"{", "}"}]}], ",", 
    RowBox[{"LastSelections", "\[Rule]", 
     RowBox[{"{", "}"}]}]}], "]"}], "[", 
  RowBox[{
   RowBox[{"FeynAmp", "[", 
    RowBox[{
     RowBox[{"GraphID", "[", 
      RowBox[{
       RowBox[{"Topology", "\[Equal]", "1"}], ",", 
       RowBox[{"Generic", "\[Equal]", "1"}]}], "]"}], ",", 
     RowBox[{"Integral", "[", "]"}], ",", 
     RowBox[{"RelativeCF", " ", 
      RowBox[{
       RowBox[{
        OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "[", 
        RowBox[{
         InterpretationBox[
          RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}],
          SequenceForm["p", 2],
          Editable->False], ",", "0"}], "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFS", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], "]"}]}], "+", 
         RowBox[{
          SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFS", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], "]"}]}]}], ")"}], ".", 
       RowBox[{"\<\"u\"\>", "[", 
        RowBox[{
         InterpretationBox[
          RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}],
          SequenceForm["p", 1],
          Editable->False], ",", "0"}], "]"}]}], " ", 
      RowBox[{"\<\"g\"\>", "[", 
       RowBox[{
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
         SequenceForm["Lor", 1],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
         SequenceForm["Lor", 2],
         Editable->False]}], "]"}], " ", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           InterpretationBox[
            RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
            SequenceForm["k", 1],
            Editable->False], "+", 
           InterpretationBox[
            RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
            SequenceForm["k", 2],
            Editable->False]}], ")"}], "2"], "-", 
        SuperscriptBox[
         RowBox[{"Mass", "[", 
          RowBox[{
           RowBox[{"S", "[", 
            InterpretationBox[
             RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}],
             SequenceForm["Gen", 5],
             Editable->False], "]"}], ",", "Internal"}], "]"}], "2"]}]], " ", 
      
      RowBox[{
       TemplateBox[{"\"ep\"","\"*\""},
        "Superscript"], "[", 
       RowBox[{
        RowBox[{"V", "[", "3", "]"}], ",", 
        InterpretationBox[
         RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
         SequenceForm["k", 1],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
         SequenceForm["Lor", 1],
         Editable->False]}], "]"}], " ", 
      RowBox[{
       TemplateBox[{"\"ep\"","\"*\""},
        "Superscript"], "[", 
       RowBox[{
        RowBox[{"V", "[", "3", "]"}], ",", 
        InterpretationBox[
         RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
         SequenceForm["k", 2],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
         SequenceForm["Lor", 2],
         Editable->False]}], "]"}], " ", 
      RowBox[{
       TagBox[
        SubsuperscriptBox["G", "SVV", 
         RowBox[{"(", "0", ")"}]],
        DisplayForm], "[", 
       RowBox[{"\<\"g\"\>", "[", 
        RowBox[{
         RowBox[{"KI1", "[", "2", "]"}], ",", 
         RowBox[{"KI1", "[", "3", "]"}]}], "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Mass", "[", 
         RowBox[{
          RowBox[{"S", "[", 
           InterpretationBox[
            RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}],
            SequenceForm["Gen", 5],
            Editable->False], "]"}], ",", "Internal"}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFS", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFS", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "SVV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{"\<\"g\"\>", "[", 
          RowBox[{
           RowBox[{"KI1", "[", "2", "]"}], ",", 
           RowBox[{"KI1", "[", "3", "]"}]}], "]"}], "]"}], ",", 
        "RelativeCF"}], "}"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Insertions", "[", "Classes", "]"}], "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"MH", ",", "0", ",", "0", ",", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "EL", " ", "MW"}], "SW"], ",", "1"}],
          "}"}], "\[Rule]", 
        RowBox[{
         RowBox[{"Insertions", "[", "Particles", "]"}], "[", 
         RowBox[{"{", 
          RowBox[{"MH", ",", "0", ",", "0", ",", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "EL", " ", "MW"}], "SW"], ",", 
           "1"}], "}"}], "]"}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"FeynAmp", "[", 
    RowBox[{
     RowBox[{"GraphID", "[", 
      RowBox[{
       RowBox[{"Topology", "\[Equal]", "1"}], ",", 
       RowBox[{"Generic", "\[Equal]", "2"}]}], "]"}], ",", 
     RowBox[{"Integral", "[", "]"}], ",", 
     RowBox[{
      RowBox[{"-", "RelativeCF"}], " ", 
      RowBox[{
       RowBox[{
        OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "[", 
        RowBox[{
         InterpretationBox[
          RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}],
          SequenceForm["p", 2],
          Editable->False], ",", "0"}], "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\<\"ga\"\>", "[", 
            InterpretationBox[
             RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "3"}],
             SequenceForm["Lor", 3],
             Editable->False], "]"}], ".", 
           SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFV", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           RowBox[{
            RowBox[{"\<\"ga\"\>", "[", 
             RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
            SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", 
         RowBox[{
          RowBox[{
           RowBox[{"\<\"ga\"\>", "[", 
            InterpretationBox[
             RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "3"}],
             SequenceForm["Lor", 3],
             Editable->False], "]"}], ".", 
           SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFV", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           RowBox[{
            RowBox[{"\<\"ga\"\>", "[", 
             RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
            SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", 
       
       RowBox[{"\<\"u\"\>", "[", 
        RowBox[{
         InterpretationBox[
          RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}],
          SequenceForm["p", 1],
          Editable->False], ",", "0"}], "]"}]}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            InterpretationBox[
             RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
             SequenceForm["k", 1],
             Editable->False], "-", 
            InterpretationBox[
             RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
             SequenceForm["k", 2],
             Editable->False]}], ")"}], "[", 
          InterpretationBox[
           RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}],
           SequenceForm["Lor", 4],
           Editable->False], "]"}], " ", 
         RowBox[{"\<\"g\"\>", "[", 
          RowBox[{
           InterpretationBox[
            RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
            SequenceForm["Lor", 1],
            Editable->False], ",", 
           InterpretationBox[
            RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
            SequenceForm["Lor", 2],
            Editable->False]}], "]"}]}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"(", 
              InterpretationBox[
               RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
               SequenceForm["k", 1],
               Editable->False], ")"}]}], "-", 
            InterpretationBox[
             RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
             SequenceForm["k", 2],
             Editable->False]}], ")"}], "[", 
          InterpretationBox[
           RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
           SequenceForm["Lor", 2],
           Editable->False], "]"}], " ", 
         RowBox[{"\<\"g\"\>", "[", 
          RowBox[{
           InterpretationBox[
            RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
            SequenceForm["Lor", 1],
            Editable->False], ",", 
           InterpretationBox[
            RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}],
            SequenceForm["Lor", 4],
            Editable->False]}], "]"}]}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            InterpretationBox[
             RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
             SequenceForm["k", 1],
             Editable->False], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              InterpretationBox[
               RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
               SequenceForm["k", 2],
               Editable->False], ")"}]}]}], ")"}], "[", 
          InterpretationBox[
           RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
           SequenceForm["Lor", 1],
           Editable->False], "]"}], " ", 
         RowBox[{"\<\"g\"\>", "[", 
          RowBox[{
           InterpretationBox[
            RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
            SequenceForm["Lor", 2],
            Editable->False], ",", 
           InterpretationBox[
            RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}],
            SequenceForm["Lor", 4],
            Editable->False]}], "]"}]}]}], ")"}], " ", 
      RowBox[{"\<\"g\"\>", "[", 
       RowBox[{
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "3"}],
         SequenceForm["Lor", 3],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}],
         SequenceForm["Lor", 4],
         Editable->False]}], "]"}], " ", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           InterpretationBox[
            RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
            SequenceForm["k", 1],
            Editable->False], "+", 
           InterpretationBox[
            RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
            SequenceForm["k", 2],
            Editable->False]}], ")"}], "2"], "-", 
        SuperscriptBox[
         RowBox[{"Mass", "[", 
          RowBox[{
           RowBox[{"V", "[", 
            InterpretationBox[
             RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}],
             SequenceForm["Gen", 5],
             Editable->False], "]"}], ",", "Internal"}], "]"}], "2"]}]], " ", 
      
      RowBox[{
       TemplateBox[{"\"ep\"","\"*\""},
        "Superscript"], "[", 
       RowBox[{
        RowBox[{"V", "[", "3", "]"}], ",", 
        InterpretationBox[
         RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
         SequenceForm["k", 1],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
         SequenceForm["Lor", 1],
         Editable->False]}], "]"}], " ", 
      RowBox[{
       TemplateBox[{"\"ep\"","\"*\""},
        "Superscript"], "[", 
       RowBox[{
        RowBox[{"V", "[", "3", "]"}], ",", 
        InterpretationBox[
         RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
         SequenceForm["k", 2],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
         SequenceForm["Lor", 2],
         Editable->False]}], "]"}], " ", 
      RowBox[{
       TagBox[
        SubsuperscriptBox["G", "VVV", 
         RowBox[{"(", "0", ")"}]],
        DisplayForm], "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Mom", "[", "1", "]"}]}], "+", 
            RowBox[{"Mom", "[", "2", "]"}]}], ")"}], "[", 
          RowBox[{"KI1", "[", "3", "]"}], "]"}], " ", 
         RowBox[{"\<\"g\"\>", "[", 
          RowBox[{
           RowBox[{"KI1", "[", "1", "]"}], ",", 
           RowBox[{"KI1", "[", "2", "]"}]}], "]"}]}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Mom", "[", "1", "]"}], "-", 
            RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", 
          RowBox[{"KI1", "[", "2", "]"}], "]"}], " ", 
         RowBox[{"\<\"g\"\>", "[", 
          RowBox[{
           RowBox[{"KI1", "[", "1", "]"}], ",", 
           RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}], "+", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"Mom", "[", "2", "]"}]}], "+", 
            RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", 
          RowBox[{"KI1", "[", "1", "]"}], "]"}], " ", 
         RowBox[{"\<\"g\"\>", "[", 
          RowBox[{
           RowBox[{"KI1", "[", "2", "]"}], ",", 
           RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}]}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Mass", "[", 
         RowBox[{
          RowBox[{"V", "[", 
           InterpretationBox[
            RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}],
            SequenceForm["Gen", 5],
            Editable->False], "]"}], ",", "Internal"}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{
          RowBox[{"\<\"ga\"\>", "[", 
           RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
          SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{
          RowBox[{"\<\"ga\"\>", "[", 
           RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
          SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "VVV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Mom", "[", "1", "]"}]}], "+", 
              RowBox[{"Mom", "[", "2", "]"}]}], ")"}], "[", 
            RowBox[{"KI1", "[", "3", "]"}], "]"}], " ", 
           RowBox[{"\<\"g\"\>", "[", 
            RowBox[{
             RowBox[{"KI1", "[", "1", "]"}], ",", 
             RowBox[{"KI1", "[", "2", "]"}]}], "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Mom", "[", "1", "]"}], "-", 
              RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", 
            RowBox[{"KI1", "[", "2", "]"}], "]"}], " ", 
           RowBox[{"\<\"g\"\>", "[", 
            RowBox[{
             RowBox[{"KI1", "[", "1", "]"}], ",", 
             RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}], "+", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Mom", "[", "2", "]"}]}], "+", 
              RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", 
            RowBox[{"KI1", "[", "1", "]"}], "]"}], " ", 
           RowBox[{"\<\"g\"\>", "[", 
            RowBox[{
             RowBox[{"KI1", "[", "2", "]"}], ",", 
             RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}]}], "]"}], ",", 
        "RelativeCF"}], "}"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Insertions", "[", "Classes", "]"}], "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", 
           RowBox[{"\[ImaginaryI]", " ", "EL"}], ",", 
           RowBox[{"\[ImaginaryI]", " ", "EL"}], ",", 
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "EL"}], ",", "1"}], "}"}], 
         "\[Rule]", 
         RowBox[{
          RowBox[{"Insertions", "[", "Particles", "]"}], "[", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"\[ImaginaryI]", " ", "EL"}], ",", 
            RowBox[{"\[ImaginaryI]", " ", "EL"}], ",", 
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "EL"}], ",", "1"}], "}"}], 
          "]"}]}], ",", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"MZ", ",", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "EL", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                FractionBox["1", "2"]}], "+", "SW2"}], ")"}]}], 
            RowBox[{"CW", " ", "SW"}]], ",", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "EL", " ", "SW"}], "CW"], ",", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "CW", " ", "EL"}], "SW"], ",", 
           "1"}], "}"}], "\[Rule]", 
         RowBox[{
          RowBox[{"Insertions", "[", "Particles", "]"}], "[", 
          RowBox[{"{", 
           RowBox[{"MZ", ",", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", "EL", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 FractionBox["1", "2"]}], "+", "SW2"}], ")"}]}], 
             RowBox[{"CW", " ", "SW"}]], ",", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", "EL", " ", "SW"}], "CW"], ",", 
            FractionBox[
             RowBox[{"\[ImaginaryI]", " ", "CW", " ", "EL"}], "SW"], ",", 
            "1"}], "}"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
   RowBox[{"FeynAmp", "[", 
    RowBox[{
     RowBox[{"GraphID", "[", 
      RowBox[{
       RowBox[{"Topology", "\[Equal]", "2"}], ",", 
       RowBox[{"Generic", "\[Equal]", "1"}]}], "]"}], ",", 
     RowBox[{"Integral", "[", "]"}], ",", 
     RowBox[{"RelativeCF", " ", 
      RowBox[{
       RowBox[{
        OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "[", 
        RowBox[{
         InterpretationBox[
          RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}],
          SequenceForm["p", 2],
          Editable->False], ",", "0"}], "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\<\"ga\"\>", "[", 
            InterpretationBox[
             RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
             SequenceForm["Lor", 2],
             Editable->False], "]"}], ".", 
           SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFV", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           RowBox[{
            RowBox[{"\<\"ga\"\>", "[", 
             RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
            SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", 
         RowBox[{
          RowBox[{
           RowBox[{"\<\"ga\"\>", "[", 
            InterpretationBox[
             RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
             SequenceForm["Lor", 2],
             Editable->False], "]"}], ".", 
           SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFV", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           RowBox[{
            RowBox[{"\<\"ga\"\>", "[", 
             RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
            SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", 
       
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\<\"gs\"\>", "[", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             InterpretationBox[
              RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}],
              SequenceForm["p", 2],
              Editable->False], ")"}]}], "+", 
           InterpretationBox[
            RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
            SequenceForm["k", 2],
            Editable->False]}], "]"}], "+", 
         RowBox[{"Mass", "[", 
          RowBox[{
           RowBox[{"F", "[", 
            InterpretationBox[
             RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}],
             SequenceForm["Gen", 5],
             Editable->False], "]"}], ",", "Internal"}], "]"}]}], ")"}], ".", 
       
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"\<\"ga\"\>", "[", 
            InterpretationBox[
             RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
             SequenceForm["Lor", 1],
             Editable->False], "]"}], ".", 
           SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFV", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           RowBox[{
            RowBox[{"\<\"ga\"\>", "[", 
             RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
            SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", 
         RowBox[{
          RowBox[{
           RowBox[{"\<\"ga\"\>", "[", 
            InterpretationBox[
             RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
             SequenceForm["Lor", 1],
             Editable->False], "]"}], ".", 
           SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", 
          RowBox[{
           TagBox[
            SubsuperscriptBox["G", "FFV", 
             RowBox[{"(", "0", ")"}]],
            DisplayForm], "[", 
           RowBox[{
            RowBox[{"\<\"ga\"\>", "[", 
             RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
            SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", 
       
       RowBox[{"\<\"u\"\>", "[", 
        RowBox[{
         InterpretationBox[
          RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}],
          SequenceForm["p", 1],
          Editable->False], ",", "0"}], "]"}]}], " ", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           InterpretationBox[
            RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}],
            SequenceForm["p", 2],
            Editable->False], "-", 
           InterpretationBox[
            RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
            SequenceForm["k", 2],
            Editable->False]}], ")"}], "2"], "-", 
        SuperscriptBox[
         RowBox[{"Mass", "[", 
          RowBox[{
           RowBox[{"F", "[", 
            InterpretationBox[
             RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}],
             SequenceForm["Gen", 5],
             Editable->False], "]"}], ",", "Internal"}], "]"}], "2"]}]], " ", 
      
      RowBox[{
       TemplateBox[{"\"ep\"","\"*\""},
        "Superscript"], "[", 
       RowBox[{
        RowBox[{"V", "[", "3", "]"}], ",", 
        InterpretationBox[
         RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}],
         SequenceForm["k", 1],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}],
         SequenceForm["Lor", 1],
         Editable->False]}], "]"}], " ", 
      RowBox[{
       TemplateBox[{"\"ep\"","\"*\""},
        "Superscript"], "[", 
       RowBox[{
        RowBox[{"V", "[", "3", "]"}], ",", 
        InterpretationBox[
         RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}],
         SequenceForm["k", 2],
         Editable->False], ",", 
        InterpretationBox[
         RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}],
         SequenceForm["Lor", 2],
         Editable->False]}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Mass", "[", 
         RowBox[{
          RowBox[{"F", "[", 
           InterpretationBox[
            RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}],
            SequenceForm["Gen", 5],
            Editable->False], "]"}], ",", "Internal"}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{
          RowBox[{"\<\"ga\"\>", "[", 
           RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
          SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{
          RowBox[{"\<\"ga\"\>", "[", 
           RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
          SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{
          RowBox[{"\<\"ga\"\>", "[", 
           RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
          SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", 
        RowBox[{
         TagBox[
          SubsuperscriptBox["G", "FFV", 
           RowBox[{"(", "0", ")"}]],
          DisplayForm], "[", 
         RowBox[{
          RowBox[{"\<\"ga\"\>", "[", 
           RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", 
          SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", 
        "RelativeCF"}], "}"}], "\[Rule]", 
      RowBox[{
       RowBox[{"Insertions", "[", "Classes", "]"}], "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "EL"}], 
           RowBox[{
            SqrtBox["2"], " ", "SW"}]], ",", "0", ",", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "EL"}], 
           RowBox[{
            SqrtBox["2"], " ", "SW"}]], ",", "0", ",", "1"}], "}"}], 
        "\[Rule]", 
        RowBox[{
         RowBox[{"Insertions", "[", "Particles", "]"}], "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "EL"}], 
            RowBox[{
             SqrtBox["2"], " ", "SW"}]], ",", "0", ",", 
           FractionBox[
            RowBox[{"\[ImaginaryI]", " ", "EL"}], 
            RowBox[{
             SqrtBox["2"], " ", "SW"}]], ",", "0", ",", "1"}], "}"}], "]"}]}],
        "]"}]}]}], "]"}]}], "]"}]], "Output",
 CellChangeTimes->{
  3.7517830439694653`*^9, 3.753010326656136*^9, {3.757426291311269*^9, 
   3.757426294362216*^9}, 3.757849788327529*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"ClearProcess", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.544350814931781*^9, 3.544350834247435*^9}, {
   3.544350951135695*^9, 3.544350966270033*^9}, {3.544353209647768*^9, 
   3.5443532289616423`*^9}, 3.544353475446724*^9, {3.544354571801016*^9, 
   3.54435457872165*^9}, 3.5443575006640778`*^9, {3.544436587247713*^9, 
   3.5444365922940187`*^9}, {3.5447786045624313`*^9, 3.544778645034512*^9}, {
   3.544969210504223*^9, 3.5449692440248938`*^9}, {3.544985610128456*^9, 
   3.544985618629727*^9}, 3.545049105048513*^9, {3.573907249701189*^9, 
   3.5739072500385017`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"calcamp", "=", 
  RowBox[{"CalcFeynAmp", "[", 
   RowBox[{"feynamp", ",", 
    RowBox[{"FermionChains", "\[Rule]", "Chiral"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.573907324125579*^9, 3.573907340858029*^9}, {
  3.57416701081278*^9, 3.574167021495356*^9}, {3.577201757482095*^9, 
  3.577201760721751*^9}, {3.577202302113838*^9, 3.57720230728693*^9}}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\\npreparing FORM code in /home/stefan/fc-amp-1.frm\"\>"], \
"Print",
 CellChangeTimes->{3.639390850825698*^9, 3.6393908828863153`*^9, 
  3.639391613206305*^9, 3.751782927200081*^9, 3.751783054119586*^9, 
  3.753010575251432*^9, 3.7574263007114964`*^9, 3.757849792529882*^9}],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{3.639390850825698*^9, 3.6393908828863153`*^9, 
  3.639391613206305*^9, 3.751782927200081*^9, 3.751783054119586*^9, 
  3.753010575251432*^9, 3.7574263007114964`*^9, 3.757849792552123*^9}],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{3.639390850825698*^9, 3.6393908828863153`*^9, 
  3.639391613206305*^9, 3.751782927200081*^9, 3.751783054119586*^9, 
  3.753010575251432*^9, 3.7574263007114964`*^9, 3.7578497926085377`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Amp", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"2", ",", 
          RowBox[{"{", "1", "}"}]}], "]"}], ",", 
        RowBox[{"k", "[", "1", "]"}], ",", "0", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"F", "[", 
          RowBox[{"2", ",", 
           RowBox[{"{", "1", "}"}]}], "]"}]}], ",", 
        RowBox[{"k", "[", "2", "]"}], ",", "0", ",", 
        RowBox[{"{", 
         RowBox[{"Charge", ",", 
          RowBox[{"-", "LeptonNumber"}]}], "}"}]}], "}"}]}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"V", "[", "3", "]"}], ",", 
        RowBox[{"k", "[", "3", "]"}], ",", "MW", ",", 
        RowBox[{"-", "Charge"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"V", "[", "3", "]"}]}], ",", 
        RowBox[{"k", "[", "4", "]"}], ",", "MW", ",", "Charge"}], "}"}]}], 
     "}"}]}], "]"}], "[", 
  RowBox[{
   RowBox[{"Alfa", " ", "Pair2", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F1", "]"}]}], "-", 
   RowBox[{"Alfa", " ", "Pair1", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F2", "]"}]}], "-", 
   RowBox[{"Alfa", " ", "Pair3", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F3", "]"}]}], "+", 
   RowBox[{"Alfa", " ", "Pair2", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F4", "]"}]}], "-", 
   RowBox[{"Alfa", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Pair1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "0"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
           RowBox[{"Den", "[", 
            RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{"4", " ", "Pair4", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F5", "]"}]}], "-", 
   RowBox[{"Alfa", " ", "Pair3", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F6", "]"}]}], "-", 
   FractionBox[
    RowBox[{"2", " ", "Alfa", " ", "\[Pi]", " ", 
     RowBox[{"Den", "[", 
      RowBox[{"T", ",", "0"}], "]"}], " ", 
     RowBox[{"Mat", "[", "F7", "]"}]}], "SW2"]}], "]"}]], "Output",
 CellChangeTimes->{3.577201762033195*^9, 3.577202024704954*^9, 
  3.577202310405793*^9, 3.577514187433276*^9, 3.577521660318305*^9, 
  3.639390851378312*^9, 3.639390883268354*^9, 3.639391613520774*^9, 
  3.7517829273212023`*^9, 3.7517830541899557`*^9, 3.753010575375153*^9, 
  3.7574263008448257`*^9, 3.7578497926110373`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"squaredamp", "=", 
  RowBox[{"SquaredME", "[", "calcamp", "]"}]}]], "Input",
 CellChangeTimes->{{3.751782937344153*^9, 3.7517829531586103`*^9}, {
  3.7517830565823507`*^9, 3.7517830572955914`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F1", ",", "F1"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair1","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F1", ",", "F2"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F1", ",", "F3"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F1", ",", "F4"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      TemplateBox[{"Pair1","\"*\""},
       "Superscript"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", 
       TemplateBox[{"Pair4","\"*\""},
        "Superscript"], " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F1", ",", "F5"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F1", ",", "F6"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", "Pair2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F7"}], "]"}]}], "SW2"], "-", 
  RowBox[{"Alfa2", " ", "Pair1", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F2", ",", "F1"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair1", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair1","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F2", ",", "F2"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair1", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F2", ",", "F3"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair1", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F2", ",", "F4"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair1", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      TemplateBox[{"Pair1","\"*\""},
       "Superscript"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", 
       TemplateBox[{"Pair4","\"*\""},
        "Superscript"], " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F2", ",", "F5"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair1", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F2", ",", "F6"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", "Pair1", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F7"}], "]"}]}], "SW2"], "-", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F3", ",", "F1"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair1","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F3", ",", "F2"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F3", ",", "F3"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F3", ",", "F4"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      TemplateBox[{"Pair1","\"*\""},
       "Superscript"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", 
       TemplateBox[{"Pair4","\"*\""},
        "Superscript"], " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F3", ",", "F5"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F3", ",", "F6"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", "Pair3", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F7"}], "]"}]}], "SW2"], "+", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F4", ",", "F1"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair1","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F4", ",", "F2"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F4", ",", "F3"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F4", ",", "F4"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      TemplateBox[{"Pair1","\"*\""},
       "Superscript"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", 
       TemplateBox[{"Pair4","\"*\""},
        "Superscript"], " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F4", ",", "F5"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F4", ",", "F6"}], "]"}]}], "-", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", "Pair2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F7"}], "]"}]}], "SW2"], "-", 
  RowBox[{"Alfa2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Pair1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "Pair4", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F5", ",", "F1"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair1","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Pair1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "Pair4", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F5", ",", "F2"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Pair1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "Pair4", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F5", ",", "F3"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Pair1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "Pair4", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F5", ",", "F4"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Pair1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "Pair4", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      TemplateBox[{"Pair1","\"*\""},
       "Superscript"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", 
       TemplateBox[{"Pair4","\"*\""},
        "Superscript"], " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F5", ",", "F5"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Pair1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", "Pair4", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F5", ",", "F6"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Pair1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "0"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
           RowBox[{"Den", "[", 
            RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{"4", " ", "Pair4", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F7"}], "]"}]}], "SW2"], "-", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F6", ",", "F1"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair1","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F6", ",", "F2"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "-", 
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F6", ",", "F3"}], "]"}]}], "-", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair2","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F6", ",", "F4"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      TemplateBox[{"Pair1","\"*\""},
       "Superscript"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"8", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{"4", " ", 
       TemplateBox[{"Pair4","\"*\""},
        "Superscript"], " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"8", " ", 
      RowBox[{"Den", "[", 
       RowBox[{"S", ",", "0"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F6", ",", "F5"}], "]"}]}], "+", 
  RowBox[{"Alfa2", " ", "Pair3", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   TemplateBox[{"Pair3","\"*\""},
    "Superscript"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], "2"], " ", 
   RowBox[{"Mat", "[", 
    RowBox[{"F6", ",", "F6"}], "]"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", "Pair3", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F7"}], "]"}]}], "SW2"], "-", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    TemplateBox[{"Pair2","\"*\""},
     "Superscript"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F1"}], "]"}]}], "SW2"], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    TemplateBox[{"Pair1","\"*\""},
     "Superscript"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F2"}], "]"}]}], "SW2"], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    TemplateBox[{"Pair3","\"*\""},
     "Superscript"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "-", 
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F3"}], "]"}]}], "SW2"], "-", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    TemplateBox[{"Pair2","\"*\""},
     "Superscript"], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F4"}], "]"}]}], "SW2"], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       TemplateBox[{"Pair1","\"*\""},
        "Superscript"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "0"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
           RowBox[{"Den", "[", 
            RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{"4", " ", 
        TemplateBox[{"Pair4","\"*\""},
         "Superscript"], " ", 
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F5"}], "]"}]}], "SW2"], "+", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    TemplateBox[{"Pair3","\"*\""},
     "Superscript"], " ", 
    RowBox[{"Den", "[", 
     RowBox[{"T", ",", "0"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Den", "[", 
          RowBox[{"T", ",", "0"}], "]"}]}]}], "SW2"]}], ")"}], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F6"}], "]"}]}], "SW2"], "+", 
  FractionBox[
   RowBox[{"4", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    SuperscriptBox[
     RowBox[{"Den", "[", 
      RowBox[{"T", ",", "0"}], "]"}], "2"], " ", 
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F7"}], "]"}]}], 
   SuperscriptBox["SW2", "2"]]}]], "Output",
 CellChangeTimes->{{3.751782942685714*^9, 3.751782953766111*^9}, 
   3.7517830577355433`*^9, 3.753010576674286*^9, 3.7574263018021917`*^9, 
   3.757849793717867*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "FormCalc", " ", "introduces", " ", "quite", " ", "a", " ", "few", " ", 
     "abbreviations"}], ",", " ", 
    RowBox[{"saved", " ", "in", " ", "GenericList"}], ",", " ", 
    RowBox[{"Abbr", " ", "and", " ", "Subexpr"}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"GenericList", "[", "]"}]}]], "Input",
 CellChangeTimes->{{3.75178295897217*^9, 3.751782961150473*^9}, {
  3.751784297913835*^9, 3.751784316763062*^9}}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.751782961478998*^9, 3.7517830596184483`*^9, 
  3.7530105891809893`*^9, 3.757426305688264*^9, 3.7578497986089983`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Abbr", "[", "]"}]], "Input",
 CellChangeTimes->{{3.751782963072033*^9, 3.7517829643982983`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"F1", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 6, ",", 
      FormCalc`ec[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F2", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 6, ",", 
      FormCalc`ec[4], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F3", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 6, ",", 
      FormCalc`k[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F4", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 7, ",", 
      FormCalc`ec[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F5", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 7, ",", 
      FormCalc`ec[4], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F6", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 7, ",", 
      FormCalc`k[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F7", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"-", "7"}], "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", -7, ",", 
      FormCalc`ec[3], ",", 
      FormCalc`ec[4], ",", 
      FormCalc`k[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"Pair3", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair4", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair1", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair2", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.751782964736003*^9, 3.751783060466107*^9, 
  3.753010590175069*^9, 3.757426306560752*^9, 3.757849799850073*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Subexpr", "[", "]"}]], "Input",
 CellChangeTimes->{{3.751782965983369*^9, 3.7517829684943857`*^9}}],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{3.7517829688145037`*^9, 3.751783061285932*^9, 
  3.7530105911167*^9, 3.757426307488758*^9, 3.757849801529346*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"_Hel", "=", "0"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "This", " ", "setting", " ", "requires", " ", "normalization", " ", 
     "factors", " ", "later"}], ",", " ", 
    RowBox[{"see", " ", 
     RowBox[{"later", "!"}]}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"helreplace", "=", 
    RowBox[{"HelicityME", "[", "All", "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"Helicity", " ", "sum", " ", "for", " ", "quarks"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.577202510415681*^9, 3.5772025322360897`*^9}, {
  3.7517838999876537`*^9, 3.751783939739694*^9}, {3.752410727262287*^9, 
  3.7524107284795723`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "49", 
   "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}],
  SequenceForm["> ", 49, " helicity matrix elements"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 
   3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 
   3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 
   3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.751783065261155*^9, 
   3.7530106968461123`*^9, 3.757426310626337*^9, 3.757849802546699*^9}],

Cell[BoxData["\<\"\\npreparing FORM code in /home/stefan/fc-hel-1.frm\"\>"], \
"Print",
 CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 
   3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 
   3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 
   3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.751783065261155*^9, 
   3.7530106968461123`*^9, 3.757426310626337*^9, 3.757849802565188*^9}],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 
   3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 
   3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 
   3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.751783065261155*^9, 
   3.7530106968461123`*^9, 3.757426310626337*^9, 3.7578498025665207`*^9}],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 
   3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 
   3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 
   3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.751783065261155*^9, 
   3.7530106968461123`*^9, 3.757426310626337*^9, 3.75784980278931*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["helreplace"], "Input",
 CellChangeTimes->{{3.7517830099974337`*^9, 3.751783012870324*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F1"}], "]"}], "\[Rule]", 
    FractionBox["Abb2", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F2"}], "]"}], "\[Rule]", 
    FractionBox["Abb4", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb6", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F5"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F6"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F1", ",", "F7"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F1"}], "]"}], "\[Rule]", 
    FractionBox["Abb8", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F2"}], "]"}], "\[Rule]", 
    FractionBox["Abb10", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F3"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb12", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F5"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F6"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F2", ",", "F7"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F1"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb14", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F2"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb16", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F3"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["MW2", "2"]}], "+", 
       RowBox[{"T", " ", "U"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F4"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F5"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F6"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F3", ",", "F7"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F4"}], "]"}], "\[Rule]", 
    FractionBox["Abb17", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F5"}], "]"}], "\[Rule]", 
    FractionBox["Abb18", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F6"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb19", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F4", ",", "F7"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb23", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F4"}], "]"}], "\[Rule]", 
    FractionBox["Abb24", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F5"}], "]"}], "\[Rule]", 
    FractionBox["Abb25", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F6"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb26", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F5", ",", "F7"}], "]"}], "\[Rule]", 
    FractionBox["Abb29", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb30", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F5"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb31", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F6"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["MW2", "2"]}], "+", 
       RowBox[{"T", " ", "U"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F6", ",", "F7"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Abb32"}], "+", 
       RowBox[{"2", " ", "Abb33"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F4"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb37", "4"]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F5"}], "]"}], "\[Rule]", 
    FractionBox["Abb40", "4"]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F6"}], "]"}], "\[Rule]", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "Abb41"}], "-", 
       RowBox[{"2", " ", "Abb42"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"Mat", "[", 
     RowBox[{"F7", ",", "F7"}], "]"}], "\[Rule]", 
    RowBox[{"-", 
     FractionBox["Abb47", "4"]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7517830130022507`*^9, 3.751783066041079*^9, 
  3.753010930646572*^9, 3.7574263127638617`*^9, 3.757849803559416*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Abbr", "[", "]"}]], "Input",
 CellChangeTimes->{{3.753010931530065*^9, 3.753010932981153*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"F1", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 6, ",", 
      FormCalc`ec[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F2", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 6, ",", 
      FormCalc`ec[4], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F3", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 6, ",", 
      FormCalc`k[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F4", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 7, ",", 
      FormCalc`ec[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F5", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 7, ",", 
      FormCalc`ec[4], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F6", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", 7, ",", 
      FormCalc`k[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"F7", "\[Rule]", 
    InterpretationBox[
     RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", 
      "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"-", "7"}], "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\",\"\>", 
      "\[InvisibleSpace]", 
      RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", 
      "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", 
      "\[InvisibleSpace]", "\<\">\"\>"}],
     SequenceForm["<", "v", 1, "|", -7, ",", 
      FormCalc`ec[3], ",", 
      FormCalc`ec[4], ",", 
      FormCalc`k[3], "|", "u", 2, ">"],
     Editable->False]}], ",", 
   RowBox[{"Pair13", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair6", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair5", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair15", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair10", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair9", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair8", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair14", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair3", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair4", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair7", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair1", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair11", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair12", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Pair2", "\[Rule]", 
    RowBox[{"Pair", "[", 
     RowBox[{
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps26", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps9", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps25", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps12", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps11", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps13", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps10", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps15", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps1", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps18", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps4", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps17", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps7", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps14", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps19", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps2", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps21", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps5", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps20", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps8", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"e", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps22", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps23", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps16", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps3", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps24", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"ec", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}], ",", 
      RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", 
   RowBox[{"Eps6", "\[Rule]", 
    RowBox[{"Eps", "[", 
     RowBox[{
      RowBox[{"ec", "[", "4", "]"}], ",", 
      RowBox[{"k", "[", "1", "]"}], ",", 
      RowBox[{"k", "[", "2", "]"}], ",", 
      RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", 
   RowBox[{"Abb2", "\[Rule]", 
    RowBox[{"Abb1", "-", 
     RowBox[{"2", " ", "Eps1"}]}]}], ",", 
   RowBox[{"Abb17", "\[Rule]", 
    RowBox[{"Abb1", "+", 
     RowBox[{"2", " ", "Eps1"}]}]}], ",", 
   RowBox[{"Abb6", "\[Rule]", 
    RowBox[{"Abb5", "-", 
     RowBox[{"2", " ", "Eps3"}]}]}], ",", 
   RowBox[{"Abb19", "\[Rule]", 
    RowBox[{"Abb5", "+", 
     RowBox[{"2", " ", "Eps3"}]}]}], ",", 
   RowBox[{"Abb10", "\[Rule]", 
    RowBox[{"Abb9", "-", 
     RowBox[{"2", " ", "Eps5"}]}]}], ",", 
   RowBox[{"Abb25", "\[Rule]", 
    RowBox[{"Abb9", "+", 
     RowBox[{"2", " ", "Eps5"}]}]}], ",", 
   RowBox[{"Abb12", "\[Rule]", 
    RowBox[{"Abb11", "-", 
     RowBox[{"2", " ", "Eps6"}]}]}], ",", 
   RowBox[{"Abb26", "\[Rule]", 
    RowBox[{"Abb11", "+", 
     RowBox[{"2", " ", "Eps6"}]}]}], ",", 
   RowBox[{"Abb30", "\[Rule]", 
    RowBox[{"Abb13", "-", 
     RowBox[{"2", " ", "Eps7"}]}]}], ",", 
   RowBox[{"Abb14", "\[Rule]", 
    RowBox[{"Abb13", "+", 
     RowBox[{"2", " ", "Eps7"}]}]}], ",", 
   RowBox[{"Abb31", "\[Rule]", 
    RowBox[{"Abb15", "-", 
     RowBox[{"2", " ", "Eps8"}]}]}], ",", 
   RowBox[{"Abb16", "\[Rule]", 
    RowBox[{"Abb15", "+", 
     RowBox[{"2", " ", "Eps8"}]}]}], ",", 
   RowBox[{"Abb23", "\[Rule]", 
    RowBox[{"Abb21", "-", "Abb22", "+", 
     RowBox[{"Abb20", " ", "Pair10"}]}]}], ",", 
   RowBox[{"Abb29", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "Abb27"}], "+", "Abb28", "+", 
     RowBox[{"Abb21", " ", "Pair13"}]}]}], ",", 
   RowBox[{"Abb37", "\[Rule]", 
    RowBox[{"Abb35", "-", "Abb36", "+", 
     RowBox[{"Abb34", " ", "Pair13"}], "+", 
     RowBox[{"2", " ", "Eps7", " ", "Pair3"}]}]}], ",", 
   RowBox[{"Abb40", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "Abb38"}], "+", "Abb39", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Abb35", "+", 
        RowBox[{"2", " ", "Eps6"}]}], ")"}], " ", "Pair10"}], "-", 
     RowBox[{"2", " ", "Eps8", " ", "Pair3"}]}]}], ",", 
   RowBox[{"Abb7", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair11", " ", "Pair5"}], "+", 
     RowBox[{"Pair12", " ", "Pair6"}]}]}], ",", 
   RowBox[{"Abb3", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair4", " ", "Pair8"}], "+", 
     RowBox[{"Pair7", " ", "Pair9"}]}]}], ",", 
   RowBox[{"Abb1", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "Pair4", " ", "Pair5"}], "+", 
     RowBox[{"2", " ", "Pair6", " ", "Pair7"}], "+", "S"}]}], ",", 
   RowBox[{"Abb9", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "Pair11", " ", "Pair8"}], "+", 
     RowBox[{"2", " ", "Pair12", " ", "Pair9"}], "+", "S"}]}], ",", 
   RowBox[{"Abb28", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Eps10", " ", "Pair11"}], "+", 
        RowBox[{"Eps11", " ", "Pair12"}]}], ")"}]}], "+", 
     RowBox[{"Eps12", " ", "S"}]}]}], ",", 
   RowBox[{"Abb22", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Eps10", " ", "Pair4"}], "+", 
        RowBox[{"Eps11", " ", "Pair7"}]}], ")"}]}], "+", 
     RowBox[{"Eps9", " ", "S"}]}]}], ",", 
   RowBox[{"Abb4", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "Abb3"}], "-", 
     RowBox[{"2", " ", "Eps2"}], "-", 
     RowBox[{"Pair10", " ", "S"}]}]}], ",", 
   RowBox[{"Abb18", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "Abb3"}], "+", 
     RowBox[{"2", " ", "Eps2"}], "-", 
     RowBox[{"Pair10", " ", "S"}]}]}], ",", 
   RowBox[{"Abb8", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "Abb7"}], "-", 
     RowBox[{"2", " ", "Eps4"}], "-", 
     RowBox[{"Pair13", " ", "S"}]}]}], ",", 
   RowBox[{"Abb24", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "Abb7"}], "+", 
     RowBox[{"2", " ", "Eps4"}], "-", 
     RowBox[{"Pair13", " ", "S"}]}]}], ",", 
   RowBox[{"Abb38", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair7", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "-", 
        RowBox[{"2", " ", "Pair11", " ", "Pair14"}], "+", "T"}], ")"}]}], "+", 
     RowBox[{"Pair4", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "+", 
        RowBox[{"2", " ", "Pair12", " ", "Pair14"}], "-", "U"}], ")"}]}]}]}], 
   ",", 
   RowBox[{"Abb27", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair5", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "-", 
        RowBox[{"2", " ", "Pair2", " ", "Pair9"}], "+", "T"}], ")"}]}], "+", 
     RowBox[{"Pair6", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "+", 
        RowBox[{"2", " ", "Pair2", " ", "Pair8"}], "-", "U"}], ")"}]}]}]}], 
   ",", 
   RowBox[{"Abb33", "\[Rule]", 
    RowBox[{
     RowBox[{"Eps13", " ", "MW2"}], "+", 
     RowBox[{"Eps14", " ", "Pair14"}], "+", 
     RowBox[{"Eps11", " ", "U"}]}]}], ",", 
   RowBox[{"Abb42", "\[Rule]", 
    RowBox[{
     RowBox[{"Eps23", " ", "MW2"}], "+", 
     RowBox[{"Eps24", " ", "Pair2"}], "+", 
     RowBox[{"Eps22", " ", "U"}]}]}], ",", 
   RowBox[{"Abb46", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "Eps26", " ", "MW2", " ", "Pair11"}], "-", 
     RowBox[{"2", " ", "Eps9", " ", "MW2", " ", "Pair11"}], "-", 
     RowBox[{"2", " ", "Eps6", " ", "Pair14"}], "-", 
     RowBox[{"2", " ", "Eps18", " ", "Pair12", " ", "Pair14"}], "+", 
     RowBox[{"2", " ", "Eps1", " ", "Pair14", " ", "Pair2"}], "+", 
     RowBox[{"2", " ", "Eps12", " ", "MW2", " ", "Pair4"}], "-", 
     RowBox[{"2", " ", "Eps25", " ", "MW2", " ", "Pair4"}], "+", 
     RowBox[{"2", " ", "Eps17", " ", "Pair14", " ", "Pair4"}], "-", 
     RowBox[{"2", " ", "Eps10", " ", "Pair2", " ", "Pair4"}], "+", 
     RowBox[{"2", " ", "Eps19", " ", "MW2", " ", "Pair5"}], "+", 
     RowBox[{"2", " ", "Eps16", " ", "Pair14", " ", "Pair6"}], "-", 
     RowBox[{"2", " ", "Eps11", " ", "Pair2", " ", "Pair7"}], "+", 
     RowBox[{"Eps9", " ", "Pair2", " ", "S"}], "+", 
     RowBox[{"Eps15", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "MW2", " ", "Pair8"}], "+", 
        RowBox[{"Pair14", " ", 
         RowBox[{"(", 
          RowBox[{"MW2", "-", "U"}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{"2", " ", "Eps9", " ", "Pair11", " ", "U"}], "-", 
     RowBox[{"2", " ", "Eps12", " ", "Pair4", " ", "U"}]}]}], ",", 
   RowBox[{"Abb43", "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["MW2", "2"]}], "+", 
     RowBox[{"MW2", " ", "Pair11", " ", "Pair14"}], "+", 
     RowBox[{"MW2", " ", "Pair12", " ", "Pair14"}], "-", 
     RowBox[{"2", " ", "MW2", " ", "Pair14", " ", "Pair2"}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "+", 
        RowBox[{"Pair14", " ", "Pair2"}]}], ")"}], " ", "Pair4", " ", 
      "Pair5"}], "-", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "+", 
        RowBox[{"Pair14", " ", "Pair2"}]}], ")"}], " ", "Pair6", " ", 
      "Pair7"}], "-", 
     RowBox[{"2", " ", "MW2", " ", "Pair11", " ", "Pair8"}], "+", 
     RowBox[{"MW2", " ", "Pair2", " ", "Pair8"}], "-", 
     RowBox[{"2", " ", "MW2", " ", "Pair12", " ", "Pair9"}], "+", 
     RowBox[{"MW2", " ", "Pair2", " ", "Pair9"}], "-", 
     RowBox[{"Pair12", " ", "Pair14", " ", "T"}], "+", 
     RowBox[{"Pair14", " ", "Pair2", " ", "T"}], "-", 
     RowBox[{"Pair2", " ", "Pair8", " ", "T"}], "-", 
     RowBox[{"Pair11", " ", "Pair14", " ", "U"}], "+", 
     RowBox[{"Pair14", " ", "Pair2", " ", "U"}], "-", 
     RowBox[{"Pair2", " ", "Pair9", " ", "U"}], "+", 
     RowBox[{"T", " ", "U"}]}]}], ",", 
   RowBox[{"Abb36", "\[Rule]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{"Eps6", "+", 
        RowBox[{"Eps18", " ", "Pair12"}], "-", 
        RowBox[{"Eps17", " ", "Pair4"}], "-", 
        RowBox[{"Eps16", " ", "Pair6"}]}], ")"}]}], "+", 
     RowBox[{"Eps15", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb39", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "Eps21"}], " ", "Pair12"}], "+", 
        RowBox[{"Eps20", " ", "Pair4"}], "+", 
        RowBox[{"Eps16", " ", "Pair9"}]}], ")"}]}], "+", 
     RowBox[{"Eps19", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb35", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair12", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "-", "T"}], ")"}]}], "+", 
     RowBox[{"Pair11", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb11", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair2", " ", "S"}], "+", 
     RowBox[{"Pair12", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "T"}], ")"}]}], "+", 
     RowBox[{"Pair11", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb34", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair7", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "-", "T"}], ")"}]}], "+", 
     RowBox[{"Pair4", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb5", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair7", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "T"}], ")"}]}], "+", 
     RowBox[{"Pair4", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb20", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair5", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "-", "T"}], ")"}]}], "+", 
     RowBox[{"Pair6", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb13", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair5", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "T"}], ")"}]}], "+", 
     RowBox[{"Pair6", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb21", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair8", " ", 
      RowBox[{"(", 
       RowBox[{"MW2", "-", "T"}], ")"}]}], "+", 
     RowBox[{"Pair9", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb15", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair14", " ", "S"}], "+", 
     RowBox[{"Pair8", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "T"}], ")"}]}], "+", 
     RowBox[{"Pair9", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb41", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "MW2", " ", "Pair11"}], "+", 
        RowBox[{"Pair2", " ", 
         RowBox[{"(", 
          RowBox[{"MW2", "-", "T"}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{"Pair2", " ", "Pair4", " ", 
      RowBox[{"(", 
       RowBox[{"T", "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb32", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair15", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "MW2", " ", "Pair9"}], "+", 
        RowBox[{"Pair14", " ", 
         RowBox[{"(", 
          RowBox[{"MW2", "-", "T"}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{"Pair14", " ", "Pair6", " ", 
      RowBox[{"(", 
       RowBox[{"T", "+", "U"}], ")"}]}]}]}], ",", 
   RowBox[{"Abb44", "\[Rule]", 
    RowBox[{
     RowBox[{"Pair5", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "MW2", " ", "Pair11"}], "+", 
        RowBox[{"Pair2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "MW2"}], "+", "T"}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{"Pair6", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "MW2", " ", "Pair12"}], "+", 
        RowBox[{"Pair2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}], ")"}]}]}]}], ",", 
   RowBox[{"Abb45", "\[Rule]", 
    RowBox[{
     RowBox[{"2", " ", "MW2", " ", "Pair4", " ", "Pair8"}], "+", 
     RowBox[{"2", " ", "MW2", " ", "Pair7", " ", "Pair9"}], "+", 
     RowBox[{"Pair14", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Pair7", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "MW2"}], "+", "T"}], ")"}]}], "+", 
        RowBox[{"Pair4", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "MW2"}], "+", "U"}], ")"}]}]}], ")"}]}]}]}], ",", 
   RowBox[{"Abb47", "\[Rule]", 
    RowBox[{
     RowBox[{"-", "Abb43"}], "+", "Abb46", "+", 
     RowBox[{"Abb44", " ", "Pair10"}], "-", 
     RowBox[{"2", " ", "Eps7", " ", "Pair14", " ", "Pair3"}], "+", 
     RowBox[{"Pair13", " ", 
      RowBox[{"(", 
       RowBox[{"Abb45", "+", 
        RowBox[{"Pair10", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            SuperscriptBox["MW2", "2"]}], "+", 
           RowBox[{"T", " ", "U"}]}], ")"}]}]}], ")"}]}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.75301093350456*^9, 3.7574263136854897`*^9, 
  3.757849804593521*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"squaredampcolhel", "=", 
   RowBox[{"squaredamp", "//.", "helreplace"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.751783139496719*^9, 3.751783176162669*^9}, {
  3.757426672402183*^9, 3.757426672575006*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"polresult", "=", 
  RowBox[{"PolarizationSum", "[", "squaredampcolhel", "]"}]}]], "Input",
 CellChangeTimes->{{3.751783072777648*^9, 3.751783100717993*^9}, {
   3.751783178719594*^9, 3.7517831793981237`*^9}, {3.75178394378732*^9, 
   3.75178396320294*^9}, 3.757426677855386*^9}],

Cell[CellGroupData[{

Cell[BoxData["\<\"\\npreparing FORM code in /home/stefan/fc-pol-1.frm\"\>"], \
"Print",
 CellChangeTimes->{{3.751783088980714*^9, 3.751783101182513*^9}, 
   3.751783179826161*^9, 3.753010965011345*^9, 3.757426316760968*^9, 
   3.757849806514421*^9}],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{{3.751783088980714*^9, 3.751783101182513*^9}, 
   3.751783179826161*^9, 3.753010965011345*^9, 3.757426316760968*^9, 
   3.757849806528194*^9}],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{{3.751783088980714*^9, 3.751783101182513*^9}, 
   3.751783179826161*^9, 3.753010965011345*^9, 3.757426316760968*^9, 
   3.757849806645245*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "Alfa2"}], " ", 
  SuperscriptBox["\[Pi]", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Sub18", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        SuperscriptBox[
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}], "2"]}], "+", 
       FractionBox[
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"4", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "0"}], "]"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], "SW2"], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"4", " ", "SW2"}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["SW2", "2"]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}], "2"]}], 
        SuperscriptBox["SW2", "2"]]}], ")"}]}], "+", 
    RowBox[{"Sub15", " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"Den", "[", 
         RowBox[{"S", ",", "0"}], "]"}], "SW2"], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
         RowBox[{"Den", "[", 
          RowBox[{"S", ",", "MZ2"}], "]"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["SW2", "2"]}]]}], ")"}], " ", 
     RowBox[{"Den", "[", 
      RowBox[{"T", ",", "0"}], "]"}]}], "+", 
    FractionBox[
     RowBox[{"Sub7", " ", 
      SuperscriptBox[
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}], "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["SW2", "2"]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.751783089739462*^9, 3.7517831019058847`*^9}, 
   3.7517831806301394`*^9, 3.753010965897723*^9, 3.7574263168876247`*^9, 
   3.757849806646791*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"polresultabbr", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"polresult", "//.", 
     RowBox[{"Abbr", "[", "]"}]}], "//.", 
    RowBox[{"Subexpr", "[", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7517831050608797`*^9, 3.751783111850029*^9}, {
  3.751783204346951*^9, 3.7517832891971207`*^9}, {3.751783348513802*^9, 
  3.751783360713526*^9}, {3.7574266810177803`*^9, 3.75742668117479*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"4", " ", 
     SuperscriptBox["MW2", "2"], " ", 
     SuperscriptBox["SW2", "2"]}]], 
   RowBox[{"Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "20"}], " ", 
          SuperscriptBox["MW2", "4"]}], "+", 
         RowBox[{"20", " ", 
          SuperscriptBox["MW2", "3"], " ", "S"}], "-", 
         RowBox[{
          SuperscriptBox["S", "2"], " ", "T", " ", "U"}], "-", 
         RowBox[{"2", " ", "MW2", " ", "S", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["S", "2"], "+", 
            SuperscriptBox["T", "2"], "+", 
            SuperscriptBox["U", "2"]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["MW2", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"9", " ", 
             SuperscriptBox["S", "2"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["T", "2"]}], "+", 
            RowBox[{"4", " ", "T", " ", "U"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["U", "2"]}], "+", 
            RowBox[{"8", " ", "S", " ", 
             RowBox[{"(", 
              RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"8", " ", 
          SuperscriptBox["SW2", "2"], " ", 
          SuperscriptBox[
           RowBox[{"Den", "[", 
            RowBox[{"S", ",", "0"}], "]"}], "2"]}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"4", " ", "SW2"}]}], ")"}], " ", "SW2", " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "0"}], "]"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"4", " ", "SW2"}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["SW2", "2"]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"Den", "[", 
            RowBox[{"S", ",", "MZ2"}], "]"}], "2"]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"80", " ", 
          SuperscriptBox["MW2", "4"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["MW2", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", "S"}], "-", 
            RowBox[{"24", " ", "T"}], "-", 
            RowBox[{"10", " ", "U"}]}], ")"}]}], "-", 
         RowBox[{"S", " ", "T", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["S", "2"], "-", 
            RowBox[{"4", " ", "T", " ", "U"}], "+", 
            RowBox[{"S", " ", 
             RowBox[{"(", 
              RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", "MW2", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["S", "3"], "-", 
            RowBox[{
             SuperscriptBox["S", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"5", " ", "T"}], "+", 
               RowBox[{"2", " ", "U"}]}], ")"}]}], "+", 
            RowBox[{"S", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SuperscriptBox["T", "2"]}], "+", 
               RowBox[{"2", " ", "T", " ", "U"}], "-", 
               SuperscriptBox["U", "2"]}], ")"}]}], "+", 
            RowBox[{"2", " ", "U", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                SuperscriptBox["T", "2"]}], "+", 
               RowBox[{"2", " ", "T", " ", "U"}], "+", 
               SuperscriptBox["U", "2"]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["MW2", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["S", "2"], "+", 
            RowBox[{"S", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "3"}], " ", "T"}], "+", 
               RowBox[{"7", " ", "U"}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"9", " ", 
                SuperscriptBox["T", "2"]}], "+", 
               RowBox[{"8", " ", "T", " ", "U"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["U", "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "SW2", " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "0"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "SW2"}]}], ")"}], " ", 
          RowBox[{"Den", "[", 
           RowBox[{"S", ",", "MZ2"}], "]"}]}]}], ")"}], " ", 
       RowBox[{"Den", "[", 
        RowBox[{"T", ",", "0"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"136", " ", 
          SuperscriptBox["MW2", "4"]}], "+", 
         RowBox[{"2", " ", "MW2", " ", "S", " ", 
          RowBox[{"(", 
           RowBox[{"S", "-", 
            RowBox[{"8", " ", "T"}]}], ")"}], " ", "T"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["MW2", "2"], " ", "T", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "S"}], "+", 
            RowBox[{"5", " ", "T"}]}], ")"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["MW2", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"15", " ", "S"}], "+", 
            RowBox[{"23", " ", "T"}], "+", 
            RowBox[{"15", " ", "U"}]}], ")"}]}], "-", 
         RowBox[{"T", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["S", "3"], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["T", "2"], " ", "U"}], "+", 
            RowBox[{
             SuperscriptBox["S", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"Den", "[", 
         RowBox[{"T", ",", "0"}], "]"}], "2"]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.751783112250515*^9, {3.751783208305397*^9, 3.75178323564016*^9}, {
   3.751783268660411*^9, 3.751783289767082*^9}, 3.753011080441196*^9, 
   3.757426318689437*^9, 3.757849808990694*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"propsigma", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"2", "*", "S"}], ")"}]}], "*", 
    RowBox[{"Simplify", "[", 
     RowBox[{"polresultabbr", "//.", 
      RowBox[{
       RowBox[{"Den", "[", 
        RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}]}]}]}], "]"}]}], "//.", 
   RowBox[{"U", "\[Rule]", 
    RowBox[{
     RowBox[{"2", "*", "MW2"}], "-", "S", "-", "T"}]}]}]}]], "Input",
 CellChangeTimes->{{3.751784378697485*^9, 3.7517843798024406`*^9}, {
  3.7574263642851553`*^9, 3.757426409968788*^9}, {3.757426573360239*^9, 
  3.75742658533534*^9}, {3.757426622975893*^9, 3.7574266238350286`*^9}, {
  3.757426698839755*^9, 3.7574266993058443`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"8", " ", 
     SuperscriptBox["MW2", "2"], " ", "S", " ", 
     SuperscriptBox["SW2", "2"]}]], 
   RowBox[{"Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"MZ2", "-", "S"}], ")"}], "2"], " ", 
          SuperscriptBox["S", "2"]}]], 
        RowBox[{"4", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["S", "2"], "-", 
           RowBox[{"4", " ", "MZ2", " ", "S", " ", "SW2"}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["MZ2", "2"], " ", 
            SuperscriptBox["SW2", "2"]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"20", " ", 
            SuperscriptBox["MW2", "4"]}], "-", 
           RowBox[{"20", " ", 
            SuperscriptBox["MW2", "3"], " ", "S"}], "+", 
           RowBox[{
            SuperscriptBox["S", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], " ", 
            "T"}], "+", 
           RowBox[{"2", " ", "MW2", " ", "S", " ", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["S", "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], "2"],
               "+", 
              SuperscriptBox["T", "2"]}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["MW2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"8", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "MW2"}], "-", "S"}], ")"}], " ", "S"}], 
              "+", 
              RowBox[{"9", " ", 
               SuperscriptBox["S", "2"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], 
                "2"]}], "+", 
              RowBox[{"4", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], " ", 
               "T"}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["T", "2"]}]}], ")"}]}]}], ")"}]}]}]}], "+", 
      RowBox[{
       FractionBox["1", 
        SuperscriptBox["T", "2"]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"136", " ", 
          SuperscriptBox["MW2", "4"]}], "+", 
         RowBox[{"2", " ", "MW2", " ", "S", " ", 
          RowBox[{"(", 
           RowBox[{"S", "-", 
            RowBox[{"8", " ", "T"}]}], ")"}], " ", "T"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["MW2", "2"], " ", "T", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", " ", "S"}], "+", 
            RowBox[{"5", " ", "T"}]}], ")"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["MW2", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"15", " ", "S"}], "+", 
            RowBox[{"15", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}]}], "+", 
            
            RowBox[{"23", " ", "T"}]}], ")"}]}], "-", 
         RowBox[{"T", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "MW2"}], "-", "S"}], ")"}], " ", 
             SuperscriptBox["S", "2"]}], "+", 
            SuperscriptBox["S", "3"], "+", 
            RowBox[{"4", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], " ", 
             SuperscriptBox["T", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"MZ2", "-", "S"}], ")"}], " ", "S", " ", "T"}]], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"S", "-", 
          RowBox[{"2", " ", "MZ2", " ", "SW2"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "80"}], " ", 
           SuperscriptBox["MW2", "4"]}], "+", 
          RowBox[{
           SuperscriptBox["MW2", "3"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "12"}], " ", "S"}], "+", 
             RowBox[{"40", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}]}], "+", 
             RowBox[{"96", " ", "T"}]}], ")"}]}], "+", 
          RowBox[{"S", " ", "T", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "MW2"}], "-", "S"}], ")"}], " ", "S"}], "+", 
             SuperscriptBox["S", "2"], "-", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], " ", 
              "T"}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "MW2", " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["S", "3"], "-", 
             RowBox[{
              SuperscriptBox["S", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}]}], 
                "+", 
                RowBox[{"5", " ", "T"}]}], ")"}]}], "+", 
             RowBox[{"S", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], 
                  "2"]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], 
                 " ", "T"}], "+", 
                RowBox[{"3", " ", 
                 SuperscriptBox["T", "2"]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], 
                 "2"], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], 
                 " ", "T"}], "+", 
                RowBox[{"3", " ", 
                 SuperscriptBox["T", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["MW2", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["S", "2"], "+", 
             RowBox[{"S", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"7", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}]}], 
                "-", 
                RowBox[{"3", " ", "T"}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], 
                  "2"]}], "+", 
                RowBox[{"8", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "MW2"}], "-", "S", "-", "T"}], ")"}], 
                 " ", "T"}], "+", 
                RowBox[{"9", " ", 
                 SuperscriptBox["T", "2"]}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{
  3.751784380279482*^9, 3.753011249396839*^9, {3.757426369512488*^9, 
   3.757426410238199*^9}, 3.7574265860280313`*^9, 3.757426624531492*^9, 
   3.757426700183062*^9, 3.757849811185454*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"Expand", " ", "in", " ", "large", " ", 
   RowBox[{"S", ":"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.757426709473798*^9, 3.757426715078898*^9}, {
  3.7578507375811043`*^9, 3.757850738549808*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"propsigma2", "=", 
  RowBox[{
   RowBox[{"Normal", "[", 
    RowBox[{"Series", "[", 
     RowBox[{
      RowBox[{"propsigma", "//.", 
       RowBox[{"S", "\[Rule]", 
        RowBox[{"1", "/", "InvS"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"InvS", ",", "0", ",", "1"}], "}"}]}], "]"}], "]"}], "//.", 
   RowBox[{"InvS", "\[Rule]", 
    RowBox[{"1", "/", "S"}]}]}]}]], "Input",
 CellChangeTimes->{{3.757850695485791*^9, 3.757850727709135*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"2", " ", "Alfa2", " ", 
     SuperscriptBox["\[Pi]", "2"]}], 
    RowBox[{
     SuperscriptBox["SW2", "2"], " ", "T"}]]}], "-", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["MW2", "2"], "+", 
      RowBox[{"2", " ", "MW2", " ", "T"}], "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["T", "2"]}]}], ")"}]}], 
   RowBox[{"S", " ", 
    SuperscriptBox["SW2", "2"], " ", 
    SuperscriptBox["T", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.757850696702512*^9, 3.757850740091524*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"This", " ", "result", " ", "is", " ", "well", " ", 
   RowBox[{"behaved", ":"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.757426655930787*^9, 3.75742666153869*^9}, {
  3.757850623487577*^9, 3.7578506278226757`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{"propsigma2", ",", 
   RowBox[{"S", "\[Rule]", "\[Infinity]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7578498297498283`*^9, 3.757849838581411*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", "Alfa2", " ", 
    SuperscriptBox["\[Pi]", "2"]}], 
   RowBox[{
    SuperscriptBox["SW2", "2"], " ", "T"}]]}]], "Output",
 CellChangeTimes->{
  3.757849839046554*^9, {3.757850646309122*^9, 3.7578506765439997`*^9}, {
   3.757850712936471*^9, 3.7578507441677837`*^9}}]
}, Open  ]]
},
AutoGeneratedPackage->None,
WindowSize->{1855, 1056},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingPageRange->{1, 1},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{594.3000000000001, 840.51},
"PostScriptOutputFile"->"/home/stefan/Projekte/Higgsstrahlung/ggToHZ-5-5.nb.\
ps"},
ShowSelection->True,
FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1076, 21, 91, "Input"],
Cell[CellGroupData[{
Cell[1668, 47, 244, 3, 22, "Print"],
Cell[1915, 52, 272, 3, 24, "Print"],
Cell[2190, 57, 291, 3, 24, "Print"],
Cell[2484, 62, 243, 3, 22, "Print"],
Cell[2730, 67, 269, 3, 22, "Print"],
Cell[3002, 72, 258, 3, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3309, 81, 543, 15, 52, "Input"],
Cell[3855, 98, 5439, 153, 252, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9331, 256, 127, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[9483, 262, 343, 8, 24, "Print"],
Cell[9829, 272, 343, 8, 24, "Print"],
Cell[10175, 282, 343, 8, 24, "Print"],
Cell[10521, 292, 343, 8, 24, "Print"],
Cell[10867, 302, 4998, 123, 296, "Print"]
}, Open  ]],
Cell[15880, 428, 1623, 43, 69, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17540, 476, 1976, 42, 80, "Input"],
Cell[CellGroupData[{
Cell[19541, 522, 2747, 39, 22, "Print"],
Cell[22291, 563, 3183, 50, 24, "Print"],
Cell[25477, 615, 2768, 39, 24, "Print"],
Cell[28248, 656, 2988, 45, 24, "Print"],
Cell[31239, 703, 2745, 39, 22, "Print"],
Cell[33987, 744, 3174, 50, 24, "Print"],
Cell[37164, 796, 2747, 39, 22, "Print"],
Cell[39914, 837, 3384, 58, 24, "Print"],
Cell[43301, 897, 2745, 39, 22, "Print"],
Cell[46049, 938, 3059, 46, 24, "Print"],
Cell[49111, 986, 2769, 39, 22, "Print"],
Cell[51883, 1027, 2912, 44, 22, "Print"],
Cell[54798, 1073, 2945, 44, 22, "Print"],
Cell[57746, 1119, 2944, 44, 22, "Print"],
Cell[60693, 1165, 2978, 45, 24, "Print"],
Cell[63674, 1212, 2745, 39, 22, "Print"],
Cell[66422, 1253, 3021, 46, 24, "Print"],
Cell[69446, 1301, 3040, 47, 24, "Print"],
Cell[72489, 1350, 3040, 47, 24, "Print"],
Cell[75532, 1399, 3040, 47, 24, "Print"],
Cell[78575, 1448, 3040, 47, 24, "Print"],
Cell[81618, 1497, 2969, 45, 22, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[84636, 1548, 132, 2, 35, "Input"],
Cell[CellGroupData[{
Cell[84793, 1554, 2838, 43, 24, "Print"],
Cell[87634, 1599, 2838, 43, 24, "Print"],
Cell[90475, 1644, 66681, 1374, 296, "Print"],
Cell[157159, 3020, 18385, 376, 296, "Print"]
}, Open  ]],
Cell[175559, 3399, 6613, 138, 105, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[182209, 3542, 596, 10, 55, "Input"],
Cell[CellGroupData[{
Cell[182830, 3556, 2222, 32, 22, "Print"],
Cell[185055, 3590, 2520, 40, 24, "Print"],
Cell[187578, 3632, 2517, 40, 24, "Print"],
Cell[190098, 3674, 2519, 40, 24, "Print"],
Cell[192620, 3716, 2446, 38, 24, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[195115, 3760, 384, 9, 32, "Input"],
Cell[195502, 3771, 29807, 829, 1008, "Output"]
}, Open  ]],
Cell[225324, 4603, 617, 10, 32, "Input"],
Cell[CellGroupData[{
Cell[225966, 4617, 379, 7, 35, "Input"],
Cell[CellGroupData[{
Cell[226370, 4628, 293, 4, 42, "Print"],
Cell[226666, 4634, 256, 3, 24, "Print"],
Cell[226925, 4639, 247, 3, 41, "Print"]
}, Open  ]],
Cell[227187, 4645, 4681, 135, 129, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[231905, 4785, 221, 4, 32, "Input"],
Cell[232129, 4791, 40320, 1266, 2526, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272486, 6062, 492, 12, 52, "Input"],
Cell[272981, 6076, 184, 3, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273202, 6084, 120, 2, 32, "Input"],
Cell[273325, 6088, 5143, 115, 92, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[278505, 6208, 123, 2, 32, "Input"],
Cell[278631, 6212, 178, 3, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[278846, 6220, 690, 20, 74, "Input"],
Cell[CellGroupData[{
Cell[279561, 6244, 593, 10, 24, "Print"],
Cell[280157, 6256, 447, 6, 42, "Print"],
Cell[280607, 6264, 412, 5, 24, "Print"],
Cell[281022, 6271, 398, 5, 41, "Print"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[281469, 6282, 104, 1, 32, "Input"],
Cell[281576, 6285, 6576, 209, 468, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288189, 6499, 118, 2, 32, "Input"],
Cell[288310, 6503, 26473, 726, 1035, "Output"]
}, Open  ]],
Cell[314798, 7232, 241, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[315064, 7241, 302, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[315391, 7250, 249, 4, 42, "Print"],
Cell[315643, 7256, 212, 3, 24, "Print"],
Cell[315858, 7261, 201, 3, 41, "Print"]
}, Open  ]],
Cell[316074, 7267, 1954, 59, 121, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[318065, 7331, 432, 9, 32, "Input"],
Cell[318500, 7342, 6519, 180, 247, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[325056, 7527, 806, 21, 33, "Input"],
Cell[325865, 7550, 8571, 235, 188, "Output"]
}, Open  ]],
Cell[334451, 7788, 240, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[334716, 7797, 473, 13, 35, "Input"],
Cell[335192, 7812, 653, 20, 60, "Output"]
}, Open  ]],
Cell[335860, 7835, 257, 5, 32, "Input"],
Cell[CellGroupData[{
Cell[336142, 7844, 198, 4, 35, "Input"],
Cell[336343, 7850, 331, 9, 59, "Output"]
}, Open  ]]
}
]
*)