(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 10.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 256097, 5640] NotebookOptionsPosition[ 251559, 5480] NotebookOutlinePosition[ 251899, 5495] CellTagsIndexPosition[ 251856, 5492] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"<<", "FeynArts`"}], "\n", RowBox[{"<<", "FormCalc`"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"_Hel", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"$FAVerbose", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"$FCVerbose", "=", "0"}], ";"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print"], Cell[BoxData["\<\"FeynArts 3.9\"\>"], "Print"], Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print"], Cell[BoxData["\<\"last revised 2 Dec 14\"\>"], "Print"], Cell[BoxData["\<\"\"\>"], "Print"], Cell[BoxData["\<\"FormCalc 8.4\"\>"], "Print"], Cell[BoxData["\<\"by Thomas Hahn\"\>"], "Print"], Cell[BoxData["\<\"last revised 23 Jan 15\"\>"], "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["QCD 2->2 tree level parton processes", "Section"], Cell[CellGroupData[{ Cell["qq\[CloseCurlyQuote]->qq\[CloseCurlyQuote]", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top1", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"diags1", "=", RowBox[{"InsertFields", "[", RowBox[{"top1", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}]}], "Input"], Cell[BoxData[ GraphicsBox[InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, {4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, {4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], AspectRatio->NCache[ Rational[1, 2], 0.5], PlotRange->{{0, 44}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ClearProcess", "[", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp1", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags1", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res1", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", "^", "2"}], "/", RowBox[{"3", "^", "2"}]}], " ", RowBox[{"SquaredME", "[", "amp1", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp1", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp1", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"T", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "U"}]}], ",", RowBox[{"Alfas2", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"gS", "^", "2"}], "/", RowBox[{"(", RowBox[{"4", " ", "\[Pi]"}], ")"}]}], ")"}], "^", "2"}]}]}], "}"}]}], "//", "Simplify"}], ")"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"S", "+", "U"}], "\[Rule]", "T"}], "}"}]}]}]}], "Input"], Cell["running FORM... running FORM... ", "Print"], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", SuperscriptBox["gS", "4"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", SuperscriptBox["U", "2"]}], ")"}]}], RowBox[{"9", " ", SuperscriptBox["T", "2"]}]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "q", Cell[BoxData[ FormBox[ OverscriptBox[ RowBox[{"q", "'"}], "_"], TraditionalForm]], "Subsection"], "->q", Cell[BoxData[ FormBox[ OverscriptBox[ RowBox[{"q", "'"}], "_"], TraditionalForm]], "Subsection"] }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top2", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags2", "=", RowBox[{"InsertFields", "[", RowBox[{"top2", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}]}], "Input"], Cell[BoxData[ GraphicsBox[InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, {4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], AspectRatio->NCache[ Rational[1, 2], 0.5], PlotRange->{{0, 44}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp2", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags2", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res2", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", "^", "2"}], "/", RowBox[{"3", "^", "2"}]}], " ", RowBox[{"SquaredME", "[", "amp2", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp2", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp2", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"T", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "U"}]}], ",", RowBox[{"Alfas2", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"gS", "^", "2"}], "/", RowBox[{"(", RowBox[{"4", " ", "\[Pi]"}], ")"}]}], ")"}], "^", "2"}]}]}], "}"}]}], "//", "Simplify"}], ")"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"S", "+", "U"}], "\[Rule]", "T"}], "}"}]}]}]}], "Input"], Cell["running FORM... running FORM... ", "Print"], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", SuperscriptBox["gS", "4"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", SuperscriptBox["U", "2"]}], ")"}]}], RowBox[{"9", " ", SuperscriptBox["T", "2"]}]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["qq->qq", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top3", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags3", "=", RowBox[{"InsertFields", "[", RowBox[{"top3", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, {4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{15.597022314125994`, 5.440297768587401}, { 14.442779173482405`, 5.9577171074965944`}, {14.363176198265608`, 5.161687355328604}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{5.597022314125994, 5.559702231412599}, {4.442779173482406, 5.0422828925034056`}, {4.363176198265607, 5.838312644671396}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.00000000000182, 15.}, {10., 6.}}], PolygonBox[{{15.4459764877483, 10.90137883897347}, {14.28643761960272, 10.395938819525396`}, {14.821609404900679`, 9.801303502527665}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {16.937558817093933`, 13.081023536561336`}, \ {1, -1}], LineBox[{{20.00000000000182, 5.}, {10., 14.}}], PolygonBox[{{15.4459764877483, 9.098621161026525}, {14.821609404900679`, 10.198696497472332`}, {14.28643761960272, 9.604061180474597}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {17.562441182905612`, 8.08102353656179}, \ {-1, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {9.154800000000002, 9.999999999999995}, \ {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}]}, AspectRatio->NCache[ Rational[1, 2], 0.5], PlotRange->{{0, 44}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp3", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags3", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res3", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", "^", "2"}], "/", RowBox[{"3", "^", "2"}]}], " ", RowBox[{"SquaredME", "[", "amp3", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp3", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp3", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"T", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "U"}]}], ",", RowBox[{"Alfas2", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"gS", "^", "2"}], "/", RowBox[{"(", RowBox[{"4", " ", "\[Pi]"}], ")"}]}], ")"}], "^", "2"}]}]}], "}"}]}], "//", "Simplify"}], ")"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"S", "+", "U"}], "\[Rule]", "T"}], "}"}]}]}]}], "Input"], Cell["running FORM... running FORM... ", "Print"], Cell[BoxData[ FractionBox[ RowBox[{"8", " ", SuperscriptBox["gS", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"10", " ", SuperscriptBox["S", "3"], " ", "U"}], "+", RowBox[{"13", " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["U", "2"]}], "+", RowBox[{"6", " ", "S", " ", SuperscriptBox["U", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["U", "4"]}]}], ")"}]}], RowBox[{"27", " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["U", "2"]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"res3", "+", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["S", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"27", " ", "T", " ", "U"}], ")"}]}], "-", RowBox[{ FractionBox["4", "9"], SuperscriptBox["gS", "4"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"]}], ")"}], "/", SuperscriptBox["U", "2"]}], ")"}]}], "-", RowBox[{ FractionBox["4", "9"], SuperscriptBox["gS", "4"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], "//", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"#", "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "]"}], "&"}]}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "q", Cell[BoxData[ FormBox[ OverscriptBox["q", "_"], TraditionalForm]]], "->q\[CloseCurlyQuote]", Cell[BoxData[ FormBox[ OverscriptBox[ RowBox[{"q", "'"}], "_"], TraditionalForm]]] }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top4", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags4", "=", RowBox[{"InsertFields", "[", RowBox[{"top4", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[ GraphicsBox[InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {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["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {3.387485819479944, 6.914057016624067}, \ {-1, 1}], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {16.61251418052005, 13.085942983375933`}, \ {1, -1}], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {17.387485819479934`, 8.085942983375933}, \ {-1, -1}], LineBox[CompressedData[" 1:eJw9lgs4lPkexyeXNak2Fcdthnm97ytsRZ2S26mfI2WJyChi3SL3dS9SLpGk dRstEhobJRzXlJVaEXJrpbRIGFIitzqVVNr/nPP0f59nnnk+z//9z/wvv9/3 +yVc/fe7izAYjHz0EX5P9H1Fzw/A+N9DwchMqvrxZsSeakkm3SQ0r/orKDQW sWVC8U/FJBTldPynSx+x2p+80RQSany0xHPnNIARoL7icwwJZaFx9VQB4lTn 20aIpfxYO6/bIua7n7+bRIKZYyQvRQqxZYPb1BUSrlvO7X7SpQ4MTvHz4g4S hkLKPvnwEGe1VHotksDzv3F8zAmxnM+wymYKfH7fY+23HTFsMQv3oyDZy6+6 XR6xVFvDw1IKqizb1hhLIHZu6/B/TYHI2WjRkq9qwIgeXkhXp0ErdNx5vwga ry3enu1Cg+RoK1/5e8RF/qtkeTREttyT4xGImYM2b2ppsJIez36shzhVyzvy MQ1p65trHx5E3P2xLHGMhvJZbqfpUeH4oVsB4zT0Zde3zqUL15eVoDhAw49D nnUny4R89hCzkYaeiMD5ribhep8dMMyjwdhtIvfDQ8RhS9/tD6Bh6dWTT05/ Ie47baStR8Mf7ppSXT2IR2aNdy1RsI+I0g0WzudP9az9g4IWKYMvX4qE59OY 7RBFway5ZEV6rPA8dVeOGlIwp7ix+5G18DySX5oup8DI5C3ZrSCcvyhg9pGw 6DLykjGAzqc7LM+gggRVlmTK1nTEI52qeekkRLtCW4QJYi3ZV16xJBzlfyhZ +3k9mm++0jqaBPsTdYt7KhCnCqoiEkk4LdvKP+yBOEw/JjifhMbyY0eTSMTg GGZwjwQHj/teNS9UEX+csZknQWb12JrIKsRS4ZpdqhRkCm5nayQgnvinqLUr BaaTFd2pnojD9hvY5FNQfnnDi9VcxDrTpKKAggtFJna/mCIemUgbU6LB6NJm 1UAz4fxmF1FbGv4h06Nzw0b4/tW3Iok0MHqUn0x5CMe9gn+vosGpoDDSNBox g1vr1k2D9lxSdksO4oWzNfUC9H7vbZn1txA3xBYse0HDF4HOG3Y/4r5l5mLP aNA4GXjX5b+ImczVaq00hEQZTrVIov0ybLMcC9H9/Xyk5KACYs+eEHY4DQH+ vHovArGJxLT5Lhqey/92t0IJcd8P49uX08DU88nfuwYxc6rQs52CAWUD7UcL wvXUFmYkUqB8pmSc24t4Ljoxdi8FSU28afuriNX+Xf5sLQXavYl+L/wRa+VE qoyQkF4Y/bO9lnD9GpOnbpDgfSTAJWIS7WvOULMjk4SrERcb9vIRe3LeWZwm YUN32DVxLmK5TP5AFAnPl/Q93koI+UxU8RkS7jNvfXa+Q6H1zm70zCHh7eas 1pPhiPmuVptukyDbH2djrI9YLimGN0HCbjfOMS9xxBVb5q6zKPiguS52Zz+J 6s2atDlIQVxzXlblTcRzGoOTv1IwJBERtxXVDYMfLdvYS8HyyeM3G39FbHlx Xk6ahkCBWfzgeeF8fXKHBQ3J6zTLk3IR3z/XUhZDw0org4ljZYh1XipsKUX9 eURv2Wgz4qx86TcdNJyrzJlvFwjH7a+lDNOg9kCof4ij+Qub0f02T7p+v02J wuOVDs1LbD0Kz+cGNckmWFH493vKuy2DUJ1++/9ZQXU46UPh9R3sjzP5lzeF 1x90Pi6iw5HC++t84uxhYULh/dv5vj7RoErh85F3Gk7IQDr47fxMJo8X16E+ +na+vmkeOqfiSXz+mXW7RC8Zkvh+fHObslYuqOD7IzvjDyyWqOD7LeK47ax2 UsH3P74tJS9ORgXXRyc7Kq3gTwLXj8ZMCE8+lcD11fPVd22BLYHrDwy4CiUa BK7P0BNNbRskCFy/Jq7nHatnOLi+fU/9tGOfgIPrf2SDn1HGEAf3Rz73Ardo nIP757XRHWnddxzcX9q7k3fkrSBw/x0WtKwaVSVwf1q2Gk727SJw/yqWBrrr HiZwf89/sIupiSJw/zvPD6tLZxFYH8zKNrb+WExg/WBTD/qTrxNYX1oVbl4J riGw/lQqP5KfKyGwPn1XZaHpn0lg/aqtM3TvPUZgfdNPYs3EmBNY/8QctmeY yhNYH3PXJZwNGuRg/Rwo0XHKyeJgfRXbYyxeu4+D9bf/kwR3WpSD9ZkfHOnH 9FfG+m3NmBJk9CthfS8N2aG1ZKaE9V/vvVytUzsb+8OIRaGTrS0b+4dgcvJS 3wIL+8tW9zPiYmUs7D8i7xlJ8uEs7E8qfvxh90Ms7F+X3ayYYMXC/iYbsOme lAML+59iCovtFsbC/ripfeM5scss7J9SVvEBSn0s7K+uV208vNexsf9GvgpJ drBkY39mSG1rP5DIxv59pST0wdN6Nvb3X0L87zSMsbH/O+Vs3WH/iY3zwa2Q pYVrDCWcHxzGfQdD59k4XxRUUxe8O9k4f9xv9rej09g4n5yw40nqAhvnl+cW vzHVnrJwvjkwrhRk7cbC+Ue9XeTpyJAizkeXSltiMi0UcX5yvfg+/sZNBZyv uOV575qVFHD+svjqUeCWII/zmTTbSkHmoxzOb8OHnpWuCEUc8P98N/1YqH+y OP/9DddNALg= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {9.999999999999995, 9.0548}, {0, 1}], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], AspectRatio->NCache[ Rational[1, 2], 0.5], PlotRange->{{0, 44}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp4", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags4", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res4", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", "^", "2"}], "/", RowBox[{"3", "^", "2"}]}], " ", RowBox[{"SquaredME", "[", "amp4", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp4", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp4", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"T", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "U"}]}], ",", RowBox[{"Alfas2", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"gS", "^", "2"}], "/", RowBox[{"(", RowBox[{"4", " ", "\[Pi]"}], ")"}]}], ")"}], "^", "2"}]}]}], "}"}]}], "//", "Simplify"}], ")"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"S", "+", "U"}], "\[Rule]", "T"}], "}"}]}]}]}], "Input"], Cell["running FORM... running FORM... ", "Print"], Cell[BoxData[ FractionBox[ RowBox[{"4", " ", SuperscriptBox["gS", "4"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", RowBox[{"2", " ", "S", " ", "U"}], "+", RowBox[{"2", " ", SuperscriptBox["U", "2"]}]}], ")"}]}], RowBox[{"9", " ", SuperscriptBox["S", "2"]}]]], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "q", Cell[BoxData[ FormBox[ OverscriptBox["q", "_"], TraditionalForm]]], "->q", Cell[BoxData[ FormBox[ OverscriptBox["q", "_"], TraditionalForm]]] }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top5", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags5", "=", RowBox[{"InsertFields", "[", RowBox[{"top5", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {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["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {3.387485819479944, 6.914057016624067}, \ {-1, 1}], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {16.61251418052005, 13.085942983375933`}, \ {1, -1}], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {17.387485819479934`, 8.085942983375933}, \ {-1, -1}], LineBox[CompressedData[" 1:eJw9lgs4lPkexyeXNak2Fcdthnm97ytsRZ2S26mfI2WJyChi3SL3dS9SLpGk dRstEhobJRzXlJVaEXJrpbRIGFIitzqVVNr/nPP0f59nnnk+z//9z/wvv9/3 +yVc/fe7izAYjHz0EX5P9H1Fzw/A+N9DwchMqvrxZsSeakkm3SQ0r/orKDQW sWVC8U/FJBTldPynSx+x2p+80RQSany0xHPnNIARoL7icwwJZaFx9VQB4lTn 20aIpfxYO6/bIua7n7+bRIKZYyQvRQqxZYPb1BUSrlvO7X7SpQ4MTvHz4g4S hkLKPvnwEGe1VHotksDzv3F8zAmxnM+wymYKfH7fY+23HTFsMQv3oyDZy6+6 XR6xVFvDw1IKqizb1hhLIHZu6/B/TYHI2WjRkq9qwIgeXkhXp0ErdNx5vwga ry3enu1Cg+RoK1/5e8RF/qtkeTREttyT4xGImYM2b2ppsJIez36shzhVyzvy MQ1p65trHx5E3P2xLHGMhvJZbqfpUeH4oVsB4zT0Zde3zqUL15eVoDhAw49D nnUny4R89hCzkYaeiMD5ribhep8dMMyjwdhtIvfDQ8RhS9/tD6Bh6dWTT05/ Ie47baStR8Mf7ppSXT2IR2aNdy1RsI+I0g0WzudP9az9g4IWKYMvX4qE59OY 7RBFway5ZEV6rPA8dVeOGlIwp7ix+5G18DySX5oup8DI5C3ZrSCcvyhg9pGw 6DLykjGAzqc7LM+gggRVlmTK1nTEI52qeekkRLtCW4QJYi3ZV16xJBzlfyhZ +3k9mm++0jqaBPsTdYt7KhCnCqoiEkk4LdvKP+yBOEw/JjifhMbyY0eTSMTg GGZwjwQHj/teNS9UEX+csZknQWb12JrIKsRS4ZpdqhRkCm5nayQgnvinqLUr BaaTFd2pnojD9hvY5FNQfnnDi9VcxDrTpKKAggtFJna/mCIemUgbU6LB6NJm 1UAz4fxmF1FbGv4h06Nzw0b4/tW3Iok0MHqUn0x5CMe9gn+vosGpoDDSNBox g1vr1k2D9lxSdksO4oWzNfUC9H7vbZn1txA3xBYse0HDF4HOG3Y/4r5l5mLP aNA4GXjX5b+ImczVaq00hEQZTrVIov0ybLMcC9H9/Xyk5KACYs+eEHY4DQH+ vHovArGJxLT5Lhqey/92t0IJcd8P49uX08DU88nfuwYxc6rQs52CAWUD7UcL wvXUFmYkUqB8pmSc24t4Ljoxdi8FSU28afuriNX+Xf5sLQXavYl+L/wRa+VE qoyQkF4Y/bO9lnD9GpOnbpDgfSTAJWIS7WvOULMjk4SrERcb9vIRe3LeWZwm YUN32DVxLmK5TP5AFAnPl/Q93koI+UxU8RkS7jNvfXa+Q6H1zm70zCHh7eas 1pPhiPmuVptukyDbH2djrI9YLimGN0HCbjfOMS9xxBVb5q6zKPiguS52Zz+J 6s2atDlIQVxzXlblTcRzGoOTv1IwJBERtxXVDYMfLdvYS8HyyeM3G39FbHlx Xk6ahkCBWfzgeeF8fXKHBQ3J6zTLk3IR3z/XUhZDw0org4ljZYh1XipsKUX9 eURv2Wgz4qx86TcdNJyrzJlvFwjH7a+lDNOg9kCof4ij+Qub0f02T7p+v02J wuOVDs1LbD0Kz+cGNckmWFH493vKuy2DUJ1++/9ZQXU46UPh9R3sjzP5lzeF 1x90Pi6iw5HC++t84uxhYULh/dv5vj7RoErh85F3Gk7IQDr47fxMJo8X16E+ +na+vmkeOqfiSXz+mXW7RC8Zkvh+fHObslYuqOD7IzvjDyyWqOD7LeK47ax2 UsH3P74tJS9ORgXXRyc7Kq3gTwLXj8ZMCE8+lcD11fPVd22BLYHrDwy4CiUa BK7P0BNNbRskCFy/Jq7nHatnOLi+fU/9tGOfgIPrf2SDn1HGEAf3Rz73Ardo nIP757XRHWnddxzcX9q7k3fkrSBw/x0WtKwaVSVwf1q2Gk727SJw/yqWBrrr HiZwf89/sIupiSJw/zvPD6tLZxFYH8zKNrb+WExg/WBTD/qTrxNYX1oVbl4J riGw/lQqP5KfKyGwPn1XZaHpn0lg/aqtM3TvPUZgfdNPYs3EmBNY/8QctmeY yhNYH3PXJZwNGuRg/Rwo0XHKyeJgfRXbYyxeu4+D9bf/kwR3WpSD9ZkfHOnH 9FfG+m3NmBJk9CthfS8N2aG1ZKaE9V/vvVytUzsb+8OIRaGTrS0b+4dgcvJS 3wIL+8tW9zPiYmUs7D8i7xlJ8uEs7E8qfvxh90Ms7F+X3ayYYMXC/iYbsOme lAML+59iCovtFsbC/ripfeM5scss7J9SVvEBSn0s7K+uV208vNexsf9GvgpJ drBkY39mSG1rP5DIxv59pST0wdN6Nvb3X0L87zSMsbH/O+Vs3WH/iY3zwa2Q pYVrDCWcHxzGfQdD59k4XxRUUxe8O9k4f9xv9rej09g4n5yw40nqAhvnl+cW vzHVnrJwvjkwrhRk7cbC+Ue9XeTpyJAizkeXSltiMi0UcX5yvfg+/sZNBZyv uOV575qVFHD+svjqUeCWII/zmTTbSkHmoxzOb8OHnpWuCEUc8P98N/1YqH+y OP/9DddNALg= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {9.999999999999995, 9.0548}, {0, 1}], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->16.494545454545456`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 16.494545454545456`]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}]}, AspectRatio->NCache[ Rational[1, 2], 0.5], PlotRange->{{0, 44}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp5", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags5", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res5", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"2", "^", "2"}], "/", RowBox[{"3", "^", "2"}]}], " ", RowBox[{"SquaredME", "[", "amp5", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp5", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp5", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"T", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "U"}]}], ",", RowBox[{"Alfas2", "\[Rule]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"gS", "^", "2"}], "/", RowBox[{"(", RowBox[{"4", " ", "\[Pi]"}], ")"}]}], ")"}], "^", "2"}]}]}], "}"}]}], "//", "Simplify"}], ")"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"S", "+", "U"}], "\[Rule]", "T"}], "}"}]}]}]}], "Input"], Cell["running FORM... running FORM... ", "Print"], Cell[BoxData[ FractionBox[ RowBox[{"8", " ", SuperscriptBox["gS", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"6", " ", SuperscriptBox["S", "3"], " ", "U"}], "+", RowBox[{"13", " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["U", "2"]}], "+", RowBox[{"10", " ", "S", " ", SuperscriptBox["U", "3"]}], "+", RowBox[{"3", " ", SuperscriptBox["U", "4"]}]}], ")"}]}], RowBox[{"27", " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["T", "2"]}]]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"res5", "+", RowBox[{ RowBox[{"(", RowBox[{"8", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["U", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"27", " ", "S", " ", "T"}], ")"}]}], "-", RowBox[{ FractionBox["4", "9"], SuperscriptBox["gS", "4"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", SuperscriptBox["T", "2"]}], ")"}]}], "-", RowBox[{ FractionBox["4", "9"], SuperscriptBox["gS", "4"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", SuperscriptBox["S", "2"]}], ")"}]}]}], ")"}], "//", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"#", "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "]"}], "&"}]}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "q", Cell[BoxData[ FormBox[ OverscriptBox["q", "_"], TraditionalForm]]], "->gg" }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top6", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags6", "=", RowBox[{"InsertFields", "[", RowBox[{"top6", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "5", "]"}], ",", RowBox[{"V", "[", "5", "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {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["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {3.387485819479944, 6.914057016624067}, \ {-1, 1}], LineBox[CompressedData[" 1:eJwl1ns8lPkeB/CnSJREiTlIrJHbmEY7KyeTBhNzNiFrZy1dsHTGUuzhaI6m 5YWElTSUux0lWffbdtnkvpHUy0G5VmhWKl22Ukwj5/Pb88fMvN6v3/P7/b7f z/PM8zzGgeFewcspiirEh/xSquSLwaWUyS+dSw1e1Y3WgNm/eeXuhjU3NEks 4Ks++5yyYJq0/IknLKpX+XYIZjyOEyXAQeHK4nWmXCqRx77ZAneGxpU6w8nq MRNK1lyqRJbrGgLPjnmL98CUPN87nhz/rlUjDw4LNvg6HVbv4D+bhpV3RAlP wfO+FgdsmPDar3hxcEFCwb1omCUXM4QwQzg+1wg3ydfLXGDhQsK1p2S8XzfX EI54tCZ5/RYu5cZbfftP1KvQCeDbwIqBP6w74CxZ5mEn2Mi4JPUsPK+xd9EF 9smVFYXC3byzp3fCwwZqi67wu/92uVrDPDXPlwy4UvZjlxbcasr1MYAp7RT9 V9i/wKagVBcu86eVdMG9lg9/2wT7R5ksFMLzhvJJNpzxfkdvFMw78qhPABsI XG65w/SNk5cSST20r48yYfWaB4om2PO1QF8Hzqisfb4I+2ReKlwJd88wGbvQ b1D+RKQynGxTzciAm+48PL0GprFkW8ZhelmHtwl81astbPNmLiXbHynZBYsC 7jHD4KCnHScjSd6LnXPlcOKE8/MKUv9SgGQCLpBtlc/CYYba3NVmyN9vMY2N /sUfQq5ZwHHTbqw4uHbDYxd7OLk9xfEOPFvm0rUT5me3Jqmz0Neoad02+Kru 9FEW7POFaA0dnq/utNsLi59khKrAypzlDYfhWbuFu2R/hvfSshPk+FilnF9h pxm74+fgLF8z4UlY59HLlmKYMyNU+hbmPLhcVQq/fsFkWcMONjcjL8Lj6p/O qcCWS4+TimBvs4wLT5BPkkS/SELqY9UI+0lekWHl8fC7EL3kbpjfOXw7HI6g 0jfdhtNV9vL8YMWhW9dHyfVJ3xDiAvettvL6QK73S+zMraTeGitHI+wX+MXU WmNY1NPwjTfMP+WptR7mzc5NnYHzDG9J1WAux7r9Pqy6rkiyAq4c8401Qh4Z ponilXBax1RoGCxq7qxeC2tfuN5yBR6PzWYZkvnsrmtL8PmPd1rI/gay0RZH cy7V/N29ATfSj4ny8WPwlNPzC6EkD8syRTlcK+ew0sn4Iee2uzCn5+SeBrip reXeH3Cjoq5+BFbtyx5+Bc+8aF5J2eC+sX0X9QL+NBQ+R4eVe27SHsKCrDG2 K9z91jemE7accy0KhpM/jC4Uw6K/5djGwuPNYQMiWKeiYXsm7JOfkLEb3pwd aF5M1os/8MwA5h+x7SyDe439yl+hv/ZhjkE5zPsyPeUmfP+R38mLMCtcT6sE plIOFueT9T0bxamwXDrtfAru9KuUHoOzpuLEx+AS3/JBEazO+SHun3CTaJ0s Ho7af77IC07r7VbOg70uR7AcYM3q5sEbcGuxPMUKLnM7dOAFTNeveqYPiyeH TczMyf+t9YgmqVebyQqB33t4LF8FSzn2zDr4zZtcgRrMda5PUMDn3y+MaJB+ 9IPD+Rbon/6gXo+ML3e3kMAO21SaGTDbeGb5EPwydXMGD87Z45+kbYn5e5pj AmCjpa2ZfLj02KqseOKgZ9E/wHJ+SVspHJEwTqXDdBfB770krxNKGYXw/YEz u9/C1LS7nhR+kzUup23FfcCfZn0OzhHEJ3BgNu/KdBzMGxus3gfP0o4/DYDL t/MPi2CpeQPfHlYZ6ppKhxlfRUeshTXKGiN+JvM5qWqTqD9nkHbjF9i/OXS0 HpasunG5Ci7496pLJ+GoHa/PVsDm16WagXDSnfmRC2T9mU1HefD4kJtzNlnf PusBC/7XwGBPEmyn39ZvDjPkheciYXHkioPW8FRb7OwBmBPoO+8A58V6mHwJ 0ys/iPfD8SbumbZknDnOTob9V55IMoUnfjIfvQF/knZZ/JWH6fNLCuI41di1 cNTpuiNO6K+gRrpXHWZVv65Kg8smtKzJeIaXQd0wPGtWIyDzB50MakyscF51 o3vMSH6K2mffwz0aO+x3wGkij/4KmN3A1vGBa3nLDGVwUGtmylE4zvPFUy08 Z7tTN6XnkXpivHs/h/ssP3vbAns+XjbNh5mqzmHTxJLwWfLc9pRIpeqf47p3 t7B2gxVBx7bbwO+4Lqn2sPappvdeMC3mswgj+PvA8w0RcM76vk4F9hcefHo8 BW66RfX3w++1hvML4E6HEMuLcN9Y1dlfYJ/KgZ+iYe8L6+xr4e6dDi3/gAeD +ReJveeOiozhd7tW2FbAUUmNthQ5/j9KmVI4uSTRbAZ5CUtjis7ArLsJa8Zg Tb3RsFh4fmrSahT2MbK3C4XTaJe3TcMct41eAnii5XePJTjmu3XaTmTc1/Aj Heu3a6j3bYELdmUyBfDDm8vajOBG3iOfM/BMSrFiA6y68UHUILxvpO6QJiyu UjLeiDy2T14pJU5s0r4uhCXf+Brpwvz7TT82wml3Rl6akDydWy8ukjxdBx7b kjw+OiQ74r1mNM8vxQNuZedcPw5Xb/QzOwzL7JKYtbDb35/fTofttlk5DsHt 8d6CBnI+jD8M/QmnuVsnjsBholThEqxC3tvY3P+/xzG5/wPFX4Nv "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {16.61251418052005, 13.085942983375933`}, \ {1, -1}], LineBox[CompressedData[" 1:eJwd1gs01GkfB/B/JSubpVLonSyyUSi31ZTiT23pNBhCaNIobSNCVhrKsm5N Ipe8lndp1Rl7KGmImmIlt3XLfRu3lAhb0ijKSHm/z845c+Z8zu95nt/lPPM/ f+2jgc7HF1MUlYMv+aXmF/AxoKl/P7o0NXs07yPLkKZ8+Am8hfU0FTvndiAL VtX+KJmCg5I28l7AzK0GNhJYWLuv+Dsjmhphxm8WwewmuzdcuMo8szwCbj/t wUyDOZ+sBDbwhA9LRwzP76rK+6yDfez9Dztg+knFz6Vw+s6UkkE4tkK1nAez 7bNNn8Eht5Zor4ONJyrku2GFdU9DurVpihU8H1EJl+5+5p4KR70YO5ILZ/9w ZbMbrLKtX3IOTvfU/KQLx56oO3QAHn9Y57igRVO7H15M3kji6ne3jsLPm/dv WARTw0MGfbDxHcWaAdJva4xSP8xVkvVWwlHCWL1xWD1k5koBzI8vtaBwPsc8 sOwq7DJzlq8N+9zvu/g73GBt9XAfsZ2wuxB2L+y6FAqrDzg21MO1Vr6b8mBj GyO5N8SNVGcnsWV5pibqyVzVXjsPt7yMX+kJ64brBGlhHgoWyy7lwLP0ngRL mNdfWTkKJzpsNGLBhW/D9Mw205RdWuAEG/a/Ua4RRTy8aNQODnpVNdwEC8Jd WszgHZE9Eypb0B/7zT8r4OysjC5HuHD3Is0R5A96EXcxDk7hO3beJPPuWOUn gqXzolcnSb2ia85tcIst4/Z6uNRqIG+IrHdmFPdgXi25lZwx2LBIeisRpr5M LiLx88nFAbawQmVQIdmvsP+Jo+xbzH1q5l0p3KPmVHoOnhcf602D+Ryxrwrc Qnnf94Pd3d/KHmjSlPl5Ss8WFtSWSiNg4de1neowNaZY6Qnre7idfId+3S2i 85xgFvvHsA7iUP1yb3je5xuWGGZ2WE8KYEbct935MDvURrsWfv4qLk1I4q9V HZSRv9utNa4QrjovKT0Oj9/O0HwE8/iqq6rhCaeg7S9g4wOhQcroLz8h8Dtl 1CPUv2NnCZ/f53Z9DzyhHvGPN9zu/Gk2Ht6x+95oFKz1ZI9iK5zIVTfKIPfR MKB0uTHqfOmwNpfc1/sF281gw7glKTlkfvcOWXnAQTED1GWYEzvjFwFr+bwK PU1cYhN3lXjB9IodrHKmN7AczrbnxqvC1Q0ymy6y37Z9aRHqH+jXsX8JR8ll O+vC3GXyG6ZggUXTYArmoaL0Y8EHEo/3+Uq2jqZWikSfZ2BmWCjnKDx40Dr1 LZy5kcPtZMAjzqtHYKqmeK8DbOu1NLQbZme1VPT9h6aK9iW3PYKNOREF52DB 9cPet2D9rNRl5vCHmsuRmTB/SrdhKey/LjImluwvcymYWov+j2hUBJN67rnb fIQXn8318oHF13gyVaw31BLyPWHuoLmOHbxbr2bYlaxPZ6xKgitSGy0Pwim7 7ro8gwd5ORIvWEHuz+5tqHfUhVXnDzdYfKX9Kxw/eqIxijii948peEBR7P0/ 0t/bsve70H+Rn26zmJw3VjYtgOX0UxT7YfX0JJMKmLHSZnYBzj+TQPXBDksc 7DeYYK65W4qfwfXf80tYMD8m8mYziS+taTsNSx/HR+fAmn+qctLhKle2zBW2 zd5keAee3asw9wH1cOVM6cewcUNZZAy8IYrXNgRH8S7/tID+EmwsnaSw/p6z kYFwQN+5mFniC3WSHsyPmvQ+NQfb3Sv7QsP+QxZHPpiQ++0Ze0sD8wq+PTkB C3pe162Hc5vWSQdJ/vQTt/PV0Yd7sz/JL/Y6GE3D3P5XGfdhkZqbcFINz3VZ UbmQrH+cdrYMfmCpZ54CP6cY1hnw88QrrhHEXeYqqXD4qRHvU6R/b68OIdxH McK84VwHrb1tcFXrtkRPuEFj3kgJ+ap19jl7kP39h7me8ITWCtqLzLO9Q74E rlD7K9qXzKfMof0b1N95k/oSTur9Im/sB8vXfmalkfmefpfzCFZ0svyriORv 1ZYsxzxY4xqCNpL/pHStHfyAZx32nsTL9h8NhKs0LY9omOJ/7ZR0ORKuTuwd s4a5BvVJoTDP+Zf7x03JfekKPgAXJo1GX4THd+hHrYHFyl6KN+D8hRpdkp/9 teaOelhh7uJrV1jVqd7iKdxTfeNwD/qRGlx1nYSD8qJ7WbBulgpTBtPchiNi zIddolz/GVY5xvHQUiPPQUOTeVjQcdg9YQ3u7wWXd9Owloe35NNqmor+ybV2 HNb3KpeFwdJuzm89pP7t1Y7L4LtyQ1l1cO5A5bVbqpjfDwFLimHpzukaX1jU 9t4oG05xrThjDS8OtQwWwMxjTPstcEkSzTgL8/dHiZiwghqD40vqWZk74AFf P/w9k0vO37ZyLhmO5R/8hQOLTBt3SmCxkkWjF+nP1m61AeqJDWk7dILMM7/5 UDzMUpFZhpLzBGsyhmH2Eqv1l0j9wi2mO9HvRPOKuDySf0avIQlmVpr8t5bE p2Xu7XC882v2GJm35h8City/q/0Jy83g8PH2tXBF3O+zpvB4E/MGA5ZP+9vG g8SntxbIkbisWvlnmN1oltyJ8x48fcnIhTMllP0FOODyw12VcMOgwqwu/OH2 pkQJLPVRKilCveEz1yxew0HF4lh9OH39dO0szAvJM/0V/X8h728kH3l/U6X/ Dw7YmBs= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {17.387485819479934`, 8.085942983375933}, \ {-1, -1}], LineBox[CompressedData[" 1:eJw9lgs4lPkexyeXNak2Fcdthnm97ytsRZ2S26mfI2WJyChi3SL3dS9SLpGk dRstEhobJRzXlJVaEXJrpbRIGFIitzqVVNr/nPP0f59nnnk+z//9z/wvv9/3 +yVc/fe7izAYjHz0EX5P9H1Fzw/A+N9DwchMqvrxZsSeakkm3SQ0r/orKDQW sWVC8U/FJBTldPynSx+x2p+80RQSany0xHPnNIARoL7icwwJZaFx9VQB4lTn 20aIpfxYO6/bIua7n7+bRIKZYyQvRQqxZYPb1BUSrlvO7X7SpQ4MTvHz4g4S hkLKPvnwEGe1VHotksDzv3F8zAmxnM+wymYKfH7fY+23HTFsMQv3oyDZy6+6 XR6xVFvDw1IKqizb1hhLIHZu6/B/TYHI2WjRkq9qwIgeXkhXp0ErdNx5vwga ry3enu1Cg+RoK1/5e8RF/qtkeTREttyT4xGImYM2b2ppsJIez36shzhVyzvy MQ1p65trHx5E3P2xLHGMhvJZbqfpUeH4oVsB4zT0Zde3zqUL15eVoDhAw49D nnUny4R89hCzkYaeiMD5ribhep8dMMyjwdhtIvfDQ8RhS9/tD6Bh6dWTT05/ Ie47baStR8Mf7ppSXT2IR2aNdy1RsI+I0g0WzudP9az9g4IWKYMvX4qE59OY 7RBFway5ZEV6rPA8dVeOGlIwp7ix+5G18DySX5oup8DI5C3ZrSCcvyhg9pGw 6DLykjGAzqc7LM+gggRVlmTK1nTEI52qeekkRLtCW4QJYi3ZV16xJBzlfyhZ +3k9mm++0jqaBPsTdYt7KhCnCqoiEkk4LdvKP+yBOEw/JjifhMbyY0eTSMTg GGZwjwQHj/teNS9UEX+csZknQWb12JrIKsRS4ZpdqhRkCm5nayQgnvinqLUr BaaTFd2pnojD9hvY5FNQfnnDi9VcxDrTpKKAggtFJna/mCIemUgbU6LB6NJm 1UAz4fxmF1FbGv4h06Nzw0b4/tW3Iok0MHqUn0x5CMe9gn+vosGpoDDSNBox g1vr1k2D9lxSdksO4oWzNfUC9H7vbZn1txA3xBYse0HDF4HOG3Y/4r5l5mLP aNA4GXjX5b+ImczVaq00hEQZTrVIov0ybLMcC9H9/Xyk5KACYs+eEHY4DQH+ vHovArGJxLT5Lhqey/92t0IJcd8P49uX08DU88nfuwYxc6rQs52CAWUD7UcL wvXUFmYkUqB8pmSc24t4Ljoxdi8FSU28afuriNX+Xf5sLQXavYl+L/wRa+VE qoyQkF4Y/bO9lnD9GpOnbpDgfSTAJWIS7WvOULMjk4SrERcb9vIRe3LeWZwm YUN32DVxLmK5TP5AFAnPl/Q93koI+UxU8RkS7jNvfXa+Q6H1zm70zCHh7eas 1pPhiPmuVptukyDbH2djrI9YLimGN0HCbjfOMS9xxBVb5q6zKPiguS52Zz+J 6s2atDlIQVxzXlblTcRzGoOTv1IwJBERtxXVDYMfLdvYS8HyyeM3G39FbHlx Xk6ahkCBWfzgeeF8fXKHBQ3J6zTLk3IR3z/XUhZDw0org4ljZYh1XipsKUX9 eURv2Wgz4qx86TcdNJyrzJlvFwjH7a+lDNOg9kCof4ij+Qub0f02T7p+v02J wuOVDs1LbD0Kz+cGNckmWFH493vKuy2DUJ1++/9ZQXU46UPh9R3sjzP5lzeF 1x90Pi6iw5HC++t84uxhYULh/dv5vj7RoErh85F3Gk7IQDr47fxMJo8X16E+ +na+vmkeOqfiSXz+mXW7RC8Zkvh+fHObslYuqOD7IzvjDyyWqOD7LeK47ax2 UsH3P74tJS9ORgXXRyc7Kq3gTwLXj8ZMCE8+lcD11fPVd22BLYHrDwy4CiUa BK7P0BNNbRskCFy/Jq7nHatnOLi+fU/9tGOfgIPrf2SDn1HGEAf3Rz73Ardo nIP757XRHWnddxzcX9q7k3fkrSBw/x0WtKwaVSVwf1q2Gk727SJw/yqWBrrr HiZwf89/sIupiSJw/zvPD6tLZxFYH8zKNrb+WExg/WBTD/qTrxNYX1oVbl4J riGw/lQqP5KfKyGwPn1XZaHpn0lg/aqtM3TvPUZgfdNPYs3EmBNY/8QctmeY yhNYH3PXJZwNGuRg/Rwo0XHKyeJgfRXbYyxeu4+D9bf/kwR3WpSD9ZkfHOnH 9FfG+m3NmBJk9CthfS8N2aG1ZKaE9V/vvVytUzsb+8OIRaGTrS0b+4dgcvJS 3wIL+8tW9zPiYmUs7D8i7xlJ8uEs7E8qfvxh90Ms7F+X3ayYYMXC/iYbsOme lAML+59iCovtFsbC/ripfeM5scss7J9SVvEBSn0s7K+uV208vNexsf9GvgpJ drBkY39mSG1rP5DIxv59pST0wdN6Nvb3X0L87zSMsbH/O+Vs3WH/iY3zwa2Q pYVrDCWcHxzGfQdD59k4XxRUUxe8O9k4f9xv9rej09g4n5yw40nqAhvnl+cW vzHVnrJwvjkwrhRk7cbC+Ue9XeTpyJAizkeXSltiMi0UcX5yvfg+/sZNBZyv uOV575qVFHD+svjqUeCWII/zmTTbSkHmoxzOb8OHnpWuCEUc8P98N/1YqH+y OP/9DddNALg= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.999999999999995, 9.0548}, {0, 1}], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[CompressedData[" 1:eJwt1ws4lNkfB/A3SlKhWFGuSxnGZXLbInq7WERuqdTm1maxbNjkstLOmogu 7oQ/Gfq3iKXUoCQjcpmNFEIU0VqkmpCE2v2e//PvefQ+n/me97y/8ztzXg+1 o4HO3iIURbXih1zZYviP0qCp//3ToanOOea9rXD40qR1pvCf757ERsG96Q2i fvCe+u3irbB06MDxc/D1io3xChtpim+3rTpHh2aLODFXB8Dh5Vsl8pD/GPHp VC3MTXH2ToYfJNx6JLGJpqofbuSGwFYDFYZOMPuz4ZE9cETEXqMEkrd/eSeL +So2dDyrgzvMSq16mDQ7VLy95RXc8vhJbRr8x7eRexZhxyVRbx2ZNLXunKyn mCZNxanXxUohXxLQWysKS5f4yXRp01SuROr9DxjPeBDwOF+bZpuFmXm/IM/r 8o+ORC7/Ims9H3Z902T1PfKCzoO3ckl+Z0XsYeQXWUZmvxAXWzzxQh7d5dLk CltfUJ0IRx6s1+O0DRa3S626jLzmgiBDEx5SM/Z4jHz3T6WjimS8kuUhSdT7 dLvjKmU4zjo51Rm2r+w01IG5165mZ8MJnOFnVnCQgmzLMHxmi5IgCKY9fE9o oj/bohbX/U5ysy3q3uiffoGE8SjM166tyYS7NnRQ+li/6oPYojqMD4k+PBoF yzPl/umBjd0GvzwiFk/JHIKl6ou3fM1Af9RM1frg4s9W7GD4+heB4n34T9uO 8TswuzZjEPtNPbZb27sAs8rKT/nDAQaFKgZaeP4m2WssuF5BQuMIsaRTzjvU rxVn8CYcHjPi9JfAgvuJRnFwptucjB9sl1Llew5uSX39Shv7t9BxqZAN+8a+ L59B/2iHiPIAMt6D69+K/s7H5zY7wh3LOiNLkH81ez1fH2YF5iTnIO8KKTFe RcZfzEzLRe4+KZI9jnrpVkFGGXL+RstnAngoqbSzHW44vqu9gqwvJ/zOIsb7 fpyavgIHCRmiJqhnfxdlz4VdHSTbwlBvaWefdTEsrerz4B7yJ8pJhXUwFS/c txz9cg7IixiBPW0U/9xL+n1HYb0s6gl6cSwrAd51zHoLqX/MTTuiCf2SOmk/ ng7Lz6TnTCFfsnqofpisR+2bTmld7Msib9YQdbmOexWq6KJeSiI6Fk5qaAhW Rn7DWcOuB+44xji6Gp7s7XNRR52sa3On3mC+5Ja2fh+42jT9Ih9uZB6OKYCT Vu+WjIc1FvR/eQxTM9Ni5DzGXRVjT8Nc87RXYsgFttIS4vg8SOZr2wZ8PnT5 AC0FM8S7XkWT9btf/rwC7h2eYtnA07FvGz5hHOPZlIsCrumJ+4uGcPVU2Tn1 AXVWHFk0qYfDD4qIvoRDnD47XobZbTF1/diPLJvWZZGk/oLpi6OwUq7Kj4dh etPbRQrz19TeO76d1L+S06qFa2vzbLUOrpndXwndkfc66/2qAY8982rOxdWI aezPwLVoVEtjBDlbaZqzlfRDt4rDxPpuZl1WcSX1vn1jegLrOMc3GuSQ+yPY hZXw5NGgmzVk/pelnmR/uld+mfgMz534eEwd+9EuqW9jjXHc86d2WsFaTgvq 5BzOZd395gj2Q59Zd3YCTjLTtvWCt3O63bfhylezcD2A8RN289nnYK6p1xry uXO2jfsTXFvcU2dlkMvU3lJbo4fvB2W3g5xXcfPxp7vhsdmCpiuYt79zWDQA 7p1xeuyFvHW48mkMLB1z4YMS8p0BSawUmLH+n6F+1H30g01hMhykGaGVBytl JEWR8aqfexT9Yb7jfHIgHMesStsJb5mYsnQmjtzSoUneT3mP3Fgwu3FkvyIs l83rXwULDxkMqpL3r+bungnU76nZa28Md0wru7TB8ly7CvSZ7VLAUaiCx16f to/H/d0M8YvXdMn3a2VVI8xxPZlSTKx9+y3OE/WwLOBnHqz6PiXRgfS5Tbe1 HZ67HDp3Ceu98e33pz/A1581RD1HPhrs3cQg9WpmZCuifzqqIzo+pL7oORVn jLNr9ioqg10/ZHpEwu1/JfIWYfENdQ4Z8JTKQri9Pp6/UPB7Pnwi2fsvLuxo wHudA/+cXPVKCFf7CKPiYD3qFl+JhfosBhO88byjseuWb4fZv2WtNdGl6V2m HzW+g6XPJF5dRL3nK2ctguEhX47fXR2aX+/tJ2DDRaGx/eHIxZ6mpcXDXJbe VWM4dvfBB+fhOJGT/rPoz99GUs/Pwpl+fbl4/1DTZ4f+OA3Ly9taJ8M/pN9w JPO7PnGYCEK/pdeEyHnBrHLOfg/YbOmvoQ5wEM843Y1J82ddRufNYarAZwj7 T8vp9DD1SL2BkxnYH3p/8epINdhX76END+OzVoWxFMjzm0+1T2K+mV7RQ3Jk /NK33+mi/5HWSdUkF+aPlOM8sTfpcOvUSX2CIlOsl85ihMcYwdZrOu1F0Z/3 HSNNtjCdm+ZsqUvz+4Jvj/uS8XPLhaeRN9VMLiXrt+a92fEH8gHTxsnr5Hk5 nHnyvbIcu7izj6xPPiB6EK6Uos6KbMZ+qi+XfIn9sHvgoMeEh6SUi3CuaA/1 d7ec4KQZ5834XvFlagZuhpDxFt+54Bzy2ewT0ylwb/CVQBd48817kSWw6664 k3K4P6w+NL8W9jz9qLET64ve8EmyFeZuP7GQiP3s/ni/pQ2mVyg32WO9l/YZ 6j4kz4sbLpNBf5gPL71rhPkijW9eon+qS5olb5Pn/3Xe/C48VN7UXAxLb9Sv +i/6b5vJiskk80uW8XKwv1E8o4exsKrf3w3I+U8Nv2GEkjzSOR33869s3CDn Cwd5LJHA+45yOuggdIN9R3jmcqjHP6FowBXOHLXI3wdrhi7ePQSPWQgU8d5i V961Vfci3uyxFe8bfo3T+j2BpB+n9zsw0F/pxiNrzpCcOlwVgH5IHtCg8mBh auACzi29kze9pw6mhIeXPYezynxejJD1XpewFtVDf5dd/WmlAfoz+ujlevhm TyvHCG4Z/g/vaz2aXXI0/JIbXBQojEBOcWpCVGJgbt/tuyIYX5tBFxbDQwqD /QPYn1kP7nAr3DH5eoq8R0Qvida9gq0/Cu4F4vnrRkaDP8FUxMoIPbhiRSBn uSHysLxS8l5WFJR1ScKeXQfEirDe1M5d+VJwdU+a+o/ox/E041MScJBtt5cR 8t2baWuK5HvP3yC/96xMp5lTmL96pPI4zgN14cyu6Jdw+O87drzA/pl8cW95 BM/FC8Twe5A2neXF34N7v5Vofo/9qrOwtC03IO9Z/5trsR/SiSZhV2B54YvN OzC/jOyYTQ6cNOo09Qvy0IBD9dkwo4G3uhb1yLsMJOYRW0/oLEU/Eq7WrC2B 4/jxPDv0I831wN5amH3WbD4F52EFWzjWTerzWRbQiXxc0XzrDKnHTUwggf5S Jscs12F9RWHr95qg/zdcV3Wbw/Jbldv2wbeLq9k/wL6hz597weZP8xoT4RZa a9gD97Nef5GthsdKZWXt4XnlnqnnMKN3/DddPZoWJX93GP3/7w89+l82h82l "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[CompressedData[" 1:eJwt1ws0lOkfB/A3Qv8iwzAUctkQKYMUkd6Q7iKkNltUJHJZm0jUsCKKZt1C bpGwVLoSxWCrZVeETERGwiraoRBW9vvs+XdOx/mc53mf5/f7/t4Zh/phvz3u IhRF1eM/+UnNzOHfdzQlJD8VaM6iWvul1stpyq60VfSAIk3l6Ii0X4ab9+us yICjHXinBDAnfM9v1fDlkvhvhppYH66orIOzbQedImF2gHl6AUwlrQt8Cdv9 vSb9hCLN0X92Pk5Bi6ZKKyWT5OFPc8tWO8LCFwtf31CgqQ5bB/fzxIuDvmii nr77FzqLYEY40zuNhXuctwh4sB23bf8CFs2R094V1gDTUd5KIfI09Yavf+I5 2d+Y935cjuYIehNkHsFqgidHIuDwiMDj12D/Nr6HJnyJmTQcQeqJk4vvY9Kc ZFFLP1dyPzNZisekqaGJ4Blz4p0/RzyGT15cUqhEnn/u0/0a+4Myz/nNoT/X q6wjTDma0uQnSXyEBSm/1nni/I59wU8EsP9tnS1tcL137t53MK/wpqQd6k0c Vp8SwtxPFvtfydOcFlNDZSly3yhrzAX9zrz8Gr5Wi6wnh/XAcnT1+hPEHfx+ J+QV1XL2TgnMM6oqewTPXGDVjJM87v10Wgz5/7pe+qW1NvLqEXxeg7zT7E58 TYG5T9d5b4bnvjxYPgRz/syuM4Zf5LKtTFbAbvJccTg0WdErHBb2PFhYgXn0 O5TN1cDN2j0TDnBvkE33JMybd9+3A/OIcfnDW10H783sr1l2qDcpyvPRBrj5 SFUAD/3eY0pE7SQOSzJlo9+VfbdsbGF2Y5hlAfI5ZO+mak3Wn3mf0UOeFffr W/VhQZWI3DPk7Zj6y20mTE9e1z2NeUgkpxwbw/3slhfR22DvpqzxFzCt4uJt iv10ToB/Cay2/aAv1jm82R/fxcGMBoUzwdhffKxZ7RTsL3bhTR3WW/el5R8j 6zJPf9BGPU6MEN+jJA9Z80uZqGf2d6l3PuS+cwMTquiHGSb7JJL0/09WTAH6 yUyLWFAEl0YxPuqhf2pOcUknnNNn01OIfJpibFJZqJ8R+rBQDvOyeqSe4kI8 lH/YC3l6BrrmFcGlquZ2+XCyYG50mqzbLFauhYP034fs0sX7xn49vxreEhuk lQUzTCTGr+K8wAtaE0Mw1+vNz99jfZdynN7qlehfKC2YRT2qB00CPGH/9Tr5 sXDTLenxFJircSNTHPXdL6jmlMPsJPvAYPS3yK8n/k9YYPX80CDyULT9uqsV ZizoKvsebhyQyW4k+y9PZXQgv1033//vCdzskproBbcV2Bfmkfvfvl7FRN5y e40WRsKUdROPL0tTsZPzmG5kv5e3bqUsPq/dCq0bYLuDEsVVWDd+lXFQBc65 nt3Wi3UlocV1EXIfO4WrgfPWpPRuFqJftda7ZmG478sp+8C/YErsQ/sw1r84 tLcPw7Sby3Zv1Bu2ZpX3N9huRLJsFP6QIBtBzi99Kd6KfjkhF2UebvuvP9Ud U7D55+bRcFKvqJHmCeR1Y+7K2d/I/aFVKn/Al323KknrIc8mwQwDecf7pi89 BHOPevFNYWnB/Og7sGBi8y4rzMdoqf920VU4f+3ZbD2sPzDJcraHcz4YVE/g vFc9yq2psEBsdON1zEMpPt2UT/bv1jM2hXc/yghfuBr1P4ieqcB83Axb1hrA wg0jQn3Ua2yfGLcdZr/TVM1Gf2cLYn32wgLHgG5pWI8/GeAEN2uxfGOQV8kP oQNbifmzGbLIy0Cyt9iQPE+nHb2DvOdeV66Qh0ttSzO94I/u25d/Rj3N945W bYKPu7Jzm2Aq5nmxCVwvL1Vxk3jSP2c3vOm2mC+X1O/sq3Mefn/cLyIEZk/f Nm3HfLMXPtznS86zHdtjgfurE/2afGC7Nd9qylDfOpVtOmS/2sIlH83w+dPS U/knkeQ1lJdbh36+1rJ0KsnzI5vjtqD/Ecsdbz+R86nUCPJ9U+r+8Noq1M95 ojWijXwV7om5B8J0YK1GMFwXqnutDva3Ci0tgVvb6GB5fdwX5JhSC7++Nb/r GCw0Ou1XjvwNR5sflsG0wlRkPIvmyU9zFs5jI9/BT/U2cOyLLVoasFrd/pr3 qKcy251hAfM+U7t9UI/2PbbQAbbrehM4gPrpH8UtjsD+B3wlnGEPL/cGb5hu dNiK7zteUrsnzwduflAXb4Z8lDMi847D7OKVgieyNP3dtZytruQ+BfFEB+QZ YCBs2EPO29k1NU+W5hkdUAqzhF2tB5UaZWiejXM4nw1TVxedK4MLXoYfVSX1 35ovXitD02tNXhVLk3otIt9/xHrU4wXLREk99/uLDHG+5jU3kQn0n/O03y0B 1nArqhaSPBiF9WKob939v8cn9cn7ZZ0ShfmZ3/xnozip98yKein05yvyl6UC LBwclEqSo+llH/Y8WQ0zlC4oy8rTvDKlJbI7Sf2BukrhyOsiM9HJl9TvODrV CRe2j+xPgrn1dr8tZdF09tx01WPyfHR0nznmNTIvf/4AXNpSZ7sR5kxJZy82 wPOWvjfUMb/TT/ctMobV/lpp2i9P0z2Nb/qcYV6l49glnN+r8XksEBY8rjdU wfz429hW8XBpgknKVdR7RbhOLwcWyvQWLEY/uqzEA8XkPPpFLL5/eK+S517f hnOylNP/xvu+M1Jc/BY5T2AvfoK871vfpt6AKdPRk1PIV82nOyGdnK++vyBT hua8jPlmeBHmJCSv+gHzSNms23+anK9koGOG9YlIbX1P2O6tyXemWBc1M8gg 9XMX3Zjci3XXfVaF22B2Nc1PwPkRCmtKNsLNkn2HhuDOtdf/WE/O1+bXO6G+ q8vK+83I/kqhdgvep+FKjxgrksdx8TJnzFPt8/SIPdmvkmvSg3k2eOgJPWD/ XSsc3ZBHascEM4LU43Joql2O5i3tVLiYS/o7s6raFPnqzeva+JzkP5tsGon5 BqsW932CacuTlneRt4c9l1I0xD2M5QY12P+sqkVyE8zeq/ftNvJnjV055wnT sVL257B/6FZI/yWY4xQSZID9h2vmfSmBBaf8bRowj6ojo+nPYf+q5gFb1GNa FS/bBTcbruA+Rf0dy1kDQ+R8px3GxpgXQ8CfEsLULxra+cjjYH3RpVFy/vrY u8qYV96j9DXDMM/KqypXhqZ+95Tj95L9qVp+G5B/dfKrjFaYq7ipbZRB0xWD 7u9qyf0OYdfrYH1Wm+Yd2DWQKfmAgd9PjHtj2XBpZ9zlZwyad9j6cCOX7C/i z59k0NTdkIfLzv/Xb0euFe6jGpjqZ0k+e1u1CnHfeMV4UyjM2HJWShWf7yKX 2s5wcr/IdNc1+OlM6tU44rz8MzroV3vsimwOcdC+y7eYNG1t1dFfTu7LnO3R QV7dv2h58Ek/M8fK8Xmksso1U6fJetoOegjrO6x+3qRuhLw08xs0MI9zzl5T 22DhwZ/kLDDPQi0fs59gTlqwP+bNO6AqOHMVZgyXd8thPkoXUsxr4NKV0RIt OP+K6Ae1PliwQE3/JM6fJX93GP3/7w8m/S9zMcz0 "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[CompressedData[" 1:eJwt2Hk81PkfB/BJskgax+TMlXJNTHIlMuyEmEW7EoXIkSQp2iySIqxVpnKF chZtkixWkVzlKmZRJEotmkTaSK70e312f/6Zx/Pxud7v9/drPu/HKO8/8qMP H4VCEV1GoZDP//5Umf99SjMp/LUnfETgoMD79ZnweJLh0noyXmjopCvDpLia WR5mwzlddvRauO6hYnUk7CHK0DOWZVK4qS6e1XC8m5V8Hjzd9c2Vsp5J8Xtj dvYTXM7XYWkLMwuyNTXkmBS6n2LQZTjIl7bEgqmqxst5ZH6gjp4lHCMftF5v A5Pykf+NuTZcnhkmEw7XFS20fcN+yQLBHvdgRvaeM7VwPO9F7yRstM3rayDM EtvZLaPGpAxxOyPWwMMfbzAMYZ5M8K17iD/RPMvHCp41eOvlCRdt3RprA1eF 7HOiwhSvFSxzuK/hXe9j1EP1YOIIHXbo35NO6rMYJWe4GvZ48PZQFDz7u+Tx MZwv2CS+NhIOWCm0qR6m8mi2qTC3plM3lcRv6e7UCrt2iu4OgCn6y13X4LzZ pZYASzjq1hFmOFyafV5CDZ5dWdsyDYfW8zKpZH1ISn0k8lEaC3vPT8Z7KzZJ oj4O2lq+K+CWV10pt+HHq7wHxeH0yQkVW3k8t29bYjfC6m+oIq/h8cz3M45w EVOl5dBa1Cm/Xyse5sgnOI7COasaLj0k8XXGHGUrIJ63KSorSb0esJ9mwA4X Nfyd4PTUsp864QFG8J8FMPU3y1kebH1z5eYp2C+qV4y4/I7XcjN11Hfffe0O OL1d7MhZuO+CnPBVWPVE1tdGOOjaV/+9cHG7fsosGa/qnxGG+/iWJytr4HlP 5c/dQXyhlLq/TWHuesoGJzj9ZZfAD3D67+UOX5FfaYiugj3McTyueQuWF3/+ lgW3MPwW/OEanWcVOsQrUry2wtKn/d3F4D4R03UqMOXgxPpxEq941YQymR9z Nr8Bjr/82doENmIu5qbBzIvq4UfJevt1S4fhj4JhcXVwqIVHjPW/+Y1tUUN8 jn2LHRpwaHe3eR5M4fy1QRK2vt/ushH5MXmNB4TI+Crh8EaYU+01JgynbxmV 2afIpBSkVQTLwOqMVL95mD9lQksfrgk622GlhLguJGS5wbPdDpmJsEkjr+IC 7Hxrk1IrrJcgONAJs2JdLBfg4djJORryLb3REaysjE+XexmeMHWw/KoxHPKa 8V0pbF3T4WIJp8eE+i7BRfM5z1lwfMaeoR2aeO55c/8YwEa6Zx4kwZJ6cysV YPoy2sUnsF4HjbaI89gWilbLtGDWyIFuuOlGkJUGHNP/8PZ12Oi3B/EsuEi7 uiUUFjSnZ/wIq7ryXWHDlKTzN36CjdoXlq2Hiw/9cNoa5p+kpvLDPQYvInVh 7mEPixeoD73d+owEHH+8/FMjzB0o751APH5syecP4Z431+Wa4KHRFfvfwAMj uXKX4R712gER7Edfe7D8CCwo4+WtD+coJt62gTkq3bkH4Rrz57l0st5+8XUh zJCyeSwFU6zZcxPwtNcQRRQ2aX3itgX14Jy+l0iFlSort8fBjIgD6kpwn+6X lh54aNJw0oTMFzLgV1TBcwqfdvOFa3RTtnrBfgeFXDLh4heZC1dVyPfI4JZ+ WMTnrgEXLr9y540S8q169NXtMxxkptAXAAvuHwxetQ7rP0+5V5N6UBWkpWGP UIUrQnS8r7fdEmlwQfxctSPMur5QKgAH/BEunAHHFCXMj2M//pOZa3thaRkb jzbYRO3ghNBGvK92Yaxc2Fv61AQDpkrc2B0Ce6zNV7SFBRkOoZZkvKRK0Rku 5mNzZOHxxhB14tl3rUenkH9LfwaVDfNSHCu6Yb9jw0x9eOD31Iz75H0LEMmn wY/9bSfKyPuo2JYwiXiK7uVNlsNMLvfyQ7jKSt62CWYZqeaQ+Ge7kwRfw9LT 28KOwuPHG5KEcT5HOO8DG24ZPFdiBlOXByTqwIL3vi+MhJ3bfk2Ug5nuOdsf wiKnpivFYedRhzkq6jOcue2HNXDi5JNpd5gtHbywgaxvk7IvhgcWFztZMN2w dsMMbLR+zvgInLPifNMW3JPFMfOS18j8KYuaEJh+eLJ4GB6Y+UPoGhzhFjWg ReoVIKvRCve0f1IOhfui7DWGyPz3u2sfwVEU1T/fwUV/ZD6T1Mb70rVDeRRu +TCSsg+WXMp2fAaXWt22L4CtP676i9zTJgofs4dgo6Mhaelk/ehInLgOzls6 J3YEZq6hxRrBLY6vp83hRYEDRTvhIbqqiiRcoJGQ5kbmU9LO8JAf58PKTFfY 9eX8cD3sbLqQYg+z5h+9yIPlhUwWDeGQSL2r50g9nETqpWDm0+SJaLilJ9Hs H8QjvWwzJQ7uUz6g0AwXvLx/LA02SRjVyYKT88eYFTDjC59DMExXK3r4Cl6M mzG3hxlXhhpoiK9cYPG8LhnPCgjaBcvnPTqgCJd2RV/Igh3KVRKk4Lq7N5J4 ZNz3q5Y8qV9812UD9CGLK7jjG+HHHTseRcOCXxQ62HBRY4P+E9iD67s5FE40 GNcn97L6ndB3JWT/8reeNrCSwoTeJMz/WP7BL7D8999GDZDv4upVT7NgJuPp iWjYo1joQRnswZ5V7YK9RT8bVMMlB6yEqAz8Hy6cT6+Ehfn/NtCHc/avG7wG e58+YLUbzhLgJiXAP5r4ixyHBUM+3POF+ev1fjsHU13PdJrAXM45wRyYe6wn bjUsUhIjVgw3zWY+eo18Xhr1R92BZ/0tQirhKFZtVCk5P+bvvRx4abIn/gZc XlcidAxWKUx1vkLiadtW7AbLajl8SISN4nbPO8JrLmiH/wKP+1squMA2b0cd vcl6vsFCf9j1y7URO9jDuOTsr3DMLqFMYzji5qsVFbDSpQ896rD3prMv38Nh YW97ZOEYLxVTOulLEmVvi8HWhWkDwbDT2HZTUZKffbBSHVxgelqSjPfsctcT RR/iK2ocSdazbmhq7yV9if6DEE1Ylf2OQfoWd7mz+UySzzPPpFH4w1XFQ66k fnbscUVy71fX8yJgZ1qrkx28J4lHyYWTRx94BsE5ancCmmF+VRF90tdU7TFq /UDqF1mYlghbBNgW0TZhvY/zp1g48khOrjHMXWi0OQ6XizR7ucKLYoqGLvC9 hhVNv8CP08Tb9eDKVu/HF+Chd3cjSV9QWWXanA/nuPCog4jXeb7J6jYsv1be 9zbcc2qDTjk8fbPYJwZOdZy9VQY3VfQ+cyfza/4xvwnPbttpRvpcAXe+0qtw 3dp3TRth2Xjqwjmy3/MyiQ1wYM+T3WEkvuzRHVqkrw7WU/CB6fqHx0zJ/ul7 79rDnLiqZ27w8M8+qVth9VldhwR4z1ZHCU3YW0FvWQPpE9OSA+VhxsnVq5Yj nyUqf5UE7GEQscEWFj+j1kSFQw5b3yR9VlC/lookGbda2TQCG93VoCnAqkzn WF30JaLyXznaZL8dfVLhcIFVr/F2OEA1j1sD68rEHPYk8brr7f0MR7J1zM+Q /QuTuCq4Rw1WsVOvk3rzFDq/hzX3y617AsdMOf+2G+YFakdPwya7fnruRu7t mxrWcrp4D993aZNxluY3YSbMdq2/woLLgrkRnnCxm02zGszXU/xzJOygatLC B9sVBX6XCgdkpyn2IZ6cBeqpQjjku2jO73CCweefy2D5vwSXnYQvnql4Vglb R2ze/SMcu7TjaTncZKHptBG2FAueKYZFTnyKoMIhM3H8OfD4zz68r6hX2MKU QBI5P6BpyxeYU9ujHw5zTspFk/EMa7v3PnCLtocx6YPrfLdfcoCTW0c2k/qq z36fYQL7nfQv2EfOX77LVQsWzC3QTIdr3lyXVCD1cBt89RwOSKvqoMHSxn8F kvqKDDS5SMAx6Y06pK/qT+YzkyL5HAu2vg/LajOqlWH+ZUc7hNCnhLX9Wa0L x9MMx3bCSy3nX+3QJf2059xFLVLvR+G+MHXeu6QNjuhNzo+DWUvW9C8w83XY ZlKP4m6ptVL/3vtfXnbB3E9T9Rpwjz2dOQ/zdokvapN7nV7GU9qM72++jXZq cOSl7mPbYaUI12cSMF+4+0VfMv5THnMG+2u6WKhGw65azWVc2L95m0kG7DcU WXaNjDOWdG7CHtHC34XCbeJS2RXw7D8P02xgm4pLJ+7CrBebd5C+revv1plK WHKc3r9A3r/i0OslsInY04ZXsHi7nVMuXGQxvKYDdsxTE+fAQ+pFAS1w4OoQ WgQx7X1rJ3wswreGxDs9dC1tGGaEJAfvhAM41CsCOG9bWtd1UzJf8wc+fbhg o0wpHQ6qSNwTCGeZmjUrwuPRehWlsKSYw5QUybdHv2KO9OX9Wks0kq/iqVuW qE9HquAhWVIv6U31yfDYn9uD1sMxbyUEXsMOgoPTBsSfbxWqo2/Rrk26YAfT 23YJHYTbUutTDsEhdwpGsuHIsObV5+BFs86D7fCa2O19d+AajQzbMfjYcYmc Ppjy6E3fAvzvjxp6//89Q5v5P36y9AE= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {16.937558817093933`, 13.081023536561336`}, \ {1, -1}], LineBox[CompressedData[" 1:eJwt2Hk81NsbB/CxRqQhRBtJNZbsRJeaJBRpKiSNSJRclbXcSIoySUhiKiKp GTeVa7lXRbaUrazJviUhyrVlv7/Puffnn+f1fp3zPed5njlzvvOy1vnMflde CoUixkOhkPjfnyL9v6hKpyhKNRdYwXOlPU2zKnRK25jv3gQ4T+muxSDML+LV 9YWMb6s+WQm71AU20NbTKcF/pH5JgrNDutqcYcUKG+GTsNOPndIxMGviKYcG q0b7yuXAEV+XCXYrk+e/K1WS+TKaRbFwtgWXrwH2kLv41BTub3eUrYEZDbo5 00p0SkPoJa9CeChEJycDLkx9n/QY9s2JsD8NR9faZ4bCXcp7eHVh7vJPMg5k vWhqoiAsuUg7TAvm734U30ujUzS6l39cBLdJfSuvhpmvMlo7UV8bjetRBvee dD6QD3ONe6U/wNkcsawU2FD8Y3Enma/vIREDywyptszCLrebqDdgy1btXfLY L7iltigWHvq7NH43nJfEl5wGW4csXuQP63tdDquE3bqCMh/BGXsC/pqGnVTe ZdbAU8I7Wkm+eQdS6JMwpdluhR9MC2Q2LkN/7Dj31F7D6bybrDbCbk6ciyIb UL+NxJwaTJMUN7aHm0bHipTgUKPFdzgwt3756uWw6L7G3BHYZMFc9SfW93/i I6S9EfXMuDyrgKmne+gecMPNo9MxxL9Gs+7CEVKbB/fBVQ+TruXB/DxeH4Rh RuPMpVrY3NvHPJ/0z+ysZTOZzy5RPwPTaiOdG2D5LbWnFWD2lszGEnic2d5J 5o1P2ZilIVIfpCqzEbOX+ldeRXS54J7qiBis5dd8BJFd/kVbC7Hq9DElHRLV nLaII7Zdto0VRky4sDJkHnXJCMuMdiMyPN4Y/CReNjJZgDh+1rWfjAe3yy57 jCh0bjSQiudGeD1s4uAaY2XbTWS9mdj9MeT5QO2D++GhGCmJe7B8rRDPBbKv UAfPH7DHopDo32GP5wp/18NuSfFyTaQvdo8l+BAtFQ3LeFFvsoyjoBGc4bD7 3UYa6TfP4EXYmlmUaALbcdPPlJPnvtWpHYQNFR5OSyPq2xxodkBM/6X8hSsi a8zuOhmP/XKiPhOxoX9N9Q5EoRMPLpBzGMiJqiH9jX3/U9EIn4vhEZ3DE1g3 z3NfuB/sq5hSQz638XcCHSkwbVfT8gA4+kb6xxJYlW53lfSXZsF99Qlmmom8 +ULO0WzGuQ448JT5k3hYtONnVBMZ1wvcYAG31TYqvCP7XVi6hA9mXjvY/AS2 W6PDU4xzSpfQrWfBilNajHC44YP5DSeYHZbbSL6ndJn4EvK9VdU9NWgEyx90 YYjA/Ml9u1Tgmh8dwuR7u6o5c9kGeG7HbFIxnLd64M0mck+ErQpMgynb9m3b Tr7XtktT78Jvcj41HoGdKFkP4uHxJ+mu5J6wFjnr+QCWX73q+HNyL0WGeuWS Ph/qp7bDXA+9E22kvwMvghajnojz4+dEyT0UL1GpA6f2eembwePicpsPwfxr C/LClUifSnb7kfO18eTzBlK/q93oVTh2d9QpBXzvPIM48RFwYUbiBi9YSFFU 9wps1622kA9H9xUc9STnlBWoJoh7006q3NYKViwuVDKDZawsh+Rg/fKJ3CA4 vfFoVB/yVb19SfoJuWctBzRSST8/X+cj97RhmrLaYTg3dL6xHW6wOaIjBruo +F75DJft9ZEvxL0j1F/xoA225MS3+cCiIpq2FTDrmIKRKnkPNCvYPoM9Na90 fFuHem2Gy8NVyDnuFMiBGeLZOs4wc8uzK9dgf00t283kvcDbznGHm9pThJfA /e6maw7BVWmO6/pQLz3s4Iw1nP1HnVUpnFGxNd0BFpK3/Z5O3guFz4S9yX7n Qhbuwx6hnw9Hw5aRFgsJ8JS7se+f8NDDyTYOXDZ172037NTR+70ArvFuCFuK /KcuxA30wpLMy9WG5N4NU/kqhXyEfL+/PE7u9XkNr31wgmBNVDg8/tMg5jax 87r2R3C6htdwJ6l/NpL9J5yQtah1E96bHmITeq/gwmplViDsli5ckAmP5FFk y+G5pUs+kvdoV7dEJXUT+lq1quA38p6xCpPeB2dkfz26G05Wv1MVBkfrDelS yfNC3ZpZcHZJse571DM3rb6sDm76sOttCDxyh7fhMxln1d3Rg9Mt2v364cIX aVH9CljfwYDdBefWhdxMgBnTfF7vYdUED08bmOIv/DoDNkzsKpaCy4Tmn0fA +hu5pZ1r0Tc/2ZpjcMTDQXoOrN/B7taHEzryveNhExWfQjFYkkebEgaXpY1t 7Ue95h9jh0Pg3skSvjLYP0jn/g04uZjfPQNmzLxtTYGDxcddHsLWHTO9RTCz 0c8tBc6mxF/uh+em2AefwUOqigqSyC9vYPC3d3CDdff4dthOdoX/MJm/cEP8 DFzTvdRJDvnoePnGs2HrXEbGYdhkZEntK5guvsI9meS7kGTdCDtZuih9g/Pq dq3tI89LcrcbqOG8UxT/GoBVdZZ0hMFtwXuVuuDYlIvrGuBUjxVK5XBXDPXA SnV8HpNZwo/IfgEC3+xh6phxni9Zr0WwNBpmC0S+MYAV+fg0XsGqm19vmER9 GV8j+JvJ/Irle9NhmktR5gDM+vF+/AipP1hk1zDM7GNMU+F03bM+vbDJkeSd pfIYn7vlUwOLvtzBCYL9JxzEs+Cy9hvPtsFdIkVXIuFxv+KoxXDhu1ZHV3iE IydeLId7UV39+BbYM0o/jiVHfofo+lFhO7+dnSfh4FtjzEHUy/4Y1+IKJ99Y WVABF9ps0g2ADde7/siCy1TS3DmwjOH1Txx4pP7W5z44dZ9ZF3E2r2X0Cuyf 3MPsyoapGgx/Uzjha7BEtRp5L6cd9IXfNMVJTML+VudNHpD6Lrv00JCPvOxu pwoy3zJ0guTP4obPDMFu5wRNnpB+PJ7NECTnK6zbeRKeeu4QIQUzBK4yFDTw u4e6RkYGNu0aubULlnRu91kCK2pyIs/AhW/nHSawHpcp/jkGpri+0KuB91sE HMiEua33Zu/DTsUCtVVwrtbtX47BVCEXVjdsIqzHLwcPba/69oOMu36/mYb6 dQpSXvyEnTxOXReDBT9E/TMFs2LuvfJeQ6ecHm+RHYenotijravpFAXHZc8H 4LKkqZK9sN6IAbcFlt/5eEf9KtzXXpXry2ANrbdl7rD0EnXvLDhjX+ALWZgd qTqaCHf1CTj3rIRvrpe8BrtZSjaXwp53W7eeJfv7ZY+WwAkuMYXH4ZpTTsat MG33oYLDsEzHWlVhrBeUq69iS+bH/eTbDV/uHMgkpufyb7kDu21JfuUAMxzO 3vwbVnxixvyV9C/nuuMe5N90xJN5EfZnVVQ/hl0uTujdgYMTVJSn4L6+rfK5 MM1tdLkh+vE6s25pK+nfzrHPp+C8/JIqiib2m9iedQ02jzoxtxFm+ydmRcBq 9Slae2H5lyeN/OBwQyE+P9j/QOJXY7j35aw4G04WzYqYxH7u90XW/wVz7Y/R Y+Ctf73UrIX7OQ/0ZOGrusLuX2C37sWJUahHS2e96RhM04hzm0F/9BQ+hM+Q 5w36ZB3hFpE1lrMwa8nigJIVdAqvfvzQBMzIrzy0CW66dUnmG8mnvn57iizO d0d1fivcdHPQYCPsbfedUg5PCZ0PK5TB59bJo54N28XQArzgZCOjZ/fJfncm zA3hUAvh4WtwhkTu8Fo4sKCCcQ6uETVapwBv6Jdc70bWF7h97Bd46uyyCAcy ruE26w4/Lu3ztCP9sPZTfgpnR8cFHiL+PZsxD7/9R07sKHl+PWWDLfKLC1rQ PUPqH3s4/QesusI1J4Ssl9syuRj1eb7R5CH5+T+adz8Mq604Z54Pj9xcufg+ rLjRKqiLzHfMV/sAOyufPy6ohfqCP4n3wzEnTFM3wfLXTaeIW/S+VVjDyXGZ B6phZdGc0+fhqQLLj3dhrek1eokwtTrUyxIWeyYx+IrMXxVu3Yf8xLTCQz8S 0xXKfoU1KJ8NB2CNHqpoN+pbNb3n5iQZ/zGsYAE3ug1azmuRvtfdfr4ceYcb hxMLNeVoSsLGSSKZP+Ey39tFQdLYP0P/7BDcL/K6bFwK5yX4XnkbHPz0DD0A 3s/2bygn+enyMaXhuLXsvmy4yfSIbbkk7onzASeSYFq/lEUcfPl3v9JwMv+N xOogmLXN28Wf9Kfg66/BsHelwY2TxC327HtkvtW8gyPJt3jgUxWs5tyTZw/n +jraUrGfYafmHibJf/PXY0fhyEVPTriQ/sn6PH0JO587KO1Dnq+pDpRGPXki EpIs2HzrsfnTcG7g2+oUWD/J/vJreEOmsU8xqZ87W/EP/PJvs+EvZH2Bnu1q 6M/4sPOCiDbqP62uYwp/txgx04Y9j0stmMDcBTbTHtZPTVJWgsOlg2svwm49 266MYj22zoG9KTDbwWxVCqy42jOlkIyLaehsga26mOXN2uT3i5Xqa+Qvqt9L GYaFOJttteA5eZP30//un19E+vPvPzV0/v//DEn6/wDx3iTG "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {17.562441182905612`, 8.08102353656179}, \ {-1, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.154800000000002, 9.999999999999995}, \ {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}]}, AspectRatio->NCache[ Rational[1, 3], 0.3333333333333333], PlotRange->{{0, 66}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp6", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags6", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res6", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", SuperscriptBox["3", "2"]}], ")"}], RowBox[{"SquaredME", "[", "amp6", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp6", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp6", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res61", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolarizationSum", "[", RowBox[{"res6", ",", RowBox[{"GaugeTerms", "\[Rule]", "False"}]}], "]"}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"Alfas2", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["gS", "2"], "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "2"]}]}], "}"}]}], "//", RowBox[{ RowBox[{"Simplify", "[", "#", "]"}], "&"}]}], "//", "Expand"}]}]}], "Input"], Cell["running FORM... running FORM... running FORM... ", "Print"], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"64", " ", SuperscriptBox["gS", "4"]}], "27"]}], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox["gS", "4"], " ", "S"}], RowBox[{"27", " ", "T"}]], "-", FractionBox[ RowBox[{"16", " ", SuperscriptBox["gS", "4"], " ", "T"}], RowBox[{"3", " ", "S"}]], "-", FractionBox[ RowBox[{"16", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["T", "2"]}], RowBox[{"3", " ", SuperscriptBox["S", "2"]}]], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox["gS", "4"], " ", "S"}], RowBox[{"27", " ", "U"}]], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox["gS", "4"], " ", "T"}], RowBox[{"3", " ", "U"}]], "-", FractionBox[ RowBox[{"16", " ", SuperscriptBox["gS", "4"], " ", "U"}], RowBox[{"3", " ", "S"}]], "+", FractionBox[ RowBox[{"4", " ", SuperscriptBox["gS", "4"], " ", "U"}], RowBox[{"3", " ", "T"}]], "-", FractionBox[ RowBox[{"16", " ", SuperscriptBox["gS", "4"], " ", "T", " ", "U"}], RowBox[{"3", " ", SuperscriptBox["S", "2"]}]], "-", FractionBox[ RowBox[{"16", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["U", "2"]}], RowBox[{"3", " ", SuperscriptBox["S", "2"]}]]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"res61", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"32", " ", SuperscriptBox["gS", "4"]}], " ", ")"}], "/", "27"}], " ", ")"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"T", " ", "U"}], ")"}]}], ")"}]}], "+", RowBox[{ FractionBox["8", "3"], SuperscriptBox["gS", "4"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", SuperscriptBox["S", "2"]}], ")"}]}]}], ")"}], "//", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"#", "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "]"}], "&"}]}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "gg->q", Cell[BoxData[ FormBox[ OverscriptBox["q", "_"], TraditionalForm]]] }], "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top7", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags7", "=", RowBox[{"InsertFields", "[", RowBox[{"top7", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"V", "[", "5", "]"}], ",", RowBox[{"V", "[", "5", "]"}]}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}], "\[IndentingNewLine]"}], "Input"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[CompressedData[" 1:eJwV1Q04lOkaB/CnhkyWkkjla8gsMU6jKC2ZV6yk1JTtJOlrEyoMbahNHz5a o7bMHpOvU0ydSEubaoqiTKXSoXxEJllGdBKqSVNR4vyfuS7XXD/v8zz3ff/f x8XqZ9HqbeMJIafwQ7+JegwfE4ZoUdgwpHfhVYNQuCQ1Nou6Rnf1ukfTGEI6 2XaTYHVPyRw3WFXTfMsOLo+LOCU3ZojZg72NK2H+ziiuBxxYG+adBNuZ+ac/ N8I6rdvxt+h+l7CKdNimUhA0not6G7YnBsPts70Sl8FFKZ25i2GpV793Fhy9 7UGuJ5yyeqTjBZxt+9vgWnjohfVRh+8ZIjTV0UqGf6rgnIuCOW58por6RkTj ebjm2FIhG/0kFHRpPYd7+bG+62AO80MpsWXIocQBVQkc/mppzQyYHx5+5RvM Nrdo5sJ7cvr2+mBepVPCoA1s91J/eRIsXr9PaQKXmhgrS2Dp3mUPx3C+XZbV iTtwpa44tQNmjvkNKGBXxW3mGuwqKvtnIVwUwNudBiuWbBbtgpffzmwJgrP3 F3zmwsz8MUdHWJyW9vgO+okemOPGgn2dB9uWwb2H/07vRB6lGW9eV9M8q67H VsOcpUlJc+GES0+brsASjt6lnKmoEymZehFmisV1Y4bYZzY6owye7nDAdQec cLh4Xh1dP27l9x1TkMtFw2lv4Zq6psDN8PKK0S5T1CdumgGNAdanljr+BCuD lbPzYQ5rpfEJuCi/MmgLzLvZLWyH9yQtkbvT9Re6V9jSfG8l+TjBvasmr/4F VrKsRxbB2dEr/rgJlydbnNsMS9uMAll22G9uNDOTnr+7lbsYVh1z9W+Dmxtn 1cbDvqOLjtmhv54AdvIZ+JDO2KV9cPWpAp3bcHhvfNBj+OTvX2RNsNg/wMEU 86p6PBxb6fpN8/Q3wHXVO63r4SGX7rB0OMJEJa6Aaz4q1v4FK703vTtF69lr 2q7BIUc+Bu6BA1dv1RTCMk8p1x82kDXd2U/X3439ZAFPD7Y86gY3l6SlqzGf uI9ztQv9RLQuL6uGeyMCKnbBnFdJ0/LgwKCJkwYxX02F74yDsCxgV/9WOCX/ VdN2ml/e8eDcyTh35qWXm+AG/mX70EmY59cR0c+wZIm1/nx95JkwaywGVrUH yIz0UOffxmnHYRI52PLdd/g9eRRRRs9b65xoo8uQ3Zfz9/bT+3zdSb1tIvrv MPlmh/5lnNeZLWz426WnkTBztb4+Di7tyZWUwZKserkfrKj0T2DNZsjmg78a CuHwu9WNK2ADT+24ZNi5v7E+k/pZ+JpOOMXCtl0Jl+q3rAxGvfArOacN7fE+ Lh9Ofg+rV3k6LIZl/YYfpbS/eQu+boMNVGksd/QvTH1juh+WGOn0PIeDC9Y4 pMINOi6WOzCv+9mATSn29O9rRPdv2PnisuRYmBnt+IGHfHolL9+up/vv/a9L CDdfjYlbCKtjrlj5wEzH2TUGsKrcyGsirHXgtHE3+o0OPNWSg/NKQxJEctp/ rUI+jPo2nhm8VFhRJBjkwRI2d8JGWHamvXAh+nfVKzjsBnMUB4ptMd+Ay8JX VjBf9HkRQR68ezfGDGl+L9NPPJqA98QPtzWAVas8InK1GeLtwdjPpPVbXiXG aDFEL6fSwwkmJkGWG1io37KWtYbWMy/OCx3PEKP2r0kpcEO7aPTEONQz5TK3 YMloRcp7gvtV6+pDaN4fuHH74aFgb8YXjuZZ9bjB0e7m0gyaR7payoNDbAoO dcJCje8Ef1h1t2nRbAc8355yJBuunqprHgWT4ikH2agndlleVAwbCApypHC5 sPlWJ9xgc953Hvrja5ovsHnYP09s3Qab5cz35sKlVvc3HsA8RWMxKmfYIGdr gDGdN/Nl/AI4WtqulsKkXpjlCJNhywUaWK4UBU+HG9Kc8hyQl82HcduHaf2+ a5EusJZhY30THD0UN6YPN5hkjRTSfhc/eH0F+yMKlFl7YOHpL5Pt4KJDI2F+ sKRzSnYk+uE9mOBkCSviuffT0G/KdJF0mOZ3k1+VjPnk/00dfA7zb2jND0Ee bG7bihp6/6au0NsxKiCctdddFfQ+zQ1LGjciIOF9Zter6X181hd2dlhAUtiZ Pk/pc5usxrDPAiLt6q/S0P0sy6BNHwXEm+RF0vocP0uPkx8ExIjlpruG+m1u Bm9QQGR59o0ZdB5P88KZ7wXE94JHxjOYifp0IEItIMp604ZZyOfQc638WXD4 41VPRLAs1/2NO+xq0vjkBqxKLGsrhRMCVhqNd8TzB0U3fsF5GqE1ywtmSuf6 xaFezwuLwH3wZvm7LYXop/IPzpzzMDlj+vCdBvN2aVvU0vVadzmLPgmIsMXq RxVdn+/bvgfz7X68dV0vrLD57HZ8CP22VZ3rpvvTPTx2II+aTxenPKH1uX8m jMCu3Z/Gl8OceHHfgi8CIg813SKlz2flR0yFhzrWx+6g55exvY5gvRFvZpM7 rPoSxZzE+YoKjfMkWu+hZZ0/6msce0O76Pye3X+dQ77O2gOm12GFWU/JNczT oJ38JIs+b/V7fwTzj6hLKg7CDP/3s1Fv4TtHs3ZRL508IHuN95fb/WcM3V/l f6+1R0DU2iHF++nzGpmOh0pAgk1DyzNp/v8S3x9qFRCe9OC6Snp/t5gZiBow j+Rr8htq7aK+hdUC/J8aLrSjefymu/GhHPmc+8/NndSymDkDJwWk7scLoXJq +sm+SfTo9z+Y/wPc/pV7 "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {2.6125141805200567`, 11.914057016624067`}, \ {1, 1}], LineBox[CompressedData[" 1:eJwV1gs01HkbB/AfmmkkjEtSwrj1DhJdsan5V3RBrSLpToU2u0wlVGiiltn2 7UyRWzeFNavEVjbeWPNGIbuooQZhdFs1KRU1Ytnvb85x5nzO/C7P853Hmb/V zqj1oZqEkAv4o++kbxyvqQwZpO82DOGfajF6Dpd7FYfdgkvbUjquwW6FeVUR cG51kct2OHrN8C98uNx9TG/YhCH5kpHkfmusj8k8IIJnpB/dVAnLXukI1FMY 4mkWVp4BK1YGTgyFlazdVxNgqUnis0Zjhghznhfto+sPRTrOhd/ePZm5H+Z5 Fy+/YMQQ8uHanaN0v/p+gCGsYCXLM+l+55XGGYYM8WC9NauAg3TVP8+ClU59 Yb0wd+mL9woD1HVncL4e6iWPFkddgEcdpz/ygJULFbZH4L7uLQf3wpxn21j7 4fwws5B0WBjTphTB/OefNcvp51uFwgL41ucSAzmctVBz31PYraO68DmsftJf b4X7tzbt2tQH1y9pvi2E3dqsvJSw39QK3VqY28uyaIRlhsfDTdCP9DTP+Vea p/+BH3bCrc8sgo7AA39tMMiDX/hZay2n+y3XN8jhPf7fGmvCvPbS2gHYdupD +f/QL79hiekXWNi0Th4Fi3YvU76AnzabtdjALSVxgRWwb/GStHYrhjCe0zqj YclFh4dp1E5xA6bwBK1FkzbAfUvi7KWo14Vc/MHSivabozMTju9VVQ/ycP5q 1qsM9B/NyVjxGObOC7s0zmVIwJsZFbWw8vDb+FCYu7HCTQYHe400nNPHvNl2 rK2HecuamXg95P0g5WMnPJDS4R6ji/pNo9KH6Xm8d+FnJmOe6thz6P3MdtbA Ex2GpItGw71hSZWbiS8cVKDIjINdJorJx0kMqZyaOfoLLJqy+swDeNDgYfMj WHawKaQVNv6k8d0wzJuorNfB/kpF1FZTOr8RNvoR8IRmv0wnOj/h56+9gbkZ L2NdYWWX++VjqEcyvk85H85tjO2yQ72c7IWednR+OwJv/wnzBluLOTR/2eaw CPSX69f6Rw/uKw14J/oCRy/wlV6Fc88eORiOPG4ZTTKPhIN1bg/fgOtrHi22 p/VG6UfIYT/bAlEP8nCRd5vVwsEe5ulpNL/JHeIk+MVWT2YVTDQ8j+jB5Y1u KwjN31qisRf3lbp6i+ItkW9vQEg2rbf8C0sblvQVKK+gH35RCbvIAuc5mCae Qr/qOYcSdsKy4v+nhSKvoHhRwHzq6cK9c7WRR3DLWh48IOHcHZ+Iefzp4Lgd TJhjAQo25iZif9NyWLTNZtN9Ft5NvXViYWWgTFc+AesMvCdX0vXzBT5smJ80 c5Me6nEp3OkQpoX/lwZ19x64ZYWq8rMmzhtZ5ngfzv2vb3cF7NKdv4FL5+Ob aRYlcG3Zvhh3WKhhdU8Ot0pevttC+7+tNWSN82aU+CQfpP7yQHkW5uf77zhO 96vUZra437dgg2MKLLGMGa2BPVL6zRLo58b9kyJQf/A815FQmveaw/F66E+x bqnjMpr3R4fSPDjgZvZlQzh3ZmYRD3koPNaW/4Z6SfVXcTwsfJx3yQmWiU70 l8DKH8V5F9C/ZI+LTxksOXROzYZbvF1cxHR9wwKrKHPs7zH5zgFOHdlV3DkD eXs16efgvtQq56/rYKG0MbET9dXvFnx6bIZzzug6DKL+LI2c9ki4xfraDhX6 lbo6GprD3PKujw3IhzO8Yuz5dHzetKYtWwPrh9Q9tbAoZF9eKMHn83c2VsOy 0oXrhWMColzSXCCHlWc76lxHBWRP7Om5Y3S9zw3DBV8FxLSJ5eSB83kb4h0P qQWk/Hp2pBhWnkqSG3wRENEmI8te6sSyQc5nAZGkqN4uRv3Ksv2zdw9hfzLf JwfmBTqn28JSY9VvAzCxH81dAcvEf3QvQh4M/0DwXbhvtswgFuYlzW08ifOk 4ieeF2leDTfWp+G+3IaEzdfN6fzxMu6jHu60oaUFdH2vlpsB6t2zyEc/iZrN adw2gvWFXLYXnFtn3piB/kR5KzPe435GXJJZ+A/q67vucxwWDZzYlYA8SJl9 KZvW/z5WnzOO83vPWx9BfyL20MtvYGmeRf4r5MMM9c7WhRWb6y6spXmJdM8e xn63w3WXy6ch35MXg5Lp+eyLDg5wsJGz7yzcr9AL2SI1RX1/3jqfiHrjYv6p caUerglLQT+K7XaznuJ3mPhPtNiI/hWTNoZnwYx/119kUECE7qPzImFZQvOi 7A/Iu5P3H/q7Lbrdr4p4JyCcXcUF4XR/SFqp4rWA8BIPqFLp/q2R/MsvBaRU 545lNfWNmydf9yJ/xY4YNu4nNtITuV0CEvz92JbNsOjYiHa7AvUlOV0to9YW p+e0CQi/MKjPcBr9/jYu+iAXkFWi5GPfU//0qvgx7DeFq19FnXQ9cS7Wcz5l nBmnLrISdD4RkIHfP5c6Iy8SGhiS1Yn6d6lfrKbzWFm521CJ79/dQ+pD/fGc OusZ6m1Kk8yjeccGVi5A/VxRdLAGzVtyM6HqbwH+r2q0f8f5jF3iGOuNgKRG t1/xp/nb1fX8rcK8xixd20Xrr2mKYPoFRH3Py2Qj7bet1v4TbFqgrrpH82jX slfBnJTH4tnU+mWDZnCW/4+amXjuYb69b5uE83hxR29NoDbPPGGDfP20k97H 47mHKfi5Ve8V+sloTp0Ay1adN96C+rmnPl25hOceUfEc1pqnmMfTvyaso/br 2euAvBRVBn4zYFIV9HpxDeZHXzVbg5q+8quIkj6/GTH/Aldznnc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {3.387485819479944, 6.914057016624067}, \ {-1, 1}], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {16.61251418052005, 13.085942983375933`}, \ {1, -1}], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {17.387485819479934`, 8.085942983375933}, \ {-1, -1}], LineBox[CompressedData[" 1:eJw9lgs4lPkexyeXNak2Fcdthnm97ytsRZ2S26mfI2WJyChi3SL3dS9SLpGk dRstEhobJRzXlJVaEXJrpbRIGFIitzqVVNr/nPP0f59nnnk+z//9z/wvv9/3 +yVc/fe7izAYjHz0EX5P9H1Fzw/A+N9DwchMqvrxZsSeakkm3SQ0r/orKDQW sWVC8U/FJBTldPynSx+x2p+80RQSany0xHPnNIARoL7icwwJZaFx9VQB4lTn 20aIpfxYO6/bIua7n7+bRIKZYyQvRQqxZYPb1BUSrlvO7X7SpQ4MTvHz4g4S hkLKPvnwEGe1VHotksDzv3F8zAmxnM+wymYKfH7fY+23HTFsMQv3oyDZy6+6 XR6xVFvDw1IKqizb1hhLIHZu6/B/TYHI2WjRkq9qwIgeXkhXp0ErdNx5vwga ry3enu1Cg+RoK1/5e8RF/qtkeTREttyT4xGImYM2b2ppsJIez36shzhVyzvy MQ1p65trHx5E3P2xLHGMhvJZbqfpUeH4oVsB4zT0Zde3zqUL15eVoDhAw49D nnUny4R89hCzkYaeiMD5ribhep8dMMyjwdhtIvfDQ8RhS9/tD6Bh6dWTT05/ Ie47baStR8Mf7ppSXT2IR2aNdy1RsI+I0g0WzudP9az9g4IWKYMvX4qE59OY 7RBFway5ZEV6rPA8dVeOGlIwp7ix+5G18DySX5oup8DI5C3ZrSCcvyhg9pGw 6DLykjGAzqc7LM+gggRVlmTK1nTEI52qeekkRLtCW4QJYi3ZV16xJBzlfyhZ +3k9mm++0jqaBPsTdYt7KhCnCqoiEkk4LdvKP+yBOEw/JjifhMbyY0eTSMTg GGZwjwQHj/teNS9UEX+csZknQWb12JrIKsRS4ZpdqhRkCm5nayQgnvinqLUr BaaTFd2pnojD9hvY5FNQfnnDi9VcxDrTpKKAggtFJna/mCIemUgbU6LB6NJm 1UAz4fxmF1FbGv4h06Nzw0b4/tW3Iok0MHqUn0x5CMe9gn+vosGpoDDSNBox g1vr1k2D9lxSdksO4oWzNfUC9H7vbZn1txA3xBYse0HDF4HOG3Y/4r5l5mLP aNA4GXjX5b+ImczVaq00hEQZTrVIov0ybLMcC9H9/Xyk5KACYs+eEHY4DQH+ vHovArGJxLT5Lhqey/92t0IJcd8P49uX08DU88nfuwYxc6rQs52CAWUD7UcL wvXUFmYkUqB8pmSc24t4Ljoxdi8FSU28afuriNX+Xf5sLQXavYl+L/wRa+VE qoyQkF4Y/bO9lnD9GpOnbpDgfSTAJWIS7WvOULMjk4SrERcb9vIRe3LeWZwm YUN32DVxLmK5TP5AFAnPl/Q93koI+UxU8RkS7jNvfXa+Q6H1zm70zCHh7eas 1pPhiPmuVptukyDbH2djrI9YLimGN0HCbjfOMS9xxBVb5q6zKPiguS52Zz+J 6s2atDlIQVxzXlblTcRzGoOTv1IwJBERtxXVDYMfLdvYS8HyyeM3G39FbHlx Xk6ahkCBWfzgeeF8fXKHBQ3J6zTLk3IR3z/XUhZDw0org4ljZYh1XipsKUX9 eURv2Wgz4qx86TcdNJyrzJlvFwjH7a+lDNOg9kCof4ij+Qub0f02T7p+v02J wuOVDs1LbD0Kz+cGNckmWFH493vKuy2DUJ1++/9ZQXU46UPh9R3sjzP5lzeF 1x90Pi6iw5HC++t84uxhYULh/dv5vj7RoErh85F3Gk7IQDr47fxMJo8X16E+ +na+vmkeOqfiSXz+mXW7RC8Zkvh+fHObslYuqOD7IzvjDyyWqOD7LeK47ax2 UsH3P74tJS9ORgXXRyc7Kq3gTwLXj8ZMCE8+lcD11fPVd22BLYHrDwy4CiUa BK7P0BNNbRskCFy/Jq7nHatnOLi+fU/9tGOfgIPrf2SDn1HGEAf3Rz73Ardo nIP757XRHWnddxzcX9q7k3fkrSBw/x0WtKwaVSVwf1q2Gk727SJw/yqWBrrr HiZwf89/sIupiSJw/zvPD6tLZxFYH8zKNrb+WExg/WBTD/qTrxNYX1oVbl4J riGw/lQqP5KfKyGwPn1XZaHpn0lg/aqtM3TvPUZgfdNPYs3EmBNY/8QctmeY yhNYH3PXJZwNGuRg/Rwo0XHKyeJgfRXbYyxeu4+D9bf/kwR3WpSD9ZkfHOnH 9FfG+m3NmBJk9CthfS8N2aG1ZKaE9V/vvVytUzsb+8OIRaGTrS0b+4dgcvJS 3wIL+8tW9zPiYmUs7D8i7xlJ8uEs7E8qfvxh90Ms7F+X3ayYYMXC/iYbsOme lAML+59iCovtFsbC/ripfeM5scss7J9SVvEBSn0s7K+uV208vNexsf9GvgpJ drBkY39mSG1rP5DIxv59pST0wdN6Nvb3X0L87zSMsbH/O+Vs3WH/iY3zwa2Q pYVrDCWcHxzGfQdD59k4XxRUUxe8O9k4f9xv9rej09g4n5yw40nqAhvnl+cW vzHVnrJwvjkwrhRk7cbC+Ue9XeTpyJAizkeXSltiMi0UcX5yvfg+/sZNBZyv uOV575qVFHD+svjqUeCWII/zmTTbSkHmoxzOb8OHnpWuCEUc8P98N/1YqH+y OP/9DddNALg= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.999999999999995, 9.0548}, {0, 1}], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[CompressedData[" 1:eJwl1gk41dkbB/BfKCLda2vs15ZuY00pwtxbWmTm35BEM9kn2ZOUZTCXZGm9 Dcm06DK2KQwypYVIjCVLQreSNboiUejaar7n+Xse7vN53vM7533fc87v0vQ8 vOegCEVRDfglnxwx/KF02JQE+dRnU++siobua7Mp/ppVMe16bI5P1+LaYFjR YXS0RI9NXSxgJTNgs4ddajzEvR2OLGnWYlPpyVpaGbBbieKNX2FBXb9JAcZP +9efMoSdk4ZKGxAfM48MEWiyKWbWrOk04jJU/9ObcFL6XIo+1jcvKbgcCXPC Hy8N1GdzpmzDVu+Dw1nHbW8hLptfzmDB/DsKz+YRf8cvjTMltrT9uNWAzdFm tqWYwcFKRdInDbCOeuD4DlhA02ypRDw6+lSaK1yvkPrDe8Tdxvzlokk+d6fN VhqyKb+FCu51WOK46SzDkM0RWZ4oVgNz91dWasKxocNOb2Ab1V0X5DA+xpPD pVCfXWno7hnMN870F8rD3LJvM5qwnkRe4lYGiTP9uy8ivjHV5S81OF/vr1kn 2FOuZxkNLk9yd1DA+I11zYMfMT+VOJXwFPVJG4rHNMDlEqZbuKj/60N2bQps LCcv7QgfMIjd7UDyH9bQ0YbfHh/5ThJ2191hvYh+f187YXhfA/3n0hKG4KC/ U8R9YTO1X2xfo/9fJW1frYKrlIzVEacS72VEnGcg/uP0nQVYsbNFb1Ed+dBz 5rQwv7TzBSoKVgzgiu2D5elHt9OJv+bYpJD92enLrFBDPrE3ip/DMp8Mz8bD 9BZeHQP1VvEnP3kTV5sOHoJnzLNCvGB3pWrXAnipi1V1GJyuavtoBLZLC3Dm wVzel2lV9NuotZvHJ+PjC/2sYdGudmMVrN+Xpmj5M/yjxyN5T9h50t7WC85+ qMzIgydettmQuJ+YqsUbWKgc+og8f9HYrVIO9dosWsiqw9t2N5cZw+FhavZj WN+gV0p7E1w1029eAk8GvrHQgd2rzogFw7rLXp2cwXzpscYW+nDxk7nxQjj/ QdipEdTPX9LS/D3MPHeAexM+OhbS2o78hdXZN4/B9mcfPNsBh0sVttjCBgqs uwWqGD/R72QAC76jVCVhYbdwUh3u5G2SPKjCptrepkRrwEGj9Fs1yoh7RS01 gdd8KJXTh8ttZSv3wHb/DuX+qYT6xYW0WLjA+ryKEVzl6V94D07K6lNoV0Te 4/olC3BrMefLObjP1KnWGvV0am4Z8Ibprqp2Z+BcL9ov+2HhvEx2O/yjSXf1 L3Cw2Yl15D7Y5WwcOwmnP11/2xaOKj7wdzk8wZXzPQ7T9/4x+pk875LOSIWL 6QsvrJBPum2jXxZ5flvb/ni4zS7qBg/Oc6zbWgvnGxQrnIczGXF35mDB27I7 QfDTZ5ahDNTrk6bruQVeJeuiYASHL55KXQ7XOzns0YXdW5/+1Ih8X6flrBWF nZMjdBJhq5cv5x9jPo1LUWmkXtWR7pQA0q9fg38ShY8quaouIF9OjPf7BvTn FtUmEgYLqjWOXIZztQ439H+D85NOiwuDm7WaGrfA5c228l5wL2tm8uoqnF8x l/2u8Mkmhv+sAup/wy72hfPP1di5wPmSh3jxsC+7bn+LPPoULd5XCJ8dbDxj D3P4vgcHyfk5W7fwTg59Wm0Zp4X8FK78/Ps1WMIjWdwH5ri8eOMH960MDC6G 3xe/03GAuZ07ZIRwsz1d2ZF4bMrGAv3p2ya+PghWlI8tIftT/NYq/zIscLv1 vzyY2p1U1Ann89eUNMIWG/zvKJH8cps1euFvWdfvu5P8LFRvDML+HUOns+Hw +H+N+PD5zCntXuIOG/8KWKCnOS+JegUizEGy/3+8S9mtDafzE7rcyfN8DQ8d mD9EMXTgf2oDC6XgicijkgPIn59XK87HfEypIsMMeGdke2EyrLjcxfwAOa8R vtZasODrrUryvrm+IeVBNvI3ywxYPob+tf0xZaoAu9dmjNfAEctuVoTLYv96 qvP+gjn7YmidMjjPjzvLMmCPrJmdxrCEt3X9n3CImuvvXDqeDz1RUQ7/YCS8 +ZmG+BmJK91wy+nq5vGVOI/qDtelsX6AyLMoGqyY8JvzLrjOOzLGXRp1yMjW kvskPPaENrwC+9luE9UBZxV0FGSuIO/DrlfkfRfz/d2FC7Di6gwzT/J+Yrwa LIV9vn1Hy4TTZubuLcLBU1Ebu+CB0Jh8X8xf9UJG9Ct8QHf1N2Nwm8uKECUj 3Ift09YRyIdjEsnWgatCJl+JIX9u/uKCOrxgtS8zDub1VUhLwjyVe7S3cN9q 6ZvD5D5VWM7LoX6mmnTrbbKeVSFHHeZ/1lOJhpsuacjT6eR8vS6zJOMvKlMt eN7nkb/KLOrbPPZQsJ30a8WK2X/gviIfhVPIJ/zj/cnj8CmtTYevI1+bWr8Q FjzldcjhLOprcxQ/IQs/sL1g7CKF778rz699RL/PiTAllCVRv6XluX44beL5 y1YJnNdVGc598MJ6jvhpcTzfU6//AXbuMM9xWobzIeXnRfYn8oJmP3sp+pvV mWAOtwi8fezEkL/mFe8jsHJJ9PBZUfTh9uCGUpJPJDvjiwjuRRitgNynDbsP aefAwt70zeT9c9le1CwWzi+eNEmCV/Q0tZ6Hk2jPFxrgPfelzZvgcK/E7aLo 7400eV89zK9x2EF/HaxVIuWTC9dvNPW1h3WeFXYZI5/gkEP+niTOr0mohNu4 XkFe8Js1x9Wtkb/xnH78XjjAaqiiFPbhuaVuhDnb3DJEUC83YqWdFMzc1ZO1 FjYLkFfpRD4Fkqx2DdgnS3wsDQ7VaCwbJP1oitLZS94H3kxuMMyeLPKiw3EN V2Pqsb7Ni1HHVvJ9t36X+wfk22ZvdyIVpoy25I2iPs5WXw0v+OoMY0ndEpzv JaaDVjBdLG8gicK+99T26MKCkbmZ376wKMHnwEPkvqbKdZh8mIc7RigmrN/L WRY+y6L6Nkc4sWEfGcf8dZ9ZFLtz6zby/0PbyOBD42kWxX38b/dl+HHNiF3C JxZVxbt0hg+7q8o//+4j4sOjm9TIfSi9luExyaLcHX86eBC2/BrrOTHBosLv BAUUwkxfL9O3cNXAvdxJ+MnBvbctMV6jp5FnSPbj6N1zAzBVFmDjAV/NzjWp w/zFR3sVEuGJ+MwXT7E+e1+1QQY8dq0y6/0Ui7LZPhORQ+7fh5YOaoZF5cua l18l+3P31dpPsI1eanQ8md8xXb4I9fE3pxi6wkK3mnE1IYua2Js2pkdsl02t h8O72RETZP9MXzoMYHzxlziZv2H+tuAdurCxocFWf7jjNafrC/pj/NihnAn7 NPlnHSH5rFtCH0V/ggfSriUjf47Ikz/JfYw6lh29D/XbrH/pdpr8v3bpUuvz UfQrsPByEJxO/6e9aphFJdnVTbvDvLU//57ej/G3anaS/ebqCsU1X7AoYbL2 hWMw++P9Mo9WFsX0s1xII+cjZEGh9wGenz8sqCUmP1es/v9pyP4P03GewA== "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[CompressedData[" 1:eJwl1wk4lWkbB/A3++5EduVgLIU6mShS5yVKIVom2yj7UIyjPkWl7xAyUvZm pmbMQSOVLI0GUY4lJlRnxlpSJ6mEIku2Gb7/M5/rcj1+53mf+7nv+33f51x0 /SP2BolQFPUQv2Tkvl3Cjz5N/fujTlMMyU7bZpg581JwXo2mTBhmMfGwW2f0 rJkaza3byp+xhMeVd+iNqNLUly7Pjr/Voylu8Lm0ZlWaO1zSOZEFM/JSR+ox H50kcdYOFjzzsujHvH2kE2tal6bSgyvqVBG/UN+lvQSmxH/YcQQ+l3S7LRLm +Yswu7Gf8uA6Axr2Tb7G2YP8PGfWb9SCOV97JXSr09yt1Ql3RMn8P+L6BzVo blfUyC9zTORXFTchhKeyjOz+hoXXTZ+6a6KO6bAtMrieH2XoUwv/nNx0WRfm HjBekNKiuZ26wW/YsJvBUY4VbGla5ORP8k0ZndylRVMHnrQ1JRIXx3vbYN7X 5KbVNbL/u/smCnDan8YljaSekKfpDYi/4phFaC9M1+bY+mjS3KLMfRqvyX4P olxeIz85funkK3J9RH+vlwZNFe00be+ABTcqWltRb8jplQZVMOtRT4Q16j3V MmCRRva3XadRjn5lxYsOecLM79KqLWCez3SrBol/IzH5MfqtMLhuScAk9U6U cOG42F814mHB9Y5lbrg/lfnMZSzSn7G+x1thYWzxxRodXH/v/D0X+LIYZ0kb 5okcbj4Fa4UcMk1ZhXwT/6JxvylGcJ+rFMwr4Emsxv5GV8r5V1Yiv9s9N3Ph jPaRyh0wd8CnhYl6SsYuGyjA9KU5xyI486Tw0pg28rFX7DVD/ZJ96WtHYE6v seUN0g8fQdkizJrU5qmin+Z+8nmGWC+g64zD4ZmRJs5BmDPlKXUd7lHOreXB Zbotz5vhA6rXs9/BwsHH3U2wjNF8myny5YYf/isfdqiIcjoM0y8KPfxhtl5M wGVSX4vCeQl4gKGpXgUzdUrmspCPlvtiQB3s5vc6iAE/9nD+9hY8Xrc+Kh71 MBtelnHJ+o+rPD6hfnmjejkrEj+8JTQQjjvf3taDfJjbLB8NoH8mGyPSDpF+ 2N+UPwbXqgSYdZJ+qHU2a8LDb9inrWHevQzPFyo05SqZrfQDnkM3M5tyPrxv cWRhAnkKo6O1G+EUr8pv9sAcy9LNb+CPLs4HqpEn76aChAHiFXwb6MjSIM9z 1+AZ8n4WOU3fRd7jgydef4DbpHmyPuQcUFefIO/j7xUTS+qwIKHHcgJeGfJy ZAwj82lNaAw+l2jY+99XcNmYu+U8qd+uUWwU9rXWzA3HPuoTetFy+JzvpHng ETws3F+6FabrT2mtQJ6bt0tmxpJ1exbmtsBiPuIHG2EqaIrrCN8NC5+SJvnX qA+awyce8E2cSP6/6UssYvw5IV4vDqNwaC6sGON2jtLFQoyC/Z06dhj7PAuW VWJk7bKJbEJcp+s5q0thvnlxpRU82qQxm0riXc2YLULeie0NfFe4TP+LFA34 9plLtrMkX7mlskz0Z5m1zo/JsNCmcKsWPPVOdI3Yv/1ablmNfq8eyAuPwDr+ kMSpSPicj3TVE/KetCel74BDrseNryHvWfLN0C0wZ26/3TmM6bVnXfdhVA+W bR1egfUpW/rJ5wutYdu8YY7dU6Ve+EHipdp+ZdS39E0sG3HyE832HoeZSneP VpF9PKxnjWBf1a99bJDHl9aZe6eUsN/02xVNcKzRy9w+uKxt2VZH5O2qElb+ HGaVy9+qh293vBCbhgXibs2r0QfPg7LPmYg3XpTRfRKONdH8jzdMSacdKoPv 833tfyE+sWl/C3yrLdvxLcxyvmJ7Hx4qP7FnDfJ3K3f1z4FH1Brcg2BBXfCV 3bBUzWx7BswyFgn4gP21Ssbe3CB++j7jOLywW6WvGGbevKA3jvxD8g21csj6 lc+EvnBH4NVwf5jRoKQoQP3GR61EVWDermgxB1he2+JYCcm/rKO1Gf3j1lkV rocZ8wp8b9g20qY0H/X6qjympeGADcJsCXj8YZxvB+JI86UVApZjf+m7t2vh R883WNxn4H5cyTFuhqeep1uugtNZOmJjcNjiofnlirh/Z20HNiDeaPu2FkkF 9Oef9mdZ8A9m23sN5RF/RlghgfwOOO2SOi6H52vtnOk5+MyfFcVzsrg/SpOO Cqjvqqun928wP7fgTjZxn0NXHkwtqKxWRn/WeiSp1cNCU5cmcv5c5C+kyyCe 4EloRD+csP/YySjY19vXZBV5D04ccp6By/Jm99vCnf2SzgnIh5WT3WVPnnv3 R8YM5Dtew2Ibw7252/MuwkJdo79GEY91J9NoCmYVfBOWA5tf2XHaEvUKORIB hmS/Ta82uiiS+vQdf0W+qTWxm81hZu0mnjpsnrsoMoD1giMlKaRe/t2tnd4w p9/Tfw79iY5+9Uce8kl/0O0VBbMiN9yuQr5CxXEdEThe93LvNdTLyfni9K/o t4fxix+jZTDfMisTCKfcSx+xkMb9f2K0QMMi8UstI5LIp/rT6y3w8a64C4US eB6FjaVe5Dl7k+RxVBzzql4/k+dq2FDTz0sMPrvTfQROWAgIDBHF9drVTHfs 3x0ko3dVBI4ZW9EBJ0zunFKCaVG/4x6o56P+xuTKZaiPqyEtJOer7VB1Bsz9 0HjMH/U7BgRdyoXHP1rn98IyubZne+H0+RNf2KB/vp9bvtuIeOMWQwnn4GRu a305LLyTl/E76feWU92bkQ9/oCC7GW7f55X7EBaYrY8m80f9tt/fjfz5Ut5d SeR+dRi61sEs239GyHm3xiExloF6WVbZCR3Yf/B8jaaVODkP4+95wG67tdXN YWb8kWZybpVo5L/5TNb/ZHuBnDclkWalibCbyFd+pai/6KVG1EvsTy86ZRjC mq79i5Iws5cpTd5b3lf+ReLIn8HcNe0AN6Q0yL2i0I/c4Yg5vIdF10oNdi6x Ke6XvjatsGmCf2Pl32yKY/1H9l3Yvism2XCeTZUxdeTa4A07KqRKZtgU3zk1 aR5Ozvp8PmiaTdHtto7bEb9oaa7LbxLrDY01yTmyIa1ZseITvPxwPJO8j48y XoWMsylK4b18Acx8uCpTcYzM1xeSczm62vCwwUfEc987WQo7pib2yMLpbt1V JuR7jeMSUwYzQr+y+Z64Z27mM9bzAt//RL73sr3b6X7ET9+UqWeEfqdWtvS9 w/7M307HboPVtRgnRZEfY/TwBFudnCO8QLUpNuV2dCRSG65QLnaSRT3pJsY/ PiPxFb5P/QMW6tj9FAsn3D/jt/kzmxo3/1pLBnbeFDq8D+bHZA8mkvO/zlpE kjjCpHAG9TUVOnTuxvrxM6PZwXBv1OU1JtiP8SlZ9hn6o740w8mbgNdPG3nC Nqy1YbXI381+8sgwOTfZMfvUPqD/jLagLNjx/X8OOgyxKcGFxiAPOKR5eGjd azbFUnawt4GFR2R6FZ6jn2dubaZhznoH/vyfmC/s7gmAufGcbIl6xHM1/fuq 8v//7+Dy7lEM8scK+n+IvYyU "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 10.599999999999994`}, {9.6, 9.399999999999995}, {10.4, 9.399999999999995}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[CompressedData[" 1:eJwl1gk41dkbB/BfKCLda2vs15ZuY00pwtxbWmTm35BEM9kn2ZOUZTCXZGm9 Dcm06DK2KQwypYVIjCVLQreSNboiUejaar7n+Xse7vN53vM7533fc87v0vQ8 vOegCEVRDfglnxwx/KF02JQE+dRnU++siobua7Mp/ppVMe16bI5P1+LaYFjR YXS0RI9NXSxgJTNgs4ddajzEvR2OLGnWYlPpyVpaGbBbieKNX2FBXb9JAcZP +9efMoSdk4ZKGxAfM48MEWiyKWbWrOk04jJU/9ObcFL6XIo+1jcvKbgcCXPC Hy8N1GdzpmzDVu+Dw1nHbW8hLptfzmDB/DsKz+YRf8cvjTMltrT9uNWAzdFm tqWYwcFKRdInDbCOeuD4DlhA02ypRDw6+lSaK1yvkPrDe8Tdxvzlokk+d6fN VhqyKb+FCu51WOK46SzDkM0RWZ4oVgNz91dWasKxocNOb2Ab1V0X5DA+xpPD pVCfXWno7hnMN870F8rD3LJvM5qwnkRe4lYGiTP9uy8ivjHV5S81OF/vr1kn 2FOuZxkNLk9yd1DA+I11zYMfMT+VOJXwFPVJG4rHNMDlEqZbuKj/60N2bQps LCcv7QgfMIjd7UDyH9bQ0YbfHh/5ThJ2191hvYh+f187YXhfA/3n0hKG4KC/ U8R9YTO1X2xfo/9fJW1frYKrlIzVEacS72VEnGcg/uP0nQVYsbNFb1Ed+dBz 5rQwv7TzBSoKVgzgiu2D5elHt9OJv+bYpJD92enLrFBDPrE3ip/DMp8Mz8bD 9BZeHQP1VvEnP3kTV5sOHoJnzLNCvGB3pWrXAnipi1V1GJyuavtoBLZLC3Dm wVzel2lV9NuotZvHJ+PjC/2sYdGudmMVrN+Xpmj5M/yjxyN5T9h50t7WC85+ qMzIgydettmQuJ+YqsUbWKgc+og8f9HYrVIO9dosWsiqw9t2N5cZw+FhavZj WN+gV0p7E1w1029eAk8GvrHQgd2rzogFw7rLXp2cwXzpscYW+nDxk7nxQjj/ QdipEdTPX9LS/D3MPHeAexM+OhbS2o78hdXZN4/B9mcfPNsBh0sVttjCBgqs uwWqGD/R72QAC76jVCVhYbdwUh3u5G2SPKjCptrepkRrwEGj9Fs1yoh7RS01 gdd8KJXTh8ttZSv3wHb/DuX+qYT6xYW0WLjA+ryKEVzl6V94D07K6lNoV0Te 4/olC3BrMefLObjP1KnWGvV0am4Z8Ibprqp2Z+BcL9ov+2HhvEx2O/yjSXf1 L3Cw2Yl15D7Y5WwcOwmnP11/2xaOKj7wdzk8wZXzPQ7T9/4x+pk875LOSIWL 6QsvrJBPum2jXxZ5flvb/ni4zS7qBg/Oc6zbWgvnGxQrnIczGXF35mDB27I7 QfDTZ5ahDNTrk6bruQVeJeuiYASHL55KXQ7XOzns0YXdW5/+1Ih8X6flrBWF nZMjdBJhq5cv5x9jPo1LUWmkXtWR7pQA0q9fg38ShY8quaouIF9OjPf7BvTn FtUmEgYLqjWOXIZztQ439H+D85NOiwuDm7WaGrfA5c228l5wL2tm8uoqnF8x l/2u8Mkmhv+sAup/wy72hfPP1di5wPmSh3jxsC+7bn+LPPoULd5XCJ8dbDxj D3P4vgcHyfk5W7fwTg59Wm0Zp4X8FK78/Ps1WMIjWdwH5ri8eOMH960MDC6G 3xe/03GAuZ07ZIRwsz1d2ZF4bMrGAv3p2ya+PghWlI8tIftT/NYq/zIscLv1 vzyY2p1U1Ann89eUNMIWG/zvKJH8cps1euFvWdfvu5P8LFRvDML+HUOns+Hw +H+N+PD5zCntXuIOG/8KWKCnOS+JegUizEGy/3+8S9mtDafzE7rcyfN8DQ8d mD9EMXTgf2oDC6XgicijkgPIn59XK87HfEypIsMMeGdke2EyrLjcxfwAOa8R vtZasODrrUryvrm+IeVBNvI3ywxYPob+tf0xZaoAu9dmjNfAEctuVoTLYv96 qvP+gjn7YmidMjjPjzvLMmCPrJmdxrCEt3X9n3CImuvvXDqeDz1RUQ7/YCS8 +ZmG+BmJK91wy+nq5vGVOI/qDtelsX6AyLMoGqyY8JvzLrjOOzLGXRp1yMjW kvskPPaENrwC+9luE9UBZxV0FGSuIO/DrlfkfRfz/d2FC7Di6gwzT/J+Yrwa LIV9vn1Hy4TTZubuLcLBU1Ebu+CB0Jh8X8xf9UJG9Ct8QHf1N2Nwm8uKECUj 3Ift09YRyIdjEsnWgatCJl+JIX9u/uKCOrxgtS8zDub1VUhLwjyVe7S3cN9q 6ZvD5D5VWM7LoX6mmnTrbbKeVSFHHeZ/1lOJhpsuacjT6eR8vS6zJOMvKlMt eN7nkb/KLOrbPPZQsJ30a8WK2X/gviIfhVPIJ/zj/cnj8CmtTYevI1+bWr8Q FjzldcjhLOprcxQ/IQs/sL1g7CKF778rz699RL/PiTAllCVRv6XluX44beL5 y1YJnNdVGc598MJ6jvhpcTzfU6//AXbuMM9xWobzIeXnRfYn8oJmP3sp+pvV mWAOtwi8fezEkL/mFe8jsHJJ9PBZUfTh9uCGUpJPJDvjiwjuRRitgNynDbsP aefAwt70zeT9c9le1CwWzi+eNEmCV/Q0tZ6Hk2jPFxrgPfelzZvgcK/E7aLo 7400eV89zK9x2EF/HaxVIuWTC9dvNPW1h3WeFXYZI5/gkEP+niTOr0mohNu4 XkFe8Js1x9Wtkb/xnH78XjjAaqiiFPbhuaVuhDnb3DJEUC83YqWdFMzc1ZO1 FjYLkFfpRD4Fkqx2DdgnS3wsDQ7VaCwbJP1oitLZS94H3kxuMMyeLPKiw3EN V2Pqsb7Ni1HHVvJ9t36X+wfk22ZvdyIVpoy25I2iPs5WXw0v+OoMY0ndEpzv JaaDVjBdLG8gicK+99T26MKCkbmZ376wKMHnwEPkvqbKdZh8mIc7RigmrN/L WRY+y6L6Nkc4sWEfGcf8dZ9ZFLtz6zby/0PbyOBD42kWxX38b/dl+HHNiF3C JxZVxbt0hg+7q8o//+4j4sOjm9TIfSi9luExyaLcHX86eBC2/BrrOTHBosLv BAUUwkxfL9O3cNXAvdxJ+MnBvbctMV6jp5FnSPbj6N1zAzBVFmDjAV/NzjWp w/zFR3sVEuGJ+MwXT7E+e1+1QQY8dq0y6/0Ui7LZPhORQ+7fh5YOaoZF5cua l18l+3P31dpPsI1eanQ8md8xXb4I9fE3pxi6wkK3mnE1IYua2Js2pkdsl02t h8O72RETZP9MXzoMYHzxlziZv2H+tuAdurCxocFWf7jjNafrC/pj/NihnAn7 NPlnHSH5rFtCH0V/ggfSriUjf47Ikz/JfYw6lh29D/XbrH/pdpr8v3bpUuvz UfQrsPByEJxO/6e9aphFJdnVTbvDvLU//57ej/G3anaS/ebqCsU1X7AoYbL2 hWMw++P9Mo9WFsX0s1xII+cjZEGh9wGenz8sqCUmP1es/v9pyP4P03GewA== "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[CompressedData[" 1:eJwl1wk4lWkbB/A3++5EduVgLIU6mShS5yVKIVom2yj7UIyjPkWl7xAyUvZm pmbMQSOVLI0GUY4lJlRnxlpSJ6mEIku2Gb7/M5/rcj1+53mf+7nv+33f51x0 /SP2BolQFPUQv2Tkvl3Cjz5N/fujTlMMyU7bZpg581JwXo2mTBhmMfGwW2f0 rJkaza3byp+xhMeVd+iNqNLUly7Pjr/Voylu8Lm0ZlWaO1zSOZEFM/JSR+ox H50kcdYOFjzzsujHvH2kE2tal6bSgyvqVBG/UN+lvQSmxH/YcQQ+l3S7LRLm +Yswu7Gf8uA6Axr2Tb7G2YP8PGfWb9SCOV97JXSr09yt1Ql3RMn8P+L6BzVo blfUyC9zTORXFTchhKeyjOz+hoXXTZ+6a6KO6bAtMrieH2XoUwv/nNx0WRfm HjBekNKiuZ26wW/YsJvBUY4VbGla5ORP8k0ZndylRVMHnrQ1JRIXx3vbYN7X 5KbVNbL/u/smCnDan8YljaSekKfpDYi/4phFaC9M1+bY+mjS3KLMfRqvyX4P olxeIz85funkK3J9RH+vlwZNFe00be+ABTcqWltRb8jplQZVMOtRT4Q16j3V MmCRRva3XadRjn5lxYsOecLM79KqLWCez3SrBol/IzH5MfqtMLhuScAk9U6U cOG42F814mHB9Y5lbrg/lfnMZSzSn7G+x1thYWzxxRodXH/v/D0X+LIYZ0kb 5okcbj4Fa4UcMk1ZhXwT/6JxvylGcJ+rFMwr4Emsxv5GV8r5V1Yiv9s9N3Ph jPaRyh0wd8CnhYl6SsYuGyjA9KU5xyI486Tw0pg28rFX7DVD/ZJ96WtHYE6v seUN0g8fQdkizJrU5qmin+Z+8nmGWC+g64zD4ZmRJs5BmDPlKXUd7lHOreXB Zbotz5vhA6rXs9/BwsHH3U2wjNF8myny5YYf/isfdqiIcjoM0y8KPfxhtl5M wGVSX4vCeQl4gKGpXgUzdUrmspCPlvtiQB3s5vc6iAE/9nD+9hY8Xrc+Kh71 MBtelnHJ+o+rPD6hfnmjejkrEj+8JTQQjjvf3taDfJjbLB8NoH8mGyPSDpF+ 2N+UPwbXqgSYdZJ+qHU2a8LDb9inrWHevQzPFyo05SqZrfQDnkM3M5tyPrxv cWRhAnkKo6O1G+EUr8pv9sAcy9LNb+CPLs4HqpEn76aChAHiFXwb6MjSIM9z 1+AZ8n4WOU3fRd7jgydef4DbpHmyPuQcUFefIO/j7xUTS+qwIKHHcgJeGfJy ZAwj82lNaAw+l2jY+99XcNmYu+U8qd+uUWwU9rXWzA3HPuoTetFy+JzvpHng ETws3F+6FabrT2mtQJ6bt0tmxpJ1exbmtsBiPuIHG2EqaIrrCN8NC5+SJvnX qA+awyce8E2cSP6/6UssYvw5IV4vDqNwaC6sGON2jtLFQoyC/Z06dhj7PAuW VWJk7bKJbEJcp+s5q0thvnlxpRU82qQxm0riXc2YLULeie0NfFe4TP+LFA34 9plLtrMkX7mlskz0Z5m1zo/JsNCmcKsWPPVOdI3Yv/1ablmNfq8eyAuPwDr+ kMSpSPicj3TVE/KetCel74BDrseNryHvWfLN0C0wZ26/3TmM6bVnXfdhVA+W bR1egfUpW/rJ5wutYdu8YY7dU6Ve+EHipdp+ZdS39E0sG3HyE832HoeZSneP VpF9PKxnjWBf1a99bJDHl9aZe6eUsN/02xVNcKzRy9w+uKxt2VZH5O2qElb+ HGaVy9+qh293vBCbhgXibs2r0QfPg7LPmYg3XpTRfRKONdH8jzdMSacdKoPv 833tfyE+sWl/C3yrLdvxLcxyvmJ7Hx4qP7FnDfJ3K3f1z4FH1Brcg2BBXfCV 3bBUzWx7BswyFgn4gP21Ssbe3CB++j7jOLywW6WvGGbevKA3jvxD8g21csj6 lc+EvnBH4NVwf5jRoKQoQP3GR61EVWDermgxB1he2+JYCcm/rKO1Gf3j1lkV rocZ8wp8b9g20qY0H/X6qjympeGADcJsCXj8YZxvB+JI86UVApZjf+m7t2vh R883WNxn4H5cyTFuhqeep1uugtNZOmJjcNjiofnlirh/Z20HNiDeaPu2FkkF 9Oef9mdZ8A9m23sN5RF/RlghgfwOOO2SOi6H52vtnOk5+MyfFcVzsrg/SpOO Cqjvqqun928wP7fgTjZxn0NXHkwtqKxWRn/WeiSp1cNCU5cmcv5c5C+kyyCe 4EloRD+csP/YySjY19vXZBV5D04ccp6By/Jm99vCnf2SzgnIh5WT3WVPnnv3 R8YM5Dtew2Ibw7252/MuwkJdo79GEY91J9NoCmYVfBOWA5tf2XHaEvUKORIB hmS/Ta82uiiS+vQdf0W+qTWxm81hZu0mnjpsnrsoMoD1giMlKaRe/t2tnd4w p9/Tfw79iY5+9Uce8kl/0O0VBbMiN9yuQr5CxXEdEThe93LvNdTLyfni9K/o t4fxix+jZTDfMisTCKfcSx+xkMb9f2K0QMMi8UstI5LIp/rT6y3w8a64C4US eB6FjaVe5Dl7k+RxVBzzql4/k+dq2FDTz0sMPrvTfQROWAgIDBHF9drVTHfs 3x0ko3dVBI4ZW9EBJ0zunFKCaVG/4x6o56P+xuTKZaiPqyEtJOer7VB1Bsz9 0HjMH/U7BgRdyoXHP1rn98IyubZne+H0+RNf2KB/vp9bvtuIeOMWQwnn4GRu a305LLyTl/E76feWU92bkQ9/oCC7GW7f55X7EBaYrY8m80f9tt/fjfz5Ut5d SeR+dRi61sEs239GyHm3xiExloF6WVbZCR3Yf/B8jaaVODkP4+95wG67tdXN YWb8kWZybpVo5L/5TNb/ZHuBnDclkWalibCbyFd+pai/6KVG1EvsTy86ZRjC mq79i5Iws5cpTd5b3lf+ReLIn8HcNe0AN6Q0yL2i0I/c4Yg5vIdF10oNdi6x Ke6XvjatsGmCf2Pl32yKY/1H9l3Yvism2XCeTZUxdeTa4A07KqRKZtgU3zk1 aR5Ozvp8PmiaTdHtto7bEb9oaa7LbxLrDY01yTmyIa1ZseITvPxwPJO8j48y XoWMsylK4b18Acx8uCpTcYzM1xeSczm62vCwwUfEc987WQo7pib2yMLpbt1V JuR7jeMSUwYzQr+y+Z64Z27mM9bzAt//RL73sr3b6X7ET9+UqWeEfqdWtvS9 w/7M307HboPVtRgnRZEfY/TwBFudnCO8QLUpNuV2dCRSG65QLnaSRT3pJsY/ PiPxFb5P/QMW6tj9FAsn3D/jt/kzmxo3/1pLBnbeFDq8D+bHZA8mkvO/zlpE kjjCpHAG9TUVOnTuxvrxM6PZwXBv1OU1JtiP8SlZ9hn6o740w8mbgNdPG3nC Nqy1YbXI381+8sgwOTfZMfvUPqD/jLagLNjx/X8OOgyxKcGFxiAPOKR5eGjd azbFUnawt4GFR2R6FZ6jn2dubaZhznoH/vyfmC/s7gmAufGcbIl6xHM1/fuq 8v//7+Dy7lEM8scK+n+IvYyU "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.00000000000182, 15.}, {10., 6.}}], PolygonBox[{{15.4459764877483, 10.90137883897347}, {14.28643761960272, 10.395938819525396`}, {14.821609404900679`, 9.801303502527665}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {16.937558817093933`, 13.081023536561336`}, \ {1, -1}], LineBox[{{20.00000000000182, 5.}, {10., 14.}}], PolygonBox[{{14.5540235122517, 9.901378838973464}, {15.71356238039728, 9.395938819525393}, {15.178390595099321`, 8.801303502527658}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {17.562441182905612`, 8.08102353656179}, \ {-1, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.154800000000002, 9.999999999999995}, \ {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}]}, AspectRatio->NCache[ Rational[1, 3], 0.3333333333333333], PlotRange->{{0, 66}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp7", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags7", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res7", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["2", "2"], "/", RowBox[{"(", RowBox[{ SuperscriptBox["2", "2"], SuperscriptBox["8", "2"]}], ")"}]}], ")"}], RowBox[{"SquaredME", "[", "amp7", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp7", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp7", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res71", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolarizationSum", "[", RowBox[{"res7", ",", RowBox[{"GaugeTerms", "\[Rule]", "False"}]}], "]"}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"Alfas2", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["gS", "2"], "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "2"]}]}], "}"}]}], "//", RowBox[{ RowBox[{"Simplify", "[", "#", "]"}], "&"}]}], "//", "Expand"}]}]}], "Input"], Cell["running FORM... running FORM... running FORM... ", "Print"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"5", " ", SuperscriptBox["gS", "4"]}], "24"], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox["gS", "4"], " ", "S"}], RowBox[{"96", " ", "T"}]], "+", FractionBox[ RowBox[{"19", " ", SuperscriptBox["gS", "4"], " ", "S"}], RowBox[{"96", " ", "U"}]], "+", FractionBox[ RowBox[{ SuperscriptBox["gS", "4"], " ", SuperscriptBox["S", "2"]}], RowBox[{"48", " ", "T", " ", "U"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["gS", "4"], " ", "T"}], RowBox[{"32", " ", "U"}]], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["T", "2"]}], RowBox[{"8", " ", "S", " ", "U"}]], "-", FractionBox[ RowBox[{"17", " ", SuperscriptBox["gS", "4"], " ", "U"}], RowBox[{"96", " ", "T"}]], "+", FractionBox[ RowBox[{"3", " ", SuperscriptBox["gS", "4"], " ", "T", " ", "U"}], RowBox[{"4", " ", SuperscriptBox["S", "2"]}]], "-", FractionBox[ RowBox[{"3", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["U", "2"]}], RowBox[{"8", " ", "S", " ", "T"}]]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"res71", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"1", " ", SuperscriptBox["gS", "4"]}], " ", ")"}], "/", "6"}], " ", ")"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"T", " ", "U"}], ")"}]}], ")"}]}], "+", RowBox[{ FractionBox["3", "8"], SuperscriptBox["gS", "4"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", SuperscriptBox["S", "2"]}], ")"}]}]}], ")"}], "//", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"#", "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "]"}], "&"}]}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["gq->gq", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top8", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags8", "=", RowBox[{"InsertFields", "[", RowBox[{"top8", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"V", "[", "5", "]"}]}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "2", "}"}]}], "]"}], ",", RowBox[{"V", "[", "5", "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}]}], "Input"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {2.6125141805200567`, 11.914057016624067`}, \ {1, 1}], LineBox[CompressedData[" 1:eJwV1gs01HkbB/AfmmkkjEtSwrj1DhJdsan5V3RBrSLpToU2u0wlVGiiltn2 7UyRWzeFNavEVjbeWPNGIbuooQZhdFs1KRU1Ytnvb85x5nzO/C7P853Hmb/V zqj1oZqEkAv4o++kbxyvqQwZpO82DOGfajF6Dpd7FYfdgkvbUjquwW6FeVUR cG51kct2OHrN8C98uNx9TG/YhCH5kpHkfmusj8k8IIJnpB/dVAnLXukI1FMY 4mkWVp4BK1YGTgyFlazdVxNgqUnis0Zjhghznhfto+sPRTrOhd/ePZm5H+Z5 Fy+/YMQQ8uHanaN0v/p+gCGsYCXLM+l+55XGGYYM8WC9NauAg3TVP8+ClU59 Yb0wd+mL9woD1HVncL4e6iWPFkddgEcdpz/ygJULFbZH4L7uLQf3wpxn21j7 4fwws5B0WBjTphTB/OefNcvp51uFwgL41ucSAzmctVBz31PYraO68DmsftJf b4X7tzbt2tQH1y9pvi2E3dqsvJSw39QK3VqY28uyaIRlhsfDTdCP9DTP+Vea p/+BH3bCrc8sgo7AA39tMMiDX/hZay2n+y3XN8jhPf7fGmvCvPbS2gHYdupD +f/QL79hiekXWNi0Th4Fi3YvU76AnzabtdjALSVxgRWwb/GStHYrhjCe0zqj YclFh4dp1E5xA6bwBK1FkzbAfUvi7KWo14Vc/MHSivabozMTju9VVQ/ycP5q 1qsM9B/NyVjxGObOC7s0zmVIwJsZFbWw8vDb+FCYu7HCTQYHe400nNPHvNl2 rK2HecuamXg95P0g5WMnPJDS4R6ji/pNo9KH6Xm8d+FnJmOe6thz6P3MdtbA Ex2GpItGw71hSZWbiS8cVKDIjINdJorJx0kMqZyaOfoLLJqy+swDeNDgYfMj WHawKaQVNv6k8d0wzJuorNfB/kpF1FZTOr8RNvoR8IRmv0wnOj/h56+9gbkZ L2NdYWWX++VjqEcyvk85H85tjO2yQ72c7IWednR+OwJv/wnzBluLOTR/2eaw CPSX69f6Rw/uKw14J/oCRy/wlV6Fc88eORiOPG4ZTTKPhIN1bg/fgOtrHi22 p/VG6UfIYT/bAlEP8nCRd5vVwsEe5ulpNL/JHeIk+MVWT2YVTDQ8j+jB5Y1u KwjN31qisRf3lbp6i+ItkW9vQEg2rbf8C0sblvQVKK+gH35RCbvIAuc5mCae Qr/qOYcSdsKy4v+nhSKvoHhRwHzq6cK9c7WRR3DLWh48IOHcHZ+Iefzp4Lgd TJhjAQo25iZif9NyWLTNZtN9Ft5NvXViYWWgTFc+AesMvCdX0vXzBT5smJ80 c5Me6nEp3OkQpoX/lwZ19x64ZYWq8rMmzhtZ5ngfzv2vb3cF7NKdv4FL5+Ob aRYlcG3Zvhh3WKhhdU8Ot0pevttC+7+tNWSN82aU+CQfpP7yQHkW5uf77zhO 96vUZra437dgg2MKLLGMGa2BPVL6zRLo58b9kyJQf/A815FQmveaw/F66E+x bqnjMpr3R4fSPDjgZvZlQzh3ZmYRD3koPNaW/4Z6SfVXcTwsfJx3yQmWiU70 l8DKH8V5F9C/ZI+LTxksOXROzYZbvF1cxHR9wwKrKHPs7zH5zgFOHdlV3DkD eXs16efgvtQq56/rYKG0MbET9dXvFnx6bIZzzug6DKL+LI2c9ki4xfraDhX6 lbo6GprD3PKujw3IhzO8Yuz5dHzetKYtWwPrh9Q9tbAoZF9eKMHn83c2VsOy 0oXrhWMColzSXCCHlWc76lxHBWRP7Om5Y3S9zw3DBV8FxLSJ5eSB83kb4h0P qQWk/Hp2pBhWnkqSG3wRENEmI8te6sSyQc5nAZGkqN4uRv3Ksv2zdw9hfzLf JwfmBTqn28JSY9VvAzCxH81dAcvEf3QvQh4M/0DwXbhvtswgFuYlzW08ifOk 4ieeF2leDTfWp+G+3IaEzdfN6fzxMu6jHu60oaUFdH2vlpsB6t2zyEc/iZrN adw2gvWFXLYXnFtn3piB/kR5KzPe435GXJJZ+A/q67vucxwWDZzYlYA8SJl9 KZvW/z5WnzOO83vPWx9BfyL20MtvYGmeRf4r5MMM9c7WhRWb6y6spXmJdM8e xn63w3WXy6ch35MXg5Lp+eyLDg5wsJGz7yzcr9AL2SI1RX1/3jqfiHrjYv6p caUerglLQT+K7XaznuJ3mPhPtNiI/hWTNoZnwYx/119kUECE7qPzImFZQvOi 7A/Iu5P3H/q7Lbrdr4p4JyCcXcUF4XR/SFqp4rWA8BIPqFLp/q2R/MsvBaRU 545lNfWNmydf9yJ/xY4YNu4nNtITuV0CEvz92JbNsOjYiHa7AvUlOV0to9YW p+e0CQi/MKjPcBr9/jYu+iAXkFWi5GPfU//0qvgx7DeFq19FnXQ9cS7Wcz5l nBmnLrISdD4RkIHfP5c6Iy8SGhiS1Yn6d6lfrKbzWFm521CJ79/dQ+pD/fGc OusZ6m1Kk8yjeccGVi5A/VxRdLAGzVtyM6HqbwH+r2q0f8f5jF3iGOuNgKRG t1/xp/nb1fX8rcK8xixd20Xrr2mKYPoFRH3Py2Qj7bet1v4TbFqgrrpH82jX slfBnJTH4tnU+mWDZnCW/4+amXjuYb69b5uE83hxR29NoDbPPGGDfP20k97H 47mHKfi5Ve8V+sloTp0Ay1adN96C+rmnPl25hOceUfEc1pqnmMfTvyaso/br 2euAvBRVBn4zYFIV9HpxDeZHXzVbg5q+8quIkj6/GTH/Aldznnc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {3.387485819479944, 6.914057016624067}, \ {-1, 1}], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {16.61251418052005, 13.085942983375933`}, \ {1, -1}], LineBox[CompressedData[" 1:eJwd1gs01GkfB/B/JSubpVLonSyyUSi31ZTiT23pNBhCaNIobSNCVhrKsm5N Ipe8lndp1Rl7KGmImmIlt3XLfRu3lAhb0ijKSHm/z845c+Z8zu95nt/lPPM/ f+2jgc7HF1MUlYMv+aXmF/AxoKl/P7o0NXs07yPLkKZ8+Am8hfU0FTvndiAL VtX+KJmCg5I28l7AzK0GNhJYWLuv+Dsjmhphxm8WwewmuzdcuMo8szwCbj/t wUyDOZ+sBDbwhA9LRwzP76rK+6yDfez9Dztg+knFz6Vw+s6UkkE4tkK1nAez 7bNNn8Eht5Zor4ONJyrku2GFdU9DurVpihU8H1EJl+5+5p4KR70YO5ILZ/9w ZbMbrLKtX3IOTvfU/KQLx56oO3QAHn9Y57igRVO7H15M3kji6ne3jsLPm/dv WARTw0MGfbDxHcWaAdJva4xSP8xVkvVWwlHCWL1xWD1k5koBzI8vtaBwPsc8 sOwq7DJzlq8N+9zvu/g73GBt9XAfsZ2wuxB2L+y6FAqrDzg21MO1Vr6b8mBj GyO5N8SNVGcnsWV5pibqyVzVXjsPt7yMX+kJ64brBGlhHgoWyy7lwLP0ngRL mNdfWTkKJzpsNGLBhW/D9Mw205RdWuAEG/a/Ua4RRTy8aNQODnpVNdwEC8Jd WszgHZE9Eypb0B/7zT8r4OysjC5HuHD3Is0R5A96EXcxDk7hO3beJPPuWOUn gqXzolcnSb2ia85tcIst4/Z6uNRqIG+IrHdmFPdgXi25lZwx2LBIeisRpr5M LiLx88nFAbawQmVQIdmvsP+Jo+xbzH1q5l0p3KPmVHoOnhcf602D+Ryxrwrc Qnnf94Pd3d/KHmjSlPl5Ss8WFtSWSiNg4de1neowNaZY6Qnre7idfId+3S2i 85xgFvvHsA7iUP1yb3je5xuWGGZ2WE8KYEbct935MDvURrsWfv4qLk1I4q9V HZSRv9utNa4QrjovKT0Oj9/O0HwE8/iqq6rhCaeg7S9g4wOhQcroLz8h8Dtl 1CPUv2NnCZ/f53Z9DzyhHvGPN9zu/Gk2Ht6x+95oFKz1ZI9iK5zIVTfKIPfR MKB0uTHqfOmwNpfc1/sF281gw7glKTlkfvcOWXnAQTED1GWYEzvjFwFr+bwK PU1cYhN3lXjB9IodrHKmN7AczrbnxqvC1Q0ymy6y37Z9aRHqH+jXsX8JR8ll O+vC3GXyG6ZggUXTYArmoaL0Y8EHEo/3+Uq2jqZWikSfZ2BmWCjnKDx40Dr1 LZy5kcPtZMAjzqtHYKqmeK8DbOu1NLQbZme1VPT9h6aK9iW3PYKNOREF52DB 9cPet2D9rNRl5vCHmsuRmTB/SrdhKey/LjImluwvcymYWov+j2hUBJN67rnb fIQXn8318oHF13gyVaw31BLyPWHuoLmOHbxbr2bYlaxPZ6xKgitSGy0Pwim7 7ro8gwd5ORIvWEHuz+5tqHfUhVXnDzdYfKX9Kxw/eqIxijii948peEBR7P0/ 0t/bsve70H+Rn26zmJw3VjYtgOX0UxT7YfX0JJMKmLHSZnYBzj+TQPXBDksc 7DeYYK65W4qfwfXf80tYMD8m8mYziS+taTsNSx/HR+fAmn+qctLhKle2zBW2 zd5keAee3asw9wH1cOVM6cewcUNZZAy8IYrXNgRH8S7/tID+EmwsnaSw/p6z kYFwQN+5mFniC3WSHsyPmvQ+NQfb3Sv7QsP+QxZHPpiQ++0Ze0sD8wq+PTkB C3pe162Hc5vWSQdJ/vQTt/PV0Yd7sz/JL/Y6GE3D3P5XGfdhkZqbcFINz3VZ UbmQrH+cdrYMfmCpZ54CP6cY1hnw88QrrhHEXeYqqXD4qRHvU6R/b68OIdxH McK84VwHrb1tcFXrtkRPuEFj3kgJ+ap19jl7kP39h7me8ITWCtqLzLO9Q74E rlD7K9qXzKfMof0b1N95k/oSTur9Im/sB8vXfmalkfmefpfzCFZ0svyriORv 1ZYsxzxY4xqCNpL/pHStHfyAZx32nsTL9h8NhKs0LY9omOJ/7ZR0ORKuTuwd s4a5BvVJoTDP+Zf7x03JfekKPgAXJo1GX4THd+hHrYHFyl6KN+D8hRpdkp/9 teaOelhh7uJrV1jVqd7iKdxTfeNwD/qRGlx1nYSD8qJ7WbBulgpTBtPchiNi zIddolz/GVY5xvHQUiPPQUOTeVjQcdg9YQ3u7wWXd9Owloe35NNqmor+ybV2 HNb3KpeFwdJuzm89pP7t1Y7L4LtyQ1l1cO5A5bVbqpjfDwFLimHpzukaX1jU 9t4oG05xrThjDS8OtQwWwMxjTPstcEkSzTgL8/dHiZiwghqD40vqWZk74AFf P/w9k0vO37ZyLhmO5R/8hQOLTBt3SmCxkkWjF+nP1m61AeqJDWk7dILMM7/5 UDzMUpFZhpLzBGsyhmH2Eqv1l0j9wi2mO9HvRPOKuDySf0avIQlmVpr8t5bE p2Xu7XC882v2GJm35h8City/q/0Jy83g8PH2tXBF3O+zpvB4E/MGA5ZP+9vG g8SntxbIkbisWvlnmN1oltyJ8x48fcnIhTMllP0FOODyw12VcMOgwqwu/OH2 pkQJLPVRKilCveEz1yxew0HF4lh9OH39dO0szAvJM/0V/X8h728kH3l/U6X/ Dw7YmBs= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {17.387485819479934`, 8.085942983375933}, \ {-1, -1}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}], PolygonBox[{{10.599999999999994`, 10.}, {9.399999999999995, 9.6}, { 9.399999999999995, 10.4}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.999999999999995, 9.0548}, {0, 1}], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[CompressedData[" 1:eJwl1wk4lWkbB/A3++5EduVgLIU6mShS5yVKIVom2yj7UIyjPkWl7xAyUvZm pmbMQSOVLI0GUY4lJlRnxlpSJ6mEIku2Gb7/M5/rcj1+53mf+7nv+33f51x0 /SP2BolQFPUQv2Tkvl3Cjz5N/fujTlMMyU7bZpg581JwXo2mTBhmMfGwW2f0 rJkaza3byp+xhMeVd+iNqNLUly7Pjr/Voylu8Lm0ZlWaO1zSOZEFM/JSR+ox H50kcdYOFjzzsujHvH2kE2tal6bSgyvqVBG/UN+lvQSmxH/YcQQ+l3S7LRLm +Yswu7Gf8uA6Axr2Tb7G2YP8PGfWb9SCOV97JXSr09yt1Ql3RMn8P+L6BzVo blfUyC9zTORXFTchhKeyjOz+hoXXTZ+6a6KO6bAtMrieH2XoUwv/nNx0WRfm HjBekNKiuZ26wW/YsJvBUY4VbGla5ORP8k0ZndylRVMHnrQ1JRIXx3vbYN7X 5KbVNbL/u/smCnDan8YljaSekKfpDYi/4phFaC9M1+bY+mjS3KLMfRqvyX4P olxeIz85funkK3J9RH+vlwZNFe00be+ABTcqWltRb8jplQZVMOtRT4Q16j3V MmCRRva3XadRjn5lxYsOecLM79KqLWCez3SrBol/IzH5MfqtMLhuScAk9U6U cOG42F814mHB9Y5lbrg/lfnMZSzSn7G+x1thYWzxxRodXH/v/D0X+LIYZ0kb 5okcbj4Fa4UcMk1ZhXwT/6JxvylGcJ+rFMwr4Emsxv5GV8r5V1Yiv9s9N3Ph jPaRyh0wd8CnhYl6SsYuGyjA9KU5xyI486Tw0pg28rFX7DVD/ZJ96WtHYE6v seUN0g8fQdkizJrU5qmin+Z+8nmGWC+g64zD4ZmRJs5BmDPlKXUd7lHOreXB Zbotz5vhA6rXs9/BwsHH3U2wjNF8myny5YYf/isfdqiIcjoM0y8KPfxhtl5M wGVSX4vCeQl4gKGpXgUzdUrmspCPlvtiQB3s5vc6iAE/9nD+9hY8Xrc+Kh71 MBtelnHJ+o+rPD6hfnmjejkrEj+8JTQQjjvf3taDfJjbLB8NoH8mGyPSDpF+ 2N+UPwbXqgSYdZJ+qHU2a8LDb9inrWHevQzPFyo05SqZrfQDnkM3M5tyPrxv cWRhAnkKo6O1G+EUr8pv9sAcy9LNb+CPLs4HqpEn76aChAHiFXwb6MjSIM9z 1+AZ8n4WOU3fRd7jgydef4DbpHmyPuQcUFefIO/j7xUTS+qwIKHHcgJeGfJy ZAwj82lNaAw+l2jY+99XcNmYu+U8qd+uUWwU9rXWzA3HPuoTetFy+JzvpHng ETws3F+6FabrT2mtQJ6bt0tmxpJ1exbmtsBiPuIHG2EqaIrrCN8NC5+SJvnX qA+awyce8E2cSP6/6UssYvw5IV4vDqNwaC6sGON2jtLFQoyC/Z06dhj7PAuW VWJk7bKJbEJcp+s5q0thvnlxpRU82qQxm0riXc2YLULeie0NfFe4TP+LFA34 9plLtrMkX7mlskz0Z5m1zo/JsNCmcKsWPPVOdI3Yv/1ablmNfq8eyAuPwDr+ kMSpSPicj3TVE/KetCel74BDrseNryHvWfLN0C0wZ26/3TmM6bVnXfdhVA+W bR1egfUpW/rJ5wutYdu8YY7dU6Ve+EHipdp+ZdS39E0sG3HyE832HoeZSneP VpF9PKxnjWBf1a99bJDHl9aZe6eUsN/02xVNcKzRy9w+uKxt2VZH5O2qElb+ HGaVy9+qh293vBCbhgXibs2r0QfPg7LPmYg3XpTRfRKONdH8jzdMSacdKoPv 833tfyE+sWl/C3yrLdvxLcxyvmJ7Hx4qP7FnDfJ3K3f1z4FH1Brcg2BBXfCV 3bBUzWx7BswyFgn4gP21Ssbe3CB++j7jOLywW6WvGGbevKA3jvxD8g21csj6 lc+EvnBH4NVwf5jRoKQoQP3GR61EVWDermgxB1he2+JYCcm/rKO1Gf3j1lkV rocZ8wp8b9g20qY0H/X6qjympeGADcJsCXj8YZxvB+JI86UVApZjf+m7t2vh R883WNxn4H5cyTFuhqeep1uugtNZOmJjcNjiofnlirh/Z20HNiDeaPu2FkkF 9Oef9mdZ8A9m23sN5RF/RlghgfwOOO2SOi6H52vtnOk5+MyfFcVzsrg/SpOO Cqjvqqun928wP7fgTjZxn0NXHkwtqKxWRn/WeiSp1cNCU5cmcv5c5C+kyyCe 4EloRD+csP/YySjY19vXZBV5D04ccp6By/Jm99vCnf2SzgnIh5WT3WVPnnv3 R8YM5Dtew2Ibw7252/MuwkJdo79GEY91J9NoCmYVfBOWA5tf2XHaEvUKORIB hmS/Ta82uiiS+vQdf0W+qTWxm81hZu0mnjpsnrsoMoD1giMlKaRe/t2tnd4w p9/Tfw79iY5+9Uce8kl/0O0VBbMiN9yuQr5CxXEdEThe93LvNdTLyfni9K/o t4fxix+jZTDfMisTCKfcSx+xkMb9f2K0QMMi8UstI5LIp/rT6y3w8a64C4US eB6FjaVe5Dl7k+RxVBzzql4/k+dq2FDTz0sMPrvTfQROWAgIDBHF9drVTHfs 3x0ko3dVBI4ZW9EBJ0zunFKCaVG/4x6o56P+xuTKZaiPqyEtJOer7VB1Bsz9 0HjMH/U7BgRdyoXHP1rn98IyubZne+H0+RNf2KB/vp9bvtuIeOMWQwnn4GRu a305LLyTl/E76feWU92bkQ9/oCC7GW7f55X7EBaYrY8m80f9tt/fjfz5Ut5d SeR+dRi61sEs239GyHm3xiExloF6WVbZCR3Yf/B8jaaVODkP4+95wG67tdXN YWb8kWZybpVo5L/5TNb/ZHuBnDclkWalibCbyFd+pai/6KVG1EvsTy86ZRjC mq79i5Iws5cpTd5b3lf+ReLIn8HcNe0AN6Q0yL2i0I/c4Yg5vIdF10oNdi6x Ke6XvjatsGmCf2Pl32yKY/1H9l3Yvism2XCeTZUxdeTa4A07KqRKZtgU3zk1 aR5Ozvp8PmiaTdHtto7bEb9oaa7LbxLrDY01yTmyIa1ZseITvPxwPJO8j48y XoWMsylK4b18Acx8uCpTcYzM1xeSczm62vCwwUfEc987WQo7pib2yMLpbt1V JuR7jeMSUwYzQr+y+Z64Z27mM9bzAt//RL73sr3b6X7ET9+UqWeEfqdWtvS9 w/7M307HboPVtRgnRZEfY/TwBFudnCO8QLUpNuV2dCRSG65QLnaSRT3pJsY/ PiPxFb5P/QMW6tj9FAsn3D/jt/kzmxo3/1pLBnbeFDq8D+bHZA8mkvO/zlpE kjjCpHAG9TUVOnTuxvrxM6PZwXBv1OU1JtiP8SlZ9hn6o740w8mbgNdPG3nC Nqy1YbXI381+8sgwOTfZMfvUPqD/jLagLNjx/X8OOgyxKcGFxiAPOKR5eGjd azbFUnawt4GFR2R6FZ6jn2dubaZhznoH/vyfmC/s7gmAufGcbIl6xHM1/fuq 8v//7+Dy7lEM8scK+n+IvYyU "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[CompressedData[" 1:eJwt1ws0lOkfB/A3Qv8iwzAUctkQKYMUkd6Q7iKkNltUJHJZm0jUsCKKZt1C bpGwVLoSxWCrZVeETERGwiraoRBW9vvs+XdOx/mc53mf5/f7/t4Zh/phvz3u IhRF1eM/+UnNzOHfdzQlJD8VaM6iWvul1stpyq60VfSAIk3l6Ii0X4ab9+us yICjHXinBDAnfM9v1fDlkvhvhppYH66orIOzbQedImF2gHl6AUwlrQt8Cdv9 vSb9hCLN0X92Pk5Bi6ZKKyWT5OFPc8tWO8LCFwtf31CgqQ5bB/fzxIuDvmii nr77FzqLYEY40zuNhXuctwh4sB23bf8CFs2R094V1gDTUd5KIfI09Yavf+I5 2d+Y935cjuYIehNkHsFqgidHIuDwiMDj12D/Nr6HJnyJmTQcQeqJk4vvY9Kc ZFFLP1dyPzNZisekqaGJ4Blz4p0/RzyGT15cUqhEnn/u0/0a+4Myz/nNoT/X q6wjTDma0uQnSXyEBSm/1nni/I59wU8EsP9tnS1tcL137t53MK/wpqQd6k0c Vp8SwtxPFvtfydOcFlNDZSly3yhrzAX9zrz8Gr5Wi6wnh/XAcnT1+hPEHfx+ J+QV1XL2TgnMM6oqewTPXGDVjJM87v10Wgz5/7pe+qW1NvLqEXxeg7zT7E58 TYG5T9d5b4bnvjxYPgRz/syuM4Zf5LKtTFbAbvJccTg0WdErHBb2PFhYgXn0 O5TN1cDN2j0TDnBvkE33JMybd9+3A/OIcfnDW10H783sr1l2qDcpyvPRBrj5 SFUAD/3eY0pE7SQOSzJlo9+VfbdsbGF2Y5hlAfI5ZO+mak3Wn3mf0UOeFffr W/VhQZWI3DPk7Zj6y20mTE9e1z2NeUgkpxwbw/3slhfR22DvpqzxFzCt4uJt iv10ToB/Cay2/aAv1jm82R/fxcGMBoUzwdhffKxZ7RTsL3bhTR3WW/el5R8j 6zJPf9BGPU6MEN+jJA9Z80uZqGf2d6l3PuS+cwMTquiHGSb7JJL0/09WTAH6 yUyLWFAEl0YxPuqhf2pOcUknnNNn01OIfJpibFJZqJ8R+rBQDvOyeqSe4kI8 lH/YC3l6BrrmFcGlquZ2+XCyYG50mqzbLFauhYP034fs0sX7xn49vxreEhuk lQUzTCTGr+K8wAtaE0Mw1+vNz99jfZdynN7qlehfKC2YRT2qB00CPGH/9Tr5 sXDTLenxFJircSNTHPXdL6jmlMPsJPvAYPS3yK8n/k9YYPX80CDyULT9uqsV ZizoKvsebhyQyW4k+y9PZXQgv1033//vCdzskproBbcV2Bfmkfvfvl7FRN5y e40WRsKUdROPL0tTsZPzmG5kv5e3bqUsPq/dCq0bYLuDEsVVWDd+lXFQBc65 nt3Wi3UlocV1EXIfO4WrgfPWpPRuFqJftda7ZmG478sp+8C/YErsQ/sw1r84 tLcPw7Sby3Zv1Bu2ZpX3N9huRLJsFP6QIBtBzi99Kd6KfjkhF2UebvuvP9Ud U7D55+bRcFKvqJHmCeR1Y+7K2d/I/aFVKn/Al323KknrIc8mwQwDecf7pi89 BHOPevFNYWnB/Og7sGBi8y4rzMdoqf920VU4f+3ZbD2sPzDJcraHcz4YVE/g vFc9yq2psEBsdON1zEMpPt2UT/bv1jM2hXc/yghfuBr1P4ieqcB83Axb1hrA wg0jQn3Ua2yfGLcdZr/TVM1Gf2cLYn32wgLHgG5pWI8/GeAEN2uxfGOQV8kP oQNbifmzGbLIy0Cyt9iQPE+nHb2DvOdeV66Qh0ttSzO94I/u25d/Rj3N945W bYKPu7Jzm2Aq5nmxCVwvL1Vxk3jSP2c3vOm2mC+X1O/sq3Mefn/cLyIEZk/f Nm3HfLMXPtznS86zHdtjgfurE/2afGC7Nd9qylDfOpVtOmS/2sIlH83w+dPS U/knkeQ1lJdbh36+1rJ0KsnzI5vjtqD/Ecsdbz+R86nUCPJ9U+r+8Noq1M95 ojWijXwV7om5B8J0YK1GMFwXqnutDva3Ci0tgVvb6GB5fdwX5JhSC7++Nb/r GCw0Ou1XjvwNR5sflsG0wlRkPIvmyU9zFs5jI9/BT/U2cOyLLVoasFrd/pr3 qKcy251hAfM+U7t9UI/2PbbQAbbrehM4gPrpH8UtjsD+B3wlnGEPL/cGb5hu dNiK7zteUrsnzwduflAXb4Z8lDMi847D7OKVgieyNP3dtZytruQ+BfFEB+QZ YCBs2EPO29k1NU+W5hkdUAqzhF2tB5UaZWiejXM4nw1TVxedK4MLXoYfVSX1 35ovXitD02tNXhVLk3otIt9/xHrU4wXLREk99/uLDHG+5jU3kQn0n/O03y0B 1nArqhaSPBiF9WKob939v8cn9cn7ZZ0ShfmZ3/xnozip98yKein05yvyl6UC LBwclEqSo+llH/Y8WQ0zlC4oy8rTvDKlJbI7Sf2BukrhyOsiM9HJl9TvODrV CRe2j+xPgrn1dr8tZdF09tx01WPyfHR0nznmNTIvf/4AXNpSZ7sR5kxJZy82 wPOWvjfUMb/TT/ctMobV/lpp2i9P0z2Nb/qcYV6l49glnN+r8XksEBY8rjdU wfz429hW8XBpgknKVdR7RbhOLwcWyvQWLEY/uqzEA8XkPPpFLL5/eK+S517f hnOylNP/xvu+M1Jc/BY5T2AvfoK871vfpt6AKdPRk1PIV82nOyGdnK++vyBT hua8jPlmeBHmJCSv+gHzSNms23+anK9koGOG9YlIbX1P2O6tyXemWBc1M8gg 9XMX3Zjci3XXfVaF22B2Nc1PwPkRCmtKNsLNkn2HhuDOtdf/WE/O1+bXO6G+ q8vK+83I/kqhdgvep+FKjxgrksdx8TJnzFPt8/SIPdmvkmvSg3k2eOgJPWD/ XSsc3ZBHascEM4LU43Joql2O5i3tVLiYS/o7s6raFPnqzeva+JzkP5tsGon5 BqsW932CacuTlneRt4c9l1I0xD2M5QY12P+sqkVyE8zeq/ftNvJnjV055wnT sVL257B/6FZI/yWY4xQSZID9h2vmfSmBBaf8bRowj6ojo+nPYf+q5gFb1GNa FS/bBTcbruA+Rf0dy1kDQ+R8px3GxpgXQ8CfEsLULxra+cjjYH3RpVFy/vrY u8qYV96j9DXDMM/KqypXhqZ+95Tj95L9qVp+G5B/dfKrjFaYq7ipbZRB0xWD 7u9qyf0OYdfrYH1Wm+Yd2DWQKfmAgd9PjHtj2XBpZ9zlZwyad9j6cCOX7C/i z59k0NTdkIfLzv/Xb0euFe6jGpjqZ0k+e1u1CnHfeMV4UyjM2HJWShWf7yKX 2s5wcr/IdNc1+OlM6tU44rz8MzroV3vsimwOcdC+y7eYNG1t1dFfTu7LnO3R QV7dv2h58Ek/M8fK8Xmksso1U6fJetoOegjrO6x+3qRuhLw08xs0MI9zzl5T 22DhwZ/kLDDPQi0fs59gTlqwP+bNO6AqOHMVZgyXd8thPkoXUsxr4NKV0RIt OP+K6Ae1PliwQE3/JM6fJX93GP3/7w8m/S9zMcz0 "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[CompressedData[" 1:eJwl1wk4lWkbB/A3++5EduVgLIU6mShS5yVKIVom2yj7UIyjPkWl7xAyUvZm pmbMQSOVLI0GUY4lJlRnxlpSJ6mEIku2Gb7/M5/rcj1+53mf+7nv+33f51x0 /SP2BolQFPUQv2Tkvl3Cjz5N/fujTlMMyU7bZpg581JwXo2mTBhmMfGwW2f0 rJkaza3byp+xhMeVd+iNqNLUly7Pjr/Voylu8Lm0ZlWaO1zSOZEFM/JSR+ox H50kcdYOFjzzsujHvH2kE2tal6bSgyvqVBG/UN+lvQSmxH/YcQQ+l3S7LRLm +Yswu7Gf8uA6Axr2Tb7G2YP8PGfWb9SCOV97JXSr09yt1Ql3RMn8P+L6BzVo blfUyC9zTORXFTchhKeyjOz+hoXXTZ+6a6KO6bAtMrieH2XoUwv/nNx0WRfm HjBekNKiuZ26wW/YsJvBUY4VbGla5ORP8k0ZndylRVMHnrQ1JRIXx3vbYN7X 5KbVNbL/u/smCnDan8YljaSekKfpDYi/4phFaC9M1+bY+mjS3KLMfRqvyX4P olxeIz85funkK3J9RH+vlwZNFe00be+ABTcqWltRb8jplQZVMOtRT4Q16j3V MmCRRva3XadRjn5lxYsOecLM79KqLWCez3SrBol/IzH5MfqtMLhuScAk9U6U cOG42F814mHB9Y5lbrg/lfnMZSzSn7G+x1thYWzxxRodXH/v/D0X+LIYZ0kb 5okcbj4Fa4UcMk1ZhXwT/6JxvylGcJ+rFMwr4Emsxv5GV8r5V1Yiv9s9N3Ph jPaRyh0wd8CnhYl6SsYuGyjA9KU5xyI486Tw0pg28rFX7DVD/ZJ96WtHYE6v seUN0g8fQdkizJrU5qmin+Z+8nmGWC+g64zD4ZmRJs5BmDPlKXUd7lHOreXB Zbotz5vhA6rXs9/BwsHH3U2wjNF8myny5YYf/isfdqiIcjoM0y8KPfxhtl5M wGVSX4vCeQl4gKGpXgUzdUrmspCPlvtiQB3s5vc6iAE/9nD+9hY8Xrc+Kh71 MBtelnHJ+o+rPD6hfnmjejkrEj+8JTQQjjvf3taDfJjbLB8NoH8mGyPSDpF+ 2N+UPwbXqgSYdZJ+qHU2a8LDb9inrWHevQzPFyo05SqZrfQDnkM3M5tyPrxv cWRhAnkKo6O1G+EUr8pv9sAcy9LNb+CPLs4HqpEn76aChAHiFXwb6MjSIM9z 1+AZ8n4WOU3fRd7jgydef4DbpHmyPuQcUFefIO/j7xUTS+qwIKHHcgJeGfJy ZAwj82lNaAw+l2jY+99XcNmYu+U8qd+uUWwU9rXWzA3HPuoTetFy+JzvpHng ETws3F+6FabrT2mtQJ6bt0tmxpJ1exbmtsBiPuIHG2EqaIrrCN8NC5+SJvnX qA+awyce8E2cSP6/6UssYvw5IV4vDqNwaC6sGON2jtLFQoyC/Z06dhj7PAuW VWJk7bKJbEJcp+s5q0thvnlxpRU82qQxm0riXc2YLULeie0NfFe4TP+LFA34 9plLtrMkX7mlskz0Z5m1zo/JsNCmcKsWPPVOdI3Yv/1ablmNfq8eyAuPwDr+ kMSpSPicj3TVE/KetCel74BDrseNryHvWfLN0C0wZ26/3TmM6bVnXfdhVA+W bR1egfUpW/rJ5wutYdu8YY7dU6Ve+EHipdp+ZdS39E0sG3HyE832HoeZSneP VpF9PKxnjWBf1a99bJDHl9aZe6eUsN/02xVNcKzRy9w+uKxt2VZH5O2qElb+ HGaVy9+qh293vBCbhgXibs2r0QfPg7LPmYg3XpTRfRKONdH8jzdMSacdKoPv 833tfyE+sWl/C3yrLdvxLcxyvmJ7Hx4qP7FnDfJ3K3f1z4FH1Brcg2BBXfCV 3bBUzWx7BswyFgn4gP21Ssbe3CB++j7jOLywW6WvGGbevKA3jvxD8g21csj6 lc+EvnBH4NVwf5jRoKQoQP3GR61EVWDermgxB1he2+JYCcm/rKO1Gf3j1lkV rocZ8wp8b9g20qY0H/X6qjympeGADcJsCXj8YZxvB+JI86UVApZjf+m7t2vh R883WNxn4H5cyTFuhqeep1uugtNZOmJjcNjiofnlirh/Z20HNiDeaPu2FkkF 9Oef9mdZ8A9m23sN5RF/RlghgfwOOO2SOi6H52vtnOk5+MyfFcVzsrg/SpOO Cqjvqqun928wP7fgTjZxn0NXHkwtqKxWRn/WeiSp1cNCU5cmcv5c5C+kyyCe 4EloRD+csP/YySjY19vXZBV5D04ccp6By/Jm99vCnf2SzgnIh5WT3WVPnnv3 R8YM5Dtew2Ibw7252/MuwkJdo79GEY91J9NoCmYVfBOWA5tf2XHaEvUKORIB hmS/Ta82uiiS+vQdf0W+qTWxm81hZu0mnjpsnrsoMoD1giMlKaRe/t2tnd4w p9/Tfw79iY5+9Uce8kl/0O0VBbMiN9yuQr5CxXEdEThe93LvNdTLyfni9K/o t4fxix+jZTDfMisTCKfcSx+xkMb9f2K0QMMi8UstI5LIp/rT6y3w8a64C4US eB6FjaVe5Dl7k+RxVBzzql4/k+dq2FDTz0sMPrvTfQROWAgIDBHF9drVTHfs 3x0ko3dVBI4ZW9EBJ0zunFKCaVG/4x6o56P+xuTKZaiPqyEtJOer7VB1Bsz9 0HjMH/U7BgRdyoXHP1rn98IyubZne+H0+RNf2KB/vp9bvtuIeOMWQwnn4GRu a305LLyTl/E76feWU92bkQ9/oCC7GW7f55X7EBaYrY8m80f9tt/fjfz5Ut5d SeR+dRi61sEs239GyHm3xiExloF6WVbZCR3Yf/B8jaaVODkP4+95wG67tdXN YWb8kWZybpVo5L/5TNb/ZHuBnDclkWalibCbyFd+pai/6KVG1EvsTy86ZRjC mq79i5Iws5cpTd5b3lf+ReLIn8HcNe0AN6Q0yL2i0I/c4Yg5vIdF10oNdi6x Ke6XvjatsGmCf2Pl32yKY/1H9l3Yvism2XCeTZUxdeTa4A07KqRKZtgU3zk1 aR5Ozvp8PmiaTdHtto7bEb9oaa7LbxLrDY01yTmyIa1ZseITvPxwPJO8j48y XoWMsylK4b18Acx8uCpTcYzM1xeSczm62vCwwUfEc987WQo7pib2yMLpbt1V JuR7jeMSUwYzQr+y+Z64Z27mM9bzAt//RL73sr3b6X7ET9+UqWeEfqdWtvS9 w/7M307HboPVtRgnRZEfY/TwBFudnCO8QLUpNuV2dCRSG65QLnaSRT3pJsY/ PiPxFb5P/QMW6tj9FAsn3D/jt/kzmxo3/1pLBnbeFDq8D+bHZA8mkvO/zlpE kjjCpHAG9TUVOnTuxvrxM6PZwXBv1OU1JtiP8SlZ9hn6o740w8mbgNdPG3nC Nqy1YbXI381+8sgwOTfZMfvUPqD/jLagLNjx/X8OOgyxKcGFxiAPOKR5eGjd azbFUnawt4GFR2R6FZ6jn2dubaZhznoH/vyfmC/s7gmAufGcbIl6xHM1/fuq 8v//7+Dy7lEM8scK+n+IvYyU "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[{{20.00000000000182, 15.}, {10., 6.}}], PolygonBox[{{15.4459764877483, 10.90137883897347}, {14.28643761960272, 10.395938819525396`}, {14.821609404900679`, 9.801303502527665}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {16.937558817093933`, 13.081023536561336`}, \ {1, -1}], LineBox[CompressedData[" 1:eJwt2Hk81NsbB/CxRqQhRBtJNZbsRJeaJBRpKiSNSJRclbXcSIoySUhiKiKp GTeVa7lXRbaUrazJviUhyrVlv7/Puffnn+f1fp3zPed5njlzvvOy1vnMflde CoUixkOhkPjfnyL9v6hKpyhKNRdYwXOlPU2zKnRK25jv3gQ4T+muxSDML+LV 9YWMb6s+WQm71AU20NbTKcF/pH5JgrNDutqcYcUKG+GTsNOPndIxMGviKYcG q0b7yuXAEV+XCXYrk+e/K1WS+TKaRbFwtgWXrwH2kLv41BTub3eUrYEZDbo5 00p0SkPoJa9CeChEJycDLkx9n/QY9s2JsD8NR9faZ4bCXcp7eHVh7vJPMg5k vWhqoiAsuUg7TAvm734U30ujUzS6l39cBLdJfSuvhpmvMlo7UV8bjetRBvee dD6QD3ONe6U/wNkcsawU2FD8Y3Enma/vIREDywyptszCLrebqDdgy1btXfLY L7iltigWHvq7NH43nJfEl5wGW4csXuQP63tdDquE3bqCMh/BGXsC/pqGnVTe ZdbAU8I7Wkm+eQdS6JMwpdluhR9MC2Q2LkN/7Dj31F7D6bybrDbCbk6ciyIb UL+NxJwaTJMUN7aHm0bHipTgUKPFdzgwt3756uWw6L7G3BHYZMFc9SfW93/i I6S9EfXMuDyrgKmne+gecMPNo9MxxL9Gs+7CEVKbB/fBVQ+TruXB/DxeH4Rh RuPMpVrY3NvHPJ/0z+ysZTOZzy5RPwPTaiOdG2D5LbWnFWD2lszGEnic2d5J 5o1P2ZilIVIfpCqzEbOX+ldeRXS54J7qiBis5dd8BJFd/kVbC7Hq9DElHRLV nLaII7Zdto0VRky4sDJkHnXJCMuMdiMyPN4Y/CReNjJZgDh+1rWfjAe3yy57 jCh0bjSQiudGeD1s4uAaY2XbTWS9mdj9MeT5QO2D++GhGCmJe7B8rRDPBbKv UAfPH7DHopDo32GP5wp/18NuSfFyTaQvdo8l+BAtFQ3LeFFvsoyjoBGc4bD7 3UYa6TfP4EXYmlmUaALbcdPPlJPnvtWpHYQNFR5OSyPq2xxodkBM/6X8hSsi a8zuOhmP/XKiPhOxoX9N9Q5EoRMPLpBzGMiJqiH9jX3/U9EIn4vhEZ3DE1g3 z3NfuB/sq5hSQz638XcCHSkwbVfT8gA4+kb6xxJYlW53lfSXZsF99Qlmmom8 +ULO0WzGuQ448JT5k3hYtONnVBMZ1wvcYAG31TYqvCP7XVi6hA9mXjvY/AS2 W6PDU4xzSpfQrWfBilNajHC44YP5DSeYHZbbSL6ndJn4EvK9VdU9NWgEyx90 YYjA/Ml9u1Tgmh8dwuR7u6o5c9kGeG7HbFIxnLd64M0mck+ErQpMgynb9m3b Tr7XtktT78Jvcj41HoGdKFkP4uHxJ+mu5J6wFjnr+QCWX73q+HNyL0WGeuWS Ph/qp7bDXA+9E22kvwMvghajnojz4+dEyT0UL1GpA6f2eembwePicpsPwfxr C/LClUifSnb7kfO18eTzBlK/q93oVTh2d9QpBXzvPIM48RFwYUbiBi9YSFFU 9wps1622kA9H9xUc9STnlBWoJoh7006q3NYKViwuVDKDZawsh+Rg/fKJ3CA4 vfFoVB/yVb19SfoJuWctBzRSST8/X+cj97RhmrLaYTg3dL6xHW6wOaIjBruo +F75DJft9ZEvxL0j1F/xoA225MS3+cCiIpq2FTDrmIKRKnkPNCvYPoM9Na90 fFuHem2Gy8NVyDnuFMiBGeLZOs4wc8uzK9dgf00t283kvcDbznGHm9pThJfA /e6maw7BVWmO6/pQLz3s4Iw1nP1HnVUpnFGxNd0BFpK3/Z5O3guFz4S9yX7n Qhbuwx6hnw9Hw5aRFgsJ8JS7se+f8NDDyTYOXDZ172037NTR+70ArvFuCFuK /KcuxA30wpLMy9WG5N4NU/kqhXyEfL+/PE7u9XkNr31wgmBNVDg8/tMg5jax 87r2R3C6htdwJ6l/NpL9J5yQtah1E96bHmITeq/gwmplViDsli5ckAmP5FFk y+G5pUs+kvdoV7dEJXUT+lq1quA38p6xCpPeB2dkfz26G05Wv1MVBkfrDelS yfNC3ZpZcHZJse571DM3rb6sDm76sOttCDxyh7fhMxln1d3Rg9Mt2v364cIX aVH9CljfwYDdBefWhdxMgBnTfF7vYdUED08bmOIv/DoDNkzsKpaCy4Tmn0fA +hu5pZ1r0Tc/2ZpjcMTDQXoOrN/B7taHEzryveNhExWfQjFYkkebEgaXpY1t 7Ue95h9jh0Pg3skSvjLYP0jn/g04uZjfPQNmzLxtTYGDxcddHsLWHTO9RTCz 0c8tBc6mxF/uh+em2AefwUOqigqSyC9vYPC3d3CDdff4dthOdoX/MJm/cEP8 DFzTvdRJDvnoePnGs2HrXEbGYdhkZEntK5guvsI9meS7kGTdCDtZuih9g/Pq dq3tI89LcrcbqOG8UxT/GoBVdZZ0hMFtwXuVuuDYlIvrGuBUjxVK5XBXDPXA SnV8HpNZwo/IfgEC3+xh6phxni9Zr0WwNBpmC0S+MYAV+fg0XsGqm19vmER9 GV8j+JvJ/Irle9NhmktR5gDM+vF+/AipP1hk1zDM7GNMU+F03bM+vbDJkeSd pfIYn7vlUwOLvtzBCYL9JxzEs+Cy9hvPtsFdIkVXIuFxv+KoxXDhu1ZHV3iE IydeLId7UV39+BbYM0o/jiVHfofo+lFhO7+dnSfh4FtjzEHUy/4Y1+IKJ99Y WVABF9ps0g2ADde7/siCy1TS3DmwjOH1Txx4pP7W5z44dZ9ZF3E2r2X0Cuyf 3MPsyoapGgx/Uzjha7BEtRp5L6cd9IXfNMVJTML+VudNHpD6Lrv00JCPvOxu pwoy3zJ0guTP4obPDMFu5wRNnpB+PJ7NECTnK6zbeRKeeu4QIQUzBK4yFDTw u4e6RkYGNu0aubULlnRu91kCK2pyIs/AhW/nHSawHpcp/jkGpri+0KuB91sE HMiEua33Zu/DTsUCtVVwrtbtX47BVCEXVjdsIqzHLwcPba/69oOMu36/mYb6 dQpSXvyEnTxOXReDBT9E/TMFs2LuvfJeQ6ecHm+RHYenotijravpFAXHZc8H 4LKkqZK9sN6IAbcFlt/5eEf9KtzXXpXry2ANrbdl7rD0EnXvLDhjX+ALWZgd qTqaCHf1CTj3rIRvrpe8BrtZSjaXwp53W7eeJfv7ZY+WwAkuMYXH4ZpTTsat MG33oYLDsEzHWlVhrBeUq69iS+bH/eTbDV/uHMgkpufyb7kDu21JfuUAMxzO 3vwbVnxixvyV9C/nuuMe5N90xJN5EfZnVVQ/hl0uTujdgYMTVJSn4L6+rfK5 MM1tdLkh+vE6s25pK+nfzrHPp+C8/JIqiib2m9iedQ02jzoxtxFm+ydmRcBq 9Slae2H5lyeN/OBwQyE+P9j/QOJXY7j35aw4G04WzYqYxH7u90XW/wVz7Y/R Y+Ctf73UrIX7OQ/0ZOGrusLuX2C37sWJUahHS2e96RhM04hzm0F/9BQ+hM+Q 5w36ZB3hFpE1lrMwa8nigJIVdAqvfvzQBMzIrzy0CW66dUnmG8mnvn57iizO d0d1fivcdHPQYCPsbfedUg5PCZ0PK5TB59bJo54N28XQArzgZCOjZ/fJfncm zA3hUAvh4WtwhkTu8Fo4sKCCcQ6uETVapwBv6Jdc70bWF7h97Bd46uyyCAcy ruE26w4/Lu3ztCP9sPZTfgpnR8cFHiL+PZsxD7/9R07sKHl+PWWDLfKLC1rQ PUPqH3s4/QesusI1J4Ssl9syuRj1eb7R5CH5+T+adz8Mq604Z54Pj9xcufg+ rLjRKqiLzHfMV/sAOyufPy6ohfqCP4n3wzEnTFM3wfLXTaeIW/S+VVjDyXGZ B6phZdGc0+fhqQLLj3dhrek1eokwtTrUyxIWeyYx+IrMXxVu3Yf8xLTCQz8S 0xXKfoU1KJ8NB2CNHqpoN+pbNb3n5iQZ/zGsYAE3ug1azmuRvtfdfr4ceYcb hxMLNeVoSsLGSSKZP+Ey39tFQdLYP0P/7BDcL/K6bFwK5yX4XnkbHPz0DD0A 3s/2bygn+enyMaXhuLXsvmy4yfSIbbkk7onzASeSYFq/lEUcfPl3v9JwMv+N xOogmLXN28Wf9Kfg66/BsHelwY2TxC327HtkvtW8gyPJt3jgUxWs5tyTZw/n +jraUrGfYafmHibJf/PXY0fhyEVPTriQ/sn6PH0JO587KO1Dnq+pDpRGPXki EpIs2HzrsfnTcG7g2+oUWD/J/vJreEOmsU8xqZ87W/EP/PJvs+EvZH2Bnu1q 6M/4sPOCiDbqP62uYwp/txgx04Y9j0stmMDcBTbTHtZPTVJWgsOlg2svwm49 266MYj22zoG9KTDbwWxVCqy42jOlkIyLaehsga26mOXN2uT3i5Xqa+Qvqt9L GYaFOJttteA5eZP30//un19E+vPvPzV0/v//DEn6/wDx3iTG "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {17.562441182905612`, 8.08102353656179}, \ {-1, -1}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["c", DisplayForm], FontFamily->"Helvetica", FontSize->10.996363636363638`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 10.996363636363638`]& ], {9.154800000000002, 9.999999999999995}, \ {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}]}, AspectRatio->NCache[ Rational[1, 3], 0.3333333333333333], PlotRange->{{0, 66}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp8", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags8", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res8", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "/", RowBox[{"(", RowBox[{"2", "*", "3", "*", "8"}], ")"}]}], ")"}], RowBox[{"SquaredME", "[", "amp8", "]"}]}], "//.", RowBox[{"HelicityME", "[", "amp8", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp8", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res81", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolarizationSum", "[", RowBox[{"res8", ",", RowBox[{"GaugeTerms", "\[Rule]", "False"}]}], "]"}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"Alfas2", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["gS", "2"], "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "2"]}]}], "}"}]}], "//", RowBox[{ RowBox[{"Simplify", "[", "#", "]"}], "&"}]}], "//", "Expand"}]}]}], "Input"], Cell["running FORM... running FORM... running FORM... ", "Print"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"3", " ", SuperscriptBox["gS", "4"]}], "4"], "+", FractionBox[ RowBox[{ SuperscriptBox["gS", "4"], " ", SuperscriptBox["S", "2"]}], SuperscriptBox["T", "2"]], "+", FractionBox[ RowBox[{"19", " ", SuperscriptBox["gS", "4"], " ", "S"}], RowBox[{"8", " ", "T"}]], "-", FractionBox[ RowBox[{ SuperscriptBox["gS", "4"], " ", "T"}], RowBox[{"8", " ", "S"}]], "+", FractionBox[ RowBox[{"17", " ", SuperscriptBox["gS", "4"], " ", "S"}], RowBox[{"72", " ", "U"}]], "+", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["S", "2"]}], RowBox[{"8", " ", "T", " ", "U"}]], "-", FractionBox[ RowBox[{"37", " ", SuperscriptBox["gS", "4"], " ", "T"}], RowBox[{"72", " ", "U"}]], "-", FractionBox[ RowBox[{"5", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["T", "2"]}], RowBox[{"72", " ", "S", " ", "U"}]], "+", FractionBox[ RowBox[{"5", " ", SuperscriptBox["gS", "4"], " ", "U"}], RowBox[{"8", " ", "S"}]], "+", FractionBox[ RowBox[{"19", " ", SuperscriptBox["gS", "4"], " ", "U"}], RowBox[{"8", " ", "T"}]], "+", FractionBox[ RowBox[{ SuperscriptBox["gS", "4"], " ", SuperscriptBox["U", "2"]}], SuperscriptBox["T", "2"]], "+", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["U", "2"]}], RowBox[{"8", " ", "S", " ", "T"}]]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"res81", "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"4", " ", SuperscriptBox["gS", "4"]}], " ", ")"}], "/", "9"}], " ", ")"}], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", RowBox[{"(", RowBox[{"S", " ", "U"}], ")"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["gS", "4"], RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "/", SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], "//", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"#", "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "]"}], "&"}]}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["gg->gg", "Subsection"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"top9", "=", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"diags9", "=", RowBox[{"InsertFields", "[", RowBox[{"top9", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"V", "[", "5", "]"}], ",", RowBox[{"V", "[", "5", "]"}]}], "}"}], "->", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "5", "]"}], ",", RowBox[{"V", "[", "5", "]"}]}], "}"}]}], ",", RowBox[{"InsertionLevel", "\[Rule]", RowBox[{"{", "Classes", "}"}]}], ",", RowBox[{"Model", "\[Rule]", "\"\\""}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"S", "[", "1", "]"}], ",", RowBox[{"S", "[", "2", "]"}], ",", RowBox[{"V", "[", "1", "]"}], ",", RowBox[{"V", "[", "2", "]"}]}], "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Paint", "[", RowBox[{"%", ",", RowBox[{"ColumnsXRows", "\[Rule]", RowBox[{"{", RowBox[{"4", ",", "1"}], "}"}]}], ",", RowBox[{"Numbering", "\[Rule]", "None"}], ",", RowBox[{"SheetHeader", "\[Rule]", "False"}]}], "]"}], ";"}]}], "Input"], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[CompressedData[" 1:eJwV1gs41NkbB/AfERLN5tJUVpOkQTRaxUbmx2NdulFhpWS0tYmtyG3I/pus yq3M6kaLVYRaapIYuTQjIqqdikxlNdFGpW2Uu8r/ezyP5zyf+Z3znvd9f+cw C3fs37RLlaIoBX7JSHVN4WcRTTEITGnKsVnPqRKWHb/FVGJMCo3ghGL0lj2e NoBx7HWcmTFGDwGbN4QxKy50f7sJTYV8XO+mhfUC6zDnDJj5ar+7Bcx//dd5 b1jzquoBP3imQeaGeWT+2qGt6XAUq7f0/UKaEn78aNMKf9apErfBIatM23QW 01S+xZOJClhyNlbiA7ueHkq8BMtcso7mwElyrb4SMt/x55Qe+JWgzb0cZkjv u5ua0VTC9HkBjXD/adm+ILhlcDzqH1iTl/vxd7hRJ7FgEma6FZnehJWtn6uN kJ/8ZEvTE1iS5r/XCZalSvX6YB/Jm7DtxC5BD9/Cp85HxsTDtIuBZw8siN3D F8KKUbnnA9i2Y0deHtzydrexCK4ole0pIL7ueygFZtQYS3Nh/iK+YBus5n9y Mh1OHomLt4R5x/b2hxPrHh0cQ32me4dknjAn1Si+GRZVBEczSb7T7HKz4ZKR ZrVuUm9Df20EvI5ex8iBxWkXJjaS/gQ4xvvA/vocliPMsxQHa8Eed3an28Ae 2Xe161jIJyXQ9Dv4s1tPawSclS32dCb7tTf/aw63dJ96shVmek9+ebCApqiN RgsSYXo8bNIfpuc0j5UTzzn2ccgYdU58ujMAswzbvS7CIZ+9061Qn+jSiYIw WD7wIxUJ229oEnrA4bUjxeR9iFzj7zjAgu+2KFWWoA+fGNNcYdGV8jVuMGXd szAIljx57n4EZrF3Lk8l8VecK68lz4PfnZWS9ToxxW9he+Myjgry817z7SUd NuroCEx0hT1yY0WmxLkpb4/C8qB6u2WwrDJHdhu2P8OirWDaR9A5AktWV25c AA+sDpiui36wQm9HT4ddU6K1mLBSJ8XyFfYr8Vu6iFg+3cj/JtzYkv2LDplf qbRJg0WHrfr+Qzzm/VH2FpL/QsNDpTBj5oZ7ZjBftPqCD8wbOndlBP0Q++R9 /4b0q9pjTRss20Kr7IVLYqWvi8zIvaoK7f0Wrnl0KI2c54HhWG/izc6ieHL+ J7SEYiOaYr+Myo8m/S3I9GLBjKSR8QQyX/uTX/p8fN7qqRCS99ETwFSB++33 fiDnlzVTWpw4D/memk13kfXHO0/ow/3rgyO+Qb7sN+1F1XORX/LTqg2w2FQ0 Hgmz7lQqf4eF2kalrjCzkqqWk+dJywYtYW+l9zEW+kdZ0prmcAjbrvlnOGRA /YdVcL+u/nAJzHO+ujAQFpk4Vb+CmQtMAk7ADP5aFaY53OAyq5XMP7Xf0Jn4 dYNSG/mJDT9f3Q6Hi26EecG8DEeVcHPSv8HnGbCIxWyIgjl55vUtcIh0/vK9 xCFFimFYGXTPIAC235Yi1EM/sqSBVxyJ9W5KjeHwqCWlhrDgZOsyA5jTvcfo LfLTXBMRQ9aLZ7A3V8NZkULWLTjZWv3RUVieyy47APvPX2HlS/wblfoN6a+k 4IMZzI52UMtDPbIgwaGv6JdEJ2nZfNI/LV+1bti75kljOhPrbBu8muF+/U0T I3Ow/9jTuzVwVma973Y4mfkhmNyH/gTxwWZDvA/7hKS75D6lpX1ZCfNooWEv 3EJ1L7lmgPHwYIwm9ucfptu/hyn7d0n25P1cz+K266Pu3oOlEaQeN3ZfIkxL eaPXyPPUy3vdYTbbzWQUVsz4K8UEDmmyu+GE/tDq7V/0yPwqD+OjpF8Hjv0x D2Zmbr7fSt6HVZGXLexdVuQ1wwL15kzYb4f9JyJCXWB/tk/zKZiyero8AuYx pvU8hj1+LTI5DQsu6uvPIfnW1bPLyHqjA7VbYNaaixViWPnrM+5ZuL/sZG0V nP9Tzqo2mG/bW3cZ5tuMXh2ElWqNVZkW5B6YrtBAf0TX41lkP7rewVALlm/M 6nAn+y/bFjmM+bRlp8ZcOLxtwIfEE+2LXtSHepKDdCpTYYViZmUF3DLjQZIt rDmgsjmJ1OvDzmol9RVcj/Un/XiwOMcLFuhnh38HU++1hu/oYR+vffQc0r/O G+dsYWbgr6nqMH9K9j5nNix7L5gi502elKwG+5s86yTPRSqtM8O/wb07XFlH 7ofoRdDHXgaeW259ageXOKf57YSVR5vX74AluWv/fDMLdXhG3z4Ds36uS+fA +bInMY/JfZjIKz2vi/eptnOtIeqVFUbs48LKzt0924g7q4NmwCzVrIpC2DtY 20wF7o/aYfXOgsQrPc6CGZV371hZoi4tTulPML2mwDQUZrT8btAIc0xnW+fB gpeZC1dh/34zC9MWOL8hzKkOVgpaKl6T+V8vmZkgf3Z2h+Y4TEkTVH+CJXf9 7n+FhY6KyzmwbO5/K8fI868t/7bCJXYXpv6F5fHHh97ALTnTg+5akv9zG2tH YPke5pcCmBmX2vcfzCoOVMTC4Xo2UzJ47KaGvzss6joZT+IrJtV69cn6FKOm jXDWbl2DXnL+ys9EvkK+sm3t8RXkfPA45hTMb4r5Xxo5X6FlFZ91kI/2gfWh sHCdS/jLmfh7cWSedBOsWLmpqlIb5zuhcI0b6W+FbfqRGXh+Ttj7A8zZ+X7l j1rke9LiaWQ+64BSYauJz3t3ZZN43i+sly/RQB7XJLMyYIZ+1qcV09FXixCv epLfhWk1u9Xhd4b3R8h+PoxCqRreR2Nt9krUIzszznSHS7YGxx6EJfyqsvFp OGd/Bgw2wPSRUd2nsP/2hzEzliLOo4vqvTC7KDrGCxZxXpzQI/Gu2MVnEEs8 NHbBIQbPnFtg3tnR3TJYWOz0fBQW/uWbuR75SBJ2VxlZkf/zfxc/Ju7yrFlB XJe1ZwvyD4moW+tCPBaX0wGL9TR8iBlqcb9wUW94gdhtJSyMMrl3Ahbzu5gL iDOi2mrhFkG+3Vfsx1om7bkNj4Up+R0w5RVknQ/LJws1ikl+cSVZXjDNMV4X DTP+SVA+xH75d1wfuZB8CwLesWHWWW3r2WS+8eBsf+SryM9+Qc6X4vRw3k5S f6CnvQRWZrQ7+qI/3urnncn5UjrlNduoIu6qTcVC2HuP3SdVFeT7yPpiCjn/ Hbe7Cqa4lL28Y/wEzOo2m/L6wqVYVSXd+ST+0pPORpNcyvtMkPotcp/mLV09 d5xL8Sf9/ugn8wOGE3xHYSpykxHyk9TUKbqGuRT+gu/3J/m2dRuJh7gU01fw /Bycr3DYNvCJS8nfq61+CStW8zUPwrxVTbrm6B9rff3NYOJxh9r9cD5V43sO FjMc6sphOrfcfT7i8Uqcr32Aqb6ewU4SP2pxnKk19m98zJFif5HrxHovmI5s n2oa4VLKBrp9Hyy4XM9pR77i0OMWiTDPjMt5Oob6pVqfkmFKPfBBA+oTu+z5 8TfiqHuqggl46xKNAyTe6uZCFfRDvm0hx4/4SqmuAxxu3RVhQ+aLkopM4DGV qTZ1Er/r4g/lWM+avJXcgXx5YayDfYgfnmlpWkDqu8cquo39JVEbbSJgxRPL vrXIzz6M70TOm2TWo/5k1CP45Ug1ExacXpp4lPSj91bHCOln62y7zYNYf0o3 qpvcj0PtK6fec/H9uUz3ITlvln60wxsulVW46tLfxCLPgkOvMN+nvukZsYHE secFl9I8uDzoI7G7qt6uTi7FMKt6Y0D6myGLPv43l8p/FOfvSqwlORTXgPet rmOeQFwxbpZ8FfGHbkTWEJOfwjpKk4zW9P8B4asXKw== "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {4.911618926975065, 11.718437853950132`}, \ {1, 1}], LineBox[CompressedData[" 1:eJwt1wlUzGsfB/B/KZXUTZtpI4QpyqSQeGtyQ8kyQrqWa7QoiYqWKXWNFrd7 dSuyRGjSzo1BbuMqjSJZYiy9FckwypCUJUah9/s75+2cznM+Pc//eX7P79lO 4wIifIPVGYaR45dKRj6EnwlcRvn/kjW8LU6OUvjp4o7LKMuGGPN/UPI19WwT UWbUsG/tRpn+IN7fE2VkT0gLlX0Tq16boNQYMnvHoJQnTN/wYTy+D7qtKUGZ u/LK9ccoLY8P+ISjFBa5lt9D+ahq/0hrlOKOCv37KAUlVkeax+G7A/rRHfCn 8H+nZcHZitrmz9SupvPFUpgXnnaJhXEaU81TTGGDLQK3ebBx15y9r6zRPnq5 YxS87kOeQT3sv3+KTSE819OnqhzWHqxNb4bvbJ52Og+Wqw3d1rRBudnuRC7M dWiPcoQZVsjtfFi8bhzHD2ZHlQydpf7XTtbaTt7gXHIDFs3bvDqF2luo2l7C 1ld1PqbDiXbKeE3EJwr7yy4Z5kdpcifDsjruo22wwe+dbQvhdM+BJcvgxpP1 asFw346J8TbU3986hxNhlzKPc72IV5LvdTGD+jOYU3MetplZ1pgDe32dUx0B G6j6TmSTXa/r28K5KYLoZMpnj8Z/niN/cycFfQul/lcKnxyFOV7KQE/KH+MS 4Q8HrdzIM6H8Mjt8LeHExDWt7ZgPf9AvT4m/c442xR2DXQ5t0KyFtW0sGD/K Z1VZhwhWpYak6pJbm79m0riLgvb8Npb2i0PxH3DrM47lqzHI82zfUopTVHVw 4yrYRbPAo5DsnCZuskJe13u7SGF+5O+fV8CNoiPPOilvFb5/dlui/8O6DoaI T5p9VeswLGjwfDAPFtWddvKHWZwxi2Ng2WqZchosGSzSKoWZ0Hz9MbB8S5+g meqr5h8dB4uFolk/YN71d0dcYJGgnTUW+eMl1XvzYa9CyYKZsEq93vEgnG6k tZL2m0Dk5PMQdomq8SGrJrOmmiLe3HbvyzNgmW3zzF/gssSQKks6Z04adw7D glK3J18wHjd/bSLNl2fy2KMRVm3KdvkMs87MSsiCWab2SfrID1MSE7uMztPc VIER5evX+7EjYJefbWyHwX0n1ryvo/VxTtnRbkX7c2PcTpjd/MU+n/J5rfrI TNpHDr+NXwyHdps2fcY6efU7De9E/Dy70GVX4LIs5aZwOPec9KcsOgcNv2d1 WmB/KIKPhMHCJX8ErYTT7SYO84U5xZ2za8yRr6PZivm071/6FdnAnMSiRQtg pq1jYZYZ4kkzv0rtmUXlxWqwUHf7EuqPdS+kexcLcVyP/W0vrCx2btCDy9Y9 Sqik9rEK1zOj0T5E30RB9ePD0wLhxkENhTHN7+1dZhos/1fLn86Ry54Y1ihY VbJeHgdLgs/8rAOXbWZ9p/0lSN2uawrnHhu+4SacqzbLfAacPevkEO0vpn7s KupfYvZuporuHbeU78fo+5t+TT/onKr5tT2FDY40a3+l9mNu8cch3kZhY2UX tc+c2RsASybZ2TTSObSY1X+cRefE0OEELB94ZXsXZi8qtAmj/u7YXuqF+y7e bLCnc7l0IHyI+osOsO/GfEONJsgGYJVabmURzX/qDS85LG0JebGOzmGy2PYs zNUI8jGl9VpccCmE+hNV9JTg3Ik5azi6sHj/mz32sLImujwP8Yv1svKu0Tkc K9KzpPz6/XM+AhZ9n/ExyxT9q2/d6Qh7Td4ZN2iCc+hZeVYXbh1yMAyE5flP 1Iawj/zZi4JvGyMP/w4YU3224ecRs+HsE+1CB5jl+DhQbIRzwJ7+fBMsPdUS MgMWLgjpFY+hd8Zx521DxNMyrEQb8TXmf/COgSOvmoVvhuVORqedYebpmwV3 YY6sMGMEzJ7SomVG97rHtdefR6Hf5bnNCyk/zk9uqeDcCwnWUXBrkzZPH+0b Na5V7ad7PC/wOvXn76yoOUX32u6J0lBYWpFTXUX3+ou/fi6BVd7FlRLan2u6 u5WwvPoKu4L2e+83q6mIn5NUMv4g5b/ltMsWI1qXtuk0XnaA5o0Cqh+ICptH 5+X+L+LbMLuiZNkIWJYhCOqE5RNKjx7EfPwHpqi/hXnb9s0dCUs+rYx9Cov+ jAhLonzGrNovgQ14GZ7vkG+VpIWVRO2Tr74LpHtjcYh0CtU3fPFX4Ny2JtVO aaB8RvxXJ4ruqR/jWpfC3GGKHgPYIDpa/Sbyky20tm/AORYnL0x1gQ0iVdo5 MLPV41SBAeLkdNQL4NA3FZo6MNN3ISeO6tN9Y7v0kbfNqfmZsLXii+imHuYz 6pR2Ncw1/uNL/UjEVcsMfYOFX350t+viO+HCZ0swfmT9mWJzWDgzbM0pS3pf n13ZPQLfrxtRpGdF76SVkQlsYMIr2U5uCRM168DVD10ewdatexPrYJFyqb89 7acFPR2tMJNyeV08LHO44GaM78W1uVMqyXV/p2yDRcmzgh7TfvOx8pLDHA9O 6mv6/vgB9kbEEzkmXl0OR05PGKOEDexVG2rICQnPt2A+kbbPpibTPSu97KOA +3oPqXOoPrGgej7mz5mfuP0mrcekTzF7YZEV+81yir9sV28FLORty2zCfDn9 IqsymCcv0PeAha9ulMZS/raobT+HfHEu5o9kwX17tz6fAMun+p3PwHjCURci juNelSp4L/6L+ER5dS/Gw31dSeIBzIdhTxRKcK9yXBfd+458CKMed2yEpV1m vq+0UX8wRzoO5lY95tdqIS9aPR+/4l4Q6bx9ljkcea17ze2me2SiscEGTbg0 md8P80P32c3WQD7iiodM6d722fV94jDU9yY3LaHxVtVn2Kuj3Y59Bw7B4uOp l/3UkBfljPU9cGT1Q7VSBnGMPpa7BPHKBoscx8PM0d7l52GuxDHvwJA7YxD+ PNCU9pP38S43WKjnIo4mX1hR6Q6LLAxXN1I+9ByasuC+h3u6RyJ/1n5DPEP0 Z70zvNCN9tO+hl8FMGeqh3ANveP1b+0+wMLaxIhfySs8B2MRH9+1l+8NS+uK T3yneA+4+lrA2XNtZYmYj8j87dJmjMc/MyuvG44Mcw6Oh0Un51R7YP6ciqqs ERQfq+NrHHl98MEMWp8Y3R3psGzTefkwWBwQ07ENFgt6lsUgH7LTLyRsWNh2 lumi/D5Yzb9I/asKWGtha9l7c1NY9vHVX224l61HsnWWIj6OQ+b7YJjZoKMR gPnIClzcNOjd8796X/zDneHX2FZU4d4WNvSURX1zZxinqJxkmHG6UDB6APkz vOy1CeaedPtQ+cWd4WbcYwWSJ1k5rOvH92w+V0DtB48njf3ozliPnt9faErr IW376T2+T7sfr6D+z70sF7zD+mhtc3Wid8PuUl9AtzvDMZ79KRPmpk6Of690 Z6SWIxXvKd6EWws4r+C3Hz/50f7yNn43ocudyV7Qx1yChY79ATc7MX7I6R+G tL/KH5iZop7ffG8un5waGq+i9r3nco7R/lVcz/VH/7xUu/3XYKY/0MPsDeaT duVkM7V3i7Mze4t6k5TJd6m9jxPfGfHyJ+/bWwFbZ/cqxvchPxmLvaPJkRx/ Y8xPXuvaOQHm35o27SnNd0rB0yuIj/lceHXrB3dGtjsvy4vWZ/a5GxJYKLhj eJ3WZ8Va5QWYl8bRm00uW2rrD3Om9QrLkS9+5kLXk9RftNchC3pXB7py92N8 +cvOwAN4R6WnO0zXIj7RIWUVC2ZyPDr7MR/pes2Xf+MdFRouea2L/MlvPMtc Se/sRn+dSy/cmciXeRmGVG9ez5nTjvkxy6VKvANM+YP3lx6gXlSq1UqeoL8z sg622OUoJ9NPUQ3TR//vGXH/B/zeDP0= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {5.088381073024935, 6.71843785395013}, \ {-1, 1}], LineBox[CompressedData[" 1:eJwt13s81NkbB/DJdShRUSqhJUQiK012aFzSkKTLapRK7tJFJSlCoSZq0gWz kp1kN0o1tWhUpI1t2iQVEbWmkKEbpVZD+n2e32v/4Hm955w5l+f7nDMz04O2 Lg9VYjAYMvxRZOjSP1MOg/lflH414xshRo/2OuyO6M343uWJmKn4+DQFMc61 eW4itVsfOHcDMXC80ILi4DPuxF5ExqjX474jGqc9EGnN4DBYp+wVixB9L7g4 zkCUB6mWnkBMXlPrZ4towN38qR2RM315/2xEkf+rMEszjBvVnzGd+h9f2BAN 8ww4lhrUz3XKtCtw0Yk9Ht2Yhx3fldAD9508eLsSlk2uidE35zAiMi7VC+CT WiEf2LBoc2NbAFx6o5TrB8tVOLssYW52w8oQ2GKEYa8wwfqzmzaEU/9HJoJ6 WNYttA+EOWf/eVgMSwX+DF8av7Bl8AgsEd33Z8G+ldlFCfBAp7rZVLjF+cuY XXBe06QDCtpP1vamvXCpQHGrBbZ1umV1DK6Om2ImofYbqlfFMHsteyQXZh5u PdBG4634EpECS1ZV+ehgvRaB17x2wNwPNa5L4Jv3Vs3bRPlQq3HLhAfUtTds pf61jv1P4YCEgxl7qf/4oT8Nkb/CZ6eUc2DGhSTTUFh8bVLeDbjl+93Mc/Dh C/mXe2m874cvdsCpKb+Zm1A+VIpDJuH1zlA7fjDcEClScODhts7vxfAgd9X0 9bB8jzB+AJaZW6ptg/NaH9zkWFC9PFodS/vK7N52GNb56yKP1mlqOndpE1yt WFcVAItCK80nz0SeC8rvLoAbFt1U8YNt14cZT4FnFT91TIcZkQOP3lEdzTNK KIXj5t+wrqT9GVq+fgLLHr78Ix1mNuaMlsMclTWDPFjFWzzYBxuf1D5oSfVn +sLuA+ybtF46CuaeZv7RAfMOmnTLqL5cDNsewkUBiyruwSGJhuFlcODbwQtU b6U2Yauz4WqBaymZ+fZTTwwcYVLu/jc8JiorZAWNnyLkdsA6r79NtoeTebdN mZgvxPaxC+23qHdG1Tw4ru5ahwqtf5k0LZrqPyby9iDy0+effkgMl7ysdPsC S8/MPvQZXvnP5qgRmLHht7FOyI801PmvcbS+wnx+KhytpxJpCzf85BZ2j56P vPq9PyzU7bHTwHNiq75OOEJuyhG7wGMkGXX3aP8+C/qi4U4DNkvLEvMb5IZl we7+Nx78DMc1tQ5fhHnWWsFnYF7oVoPrcN+Rxovv4IaUNWUVsPcJnQCWFfa/ p8uZ+jestrJOgiMGjlyl8UL0vTWrYbHjoX0xNP/FLoOvMO+sVdpiGs9d8Mpi FvYh7O81oDp87+nkA3NVhgze0Lk/JEyKgI0XDp6jc1TKrt2xC+7jFRjx4YE6 i3XxMCu7W4nqS1LpoYiBecFfRQ5Uf0md20PhCOlaBtVXsmH0z/8f//W4e+rU P9B53xzq71BsN4rO7feVE8bB8jDLf9VgWV/u0g9Yr3HSvMWT6dxIQvj1MOtZ U9s8mL09RPUKLG9792gDja805o0QlpYFtGXB1ZOjTPgw08th/mM6Ly37PZPp /RmnH+vSvRP7Pmc/zBgJX7wGDojMaztK81kIp52Fa6rMo4oof0OnSnsov/42 JnVwnM3MQ7NQF8Lux+EKWFSezo6kc3dmoZUd5Ws36+ppcp/N121wdWOhmZTq aFSomgROTvR07YZnbXJ1V7LG+C9mWChg/WR5rA+sYzs+iUHn9M3qJbnwYMH+ ndQu/JK6pwMWiY/dksNx3ePrzWfj9TdhR+vgTEtd71BYEuDNPwfnqYa75sI6 uiMl8bQesdqaWphj9MlzMa0nLPZ8Fxx9LP25Ptwy6VKFAm5otBh8TfXYPi1D xQb5uhRuKYETQo/nKsM877R2ATwgHGoeRH+LoZ+4m2Gmnc9pGk9438D1Z8rv gne/3odZyze5ceGSsfP/KYEZ5asXL6J7bblmegas7+bSvJzuff6o/khYut// xUaqX93zwV7U/sTsAc0n9NlrYANXqwqyKmHjSU/Mp1D/5f7izzC/4s4SLZi5 pcRuLu1HqXdEA27hXnu5m/KX1uQ+Di5ylHrdhr0XNpWbwIPNFS+YyHeqyckd LtTf+VemD90b/nVGG8kGqSsEsL6LcW8e7VeqG3+X7iXGhxMtcGDi2EP/wvLa 2sSpyI/41tYeA5zTPOfnlcGw/G5KvAOc6tlueRnO7NbJd4NLNGfuHaJ2dTMH d1hxae4cE1ucj/tOYhacr/zyvges8+/5oelw2Iux+8KpXZSUPApmTE8OSoX7 FgToPMP86eZeF/Jgceffj8/DStNMpZfhzEcK693w78vz1lbC0Z+bSzzg4cKP i2th2fTsDj14IHWL+C5clNGyogf5sVz1Q2cNHOdcsOwObJg7M47ery/6sfc3 OD883eYqLHLufHAcPu43/OUsHNHe7ZQBsza9az0BS6LvjByFSytsh/fTeD3K vmfgq+KGlO0wJyqzpwpuPcjPDoYZ/NIROh9BDVHcVTDvxW2PqVgfK97lmA9s 2/9GcxXcqKnj6kXzN0tZv8BeLxcPk6u1L8e1w+OV1a2WUf68vnuYI18BGptG AmCmo6f2FnidY1nkFpi1y4x7BU7vKDNJo/Gv5gvewwZufcUiym/Uu1smOOcF koke1bDx3eM6S+Ef7tzU66B8zi032grrFHdOYM5BTNBQS4FrEpVMZ8Nyw4z1 6XRPx3+bthKOKKlamkb3zpOLrXFwnLt1cgycOdGXc4ra+c6T/WHXrHCf6zDL 41qZPey46ahFEywZHbpMAw7h1xq9gZkDV358hvUmBt6vGIIH7ZjNv8Mxnd7l anZYv6d2fQwcbZU9bgzM+tpxbiFcXnNdhaz/MbZxKjzeyFpZnfpnsdO/In8O erKyb7SePz0vyeBWa/OBPlgW2X7rMSwIL7j+EuaIXKQN8IGdOcaPYGkQf2kb LFpk5V1N6y175fcRDmhRhIph4cdDPD3MZ6r5y+ECWPx36BI6D4UZcdIcmDfT VLIHfsuuYRwjL1tSVgFzjuX3C2B+3e/aI3R+VswxPQ4XuWnwFiIf/PMd8lzK 1wR8w4ILVT+vKKbxlS/veAy/rT3DrqR8qY2ZPwH3cOxIq/NT2o+cpb4EntKY eOsTPb/LHbK9cFBvx0ddO/r+HDWzEM402dbFgqPDFpVX0b1e15m2DhbFFrTV wU/1notT4Zb5wh31cLa1odN5uPrNw/Y7sKuxGbMeDoxZq3qJPheHgpU+wMZO k9wEcGKr2HHMjzjfw9KgMLjcYY/cFO7b2ZHGguvuOMSw4Mz+3WPV4Ykl9/Z6 wHyNA2mN2F/52qMyH1j8/GDSWaoPP3npMpjlfT45lvKxcc7SpWQ94Uuq3+c3 7NlcMtO8fA7c1zD/JydYVtlbPg3mygbm2tB6KkWz9WAVjxIHI9h3p/NbfTg/ dCRgLLVvmuc4k/KrdvvRN6qfCv82eh6MrwnX38M6oiCtLfBqZS3rV7DtRptj IlhQ3WXyDGYssJO0wX5vU3c0wkV3fomdhv1Vee25TeZUhu8OpuelF7W3FeZF 8BdcgDUPrnneBQtr2+w/wn6Z255+gTO1tOrn4nMyV9PTXAvrKyodXbgDDvrU 5GsB6y/7dqQYXplTJlpE+Z2aKWmCFeyyeRvhaq2rFV9gwSf2hKOwNKn519G4 59eVsfTLyDazhifANR0aRm2Uj+2cbm1Yk37n2f/3e282539TkgkD "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {14.911618926975063`, 13.281562146049868`}, \ {1, -1}], LineBox[CompressedData[" 1:eJw91ws41NkbB/CpXEZuk4xGqCGFKFNNGir9kuSSRVQqlS5KmTIh/orM5pJb mtyytjKFrluMMsgm0j0kl7JLNZTNYjWEUuT/Pc9/n7/n8Zzn45zznvd9f+fH MNwZuM5vIo1Gk+GbjP/7Mqb+P4p5vVVOGKkg6qMmRq+MlBcZGJ9YWoxOxShn xf3RjrEy6nWOKkbjuAyR+WyKVqpeVDY8i6L5vEyvEMBf9USlzbCXrte2Apjh MXbyKizrPiDphMW3VfOC4Yh3+p5acyiaUF29bjEs73dcw4WzHrZyB4wommmz maIL7O0fv+I6nLVfNXIDzLu7N3wX7GsyzNoIX6n+JdQA7j3GLXWFaSsWlrYa UjT/kc78pbDpfsvTYpiloZRkBNPFO9UPwtyBSB8FWF62qXU1LONOcniP/Hj8 JTZmsHbI5dQqmDps28uCI1bopF+AHe+K5zPJ/m3JCbFwy91uqQHsE595IhDm 0E2kC+AHc8/t2EHiMbPa3WB7T8tMH+K114Sh8G37dtud8JW2E1G5cMtlvkIw HK8SF9sEx/wnddop4v5wDWXUV5iqaimFuw6/j+XBFi7nEz+SeKNPdu6Bl6nw vhuiHvbyaatS4PR7tz7tgt1DtireJP3Jq469Dlf2vHhXDfOb1pwfhuuts4Lr YPEeq0E7E/Q59GJrDTxYarA4Bfbfs0ZaQeKb86a/ginDALM8+MPGiT+zTNHP gveySJLPJOfjnnBLF0/ZFbYP+T0uFqYpqVlPhR8MMr1vwIWTCoIbUJ/Cdd78 ZzBn6pXxZNIv73MlrXDWKhVv8jyS39zX74Djay5p/mDj/LiwH29gdw/X4jK4 pksjsB72NjMuPQL/3lP71x0S/5mf6yrYx20yNwcWDSR4M+EmwdW9UbAg4OGN DzMpmhrzZcVWWPiQkSOFv3LKE5eReSpadAH2zZNMmwFXNlZE5cO3m1ekK5D4 MWk+VXBXVf5IP/ohMw/X/gznhSYOf4RZA6FNejiPe7WxjZgz8v7yath4yZ60 AbjLSbMuBGas2JdMRzz5QvrrS7Djp5BKM9LPQcmiP+A8k/ab68l5qn4eKuiH sJmzKwnmOZQUc+Hehu1RT2H/eFvdTbDp5jxnDTPYfp4wBOarKD7YSPxbhVss uU8Tv5fkwrIZSdsT4cEbVi2fYHqEilI0XB8e12Q9F+sXS2cGwk0pDcFRMOtx KoPc36bwmb9VwPKAf+7NIu+HdXrpEMwuOp/Sh3y9kzIsZpmj3rA5jhLY9x+T SQ4wzcZJ8yA8OtJ/dStMdx53MIGFy/2V98PCmdv6K9C/3d3vjgbAVMHpQwvh KyqRb3bC7h2vmTdn4OfbTQM94MI70SetYG95XwMPlmvuG3thgJ+f3/Z1Oon3 it0YCZcmn1f+hvzqG5TFdvBZk9nOLbCgPW5sJjy4TlmrFK6seHFUB5ZxesS/ wpzIJ7/Ohh88/00zFqaovU0ucI1H+ZJQWBZhnxsHWwwb5Qhg92mSyw0wXTrd /zA5b5XFY3Pk17T5sT3ZX9ldsOkkzHpUEiiGablDWwZgNUnA1Udk/9OM/PWo V6Fi3OYLiR9Vyi6CHVd3jHFIP8RRwgnol+zrcv8g0r8v174bwuyL6efKyPzz 5YU8mD/06riCBdYpz7Gyh9Ol7GZ3OP4j4zx5H/hVs+zOwvLH0UetyP20sfn5 Ayy+F/i3Pnle4wy+yTz0cVRf6xPOp997x9wFUyKz4RTyPlxaJMsg89b0y/qw qC0guQIWRdpOOUvqvTPXqQ2WFQSXT4Ejjswt7yP7D4syjqM/1BhzwjAsPn2w +rM+3m+HZUUDMK3N228//KHLoqWTxMsv8u3Rw32VHH9fD/uq6psfhQt71p8t htmXXLMN4NthPzQyYaHirTvN03EfbwwdDoE5ccdv5sO+/Y8MPUl8fnFmCtxW qeXLhd3zWuJEsEKdZOd0sv6Mdcw12GKvgqky8XCY6E84K/uA3yj6U5g1+R45 7wm7I+Q7LPB54SWAqS4PB0WS71UPeS2slp2wnsSTGTHLFqAelvtIng3J3/av tExY8C3rrh/J33R00xc4prnnVjaZL8tiuKE/YtY/C1rI/OvaGb/AISpHY/Xn 45wds6Jewmu184v8YNlqxZ5Bct+E0xIkMMPX+AcN/Zal3S0fg33LXdzJvNp4 9sgaS9Q/lhpTB49q1iulwMKrTq4imLX9TlMtzBkQ7F4K2yTr1EzkwAeY4Q3I z8jTv08Xlm9bp7UJvsLmPzOH3b8s2deIer2fL9DikfXunKUOcO8D+m1bsv77 i0wp+nc/zbZ1BeyrszTfDDYNdu5bCjPS+UF5uujnj/DERbAooExqDnc9co00 gStLWnOrWRhza8tZZH/R9ZJAOPPEQm86TP04mLkQltGu9/Yh//parz51WJBT dawOFvHxQQdObj91TULqrZmVqgnLhXons+FKUTmNC/vYlSkmwYWPBlYegPUX vb4QAwssXiiWwrurbZLjyXqJ/QoG8uOE7hWegdmJcrdDcPwU6X0S35c+bP0K 1i8/ZPDakvweed9sjXoTzU4emkTqc9g4+Qzc8vmPbzNJ/oe1Jv0Nn1+3fx8F 13fp+Zmjf7ulX17uIusHn0VuhjXKmGYJsFi5ZH8w7LUv/KcCDvn79pYXAh/0 NNJthmXXike2wNn97btGSDxrbu1cWMn4jq7eAuw/e0zWjvP8x5JXWsOc65Y7 ouHspBy6J8wwa/DTgjcMRT7fC4vC4mpSUc+MWpl+GFzpuHyKCvyB4fRMCMur nA2OoD88TcO3MbBw1Vatnml4PqtdcqJh2S3tqTvgJl3jlEhyfq5ItV2Hor39 qLM9GKaaXSICYbr6hM9+JF7hcScGLHQudt1A1istOP2Iifs7WSlpNTnfgZ+Q Dlt11TRwYV+DWP+jcFOlYO1sMt/Sv5H44DuBFovEL0sJSoN3So7O0SDxNNbU VcGjB07voZP6flSIJuG8yX9ejlYm/TCdqbEeVtLhflMl9dClcgl8X96tpkP2 51TvZaIeh93yKnKeLCh0yxE45Hp6hw3J/2VXbits2nZhzAt2r6ihyP2ycjXk k3pFqw+cioK/HfDzziDxh+5GlMF0ntrjMtL/5C2St3Cp1i8X3sH1my8W98JZ 9xfdV1yI5+3mpdYBa6Sq08xh2embdhUwu/avpT/BwkZq6GfY3nYe/yBMqax7 Oh+mrnGuJBKP6255jPy4xoMLLsLi8VOGbrDN1IXHbsPy9eOOz1Bv28plNlUk nvFw7HKYEfEftyewb9Lhjhvon7Ge14ensLt6/Ak2POCWt/kRLHqbEJutjfxe xbhUwIKCiHNsOPRlu7AIprGK1Uum4vNM9UBvLlwZqrp7BywtnShOI/GOHNto BNsxB38/Tuqd23ntuxZFS1Uf5QeRfCN7dfvgm5bTG3eR847M8xiBL/EaxzeS eI6Sfj3s10m+1elGzne4m+MJKy1muq0l9eeu0T8Hd98+0+xKPDrBfxDmXMxv 9YLrVYR9XsiXN+Iav4PMt14pKYONPp97GEzy0dl6zgD1BtmdXJlEzjPTjCb3 rftt0KHLMMdkKLkOzrR6c+YxWc8Temmhf1RjSk038auOaavgwS1OSoxFyN8u r2MrnPXT2GwrWC5NvOELC4o6J/rA4g3RIc5w+rhamBBmT/51pR78avhWwEWy /tZpiyZy/7dpd1YuIvdFzS2M5BNFU2+FGUOdN5ThGdG9S+VkvU46K0H73//z uP+O2tR/ATnp84s= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {15.088381073024934`, 8.281562146049868}, \ {-1, -1}], {PointSize[0.04], PointBox[{10., 10.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[CompressedData[" 1:eJwV1Q04lOkaB/CnhkyWkkjla8gsMU6jKC2ZV6yk1JTtJOlrEyoMbahNHz5a o7bMHpOvU0ydSEubaoqiTKXSoXxEJllGdBKqSVNR4vyfuS7XXD/v8zz3ff/f x8XqZ9HqbeMJIafwQ7+JegwfE4ZoUdgwpHfhVYNQuCQ1Nou6Rnf1ukfTGEI6 2XaTYHVPyRw3WFXTfMsOLo+LOCU3ZojZg72NK2H+ziiuBxxYG+adBNuZ+ac/ N8I6rdvxt+h+l7CKdNimUhA0not6G7YnBsPts70Sl8FFKZ25i2GpV793Fhy9 7UGuJ5yyeqTjBZxt+9vgWnjohfVRh+8ZIjTV0UqGf6rgnIuCOW58por6RkTj ebjm2FIhG/0kFHRpPYd7+bG+62AO80MpsWXIocQBVQkc/mppzQyYHx5+5RvM Nrdo5sJ7cvr2+mBepVPCoA1s91J/eRIsXr9PaQKXmhgrS2Dp3mUPx3C+XZbV iTtwpa44tQNmjvkNKGBXxW3mGuwqKvtnIVwUwNudBiuWbBbtgpffzmwJgrP3 F3zmwsz8MUdHWJyW9vgO+okemOPGgn2dB9uWwb2H/07vRB6lGW9eV9M8q67H VsOcpUlJc+GES0+brsASjt6lnKmoEymZehFmisV1Y4bYZzY6owye7nDAdQec cLh4Xh1dP27l9x1TkMtFw2lv4Zq6psDN8PKK0S5T1CdumgGNAdanljr+BCuD lbPzYQ5rpfEJuCi/MmgLzLvZLWyH9yQtkbvT9Re6V9jSfG8l+TjBvasmr/4F VrKsRxbB2dEr/rgJlydbnNsMS9uMAll22G9uNDOTnr+7lbsYVh1z9W+Dmxtn 1cbDvqOLjtmhv54AdvIZ+JDO2KV9cPWpAp3bcHhvfNBj+OTvX2RNsNg/wMEU 86p6PBxb6fpN8/Q3wHXVO63r4SGX7rB0OMJEJa6Aaz4q1v4FK703vTtF69lr 2q7BIUc+Bu6BA1dv1RTCMk8p1x82kDXd2U/X3439ZAFPD7Y86gY3l6SlqzGf uI9ztQv9RLQuL6uGeyMCKnbBnFdJ0/LgwKCJkwYxX02F74yDsCxgV/9WOCX/ VdN2ml/e8eDcyTh35qWXm+AG/mX70EmY59cR0c+wZIm1/nx95JkwaywGVrUH yIz0UOffxmnHYRI52PLdd/g9eRRRRs9b65xoo8uQ3Zfz9/bT+3zdSb1tIvrv MPlmh/5lnNeZLWz426WnkTBztb4+Di7tyZWUwZKserkfrKj0T2DNZsjmg78a CuHwu9WNK2ADT+24ZNi5v7E+k/pZ+JpOOMXCtl0Jl+q3rAxGvfArOacN7fE+ Lh9Ofg+rV3k6LIZl/YYfpbS/eQu+boMNVGksd/QvTH1juh+WGOn0PIeDC9Y4 pMINOi6WOzCv+9mATSn29O9rRPdv2PnisuRYmBnt+IGHfHolL9+up/vv/a9L CDdfjYlbCKtjrlj5wEzH2TUGsKrcyGsirHXgtHE3+o0OPNWSg/NKQxJEctp/ rUI+jPo2nhm8VFhRJBjkwRI2d8JGWHamvXAh+nfVKzjsBnMUB4ptMd+Ay8JX VjBf9HkRQR68ezfGDGl+L9NPPJqA98QPtzWAVas8InK1GeLtwdjPpPVbXiXG aDFEL6fSwwkmJkGWG1io37KWtYbWMy/OCx3PEKP2r0kpcEO7aPTEONQz5TK3 YMloRcp7gvtV6+pDaN4fuHH74aFgb8YXjuZZ9bjB0e7m0gyaR7payoNDbAoO dcJCje8Ef1h1t2nRbAc8355yJBuunqprHgWT4ikH2agndlleVAwbCApypHC5 sPlWJ9xgc953Hvrja5ovsHnYP09s3Qab5cz35sKlVvc3HsA8RWMxKmfYIGdr gDGdN/Nl/AI4WtqulsKkXpjlCJNhywUaWK4UBU+HG9Kc8hyQl82HcduHaf2+ a5EusJZhY30THD0UN6YPN5hkjRTSfhc/eH0F+yMKlFl7YOHpL5Pt4KJDI2F+ sKRzSnYk+uE9mOBkCSviuffT0G/KdJF0mOZ3k1+VjPnk/00dfA7zb2jND0Ee bG7bihp6/6au0NsxKiCctdddFfQ+zQ1LGjciIOF9Zter6X181hd2dlhAUtiZ Pk/pc5usxrDPAiLt6q/S0P0sy6BNHwXEm+RF0vocP0uPkx8ExIjlpruG+m1u Bm9QQGR59o0ZdB5P88KZ7wXE94JHxjOYifp0IEItIMp604ZZyOfQc638WXD4 41VPRLAs1/2NO+xq0vjkBqxKLGsrhRMCVhqNd8TzB0U3fsF5GqE1ywtmSuf6 xaFezwuLwH3wZvm7LYXop/IPzpzzMDlj+vCdBvN2aVvU0vVadzmLPgmIsMXq RxVdn+/bvgfz7X68dV0vrLD57HZ8CP22VZ3rpvvTPTx2II+aTxenPKH1uX8m jMCu3Z/Gl8OceHHfgi8CIg813SKlz2flR0yFhzrWx+6g55exvY5gvRFvZpM7 rPoSxZzE+YoKjfMkWu+hZZ0/6msce0O76Pye3X+dQ77O2gOm12GFWU/JNczT oJ38JIs+b/V7fwTzj6hLKg7CDP/3s1Fv4TtHs3ZRL508IHuN95fb/WcM3V/l f6+1R0DU2iHF++nzGpmOh0pAgk1DyzNp/v8S3x9qFRCe9OC6Snp/t5gZiBow j+Rr8htq7aK+hdUC/J8aLrSjefymu/GhHPmc+8/NndSymDkDJwWk7scLoXJq +sm+SfTo9z+Y/wPc/pV7 "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {2.6125141805200567`, 11.914057016624067`}, \ {1, 1}], LineBox[CompressedData[" 1:eJwV1gs01HkbB/AfmmkkjEtSwrj1DhJdsan5V3RBrSLpToU2u0wlVGiiltn2 7UyRWzeFNavEVjbeWPNGIbuooQZhdFs1KRU1Ytnvb85x5nzO/C7P853Hmb/V zqj1oZqEkAv4o++kbxyvqQwZpO82DOGfajF6Dpd7FYfdgkvbUjquwW6FeVUR cG51kct2OHrN8C98uNx9TG/YhCH5kpHkfmusj8k8IIJnpB/dVAnLXukI1FMY 4mkWVp4BK1YGTgyFlazdVxNgqUnis0Zjhghznhfto+sPRTrOhd/ePZm5H+Z5 Fy+/YMQQ8uHanaN0v/p+gCGsYCXLM+l+55XGGYYM8WC9NauAg3TVP8+ClU59 Yb0wd+mL9woD1HVncL4e6iWPFkddgEcdpz/ygJULFbZH4L7uLQf3wpxn21j7 4fwws5B0WBjTphTB/OefNcvp51uFwgL41ucSAzmctVBz31PYraO68DmsftJf b4X7tzbt2tQH1y9pvi2E3dqsvJSw39QK3VqY28uyaIRlhsfDTdCP9DTP+Vea p/+BH3bCrc8sgo7AA39tMMiDX/hZay2n+y3XN8jhPf7fGmvCvPbS2gHYdupD +f/QL79hiekXWNi0Th4Fi3YvU76AnzabtdjALSVxgRWwb/GStHYrhjCe0zqj YclFh4dp1E5xA6bwBK1FkzbAfUvi7KWo14Vc/MHSivabozMTju9VVQ/ycP5q 1qsM9B/NyVjxGObOC7s0zmVIwJsZFbWw8vDb+FCYu7HCTQYHe400nNPHvNl2 rK2HecuamXg95P0g5WMnPJDS4R6ji/pNo9KH6Xm8d+FnJmOe6thz6P3MdtbA Ex2GpItGw71hSZWbiS8cVKDIjINdJorJx0kMqZyaOfoLLJqy+swDeNDgYfMj WHawKaQVNv6k8d0wzJuorNfB/kpF1FZTOr8RNvoR8IRmv0wnOj/h56+9gbkZ L2NdYWWX++VjqEcyvk85H85tjO2yQ72c7IWednR+OwJv/wnzBluLOTR/2eaw CPSX69f6Rw/uKw14J/oCRy/wlV6Fc88eORiOPG4ZTTKPhIN1bg/fgOtrHi22 p/VG6UfIYT/bAlEP8nCRd5vVwsEe5ulpNL/JHeIk+MVWT2YVTDQ8j+jB5Y1u KwjN31qisRf3lbp6i+ItkW9vQEg2rbf8C0sblvQVKK+gH35RCbvIAuc5mCae Qr/qOYcSdsKy4v+nhSKvoHhRwHzq6cK9c7WRR3DLWh48IOHcHZ+Iefzp4Lgd TJhjAQo25iZif9NyWLTNZtN9Ft5NvXViYWWgTFc+AesMvCdX0vXzBT5smJ80 c5Me6nEp3OkQpoX/lwZ19x64ZYWq8rMmzhtZ5ngfzv2vb3cF7NKdv4FL5+Ob aRYlcG3Zvhh3WKhhdU8Ot0pevttC+7+tNWSN82aU+CQfpP7yQHkW5uf77zhO 96vUZra437dgg2MKLLGMGa2BPVL6zRLo58b9kyJQf/A815FQmveaw/F66E+x bqnjMpr3R4fSPDjgZvZlQzh3ZmYRD3koPNaW/4Z6SfVXcTwsfJx3yQmWiU70 l8DKH8V5F9C/ZI+LTxksOXROzYZbvF1cxHR9wwKrKHPs7zH5zgFOHdlV3DkD eXs16efgvtQq56/rYKG0MbET9dXvFnx6bIZzzug6DKL+LI2c9ki4xfraDhX6 lbo6GprD3PKujw3IhzO8Yuz5dHzetKYtWwPrh9Q9tbAoZF9eKMHn83c2VsOy 0oXrhWMColzSXCCHlWc76lxHBWRP7Om5Y3S9zw3DBV8FxLSJ5eSB83kb4h0P qQWk/Hp2pBhWnkqSG3wRENEmI8te6sSyQc5nAZGkqN4uRv3Ksv2zdw9hfzLf JwfmBTqn28JSY9VvAzCxH81dAcvEf3QvQh4M/0DwXbhvtswgFuYlzW08ifOk 4ieeF2leDTfWp+G+3IaEzdfN6fzxMu6jHu60oaUFdH2vlpsB6t2zyEc/iZrN adw2gvWFXLYXnFtn3piB/kR5KzPe435GXJJZ+A/q67vucxwWDZzYlYA8SJl9 KZvW/z5WnzOO83vPWx9BfyL20MtvYGmeRf4r5MMM9c7WhRWb6y6spXmJdM8e xn63w3WXy6ch35MXg5Lp+eyLDg5wsJGz7yzcr9AL2SI1RX1/3jqfiHrjYv6p caUerglLQT+K7XaznuJ3mPhPtNiI/hWTNoZnwYx/119kUECE7qPzImFZQvOi 7A/Iu5P3H/q7Lbrdr4p4JyCcXcUF4XR/SFqp4rWA8BIPqFLp/q2R/MsvBaRU 545lNfWNmydf9yJ/xY4YNu4nNtITuV0CEvz92JbNsOjYiHa7AvUlOV0to9YW p+e0CQi/MKjPcBr9/jYu+iAXkFWi5GPfU//0qvgx7DeFq19FnXQ9cS7Wcz5l nBmnLrISdD4RkIHfP5c6Iy8SGhiS1Yn6d6lfrKbzWFm521CJ79/dQ+pD/fGc OusZ6m1Kk8yjeccGVi5A/VxRdLAGzVtyM6HqbwH+r2q0f8f5jF3iGOuNgKRG t1/xp/nb1fX8rcK8xixd20Xrr2mKYPoFRH3Py2Qj7bet1v4TbFqgrrpH82jX slfBnJTH4tnU+mWDZnCW/4+amXjuYb69b5uE83hxR29NoDbPPGGDfP20k97H 47mHKfi5Ve8V+sloTp0Ay1adN96C+rmnPl25hOceUfEc1pqnmMfTvyaso/br 2euAvBRVBn4zYFIV9HpxDeZHXzVbg5q+8quIkj6/GTH/Aldznnc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {3.387485819479944, 6.914057016624067}, \ {-1, 1}], LineBox[CompressedData[" 1:eJwl1ns8lPkeB/CnSJREiTlIrJHbmEY7KyeTBhNzNiFrZy1dsHTGUuzhaI6m 5YWElTSUux0lWffbdtnkvpHUy0G5VmhWKl22Ukwj5/Pb88fMvN6v3/P7/b7f z/PM8zzGgeFewcspiirEh/xSquSLwaWUyS+dSw1e1Y3WgNm/eeXuhjU3NEks 4Ks++5yyYJq0/IknLKpX+XYIZjyOEyXAQeHK4nWmXCqRx77ZAneGxpU6w8nq MRNK1lyqRJbrGgLPjnmL98CUPN87nhz/rlUjDw4LNvg6HVbv4D+bhpV3RAlP wfO+FgdsmPDar3hxcEFCwb1omCUXM4QwQzg+1wg3ydfLXGDhQsK1p2S8XzfX EI54tCZ5/RYu5cZbfftP1KvQCeDbwIqBP6w74CxZ5mEn2Mi4JPUsPK+xd9EF 9smVFYXC3byzp3fCwwZqi67wu/92uVrDPDXPlwy4UvZjlxbcasr1MYAp7RT9 V9i/wKagVBcu86eVdMG9lg9/2wT7R5ksFMLzhvJJNpzxfkdvFMw78qhPABsI XG65w/SNk5cSST20r48yYfWaB4om2PO1QF8Hzqisfb4I+2ReKlwJd88wGbvQ b1D+RKQynGxTzciAm+48PL0GprFkW8ZhelmHtwl81astbPNmLiXbHynZBYsC 7jHD4KCnHScjSd6LnXPlcOKE8/MKUv9SgGQCLpBtlc/CYYba3NVmyN9vMY2N /sUfQq5ZwHHTbqw4uHbDYxd7OLk9xfEOPFvm0rUT5me3Jqmz0Neoad02+Kru 9FEW7POFaA0dnq/utNsLi59khKrAypzlDYfhWbuFu2R/hvfSshPk+FilnF9h pxm74+fgLF8z4UlY59HLlmKYMyNU+hbmPLhcVQq/fsFkWcMONjcjL8Lj6p/O qcCWS4+TimBvs4wLT5BPkkS/SELqY9UI+0lekWHl8fC7EL3kbpjfOXw7HI6g 0jfdhtNV9vL8YMWhW9dHyfVJ3xDiAvettvL6QK73S+zMraTeGitHI+wX+MXU WmNY1NPwjTfMP+WptR7mzc5NnYHzDG9J1WAux7r9Pqy6rkiyAq4c8401Qh4Z ponilXBax1RoGCxq7qxeC2tfuN5yBR6PzWYZkvnsrmtL8PmPd1rI/gay0RZH cy7V/N29ATfSj4ny8WPwlNPzC6EkD8syRTlcK+ew0sn4Iee2uzCn5+SeBrip reXeH3Cjoq5+BFbtyx5+Bc+8aF5J2eC+sX0X9QL+NBQ+R4eVe27SHsKCrDG2 K9z91jemE7accy0KhpM/jC4Uw6K/5djGwuPNYQMiWKeiYXsm7JOfkLEb3pwd aF5M1os/8MwA5h+x7SyDe439yl+hv/ZhjkE5zPsyPeUmfP+R38mLMCtcT6sE plIOFueT9T0bxamwXDrtfAru9KuUHoOzpuLEx+AS3/JBEazO+SHun3CTaJ0s Ho7af77IC07r7VbOg70uR7AcYM3q5sEbcGuxPMUKLnM7dOAFTNeveqYPiyeH TczMyf+t9YgmqVebyQqB33t4LF8FSzn2zDr4zZtcgRrMda5PUMDn3y+MaJB+ 9IPD+Rbon/6gXo+ML3e3kMAO21SaGTDbeGb5EPwydXMGD87Z45+kbYn5e5pj AmCjpa2ZfLj02KqseOKgZ9E/wHJ+SVspHJEwTqXDdBfB770krxNKGYXw/YEz u9/C1LS7nhR+kzUup23FfcCfZn0OzhHEJ3BgNu/KdBzMGxus3gfP0o4/DYDL t/MPi2CpeQPfHlYZ6ppKhxlfRUeshTXKGiN+JvM5qWqTqD9nkHbjF9i/OXS0 HpasunG5Ci7496pLJ+GoHa/PVsDm16WagXDSnfmRC2T9mU1HefD4kJtzNlnf PusBC/7XwGBPEmyn39ZvDjPkheciYXHkioPW8FRb7OwBmBPoO+8A58V6mHwJ 0ys/iPfD8SbumbZknDnOTob9V55IMoUnfjIfvQF/knZZ/JWH6fNLCuI41di1 cNTpuiNO6K+gRrpXHWZVv65Kg8smtKzJeIaXQd0wPGtWIyDzB50MakyscF51 o3vMSH6K2mffwz0aO+x3wGkij/4KmN3A1vGBa3nLDGVwUGtmylE4zvPFUy08 Z7tTN6XnkXpivHs/h/ssP3vbAns+XjbNh5mqzmHTxJLwWfLc9pRIpeqf47p3 t7B2gxVBx7bbwO+4Lqn2sPappvdeMC3mswgj+PvA8w0RcM76vk4F9hcefHo8 BW66RfX3w++1hvML4E6HEMuLcN9Y1dlfYJ/KgZ+iYe8L6+xr4e6dDi3/gAeD +ReJveeOiozhd7tW2FbAUUmNthQ5/j9KmVI4uSTRbAZ5CUtjis7ArLsJa8Zg Tb3RsFh4fmrSahT2MbK3C4XTaJe3TcMct41eAnii5XePJTjmu3XaTmTc1/Aj Heu3a6j3bYELdmUyBfDDm8vajOBG3iOfM/BMSrFiA6y68UHUILxvpO6QJiyu UjLeiDy2T14pJU5s0r4uhCXf+Brpwvz7TT82wml3Rl6akDydWy8ukjxdBx7b kjw+OiQ74r1mNM8vxQNuZedcPw5Xb/QzOwzL7JKYtbDb35/fTofttlk5DsHt 8d6CBnI+jD8M/QmnuVsnjsBholThEqxC3tvY3P+/xzG5/wPFX4Nv "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {16.61251418052005, 13.085942983375933`}, \ {1, -1}], LineBox[CompressedData[" 1:eJwd1gs01GkfB/B/JSubpVLonSyyUSi31ZTiT23pNBhCaNIobSNCVhrKsm5N Ipe8lndp1Rl7KGmImmIlt3XLfRu3lAhb0ijKSHm/z845c+Z8zu95nt/lPPM/ f+2jgc7HF1MUlYMv+aXmF/AxoKl/P7o0NXs07yPLkKZ8+Am8hfU0FTvndiAL VtX+KJmCg5I28l7AzK0GNhJYWLuv+Dsjmhphxm8WwewmuzdcuMo8szwCbj/t wUyDOZ+sBDbwhA9LRwzP76rK+6yDfez9Dztg+knFz6Vw+s6UkkE4tkK1nAez 7bNNn8Eht5Zor4ONJyrku2GFdU9DurVpihU8H1EJl+5+5p4KR70YO5ILZ/9w ZbMbrLKtX3IOTvfU/KQLx56oO3QAHn9Y57igRVO7H15M3kji6ne3jsLPm/dv WARTw0MGfbDxHcWaAdJva4xSP8xVkvVWwlHCWL1xWD1k5koBzI8vtaBwPsc8 sOwq7DJzlq8N+9zvu/g73GBt9XAfsZ2wuxB2L+y6FAqrDzg21MO1Vr6b8mBj GyO5N8SNVGcnsWV5pibqyVzVXjsPt7yMX+kJ64brBGlhHgoWyy7lwLP0ngRL mNdfWTkKJzpsNGLBhW/D9Mw205RdWuAEG/a/Ua4RRTy8aNQODnpVNdwEC8Jd WszgHZE9Eypb0B/7zT8r4OysjC5HuHD3Is0R5A96EXcxDk7hO3beJPPuWOUn gqXzolcnSb2ia85tcIst4/Z6uNRqIG+IrHdmFPdgXi25lZwx2LBIeisRpr5M LiLx88nFAbawQmVQIdmvsP+Jo+xbzH1q5l0p3KPmVHoOnhcf602D+Ryxrwrc Qnnf94Pd3d/KHmjSlPl5Ss8WFtSWSiNg4de1neowNaZY6Qnre7idfId+3S2i 85xgFvvHsA7iUP1yb3je5xuWGGZ2WE8KYEbct935MDvURrsWfv4qLk1I4q9V HZSRv9utNa4QrjovKT0Oj9/O0HwE8/iqq6rhCaeg7S9g4wOhQcroLz8h8Dtl 1CPUv2NnCZ/f53Z9DzyhHvGPN9zu/Gk2Ht6x+95oFKz1ZI9iK5zIVTfKIPfR MKB0uTHqfOmwNpfc1/sF281gw7glKTlkfvcOWXnAQTED1GWYEzvjFwFr+bwK PU1cYhN3lXjB9IodrHKmN7AczrbnxqvC1Q0ymy6y37Z9aRHqH+jXsX8JR8ll O+vC3GXyG6ZggUXTYArmoaL0Y8EHEo/3+Uq2jqZWikSfZ2BmWCjnKDx40Dr1 LZy5kcPtZMAjzqtHYKqmeK8DbOu1NLQbZme1VPT9h6aK9iW3PYKNOREF52DB 9cPet2D9rNRl5vCHmsuRmTB/SrdhKey/LjImluwvcymYWov+j2hUBJN67rnb fIQXn8318oHF13gyVaw31BLyPWHuoLmOHbxbr2bYlaxPZ6xKgitSGy0Pwim7 7ro8gwd5ORIvWEHuz+5tqHfUhVXnDzdYfKX9Kxw/eqIxijii948peEBR7P0/ 0t/bsve70H+Rn26zmJw3VjYtgOX0UxT7YfX0JJMKmLHSZnYBzj+TQPXBDksc 7DeYYK65W4qfwfXf80tYMD8m8mYziS+taTsNSx/HR+fAmn+qctLhKle2zBW2 zd5keAee3asw9wH1cOVM6cewcUNZZAy8IYrXNgRH8S7/tID+EmwsnaSw/p6z kYFwQN+5mFniC3WSHsyPmvQ+NQfb3Sv7QsP+QxZHPpiQ++0Ze0sD8wq+PTkB C3pe162Hc5vWSQdJ/vQTt/PV0Yd7sz/JL/Y6GE3D3P5XGfdhkZqbcFINz3VZ UbmQrH+cdrYMfmCpZ54CP6cY1hnw88QrrhHEXeYqqXD4qRHvU6R/b68OIdxH McK84VwHrb1tcFXrtkRPuEFj3kgJ+ap19jl7kP39h7me8ITWCtqLzLO9Q74E rlD7K9qXzKfMof0b1N95k/oSTur9Im/sB8vXfmalkfmefpfzCFZ0svyriORv 1ZYsxzxY4xqCNpL/pHStHfyAZx32nsTL9h8NhKs0LY9omOJ/7ZR0ORKuTuwd s4a5BvVJoTDP+Zf7x03JfekKPgAXJo1GX4THd+hHrYHFyl6KN+D8hRpdkp/9 teaOelhh7uJrV1jVqd7iKdxTfeNwD/qRGlx1nYSD8qJ7WbBulgpTBtPchiNi zIddolz/GVY5xvHQUiPPQUOTeVjQcdg9YQ3u7wWXd9Owloe35NNqmor+ybV2 HNb3KpeFwdJuzm89pP7t1Y7L4LtyQ1l1cO5A5bVbqpjfDwFLimHpzukaX1jU 9t4oG05xrThjDS8OtQwWwMxjTPstcEkSzTgL8/dHiZiwghqD40vqWZk74AFf P/w9k0vO37ZyLhmO5R/8hQOLTBt3SmCxkkWjF+nP1m61AeqJDWk7dILMM7/5 UDzMUpFZhpLzBGsyhmH2Eqv1l0j9wi2mO9HvRPOKuDySf0avIQlmVpr8t5bE p2Xu7XC882v2GJm35h8City/q/0Jy83g8PH2tXBF3O+zpvB4E/MGA5ZP+9vG g8SntxbIkbisWvlnmN1oltyJ8x48fcnIhTMllP0FOODyw12VcMOgwqwu/OH2 pkQJLPVRKilCveEz1yxew0HF4lh9OH39dO0szAvJM/0V/X8h728kH3l/U6X/ Dw7YmBs= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {17.387485819479934`, 8.085942983375933}, \ {-1, -1}], LineBox[CompressedData[" 1:eJw9lgs4lPkexyeXNak2Fcdthnm97ytsRZ2S26mfI2WJyChi3SL3dS9SLpGk dRstEhobJRzXlJVaEXJrpbRIGFIitzqVVNr/nPP0f59nnnk+z//9z/wvv9/3 +yVc/fe7izAYjHz0EX5P9H1Fzw/A+N9DwchMqvrxZsSeakkm3SQ0r/orKDQW sWVC8U/FJBTldPynSx+x2p+80RQSany0xHPnNIARoL7icwwJZaFx9VQB4lTn 20aIpfxYO6/bIua7n7+bRIKZYyQvRQqxZYPb1BUSrlvO7X7SpQ4MTvHz4g4S hkLKPvnwEGe1VHotksDzv3F8zAmxnM+wymYKfH7fY+23HTFsMQv3oyDZy6+6 XR6xVFvDw1IKqizb1hhLIHZu6/B/TYHI2WjRkq9qwIgeXkhXp0ErdNx5vwga ry3enu1Cg+RoK1/5e8RF/qtkeTREttyT4xGImYM2b2ppsJIez36shzhVyzvy MQ1p65trHx5E3P2xLHGMhvJZbqfpUeH4oVsB4zT0Zde3zqUL15eVoDhAw49D nnUny4R89hCzkYaeiMD5ribhep8dMMyjwdhtIvfDQ8RhS9/tD6Bh6dWTT05/ Ie47baStR8Mf7ppSXT2IR2aNdy1RsI+I0g0WzudP9az9g4IWKYMvX4qE59OY 7RBFway5ZEV6rPA8dVeOGlIwp7ix+5G18DySX5oup8DI5C3ZrSCcvyhg9pGw 6DLykjGAzqc7LM+gggRVlmTK1nTEI52qeekkRLtCW4QJYi3ZV16xJBzlfyhZ +3k9mm++0jqaBPsTdYt7KhCnCqoiEkk4LdvKP+yBOEw/JjifhMbyY0eTSMTg GGZwjwQHj/teNS9UEX+csZknQWb12JrIKsRS4ZpdqhRkCm5nayQgnvinqLUr BaaTFd2pnojD9hvY5FNQfnnDi9VcxDrTpKKAggtFJna/mCIemUgbU6LB6NJm 1UAz4fxmF1FbGv4h06Nzw0b4/tW3Iok0MHqUn0x5CMe9gn+vosGpoDDSNBox g1vr1k2D9lxSdksO4oWzNfUC9H7vbZn1txA3xBYse0HDF4HOG3Y/4r5l5mLP aNA4GXjX5b+ImczVaq00hEQZTrVIov0ybLMcC9H9/Xyk5KACYs+eEHY4DQH+ vHovArGJxLT5Lhqey/92t0IJcd8P49uX08DU88nfuwYxc6rQs52CAWUD7UcL wvXUFmYkUqB8pmSc24t4Ljoxdi8FSU28afuriNX+Xf5sLQXavYl+L/wRa+VE qoyQkF4Y/bO9lnD9GpOnbpDgfSTAJWIS7WvOULMjk4SrERcb9vIRe3LeWZwm YUN32DVxLmK5TP5AFAnPl/Q93koI+UxU8RkS7jNvfXa+Q6H1zm70zCHh7eas 1pPhiPmuVptukyDbH2djrI9YLimGN0HCbjfOMS9xxBVb5q6zKPiguS52Zz+J 6s2atDlIQVxzXlblTcRzGoOTv1IwJBERtxXVDYMfLdvYS8HyyeM3G39FbHlx Xk6ahkCBWfzgeeF8fXKHBQ3J6zTLk3IR3z/XUhZDw0org4ljZYh1XipsKUX9 eURv2Wgz4qx86TcdNJyrzJlvFwjH7a+lDNOg9kCof4ij+Qub0f02T7p+v02J wuOVDs1LbD0Kz+cGNckmWFH493vKuy2DUJ1++/9ZQXU46UPh9R3sjzP5lzeF 1x90Pi6iw5HC++t84uxhYULh/dv5vj7RoErh85F3Gk7IQDr47fxMJo8X16E+ +na+vmkeOqfiSXz+mXW7RC8Zkvh+fHObslYuqOD7IzvjDyyWqOD7LeK47ax2 UsH3P74tJS9ORgXXRyc7Kq3gTwLXj8ZMCE8+lcD11fPVd22BLYHrDwy4CiUa BK7P0BNNbRskCFy/Jq7nHatnOLi+fU/9tGOfgIPrf2SDn1HGEAf3Rz73Ardo nIP757XRHWnddxzcX9q7k3fkrSBw/x0WtKwaVSVwf1q2Gk727SJw/yqWBrrr HiZwf89/sIupiSJw/zvPD6tLZxFYH8zKNrb+WExg/WBTD/qTrxNYX1oVbl4J riGw/lQqP5KfKyGwPn1XZaHpn0lg/aqtM3TvPUZgfdNPYs3EmBNY/8QctmeY yhNYH3PXJZwNGuRg/Rwo0XHKyeJgfRXbYyxeu4+D9bf/kwR3WpSD9ZkfHOnH 9FfG+m3NmBJk9CthfS8N2aG1ZKaE9V/vvVytUzsb+8OIRaGTrS0b+4dgcvJS 3wIL+8tW9zPiYmUs7D8i7xlJ8uEs7E8qfvxh90Ms7F+X3ayYYMXC/iYbsOme lAML+59iCovtFsbC/ripfeM5scss7J9SVvEBSn0s7K+uV208vNexsf9GvgpJ drBkY39mSG1rP5DIxv59pST0wdN6Nvb3X0L87zSMsbH/O+Vs3WH/iY3zwa2Q pYVrDCWcHxzGfQdD59k4XxRUUxe8O9k4f9xv9rej09g4n5yw40nqAhvnl+cW vzHVnrJwvjkwrhRk7cbC+Ue9XeTpyJAizkeXSltiMi0UcX5yvfg+/sZNBZyv uOV575qVFHD+svjqUeCWII/zmTTbSkHmoxzOb8OHnpWuCEUc8P98N/1YqH+y OP/9DddNALg= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {9.999999999999995, 9.0548}, {0, 1}], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[CompressedData[" 1:eJwl1gk41dkbB/BfKCLda2vs15ZuY00pwtxbWmTm35BEM9kn2ZOUZTCXZGm9 Dcm06DK2KQwypYVIjCVLQreSNboiUejaar7n+Xse7vN53vM7533fc87v0vQ8 vOegCEVRDfglnxwx/KF02JQE+dRnU++siobua7Mp/ppVMe16bI5P1+LaYFjR YXS0RI9NXSxgJTNgs4ddajzEvR2OLGnWYlPpyVpaGbBbieKNX2FBXb9JAcZP +9efMoSdk4ZKGxAfM48MEWiyKWbWrOk04jJU/9ObcFL6XIo+1jcvKbgcCXPC Hy8N1GdzpmzDVu+Dw1nHbW8hLptfzmDB/DsKz+YRf8cvjTMltrT9uNWAzdFm tqWYwcFKRdInDbCOeuD4DlhA02ypRDw6+lSaK1yvkPrDe8Tdxvzlokk+d6fN VhqyKb+FCu51WOK46SzDkM0RWZ4oVgNz91dWasKxocNOb2Ab1V0X5DA+xpPD pVCfXWno7hnMN870F8rD3LJvM5qwnkRe4lYGiTP9uy8ivjHV5S81OF/vr1kn 2FOuZxkNLk9yd1DA+I11zYMfMT+VOJXwFPVJG4rHNMDlEqZbuKj/60N2bQps LCcv7QgfMIjd7UDyH9bQ0YbfHh/5ThJ2191hvYh+f187YXhfA/3n0hKG4KC/ U8R9YTO1X2xfo/9fJW1frYKrlIzVEacS72VEnGcg/uP0nQVYsbNFb1Ed+dBz 5rQwv7TzBSoKVgzgiu2D5elHt9OJv+bYpJD92enLrFBDPrE3ip/DMp8Mz8bD 9BZeHQP1VvEnP3kTV5sOHoJnzLNCvGB3pWrXAnipi1V1GJyuavtoBLZLC3Dm wVzel2lV9NuotZvHJ+PjC/2sYdGudmMVrN+Xpmj5M/yjxyN5T9h50t7WC85+ qMzIgydettmQuJ+YqsUbWKgc+og8f9HYrVIO9dosWsiqw9t2N5cZw+FhavZj WN+gV0p7E1w1029eAk8GvrHQgd2rzogFw7rLXp2cwXzpscYW+nDxk7nxQjj/ QdipEdTPX9LS/D3MPHeAexM+OhbS2o78hdXZN4/B9mcfPNsBh0sVttjCBgqs uwWqGD/R72QAC76jVCVhYbdwUh3u5G2SPKjCptrepkRrwEGj9Fs1yoh7RS01 gdd8KJXTh8ttZSv3wHb/DuX+qYT6xYW0WLjA+ryKEVzl6V94D07K6lNoV0Te 4/olC3BrMefLObjP1KnWGvV0am4Z8Ibprqp2Z+BcL9ov+2HhvEx2O/yjSXf1 L3Cw2Yl15D7Y5WwcOwmnP11/2xaOKj7wdzk8wZXzPQ7T9/4x+pk875LOSIWL 6QsvrJBPum2jXxZ5flvb/ni4zS7qBg/Oc6zbWgvnGxQrnIczGXF35mDB27I7 QfDTZ5ahDNTrk6bruQVeJeuiYASHL55KXQ7XOzns0YXdW5/+1Ih8X6flrBWF nZMjdBJhq5cv5x9jPo1LUWmkXtWR7pQA0q9fg38ShY8quaouIF9OjPf7BvTn FtUmEgYLqjWOXIZztQ439H+D85NOiwuDm7WaGrfA5c228l5wL2tm8uoqnF8x l/2u8Mkmhv+sAup/wy72hfPP1di5wPmSh3jxsC+7bn+LPPoULd5XCJ8dbDxj D3P4vgcHyfk5W7fwTg59Wm0Zp4X8FK78/Ps1WMIjWdwH5ri8eOMH960MDC6G 3xe/03GAuZ07ZIRwsz1d2ZF4bMrGAv3p2ya+PghWlI8tIftT/NYq/zIscLv1 vzyY2p1U1Ann89eUNMIWG/zvKJH8cps1euFvWdfvu5P8LFRvDML+HUOns+Hw +H+N+PD5zCntXuIOG/8KWKCnOS+JegUizEGy/3+8S9mtDafzE7rcyfN8DQ8d mD9EMXTgf2oDC6XgicijkgPIn59XK87HfEypIsMMeGdke2EyrLjcxfwAOa8R vtZasODrrUryvrm+IeVBNvI3ywxYPob+tf0xZaoAu9dmjNfAEctuVoTLYv96 qvP+gjn7YmidMjjPjzvLMmCPrJmdxrCEt3X9n3CImuvvXDqeDz1RUQ7/YCS8 +ZmG+BmJK91wy+nq5vGVOI/qDtelsX6AyLMoGqyY8JvzLrjOOzLGXRp1yMjW kvskPPaENrwC+9luE9UBZxV0FGSuIO/DrlfkfRfz/d2FC7Di6gwzT/J+Yrwa LIV9vn1Hy4TTZubuLcLBU1Ebu+CB0Jh8X8xf9UJG9Ct8QHf1N2Nwm8uKECUj 3Ift09YRyIdjEsnWgatCJl+JIX9u/uKCOrxgtS8zDub1VUhLwjyVe7S3cN9q 6ZvD5D5VWM7LoX6mmnTrbbKeVSFHHeZ/1lOJhpsuacjT6eR8vS6zJOMvKlMt eN7nkb/KLOrbPPZQsJ30a8WK2X/gviIfhVPIJ/zj/cnj8CmtTYevI1+bWr8Q FjzldcjhLOprcxQ/IQs/sL1g7CKF778rz699RL/PiTAllCVRv6XluX44beL5 y1YJnNdVGc598MJ6jvhpcTzfU6//AXbuMM9xWobzIeXnRfYn8oJmP3sp+pvV mWAOtwi8fezEkL/mFe8jsHJJ9PBZUfTh9uCGUpJPJDvjiwjuRRitgNynDbsP aefAwt70zeT9c9le1CwWzi+eNEmCV/Q0tZ6Hk2jPFxrgPfelzZvgcK/E7aLo 7400eV89zK9x2EF/HaxVIuWTC9dvNPW1h3WeFXYZI5/gkEP+niTOr0mohNu4 XkFe8Js1x9Wtkb/xnH78XjjAaqiiFPbhuaVuhDnb3DJEUC83YqWdFMzc1ZO1 FjYLkFfpRD4Fkqx2DdgnS3wsDQ7VaCwbJP1oitLZS94H3kxuMMyeLPKiw3EN V2Pqsb7Ni1HHVvJ9t36X+wfk22ZvdyIVpoy25I2iPs5WXw0v+OoMY0ndEpzv JaaDVjBdLG8gicK+99T26MKCkbmZ376wKMHnwEPkvqbKdZh8mIc7RigmrN/L WRY+y6L6Nkc4sWEfGcf8dZ9ZFLtz6zby/0PbyOBD42kWxX38b/dl+HHNiF3C JxZVxbt0hg+7q8o//+4j4sOjm9TIfSi9luExyaLcHX86eBC2/BrrOTHBosLv BAUUwkxfL9O3cNXAvdxJ+MnBvbctMV6jp5FnSPbj6N1zAzBVFmDjAV/NzjWp w/zFR3sVEuGJ+MwXT7E+e1+1QQY8dq0y6/0Ui7LZPhORQ+7fh5YOaoZF5cua l18l+3P31dpPsI1eanQ8md8xXb4I9fE3pxi6wkK3mnE1IYua2Js2pkdsl02t h8O72RETZP9MXzoMYHzxlziZv2H+tuAdurCxocFWf7jjNafrC/pj/NihnAn7 NPlnHSH5rFtCH0V/ggfSriUjf47Ikz/JfYw6lh29D/XbrH/pdpr8v3bpUuvz UfQrsPByEJxO/6e9aphFJdnVTbvDvLU//57ej/G3anaS/ebqCsU1X7AoYbL2 hWMw++P9Mo9WFsX0s1xII+cjZEGh9wGenz8sqCUmP1es/v9pyP4P03GewA== "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[CompressedData[" 1:eJwl1wk4lWkbB/A3++5EduVgLIU6mShS5yVKIVom2yj7UIyjPkWl7xAyUvZm pmbMQSOVLI0GUY4lJlRnxlpSJ6mEIku2Gb7/M5/rcj1+53mf+7nv+33f51x0 /SP2BolQFPUQv2Tkvl3Cjz5N/fujTlMMyU7bZpg581JwXo2mTBhmMfGwW2f0 rJkaza3byp+xhMeVd+iNqNLUly7Pjr/Voylu8Lm0ZlWaO1zSOZEFM/JSR+ox H50kcdYOFjzzsujHvH2kE2tal6bSgyvqVBG/UN+lvQSmxH/YcQQ+l3S7LRLm +Yswu7Gf8uA6Axr2Tb7G2YP8PGfWb9SCOV97JXSr09yt1Ql3RMn8P+L6BzVo blfUyC9zTORXFTchhKeyjOz+hoXXTZ+6a6KO6bAtMrieH2XoUwv/nNx0WRfm HjBekNKiuZ26wW/YsJvBUY4VbGla5ORP8k0ZndylRVMHnrQ1JRIXx3vbYN7X 5KbVNbL/u/smCnDan8YljaSekKfpDYi/4phFaC9M1+bY+mjS3KLMfRqvyX4P olxeIz85funkK3J9RH+vlwZNFe00be+ABTcqWltRb8jplQZVMOtRT4Q16j3V MmCRRva3XadRjn5lxYsOecLM79KqLWCez3SrBol/IzH5MfqtMLhuScAk9U6U cOG42F814mHB9Y5lbrg/lfnMZSzSn7G+x1thYWzxxRodXH/v/D0X+LIYZ0kb 5okcbj4Fa4UcMk1ZhXwT/6JxvylGcJ+rFMwr4Emsxv5GV8r5V1Yiv9s9N3Ph jPaRyh0wd8CnhYl6SsYuGyjA9KU5xyI486Tw0pg28rFX7DVD/ZJ96WtHYE6v seUN0g8fQdkizJrU5qmin+Z+8nmGWC+g64zD4ZmRJs5BmDPlKXUd7lHOreXB Zbotz5vhA6rXs9/BwsHH3U2wjNF8myny5YYf/isfdqiIcjoM0y8KPfxhtl5M wGVSX4vCeQl4gKGpXgUzdUrmspCPlvtiQB3s5vc6iAE/9nD+9hY8Xrc+Kh71 MBtelnHJ+o+rPD6hfnmjejkrEj+8JTQQjjvf3taDfJjbLB8NoH8mGyPSDpF+ 2N+UPwbXqgSYdZJ+qHU2a8LDb9inrWHevQzPFyo05SqZrfQDnkM3M5tyPrxv cWRhAnkKo6O1G+EUr8pv9sAcy9LNb+CPLs4HqpEn76aChAHiFXwb6MjSIM9z 1+AZ8n4WOU3fRd7jgydef4DbpHmyPuQcUFefIO/j7xUTS+qwIKHHcgJeGfJy ZAwj82lNaAw+l2jY+99XcNmYu+U8qd+uUWwU9rXWzA3HPuoTetFy+JzvpHng ETws3F+6FabrT2mtQJ6bt0tmxpJ1exbmtsBiPuIHG2EqaIrrCN8NC5+SJvnX qA+awyce8E2cSP6/6UssYvw5IV4vDqNwaC6sGON2jtLFQoyC/Z06dhj7PAuW VWJk7bKJbEJcp+s5q0thvnlxpRU82qQxm0riXc2YLULeie0NfFe4TP+LFA34 9plLtrMkX7mlskz0Z5m1zo/JsNCmcKsWPPVOdI3Yv/1ablmNfq8eyAuPwDr+ kMSpSPicj3TVE/KetCel74BDrseNryHvWfLN0C0wZ26/3TmM6bVnXfdhVA+W bR1egfUpW/rJ5wutYdu8YY7dU6Ve+EHipdp+ZdS39E0sG3HyE832HoeZSneP VpF9PKxnjWBf1a99bJDHl9aZe6eUsN/02xVNcKzRy9w+uKxt2VZH5O2qElb+ HGaVy9+qh293vBCbhgXibs2r0QfPg7LPmYg3XpTRfRKONdH8jzdMSacdKoPv 833tfyE+sWl/C3yrLdvxLcxyvmJ7Hx4qP7FnDfJ3K3f1z4FH1Brcg2BBXfCV 3bBUzWx7BswyFgn4gP21Ssbe3CB++j7jOLywW6WvGGbevKA3jvxD8g21csj6 lc+EvnBH4NVwf5jRoKQoQP3GR61EVWDermgxB1he2+JYCcm/rKO1Gf3j1lkV rocZ8wp8b9g20qY0H/X6qjympeGADcJsCXj8YZxvB+JI86UVApZjf+m7t2vh R883WNxn4H5cyTFuhqeep1uugtNZOmJjcNjiofnlirh/Z20HNiDeaPu2FkkF 9Oef9mdZ8A9m23sN5RF/RlghgfwOOO2SOi6H52vtnOk5+MyfFcVzsrg/SpOO Cqjvqqun928wP7fgTjZxn0NXHkwtqKxWRn/WeiSp1cNCU5cmcv5c5C+kyyCe 4EloRD+csP/YySjY19vXZBV5D04ccp6By/Jm99vCnf2SzgnIh5WT3WVPnnv3 R8YM5Dtew2Ibw7252/MuwkJdo79GEY91J9NoCmYVfBOWA5tf2XHaEvUKORIB hmS/Ta82uiiS+vQdf0W+qTWxm81hZu0mnjpsnrsoMoD1giMlKaRe/t2tnd4w p9/Tfw79iY5+9Uce8kl/0O0VBbMiN9yuQr5CxXEdEThe93LvNdTLyfni9K/o t4fxix+jZTDfMisTCKfcSx+xkMb9f2K0QMMi8UstI5LIp/rT6y3w8a64C4US eB6FjaVe5Dl7k+RxVBzzql4/k+dq2FDTz0sMPrvTfQROWAgIDBHF9drVTHfs 3x0ko3dVBI4ZW9EBJ0zunFKCaVG/4x6o56P+xuTKZaiPqyEtJOer7VB1Bsz9 0HjMH/U7BgRdyoXHP1rn98IyubZne+H0+RNf2KB/vp9bvtuIeOMWQwnn4GRu a305LLyTl/E76feWU92bkQ9/oCC7GW7f55X7EBaYrY8m80f9tt/fjfz5Ut5d SeR+dRi61sEs239GyHm3xiExloF6WVbZCR3Yf/B8jaaVODkP4+95wG67tdXN YWb8kWZybpVo5L/5TNb/ZHuBnDclkWalibCbyFd+pai/6KVG1EvsTy86ZRjC mq79i5Iws5cpTd5b3lf+ReLIn8HcNe0AN6Q0yL2i0I/c4Yg5vIdF10oNdi6x Ke6XvjatsGmCf2Pl32yKY/1H9l3Yvism2XCeTZUxdeTa4A07KqRKZtgU3zk1 aR5Ozvp8PmiaTdHtto7bEb9oaa7LbxLrDY01yTmyIa1ZseITvPxwPJO8j48y XoWMsylK4b18Acx8uCpTcYzM1xeSczm62vCwwUfEc987WQo7pib2yMLpbt1V JuR7jeMSUwYzQr+y+Z64Z27mM9bzAt//RL73sr3b6X7ET9+UqWeEfqdWtvS9 w/7M307HboPVtRgnRZEfY/TwBFudnCO8QLUpNuV2dCRSG65QLnaSRT3pJsY/ PiPxFb5P/QMW6tj9FAsn3D/jt/kzmxo3/1pLBnbeFDq8D+bHZA8mkvO/zlpE kjjCpHAG9TUVOnTuxvrxM6PZwXBv1OU1JtiP8SlZ9hn6o740w8mbgNdPG3nC Nqy1YbXI381+8sgwOTfZMfvUPqD/jLagLNjx/X8OOgyxKcGFxiAPOKR5eGjd azbFUnawt4GFR2R6FZ6jn2dubaZhznoH/vyfmC/s7gmAufGcbIl6xHM1/fuq 8v//7+Dy7lEM8scK+n+IvYyU "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[CompressedData[" 1:eJwt1ws4lNkfB/A3SlKhWFGuSxnGZXLbInq7WERuqdTm1maxbNjkstLOmogu 7oQ/Gfq3iKXUoCQjcpmNFEIU0VqkmpCE2v2e//PvefQ+n/me97y/8ztzXg+1 o4HO3iIURbXih1zZYviP0qCp//3ToanOOea9rXD40qR1pvCf757ERsG96Q2i fvCe+u3irbB06MDxc/D1io3xChtpim+3rTpHh2aLODFXB8Dh5Vsl8pD/GPHp VC3MTXH2ToYfJNx6JLGJpqofbuSGwFYDFYZOMPuz4ZE9cETEXqMEkrd/eSeL +So2dDyrgzvMSq16mDQ7VLy95RXc8vhJbRr8x7eRexZhxyVRbx2ZNLXunKyn mCZNxanXxUohXxLQWysKS5f4yXRp01SuROr9DxjPeBDwOF+bZpuFmXm/IM/r 8o+ORC7/Ims9H3Z902T1PfKCzoO3ckl+Z0XsYeQXWUZmvxAXWzzxQh7d5dLk CltfUJ0IRx6s1+O0DRa3S626jLzmgiBDEx5SM/Z4jHz3T6WjimS8kuUhSdT7 dLvjKmU4zjo51Rm2r+w01IG5165mZ8MJnOFnVnCQgmzLMHxmi5IgCKY9fE9o oj/bohbX/U5ysy3q3uiffoGE8SjM166tyYS7NnRQ+li/6oPYojqMD4k+PBoF yzPl/umBjd0GvzwiFk/JHIKl6ou3fM1Af9RM1frg4s9W7GD4+heB4n34T9uO 8TswuzZjEPtNPbZb27sAs8rKT/nDAQaFKgZaeP4m2WssuF5BQuMIsaRTzjvU rxVn8CYcHjPi9JfAgvuJRnFwptucjB9sl1Llew5uSX39Shv7t9BxqZAN+8a+ L59B/2iHiPIAMt6D69+K/s7H5zY7wh3LOiNLkH81ez1fH2YF5iTnIO8KKTFe RcZfzEzLRe4+KZI9jnrpVkFGGXL+RstnAngoqbSzHW44vqu9gqwvJ/zOIsb7 fpyavgIHCRmiJqhnfxdlz4VdHSTbwlBvaWefdTEsrerz4B7yJ8pJhXUwFS/c txz9cg7IixiBPW0U/9xL+n1HYb0s6gl6cSwrAd51zHoLqX/MTTuiCf2SOmk/ ng7Lz6TnTCFfsnqofpisR+2bTmld7Msib9YQdbmOexWq6KJeSiI6Fk5qaAhW Rn7DWcOuB+44xji6Gp7s7XNRR52sa3On3mC+5Ja2fh+42jT9Ih9uZB6OKYCT Vu+WjIc1FvR/eQxTM9Ni5DzGXRVjT8Nc87RXYsgFttIS4vg8SOZr2wZ8PnT5 AC0FM8S7XkWT9btf/rwC7h2eYtnA07FvGz5hHOPZlIsCrumJ+4uGcPVU2Tn1 AXVWHFk0qYfDD4qIvoRDnD47XobZbTF1/diPLJvWZZGk/oLpi6OwUq7Kj4dh etPbRQrz19TeO76d1L+S06qFa2vzbLUOrpndXwndkfc66/2qAY8982rOxdWI aezPwLVoVEtjBDlbaZqzlfRDt4rDxPpuZl1WcSX1vn1jegLrOMc3GuSQ+yPY hZXw5NGgmzVk/pelnmR/uld+mfgMz534eEwd+9EuqW9jjXHc86d2WsFaTgvq 5BzOZd395gj2Q59Zd3YCTjLTtvWCt3O63bfhylezcD2A8RN289nnYK6p1xry uXO2jfsTXFvcU2dlkMvU3lJbo4fvB2W3g5xXcfPxp7vhsdmCpiuYt79zWDQA 7p1xeuyFvHW48mkMLB1z4YMS8p0BSawUmLH+n6F+1H30g01hMhykGaGVBytl JEWR8aqfexT9Yb7jfHIgHMesStsJb5mYsnQmjtzSoUneT3mP3Fgwu3FkvyIs l83rXwULDxkMqpL3r+bungnU76nZa28Md0wru7TB8ly7CvSZ7VLAUaiCx16f to/H/d0M8YvXdMn3a2VVI8xxPZlSTKx9+y3OE/WwLOBnHqz6PiXRgfS5Tbe1 HZ67HDp3Ceu98e33pz/A1581RD1HPhrs3cQg9WpmZCuifzqqIzo+pL7oORVn jLNr9ioqg10/ZHpEwu1/JfIWYfENdQ4Z8JTKQri9Pp6/UPB7Pnwi2fsvLuxo wHudA/+cXPVKCFf7CKPiYD3qFl+JhfosBhO88byjseuWb4fZv2WtNdGl6V2m HzW+g6XPJF5dRL3nK2ctguEhX47fXR2aX+/tJ2DDRaGx/eHIxZ6mpcXDXJbe VWM4dvfBB+fhOJGT/rPoz99GUs/Pwpl+fbl4/1DTZ4f+OA3Ly9taJ8M/pN9w JPO7PnGYCEK/pdeEyHnBrHLOfg/YbOmvoQ5wEM843Y1J82ddRufNYarAZwj7 T8vp9DD1SL2BkxnYH3p/8epINdhX76END+OzVoWxFMjzm0+1T2K+mV7RQ3Jk /NK33+mi/5HWSdUkF+aPlOM8sTfpcOvUSX2CIlOsl85ihMcYwdZrOu1F0Z/3 HSNNtjCdm+ZsqUvz+4Jvj/uS8XPLhaeRN9VMLiXrt+a92fEH8gHTxsnr5Hk5 nHnyvbIcu7izj6xPPiB6EK6Uos6KbMZ+qi+XfIn9sHvgoMeEh6SUi3CuaA/1 d7ec4KQZ5834XvFlagZuhpDxFt+54Bzy2ewT0ylwb/CVQBd48817kSWw6664 k3K4P6w+NL8W9jz9qLET64ve8EmyFeZuP7GQiP3s/ni/pQ2mVyg32WO9l/YZ 6j4kz4sbLpNBf5gPL71rhPkijW9eon+qS5olb5Pn/3Xe/C48VN7UXAxLb9Sv +i/6b5vJiskk80uW8XKwv1E8o4exsKrf3w3I+U8Nv2GEkjzSOR33869s3CDn Cwd5LJHA+45yOuggdIN9R3jmcqjHP6FowBXOHLXI3wdrhi7ePQSPWQgU8d5i V961Vfci3uyxFe8bfo3T+j2BpB+n9zsw0F/pxiNrzpCcOlwVgH5IHtCg8mBh auACzi29kze9pw6mhIeXPYezynxejJD1XpewFtVDf5dd/WmlAfoz+ujlevhm TyvHCG4Z/g/vaz2aXXI0/JIbXBQojEBOcWpCVGJgbt/tuyIYX5tBFxbDQwqD /QPYn1kP7nAr3DH5eoq8R0Qvida9gq0/Cu4F4vnrRkaDP8FUxMoIPbhiRSBn uSHysLxS8l5WFJR1ScKeXQfEirDe1M5d+VJwdU+a+o/ox/E041MScJBtt5cR 8t2baWuK5HvP3yC/96xMp5lTmL96pPI4zgN14cyu6Jdw+O87drzA/pl8cW95 BM/FC8Twe5A2neXF34N7v5Vofo/9qrOwtC03IO9Z/5trsR/SiSZhV2B54YvN OzC/jOyYTQ6cNOo09Qvy0IBD9dkwo4G3uhb1yLsMJOYRW0/oLEU/Eq7WrC2B 4/jxPDv0I831wN5amH3WbD4F52EFWzjWTerzWRbQiXxc0XzrDKnHTUwggf5S Jscs12F9RWHr95qg/zdcV3Wbw/Jbldv2wbeLq9k/wL6hz597weZP8xoT4RZa a9gD97Nef5GthsdKZWXt4XnlnqnnMKN3/DddPZoWJX93GP3/7w89+l82h82l "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {14.84576923551745, 15.437507644825477`}, \ {0, -1}], LineBox[CompressedData[" 1:eJwt1ws0lOkfB/A3Qv8iwzAUctkQKYMUkd6Q7iKkNltUJHJZm0jUsCKKZt1C bpGwVLoSxWCrZVeETERGwiraoRBW9vvs+XdOx/mc53mf5/f7/t4Zh/phvz3u IhRF1eM/+UnNzOHfdzQlJD8VaM6iWvul1stpyq60VfSAIk3l6Ii0X4ab9+us yICjHXinBDAnfM9v1fDlkvhvhppYH66orIOzbQedImF2gHl6AUwlrQt8Cdv9 vSb9hCLN0X92Pk5Bi6ZKKyWT5OFPc8tWO8LCFwtf31CgqQ5bB/fzxIuDvmii nr77FzqLYEY40zuNhXuctwh4sB23bf8CFs2R094V1gDTUd5KIfI09Yavf+I5 2d+Y935cjuYIehNkHsFqgidHIuDwiMDj12D/Nr6HJnyJmTQcQeqJk4vvY9Kc ZFFLP1dyPzNZisekqaGJ4Blz4p0/RzyGT15cUqhEnn/u0/0a+4Myz/nNoT/X q6wjTDma0uQnSXyEBSm/1nni/I59wU8EsP9tnS1tcL137t53MK/wpqQd6k0c Vp8SwtxPFvtfydOcFlNDZSly3yhrzAX9zrz8Gr5Wi6wnh/XAcnT1+hPEHfx+ J+QV1XL2TgnMM6oqewTPXGDVjJM87v10Wgz5/7pe+qW1NvLqEXxeg7zT7E58 TYG5T9d5b4bnvjxYPgRz/syuM4Zf5LKtTFbAbvJccTg0WdErHBb2PFhYgXn0 O5TN1cDN2j0TDnBvkE33JMybd9+3A/OIcfnDW10H783sr1l2qDcpyvPRBrj5 SFUAD/3eY0pE7SQOSzJlo9+VfbdsbGF2Y5hlAfI5ZO+mak3Wn3mf0UOeFffr W/VhQZWI3DPk7Zj6y20mTE9e1z2NeUgkpxwbw/3slhfR22DvpqzxFzCt4uJt iv10ToB/Cay2/aAv1jm82R/fxcGMBoUzwdhffKxZ7RTsL3bhTR3WW/el5R8j 6zJPf9BGPU6MEN+jJA9Z80uZqGf2d6l3PuS+cwMTquiHGSb7JJL0/09WTAH6 yUyLWFAEl0YxPuqhf2pOcUknnNNn01OIfJpibFJZqJ8R+rBQDvOyeqSe4kI8 lH/YC3l6BrrmFcGlquZ2+XCyYG50mqzbLFauhYP034fs0sX7xn49vxreEhuk lQUzTCTGr+K8wAtaE0Mw1+vNz99jfZdynN7qlehfKC2YRT2qB00CPGH/9Tr5 sXDTLenxFJircSNTHPXdL6jmlMPsJPvAYPS3yK8n/k9YYPX80CDyULT9uqsV ZizoKvsebhyQyW4k+y9PZXQgv1033//vCdzskproBbcV2Bfmkfvfvl7FRN5y e40WRsKUdROPL0tTsZPzmG5kv5e3bqUsPq/dCq0bYLuDEsVVWDd+lXFQBc65 nt3Wi3UlocV1EXIfO4WrgfPWpPRuFqJftda7ZmG478sp+8C/YErsQ/sw1r84 tLcPw7Sby3Zv1Bu2ZpX3N9huRLJsFP6QIBtBzi99Kd6KfjkhF2UebvuvP9Ud U7D55+bRcFKvqJHmCeR1Y+7K2d/I/aFVKn/Al323KknrIc8mwQwDecf7pi89 BHOPevFNYWnB/Og7sGBi8y4rzMdoqf920VU4f+3ZbD2sPzDJcraHcz4YVE/g vFc9yq2psEBsdON1zEMpPt2UT/bv1jM2hXc/yghfuBr1P4ieqcB83Axb1hrA wg0jQn3Ua2yfGLcdZr/TVM1Gf2cLYn32wgLHgG5pWI8/GeAEN2uxfGOQV8kP oQNbifmzGbLIy0Cyt9iQPE+nHb2DvOdeV66Qh0ttSzO94I/u25d/Rj3N945W bYKPu7Jzm2Aq5nmxCVwvL1Vxk3jSP2c3vOm2mC+X1O/sq3Mefn/cLyIEZk/f Nm3HfLMXPtznS86zHdtjgfurE/2afGC7Nd9qylDfOpVtOmS/2sIlH83w+dPS U/knkeQ1lJdbh36+1rJ0KsnzI5vjtqD/Ecsdbz+R86nUCPJ9U+r+8Noq1M95 ojWijXwV7om5B8J0YK1GMFwXqnutDva3Ci0tgVvb6GB5fdwX5JhSC7++Nb/r GCw0Ou1XjvwNR5sflsG0wlRkPIvmyU9zFs5jI9/BT/U2cOyLLVoasFrd/pr3 qKcy251hAfM+U7t9UI/2PbbQAbbrehM4gPrpH8UtjsD+B3wlnGEPL/cGb5hu dNiK7zteUrsnzwduflAXb4Z8lDMi847D7OKVgieyNP3dtZytruQ+BfFEB+QZ YCBs2EPO29k1NU+W5hkdUAqzhF2tB5UaZWiejXM4nw1TVxedK4MLXoYfVSX1 35ovXitD02tNXhVLk3otIt9/xHrU4wXLREk99/uLDHG+5jU3kQn0n/O03y0B 1nArqhaSPBiF9WKob939v8cn9cn7ZZ0ShfmZ3/xnozip98yKein05yvyl6UC LBwclEqSo+llH/Y8WQ0zlC4oy8rTvDKlJbI7Sf2BukrhyOsiM9HJl9TvODrV CRe2j+xPgrn1dr8tZdF09tx01WPyfHR0nznmNTIvf/4AXNpSZ7sR5kxJZy82 wPOWvjfUMb/TT/ctMobV/lpp2i9P0z2Nb/qcYV6l49glnN+r8XksEBY8rjdU wfz429hW8XBpgknKVdR7RbhOLwcWyvQWLEY/uqzEA8XkPPpFLL5/eK+S517f hnOylNP/xvu+M1Jc/BY5T2AvfoK871vfpt6AKdPRk1PIV82nOyGdnK++vyBT hua8jPlmeBHmJCSv+gHzSNms23+anK9koGOG9YlIbX1P2O6tyXemWBc1M8gg 9XMX3Zjci3XXfVaF22B2Nc1PwPkRCmtKNsLNkn2HhuDOtdf/WE/O1+bXO6G+ q8vK+83I/kqhdgvep+FKjxgrksdx8TJnzFPt8/SIPdmvkmvSg3k2eOgJPWD/ XSsc3ZBHascEM4LU43Joql2O5i3tVLiYS/o7s6raFPnqzeva+JzkP5tsGon5 BqsW932CacuTlneRt4c9l1I0xD2M5QY12P+sqkVyE8zeq/ftNvJnjV055wnT sVL257B/6FZI/yWY4xQSZID9h2vmfSmBBaf8bRowj6ojo+nPYf+q5gFb1GNa FS/bBTcbruA+Rf0dy1kDQ+R8px3GxpgXQ8CfEsLULxra+cjjYH3RpVFy/vrY u8qYV96j9DXDMM/KqypXhqZ+95Tj95L9qVp+G5B/dfKrjFaYq7ipbZRB0xWD 7u9qyf0OYdfrYH1Wm+Yd2DWQKfmAgd9PjHtj2XBpZ9zlZwyad9j6cCOX7C/i z59k0NTdkIfLzv/Xb0euFe6jGpjqZ0k+e1u1CnHfeMV4UyjM2HJWShWf7yKX 2s5wcr/IdNc1+OlM6tU44rz8MzroV3vsimwOcdC+y7eYNG1t1dFfTu7LnO3R QV7dv2h58Ek/M8fK8Xmksso1U6fJetoOegjrO6x+3qRuhLw08xs0MI9zzl5T 22DhwZ/kLDDPQi0fs59gTlqwP+bNO6AqOHMVZgyXd8thPkoXUsxr4NKV0RIt OP+K6Ae1PliwQE3/JM6fJX93GP3/7w8m/S9zMcz0 "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {15.154230764482548`, 6.437507644825483}, \ {0, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {9.0548, 9.999999999999995}, {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[CompressedData[" 1:eJwl1gk41dkbB/BfKCLda2vs15ZuY00pwtxbWmTm35BEM9kn2ZOUZTCXZGm9 Dcm06DK2KQwypYVIjCVLQreSNboiUejaar7n+Xse7vN53vM7533fc87v0vQ8 vOegCEVRDfglnxwx/KF02JQE+dRnU++siobua7Mp/ppVMe16bI5P1+LaYFjR YXS0RI9NXSxgJTNgs4ddajzEvR2OLGnWYlPpyVpaGbBbieKNX2FBXb9JAcZP +9efMoSdk4ZKGxAfM48MEWiyKWbWrOk04jJU/9ObcFL6XIo+1jcvKbgcCXPC Hy8N1GdzpmzDVu+Dw1nHbW8hLptfzmDB/DsKz+YRf8cvjTMltrT9uNWAzdFm tqWYwcFKRdInDbCOeuD4DlhA02ypRDw6+lSaK1yvkPrDe8Tdxvzlokk+d6fN VhqyKb+FCu51WOK46SzDkM0RWZ4oVgNz91dWasKxocNOb2Ab1V0X5DA+xpPD pVCfXWno7hnMN870F8rD3LJvM5qwnkRe4lYGiTP9uy8ivjHV5S81OF/vr1kn 2FOuZxkNLk9yd1DA+I11zYMfMT+VOJXwFPVJG4rHNMDlEqZbuKj/60N2bQps LCcv7QgfMIjd7UDyH9bQ0YbfHh/5ThJ2191hvYh+f187YXhfA/3n0hKG4KC/ U8R9YTO1X2xfo/9fJW1frYKrlIzVEacS72VEnGcg/uP0nQVYsbNFb1Ed+dBz 5rQwv7TzBSoKVgzgiu2D5elHt9OJv+bYpJD92enLrFBDPrE3ip/DMp8Mz8bD 9BZeHQP1VvEnP3kTV5sOHoJnzLNCvGB3pWrXAnipi1V1GJyuavtoBLZLC3Dm wVzel2lV9NuotZvHJ+PjC/2sYdGudmMVrN+Xpmj5M/yjxyN5T9h50t7WC85+ qMzIgydettmQuJ+YqsUbWKgc+og8f9HYrVIO9dosWsiqw9t2N5cZw+FhavZj WN+gV0p7E1w1029eAk8GvrHQgd2rzogFw7rLXp2cwXzpscYW+nDxk7nxQjj/ QdipEdTPX9LS/D3MPHeAexM+OhbS2o78hdXZN4/B9mcfPNsBh0sVttjCBgqs uwWqGD/R72QAC76jVCVhYbdwUh3u5G2SPKjCptrepkRrwEGj9Fs1yoh7RS01 gdd8KJXTh8ttZSv3wHb/DuX+qYT6xYW0WLjA+ryKEVzl6V94D07K6lNoV0Te 4/olC3BrMefLObjP1KnWGvV0am4Z8Ibprqp2Z+BcL9ov+2HhvEx2O/yjSXf1 L3Cw2Yl15D7Y5WwcOwmnP11/2xaOKj7wdzk8wZXzPQ7T9/4x+pk875LOSIWL 6QsvrJBPum2jXxZ5flvb/ni4zS7qBg/Oc6zbWgvnGxQrnIczGXF35mDB27I7 QfDTZ5ahDNTrk6bruQVeJeuiYASHL55KXQ7XOzns0YXdW5/+1Ih8X6flrBWF nZMjdBJhq5cv5x9jPo1LUWmkXtWR7pQA0q9fg38ShY8quaouIF9OjPf7BvTn FtUmEgYLqjWOXIZztQ439H+D85NOiwuDm7WaGrfA5c228l5wL2tm8uoqnF8x l/2u8Mkmhv+sAup/wy72hfPP1di5wPmSh3jxsC+7bn+LPPoULd5XCJ8dbDxj D3P4vgcHyfk5W7fwTg59Wm0Zp4X8FK78/Ps1WMIjWdwH5ri8eOMH960MDC6G 3xe/03GAuZ07ZIRwsz1d2ZF4bMrGAv3p2ya+PghWlI8tIftT/NYq/zIscLv1 vzyY2p1U1Ann89eUNMIWG/zvKJH8cps1euFvWdfvu5P8LFRvDML+HUOns+Hw +H+N+PD5zCntXuIOG/8KWKCnOS+JegUizEGy/3+8S9mtDafzE7rcyfN8DQ8d mD9EMXTgf2oDC6XgicijkgPIn59XK87HfEypIsMMeGdke2EyrLjcxfwAOa8R vtZasODrrUryvrm+IeVBNvI3ywxYPob+tf0xZaoAu9dmjNfAEctuVoTLYv96 qvP+gjn7YmidMjjPjzvLMmCPrJmdxrCEt3X9n3CImuvvXDqeDz1RUQ7/YCS8 +ZmG+BmJK91wy+nq5vGVOI/qDtelsX6AyLMoGqyY8JvzLrjOOzLGXRp1yMjW kvskPPaENrwC+9luE9UBZxV0FGSuIO/DrlfkfRfz/d2FC7Di6gwzT/J+Yrwa LIV9vn1Hy4TTZubuLcLBU1Ebu+CB0Jh8X8xf9UJG9Ct8QHf1N2Nwm8uKECUj 3Ift09YRyIdjEsnWgatCJl+JIX9u/uKCOrxgtS8zDub1VUhLwjyVe7S3cN9q 6ZvD5D5VWM7LoX6mmnTrbbKeVSFHHeZ/1lOJhpsuacjT6eR8vS6zJOMvKlMt eN7nkb/KLOrbPPZQsJ30a8WK2X/gviIfhVPIJ/zj/cnj8CmtTYevI1+bWr8Q FjzldcjhLOprcxQ/IQs/sL1g7CKF778rz699RL/PiTAllCVRv6XluX44beL5 y1YJnNdVGc598MJ6jvhpcTzfU6//AXbuMM9xWobzIeXnRfYn8oJmP3sp+pvV mWAOtwi8fezEkL/mFe8jsHJJ9PBZUfTh9uCGUpJPJDvjiwjuRRitgNynDbsP aefAwt70zeT9c9le1CwWzi+eNEmCV/Q0tZ6Hk2jPFxrgPfelzZvgcK/E7aLo 7400eV89zK9x2EF/HaxVIuWTC9dvNPW1h3WeFXYZI5/gkEP+niTOr0mohNu4 XkFe8Js1x9Wtkb/xnH78XjjAaqiiFPbhuaVuhDnb3DJEUC83YqWdFMzc1ZO1 FjYLkFfpRD4Fkqx2DdgnS3wsDQ7VaCwbJP1oitLZS94H3kxuMMyeLPKiw3EN V2Pqsb7Ni1HHVvJ9t36X+wfk22ZvdyIVpoy25I2iPs5WXw0v+OoMY0ndEpzv JaaDVjBdLG8gicK+99T26MKCkbmZ376wKMHnwEPkvqbKdZh8mIc7RigmrN/L WRY+y6L6Nkc4sWEfGcf8dZ9ZFLtz6zby/0PbyOBD42kWxX38b/dl+HHNiF3C JxZVxbt0hg+7q8o//+4j4sOjm9TIfSi9luExyaLcHX86eBC2/BrrOTHBosLv BAUUwkxfL9O3cNXAvdxJ+MnBvbctMV6jp5FnSPbj6N1zAzBVFmDjAV/NzjWp w/zFR3sVEuGJ+MwXT7E+e1+1QQY8dq0y6/0Ui7LZPhORQ+7fh5YOaoZF5cua l18l+3P31dpPsI1eanQ8md8xXb4I9fE3pxi6wkK3mnE1IYua2Js2pkdsl02t h8O72RETZP9MXzoMYHzxlziZv2H+tuAdurCxocFWf7jjNafrC/pj/NihnAn7 NPlnHSH5rFtCH0V/ggfSriUjf47Ikz/JfYw6lh29D/XbrH/pdpr8v3bpUuvz UfQrsPByEJxO/6e9aphFJdnVTbvDvLU//57ej/G3anaS/ebqCsU1X7AoYbL2 hWMw++P9Mo9WFsX0s1xII+cjZEGh9wGenz8sqCUmP1es/v9pyP4P03GewA== "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {4.84576923551745, 13.562492355174513`}, \ {0, 1}], LineBox[CompressedData[" 1:eJwl1wk4lWkbB/A3++5EduVgLIU6mShS5yVKIVom2yj7UIyjPkWl7xAyUvZm pmbMQSOVLI0GUY4lJlRnxlpSJ6mEIku2Gb7/M5/rcj1+53mf+7nv+33f51x0 /SP2BolQFPUQv2Tkvl3Cjz5N/fujTlMMyU7bZpg581JwXo2mTBhmMfGwW2f0 rJkaza3byp+xhMeVd+iNqNLUly7Pjr/Voylu8Lm0ZlWaO1zSOZEFM/JSR+ox H50kcdYOFjzzsujHvH2kE2tal6bSgyvqVBG/UN+lvQSmxH/YcQQ+l3S7LRLm +Yswu7Gf8uA6Axr2Tb7G2YP8PGfWb9SCOV97JXSr09yt1Ql3RMn8P+L6BzVo blfUyC9zTORXFTchhKeyjOz+hoXXTZ+6a6KO6bAtMrieH2XoUwv/nNx0WRfm HjBekNKiuZ26wW/YsJvBUY4VbGla5ORP8k0ZndylRVMHnrQ1JRIXx3vbYN7X 5KbVNbL/u/smCnDan8YljaSekKfpDYi/4phFaC9M1+bY+mjS3KLMfRqvyX4P olxeIz85funkK3J9RH+vlwZNFe00be+ABTcqWltRb8jplQZVMOtRT4Q16j3V MmCRRva3XadRjn5lxYsOecLM79KqLWCez3SrBol/IzH5MfqtMLhuScAk9U6U cOG42F814mHB9Y5lbrg/lfnMZSzSn7G+x1thYWzxxRodXH/v/D0X+LIYZ0kb 5okcbj4Fa4UcMk1ZhXwT/6JxvylGcJ+rFMwr4Emsxv5GV8r5V1Yiv9s9N3Ph jPaRyh0wd8CnhYl6SsYuGyjA9KU5xyI486Tw0pg28rFX7DVD/ZJ96WtHYE6v seUN0g8fQdkizJrU5qmin+Z+8nmGWC+g64zD4ZmRJs5BmDPlKXUd7lHOreXB Zbotz5vhA6rXs9/BwsHH3U2wjNF8myny5YYf/isfdqiIcjoM0y8KPfxhtl5M wGVSX4vCeQl4gKGpXgUzdUrmspCPlvtiQB3s5vc6iAE/9nD+9hY8Xrc+Kh71 MBtelnHJ+o+rPD6hfnmjejkrEj+8JTQQjjvf3taDfJjbLB8NoH8mGyPSDpF+ 2N+UPwbXqgSYdZJ+qHU2a8LDb9inrWHevQzPFyo05SqZrfQDnkM3M5tyPrxv cWRhAnkKo6O1G+EUr8pv9sAcy9LNb+CPLs4HqpEn76aChAHiFXwb6MjSIM9z 1+AZ8n4WOU3fRd7jgydef4DbpHmyPuQcUFefIO/j7xUTS+qwIKHHcgJeGfJy ZAwj82lNaAw+l2jY+99XcNmYu+U8qd+uUWwU9rXWzA3HPuoTetFy+JzvpHng ETws3F+6FabrT2mtQJ6bt0tmxpJ1exbmtsBiPuIHG2EqaIrrCN8NC5+SJvnX qA+awyce8E2cSP6/6UssYvw5IV4vDqNwaC6sGON2jtLFQoyC/Z06dhj7PAuW VWJk7bKJbEJcp+s5q0thvnlxpRU82qQxm0riXc2YLULeie0NfFe4TP+LFA34 9plLtrMkX7mlskz0Z5m1zo/JsNCmcKsWPPVOdI3Yv/1ablmNfq8eyAuPwDr+ kMSpSPicj3TVE/KetCel74BDrseNryHvWfLN0C0wZ26/3TmM6bVnXfdhVA+W bR1egfUpW/rJ5wutYdu8YY7dU6Ve+EHipdp+ZdS39E0sG3HyE832HoeZSneP VpF9PKxnjWBf1a99bJDHl9aZe6eUsN/02xVNcKzRy9w+uKxt2VZH5O2qElb+ HGaVy9+qh293vBCbhgXibs2r0QfPg7LPmYg3XpTRfRKONdH8jzdMSacdKoPv 833tfyE+sWl/C3yrLdvxLcxyvmJ7Hx4qP7FnDfJ3K3f1z4FH1Brcg2BBXfCV 3bBUzWx7BswyFgn4gP21Ssbe3CB++j7jOLywW6WvGGbevKA3jvxD8g21csj6 lc+EvnBH4NVwf5jRoKQoQP3GR61EVWDermgxB1he2+JYCcm/rKO1Gf3j1lkV rocZ8wp8b9g20qY0H/X6qjympeGADcJsCXj8YZxvB+JI86UVApZjf+m7t2vh R883WNxn4H5cyTFuhqeep1uugtNZOmJjcNjiofnlirh/Z20HNiDeaPu2FkkF 9Oef9mdZ8A9m23sN5RF/RlghgfwOOO2SOi6H52vtnOk5+MyfFcVzsrg/SpOO Cqjvqqun928wP7fgTjZxn0NXHkwtqKxWRn/WeiSp1cNCU5cmcv5c5C+kyyCe 4EloRD+csP/YySjY19vXZBV5D04ccp6By/Jm99vCnf2SzgnIh5WT3WVPnnv3 R8YM5Dtew2Ibw7252/MuwkJdo79GEY91J9NoCmYVfBOWA5tf2XHaEvUKORIB hmS/Ta82uiiS+vQdf0W+qTWxm81hZu0mnjpsnrsoMoD1giMlKaRe/t2tnd4w p9/Tfw79iY5+9Uce8kl/0O0VBbMiN9yuQr5CxXEdEThe93LvNdTLyfni9K/o t4fxix+jZTDfMisTCKfcSx+xkMb9f2K0QMMi8UstI5LIp/rT6y3w8a64C4US eB6FjaVe5Dl7k+RxVBzzql4/k+dq2FDTz0sMPrvTfQROWAgIDBHF9drVTHfs 3x0ko3dVBI4ZW9EBJ0zunFKCaVG/4x6o56P+xuTKZaiPqyEtJOer7VB1Bsz9 0HjMH/U7BgRdyoXHP1rn98IyubZne+H0+RNf2KB/vp9bvtuIeOMWQwnn4GRu a305LLyTl/E76feWU92bkQ9/oCC7GW7f55X7EBaYrY8m80f9tt/fjfz5Ut5d SeR+dRi61sEs239GyHm3xiExloF6WVbZCR3Yf/B8jaaVODkP4+95wG67tdXN YWb8kWZybpVo5L/5TNb/ZHuBnDclkWalibCbyFd+pai/6KVG1EvsTy86ZRjC mq79i5Iws5cpTd5b3lf+ReLIn8HcNe0AN6Q0yL2i0I/c4Yg5vIdF10oNdi6x Ke6XvjatsGmCf2Pl32yKY/1H9l3Yvism2XCeTZUxdeTa4A07KqRKZtgU3zk1 aR5Ozvp8PmiaTdHtto7bEb9oaa7LbxLrDY01yTmyIa1ZseITvPxwPJO8j48y XoWMsylK4b18Acx8uCpTcYzM1xeSczm62vCwwUfEc987WQo7pib2yMLpbt1V JuR7jeMSUwYzQr+y+Z64Z27mM9bzAt//RL73sr3b6X7ET9+UqWeEfqdWtvS9 w/7M307HboPVtRgnRZEfY/TwBFudnCO8QLUpNuV2dCRSG65QLnaSRT3pJsY/ PiPxFb5P/QMW6tj9FAsn3D/jt/kzmxo3/1pLBnbeFDq8D+bHZA8mkvO/zlpE kjjCpHAG9TUVOnTuxvrxM6PZwXBv1OU1JtiP8SlZ9hn6o740w8mbgNdPG3nC Nqy1YbXI381+8sgwOTfZMfvUPqD/jLagLNjx/X8OOgyxKcGFxiAPOKR5eGjd azbFUnawt4GFR2R6FZ6jn2dubaZhznoH/vyfmC/s7gmAufGcbIl6xHM1/fuq 8v//7+Dy7lEM8scK+n+IvYyU "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {5.1542307644825485`, 4.562492355174517}, \ {0, 1}], LineBox[CompressedData[" 1:eJwt2Hk81PkfB/BJskgax+TMlXJNTHIlMuyEmEW7EoXIkSQp2iySIqxVpnKF chZtkixWkVzlKmZRJEotmkTaSK70e312f/6Zx/Pxud7v9/drPu/HKO8/8qMP H4VCEV1GoZDP//5Umf99SjMp/LUnfETgoMD79ZnweJLh0noyXmjopCvDpLia WR5mwzlddvRauO6hYnUk7CHK0DOWZVK4qS6e1XC8m5V8Hjzd9c2Vsp5J8Xtj dvYTXM7XYWkLMwuyNTXkmBS6n2LQZTjIl7bEgqmqxst5ZH6gjp4lHCMftF5v A5Pykf+NuTZcnhkmEw7XFS20fcN+yQLBHvdgRvaeM7VwPO9F7yRstM3rayDM EtvZLaPGpAxxOyPWwMMfbzAMYZ5M8K17iD/RPMvHCp41eOvlCRdt3RprA1eF 7HOiwhSvFSxzuK/hXe9j1EP1YOIIHXbo35NO6rMYJWe4GvZ48PZQFDz7u+Tx MZwv2CS+NhIOWCm0qR6m8mi2qTC3plM3lcRv6e7UCrt2iu4OgCn6y13X4LzZ pZYASzjq1hFmOFyafV5CDZ5dWdsyDYfW8zKpZH1ISn0k8lEaC3vPT8Z7KzZJ oj4O2lq+K+CWV10pt+HHq7wHxeH0yQkVW3k8t29bYjfC6m+oIq/h8cz3M45w EVOl5dBa1Cm/Xyse5sgnOI7COasaLj0k8XXGHGUrIJ63KSorSb0esJ9mwA4X Nfyd4PTUsp864QFG8J8FMPU3y1kebH1z5eYp2C+qV4y4/I7XcjN11Hfffe0O OL1d7MhZuO+CnPBVWPVE1tdGOOjaV/+9cHG7fsosGa/qnxGG+/iWJytr4HlP 5c/dQXyhlLq/TWHuesoGJzj9ZZfAD3D67+UOX5FfaYiugj3McTyueQuWF3/+ lgW3MPwW/OEanWcVOsQrUry2wtKn/d3F4D4R03UqMOXgxPpxEq941YQymR9z Nr8Bjr/82doENmIu5qbBzIvq4UfJevt1S4fhj4JhcXVwqIVHjPW/+Y1tUUN8 jn2LHRpwaHe3eR5M4fy1QRK2vt/ushH5MXmNB4TI+Crh8EaYU+01JgynbxmV 2afIpBSkVQTLwOqMVL95mD9lQksfrgk622GlhLguJGS5wbPdDpmJsEkjr+IC 7Hxrk1IrrJcgONAJs2JdLBfg4djJORryLb3REaysjE+XexmeMHWw/KoxHPKa 8V0pbF3T4WIJp8eE+i7BRfM5z1lwfMaeoR2aeO55c/8YwEa6Zx4kwZJ6cysV YPoy2sUnsF4HjbaI89gWilbLtGDWyIFuuOlGkJUGHNP/8PZ12Oi3B/EsuEi7 uiUUFjSnZ/wIq7ryXWHDlKTzN36CjdoXlq2Hiw/9cNoa5p+kpvLDPQYvInVh 7mEPixeoD73d+owEHH+8/FMjzB0o751APH5syecP4Z431+Wa4KHRFfvfwAMj uXKX4R712gER7Edfe7D8CCwo4+WtD+coJt62gTkq3bkH4Rrz57l0st5+8XUh zJCyeSwFU6zZcxPwtNcQRRQ2aX3itgX14Jy+l0iFlSort8fBjIgD6kpwn+6X lh54aNJw0oTMFzLgV1TBcwqfdvOFa3RTtnrBfgeFXDLh4heZC1dVyPfI4JZ+ WMTnrgEXLr9y540S8q169NXtMxxkptAXAAvuHwxetQ7rP0+5V5N6UBWkpWGP UIUrQnS8r7fdEmlwQfxctSPMur5QKgAH/BEunAHHFCXMj2M//pOZa3thaRkb jzbYRO3ghNBGvK92Yaxc2Fv61AQDpkrc2B0Ce6zNV7SFBRkOoZZkvKRK0Rku 5mNzZOHxxhB14tl3rUenkH9LfwaVDfNSHCu6Yb9jw0x9eOD31Iz75H0LEMmn wY/9bSfKyPuo2JYwiXiK7uVNlsNMLvfyQ7jKSt62CWYZqeaQ+Ge7kwRfw9LT 28KOwuPHG5KEcT5HOO8DG24ZPFdiBlOXByTqwIL3vi+MhJ3bfk2Ug5nuOdsf wiKnpivFYedRhzkq6jOcue2HNXDi5JNpd5gtHbywgaxvk7IvhgcWFztZMN2w dsMMbLR+zvgInLPifNMW3JPFMfOS18j8KYuaEJh+eLJ4GB6Y+UPoGhzhFjWg ReoVIKvRCve0f1IOhfui7DWGyPz3u2sfwVEU1T/fwUV/ZD6T1Mb70rVDeRRu +TCSsg+WXMp2fAaXWt22L4CtP676i9zTJgofs4dgo6Mhaelk/ehInLgOzls6 J3YEZq6hxRrBLY6vp83hRYEDRTvhIbqqiiRcoJGQ5kbmU9LO8JAf58PKTFfY 9eX8cD3sbLqQYg+z5h+9yIPlhUwWDeGQSL2r50g9nETqpWDm0+SJaLilJ9Hs H8QjvWwzJQ7uUz6g0AwXvLx/LA02SRjVyYKT88eYFTDjC59DMExXK3r4Cl6M mzG3hxlXhhpoiK9cYPG8LhnPCgjaBcvnPTqgCJd2RV/Igh3KVRKk4Lq7N5J4 ZNz3q5Y8qV9812UD9CGLK7jjG+HHHTseRcOCXxQ62HBRY4P+E9iD67s5FE40 GNcn97L6ndB3JWT/8reeNrCSwoTeJMz/WP7BL7D8999GDZDv4upVT7NgJuPp iWjYo1joQRnswZ5V7YK9RT8bVMMlB6yEqAz8Hy6cT6+Ehfn/NtCHc/avG7wG e58+YLUbzhLgJiXAP5r4ixyHBUM+3POF+ev1fjsHU13PdJrAXM45wRyYe6wn bjUsUhIjVgw3zWY+eo18Xhr1R92BZ/0tQirhKFZtVCk5P+bvvRx4abIn/gZc XlcidAxWKUx1vkLiadtW7AbLajl8SISN4nbPO8JrLmiH/wKP+1squMA2b0cd vcl6vsFCf9j1y7URO9jDuOTsr3DMLqFMYzji5qsVFbDSpQ896rD3prMv38Nh YW97ZOEYLxVTOulLEmVvi8HWhWkDwbDT2HZTUZKffbBSHVxgelqSjPfsctcT RR/iK2ocSdazbmhq7yV9if6DEE1Ylf2OQfoWd7mz+UySzzPPpFH4w1XFQ66k fnbscUVy71fX8yJgZ1qrkx28J4lHyYWTRx94BsE5ancCmmF+VRF90tdU7TFq /UDqF1mYlghbBNgW0TZhvY/zp1g48khOrjHMXWi0OQ6XizR7ucKLYoqGLvC9 hhVNv8CP08Tb9eDKVu/HF+Chd3cjSV9QWWXanA/nuPCog4jXeb7J6jYsv1be 9zbcc2qDTjk8fbPYJwZOdZy9VQY3VfQ+cyfza/4xvwnPbttpRvpcAXe+0qtw 3dp3TRth2Xjqwjmy3/MyiQ1wYM+T3WEkvuzRHVqkrw7WU/CB6fqHx0zJ/ul7 79rDnLiqZ27w8M8+qVth9VldhwR4z1ZHCU3YW0FvWQPpE9OSA+VhxsnVq5Yj nyUqf5UE7GEQscEWFj+j1kSFQw5b3yR9VlC/lookGbda2TQCG93VoCnAqkzn WF30JaLyXznaZL8dfVLhcIFVr/F2OEA1j1sD68rEHPYk8brr7f0MR7J1zM+Q /QuTuCq4Rw1WsVOvk3rzFDq/hzX3y617AsdMOf+2G+YFakdPwya7fnruRu7t mxrWcrp4D993aZNxluY3YSbMdq2/woLLgrkRnnCxm02zGszXU/xzJOygatLC B9sVBX6XCgdkpyn2IZ6cBeqpQjjku2jO73CCweefy2D5vwSXnYQvnql4Vglb R2ze/SMcu7TjaTncZKHptBG2FAueKYZFTnyKoMIhM3H8OfD4zz68r6hX2MKU QBI5P6BpyxeYU9ujHw5zTspFk/EMa7v3PnCLtocx6YPrfLdfcoCTW0c2k/qq z36fYQL7nfQv2EfOX77LVQsWzC3QTIdr3lyXVCD1cBt89RwOSKvqoMHSxn8F kvqKDDS5SMAx6Y06pK/qT+YzkyL5HAu2vg/LajOqlWH+ZUc7hNCnhLX9Wa0L x9MMx3bCSy3nX+3QJf2059xFLVLvR+G+MHXeu6QNjuhNzo+DWUvW9C8w83XY ZlKP4m6ptVL/3vtfXnbB3E9T9Rpwjz2dOQ/zdokvapN7nV7GU9qM72++jXZq cOSl7mPbYaUI12cSMF+4+0VfMv5THnMG+2u6WKhGw65azWVc2L95m0kG7DcU WXaNjDOWdG7CHtHC34XCbeJS2RXw7D8P02xgm4pLJ+7CrBebd5C+revv1plK WHKc3r9A3r/i0OslsInY04ZXsHi7nVMuXGQxvKYDdsxTE+fAQ+pFAS1w4OoQ WgQx7X1rJ3wswreGxDs9dC1tGGaEJAfvhAM41CsCOG9bWtd1UzJf8wc+fbhg o0wpHQ6qSNwTCGeZmjUrwuPRehWlsKSYw5QUybdHv2KO9OX9Wks0kq/iqVuW qE9HquAhWVIv6U31yfDYn9uD1sMxbyUEXsMOgoPTBsSfbxWqo2/Rrk26YAfT 23YJHYTbUutTDsEhdwpGsuHIsObV5+BFs86D7fCa2O19d+AajQzbMfjYcYmc Ppjy6E3fAvzvjxp6//89Q5v5P36y9AE= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {16.937558817093933`, 13.081023536561336`}, \ {1, -1}], LineBox[CompressedData[" 1:eJwt2Hk81NsbB/CxRqQhRBtJNZbsRJeaJBRpKiSNSJRclbXcSIoySUhiKiKp GTeVa7lXRbaUrazJviUhyrVlv7/Puffnn+f1fp3zPed5njlzvvOy1vnMflde CoUixkOhkPjfnyL9v6hKpyhKNRdYwXOlPU2zKnRK25jv3gQ4T+muxSDML+LV 9YWMb6s+WQm71AU20NbTKcF/pH5JgrNDutqcYcUKG+GTsNOPndIxMGviKYcG q0b7yuXAEV+XCXYrk+e/K1WS+TKaRbFwtgWXrwH2kLv41BTub3eUrYEZDbo5 00p0SkPoJa9CeChEJycDLkx9n/QY9s2JsD8NR9faZ4bCXcp7eHVh7vJPMg5k vWhqoiAsuUg7TAvm734U30ujUzS6l39cBLdJfSuvhpmvMlo7UV8bjetRBvee dD6QD3ONe6U/wNkcsawU2FD8Y3Enma/vIREDywyptszCLrebqDdgy1btXfLY L7iltigWHvq7NH43nJfEl5wGW4csXuQP63tdDquE3bqCMh/BGXsC/pqGnVTe ZdbAU8I7Wkm+eQdS6JMwpdluhR9MC2Q2LkN/7Dj31F7D6bybrDbCbk6ciyIb UL+NxJwaTJMUN7aHm0bHipTgUKPFdzgwt3756uWw6L7G3BHYZMFc9SfW93/i I6S9EfXMuDyrgKmne+gecMPNo9MxxL9Gs+7CEVKbB/fBVQ+TruXB/DxeH4Rh RuPMpVrY3NvHPJ/0z+ysZTOZzy5RPwPTaiOdG2D5LbWnFWD2lszGEnic2d5J 5o1P2ZilIVIfpCqzEbOX+ldeRXS54J7qiBis5dd8BJFd/kVbC7Hq9DElHRLV nLaII7Zdto0VRky4sDJkHnXJCMuMdiMyPN4Y/CReNjJZgDh+1rWfjAe3yy57 jCh0bjSQiudGeD1s4uAaY2XbTWS9mdj9MeT5QO2D++GhGCmJe7B8rRDPBbKv UAfPH7DHopDo32GP5wp/18NuSfFyTaQvdo8l+BAtFQ3LeFFvsoyjoBGc4bD7 3UYa6TfP4EXYmlmUaALbcdPPlJPnvtWpHYQNFR5OSyPq2xxodkBM/6X8hSsi a8zuOhmP/XKiPhOxoX9N9Q5EoRMPLpBzGMiJqiH9jX3/U9EIn4vhEZ3DE1g3 z3NfuB/sq5hSQz638XcCHSkwbVfT8gA4+kb6xxJYlW53lfSXZsF99Qlmmom8 +ULO0WzGuQ448JT5k3hYtONnVBMZ1wvcYAG31TYqvCP7XVi6hA9mXjvY/AS2 W6PDU4xzSpfQrWfBilNajHC44YP5DSeYHZbbSL6ndJn4EvK9VdU9NWgEyx90 YYjA/Ml9u1Tgmh8dwuR7u6o5c9kGeG7HbFIxnLd64M0mck+ErQpMgynb9m3b Tr7XtktT78Jvcj41HoGdKFkP4uHxJ+mu5J6wFjnr+QCWX73q+HNyL0WGeuWS Ph/qp7bDXA+9E22kvwMvghajnojz4+dEyT0UL1GpA6f2eembwePicpsPwfxr C/LClUifSnb7kfO18eTzBlK/q93oVTh2d9QpBXzvPIM48RFwYUbiBi9YSFFU 9wps1622kA9H9xUc9STnlBWoJoh7006q3NYKViwuVDKDZawsh+Rg/fKJ3CA4 vfFoVB/yVb19SfoJuWctBzRSST8/X+cj97RhmrLaYTg3dL6xHW6wOaIjBruo +F75DJft9ZEvxL0j1F/xoA225MS3+cCiIpq2FTDrmIKRKnkPNCvYPoM9Na90 fFuHem2Gy8NVyDnuFMiBGeLZOs4wc8uzK9dgf00t283kvcDbznGHm9pThJfA /e6maw7BVWmO6/pQLz3s4Iw1nP1HnVUpnFGxNd0BFpK3/Z5O3guFz4S9yX7n Qhbuwx6hnw9Hw5aRFgsJ8JS7se+f8NDDyTYOXDZ172037NTR+70ArvFuCFuK /KcuxA30wpLMy9WG5N4NU/kqhXyEfL+/PE7u9XkNr31wgmBNVDg8/tMg5jax 87r2R3C6htdwJ6l/NpL9J5yQtah1E96bHmITeq/gwmplViDsli5ckAmP5FFk y+G5pUs+kvdoV7dEJXUT+lq1quA38p6xCpPeB2dkfz26G05Wv1MVBkfrDelS yfNC3ZpZcHZJse571DM3rb6sDm76sOttCDxyh7fhMxln1d3Rg9Mt2v364cIX aVH9CljfwYDdBefWhdxMgBnTfF7vYdUED08bmOIv/DoDNkzsKpaCy4Tmn0fA +hu5pZ1r0Tc/2ZpjcMTDQXoOrN/B7taHEzryveNhExWfQjFYkkebEgaXpY1t 7Ue95h9jh0Pg3skSvjLYP0jn/g04uZjfPQNmzLxtTYGDxcddHsLWHTO9RTCz 0c8tBc6mxF/uh+em2AefwUOqigqSyC9vYPC3d3CDdff4dthOdoX/MJm/cEP8 DFzTvdRJDvnoePnGs2HrXEbGYdhkZEntK5guvsI9meS7kGTdCDtZuih9g/Pq dq3tI89LcrcbqOG8UxT/GoBVdZZ0hMFtwXuVuuDYlIvrGuBUjxVK5XBXDPXA SnV8HpNZwo/IfgEC3+xh6phxni9Zr0WwNBpmC0S+MYAV+fg0XsGqm19vmER9 GV8j+JvJ/Irle9NhmktR5gDM+vF+/AipP1hk1zDM7GNMU+F03bM+vbDJkeSd pfIYn7vlUwOLvtzBCYL9JxzEs+Cy9hvPtsFdIkVXIuFxv+KoxXDhu1ZHV3iE IydeLId7UV39+BbYM0o/jiVHfofo+lFhO7+dnSfh4FtjzEHUy/4Y1+IKJ99Y WVABF9ps0g2ADde7/siCy1TS3DmwjOH1Txx4pP7W5z44dZ9ZF3E2r2X0Cuyf 3MPsyoapGgx/Uzjha7BEtRp5L6cd9IXfNMVJTML+VudNHpD6Lrv00JCPvOxu pwoy3zJ0guTP4obPDMFu5wRNnpB+PJ7NECTnK6zbeRKeeu4QIQUzBK4yFDTw u4e6RkYGNu0aubULlnRu91kCK2pyIs/AhW/nHSawHpcp/jkGpri+0KuB91sE HMiEua33Zu/DTsUCtVVwrtbtX47BVCEXVjdsIqzHLwcPba/69oOMu36/mYb6 dQpSXvyEnTxOXReDBT9E/TMFs2LuvfJeQ6ecHm+RHYenotijravpFAXHZc8H 4LKkqZK9sN6IAbcFlt/5eEf9KtzXXpXry2ANrbdl7rD0EnXvLDhjX+ALWZgd qTqaCHf1CTj3rIRvrpe8BrtZSjaXwp53W7eeJfv7ZY+WwAkuMYXH4ZpTTsat MG33oYLDsEzHWlVhrBeUq69iS+bH/eTbDV/uHMgkpufyb7kDu21JfuUAMxzO 3vwbVnxixvyV9C/nuuMe5N90xJN5EfZnVVQ/hl0uTujdgYMTVJSn4L6+rfK5 MM1tdLkh+vE6s25pK+nfzrHPp+C8/JIqiib2m9iedQ02jzoxtxFm+ydmRcBq 9Slae2H5lyeN/OBwQyE+P9j/QOJXY7j35aw4G04WzYqYxH7u90XW/wVz7Y/R Y+Ctf73UrIX7OQ/0ZOGrusLuX2C37sWJUahHS2e96RhM04hzm0F/9BQ+hM+Q 5w36ZB3hFpE1lrMwa8nigJIVdAqvfvzQBMzIrzy0CW66dUnmG8mnvn57iizO d0d1fivcdHPQYCPsbfedUg5PCZ0PK5TB59bJo54N28XQArzgZCOjZ/fJfncm zA3hUAvh4WtwhkTu8Fo4sKCCcQ6uETVapwBv6Jdc70bWF7h97Bd46uyyCAcy ruE26w4/Lu3ztCP9sPZTfgpnR8cFHiL+PZsxD7/9R07sKHl+PWWDLfKLC1rQ PUPqH3s4/QesusI1J4Ssl9syuRj1eb7R5CH5+T+adz8Mq604Z54Pj9xcufg+ rLjRKqiLzHfMV/sAOyufPy6ohfqCP4n3wzEnTFM3wfLXTaeIW/S+VVjDyXGZ B6phZdGc0+fhqQLLj3dhrek1eokwtTrUyxIWeyYx+IrMXxVu3Yf8xLTCQz8S 0xXKfoU1KJ8NB2CNHqpoN+pbNb3n5iQZ/zGsYAE3ug1azmuRvtfdfr4ceYcb hxMLNeVoSsLGSSKZP+Ey39tFQdLYP0P/7BDcL/K6bFwK5yX4XnkbHPz0DD0A 3s/2bygn+enyMaXhuLXsvmy4yfSIbbkk7onzASeSYFq/lEUcfPl3v9JwMv+N xOogmLXN28Wf9Kfg66/BsHelwY2TxC327HtkvtW8gyPJt3jgUxWs5tyTZw/n +jraUrGfYafmHibJf/PXY0fhyEVPTriQ/sn6PH0JO587KO1Dnq+pDpRGPXki EpIs2HzrsfnTcG7g2+oUWD/J/vJreEOmsU8xqZ87W/EP/PJvs+EvZH2Bnu1q 6M/4sPOCiDbqP62uYwp/txgx04Y9j0stmMDcBTbTHtZPTVJWgsOlg2svwm49 266MYj22zoG9KTDbwWxVCqy42jOlkIyLaehsga26mOXN2uT3i5Xqa+Qvqt9L GYaFOJttteA5eZP30//un19E+vPvPzV0/v//DEn6/wDx3iTG "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {17.562441182905612`, 8.08102353656179}, \ {-1, -1}], LineBox[CompressedData[" 1:eJxFlgtcjOkexydJg9YmOTVR4nnfd+ZNbeVYXVf/Vp1NiG5EbReyFadTalMj ptLFGNvFhGYrmWxZyrYj3TZxCpUkRsQQ28UWR9jK6RSSfeacPY/5fObzfr6f Z553nsv///v9Fm+N8to+jcPhFOOv+vm/DwXT//s0BE64INNNiWDGT4/Pzo7D vEFc9nUZAjM3T6P5bzALbkn7sxGkJYSXhIp5wIlmZ0+mIJAITow1mxgBJyf4 4irMMv3xjJpazPLtR5oyEVTfb0nJ81iA39cYOnQKgdPYtO7eXzGblv1W1o5g n82iGO/QhcCRtZyLeIvA6NpJrqAbs+HOniXWFEjTpLPswBg4sGyNMJKCnuGo zfRhzLptjbfPUtCmRX+/4wbm4Lb2qBcU5ARGPoobwZzcM5HL0tCUMDVxhmMC nLoym/wQGtJeLV/p/w6Pn476xEBKw2396EuNTzBzH/mO1tFw433cze4GzDlW O0R3afiLw+fXN0owK99USJ7QcEQ/Litgg3p8y4XoARrEb3zDdsxTr08mXvCQ hhU/ZESbqPD64eAW7mUaXMYsDk3/AbPu443ORTQsq19oHJqAOWFqhlc0DQG6 lld1AzCr0letsKdB9diTC56Ye393dZmiwG9Q3rN9C2b5UKfePymwjdLI5AnV 53M5PyCJgs21B7SmV2A2tdPpd6bAMHTohGoCc3DWU/eZFMwoLg3y88Prk7/t 46oQbFjMqwu6rt5PQpGjAkFny0qrqTX4fHpvMEW5CPLlQ33HHmC2MvhXRCqC ey9EkdyoRXj+Oh3vZATf2nJ9Xmqa4v33VSZKEMhTXbXq1mNOcEiJLUbw8q5t UKEMMwQmOF5FIGDFB2MeqfnNK98RBAbpNsfceYvxeQgtOxgKPGoWvkpZh/nZ XzW9t1LgPe68vSsec4KXo28xBbxuD8uoPMy2L9GCPgquut3hDZdj7n12+IkJ DSGbak/FVqvnN4do+tFw2u7mg6wq9e9/fD1NQoOHwqJ1dZl6PCL2l0oatr3u YfVlmDk+daFKGr5bviWlOgnzxMHqhj4aLLp2bbfbhrkxtURjEP9+2Pm5ygWz SmPd9Mc0vDdu/aSfwczlfipoxfXln7WyaLb6fX6ywFIaPvz9kr7dGN5veOe3 xkIazHd873N6ALOb9st1LjS89o1cdexXzKqlAzYzaUgq/3rl+j7M3KHS8OsU +B86Enj+FeaJutJjEgrEpVfazLXx+4eTJalrKbjh6WNUboZZ8OXPj/UoGBRE 6pX4YbYqFC3pxf2mGSfl5ajXb/Z8fw2CW4uSDpfcUs93tmzPQ5Ack12UNn8J Xp/pmEc6ggurQ53OB2E2zJM/TEKwYixj49tyNR9IKjuAYLzyikxnArPqd4vw QgRI6aJ5whnhetjq+dlFBEn1Ybb7MzAbZqZInyG482FPWT2+d45i2XDVQgrM xT3iY7ivOUpv5LuJgr0NL/Y24nvnDJs9en6UgrB5IWEebpjlyQaXuyhIv5iW 2B6IeUPBiKE+DaPz092+2IFZ6YBWetCgMbtKiHZivnaopSKFhq5zyg0xuG44 tk+Nlp2loefAFQOxJ2ZZsf5oOw2OMc1Txvbqcf8z2T00BPO3zfncBHOyfMIa 36/D+Af8QWS86GHhyPU+ROY3Zdtr9Dcj8v5FexyfxVcg8v/FjpY/Zx5HZH2T /1mT8egIIuvXebGn9vJRRPYndElMW4775P/7z3tVJDtX+/F89rvOS3V68PH8 bgtN4yO0KHK+ZtPSfV0dKHL+oq9krfuEFLmfbusLk8GXKHJ/2usdw15r0+R+ r+kIz2j50OT+v6wraFwrp0l9iLKjQxKf06R+PutP/oe/FUPqa/WUJHIwiiH1 Z/hA+tL/R4bU5zJF+YBPF0Pqd3eA44o7Ewyp75O7dxavncsn9S/aeLJJYcIn /THrrLQhYjGf9E9n3jflm4z4H/vriPNQyyw+6b8vTu1qCvk3Q/qT85vtqPED hvRvwdxL8/kXGNLfq3lZ+S2FDOn/mI5SkXsyQ/ShYI7pvaEwhuiHwrPTtsaX Ifpys8qa2bWGIfpTWOa2+Tt3huiT/S/mg5/6MES/BphzypxwhujbkvGL+WZi huifYs2TuaJKhujj073XIqoHGaKfXar43ZmIT/RVzGuVbwvjE/0NFNW//UrB J/osaRsv15vkE/3OPQRtiW4Cou/nrGdlL88VEP0/WtT7lPNQQPxh467XSGnE Ev9ItLZQ3vFmib+Mrp+lyE1lif94Mo7v359miT9tdU+yi73CEv/qzLLU7ehk ib/pzbv/Lug+S/xPKXx2fPw2S/xxoGTXSId6/p/+GaAdUb+vgiX+uk3R0Dqc yxL/tdfyveG+myX+XBXfXHd7E0v8OzZ0IP+uPUv83VCz2VC6mCX+f3S8Vb5o DkvyQYNkINhrGkvyw/zKZM3yDwKSL6q92ua6arMkf/CSIs9f57Ekn2TNdPOO tGFJfjE/W7PnSRBL8s3I8Yp3O6UsyT9O3wz/7V4HS/JR4AGRNFvXjOSngv0L nar8zEi+qoxPa6BKzEj+qou00jo+bEby2YXm9p86HJaS/Bbsfj8mLnUpyXeJ Sw+ze5ox/5n/JjXUT3P4AyTj9Uc= "]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->8.247272727272728], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 8.247272727272728]& ], {9.154800000000002, 9.999999999999995}, \ {1, 0}], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {66, 0}, {0, 0}, {22, 22}]}, AspectRatio->NCache[ Rational[1, 4], 0.25], PlotRange->{{0, 88}, {0, 22}}]], "Print"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"amp9", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{ RowBox[{"CreateFeynAmp", "[", "diags9", "]"}], ",", RowBox[{"FermionChains", "\[Rule]", "VA"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"res9", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"1", "/", RowBox[{"(", RowBox[{ SuperscriptBox["2", "2"], "*", SuperscriptBox["8", "2"]}], ")"}]}], ")"}], RowBox[{"SquaredME", "[", "amp9", "]"}]}], "//.", RowBox[{"ColourME", "[", "amp9", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"res91", "=", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"PolarizationSum", "[", RowBox[{"res9", ",", RowBox[{"GaugeTerms", "\[Rule]", "False"}]}], "]"}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"p2_", ",", "m2_"}], "]"}], "\[RuleDelayed]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"p2", "-", "m2"}], ")"}]}]}], ",", RowBox[{"MU2", "\[Rule]", "0"}], ",", RowBox[{"MC2", "\[Rule]", "0"}], ",", RowBox[{"MC", "\[Rule]", "0"}], ",", RowBox[{"MU", "\[Rule]", "0"}], ",", RowBox[{"Alfas2", "\[Rule]", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["gS", "2"], "/", RowBox[{"(", RowBox[{"4", "\[Pi]"}], ")"}]}], ")"}], "2"]}]}], "}"}]}], "//", RowBox[{ RowBox[{"Simplify", "[", "#", "]"}], "&"}]}], "//", "Expand"}]}]}], "Input"], Cell["running FORM... running FORM... ", "Print"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"63", " ", SuperscriptBox["gS", "4"]}], "8"], "-", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["S", "2"]}], RowBox[{"4", " ", SuperscriptBox["T", "2"]}]], "-", FractionBox[ RowBox[{"63", " ", SuperscriptBox["gS", "4"], " ", "T"}], RowBox[{"8", " ", "S"}]], "+", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["S", "2"]}], RowBox[{"2", " ", SuperscriptBox["U", "2"]}]], "+", FractionBox[ RowBox[{"27", " ", SuperscriptBox["gS", "4"], " ", "S"}], RowBox[{"4", " ", "U"}]], "+", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", "T"}], RowBox[{"2", " ", "U"}]], "+", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["T", "2"]}], RowBox[{"4", " ", "S", " ", "U"}]], "-", FractionBox[ RowBox[{"63", " ", SuperscriptBox["gS", "4"], " ", "U"}], RowBox[{"8", " ", "S"}]], "-", FractionBox[ RowBox[{"27", " ", SuperscriptBox["gS", "4"], " ", "S", " ", "U"}], RowBox[{"4", " ", SuperscriptBox["T", "2"]}]], "+", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", "U"}], RowBox[{"2", " ", "T"}]], "-", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", "T", " ", "U"}], RowBox[{"2", " ", SuperscriptBox["S", "2"]}]], "+", FractionBox[ RowBox[{"9", " ", SuperscriptBox["gS", "4"], " ", SuperscriptBox["U", "2"]}], RowBox[{"4", " ", "S", " ", "T"}]]}]], "Output"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"res91", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"9", " ", SuperscriptBox["gS", "4"]}], " ", ")"}], "/", "2"}], " ", ")"}], RowBox[{"(", RowBox[{"3", "-", RowBox[{ RowBox[{"(", RowBox[{"T", " ", "U"}], ")"}], "/", SuperscriptBox["S", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"S", " ", "U"}], ")"}], "/", SuperscriptBox["T", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"S", " ", "T"}], ")"}], "/", SuperscriptBox["U", "2"]}]}], ")"}]}]}], ")"}], "//", RowBox[{ RowBox[{"Simplify", "[", RowBox[{"#", "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "]"}], "&"}]}]], "Input"], Cell[BoxData["0"], "Output"] }, Open ]] }, Open ]] }, Closed]] }, WindowSize->{1278, 994}, WindowMargins->{{495, Automatic}, {Automatic, 56}}, FrontEndVersion->"10.0 for Linux x86 (64-bit) (September 9, 2014)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 300, 8, 121, "Input"], Cell[CellGroupData[{ Cell[905, 34, 34, 0, 23, "Print"], Cell[942, 36, 46, 0, 23, "Print"], Cell[991, 38, 79, 0, 23, "Print"], Cell[1073, 40, 55, 0, 23, "Print"], Cell[1131, 42, 34, 0, 23, "Print"], Cell[1168, 44, 46, 0, 23, "Print"], Cell[1217, 46, 48, 0, 23, "Print"], Cell[1268, 48, 56, 0, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1373, 54, 55, 0, 67, "Section"], Cell[CellGroupData[{ Cell[1453, 58, 64, 0, 47, "Subsection"], Cell[CellGroupData[{ Cell[1542, 62, 1519, 44, 99, "Input"], Cell[3064, 108, 5519, 114, 188, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[8620, 227, 1720, 50, 121, "Input"], Cell[10343, 279, 49, 0, 23, "Print"], Cell[10395, 281, 258, 9, 49, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[10702, 296, 262, 11, 49, "Subsection"], Cell[CellGroupData[{ Cell[10989, 311, 1610, 47, 99, "Input"], Cell[12602, 360, 5519, 114, 188, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[18158, 479, 1738, 51, 121, "Input"], Cell[19899, 532, 49, 0, 23, "Print"], Cell[19951, 534, 258, 9, 49, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[20258, 549, 28, 0, 47, "Subsection"], Cell[CellGroupData[{ Cell[20311, 553, 1582, 46, 121, "Input"], Cell[21896, 601, 10999, 227, 188, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[32932, 833, 1738, 51, 121, "Input"], Cell[34673, 886, 49, 0, 23, "Print"], Cell[34725, 888, 600, 19, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35362, 912, 1050, 36, 62, "Input"], Cell[36415, 950, 28, 0, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[36492, 956, 232, 10, 49, "Subsection"], Cell[CellGroupData[{ Cell[36749, 970, 1636, 48, 121, "Input"], Cell[38388, 1020, 5589, 117, 188, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[44014, 1142, 1738, 51, 121, "Input"], Cell[45755, 1195, 49, 0, 23, "Print"], Cell[45807, 1197, 331, 11, 49, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[46187, 1214, 194, 9, 47, "Subsection"], Cell[CellGroupData[{ Cell[46406, 1227, 1679, 49, 143, "Input"], Cell[48088, 1278, 11134, 229, 188, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[59259, 1512, 1738, 51, 121, "Input"], Cell[61000, 1565, 49, 0, 23, "Print"], Cell[61052, 1567, 600, 19, 49, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61689, 1591, 1050, 36, 62, "Input"], Cell[62742, 1629, 28, 0, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[62819, 1635, 121, 6, 47, "Subsection"], Cell[CellGroupData[{ Cell[62965, 1645, 1530, 44, 143, "Input"], Cell[64498, 1691, 31908, 594, 128, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[96443, 2290, 1787, 53, 152, "Input"], Cell[98233, 2345, 65, 0, 23, "Print"], Cell[98301, 2347, 1326, 46, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99664, 2398, 955, 33, 62, "Input"], Cell[100622, 2433, 28, 0, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[100699, 2439, 116, 5, 47, "Subsection"], Cell[CellGroupData[{ Cell[100840, 2448, 1482, 43, 121, "Input"], Cell[102325, 2493, 29949, 561, 128, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[132311, 3059, 1909, 57, 152, "Input"], Cell[134223, 3118, 65, 0, 23, "Print"], Cell[134291, 3120, 1172, 40, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135500, 3165, 953, 33, 62, "Input"], Cell[136456, 3200, 28, 0, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[136533, 3206, 28, 0, 47, "Subsection"], Cell[CellGroupData[{ Cell[136586, 3210, 1429, 41, 99, "Input"], Cell[138018, 3253, 31035, 579, 128, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[169090, 3837, 1827, 54, 148, "Input"], Cell[170920, 3893, 65, 0, 23, "Print"], Cell[170988, 3895, 1527, 53, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[172552, 3953, 924, 32, 38, "Input"], Cell[173479, 3987, 28, 0, 32, "Output"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[173556, 3993, 28, 0, 47, "Subsection"], Cell[CellGroupData[{ Cell[173609, 3997, 1307, 37, 99, "Input"], Cell[174919, 4036, 72136, 1284, 98, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[247092, 5325, 1803, 54, 152, "Input"], Cell[248898, 5381, 49, 0, 23, "Print"], Cell[248950, 5383, 1641, 56, 50, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[250628, 5444, 860, 29, 38, "Input"], Cell[251491, 5475, 28, 0, 32, "Output"] }, Open ]] }, Open ]] }, Closed]] } ] *) (* End of internal cache information *)