(* 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", "=", "\"\\""}], ";"}], "\[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", "[", "\"\\"", "]"}]], "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 ]] } ] *)