Lecture3-1.nb

(* 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[    179952,       4269]
NotebookOptionsPosition[    166038,       4073]
NotebookOutlinePosition[    166470,       4090]
CellTagsIndexPosition[    166427,       4087]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["QED calculation: 1-Loop Calculation", "Title",
 CellChangeTimes->{{3.536036981997404*^9, 3.536037029033853*^9}, {
   3.536052257002532*^9, 3.5360522778477297`*^9}, {3.537828530363748*^9, 
   3.537828534425561*^9}, 3.537861987599369*^9, {3.685351688364628*^9, 
   3.685351690914093*^9}},ExpressionUUID->"1837f240-1787-48f6-b138-\
47170b305ac6"],

Cell[CellGroupData[{

Cell["Initialization", "Subsection",
 CellChangeTimes->{{3.5360374730944557`*^9, 
  3.536037479508855*^9}},ExpressionUUID->"dbf399ac-000c-427d-9587-\
fc3b89e4585e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Quit", "[", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.685353733571887*^9, 
  3.685353734633164*^9}},ExpressionUUID->"7ee0b2f2-b5ce-47d3-b90f-\
d406427edc97"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"$Language", "=", "\"\<English\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "FeynArts`"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"<<", "FormCalc`"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"helicity", " ", "to", " ", "be", " ", "averaged"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"_Hel", "=", "0"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5360373787170563`*^9, 3.536037381121767*^9}, {
   3.5360374895751467`*^9, 3.536037548333282*^9}, {3.536037650722055*^9, 
   3.536037657410592*^9}, {3.5360379743666153`*^9, 3.5360380215197287`*^9}, {
   3.536038063766507*^9, 3.536038183907959*^9}, {3.536038388610857*^9, 
   3.53603838940345*^9}, {3.536045708094194*^9, 3.536045714062668*^9}, {
   3.536052625049251*^9, 3.536052625325549*^9}, {3.536053272279801*^9, 
   3.536053273111397*^9}, {3.583232290192971*^9, 3.583232300461088*^9}, {
   3.68489689816003*^9, 3.684896901527837*^9}, {3.684897289038597*^9, 
   3.684897301652774*^9}, 3.6849031798171377`*^9, {3.733278887311617*^9, 
   3.733278889407352*^9}},ExpressionUUID->"03dfddbe-15ae-45e9-a24c-\
e3a3727f7000"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446231341476`*^9, 3.728642397392928*^9, 
  3.73327888556236*^9},ExpressionUUID->"eb52383a-13e0-47a8-834a-28a3eb3a3adc"],

Cell[BoxData["\<\"FeynArts 3.10 (12 Mar 2018)\"\>"], "Print",
 CellChangeTimes->{3.7281446231341476`*^9, 3.728642397392928*^9, 
  3.733278885572907*^9},ExpressionUUID->"b3516c8c-a0aa-4c15-9422-\
70568f1ec3e0"],

Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{3.7281446231341476`*^9, 3.728642397392928*^9, 
  3.7332788855832872`*^9},ExpressionUUID->"721dd067-0055-4399-a076-\
0fc3069522aa"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446231341476`*^9, 3.728642397392928*^9, 
  3.733278885647596*^9},ExpressionUUID->"c9725141-9cf0-4bef-9684-\
0866658e3e6f"],

Cell[BoxData["\<\"FormCalc 9.6 (16 Apr 2018)\"\>"], "Print",
 CellChangeTimes->{3.7281446231341476`*^9, 3.728642397392928*^9, 
  3.7332788856569567`*^9},ExpressionUUID->"3ce6c754-d5b3-4f42-ac9c-\
36ea5c1b6d58"],

Cell[BoxData["\<\"by Thomas Hahn\"\>"], "Print",
 CellChangeTimes->{3.7281446231341476`*^9, 3.728642397392928*^9, 
  3.733278885666069*^9},ExpressionUUID->"095237f3-a513-4955-a0c2-\
53b3cca177ba"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Create Topology", "Subsection",
 CellChangeTimes->{{3.5360398319912243`*^9, 3.5360398413102627`*^9}, {
   3.536039916228428*^9, 3.53603992045197*^9}, {3.536053280853504*^9, 
   3.536053289164153*^9}, 
   3.537862112261355*^9},ExpressionUUID->"49d1a1ad-6b46-44cc-8e1c-\
c682a29f9ea2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"topo0", "=", 
   RowBox[{"CreateTopologies", "[", 
    RowBox[{"0", ",", 
     RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"topo1", "=", 
   RowBox[{"CreateTopologies", "[", 
    RowBox[{"1", ",", 
     RowBox[{"2", "\[Rule]", "2"}], ",", 
     RowBox[{"ExcludeTopologies", "\[Rule]", 
      RowBox[{"{", "Internal", "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"topo01", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"topo0", ",", "topo1"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Paint", "[", 
   RowBox[{"topo01", ",", " ", 
    RowBox[{"ColumnsXRows", "\[Rule]", "4"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5360398433189297`*^9, 3.536039858887414*^9}, {
   3.5360398916549*^9, 3.53603989217457*^9}, {3.5360457214194193`*^9, 
   3.536045731074902*^9}, {3.536052641845634*^9, 3.536052642668128*^9}, {
   3.5360532647260027`*^9, 3.5360532794224253`*^9}, {3.537767435950741*^9, 
   3.537767459217078*^9}, {3.537861556533675*^9, 3.537861557122609*^9}, 
   3.5832322968843613`*^9, {3.684896930965775*^9, 3.684896993844672*^9}, {
   3.685351699746044*^9, 3.6853517016577587`*^9}, 3.6853518352315474`*^9, {
   3.6853520622974243`*^9, 
   3.685352076062842*^9}},ExpressionUUID->"d616f5b3-3741-4a57-99b2-\
469207fa8515"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebe/cede/0.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 1, " ", "aebe/cede/0.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.7332788913472958`*^9},ExpressionUUID->"5df11756-6aa3-437e-aa57-\
12281081636f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebe/cfdf/ef.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 2, " ", "aebe/cfdf/ef.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891354609*^9},ExpressionUUID->"72d24e6e-031d-4e4e-959e-\
4b006959a7d4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cedf/ef.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 3, " ", "aebf/cedf/ef.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891363316*^9},ExpressionUUID->"3485e19a-c9f3-4a56-a15e-\
3c5cb9d348e5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cfde/ef.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 4, " ", "aebf/cfde/ef.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891372542*^9},ExpressionUUID->"987df778-8e17-4f8a-a04e-\
fbb20abecf1f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgdg/efegfg.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 5, " ", "aebf/cgdg/efegfg.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891381081*^9},ExpressionUUID->"a1fbc016-f180-4215-999a-\
232e024dca5a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgdf/egefgf.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 6, " ", "aebf/cgdf/egefgf.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891389865*^9},ExpressionUUID->"21043c91-65e2-4c28-a598-\
ea729e7fa0d2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cfdg/egefgf.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 7, " ", "aebf/cfdg/egefgf.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891398864*^9},ExpressionUUID->"3c0a139a-9ae0-40e8-a6ae-\
2f40a4a4caee"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgde/fgfege.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 8, " ", "aebf/cgde/fgfege.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891408353*^9},ExpressionUUID->"ef08c59c-58b4-482d-b863-\
21f27c231c5f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cedg/fgfege.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 9, " ", "aebf/cedg/fgfege.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891416978*^9},ExpressionUUID->"23238802-53a3-4b7c-9b57-\
73365e004b8d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebe/cfdg/fgfege.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 10, " ", "aebe/cfdg/fgfege.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891425971*^9},ExpressionUUID->"6bd02903-9ed9-48d5-9809-\
829182605317"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgdh/efegfhgh.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 11, " ", "aebf/cgdh/efegfhgh.m", ", ", "1 diagram"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891435528*^9},ExpressionUUID->"4d7f9c6e-bb58-4453-9a55-\
32c758b3004e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgdh/efehfggh.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 12, " ", "aebf/cgdh/efehfggh.m", ", ", "1 diagram"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891444503*^9},ExpressionUUID->"40fd0885-50dd-4915-a514-\
5f23769b56ce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "13", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgdh/egehfgfh.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 13, " ", "aebf/cgdh/egehfgfh.m", ", ", "1 diagram"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891453384*^9},ExpressionUUID->"61356cd6-b301-4b14-9be5-\
39f066d7bf5a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "14", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebe/cfdf/efef.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 14, " ", "aebe/cfdf/efef.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891462336*^9},ExpressionUUID->"a386debd-c329-4178-9665-\
56dc90cfc2bd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "15", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cedf/efef.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 15, " ", "aebf/cedf/efef.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891470736*^9},ExpressionUUID->"11d41a00-1a4b-4511-8193-\
a83efc044a71"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "16", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cfde/efef.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 16, " ", "aebf/cfde/efef.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.7332788914798813`*^9},ExpressionUUID->"22d52268-092a-422a-93c5-\
c27513f79c5a"],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {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->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebe/cede/0.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebe/cede/0.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 66}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {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.000000000007276`, 15.000000000003638`}, {
         14.000000000005457`, 10.000000000003638`}}], 
        LineBox[{{20.00000000000182, 5.000000000001819}, {14., 10.}}], 
        LineBox[{{5.999999999990211, 10.}, {13.99999999998223, 10.}}], 
        {PointSize[0.04], PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T2",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebe/cfdf/ef.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebe/cfdf/ef.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 66}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, {
         9.999999999997726, 14.000000000003638`}}], 
        LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
         9.999999999988404, 6.}}], 
        LineBox[{{20.000000000002956`, 14.999999999996362`}, {
         10.000000000002956`, 13.999999999996362`}}], 
        LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726,
          5.999999999996362}}], 
        LineBox[{{10., 14.000000000000908`}, {10., 6.000000000000009}}], 
        {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T3",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cedf/ef.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cedf/ef.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 66}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, {
         9.999999999997726, 14.000000000003638`}}], 
        LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
         9.999999999988404, 6.}}], 
        LineBox[{{20.00000000000182, 15.}, {10., 6.}}], 
        LineBox[{{20.00000000000182, 4.999999999998181}, {10., 
         13.999999999998181`}}], 
        LineBox[{{10., 14.000000000000908`}, {10., 6.000000000000009}}], 
        {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T4",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cfde/ef.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cfde/ef.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {66, 66}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{5.4569682106375694`*^-12, 15.}, {6.0000000000027285`, 
         13.5}}], 
        LineBox[{{4.547473508864641*^-12, 5.000000000003638}, {
         6.0000000000027285`, 6.5}}], 
        LineBox[{{20.00000000000182, 15.000000000003638`}, {12., 
         10.000000000003638`}}], 
        LineBox[{{20., 5.}, {12.000000000001819`, 10.}}], 
        LineBox[{{6., 13.500000000002307`}, {6., 6.499999999998607}}], 
        LineBox[{{6.000000000001819, 13.500000000003638`}, {
         12.000000000005457`, 10.}}], 
        LineBox[{{5.999999999983629, 6.499999999992724}, {11.999999999987267`,
          9.999999999996362}}], 
        {PointSize[0.04], PointBox[{6., 13.5}], PointBox[{6., 6.5}], 
         PointBox[{12., 10.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T5",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgdg/efegfg.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgdg/efegfg.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-3.637978807091713*^-12, 15.}, {6.499999999992724, 13.}}], 
        LineBox[{{5.4569682106375694`*^-12, 5.}, {10.000000000010914`, 
         7.000000000003638}}], 
        LineBox[{{20.000000000003638`, 15.000000000003638`}, {
         13.500000000001819`, 13.000000000003638`}}], 
        LineBox[{{19.999999999997726`, 5.}, {9.999999999996817, 7.}}], 
        LineBox[{{6.4999999999976925`, 13.}, {13.49999999999251, 13.}}], 
        LineBox[{{6.499999999996362, 13.000000000007276`}, {10., 
         7.000000000005457}}], 
        LineBox[{{13.500000000007276`, 13.000000000005457`}, {
         10.000000000003638`, 7.000000000001819}}], 
        {PointSize[0.04], PointBox[{6.5, 13.}], PointBox[{13.5, 13.}], 
         PointBox[{10., 7.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T6",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgdf/egefgf.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgdf/egefgf.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-3.637978807091713*^-12, 15.}, {6.499999999992724, 13.}}], 
        LineBox[{{5.4569682106375694`*^-12, 5.}, {10.000000000010914`, 
         7.000000000003638}}], 
        LineBox[{{20., 15.000000000001819`}, {10.000000000001819`, 
         7.000000000001819}}], 
        LineBox[{{20., 5.000000000001819}, {13.5, 13.}}], 
        LineBox[{{6.4999999999976925`, 13.}, {13.49999999999251, 13.}}], 
        LineBox[{{6.499999999996362, 13.000000000007276`}, {10., 
         7.000000000005457}}], 
        LineBox[{{13.500000000007276`, 13.000000000005457`}, {
         10.000000000003638`, 7.000000000001819}}], 
        {PointSize[0.04], PointBox[{6.5, 13.}], PointBox[{13.5, 13.}], 
         PointBox[{10., 7.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T7",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cfdg/egefgf.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cfdg/egefgf.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-2.7284841053187847`*^-12, 15.}, {10.000000000002728`, 
         13.}}], LineBox[{{-3.637978807091713*^-12, 4.999999999996362}, {
         6.499999999994543, 6.999999999996362}}], 
        LineBox[{{20.00000000000182, 15.}, {13.500000000001819`, 7.}}], 
        LineBox[{{20.00000000000182, 4.999999999998181}, {10.000000000001819`,
          13.}}], 
        LineBox[{{6.4999999999976925`, 7.}, {13.49999999999251, 7.}}], 
        LineBox[{{6.499999999996362, 6.999999999998181}, {9.999999999996362, 
         13.}}], LineBox[{{13.5, 7.}, {10., 13.000000000001819`}}], 
        {PointSize[0.04], PointBox[{6.5, 7.}], PointBox[{13.5, 7.}], 
         PointBox[{10., 13.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T8",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgde/fgfege.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgde/fgfege.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {66, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-2.7284841053187847`*^-12, 15.}, {10.000000000002728`, 
         13.}}], LineBox[{{-3.637978807091713*^-12, 4.999999999996362}, {
         6.499999999994543, 6.999999999996362}}], 
        LineBox[{{20.00000000000773, 15.}, {10.000000000006821`, 13.}}], 
        LineBox[{{19.99999999999909, 5.}, {13.499999999997272`, 7.}}], 
        LineBox[{{6.4999999999976925`, 7.}, {13.49999999999251, 7.}}], 
        LineBox[{{6.499999999996362, 6.999999999998181}, {9.999999999996362, 
         13.}}], LineBox[{{13.5, 7.}, {10., 13.000000000001819`}}], 
        {PointSize[0.04], PointBox[{6.5, 7.}], PointBox[{13.5, 7.}], 
         PointBox[{10., 13.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T9",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cedg/fgfege.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cedg/fgfege.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-9.094947017729282*^-12, 15.000000000003638`}, {
         7.999999999983629, 10.000000000010914`}}], 
        LineBox[{{-7.275957614183426*^-12, 4.999999999992724}, {
         7.999999999987267, 9.999999999989086}}], 
        LineBox[{{20.000000000011823`, 15.}, {14.000000000013642`, 13.5}}], 
        LineBox[{{19.99999999999909, 5.}, {14.00000000000091, 6.5}}], 
        LineBox[{{14., 13.500000000002307`}, {14., 6.499999999998607}}], 
        LineBox[{{14.000000000007276`, 13.500000000003638`}, {
         8.000000000003638, 10.}}], 
        LineBox[{{13.999999999998181`, 6.5}, {7.999999999998181, 
         9.999999999996362}}], 
        {PointSize[0.04], PointBox[{14., 13.5}], PointBox[{14., 6.5}], 
         PointBox[{8., 10.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T10",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebe/cfdg/fgfege.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebe/cfdg/fgfege.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-1.3642420526593924`*^-11, 15.000000000003638`}, {
         6.499999999988177, 13.500000000003638`}}], 
        LineBox[{{2.7284841053187847`*^-12, 5.}, {6.500000000003638, 
         6.500000000003638}}], 
        LineBox[{{20.000000000006366`, 14.999999999996362`}, {
         13.500000000004547`, 13.5}}], 
        LineBox[{{20., 5.}, {13.49999999999909, 6.5}}], 
        LineBox[{{6.5, 13.500000000002307`}, {6.5, 6.499999999998607}}], 
        LineBox[{{6.4999999999976925`, 13.5}, {13.49999999999251, 13.5}}], 
        LineBox[{{6.4999999999976925`, 6.5}, {13.49999999999251, 6.5}}], 
        LineBox[{{13.5, 13.500000000002307`}, {13.5, 6.499999999998607}}], 
        {PointSize[0.04], PointBox[{6.5, 13.5}], PointBox[{6.5, 6.5}], 
         PointBox[{13.5, 13.5}], PointBox[{13.5, 6.5}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T11",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgdh/efegfhgh.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgdh/efegfhgh.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-1.3642420526593924`*^-11, 15.000000000003638`}, {
         6.499999999988177, 13.500000000003638`}}], 
        LineBox[{{2.7284841053187847`*^-12, 5.}, {6.500000000003638, 
         6.500000000003638}}], 
        LineBox[{{20.000000000003638`, 15.000000000007276`}, {
         13.500000000005457`, 6.500000000009095}}], 
        LineBox[{{20.00000000000182, 5.}, {13.500000000001819`, 13.5}}], 
        LineBox[{{6.5, 13.500000000002307`}, {6.5, 6.499999999998607}}], 
        LineBox[{{6.4999999999976925`, 13.5}, {13.49999999999251, 13.5}}], 
        LineBox[{{6.4999999999976925`, 6.5}, {13.49999999999251, 6.5}}], 
        LineBox[{{13.5, 6.4999999999976925`}, {13.5, 13.49999999999251}}], 
        {PointSize[0.04], PointBox[{6.5, 13.5}], PointBox[{6.5, 6.5}], 
         PointBox[{13.5, 6.5}], PointBox[{13.5, 13.5}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T12",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgdh/efehfggh.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgdh/efehfggh.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {66, 22}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-7.275957614183426*^-12, 15.}, {13.499999999987722`, 13.}}],
         LineBox[{{-7.275957614183426*^-12, 5.}, {6.499999999989086, 6.}}], 
        LineBox[{{20.000000000002274`, 15.}, {6.500000000002274, 13.}}], 
        LineBox[{{19.999999999998636`, 5.}, {13.499999999998181`, 6.}}], 
        LineBox[{{13.500000000001851`, 13.}, {6.500000000002592, 13.}}], 
        LineBox[{{13.5, 13.000000000002307`}, {13.5, 5.999999999998607}}], 
        LineBox[{{6.5, 5.9999999999976925`}, {6.5, 12.99999999999251}}], 
        LineBox[{{6.4999999999976925`, 6.}, {13.49999999999251, 6.}}], 
        {PointSize[0.04], PointBox[{13.5, 13.}], PointBox[{6.5, 6.}], 
         PointBox[{6.5, 13.}], PointBox[{13.5, 6.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T13",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgdh/egehfgfh.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgdh/egehfgfh.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {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.000000000007276`, 15.000000000003638`}, {
         14.000000000005457`, 10.000000000003638`}}], 
        LineBox[{{20.00000000000182, 5.000000000001819}, {14., 10.}}], 
        CircleBox[{10., 10.899999999999999}, 4.1, {3.3629070959375835`, 
         6.0618708648317945`}], 
        CircleBox[{10., 9.100000000000001}, 4.1, {0.2213144423477913, 
         2.9202782112420023`}], 
        {PointSize[0.04], PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T14",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebe/cfdf/efef.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebe/cfdf/efef.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{1.8189894035458565`*^-12, 15.000000000003638`}, {
         9.999999999997726, 14.000000000003638`}}], 
        LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, {
         9.999999999988404, 6.}}], 
        LineBox[{{20.000000000002956`, 14.999999999996362`}, {
         10.000000000002956`, 13.999999999996362`}}], 
        LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726,
          5.999999999996362}}], 
        CircleBox[{10.899999999999999, 10.}, 4.1, {1.792110769142687, 
         4.491074538036898}], 
        CircleBox[{9.100000000000001, 10.}, 4.1, {-1.3494818844471055`, 
         1.3494818844471055`}], 
        {PointSize[0.04], PointBox[{10., 14.}], PointBox[{10., 6.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox["T15",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cedf/efef.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cedf/efef.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-1.3415046851150692`*^-11, 15.000000000003638`}, {
         9.499999999994998, 14.500000000003638`}}], 
        LineBox[{{-4.774847184307873*^-12, 5.000000000003638}, {
         9.50000000000341, 5.500000000003638}}], 
        LineBox[{{19.99999999999818, 15.}, {9.499999999998181, 5.5}}], 
        LineBox[{{19.99999999999818, 4.999999999998181}, {9.500000000001819, 
         14.499999999998181`}}], 
        CircleBox[{10.5125, 10.}, 4.6125, {1.792110769142687, 
         4.491074538036898}], 
        CircleBox[{5.43143243243243, 10.}, 
         6.066567567567569, {-0.8357062686951535, 0.8357062686951535}], 
        {PointSize[0.04], PointBox[{9.5, 14.5}], PointBox[{9.5, 5.5}]}, 
        InsetBox[
         TagBox[
          StyleBox[
           TagBox["T16",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->6.137505285412264],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           6.137505285412264]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cfde/efef.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cfde/efef.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {66, 0}, {0, 0}, {22, 22}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["2",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->9.206257928118395],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      9.206257928118395]& ], {39.5, 91.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[RightArrow]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->9.206257928118395],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      9.206257928118395]& ], {44., 91.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["2",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->9.206257928118395],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      9.206257928118395]& ], {48.5, 91.96}, {0, 0}]},
  AspectRatio->1.075,
  ImageSize->{288, 288},
  PlotRange->{{0, 88}, {0, 94.6}}]], "Print",
 CellChangeTimes->{3.728144624546269*^9, 3.728642398287581*^9, 
  3.733278891494672*^9},ExpressionUUID->"d06cf7ba-3000-4ed5-8bd8-\
7e553a8a659a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["e", "+"], 
     SuperscriptBox["e", "-"]}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["\[Mu]", "+"], 
     SuperscriptBox["\[Mu]", "-"]}]}], TraditionalForm]],ExpressionUUID->
  "e7ea74b0-81ec-4f2c-9ee7-6f31f383d033"],
 ": QED tree-level and1-loop diagrams"
}], "Subsection",
 CellChangeTimes->{{3.5360399097567263`*^9, 3.536039928076377*^9}, {
  3.536053291836194*^9, 3.536053298771755*^9}, {3.537862049238858*^9, 
  3.537862051429103*^9}, {3.684897025134082*^9, 3.68489703864111*^9}, {
  3.684897101184819*^9, 3.6848971031852713`*^9}, {3.684897147378847*^9, 
  3.684897149146576*^9}, {3.684897180009302*^9, 3.684897186281127*^9}, {
  3.6849000278310413`*^9, 3.684900042534564*^9}, {3.6849002652588663`*^9, 
  3.684900265900948*^9}, {3.685351716706174*^9, 3.685351752717346*^9}, {
  3.685351899419105*^9, 
  3.6853519065631533`*^9}},ExpressionUUID->"eeeb3bb2-84a8-44b8-9df0-\
57a63327f1d0"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"process", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"F", "[", 
       RowBox[{"2", ",", 
        RowBox[{"{", "1", "}"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"F", "[", 
        RowBox[{"2", ",", 
         RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"F", "[", 
       RowBox[{"2", ",", 
        RowBox[{"{", "2", "}"}]}], "]"}], ",", 
      RowBox[{"-", 
       RowBox[{"F", "[", 
        RowBox[{"2", ",", 
         RowBox[{"{", "2", "}"}]}], "]"}]}]}], "}"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TreeDiagrams", " ", "=", " ", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"topo0", ",", "process", ",", 
     RowBox[{"InsertionLevel", "\[Rule]", 
      RowBox[{"{", "Classes", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ExcludeParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"V", "[", "2", "]"}], ",", 
        RowBox[{"V", "[", "3", "]"}], ",", 
        RowBox[{"V", "[", "4", "]"}], ",", "S"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"OneLoopDiagrams", " ", "=", " ", 
   RowBox[{"InsertFields", "[", 
    RowBox[{"topo1", ",", "process", ",", 
     RowBox[{"InsertionLevel", "\[Rule]", 
      RowBox[{"{", "Classes", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"ExcludeParticles", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"V", "[", "2", "]"}], ",", 
        RowBox[{"V", "[", "3", "]"}], ",", 
        RowBox[{"V", "[", "4", "]"}], ",", "S"}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FullDiagrams", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"TreeDiagrams", ",", "OneLoopDiagrams"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Paint", "[", "FullDiagrams", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.53603993169267*^9, 3.536040006745463*^9}, {
   3.5360400491143827`*^9, 3.5360400712109747`*^9}, {3.536045734812549*^9, 
   3.536045749085781*^9}, {3.536052645160928*^9, 3.536052786085621*^9}, {
   3.536052960903105*^9, 3.536053014006845*^9}, {3.5360531281787643`*^9, 
   3.536053129002655*^9}, {3.536053307196266*^9, 3.536053330947126*^9}, {
   3.536053378585105*^9, 3.536053389088366*^9}, {3.537767465584626*^9, 
   3.537767471873476*^9}, {3.53786158750252*^9, 3.53786161036182*^9}, {
   3.684897134001669*^9, 3.684897256798924*^9}, {3.684900046572982*^9, 
   3.6849000553696136`*^9}, {3.684901682632419*^9, 3.684901723276326*^9}, {
   3.6849019415250883`*^9, 3.684901946117729*^9}, 3.685351712969858*^9, {
   3.6853517583835917`*^9, 3.685351787950777*^9}, 3.685351818947904*^9, {
   3.685351910818872*^9, 3.685351913323368*^9}, {3.6853519855421543`*^9, 
   3.685351990670713*^9}, {3.6853520881739073`*^9, 
   3.6853520913541107`*^9}},ExpressionUUID->"2cd5f60c-36b4-43cc-a9e7-\
74e4e58411fe"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894493902*^9},ExpressionUUID->"fe9da9ac-affd-4789-a1c1-\
c24b46ce1f08"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"generic\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/Lorentz.gen\"\>"}],
  
  SequenceForm[
  "", "loading ", "generic", " model file ", 
   "/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/Lorentz.gen"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894503099*^9},ExpressionUUID->"8f90b124-ecfc-47d6-81a3-\
331946d65b24"],

Cell[BoxData["\<\"> $GenericMixing is OFF\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788945141783`*^9},ExpressionUUID->"e720af64-128f-435c-8cd5-\
0bbdcc52dc8d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Lorentz\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["generic model ", {"Lorentz"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894525083*^9},ExpressionUUID->"4d700171-fc13-4b54-bf5b-\
8726d7c5f656"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788945359087`*^9},ExpressionUUID->"d300c8dd-5d0c-421d-b3a7-\
9d7d0e383dcd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", 
   "\[InvisibleSpace]", "\<\"classes\"\>", 
   "\[InvisibleSpace]", "\<\" model file \"\>", 
   "\[InvisibleSpace]", \
"\<\"/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/SM.mod\"\>"}],
  SequenceForm[
  "", "loading ", "classes", " model file ", 
   "/Users/misho/.ghq/github.com/HEPcodes/FeynArts/Models/SM.mod"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894546226*^9},ExpressionUUID->"4c9d9b1b-c103-4bb0-bb48-\
1d6defee8fda"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894557084*^9},ExpressionUUID->"c0ede30c-3d55-4f68-958d-\
0fe527c315ca"],

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.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894568062*^9},ExpressionUUID->"b9da796c-8217-4744-a8c4-\
43353f103a17"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894579143*^9},ExpressionUUID->"3b08b28c-5aea-45d1-8eae-\
1ee35d49719f"],

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.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788945894814`*^9},ExpressionUUID->"31a10c6b-f092-4002-b492-\
26d48c34e1fe"],

Cell[BoxData["\<\"> $CounterTerms are ON\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894599731*^9},ExpressionUUID->"0629e918-29dd-4652-963d-\
db7edb430f71"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "88", 
   "\[InvisibleSpace]", "\<\" vertices\"\>"}],
  SequenceForm["> ", 88, " vertices"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894610189*^9},ExpressionUUID->"2ab36c55-779e-4e00-ba9c-\
9c2aeae55d14"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "115", 
   "\[InvisibleSpace]", "\<\" counterterms of order 1\"\>"}],
  SequenceForm["> ", 115, " counterterms of order 1"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894620598*^9},ExpressionUUID->"0c03502f-bd8d-42b8-9227-\
370000a6d14e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\" counterterms of order 2\"\>"}],
  SequenceForm["> ", 6, " counterterms of order 2"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894631856*^9},ExpressionUUID->"2851cbb0-f203-46b1-a572-\
98793c023725"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"SM\"\>", "}"}], 
   "\[InvisibleSpace]", "\<\" initialized\"\>"}],
  SequenceForm["classes model ", {"SM"}, " initialized"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894642426*^9},ExpressionUUID->"bbb1d163-acc0-4c2e-94ff-\
1bdd4194528a"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894653263*^9},ExpressionUUID->"d87f68b7-bb93-4694-96b6-\
e6c16723a92a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Excluding ", 1, " Generic, ", 7, " Classes, and ", 7, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894663434*^9},ExpressionUUID->"96a2c797-1480-468f-b5ba-\
6ae9acde1134"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894674213*^9},ExpressionUUID->"c100ea0a-407e-4e05-989c-\
53a7775fd2a6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "Classes", "}"}]}],
  SequenceForm["inserting at level(s) ", {FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788946853313`*^9},ExpressionUUID->"25161b06-e52b-45a0-a9a0-\
2c97a98aab60"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894696183*^9},ExpressionUUID->"63606469-a6ab-4f08-a004-\
e66dc798bf61"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Classes insertion"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894707445*^9},ExpressionUUID->"a5dd025a-e989-4669-94bc-\
fdf9fad02103"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894716242*^9},ExpressionUUID->"24a8fae3-f946-4974-acdb-\
56428d475144"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894725194*^9},ExpressionUUID->"7378a527-e4ab-4e3c-b3a7-\
4db954b09a72"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788947344093`*^9},ExpressionUUID->"d4aae888-a761-4da5-b98e-\
fe2caf4406c4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Restoring ", 1, " Generic, ", 7, " Classes, and ", 7, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788947429323`*^9},ExpressionUUID->"7057e682-b8ef-43ef-9678-\
fbe200ae86a3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}],
  SequenceForm["in total: ", "1 Classes insertion"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894751431*^9},ExpressionUUID->"28593adb-2ccc-44f3-895b-\
cd28f60a776e"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788947599163`*^9},ExpressionUUID->"f1bfde46-728a-43ed-828c-\
6e5f3c4bed78"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Excluding \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Excluding ", 1, " Generic, ", 7, " Classes, and ", 7, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894768743*^9},ExpressionUUID->"01e24834-05ad-41b8-a80a-\
a0a64edf776f"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894778247*^9},ExpressionUUID->"16e5422f-fb8d-452a-aa68-\
41338a4e9219"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "Classes", "}"}]}],
  SequenceForm["inserting at level(s) ", {FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894786994*^9},ExpressionUUID->"e2c2efa4-704f-47ef-9f21-\
be6e44204f1b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894795884*^9},ExpressionUUID->"18f2f2c4-e79d-4f84-ae37-\
66f8ccd5e49f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894804994*^9},ExpressionUUID->"2cfc8fc1-fea8-4b48-adcf-\
35871994fb8a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894814517*^9},ExpressionUUID->"6e25ba73-9189-4140-a7ea-\
65186ae2ed94"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 4, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894823134*^9},ExpressionUUID->"ff7c020c-93fb-475d-8eca-\
ef0aaad68bc7"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 5, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894832211*^9},ExpressionUUID->"327554e6-b06e-41d0-b30d-\
7a3bf6c0870e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 6, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788948416443`*^9},ExpressionUUID->"4214798f-bcf8-4772-9e12-\
a5d053aaf3f1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}],
  SequenceForm["> Top. ", 7, ": ", "1 Classes insertion"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894850271*^9},ExpressionUUID->"927ef92f-856f-44d3-be78-\
bb2fc55799ca"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes insertion\"\>"}],
  SequenceForm["> Top. ", 8, ": ", "1 Classes insertion"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788948597717`*^9},ExpressionUUID->"c053ee17-7d8f-451d-a243-\
33595e9ab42d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 9, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894928371*^9},ExpressionUUID->"bab19516-8f74-4235-9fe2-\
12c5fe341497"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 10, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894937851*^9},ExpressionUUID->"9e14a14e-62cc-4990-b8bd-\
307f559f1f27"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 11, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.73327889494538*^9},ExpressionUUID->"7e517e4b-e6eb-421e-b0d7-ded1f45a453b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"0 Classes insertions\"\>"}],
  SequenceForm["> Top. ", 12, ": ", "0 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894953545*^9},ExpressionUUID->"e137a4f6-556d-473c-9315-\
55ab7c6e6d3c"],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894961347*^9},ExpressionUUID->"b5a8290a-f533-4af4-af45-\
ac377c9c40cf"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"Restoring \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" Generic, \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Classes, and \"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" Particles fields\"\>"}],
  SequenceForm[
  "Restoring ", 1, " Generic, ", 7, " Classes, and ", 7, " Particles fields"],
  
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278894968934*^9},ExpressionUUID->"b9f4add8-ff6d-4473-ba38-\
1171e083b5f2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"2 Classes insertions\"\>"}],
  SequenceForm["in total: ", "2 Classes insertions"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788949761877`*^9},ExpressionUUID->"960fcded-f6e7-46fd-bbea-\
59796c27ae89"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebe/cfdf/ef.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 1, " ", "aebe/cfdf/ef.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.73327889498363*^9},ExpressionUUID->"8a80496d-4334-4939-a203-241404bb55a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgdh/efegfhgh.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 2, " ", "aebf/cgdh/efegfhgh.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788949912148`*^9},ExpressionUUID->"85eeea63-2e88-4702-92d5-\
cace62df5d7b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" \"\>", 
   "\[InvisibleSpace]", "\<\"aebf/cgdh/efehfggh.m\"\>", 
   "\[InvisibleSpace]", "\<\", \"\>", 
   "\[InvisibleSpace]", "\<\"1 diagram\"\>"}],
  SequenceForm["> Top. ", 3, " ", "aebf/cgdh/efehfggh.m", ", ", "1 diagram"],
  Editable->False]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.7332788949985037`*^9},ExpressionUUID->"fe56b3e9-31e4-4d3b-a9a0-\
4be1a4b4aa3d"],

Cell[BoxData[
 GraphicsBox[{InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {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}, \
{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}, \
{-1, 1}], 
        LineBox[{{20.000000000007276`, 15.000000000003638`}, {
         14.000000000005457`, 10.000000000003638`}}], 
        PolygonBox[{{17.460932767758425`, 12.884110639798688`}, {
         16.282993472375782`, 12.423177872040261`}, {16.795140992107367`, 
         11.808600848362362`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {16.61251418052006, 13.085942983375933}, \
{1, -1}], LineBox[{{20.00000000000182, 5.000000000001819}, {14., 10.}}], 
        PolygonBox[{{16.539067232241575`, 7.8841106397986875`}, {
         17.717006527624218`, 7.423177872040263}, {17.204859007892633`, 
         6.808600848362362}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {17.38748581947994, 8.085942983375933}, \
{-1, -1}], LineBox[CompressedData["
1:eJxFlH9QVFUUx98CbTFkM00yICzL7t4bCyKzbrcknaRjTQI22IozsSM1sNA+
QCcxoVQSsEiymQgx2PYZCSbpgn+QQCYzMq4SC8htQWAa/FVGghAw7qhTQcl2
6I/bm3nz5jP3vXfvOef7/epzCtPtAZIkbcF76Tk75scrHqT/LgqaidOOyxz5
ser5Taso5Hxf81mdgpydJWm2UnjpYrnGJiNbw2wnC/F982JWAlvikPqcMgqD
iTnZC/6VIIE9tKyUwt4Pw5b1ceT8d7uXv00hIO0uOBTkvd7OhNcobO2d7H1L
Rk6pXiwxUiidOSgzhny4xHl7gUBd8PCvKgnZ8t2mOS+B5ulu9RCPA8nXZQpq
JuBMSf/2KwVZV3FprIqAxZAxsF1GPuD8wnOAgEOezUhkyLcmI3ZUELAHs/xA
CTn2YPHuOgIX20Y0gzwWpL8enTzeQaDCxRuOKsjWVKv2JoHYdKtWlpEtU9mT
wRSmMvsumRnylKpl13MUTO3xrQ/9RuxfkjFzG4VzZwrm+zly35HC0GIKFfOv
NDsUZPfwqnfKKdSZi87lysgu5lG/T0E99/lyM1ta147a8ih0ud1fL/pjcL+q
n+9upPDwxOLLnCOnBB9qj6LQ2HLvqqIgW91NPT4Cnr/pq3kysnR9rr2HgCZx
beWzDNlVu+HKcQKu3LMVKgl59Y24qk8IrB8zbfTyp0E6pC69U04g6OPbY0cV
ZNePu5+sJDD4pzYtT0a25Ewnf0ngvdzhs4whP1/70cx5XL/5SJwkIfs6To9M
EkgvaWrjnOI8r5Lhp/B8gaY3FAX5cK8qI4nC5ihXjCwj+6ytOhuF3sBfQhhD
Xv3HhvE9FOK9S/ojOL91RwawPw0XdA84J2I9/GQG1kvE9z0Xhk7IMhH/DzJk
pjFGxP6Oifmf/H6DOJ8vKyGVc4M4f2XTrTanYhD1bQmNNNplg6g/dmaw08wM
oj9dWan7F/160b+1ds++Aa4X/a1uvNbhVPSi/z3hy7BevZhPfrTqPGN6MT/l
etKbKkkv5mtp3THj5Tox/ys1nybXKzqhj9/6O18vkHVCP8d+r1OvYTqhL+P0
iCVA0gn9LXh3ltQr0UKf+8c3dzMWLfTbdMfuvsy1/+t7JMNjk7VC/1KxYpr3
Rwl/HOuMsdQoUcI/jz+wFKxkUcJfJae2NfzANcJ/+9r33MuSNcKfjUWZL/zj
jxT+PWO7/4yiRAp/q1vMu9awSOH/vlld2QiPEPlw7YOhiUI5QuTHE/3rXgyR
IkS+1NJA+EZZIfInOUjqXc9WiHxSh98YH+XhIr+Kdp4a3i6Hi3y7P7qkvzCR
f/8CUmEAYA==
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {10., 9.0548}, {0, 1}], 
        {PointSize[0.04], PointBox[{6., 10.}], PointBox[{14., 10.}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox[
            RowBox[{"T1", " ", "C1", " ", "N1"}],
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->7.997355371900827],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           7.997355371900827]& ], {10., -0.5}, {0, -1}]},
       "\"aebe/cfdf/ef.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebe/cfdf/ef.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-1.3642420526593924`*^-11, 15.000000000003638`}, {
         6.499999999988177, 13.500000000003638`}}], 
        PolygonBox[{{3.8346347174167716`, 14.115084295980745`}, {
         2.575421479903725, 13.995159225741407`}, {2.7553090852627315`, 
         14.774672182297103`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {3.5985322353830753, 15.155506353326661}, \
{0, -1}], 
        LineBox[{{2.7284841053187847`*^-12, 5.}, {6.500000000003638, 
         6.500000000003638}}], 
        PolygonBox[{{2.6653652825832284`, 5.615084295980745}, {
         3.924578520096275, 5.495159225741407}, {3.7446909147372685`, 
         6.2746721822971026`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {3.5985322353830753, 4.84449364667334}, \
{0, 1}], LineBox[{{20.000000000006366`, 14.999999999996362`}, {
         13.500000000004547`, 13.5}}], 
        PolygonBox[{{17.334634717416773`, 14.384915704019255`}, {
         16.075421479903724`, 14.504840774258593`}, {16.25530908526273, 
         13.725327817702897`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {16.401467764616925, 15.155506353326661}, \
{0, -1}], LineBox[{{20., 5.}, {13.49999999999909, 6.5}}], 
        PolygonBox[{{16.165365282583227`, 5.884915704019255}, {
         17.424578520096276`, 6.004840774258593}, {17.24469091473727, 
         5.2253278177028974`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {16.401467764616925, 4.84449364667334}, \
{0, 1}], LineBox[{{6.5, 13.500000000002307`}, {6.5, 6.499999999998607}}], 
        PolygonBox[{{6.5, 9.4}, {6.1, 10.6}, {6.9, 10.6}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {5.5548, 10.}, {1, 0}], 
        LineBox[CompressedData["
1:eJw9lHtMVEcUxgeKQlNFCJa6cFf2oTxmkKDDJqitObaVQiXWx9r4qlIrs4Cg
pq6aFKiotAVMQ0NCYBbNbizxAcT4aoyYWKrxUZkItIZS2aKRiKXZRI3SVmxZ
Z/3jTHJz88vcmXvmO9831s3bVxaGE0I+0E/oXfMoqAcF8mowcHvWHbqpNFti
NufPY5DqWHC6UWqOGnizagOD0S8eVH4qNBeZx3r2MBho/sySwUNcu65/LwOf
y93wIpgGJHtJfu5OBjWOjo6fleaua13UySC+1J/RLDV/F7l1bwqD4/UmJURo
fuHnu59RaCtLy3ZwzTPezs25QmHZfxFZrxHNvdF5v7dQGL2/qalXpQIpyJPf
VFPIct9YfVhqjqnoit1HoRsuf1ksNA+0xU5uoBC+MmW+g2v+M+/KiXMUZOSD
TkJC678SxcMUAk8vLlIqBUhmVOuleH3e7tHnTVJzb/v7IofB5dqDcVuEZjB8
50oYTO0xvJlc873IY32VDNaW93v+Dybr73e2n6hg8MOFJ09uquSQHsmlLgZe
v2V/s9Sc7ZlevZjpOiLsQmgmabY3YhkMNRsnOdcMzHnrDwqv+9smhRHNa3K9
U05RaNm23nRLzQay43yqvZ7CBAQeeqTmf0eGPqmicOCfS5Uuobno7CLz1xTC
SN9jzjX7vFvcXgpDZXHrCdFMYud8dIPCxsjC20rNAnLqDCSMU1gcs6NMSs29
Rtgv6Qzo8d3pQoQ4/WL+GgZL5x6dwrnmok3jdbsYLBwL+cUOpOrZ4G+63+zC
2qdK2XF+6bu1v0ppx/WOO/UNQthx/7eGPYxzO/6/qSLQGgzasD73XxnTlLJh
/fe7Qetnw/O59sfNKBQ2PH+3s3VkLrehPhseOscnglbUr4YOr1DKivoWDo77
pbSi/v1T72r9rNifrszoaAe3Yv+M7Wk6L1bsb3HicEGPsmD/zxa4Ay3Sgv5Y
lhQ/uUhY0D+1f7/3E+cW9FfnVUfdRDAJ/TeSefrbRpmE/vx4VXn4HJ6E/q0O
bHNeVTPR36Zp0LdRzET/L/ePNT0PmjEfe9o76hulGfNT7lKuedyM+fKdzDnS
owzMX2fisaOlwsB81p2PH4wiBubXWJ394/cyEfNtupsV8Q5PxPwfKjl4+LZK
wPshwvfh9RKRgPfHnVd+MeH98hLmu68l
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {10., 14.4452}, {0, -1}], 
        LineBox[CompressedData["
1:eJw9lHtMVEcUxsctVm3QJRKpMyxwd9cXUAk6uylixNPa2KamRHkZtLG0urNi
BPljo0bE4CMGUAPBEHYQy6YSJZZY1BgDRKWmtlVGWa0lRjdqRHnYTdSobfHB
ddY/ziQ3N7/MnblzvvN9Y/9hU47HQgj5Uj+Rd9UTU48UIO8HA1/TquYrSjMY
v/nXMZjjzjzZIDXHdKSSTgYj2x5VfC80BzMftzxhcMu/1kjjEZ56pt1kEPD6
6l+byUDKavx1gwyq3O3tl5XmygM789sYxG0MpfmlZsPaP5bNoK2WKiEi81se
hocpHC9JznBzzelb6/bvpZD9Jsr1AdEcSKg/9SmFkQffNQbVHCA99fOtkyi4
fH/mH5aajf8rnRYKvXBxR7HQ3JHvjJ5BwZIze4Gbaw4e3JtbTEFOeNRFSGT9
R1dv/E4h/Lw7S6nZQIpivqqYq+vtHRltlJoDK6vVfgYXq/fFrhOaKzOg+G8G
k/tsLelcc481+8hrBoXl/U1vzVn6+6GC3FEGZzqfPbuiZkX0+ObWNQYtIWOX
X2oucyVP3M2ADEc5hdBMcr6IczC467ed4FxzZUFbczeFSaHj48cRzR11WbSI
wqHS1fSamgnkfumKpYkUxiA81CQ1P716rptQ2P3f+Qqv0BwUFZnRFMaR6085
1wyLLw9nUbhbEruaEM3EserHOgprJnhuKjVD1+vZ6XpB4bOYshIpNQcWWFoL
GaS0bf5EiAgXbpYdDJbNOxrNuebg+RfT/mGw8GXEL06938jZX3S/UzsLnyvl
xPlln1f/JaUT17tv19YL4cT9Px5oSuXcif9v3B5uNU0Hns/3OM2qlAPP/6AX
tH4OrM+7K3a6Rziw/t681sF53IH6fDuU92rMtKN+VSkDK5Syo76eO69CUtpR
//7J97R+duxPT/qUKW5ux/7ZNiXrvNixv8XxA0V9ysD+ny7yhQ9JA/2RnRT3
4XphoH+q/13yK+cG+qvrkrtmzExC/w2mnzzQIJPQnwW55Za5PAn9uydcmndJ
JaK/qRWurxGJ6P/loZeNo2YC5mPLz+21DTIB81PuVd75PAHzFTix9Kc+ZcP8
dcUfO7pR2DCfNWfj7kwkNsyvLT/jwhEZj/mm91xRi3g85r95w77DNxXD+yEq
8PUfGwTD++P2e79QvF/eAZlNtVM=
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {10., 5.5548}, {0, 1}], 
        LineBox[{{13.5, 13.500000000002307`}, {13.5, 6.499999999998607}}], 
        PolygonBox[{{13.5, 10.6}, {13.1, 9.4}, {13.9, 9.4}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {14.4452, 10.}, {-1, 0}], 
        {PointSize[0.04], PointBox[{6.5, 13.5}], PointBox[{6.5, 6.5}], 
         PointBox[{13.5, 13.5}], PointBox[{13.5, 6.5}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox[
            RowBox[{"T2", " ", "C1", " ", "N2"}],
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->7.997355371900827],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           7.997355371900827]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgdh/efegfhgh.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgdh/efegfhgh.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[
    GraphicsBox[
     TagBox[
      TooltipBox[
       {Thickness[0.005], 
        LineBox[{{-1.3642420526593924`*^-11, 15.000000000003638`}, {
         6.499999999988177, 13.500000000003638`}}], 
        PolygonBox[{{3.8346347174167716`, 14.115084295980745`}, {
         2.575421479903725, 13.995159225741407`}, {2.7553090852627315`, 
         14.774672182297103`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {3.5985322353830753, 15.155506353326661}, \
{0, -1}], 
        LineBox[{{2.7284841053187847`*^-12, 5.}, {6.500000000003638, 
         6.500000000003638}}], 
        PolygonBox[{{2.6653652825832284`, 5.615084295980745}, {
         3.924578520096275, 5.495159225741407}, {3.7446909147372685`, 
         6.2746721822971026`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {3.5985322353830753, 4.84449364667334}, \
{0, 1}], LineBox[{{20.000000000003638`, 15.000000000007276`}, {
         13.500000000005457`, 6.500000000009095}}], 
        PolygonBox[{{17.114470064542477`, 11.226614699786317`}, {
         16.067786802266646`, 10.516365343242}, {16.7032730686484, 
         10.030405257185365`}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {18.10537595300576, 13.697060324257649}, \
{1, -1}], LineBox[{{20.00000000000182, 5.}, {13.500000000001819`, 13.5}}], 
        PolygonBox[{{16.385529935457523`, 9.726614699786317}, {
         17.432213197733354`, 9.016365343242002}, {16.7967269313516, 
         8.530405257185363}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {17.955999391685353, 6.5528838552258195}, \
{1, 1}], LineBox[{{6.5, 13.500000000002307`}, {6.5, 6.499999999998607}}], 
        PolygonBox[{{6.5, 9.4}, {6.1, 10.6}, {6.9, 10.6}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["e",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {5.5548, 10.}, {1, 0}], 
        LineBox[CompressedData["
1:eJw9lHtMVEcUxgeKQlNFCJa6cFf2oTxmkKDDJqitObaVQiXWx9r4qlIrs4Cg
pq6aFKiotAVMQ0NCYBbNbizxAcT4aoyYWKrxUZkItIZS2aKRiKXZRI3SVmxZ
Z/3jTHJz88vcmXvmO9831s3bVxaGE0I+0E/oXfMoqAcF8mowcHvWHbqpNFti
NufPY5DqWHC6UWqOGnizagOD0S8eVH4qNBeZx3r2MBho/sySwUNcu65/LwOf
y93wIpgGJHtJfu5OBjWOjo6fleaua13UySC+1J/RLDV/F7l1bwqD4/UmJURo
fuHnu59RaCtLy3ZwzTPezs25QmHZfxFZrxHNvdF5v7dQGL2/qalXpQIpyJPf
VFPIct9YfVhqjqnoit1HoRsuf1ksNA+0xU5uoBC+MmW+g2v+M+/KiXMUZOSD
TkJC678SxcMUAk8vLlIqBUhmVOuleH3e7tHnTVJzb/v7IofB5dqDcVuEZjB8
50oYTO0xvJlc873IY32VDNaW93v+Dybr73e2n6hg8MOFJ09uquSQHsmlLgZe
v2V/s9Sc7ZlevZjpOiLsQmgmabY3YhkMNRsnOdcMzHnrDwqv+9smhRHNa3K9
U05RaNm23nRLzQay43yqvZ7CBAQeeqTmf0eGPqmicOCfS5Uuobno7CLz1xTC
SN9jzjX7vFvcXgpDZXHrCdFMYud8dIPCxsjC20rNAnLqDCSMU1gcs6NMSs29
Rtgv6Qzo8d3pQoQ4/WL+GgZL5x6dwrnmok3jdbsYLBwL+cUOpOrZ4G+63+zC
2qdK2XF+6bu1v0ppx/WOO/UNQthx/7eGPYxzO/6/qSLQGgzasD73XxnTlLJh
/fe7Qetnw/O59sfNKBQ2PH+3s3VkLrehPhseOscnglbUr4YOr1DKivoWDo77
pbSi/v1T72r9rNifrszoaAe3Yv+M7Wk6L1bsb3HicEGPsmD/zxa4Ay3Sgv5Y
lhQ/uUhY0D+1f7/3E+cW9FfnVUfdRDAJ/TeSefrbRpmE/vx4VXn4HJ6E/q0O
bHNeVTPR36Zp0LdRzET/L/ePNT0PmjEfe9o76hulGfNT7lKuedyM+fKdzDnS
owzMX2fisaOlwsB81p2PH4wiBubXWJ394/cyEfNtupsV8Q5PxPwfKjl4+LZK
wPshwvfh9RKRgPfHnVd+MeH98hLmu68l
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {10., 14.4452}, {0, -1}], 
        LineBox[CompressedData["
1:eJw9lHtMVEcUxsctVm3QJRKpMyxwd9cXUAk6uylixNPa2KamRHkZtLG0urNi
BPljo0bE4CMGUAPBEHYQy6YSJZZY1BgDRKWmtlVGWa0lRjdqRHnYTdSobfHB
ddY/ziQ3N7/MnblzvvN9Y/9hU47HQgj5Uj+Rd9UTU48UIO8HA1/TquYrSjMY
v/nXMZjjzjzZIDXHdKSSTgYj2x5VfC80BzMftzxhcMu/1kjjEZ56pt1kEPD6
6l+byUDKavx1gwyq3O3tl5XmygM789sYxG0MpfmlZsPaP5bNoK2WKiEi81se
hocpHC9JznBzzelb6/bvpZD9Jsr1AdEcSKg/9SmFkQffNQbVHCA99fOtkyi4
fH/mH5aajf8rnRYKvXBxR7HQ3JHvjJ5BwZIze4Gbaw4e3JtbTEFOeNRFSGT9
R1dv/E4h/Lw7S6nZQIpivqqYq+vtHRltlJoDK6vVfgYXq/fFrhOaKzOg+G8G
k/tsLelcc481+8hrBoXl/U1vzVn6+6GC3FEGZzqfPbuiZkX0+ObWNQYtIWOX
X2oucyVP3M2ADEc5hdBMcr6IczC467ed4FxzZUFbczeFSaHj48cRzR11WbSI
wqHS1fSamgnkfumKpYkUxiA81CQ1P716rptQ2P3f+Qqv0BwUFZnRFMaR6085
1wyLLw9nUbhbEruaEM3EserHOgprJnhuKjVD1+vZ6XpB4bOYshIpNQcWWFoL
GaS0bf5EiAgXbpYdDJbNOxrNuebg+RfT/mGw8GXEL06938jZX3S/UzsLnyvl
xPlln1f/JaUT17tv19YL4cT9Px5oSuXcif9v3B5uNU0Hns/3OM2qlAPP/6AX
tH4OrM+7K3a6Rziw/t681sF53IH6fDuU92rMtKN+VSkDK5Syo76eO69CUtpR
//7J97R+duxPT/qUKW5ux/7ZNiXrvNixv8XxA0V9ysD+ny7yhQ9JA/2RnRT3
4XphoH+q/13yK+cG+qvrkrtmzExC/w2mnzzQIJPQnwW55Za5PAn9uydcmndJ
JaK/qRWurxGJ6P/loZeNo2YC5mPLz+21DTIB81PuVd75PAHzFTix9Kc+ZcP8
dcUfO7pR2DCfNWfj7kwkNsyvLT/jwhEZj/mm91xRi3g85r95w77DNxXD+yEq
8PUfGwTD++P2e79QvF/eAZlNtVM=
         "]], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Gamma]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {10., 5.5548}, {0, 1}], 
        LineBox[{{13.5, 6.4999999999976925`}, {13.5, 13.49999999999251}}], 
        PolygonBox[{{13.5, 9.4}, {13.9, 10.6}, {13.1, 10.6}}], InsetBox[
         TagBox[
          StyleBox[
           TagBox["\[Mu]",
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->9.996694214876033],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           9.996694214876033]& ], {12.5548, 10.}, {1, 0}], 
        {PointSize[0.04], PointBox[{6.5, 13.5}], PointBox[{6.5, 6.5}], 
         PointBox[{13.5, 6.5}], PointBox[{13.5, 13.5}]}, InsetBox[
         TagBox[
          StyleBox[
           TagBox[
            RowBox[{"T3", " ", "C1", " ", "N3"}],
            DisplayForm],
           FontFamily->"Helvetica",
           FontSize->7.997355371900827],
          
          StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
           7.997355371900827]& ], {10., -0.5}, {0, -1}]},
       "\"aebf/cgdh/efehfggh.m\"",
       TooltipStyle->"TextStyling"],
      Annotation[#, "aebf/cgdh/efehfggh.m", "Tooltip"]& ],
     AspectRatio->1,
     PlotRange->{{-1, 21}, {-1, 21}}], {44, 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}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["e",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {28.5, 69.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[RightArrow]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {33., 69.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[Mu]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {37.5, 69.96}, {0, 0}], InsetBox[
    TagBox[
     StyleBox[
      TagBox["\[Mu]",
       DisplayForm],
      FontFamily->"Helvetica",
      FontSize->11.996033057851239`],
     StyleForm[#, FontFamily -> "Helvetica", FontSize -> 
      11.996033057851239`]& ], {42., 69.96}, {0, 0}]},
  AspectRatio->1.0999999999999999`,
  ImageSize->{288, 288},
  PlotRange->{{0, 66}, {0, 72.6}}]], "Print",
 CellChangeTimes->{3.7281446268275642`*^9, 3.728642400338511*^9, 
  3.733278895010179*^9},ExpressionUUID->"21e58ecf-51ab-487d-aa47-\
033030d2a2bb"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tree-level amplitude", "Subsection",
 CellChangeTimes->{{3.684897317636693*^9, 
  3.684897334291017*^9}},ExpressionUUID->"07f7d3f1-bc9c-4271-aca1-\
8dc5daea7494"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"TreeMatrixSquared", "=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"amp", ",", "sq", ",", "mat"}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"amp", " ", "=", " ", 
      RowBox[{"CalcFeynAmp", "[", 
       RowBox[{
        RowBox[{"CreateFeynAmp", "[", "TreeDiagrams", "]"}], ",", 
        RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"sq", " ", "=", 
      RowBox[{
       RowBox[{"SquaredME", "[", "amp", "]"}], "//.", " ", 
       RowBox[{"HelicityME", "[", "amp", "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"mat", " ", "=", "  ", 
      RowBox[{
       RowBox[{"sq", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "//.", 
       RowBox[{"sq", "[", 
        RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"FullSimplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"4", "*", "mat"}], " ", "/.", " ", 
        RowBox[{
         RowBox[{"Den", "[", 
          RowBox[{"a_", ",", " ", "b_"}], "]"}], " ", "\[RuleDelayed]", " ", 
         FractionBox["1", 
          RowBox[{"a", "-", "b"}]]}]}], ",", 
       RowBox[{
        RowBox[{"S", "+", "T", "+", "U"}], "\[Equal]", 
        RowBox[{
         RowBox[{"2", "ME2"}], "+", 
         RowBox[{"2", "MM2"}]}]}]}], "]"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.684897262836994*^9, 3.684897279213663*^9}, {
  3.684897339467214*^9, 3.684897437017377*^9}, {3.685351934842066*^9, 
  3.685351953776113*^9}, {3.728144637724896*^9, 3.728144655755114*^9}, {
  3.7332789012325478`*^9, 
  3.733278924984682*^9}},ExpressionUUID->"7dd0bae7-ff16-43b5-8913-\
e28e9c4ab526"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928045334*^9},ExpressionUUID->"c4c871a9-877c-417e-b58d-\
74dc7d6e4d13"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "Classes", "}"}]}],
  SequenceForm["creating amplitudes at level(s) ", {FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928055069*^9},ExpressionUUID->"34cb9f32-c760-4510-97a9-\
4685aebf54a0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Classes amplitude"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928064542*^9},ExpressionUUID->"7753afab-e421-49da-9270-\
bfab6f7de0d1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}],
  SequenceForm["in total: ", "1 Classes amplitude"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928073963*^9},ExpressionUUID->"ee3d7d19-34f1-490d-852b-\
8e6cd45f8748"],

Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-amp-1.frm\"\>"], \
"Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928083115*^9},ExpressionUUID->"48e2e211-9ee7-473f-b928-\
32b9597a22a8"],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928091722*^9},ExpressionUUID->"d8d0cf60-f1ab-4af6-ae4b-\
36abbec07030"],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928100008*^9},ExpressionUUID->"5af0692e-a848-496a-b6e6-\
b82102c045cd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}],
  SequenceForm["> ", 1, " helicity matrix elements"],
  Editable->False]], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928108461*^9},ExpressionUUID->"c1baf4cb-ea6e-4680-a78c-\
a7e565924edf"],

Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-hel-1.frm\"\>"], \
"Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928117429*^9},ExpressionUUID->"c59ce6a7-c7d1-4704-85a5-\
7b65d954f852"],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.7332789281271257`*^9},ExpressionUUID->"bde5f49a-8b61-4a6a-9978-\
1bf925d12788"],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{{3.728144628659747*^9, 3.728144656794756*^9}, 
   3.728642405357107*^9, 
   3.733278928136389*^9},ExpressionUUID->"c14eed3e-dff1-4234-b885-\
c77838b10c45"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"16", " ", "Alfa2", " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"3", " ", 
      SuperscriptBox["S", "2"]}], "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"T", "-", "U"}], ")"}], "2"], "+", 
     RowBox[{"2", " ", "S", " ", 
      RowBox[{"(", 
       RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}]}], 
  SuperscriptBox["S", "2"]]], "Output",
 CellChangeTimes->{
  3.68535264774266*^9, 3.685353255376855*^9, 3.685353660962778*^9, 
   3.6853537321931553`*^9, 3.728144407102769*^9, {3.728144606864429*^9, 
   3.728144656962021*^9}, 3.72864240557251*^9, 
   3.733278928216198*^9},ExpressionUUID->"9017801f-a5ae-43f5-92ef-\
78a589de6f8b"]
}, Open  ]],

Cell["\<\
Then we will calculate one-loop level amplitude, but notice that we have to \
execute \[OpenCurlyDoubleQuote]ClearProcess[]\[CloseCurlyDoubleQuote] before \
the one-loop level evaluation.
It will clear all the abbreviations / subexpressions, so we have to be sure \
that our tree-level result does not contain abbreviations and subexpressions.
\[LineSeparator]Here, our result, which is stored as TreeMatrixSquared, has \
no abbreviations, so we are ready to execute ClearProcess[].\
\>", "Text",
 CellChangeTimes->{{3.684897458772729*^9, 3.684897574440132*^9}, {
  3.728144432954892*^9, 3.728144474289358*^9}, {3.7332789490952063`*^9, 
  3.733279151810506*^9}},ExpressionUUID->"e2e59788-a102-41b1-93c0-\
233c20f9913c"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tree + 1-loop level amplitude", "Subsection",
 CellChangeTimes->{{3.684897578479787*^9, 
  3.684897611860854*^9}},ExpressionUUID->"20c33ed2-d04b-4fe3-9128-\
b25fc7e029a2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullAmp", " ", "=", " ", 
  RowBox[{"CalcFeynAmp", "[", 
   RowBox[{
    RowBox[{"CreateFeynAmp", "[", "FullDiagrams", "]"}], ",", 
    RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.68489745724389*^9, 3.684897457603052*^9}, {
   3.684897593534362*^9, 3.684897675748775*^9}, {3.684897941769046*^9, 
   3.68489797369602*^9}, 3.6848980326146603`*^9, {3.684898075012577*^9, 
   3.6848980814930897`*^9}, {3.6853519984789467`*^9, 3.685351999188941*^9}, {
   3.685352096419003*^9, 
   3.6853520991843452`*^9}},ExpressionUUID->"2b0964a3-afde-4d3f-aafe-\
d4b3de5b2543"],

Cell[CellGroupData[{

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.733279155474411*^9},ExpressionUUID->"f043af6b-0e67-4377-a23b-\
4ab99c3f7828"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "Classes", "}"}]}],
  SequenceForm["creating amplitudes at level(s) ", {FeynArts`Classes}],
  Editable->False]], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.733279155482151*^9},ExpressionUUID->"642cac84-741b-4fe5-915e-\
64dcb7daa5d5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}],
  SequenceForm["> Top. ", 1, ": ", "1 Classes amplitude"],
  Editable->False]], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.733279155490872*^9},ExpressionUUID->"7dc940a1-eea9-4aa8-9654-\
7afab1ee206f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}],
  SequenceForm["> Top. ", 2, ": ", "1 Classes amplitude"],
  Editable->False]], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.733279155499634*^9},ExpressionUUID->"71cbf845-37bb-47df-bfc0-\
32fb53b774fe"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \"\>", 
   "\[InvisibleSpace]", "\<\"1 Classes amplitude\"\>"}],
  SequenceForm["> Top. ", 3, ": ", "1 Classes amplitude"],
  Editable->False]], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.733279155510494*^9},ExpressionUUID->"b6e67cb6-e79d-482a-8fd5-\
ba21a851e634"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"in total: \"\>", 
   "\[InvisibleSpace]", "\<\"3 Classes amplitudes\"\>"}],
  SequenceForm["in total: ", "3 Classes amplitudes"],
  Editable->False]], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.733279155522044*^9},ExpressionUUID->"05f6cba6-6cc8-434f-a681-\
18287bf4f725"],

Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-amp-1.frm\"\>"], \
"Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.7332791555344954`*^9},ExpressionUUID->"2cfa7a73-9ec7-4f69-8d24-\
d8a96bbac7f8"],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.733279155546969*^9},ExpressionUUID->"494becd3-9b14-4ad4-abc0-\
69a84ded27ff"],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{3.685352647807345*^9, 3.6853532554188137`*^9, 
  3.685353661008225*^9, 3.685353732230754*^9, 3.728144478407756*^9, 
  3.728144661200007*^9, 3.728642408039061*^9, 
  3.7332791556845417`*^9},ExpressionUUID->"14a84ec7-4c67-4a81-9eb5-\
1d49b6d4ae73"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Amp", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"2", ",", 
          RowBox[{"{", "1", "}"}]}], "]"}], ",", 
        RowBox[{"k", "[", "1", "]"}], ",", "ME", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"F", "[", 
          RowBox[{"2", ",", 
           RowBox[{"{", "1", "}"}]}], "]"}]}], ",", 
        RowBox[{"k", "[", "2", "]"}], ",", "ME", ",", 
        RowBox[{"{", 
         RowBox[{"Charge", ",", 
          RowBox[{"-", "LeptonNumber"}]}], "}"}]}], "}"}]}], "}"}], "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"2", ",", 
          RowBox[{"{", "2", "}"}]}], "]"}], ",", 
        RowBox[{"k", "[", "3", "]"}], ",", "MM", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"F", "[", 
          RowBox[{"2", ",", 
           RowBox[{"{", "2", "}"}]}], "]"}]}], ",", 
        RowBox[{"k", "[", "4", "]"}], ",", "MM", ",", 
        RowBox[{"{", 
         RowBox[{"Charge", ",", 
          RowBox[{"-", "LeptonNumber"}]}], "}"}]}], "}"}]}], "}"}]}], "]"}], 
  "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "Alfa2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"C0i", "[", 
           RowBox[{
           "cc0", ",", "S", ",", "MM2", ",", "MM2", ",", "0", ",", "0", ",", 
            "MM2"}], "]"}]}], "-", 
         RowBox[{"10", " ", 
          RowBox[{"D0i", "[", 
           RowBox[{
           "dd00", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
            ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}],
          "-", 
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd1", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2",
                  ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
                "]"}], "+", 
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd1", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2",
                  ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
                "]"}], "+", 
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd11", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", 
                 "ME2", ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", 
                 "MM2"}], "]"}], "+", 
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd11", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", 
                 "ME2", ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", 
                 "MM2"}], "]"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ME2"}], "+", "MM2", "-", "U"}], ")"}], " ", 
             
             RowBox[{"(", 
              RowBox[{
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd12", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", 
                 "ME2", ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", 
                 "MM2"}], "]"}], "+", 
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd12", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", 
                 "ME2", ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", 
                 "MM2"}], "]"}]}], ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"ME2", "+", 
               RowBox[{"2", " ", "MM2"}], "-", "U"}], ")"}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd13", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"ME2", "-", "U"}], ")"}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd13", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}]}], ")"}]}], "-", 
         RowBox[{"6", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D0i", "[", 
             RowBox[{
             "dd00", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
              ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}],
             "+", 
            RowBox[{"ME2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd22", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", 
                 "ME2", ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", 
                 "MM2"}], "]"}], "+", 
               RowBox[{"D0i", "[", 
                RowBox[{
                "dd22", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", 
                 "ME2", ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", 
                 "MM2"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"11", " ", 
                 RowBox[{"(", 
                  RowBox[{"ME2", "+", "MM2"}], ")"}]}], "-", 
                RowBox[{"3", " ", "T"}]}], ")"}]}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "-", 
            RowBox[{"Sub1", " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"ME2", "+", "MM2", "-", "S", "-", "U"}], ")"}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd0", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"ME2", "+", "MM2", "-", "U"}], ")"}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd0", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "+", 
            RowBox[{"Sub2", " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd2", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "ME2"}], "+", "MM2", "-", "U"}], ")"}], " ", 
             
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd2", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"ME2", "+", 
               RowBox[{"2", " ", "MM2"}], "-", "T"}], ")"}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd3", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"ME2", "-", "U"}], ")"}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd3", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}]}], ")"}]}], "+", 
         RowBox[{"MM2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "6"}], " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd33", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}], "-", 
            RowBox[{"2", " ", 
             RowBox[{"D0i", "[", 
              RowBox[{
              "dd33", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
               ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
              "]"}]}]}], ")"}]}]}], ")"}]}], "-", 
      RowBox[{"4", " ", "Alfa", " ", "\[Pi]", " ", 
       RowBox[{"Den", "[", 
        RowBox[{"S", ",", "0"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F1", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "ME", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"6", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd22", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd22", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd2", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F10", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "ME", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd2", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd2", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd22", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd22", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F11", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd13", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd3", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd3", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd33", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F12", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "-", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F13", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd3", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd3", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "+", 
      RowBox[{"6", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd33", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd33", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F14", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"8", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd1", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd1", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd11", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd11", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "+", 
      RowBox[{"6", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F15", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd13", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd3", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd3", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd33", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F16", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "-", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F17", "]"}]}], "+", 
   RowBox[{"2", " ", "Alfa2", " ", "ME", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd22", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd22", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F18", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F19", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "-", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F2", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "-", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F20", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F21", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F22", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "-", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F23", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"6", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd00", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd00", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ME2", "+", "MM2", "-", "T"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          FractionBox["3", "2"], " ", 
          RowBox[{"D0i", "[", 
           RowBox[{
           "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
            ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}],
          "-", 
         RowBox[{
          FractionBox["3", "2"], " ", 
          RowBox[{"D0i", "[", 
           RowBox[{
           "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
            ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
           "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"ME2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D0i", "[", 
             RowBox[{
             "dd22", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
              ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}],
             "+", 
            RowBox[{"D0i", "[", 
             RowBox[{
             "dd22", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
              ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
             "]"}]}], ")"}]}], "+", 
         RowBox[{"MM2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"D0i", "[", 
             RowBox[{
             "dd33", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", 
              ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}],
             "+", 
            RowBox[{"D0i", "[", 
             RowBox[{
             "dd33", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", 
              ",", "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], 
             "]"}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F24", "]"}]}], "-", 
   RowBox[{"2", " ", "Alfa2", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd33", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd33", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F25", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F3", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "ME", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F4", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "-", 
      RowBox[{"D0i", "[", 
       RowBox[{
       "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
        "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], ")"}], 
    " ", 
    RowBox[{"Mat", "[", "F5", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "ME", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd2", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd2", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd22", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd22", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F6", "]"}]}], "-", 
   RowBox[{"Alfa2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F7", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "ME", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], "-", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"D0i", "[", 
        RowBox[{
        "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
         "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}]}], 
     ")"}], " ", 
    RowBox[{"Mat", "[", "F8", "]"}]}], "+", 
   RowBox[{"Alfa2", " ", "ME", " ", "MM", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{"4", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd12", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd13", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd2", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd2", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd22", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd22", ",", "S", ",", "ME2", ",", "U", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd23", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd3", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",", 
           "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}], "+", 
         RowBox[{"D0i", "[", 
          RowBox[{
          "dd33", ",", "S", ",", "ME2", ",", "T", ",", "MM2", ",", "ME2", ",",
            "MM2", ",", "0", ",", "0", ",", "ME2", ",", "MM2"}], "]"}]}], 
        ")"}]}]}], ")"}], " ", 
    RowBox[{"Mat", "[", "F9", "]"}]}]}], "]"}]], "Output",
 CellChangeTimes->{3.685352648040866*^9, 3.6853532556514*^9, 
  3.685353661242881*^9, 3.685353732485318*^9, 3.7281444786281843`*^9, 
  3.7281446613947067`*^9, 3.728642408291127*^9, 
  3.733279155716525*^9},ExpressionUUID->"f1349700-982a-4d55-be8f-\
6d6125fb50a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"FullSq", " ", "=", " ", 
   RowBox[{
    RowBox[{"SquaredME", "[", "FullAmp", "]"}], "//.", 
    RowBox[{"HelicityME", "[", "FullAmp", "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FullMatrixSquared", " ", "=", 
  RowBox[{
   RowBox[{"4", "*", 
    RowBox[{"FullSq", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "//.", 
   RowBox[{"FullSq", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.536052973526355*^9, 3.53605297447438*^9}, {
   3.5360531561974087`*^9, 3.536053257678905*^9}, {3.536053393659519*^9, 
   3.536053399362599*^9}, {3.537767488349915*^9, 3.537767514071713*^9}, {
   3.537861570935442*^9, 3.537861571370719*^9}, {3.537861762131777*^9, 
   3.5378617637875967`*^9}, 3.6848972853735332`*^9, {3.684898985977255*^9, 
   3.6848990045444803`*^9}, {3.684900704465706*^9, 3.684900706833506*^9}, {
   3.6853520443477993`*^9, 3.685352048403555*^9}, {3.685352103953333*^9, 
   3.68535210506495*^9}, {3.685352184763833*^9, 3.6853521852108803`*^9}, {
   3.728144493306368*^9, 3.728144588132971*^9}, {3.728144671194016*^9, 
   3.728144683010633*^9}, {3.7286424147477207`*^9, 3.728642415035198*^9}, {
   3.7332791610260572`*^9, 
   3.733279174617629*^9}},ExpressionUUID->"8155429c-aea5-4f27-80f5-\
be66568c7884"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "625", 
   "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}],
  SequenceForm["> ", 625, " helicity matrix elements"],
  Editable->False]], "Print",
 CellChangeTimes->{
  3.6853526482277517`*^9, 3.685353255814166*^9, 3.685353661402967*^9, 
   3.685353732684857*^9, 3.728144481284993*^9, {3.728144563614357*^9, 
   3.7281445887262917`*^9}, {3.728144666988618*^9, 3.728144683473236*^9}, 
   3.7286424155303907`*^9, 
   3.733279184665337*^9},ExpressionUUID->"0c777ed8-bd9c-4b6f-940f-\
4a9cb6cabd8b"],

Cell[BoxData["\<\"\\npreparing FORM code in /Users/misho/fc-hel-1.frm\"\>"], \
"Print",
 CellChangeTimes->{
  3.6853526482277517`*^9, 3.685353255814166*^9, 3.685353661402967*^9, 
   3.685353732684857*^9, 3.728144481284993*^9, {3.728144563614357*^9, 
   3.7281445887262917`*^9}, {3.728144666988618*^9, 3.728144683473236*^9}, 
   3.7286424155303907`*^9, 
   3.73327918467519*^9},ExpressionUUID->"b8993131-461d-47c6-8ef3-\
b38ef5fbaf1f"],

Cell[BoxData["\<\"running FORM... \"\>"], "Print",
 CellChangeTimes->{
  3.6853526482277517`*^9, 3.685353255814166*^9, 3.685353661402967*^9, 
   3.685353732684857*^9, 3.728144481284993*^9, {3.728144563614357*^9, 
   3.7281445887262917`*^9}, {3.728144666988618*^9, 3.728144683473236*^9}, 
   3.7286424155303907`*^9, 
   3.733279184685371*^9},ExpressionUUID->"1e59f5c3-8bfc-4d31-b647-\
a348bdb4558c"],

Cell[BoxData["\<\"ok\\n\"\>"], "Print",
 CellChangeTimes->{
  3.6853526482277517`*^9, 3.685353255814166*^9, 3.685353661402967*^9, 
   3.685353732684857*^9, 3.728144481284993*^9, {3.728144563614357*^9, 
   3.7281445887262917`*^9}, {3.728144666988618*^9, 3.728144683473236*^9}, 
   3.7286424155303907`*^9, 
   3.733279187397045*^9},ExpressionUUID->"2123db05-f1f6-4918-af22-\
a91ecf83804e"]
}, Open  ]],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            TemplateBox[{"32"},
             "OutputSizeLimit`Skeleton"], "+", 
            RowBox[{"Alfa2", " ", 
             RowBox[{"(", 
              TemplateBox[{"1"},
               "OutputSizeLimit`Skeleton"], ")"}], " ", 
             RowBox[{"(", 
              TemplateBox[{"1"},
               "OutputSizeLimit`Skeleton"], ")"}]}]}], ")"}]}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          TagBox[
           TooltipBox[
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource[
                "FEStrings", "sizeBriefExplanation"], StandardForm],
               ImageSizeCache->{85., {3., 11.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLText",
             StripOnInput->False],
            StyleBox[
             DynamicBox[
              ToBoxes[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
               StandardForm]], DynamicUpdating -> True, StripOnInput -> 
             False]],
           Annotation[#, 
            Style[
             Dynamic[
              FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
             DynamicUpdating -> True], "Tooltip"]& ], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{74., {1., 11.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{74., {1., 11.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 20, 16172661783383561443, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{83., {1., 11.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 20, 16172661783383561443, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{62., {1., 11.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 20, 16172661783383561443, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{111., {1., 12.}}],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, 25}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[16172661783383561443 === $SessionID, 
   Out[20], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{3.728144687934651*^9, 3.7286424207669353`*^9, 
  3.733279188058676*^9},ExpressionUUID->"9d6516f5-de59-4ecc-9a88-\
9a2330e57ded"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Numerical Evaluation with LoopTools", "Subsection",
 CellChangeTimes->{{3.5360399097567263`*^9, 3.536039928076377*^9}, {
  3.536053291836194*^9, 3.536053298771755*^9}, {3.537862065823552*^9, 
  3.537862085748116*^9}},ExpressionUUID->"7774b65e-9a7e-48fb-9509-\
62c0e62c480c"],

Cell["You can load LoopTools by:", "Text",
 CellChangeTimes->{{3.684901968130334*^9, 
  3.6849019742099752`*^9}},ExpressionUUID->"4729155a-b809-48f2-97de-\
76b60d1104bf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Install", "[", "\"\<LoopTools\>\"", "]"}]], "Input",ExpressionUUID->"b682d276-b9fa-4c23-8424-6378ad614728"],

Cell["\<\
 ====================================================
   FF 2.0, a package to evaluate one-loop integrals
 written by G. J. van Oldenborgh, NIKHEF-H, Amsterdam
 ====================================================
 for the algorithms used see preprint NIKHEF-H 89/17,
 'New Algorithms for One-loop Integrals', by G.J. van
 Oldenborgh and J.A.M. Vermaseren, published in 
 Zeitschrift fuer Physik C46(1990)425.
 ====================================================\
\>", "Print",
 CellChangeTimes->{
  3.733279551183099*^9},ExpressionUUID->"d619a122-2676-44cb-bc96-\
bb61e68150a9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   TagBox["LinkObject",
    "SummaryHead"], "[", 
   DynamicModuleBox[{Typeset`open$$ = False, Typeset`embedState$$ = "Ready"}, 
    
    TemplateBox[{PaneSelectorBox[{False -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEBitmaps", "SquarePlusIconMedium"]], 
              ButtonFunction :> (Typeset`open$$ = True), Appearance -> None, 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 3.5 CurrentValue["FontCapHeight"]/
                AbsoluteCurrentValue[Magnification]}]], 
            GraphicsBox[{
              Thickness[0.038461538461538464`], {
               FaceForm[{
                 GrayLevel[0.93], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{
                25.499999999999996`, 2.5}, {25.499999999999996`, 
                1.3953100000000003`}, {24.604699999999998`, 
                0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 
                0.49999999999999994`}, {1.3953100000000003`, 
                0.49999999999999994`}, {0.49999999999999994`, 
                1.3953100000000003`}, {0.49999999999999994`, 2.5}, {
                0.49999999999999994`, 23.5}, {0.49999999999999994`, 
                24.604699999999998`}, {1.3953100000000003`, 
                25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
                25.499999999999996`}, {24.604699999999998`, 
                25.499999999999996`}, {25.499999999999996`, 
                24.604699999999998`}, {25.499999999999996`, 23.5}, {
                25.499999999999996`, 2.5}}}]}, {
               FaceForm[{
                 RGBColor[0.5, 0.5, 0.5], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{20.5426, 
                19.116799999999998`}, {16.3832, 21.876199999999997`}, {
                16.3832, 20.021499999999996`}, {6.930469999999999, 
                20.021499999999996`}, {6.930469999999999, 
                18.212100000000003`}, {16.3832, 18.212100000000003`}, {
                16.3832, 16.357399999999995`}, {20.5426, 
                19.116799999999998`}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{5.30508, 13.8391}, {
                9.46445, 11.079700000000003`}, {9.46445, 
                12.933999999999997`}, {18.917199999999998`, 
                12.933999999999997`}, {18.917199999999998`, 14.7438}, {
                9.46445, 14.7438}, {9.46445, 16.598}, {5.30508, 13.8391}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{5.30508, 13.8391}, {
                9.46445, 11.079700000000003`}, {9.46445, 
                12.933999999999997`}, {18.917199999999998`, 
                12.933999999999997`}, {18.917199999999998`, 14.7438}, {
                9.46445, 14.7438}, {9.46445, 16.598}, {5.30508, 13.8391}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0,
                 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIRIGYC4sIjUTVcAooO8+XdOPpnKDg8YkwNXuen7JA2
W/qycJSgw5sbHEde31CB82PFhGf3n1V1aFVgVz0zR8oBrF9czWFHsFXE/9Wy
Dje0Dj4qiFWDy7cVLYptDVKH65/g6Xbu0HMNOB9sn4I23H6w+SWacD5De8DS
tDQNB7ldC/alskg4aD2+nx6joeFgnPFi/oMZog5B9vlaQa/UHao9k7f0KUhA
+D/UUPVbqML5jCB+oIpDzJHypGv8Eg4eGad3ikiqwM2T57H5LndPGW6eya7m
GzMvKcH1o4cXABG3d/Y=
                "]], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{14.163129999999999`, 
                4.337966249999999}, {16.96813, 4.337966249999999}, {16.96813, 
                5.047809999999999}, {14.98813, 5.047809999999999}, {14.98813, 
                8.29796625}, {14.163129999999999`, 8.29796625}, {
                14.163129999999999`, 4.337966249999999}}}]}}, Background -> 
             GrayLevel[0.93], Axes -> False, AspectRatio -> 1, 
             ImageSize -> {Automatic, 
               Dynamic[
               3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification]), ImageSizeCache -> {45., {0., 9.}}]}, Frame -> 
             True, FrameTicks -> None, FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.7]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  StyleBox[
                   PaneBox[
                   "\"'/Users/misho/.ghq/github.com/HEPcodes/LoopTools/build/\
LoopTools'\"", ContentPadding -> False, FrameMargins -> 0, StripOnInput -> 
                    True, BaselinePosition -> Baseline, 
                    ImageSize -> {{1, 300}, Automatic}], LineBreakWithin -> 
                   False], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Link mode: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["Listen", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}], True -> GridBox[{{
            PaneBox[
             ButtonBox[
              DynamicBox[
               FEPrivate`FrontEndResource[
               "FEBitmaps", "SquareMinusIconMedium"]], 
              ButtonFunction :> (Typeset`open$$ = False), Appearance -> None, 
              Evaluator -> Automatic, Method -> "Preemptive"], 
             Alignment -> {Center, Center}, ImageSize -> 
             Dynamic[{
               Automatic, 3.5 CurrentValue["FontCapHeight"]/
                AbsoluteCurrentValue[Magnification]}]], 
            GraphicsBox[{
              Thickness[0.038461538461538464`], {
               FaceForm[{
                 GrayLevel[0.93], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{1, 4, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}, {
                1, 3, 3}, {0, 1, 0}, {1, 3, 3}, {0, 1, 0}}}, {{{
                25.499999999999996`, 2.5}, {25.499999999999996`, 
                1.3953100000000003`}, {24.604699999999998`, 
                0.49999999999999994`}, {23.5, 0.49999999999999994`}, {2.5, 
                0.49999999999999994`}, {1.3953100000000003`, 
                0.49999999999999994`}, {0.49999999999999994`, 
                1.3953100000000003`}, {0.49999999999999994`, 2.5}, {
                0.49999999999999994`, 23.5}, {0.49999999999999994`, 
                24.604699999999998`}, {1.3953100000000003`, 
                25.499999999999996`}, {2.5, 25.499999999999996`}, {23.5, 
                25.499999999999996`}, {24.604699999999998`, 
                25.499999999999996`}, {25.499999999999996`, 
                24.604699999999998`}, {25.499999999999996`, 23.5}, {
                25.499999999999996`, 2.5}}}]}, {
               FaceForm[{
                 RGBColor[0.5, 0.5, 0.5], 
                 Opacity[1.]}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{20.5426, 
                19.116799999999998`}, {16.3832, 21.876199999999997`}, {
                16.3832, 20.021499999999996`}, {6.930469999999999, 
                20.021499999999996`}, {6.930469999999999, 
                18.212100000000003`}, {16.3832, 18.212100000000003`}, {
                16.3832, 16.357399999999995`}, {20.5426, 
                19.116799999999998`}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{5.30508, 13.8391}, {
                9.46445, 11.079700000000003`}, {9.46445, 
                12.933999999999997`}, {18.917199999999998`, 
                12.933999999999997`}, {18.917199999999998`, 14.7438}, {
                9.46445, 14.7438}, {9.46445, 16.598}, {5.30508, 13.8391}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, {{{5.30508, 13.8391}, {
                9.46445, 11.079700000000003`}, {9.46445, 
                12.933999999999997`}, {18.917199999999998`, 
                12.933999999999997`}, {18.917199999999998`, 14.7438}, {
                9.46445, 14.7438}, {9.46445, 16.598}, {5.30508, 13.8391}}}], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 
                0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {0,
                 1, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}}}, CompressedData["
1:eJxTTMoPSmVmYGBgBGIRIGYC4sIjUTVcAooO8+XdOPpnKDg8YkwNXuen7JA2
W/qycJSgw5sbHEde31CB82PFhGf3n1V1aFVgVz0zR8oBrF9czWFHsFXE/9Wy
Dje0Dj4qiFWDy7cVLYptDVKH65/g6Xbu0HMNOB9sn4I23H6w+SWacD5De8DS
tDQNB7ldC/alskg4aD2+nx6joeFgnPFi/oMZog5B9vlaQa/UHao9k7f0KUhA
+D/UUPVbqML5jCB+oIpDzJHypGv8Eg4eGad3ikiqwM2T57H5LndPGW6eya7m
GzMvKcH1o4cXABG3d/Y=
                "]], 
               
               FilledCurveBox[{{{0, 2, 0}, {0, 1, 0}, {0, 1, 0}, {0, 1, 0}, {
                0, 1, 0}, {0, 1, 0}}}, {{{14.163129999999999`, 
                4.337966249999999}, {16.96813, 4.337966249999999}, {16.96813, 
                5.047809999999999}, {14.98813, 5.047809999999999}, {14.98813, 
                8.29796625}, {14.163129999999999`, 8.29796625}, {
                14.163129999999999`, 4.337966249999999}}}]}}, Background -> 
             GrayLevel[0.93], Axes -> False, AspectRatio -> 1, 
             ImageSize -> {Automatic, 
               Dynamic[
               3.5 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                 Magnification]), ImageSizeCache -> {45., {0., 9.}}]}, Frame -> 
             True, FrameTicks -> None, FrameStyle -> Directive[
               Thickness[Tiny], 
               GrayLevel[0.7]]], 
            GridBox[{{
               RowBox[{
                 TagBox["\"Name: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox[
                  PaneBox[
                  "\"'/Users/misho/.ghq/github.com/HEPcodes/LoopTools/build/\
LoopTools'\"", ImageSize -> {{1, 500}, Automatic}, BaselinePosition -> 
                   Baseline, ContentPadding -> False, FrameMargins -> 0, 
                   StripOnInput -> True], "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Link mode: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["Listen", "SummaryItem"]}]}, {
               RowBox[{
                 TagBox["\"Link protocol: \"", "SummaryItemAnnotation"], 
                 "\[InvisibleSpace]", 
                 TagBox["\"SharedMemory\"", "SummaryItem"]}]}}, 
             GridBoxAlignment -> {
              "Columns" -> {{Left}}, "Rows" -> {{Automatic}}}, AutoDelete -> 
             False, GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{2}}, "Rows" -> {{Automatic}}},
              BaseStyle -> {
              ShowStringCharacters -> False, NumberMarks -> False, 
               PrintPrecision -> 3, ShowSyntaxStyles -> False}]}}, 
          GridBoxAlignment -> {"Rows" -> {{Top}}}, AutoDelete -> False, 
          GridBoxItemSize -> {
           "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
          BaselinePosition -> {1, 1}]}, 
       Dynamic[Typeset`open$$], ImageSize -> Automatic]},
     "SummaryPanel",
     DisplayFunction->(
      ButtonBox[#, Active -> False, Alignment -> Left, 
       Appearance -> {
        "Default" -> 
         FrontEnd`FileName[{"Typeset", "SummaryBox"}, "Panel.9.png"]}, 
       FrameMargins -> 7, BaseStyle -> {}, 
       DefaultBaseStyle -> {"Panel", Background -> None}, BaselinePosition -> 
       Baseline]& )],
    DynamicModuleValues:>{}], "]"}],
  LinkObject[
  "'/Users/misho/.ghq/github.com/HEPcodes/LoopTools/build/LoopTools'", 3886, 
   11],
  Editable->False,
  SelectWithContents->True,
  Selectable->False]], "Output",
 CellChangeTimes->{3.685352654829876*^9, 3.685353262369012*^9, 
  3.685353668136498*^9, 3.685353739325376*^9, 3.728144690992835*^9, 
  3.728642423781207*^9, 
  3.7332795512639437`*^9},ExpressionUUID->"9c6684c8-84b9-4bf0-8116-\
498761613d62"]
}, Open  ]],

Cell["\<\
Now we can evaluate the Passarino-Veltman integrals with LoopTools.
For example,\
\>", "Text",
 CellChangeTimes->{{3.6848996721817503`*^9, 3.68489968963448*^9}, {
  3.684899789500018*^9, 
  3.684899808939416*^9}},ExpressionUUID->"725cc7d4-e57c-4320-9370-\
d63154982ece"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"D0i", "[", 
  RowBox[{"dd1", ",", "5", ",", "1", ",", 
   RowBox[{"-", "2"}], ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", 
   "1", ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.684900209048208*^9, 
  3.684900252134698*^9}},ExpressionUUID->"b797e70b-dfd4-4b00-a8ea-\
df641eb2c434"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "0.03314329615940337`"}], "-", 
  RowBox[{"0.23557112258685953`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.685352654849887*^9, 3.6853532623926573`*^9, 
  3.68535366816413*^9, 3.685353739370544*^9, 3.72814469304734*^9, 
  3.7286424248477907`*^9, 
  3.7332795542460938`*^9},ExpressionUUID->"b5ade8e6-9d0a-48ee-b880-\
617ea0bcf8b3"]
}, Open  ]],

Cell["So,", "Text",
 CellChangeTimes->{{3.6848999437292547`*^9, 
  3.684899949109519*^9}},ExpressionUUID->"857fa438-dc3a-4229-9f62-\
3f316f474247"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"replaces", "=", 
   RowBox[{"Join", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Subexpr", "[", "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Den", "[", 
        RowBox[{"a_", ",", "b_"}], "]"}], "\[RuleDelayed]", 
       RowBox[{"1", "/", 
        RowBox[{"(", 
         RowBox[{"a", "-", "b"}], ")"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"S", "\[Rule]", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "EE"}], ")"}], "2"]}], ",", 
       RowBox[{"T", "\[Rule]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", 
             SuperscriptBox["EE", "2"]}], "-", "ME2", "-", "MM2"}], ")"}]}], 
         "+", 
         RowBox[{"2", 
          SqrtBox[
           RowBox[{
            SuperscriptBox["EE", "2"], "-", "ME2"}]], 
          SqrtBox[
           RowBox[{
            SuperscriptBox["EE", "2"], "-", "MM2"}]], "Cos\[Theta]"}]}]}], 
       ",", 
       RowBox[{"U", "\[Rule]", 
        RowBox[{
         RowBox[{"2", "ME2"}], "+", 
         RowBox[{"2", "MM2"}], "-", "S", "-", "T"}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"EE", "\[Rule]", "125"}], ",", 
       RowBox[{"ME", "\[Rule]", "0.511*^-3"}], ",", 
       RowBox[{"ME2", "\[Rule]", 
        SuperscriptBox[
         RowBox[{"(", "0.511*^-3", ")"}], "2"]}], ",", 
       RowBox[{"MM", "\[Rule]", "0.106"}], ",", 
       RowBox[{"MM2", "\[Rule]", 
        SuperscriptBox["0.106", "2"]}], ",", 
       RowBox[{"Alfa", "\[Rule]", "\[Alpha]"}], ",", 
       RowBox[{"Alfa2", "\[Rule]", 
        SuperscriptBox["\[Alpha]", "2"]}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"TreeMatrixSquared", ",", "FullMatrixSquared"}], "}"}], "//.", 
    "replaces"}], "/.", 
   RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}], "//", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.684899961501697*^9, 3.684899990744383*^9}, {
  3.6849002862694187`*^9, 3.684900385228256*^9}, {3.6849004387859488`*^9, 
  3.684900576077677*^9}, {3.684900608496234*^9, 3.6849006173197412`*^9}, {
  3.6849006511567163`*^9, 3.684900751730157*^9}, {3.684901169241788*^9, 
  3.684901170023608*^9}, {3.685352189481913*^9, 3.6853522711472807`*^9}, {
  3.685352394751483*^9, 3.685352415405889*^9}, {3.685352446294949*^9, 
  3.685352520414794*^9}, {3.6853526217016087`*^9, 3.685352624991521*^9}, {
  3.6853527792663717`*^9, 
  3.6853527794800673`*^9}},ExpressionUUID->"303ffa39-cae2-4ca9-a651-\
ce0ac90dabdf"],

Cell["\<\
 ffxc0i: infra-red divergent threepoint function, working with a cutoff    \
1.0000000000000000     
 ffxdbd: using IR cutoff lambda^2 =    1.0000000000000000     \
\>", "Print",
 CellChangeTimes->{3.685352655650488*^9, 3.6853532632257013`*^9, 
  3.6853536690363073`*^9, 3.6853537401348677`*^9, 3.72814469734801*^9, 
  3.7286424281957006`*^9, 
  3.7332795590572863`*^9},ExpressionUUID->"6f8b7500-387c-4654-82e8-\
5640bfdf0fd3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"197.39217319103042`", " ", 
    SuperscriptBox["\[Alpha]", "2"]}], ",", 
   RowBox[{
    SuperscriptBox["\[Alpha]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"197.3921731910304`", "\[VeryThinSpace]", "+", 
      RowBox[{"\[Alpha]", " ", 
       RowBox[{"(", 
        RowBox[{"1376.8645195799072`", "\[VeryThinSpace]", "+", 
         RowBox[{"2487.505838533041`", " ", "\[Alpha]"}]}], ")"}]}]}], 
     ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.68535265603398*^9, 3.685353263583165*^9, 
  3.685353669425577*^9, 3.685353740513736*^9, 3.7281446975969257`*^9, 
  3.728642428446145*^9, 
  3.733279559304564*^9},ExpressionUUID->"2770938a-377b-49c1-8d72-\
096fda2bb4f0"]
}, Open  ]],

Cell["\<\
Note that the IR-divergence is detected.
You should be aware of the IR/UV divergences BEFORE you write computation \
code!\
\>", "Text",
 CellChangeTimes->{{3.684902031515381*^9, 3.684902122043639*^9}, {
  3.684902656767879*^9, 
  3.684902660847522*^9}},ExpressionUUID->"4692dc28-d59d-440f-be97-\
662935c0bf2d"],

Cell[TextData[{
 "We can verify the presence of IR divergence by changing ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Lambda]", "2"], TraditionalForm]],ExpressionUUID->
  "14e4f861-cdb3-4797-a413-1d28caddda8a"],
 " (fictitious photon mass).\nThe result does depend on ",
 Cell[BoxData[
  FormBox[
   SuperscriptBox["\[Lambda]", "2"], TraditionalForm]],ExpressionUUID->
  "d68c645b-df47-43dc-997a-3d5b449c41b3"],
 ", so IR divergence is not cancelled."
}], "Text",
 CellChangeTimes->{{3.583232408622611*^9, 3.583232458110121*^9}, {
   3.684902149710876*^9, 3.6849021689579897`*^9}, {3.6849026342328053`*^9, 
   3.6849026763191833`*^9}, {3.684902706714776*^9, 3.684902725047844*^9}, {
   3.6849027760403633`*^9, 3.6849028027319717`*^9}, {3.6853523723920517`*^9, 
   3.685352374786282*^9}, {3.728144712435959*^9, 3.7281447132038193`*^9}, 
   3.728144769384576*^9},ExpressionUUID->"41a49e1f-703c-45b7-a42d-\
3ba55e8b89f1"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetLambda", "[", "1", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Chop", "[", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"FullMatrixSquared", "//.", "replaces"}], "/.", 
    RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetLambda", "[", 
   SuperscriptBox["0.1", "2"], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Chop", "[", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"FullMatrixSquared", "//.", "replaces"}], "/.", 
    RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetLambda", "[", 
   SuperscriptBox["10", "2"], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Chop", "[", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"FullMatrixSquared", "//.", "replaces"}], "/.", 
    RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}], "]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.583232431820586*^9, 3.583232439119485*^9}, {
  3.630410257892496*^9, 3.630410260245531*^9}, {3.68490217926891*^9, 
  3.684902184324493*^9}, {3.684902220456143*^9, 3.684902288245647*^9}, {
  3.684902391168313*^9, 3.6849024144095707`*^9}, {3.684902532796204*^9, 
  3.684902555937337*^9}, {3.6849027285125237`*^9, 3.684902758710917*^9}, {
  3.685352202402939*^9, 3.685352203586298*^9}, {3.685352569776601*^9, 
  3.685352576992235*^9}},ExpressionUUID->"85b24c12-4d7b-4b9e-91a8-\
7f0668cc8f93"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Alpha]", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"197.3921731910304`", "\[VeryThinSpace]", "+", 
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{"1376.8645195799072`", "\[VeryThinSpace]", "+", 
       RowBox[{"2487.505838533041`", " ", "\[Alpha]"}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.6853526573445387`*^9, 3.685353264874177*^9, 
  3.685353670839109*^9, 3.685353741780291*^9, 3.728144775892061*^9, 
  3.728642434401558*^9, 
  3.733279566146826*^9},ExpressionUUID->"677c6b37-1eb6-441e-8f93-\
2d842d27e730"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Alpha]", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"197.3921731910304`", "\[VeryThinSpace]", "+", 
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{"2012.6344723833274`", "\[VeryThinSpace]", "+", 
       RowBox[{"5216.770098750471`", " ", "\[Alpha]"}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.6853526573445387`*^9, 3.685353264874177*^9, 
  3.685353670839109*^9, 3.685353741780291*^9, 3.728144775892061*^9, 
  3.728642434401558*^9, 
  3.7332795672360573`*^9},ExpressionUUID->"e6ef9260-296b-4f9a-ba80-\
5de45e431b7e"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["\[Alpha]", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"197.3921731910304`", "\[VeryThinSpace]", "+", 
    RowBox[{"\[Alpha]", " ", 
     RowBox[{"(", 
      RowBox[{"741.0945667765207`", "\[VeryThinSpace]", "+", 
       RowBox[{"782.1003928606933`", " ", "\[Alpha]"}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.6853526573445387`*^9, 3.685353264874177*^9, 
  3.685353670839109*^9, 3.685353741780291*^9, 3.728144775892061*^9, 
  3.728642434401558*^9, 
  3.7332795683285847`*^9},ExpressionUUID->"9d3fdfda-0354-4183-84ad-\
e142ea515c0b"]
}, Open  ]],

Cell["In dimensional regularization, it will be", "Text",
 CellChangeTimes->{{3.684902807725462*^9, 
  3.68490282116453*^9}},ExpressionUUID->"17ff3d91-bffc-4e20-8a58-\
e1b13b27fbd8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"constant", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"FullMatrixSquared", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"C0i", "[", "__", "]"}], "\[Rule]", "0"}], ",", 
         RowBox[{
          RowBox[{"D0i", "[", "__", "]"}], "\[Rule]", "0"}]}], "}"}]}], "//.",
       "replaces"}], "/.", 
     RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetLambda", "[", 
   RowBox[{"-", "2"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pole2", "=", 
   RowBox[{
    RowBox[{"FullMatrixSquared", "//.", "replaces"}], "/.", 
    RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetLambda", "[", 
   RowBox[{"-", "1"}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pole1", "=", 
   RowBox[{
    RowBox[{"FullMatrixSquared", "//.", "replaces"}], "/.", 
    RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetLambda", "[", "0", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"finite", "=", 
   RowBox[{
    RowBox[{"FullMatrixSquared", "//.", "replaces"}], "/.", 
    RowBox[{"Cos\[Theta]", "\[Rule]", "0.5"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"Chop", "[", 
     RowBox[{"Expand", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"pole2", "-", "constant"}], 
        SuperscriptBox["\[Epsilon]", "2"]], "+", 
       FractionBox[
        RowBox[{"pole1", "-", "constant"}], "\[Epsilon]"], "+", "finite"}], 
      "]"}], "]"}], ",", "\[Alpha]"}], "]"}], "//", "Expand"}]}], "Input",
 CellChangeTimes->{{3.684902826650337*^9, 3.6849030196251287`*^9}, {
  3.684903053190071*^9, 3.6849030839034348`*^9}, {3.685352590495459*^9, 
  3.685352629948722*^9}, {3.6853533591291*^9, 3.6853533880030603`*^9}, {
  3.6853535040953693`*^9, 3.6853535209038677`*^9}, {3.685353640463525*^9, 
  3.685353654046731*^9}, {3.6853537001492167`*^9, 
  3.6853537059728823`*^9}},ExpressionUUID->"ffab537f-3fe9-4828-8e1c-\
5e583a38c8fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"197.3921731910304`", " ", 
   SuperscriptBox["\[Alpha]", "2"]}], "+", 
  RowBox[{"1376.8645195799138`", " ", 
   SuperscriptBox["\[Alpha]", "3"]}], "+", 
  RowBox[{"2487.5058385330644`", " ", 
   SuperscriptBox["\[Alpha]", "4"]}], "-", 
  FractionBox[
   RowBox[{"138.05569113120623`", " ", 
    SuperscriptBox["\[Alpha]", "3"]}], "\[Epsilon]"], "+", 
  FractionBox[
   RowBox[{"24.138968563953526`", " ", 
    SuperscriptBox["\[Alpha]", "4"]}], "\[Epsilon]"]}]], "Output",
 CellChangeTimes->{3.728144789454296*^9, 3.728642440658544*^9, 
  3.7332795717887173`*^9},ExpressionUUID->"4824bc37-0fa4-4fbf-8d6c-\
2e92e134b3b6"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1867, 1392},
WindowMargins->{{Automatic, 119}, {Automatic, 0}},
FrontEndVersion->"11.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (September \
10, 2017)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 349, 5, 144, "Title",ExpressionUUID->"1837f240-1787-48f6-b138-47170b305ac6"],
Cell[CellGroupData[{
Cell[941, 31, 164, 3, 51, "Subsection",ExpressionUUID->"dbf399ac-000c-427d-9587-fc3b89e4585e"],
Cell[1108, 36, 196, 5, 63, "Input",ExpressionUUID->"7ee0b2f2-b5ce-47d3-b90f-d406427edc97"],
Cell[CellGroupData[{
Cell[1329, 45, 1174, 21, 219, "Input",ExpressionUUID->"03dfddbe-15ae-45e9-a24c-e3a3727f7000"],
Cell[CellGroupData[{
Cell[2528, 70, 179, 2, 36, "Print",ExpressionUUID->"eb52383a-13e0-47a8-834a-28a3eb3a3adc"],
Cell[2710, 74, 209, 3, 36, "Print",ExpressionUUID->"b3516c8c-a0aa-4c15-9422-70568f1ec3e0"],
Cell[2922, 79, 229, 3, 36, "Print",ExpressionUUID->"721dd067-0055-4399-a076-0fc3069522aa"],
Cell[3154, 84, 182, 3, 36, "Print",ExpressionUUID->"c9725141-9cf0-4bef-9684-0866658e3e6f"],
Cell[3339, 89, 210, 3, 36, "Print",ExpressionUUID->"3ce6c754-d5b3-4f42-ac9c-36ea5c1b6d58"],
Cell[3552, 94, 196, 3, 36, "Print",ExpressionUUID->"095237f3-a513-4955-a0c2-53b3cca177ba"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[3809, 104, 289, 5, 51, "Subsection",ExpressionUUID->"49d1a1ad-6b46-44cc-8e1c-c682a29f9ea2"],
Cell[CellGroupData[{
Cell[4123, 113, 1359, 31, 157, "Input",ExpressionUUID->"d616f5b3-3741-4a57-99b2-469207fa8515"],
Cell[CellGroupData[{
Cell[5507, 148, 512, 11, 36, "Print",ExpressionUUID->"5df11756-6aa3-437e-aa57-12281081636f"],
Cell[6022, 161, 512, 11, 36, "Print",ExpressionUUID->"72d24e6e-031d-4e4e-959e-4b006959a7d4"],
Cell[6537, 174, 512, 11, 36, "Print",ExpressionUUID->"3485e19a-c9f3-4a56-a15e-3c5cb9d348e5"],
Cell[7052, 187, 512, 11, 36, "Print",ExpressionUUID->"987df778-8e17-4f8a-a04e-fbb20abecf1f"],
Cell[7567, 200, 520, 11, 36, "Print",ExpressionUUID->"a1fbc016-f180-4215-999a-232e024dca5a"],
Cell[8090, 213, 520, 11, 36, "Print",ExpressionUUID->"21043c91-65e2-4c28-a598-ea729e7fa0d2"],
Cell[8613, 226, 520, 11, 36, "Print",ExpressionUUID->"3c0a139a-9ae0-40e8-a6ae-2f40a4a4caee"],
Cell[9136, 239, 520, 11, 36, "Print",ExpressionUUID->"ef08c59c-58b4-482d-b863-21f27c231c5f"],
Cell[9659, 252, 520, 11, 36, "Print",ExpressionUUID->"23238802-53a3-4b7c-9b57-73365e004b8d"],
Cell[10182, 265, 522, 11, 36, "Print",ExpressionUUID->"6bd02903-9ed9-48d5-9809-829182605317"],
Cell[10707, 278, 529, 12, 36, "Print",ExpressionUUID->"4d7f9c6e-bb58-4453-9a55-32c758b3004e"],
Cell[11239, 292, 529, 12, 36, "Print",ExpressionUUID->"40fd0885-50dd-4915-a514-5f23769b56ce"],
Cell[11771, 306, 529, 12, 36, "Print",ExpressionUUID->"61356cd6-b301-4b14-9be5-39f066d7bf5a"],
Cell[12303, 320, 518, 11, 36, "Print",ExpressionUUID->"a386debd-c329-4178-9665-56dc90cfc2bd"],
Cell[12824, 333, 518, 11, 36, "Print",ExpressionUUID->"11d41a00-1a4b-4511-8193-a83efc044a71"],
Cell[13345, 346, 520, 11, 36, "Print",ExpressionUUID->"22d52268-092a-422a-93c5-c27513f79c5a"],
Cell[13868, 359, 21722, 502, 444, "Print",ExpressionUUID->"d06cf7ba-3000-4ed5-8bd8-7e553a8a659a"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35651, 868, 982, 22, 51, "Subsection",ExpressionUUID->"eeeb3bb2-84a8-44b8-9df0-57a63327f1d0"],
Cell[CellGroupData[{
Cell[36658, 894, 2911, 70, 250, "Input",ExpressionUUID->"2cd5f60c-36b4-43cc-a9e7-74e4e58411fe"],
Cell[CellGroupData[{
Cell[39594, 968, 182, 3, 36, "Print",ExpressionUUID->"fe9da9ac-affd-4789-a1c1-c24b46ce1f08"],
Cell[39779, 973, 611, 14, 36, "Print",ExpressionUUID->"8f90b124-ecfc-47d6-81a3-331946d65b24"],
Cell[40393, 989, 207, 3, 36, "Print",ExpressionUUID->"e720af64-128f-435c-8cd5-0bbdcc52dc8d"],
Cell[40603, 994, 425, 9, 36, "Print",ExpressionUUID->"4d700171-fc13-4b54-bf5b-8726d7c5f656"],
Cell[41031, 1005, 184, 3, 36, "Print",ExpressionUUID->"d300c8dd-5d0c-421d-b3a7-9d7d0e383dcd"],
Cell[41218, 1010, 598, 13, 36, "Print",ExpressionUUID->"4c9d9b1b-c103-4bb0-bb48-1d6defee8fda"],
Cell[41819, 1025, 182, 3, 36, "Print",ExpressionUUID->"c0ede30c-3d55-4f68-958d-0fe527c315ca"],
Cell[42004, 1030, 821, 22, 36, "Print",ExpressionUUID->"b9da796c-8217-4744-a8c4-43353f103a17"],
Cell[42828, 1054, 182, 3, 36, "Print",ExpressionUUID->"3b08b28c-5aea-45d1-8eae-1ee35d49719f"],
Cell[43013, 1059, 496, 10, 36, "Print",ExpressionUUID->"31a10c6b-f092-4002-b492-26d48c34e1fe"],
Cell[43512, 1071, 204, 3, 36, "Print",ExpressionUUID->"0629e918-29dd-4652-963d-db7edb430f71"],
Cell[43719, 1076, 349, 8, 36, "Print",ExpressionUUID->"2ab36c55-779e-4e00-ba9c-9c2aeae55d14"],
Cell[44071, 1086, 381, 8, 36, "Print",ExpressionUUID->"0c03502f-bd8d-42b8-9227-370000a6d14e"],
Cell[44455, 1096, 377, 8, 36, "Print",ExpressionUUID->"2851cbb0-f203-46b1-a572-98793c023725"],
Cell[44835, 1106, 415, 9, 36, "Print",ExpressionUUID->"bbb1d163-acc0-4c2e-94ff-1bdd4194528a"],
Cell[45253, 1117, 182, 3, 36, "Print",ExpressionUUID->"d87f68b7-bb93-4694-96b6-e6c16723a92a"],
Cell[45438, 1122, 573, 12, 36, "Print",ExpressionUUID->"96a2c797-1480-468f-b5ba-6ae9acde1134"],
Cell[46014, 1136, 182, 3, 36, "Print",ExpressionUUID->"c100ea0a-407e-4e05-989c-53a7775fd2a6"],
Cell[46199, 1141, 377, 8, 36, "Print",ExpressionUUID->"25161b06-e52b-45a0-a9a0-2c97a98aab60"],
Cell[46579, 1151, 424, 9, 36, "Print",ExpressionUUID->"63606469-a6ab-4f08-a004-e66dc798bf61"],
Cell[47006, 1162, 422, 9, 36, "Print",ExpressionUUID->"a5dd025a-e989-4669-94bc-fdf9fad02103"],
Cell[47431, 1173, 424, 9, 36, "Print",ExpressionUUID->"24a8fae3-f946-4974-acdb-56428d475144"],
Cell[47858, 1184, 424, 9, 36, "Print",ExpressionUUID->"7378a527-e4ab-4e3c-b3a7-4db954b09a72"],
Cell[48285, 1195, 184, 3, 36, "Print",ExpressionUUID->"d4aae888-a761-4da5-b98e-fe2caf4406c4"],
Cell[48472, 1200, 575, 12, 36, "Print",ExpressionUUID->"7057e682-b8ef-43ef-9678-fbe200ae86a3"],
Cell[49050, 1214, 354, 8, 36, "Print",ExpressionUUID->"28593adb-2ccc-44f3-895b-cd28f60a776e"],
Cell[49407, 1224, 184, 3, 36, "Print",ExpressionUUID->"f1bfde46-728a-43ed-828c-6e5f3c4bed78"],
Cell[49594, 1229, 573, 12, 36, "Print",ExpressionUUID->"01e24834-05ad-41b8-a80a-a0a64edf776f"],
Cell[50170, 1243, 182, 3, 36, "Print",ExpressionUUID->"16e5422f-fb8d-452a-aa68-41338a4e9219"],
Cell[50355, 1248, 375, 8, 36, "Print",ExpressionUUID->"e2c2efa4-704f-47ef-9f21-be6e44204f1b"],
Cell[50733, 1258, 424, 9, 36, "Print",ExpressionUUID->"18f2f2c4-e79d-4f84-ae37-66f8ccd5e49f"],
Cell[51160, 1269, 424, 9, 36, "Print",ExpressionUUID->"2cfc8fc1-fea8-4b48-adcf-35871994fb8a"],
Cell[51587, 1280, 424, 9, 36, "Print",ExpressionUUID->"6e25ba73-9189-4140-a7ea-65186ae2ed94"],
Cell[52014, 1291, 424, 9, 36, "Print",ExpressionUUID->"ff7c020c-93fb-475d-8eca-ef0aaad68bc7"],
Cell[52441, 1302, 424, 9, 36, "Print",ExpressionUUID->"327554e6-b06e-41d0-b30d-7a3bf6c0870e"],
Cell[52868, 1313, 426, 9, 36, "Print",ExpressionUUID->"4214798f-bcf8-4772-9e12-a5d053aaf3f1"],
Cell[53297, 1324, 422, 9, 36, "Print",ExpressionUUID->"927ef92f-856f-44d3-be78-bb2fc55799ca"],
Cell[53722, 1335, 424, 9, 36, "Print",ExpressionUUID->"c053ee17-7d8f-451d-a243-33595e9ab42d"],
Cell[54149, 1346, 424, 9, 36, "Print",ExpressionUUID->"bab19516-8f74-4235-9fe2-12c5fe341497"],
Cell[54576, 1357, 426, 9, 36, "Print",ExpressionUUID->"9e14a14e-62cc-4990-b8bd-307f559f1f27"],
Cell[55005, 1368, 423, 8, 36, "Print",ExpressionUUID->"7e517e4b-e6eb-421e-b0d7-ded1f45a453b"],
Cell[55431, 1378, 426, 9, 36, "Print",ExpressionUUID->"e137a4f6-556d-473c-9315-55ab7c6e6d3c"],
Cell[55860, 1389, 182, 3, 36, "Print",ExpressionUUID->"b5a8290a-f533-4af4-af45-ac377c9c40cf"],
Cell[56045, 1394, 573, 12, 36, "Print",ExpressionUUID->"b9f4add8-ff6d-4473-ba38-1171e083b5f2"],
Cell[56621, 1408, 358, 8, 36, "Print",ExpressionUUID->"960fcded-f6e7-46fd-bbea-59796c27ae89"],
Cell[56982, 1418, 511, 10, 36, "Print",ExpressionUUID->"8a80496d-4334-4939-a203-241404bb55a9"],
Cell[57496, 1430, 528, 11, 36, "Print",ExpressionUUID->"85eeea63-2e88-4702-92d5-cace62df5d7b"],
Cell[58027, 1443, 528, 11, 36, "Print",ExpressionUUID->"fe56b3e9-31e4-4d3b-a9a0-4be1a4b4aa3d"],
Cell[58558, 1456, 20796, 478, 444, "Print",ExpressionUUID->"21e58ecf-51ab-487d-aa47-033030d2a2bb"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[79415, 1941, 168, 3, 51, "Subsection",ExpressionUUID->"07f7d3f1-bc9c-4271-aca1-8dc5daea7494"],
Cell[CellGroupData[{
Cell[79608, 1948, 1786, 46, 254, "Input",ExpressionUUID->"7dd0bae7-ff16-43b5-8913-e28e9c4ab526"],
Cell[CellGroupData[{
Cell[81419, 1998, 209, 4, 36, "Print",ExpressionUUID->"c4c871a9-877c-417e-b58d-74dc7d6e4d13"],
Cell[81631, 2004, 422, 9, 36, "Print",ExpressionUUID->"34cb9f32-c760-4510-97a9-4685aebf54a0"],
Cell[82056, 2015, 449, 10, 36, "Print",ExpressionUUID->"7753afab-e421-49da-9270-bfab6f7de0d1"],
Cell[82508, 2027, 381, 9, 36, "Print",ExpressionUUID->"ee3d7d19-34f1-490d-852b-8e6cd45f8748"],
Cell[82892, 2038, 262, 5, 66, "Print",ExpressionUUID->"48e2e211-9ee7-473f-b928-32b9597a22a8"],
Cell[83157, 2045, 225, 4, 36, "Print",ExpressionUUID->"d8d0cf60-f1ab-4af6-ae4b-36abbec07030"],
Cell[83385, 2051, 214, 4, 66, "Print",ExpressionUUID->"5af0692e-a848-496a-b6e6-b82102c045cd"],
Cell[83602, 2057, 406, 9, 36, "Print",ExpressionUUID->"c1baf4cb-ea6e-4680-a78c-a7e565924edf"],
Cell[84011, 2068, 262, 5, 66, "Print",ExpressionUUID->"c59ce6a7-c7d1-4704-85a5-7b65d954f852"],
Cell[84276, 2075, 227, 4, 36, "Print",ExpressionUUID->"bde5f49a-8b61-4a6a-9978-1bf925d12788"],
Cell[84506, 2081, 214, 4, 66, "Print",ExpressionUUID->"c14eed3e-dff1-4234-b885-c77838b10c45"]
}, Open  ]],
Cell[84735, 2088, 727, 20, 90, "Output",ExpressionUUID->"9017801f-a5ae-43f5-92ef-78a589de6f8b"]
}, Open  ]],
Cell[85477, 2111, 729, 12, 156, "Text",ExpressionUUID->"e2e59788-a102-41b1-93c0-233c20f9913c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86243, 2128, 177, 3, 51, "Subsection",ExpressionUUID->"20c33ed2-d04b-4fe3-9128-b25fc7e029a2"],
Cell[CellGroupData[{
Cell[86445, 2135, 706, 14, 95, "Input",ExpressionUUID->"2b0964a3-afde-4d3f-aafe-d4b3de5b2543"],
Cell[CellGroupData[{
Cell[87176, 2153, 298, 5, 36, "Print",ExpressionUUID->"f043af6b-0e67-4377-a23b-4ab99c3f7828"],
Cell[87477, 2160, 511, 10, 36, "Print",ExpressionUUID->"642cac84-741b-4fe5-915e-64dcb7daa5d5"],
Cell[87991, 2172, 538, 11, 36, "Print",ExpressionUUID->"7dc940a1-eea9-4aa8-9654-7afab1ee206f"],
Cell[88532, 2185, 538, 11, 36, "Print",ExpressionUUID->"71cbf845-37bb-47df-bfc0-32fb53b774fe"],
Cell[89073, 2198, 538, 11, 36, "Print",ExpressionUUID->"b6e67cb6-e79d-482a-8fd5-ba21a851e634"],
Cell[89614, 2211, 472, 10, 36, "Print",ExpressionUUID->"05f6cba6-6cc8-434f-a681-18287bf4f725"],
Cell[90089, 2223, 353, 6, 66, "Print",ExpressionUUID->"2cfa7a73-9ec7-4f69-8d24-d8a96bbac7f8"],
Cell[90445, 2231, 314, 5, 36, "Print",ExpressionUUID->"494becd3-9b14-4ad4-abc0-69a84ded27ff"],
Cell[90762, 2238, 305, 5, 66, "Print",ExpressionUUID->"14a84ec7-4c67-4a81-9eb5-1d49b6d4ae73"]
}, Open  ]],
Cell[91082, 2246, 36375, 891, 2715, "Output",ExpressionUUID->"f1349700-982a-4d55-be8f-6d6125fb50a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127494, 3142, 1289, 26, 95, "Input",ExpressionUUID->"8155429c-aea5-4f27-80f5-be66568c7884"],
Cell[CellGroupData[{
Cell[128808, 3172, 583, 12, 36, "Print",ExpressionUUID->"0c777ed8-bd9c-4b6f-940f-4a9cb6cabd8b"],
Cell[129394, 3186, 434, 8, 66, "Print",ExpressionUUID->"b8993131-461d-47c6-8ef3-b38ef5fbaf1f"],
Cell[129831, 3196, 398, 7, 36, "Print",ExpressionUUID->"1e59f5c3-8bfc-4d31-b647-a348bdb4558c"],
Cell[130232, 3205, 387, 7, 66, "Print",ExpressionUUID->"2123db05-f1f6-4918-af22-a91ecf83804e"]
}, Open  ]],
Cell[130634, 3215, 7867, 210, 153, "Output",ExpressionUUID->"9d6516f5-de59-4ecc-9a88-9a2330e57ded"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[138550, 3431, 280, 4, 51, "Subsection",ExpressionUUID->"7774b65e-9a7e-48fb-9509-62c0e62c480c"],
Cell[138833, 3437, 170, 3, 52, "Text",ExpressionUUID->"4729155a-b809-48f2-97de-76b60d1104bf"],
Cell[CellGroupData[{
Cell[139028, 3444, 131, 1, 63, "Input",ExpressionUUID->"b682d276-b9fa-4c23-8424-6378ad614728"],
Cell[139162, 3447, 590, 13, 231, "Print",ExpressionUUID->"d619a122-2676-44cb-bc96-bb61e68150a9"],
Cell[139755, 3462, 13586, 257, 108, "Output",ExpressionUUID->"9c6684c8-84b9-4bf0-8116-498761613d62"]
}, Open  ]],
Cell[153356, 3722, 280, 7, 87, "Text",ExpressionUUID->"725cc7d4-e57c-4320-9370-d63154982ece"],
Cell[CellGroupData[{
Cell[153661, 3733, 320, 7, 63, "Input",ExpressionUUID->"b797e70b-dfd4-4b00-a8ea-df641eb2c434"],
Cell[153984, 3742, 385, 8, 63, "Output",ExpressionUUID->"b5ade8e6-9d0a-48ee-b880-617ea0bcf8b3"]
}, Open  ]],
Cell[154384, 3753, 147, 3, 52, "Text",ExpressionUUID->"857fa438-dc3a-4229-9f62-3f316f474247"],
Cell[CellGroupData[{
Cell[154556, 3760, 2692, 72, 261, "Input",ExpressionUUID->"303ffa39-cae2-4ca9-a651-ce0ac90dabdf"],
Cell[157251, 3834, 437, 9, 60, "Print",ExpressionUUID->"6f8b7500-387c-4654-82e8-5640bfdf0fd3"],
Cell[157691, 3845, 723, 18, 66, "Output",ExpressionUUID->"2770938a-377b-49c1-8d72-096fda2bb4f0"]
}, Open  ]],
Cell[158429, 3866, 321, 8, 87, "Text",ExpressionUUID->"4692dc28-d59d-440f-be97-662935c0bf2d"],
Cell[158753, 3876, 924, 19, 89, "Text",ExpressionUUID->"41a49e1f-703c-45b7-a42d-3ba55e8b89f1"],
Cell[CellGroupData[{
Cell[159702, 3899, 1460, 33, 225, "Input",ExpressionUUID->"85b24c12-4d7b-4b9e-91a8-7f0668cc8f93"],
Cell[161165, 3934, 586, 14, 63, "Output",ExpressionUUID->"677c6b37-1eb6-441e-8f93-2d842d27e730"],
Cell[161754, 3950, 588, 14, 63, "Output",ExpressionUUID->"e6ef9260-296b-4f9a-ba80-5de45e431b7e"],
Cell[162345, 3966, 587, 14, 63, "Output",ExpressionUUID->"9d3fdfda-0354-4183-84ad-e142ea515c0b"]
}, Open  ]],
Cell[162947, 3983, 182, 3, 52, "Text",ExpressionUUID->"17ff3d91-bffc-4e20-8a58-e1b13b27fbd8"],
Cell[CellGroupData[{
Cell[163154, 3990, 2185, 60, 339, "Input",ExpressionUUID->"ffab537f-3fe9-4828-8e1c-5e583a38c8fd"],
Cell[165342, 4052, 656, 16, 84, "Output",ExpressionUUID->"4824bc37-0fa4-4fbf-8d6c-2e92e134b3b6"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)