(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 344749, 7853] NotebookOptionsPosition[ 339305, 7675] NotebookOutlinePosition[ 340390, 7712] CellTagsIndexPosition[ 340211, 7705] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"Load", " ", "FeynArts", " ", "and", " ", "FormCalc"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ "<<", "\"\\ \""}], "\[IndentingNewLine]", RowBox[{ "<<", "\"\\ \""}], "\n"}]}]], "Input", CellChangeTimes->{{3.4634682742722187`*^9, 3.4634682889179363`*^9}, { 3.463666001953456*^9, 3.463666006416147*^9}, {3.465539716931117*^9, 3.46553972071353*^9}, {3.4689075188441143`*^9, 3.468907529849032*^9}, { 3.469425155249784*^9, 3.46942515995168*^9}, {3.471787300641184*^9, 3.471787304833091*^9}, {3.540124990890944*^9, 3.540124993954651*^9}, { 3.573907116026257*^9, 3.573907118444072*^9}, {3.574063995175148*^9, 3.574063995253078*^9}, 3.574066890993726*^9, {3.5740679198327093`*^9, 3.574067920456141*^9}, {3.639390790353677*^9, 3.639390822975874*^9}, { 3.75178278570612*^9, 3.751782786167355*^9}, {3.751784220098384*^9, 3.751784227057734*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787062656*^9}}], Cell[BoxData["\<\"FeynArts 3.9 (23 Sep 2015)\"\>"], "Print", CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787063381*^9}}], Cell[BoxData["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>"], "Print", CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 3.639391611936617*^9, {3.7517827823945208`*^9, 3.75178278706432*^9}}], Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787098536*^9}}], Cell[BoxData["\<\"FormCalc 9.4 (7 Jun 2016)\"\>"], "Print", CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787100523*^9}}], Cell[BoxData["\<\"by Thomas Hahn\"\>"], "Print", CellChangeTimes->{{3.639390793164406*^9, 3.639390823941383*^9}, 3.639391611936617*^9, {3.7517827823945208`*^9, 3.751782787103208*^9}}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"Ask", " ", "for", " ", "tree"}], "-", RowBox[{"level", " ", "amplitudes", " ", "for", " ", "2"}]}], "\[Rule]", RowBox[{"2", " ", "process"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tree", " ", "=", " ", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{ 3.544348838516971*^9, {3.751784232391736*^9, 3.7517842614437313`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Insert", " ", "particles", " ", "into", " ", "the", " ", "generic", " ", "amplitudes"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"instree", " ", "=", " ", RowBox[{"InsertFields", "[", RowBox[{"tree", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"V", "[", "5", "]"}], ",", RowBox[{"V", "[", "5", "]"}]}], "}"}]}], ",", RowBox[{"Model", "\[Rule]", "SMQCD"}], ",", RowBox[{"InsertionLevel", "\[Rule]", "Particles"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.468577023475312*^9, 3.46857704094656*^9}, { 3.518346879876877*^9, 3.518346885643848*^9}, {3.518432278357397*^9, 3.518432278564756*^9}, {3.523877351365882*^9, 3.523877379830977*^9}, { 3.523879280487521*^9, 3.523879281917865*^9}, {3.523879473276319*^9, 3.5238794745562363`*^9}, {3.523881019422226*^9, 3.5238810228971643`*^9}, { 3.523881058423822*^9, 3.523881061531026*^9}, 3.5239525413819103`*^9, 3.540130262320133*^9, {3.544348949965809*^9, 3.544349016042832*^9}, { 3.5443494902342863`*^9, 3.5443494973868637`*^9}, {3.5443510182267447`*^9, 3.544351071697852*^9}, {3.5443526000284567`*^9, 3.5443526089250393`*^9}, { 3.544423627292789*^9, 3.5444236276022177`*^9}, {3.544431441667838*^9, 3.544431446064337*^9}, {3.544432352180706*^9, 3.544432354341776*^9}, { 3.5772016349940453`*^9, 3.577201694891657*^9}, {3.6393908384160757`*^9, 3.639390839308447*^9}, {3.751782846375349*^9, 3.7517829090477753`*^9}, { 3.751784245775297*^9, 3.751784258739746*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{ 3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, { 3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, { 3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 3.7517829093584013`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}], SequenceForm[ "inserting at level(s) ", {Generic, FeynArts`Classes, FeynArts`Particles}], Editable->False]], "Print", CellChangeTimes->{ 3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, { 3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, { 3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 3.7517829093592463`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \ insertions\"\>"}], SequenceForm[ "> Top. ", 1, ": ", "0 Generic, 0 Classes, 0 Particles insertions"], Editable->False]], "Print", CellChangeTimes->{ 3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, { 3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, { 3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 3.751782909360215*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \ insertions\"\>"}], SequenceForm[ "> Top. ", 2, ": ", "1 Generic, 1 Classes, 1 Particles insertions"], Editable->False]], "Print", CellChangeTimes->{ 3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, { 3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, { 3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 3.751782909361312*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \ insertions\"\>"}], SequenceForm[ "> Top. ", 3, ": ", "1 Generic, 1 Classes, 1 Particles insertions"], Editable->False]], "Print", CellChangeTimes->{ 3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, { 3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, { 3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 3.75178290936483*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \ insertions\"\>"}], SequenceForm[ "> Top. ", 4, ": ", "1 Generic, 1 Classes, 1 Particles insertions"], Editable->False]], "Print", CellChangeTimes->{ 3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, { 3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, { 3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 3.751782909365841*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"3 Generic, 3 Classes, 3 Particles \ insertions\"\>"}], SequenceForm["in total: ", "3 Generic, 3 Classes, 3 Particles insertions"], Editable->False]], "Print", CellChangeTimes->{ 3.544351072400465*^9, {3.544352601494471*^9, 3.544352609303382*^9}, 3.544353908558062*^9, 3.544360557283512*^9, 3.544421412025062*^9, 3.5444236279605827`*^9, 3.544423905847308*^9, 3.544424289736141*^9, 3.5444282841757603`*^9, 3.544431446410029*^9, 3.5444315378080807`*^9, 3.544432355567573*^9, 3.544432672739711*^9, 3.544437277347026*^9, 3.544440124923192*^9, 3.544441618256769*^9, 3.544441752315093*^9, 3.54444208899535*^9, 3.5444559187883997`*^9, 3.544466717973839*^9, 3.544466859918168*^9, 3.5445044257504883`*^9, 3.5445271087236834`*^9, 3.544679730248795*^9, 3.54476215788533*^9, 3.5447783772918367`*^9, { 3.5447864100839443`*^9, 3.5447864357346478`*^9}, 3.54478689476645*^9, 3.5448469041784773`*^9, 3.5448792510672693`*^9, 3.544889539877274*^9, 3.544889643435213*^9, 3.544889711002945*^9, 3.544889931499401*^9, 3.54493336369207*^9, 3.544944078876289*^9, 3.544944284661381*^9, 3.544957462691832*^9, 3.544966043251598*^9, 3.54496788492985*^9, 3.544969414495615*^9, 3.544984341006261*^9, 3.545022449042007*^9, 3.545048177278736*^9, 3.545049112529908*^9, 3.545068057027852*^9, 3.545115017248439*^9, 3.545120508960235*^9, 3.545121757084784*^9, 3.5451245179461603`*^9, 3.545129648182748*^9, 3.5451512786244373`*^9, 3.545224742202235*^9, 3.545225226444415*^9, 3.5452253033494883`*^9, 3.5453111467949877`*^9, 3.545368538535329*^9, 3.5453929108381023`*^9, 3.545562224647738*^9, 3.5455684556597*^9, 3.545578838834771*^9, 3.545582117588799*^9, 3.545653069258449*^9, 3.5456566736088753`*^9, 3.545912400151318*^9, 3.545964789769589*^9, 3.545965062948511*^9, 3.5459652944314613`*^9, 3.545966644504068*^9, 3.5459667330233192`*^9, 3.545966857986045*^9, 3.566294248366315*^9, 3.566729363171029*^9, 3.566803135520102*^9, 3.5739071487357473`*^9, 3.573907468069016*^9, 3.574053310368126*^9, 3.574056174976266*^9, 3.574063261326782*^9, 3.574064002981614*^9, 3.574065769245076*^9, 3.57406690412223*^9, 3.57406766153759*^9, 3.5740679586266537`*^9, 3.5740682590596333`*^9, 3.574068500353347*^9, 3.574068972132563*^9, 3.5740691381329927`*^9, 3.5741666780004597`*^9, 3.574430440839301*^9, 3.574430622456065*^9, 3.574435875585174*^9, 3.57469148286794*^9, 3.57501126958565*^9, 3.5759533064958572`*^9, 3.5766850811859694`*^9, 3.576685372530753*^9, { 3.577201648535158*^9, 3.577201695272801*^9}, 3.577514185339875*^9, 3.577521657966448*^9, 3.639390839573243*^9, 3.639390871131586*^9, 3.63939161260919*^9, 3.751782857091515*^9, {3.751782889400587*^9, 3.751782909366754*^9}}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Paint", "[", "instree", "]"}]], "Input", CellChangeTimes->{{3.544349023487143*^9, 3.5443490283024673`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"3 diagrams\"\>"}], SequenceForm["> Top. ", 1, ": ", "3 diagrams"], Editable->False]], "Print", CellChangeTimes->{ 3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, { 3.7517828908677883`*^9, 3.751782910533724*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"3 diagrams\"\>"}], SequenceForm["> Top. ", 2, ": ", "3 diagrams"], Editable->False]], "Print", CellChangeTimes->{ 3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, { 3.7517828908677883`*^9, 3.7517829105350237`*^9}}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"3 diagrams\"\>"}], SequenceForm["> Top. ", 3, ": ", "3 diagrams"], Editable->False]], "Print", CellChangeTimes->{ 3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, { 3.7517828908677883`*^9, 3.7517829105365467`*^9}}], Cell[BoxData[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, ImageScaled[{1, 1}]], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, { 5.999999999994543, 9.999999999994543}}], PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, { 3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 8.191399151637638}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], LineBox[CompressedData[" 1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30 4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7 7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy 3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+ friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15 7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV 2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX /pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4 p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+ XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh 0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H YYABMg== "]], InsetBox[ TagBox[ StyleBox[ TagBox["V", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.0548}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "G1", " ", "N1"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, ImageScaled[{1, 1}]], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, { 5.999999999994543, 9.999999999994543}}], PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, { 3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 8.191399151637638}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.0548}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C1", " ", "N2"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {2.6125141805200567, 11.914057016624067}, ImageScaled[{1, 1}]], LineBox[{{-9.094947017729282*^-12, 4.999999999992724}, { 5.999999999994543, 9.999999999994543}}], PolygonBox[{{2.5390672322415746`, 7.1158893602013125`}, { 3.7170065276242172`, 7.576822127959737}, {3.2048590078926336`, 8.191399151637638}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.0548}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "P1", " ", "N3"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{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["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.3048, 9.999999999999995}, ImageScaled[{1, Rational[1, 2]}]], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T2", " ", "G1", " ", "N4"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{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["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.0548, 9.999999999999995}, ImageScaled[{1, Rational[1, 2]}]], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T2", " ", "C1", " ", "N5"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{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["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.0548, 9.999999999999995}, ImageScaled[{1, Rational[1, 2]}]], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T2", " ", "P1", " ", "N6"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{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["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.937558817093933, 13.081023536561336}, ImageScaled[{1, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.562441182905612, 8.08102353656179}, ImageScaled[{0, 0}]], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.404800000000002, 9.999999999999995}, ImageScaled[{1, Rational[1, 2]}]], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T3", " ", "G1", " ", "N7"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{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["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.937558817093933, 13.081023536561336}, ImageScaled[{1, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.562441182905612, 8.08102353656179}, ImageScaled[{0, 0}]], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.154800000000002, 9.999999999999995}, ImageScaled[{1, Rational[1, 2]}]], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T3", " ", "C1", " ", "N8"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {4.84576923551745, 13.562492355174513}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{-7.503331289626658*^-12, 5.000000000003638}, { 9.999999999988404, 6.}}], PolygonBox[{{4.402977685874006, 5.440297768587401}, {5.636823801734393, 5.161687355328604}, {5.557220826517594, 5.9577171074965944`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.937558817093933, 13.081023536561336}, ImageScaled[{1, 0}]], 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->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.562441182905612, 8.08102353656179}, ImageScaled[{0, 0}]], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}], PolygonBox[{{10., 9.399999999999995}, {9.6, 10.599999999999994`}, {10.4, 10.599999999999994`}}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.154800000000002, 9.999999999999995}, ImageScaled[{1, Rational[1, 2]}]], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T3", " ", "P1", " ", "N9"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {24., 69.96}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[ TagBox[ StyleBox[ TagBox["u", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {28.5, 69.96}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[ TagBox[ StyleBox[ TagBox["\[RightArrow]", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {33., 69.96}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {37.5, 69.96}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]], InsetBox[ TagBox[ StyleBox[ TagBox["g", DisplayForm], FontFamily->"Helvetica", FontSize->11.996033057851239`], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 11.996033057851239`]& ], {42., 69.96}, ImageScaled[{Rational[1, 2], Rational[1, 2]}]]}, AspectRatio->1.0999999999999999`, ImageSize->{288, 288}, PlotRange->{{0, 66}, {0, 72.6}}]], "Print", CellChangeTimes->{ 3.544352610240374*^9, 3.544353910673113*^9, 3.544360559125368*^9, 3.5444214138519382`*^9, 3.5444236302713423`*^9, 3.544423907799592*^9, 3.544424291226694*^9, 3.5444282858057547`*^9, 3.544431539679368*^9, 3.544432674211968*^9, 3.544437278904558*^9, 3.544440126421893*^9, 3.54444161963295*^9, 3.5444417526484528`*^9, 3.544442089395879*^9, 3.544455919197729*^9, 3.544466718171224*^9, 3.5444668601794252`*^9, 3.544504426000061*^9, 3.544527109073193*^9, 3.544679730488729*^9, 3.54476215959405*^9, 3.544778379150762*^9, {3.5447864108883038`*^9, 3.544786435992139*^9}, 3.544786895004149*^9, 3.544846904908997*^9, 3.5448792512838573`*^9, 3.544889540128921*^9, 3.544889644274811*^9, 3.544889711851852*^9, 3.5448899322252817`*^9, 3.544933363934273*^9, 3.5449440795949783`*^9, 3.5449442853651457`*^9, 3.544957464418797*^9, 3.544966043903159*^9, 3.544967885583473*^9, 3.544969416293215*^9, 3.544984344597169*^9, 3.545022449715149*^9, 3.5450481792014627`*^9, 3.5450491132703733`*^9, 3.545068059083371*^9, 3.545115018899324*^9, 3.545120510820163*^9, 3.5451217577923527`*^9, 3.545124518148224*^9, 3.545129648411487*^9, 3.5451512792681026`*^9, 3.5452247423746777`*^9, 3.5452252266338863`*^9, 3.545225304025168*^9, 3.545311147048562*^9, 3.545368538844521*^9, 3.545392911649214*^9, 3.545562224960844*^9, 3.545568456010529*^9, 3.545578839554665*^9, 3.545582117825852*^9, 3.5456530695686483`*^9, 3.545656673814673*^9, 3.545912402004636*^9, 3.5459647902626457`*^9, 3.545965063245913*^9, 3.545965294804119*^9, 3.5459666448471746`*^9, 3.5459667332695637`*^9, 3.5459668582449093`*^9, 3.566294250302294*^9, 3.566729365014666*^9, 3.566803137116536*^9, 3.573907150787015*^9, 3.573907469879387*^9, 3.5740533123694057`*^9, 3.574056176583688*^9, 3.574063263063229*^9, 3.574064004589128*^9, 3.574065770925765*^9, 3.5740669058881407`*^9, 3.574067664560121*^9, 3.574067960711941*^9, 3.574068259295003*^9, 3.5740685019556007`*^9, 3.574068972320813*^9, 3.574069138348518*^9, 3.57416667980842*^9, 3.574430442944812*^9, 3.574430624142643*^9, 3.574435877377796*^9, 3.574691483087967*^9, 3.575011269956427*^9, 3.575953306673934*^9, 3.5766850816975613`*^9, 3.5766853732994013`*^9, {3.577201651355555*^9, 3.577201696142481*^9}, 3.577514185617489*^9, 3.5775216583783627`*^9, 3.639390842506504*^9, 3.639390873264174*^9, 3.639391612836019*^9, { 3.7517828908677883`*^9, 3.751782910667581*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"FeynArtsGraphics", "[", RowBox[{ RowBox[{"{", RowBox[{"\<\"u\"\>", ",", "\<\"u\"\>"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"\<\"g\"\>", ",", "\<\"g\"\>"}], "}"}]}], "]"}], "[", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G1 N1\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 G1 N1", "]"], Editable->False], InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N2\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 C1 N2", "]"], Editable->False], InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N3\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 P1 N3", "]"], Editable->False]}, { InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 G1 N4\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 G1 N4", "]"], Editable->False], InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 C1 N5\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 C1 N5", "]"], Editable->False], InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 P1 N6\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 P1 N6", "]"], Editable->False]}, { InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T3 G1 N7\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T3 G1 N7", "]"], Editable->False], InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T3 C1 N8\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T3 C1 N8", "]"], Editable->False], InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T3 P1 N9\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T3 P1 N9", "]"], Editable->False]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], "]"}]], "Output", CellChangeTimes->{ 3.54434902903172*^9, 3.544349501114208*^9, 3.544349924740225*^9, { 3.5443510204149103`*^9, 3.5443510740130777`*^9}, {3.544352603789734*^9, 3.544352610463797*^9}, 3.544353910861651*^9, 3.5443605594521*^9, 3.544421414095154*^9, 3.544423630462803*^9, 3.544423908128598*^9, 3.544424291465847*^9, 3.544428285976355*^9, 3.544431539897418*^9, 3.544432674417766*^9, 3.544437279132515*^9, 3.544440126600431*^9, 3.544441619831958*^9, 3.5444417527973137`*^9, 3.544442089522257*^9, 3.5444559194134693`*^9, 3.544466718261837*^9, 3.544466860323759*^9, 3.5445044261661043`*^9, 3.5445271093077793`*^9, 3.5446797307833776`*^9, 3.5447621598900347`*^9, 3.544778379331201*^9, {3.544786411177494*^9, 3.544786436190906*^9}, 3.544786895217174*^9, 3.544846905223381*^9, 3.544879251514142*^9, 3.544889540355603*^9, 3.544889644517748*^9, 3.544889712068019*^9, 3.544889932411522*^9, 3.544933364103704*^9, 3.54494407990781*^9, 3.544944285611891*^9, 3.544957464614003*^9, 3.544966044167049*^9, 3.544967885767524*^9, 3.5449694164702473`*^9, 3.544984345111309*^9, 3.545022449946577*^9, 3.54504817937052*^9, 3.54504911353714*^9, 3.545068059310388*^9, 3.545115019103861*^9, 3.54512051100974*^9, 3.5451217580312862`*^9, 3.545124518299301*^9, 3.5451296485453587`*^9, 3.54515127950727*^9, 3.545224742542913*^9, 3.5452252267606573`*^9, 3.5452253042621613`*^9, 3.545311147189931*^9, 3.545368539018231*^9, 3.545392911941742*^9, 3.545562225146181*^9, 3.545568456170101*^9, 3.54557883981968*^9, 3.545582118019966*^9, 3.545653069726852*^9, 3.5456566739809723`*^9, 3.54591240231647*^9, 3.545964790424246*^9, 3.5459650633945227`*^9, 3.5459652950658417`*^9, 3.545966644968745*^9, 3.545966733464631*^9, 3.545966858412745*^9, 3.56629425047576*^9, 3.566729365133562*^9, 3.56680313733496*^9, 3.57390715097182*^9, 3.5739074700888357`*^9, 3.574053312558915*^9, 3.574056176750208*^9, 3.5740632632095823`*^9, 3.574064004753079*^9, 3.5740657711305933`*^9, 3.574066906041996*^9, 3.5740676646844797`*^9, 3.574067960911901*^9, 3.574068259528693*^9, 3.5740685020602427`*^9, 3.5740689724513693`*^9, 3.574069138448431*^9, 3.574166680016651*^9, 3.574430443169115*^9, 3.5744306242585993`*^9, 3.574435877689062*^9, 3.574691483292399*^9, 3.575011270156187*^9, 3.575953306834338*^9, 3.5766850819176407`*^9, 3.5766853735523157`*^9, {3.577201651540936*^9, 3.577201696307725*^9}, 3.5775141858436127`*^9, 3.577521658523286*^9, 3.639390842769829*^9, 3.639390873388139*^9, 3.639391612923332*^9, { 3.751782891095708*^9, 3.7517829106698513`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"feynamp", "=", RowBox[{"CreateFeynAmp", "[", "instree", "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.544350780672267*^9, 3.544350812271162*^9}, { 3.5447785439410143`*^9, 3.5447785865271597`*^9}, {3.544969308502781*^9, 3.544969312862899*^9}, {3.544969490967451*^9, 3.544969539913645*^9}, { 3.5449697951723022`*^9, 3.544969799036089*^9}, 3.544984433607854*^9, { 3.573907195588002*^9, 3.573907204560914*^9}, {3.574166979752173*^9, 3.574166983787244*^9}, {3.5772017256088333`*^9, 3.577201729132174*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\"\"\>"], "Print", CellChangeTimes->{ 3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 3.751782918342229*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"creating amplitudes at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}], SequenceForm[ "creating amplitudes at level(s) ", { Generic, FeynArts`Classes, FeynArts`Particles}], Editable->False]], "Print", CellChangeTimes->{ 3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 3.751782918345093*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \ amplitudes\"\>"}], SequenceForm[ "> Top. ", 1, ": ", "1 Generic, 1 Classes, 1 Particles amplitudes"], Editable->False]], "Print", CellChangeTimes->{ 3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 3.751782918394712*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \ amplitudes\"\>"}], SequenceForm[ "> Top. ", 2, ": ", "1 Generic, 1 Classes, 1 Particles amplitudes"], Editable->False]], "Print", CellChangeTimes->{ 3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 3.7517829183963346`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"1 Generic, 1 Classes, 1 Particles \ amplitudes\"\>"}], SequenceForm[ "> Top. ", 3, ": ", "1 Generic, 1 Classes, 1 Particles amplitudes"], Editable->False]], "Print", CellChangeTimes->{ 3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 3.7517829183978243`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"3 Generic, 3 Classes, 3 Particles \ amplitudes\"\>"}], SequenceForm["in total: ", "3 Generic, 3 Classes, 3 Particles amplitudes"], Editable->False]], "Print", CellChangeTimes->{ 3.5447785869561987`*^9, 3.544786438349606*^9, 3.544786897527239*^9, 3.544846908657111*^9, 3.544879252824584*^9, 3.544889541682708*^9, 3.544889648485244*^9, 3.5448897159604797`*^9, 3.5448899360333347`*^9, 3.5449333653913116`*^9, 3.544944083519781*^9, 3.544944288877034*^9, 3.54495747492099*^9, 3.544966047788794*^9, 3.544967888876851*^9, 3.544969313196828*^9, 3.5449694282527313`*^9, {3.544969491622759*^9, 3.544969499775406*^9}, {3.544969532231579*^9, 3.544969540635085*^9}, 3.544969799387527*^9, 3.544984362160047*^9, 3.54498443435445*^9, 3.545022453190938*^9, 3.545048188422804*^9, 3.545049117100746*^9, 3.545068072248817*^9, 3.5451150284815817`*^9, 3.545120519869611*^9, 3.545121761786703*^9, 3.545124519706122*^9, 3.545129650310095*^9, 3.5451512827504*^9, 3.545224743738428*^9, 3.5452252287767878`*^9, 3.545225307645391*^9, 3.5453111486067457`*^9, 3.545368540094117*^9, 3.5453929155058613`*^9, 3.5455622262378473`*^9, 3.545568457378862*^9, 3.545578843190461*^9, 3.5455821193428783`*^9, 3.5456530708406*^9, 3.5456566753531103`*^9, 3.5459124139759197`*^9, 3.5459647916970367`*^9, 3.545965064860924*^9, 3.545965296236432*^9, 3.545966646451585*^9, 3.5459667348522863`*^9, 3.54596685979918*^9, 3.566294259613723*^9, 3.56672937618511*^9, 3.566803146658513*^9, 3.573907205444044*^9, 3.5739075144031467`*^9, 3.573907981924358*^9, 3.574053319348001*^9, 3.574056182861518*^9, 3.5740632704457483`*^9, 3.57406332924646*^9, 3.574064012950664*^9, 3.57406578540845*^9, 3.574066915083428*^9, 3.574067674786996*^9, 3.574067970699834*^9, 3.574068261688143*^9, 3.574068509728929*^9, 3.5740689741674337`*^9, 3.5740691400310173`*^9, 3.574166984709778*^9, 3.5744304569947033`*^9, 3.574430636586199*^9, 3.574435892605795*^9, 3.5746914857208767`*^9, 3.5750112722631493`*^9, 3.575953308650037*^9, 3.5766850843489428`*^9, 3.5766853796851273`*^9, 3.577201729957986*^9, 3.577514185916556*^9, 3.57752165859744*^9, 3.639390844812155*^9, 3.639390879065446*^9, 3.639391613025927*^9, 3.751782918400433*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"feynamp", "=", RowBox[{"feynamp", "//.", RowBox[{"MU", "\[Rule]", "0", RowBox[{"(*", RowBox[{"fermion", " ", "mass", " ", "to", " ", "zero"}], "*)"}]}]}]}]], "Input", CellChangeTimes->{{3.566803147948325*^9, 3.5668031491679907`*^9}, { 3.7517830277765217`*^9, 3.751783043664007*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"FeynAmpList", "[", RowBox[{ RowBox[{"Process", "\[Rule]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{"1", ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], ",", "0", ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", " ", "Charge"}], "3"], ",", FractionBox[ RowBox[{"2", " ", "ColorCharge"}], SqrtBox["3"]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{"1", ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False]}], "}"}]}], "]"}]}], ",", InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], ",", "0", ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "Charge"}], "3"]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "ColorCharge"}], SqrtBox["3"]]}]}], "}"}]}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], ",", "0", ",", RowBox[{"{", RowBox[{ SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], ",", "0", ",", RowBox[{"{", RowBox[{ SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}]}]}], ",", RowBox[{"Model", "\[Rule]", RowBox[{"{", "\<\"SMQCD\"\>", "}"}]}], ",", RowBox[{"GenericModel", "\[Rule]", RowBox[{"{", "\<\"Lorentz\"\>", "}"}]}], ",", RowBox[{"AmplitudeLevel", "\[Rule]", RowBox[{"{", RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}], ",", RowBox[{"ExcludeParticles", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"ExcludeFieldPoints", "\[Rule]", RowBox[{"{", "}"}]}], ",", RowBox[{"LastSelections", "\[Rule]", RowBox[{"{", "}"}]}]}], "]"}], "[", RowBox[{ RowBox[{"FeynAmp", "[", RowBox[{ RowBox[{"GraphID", "[", RowBox[{ RowBox[{"Topology", "\[Equal]", "1"}], ",", RowBox[{"Generic", "\[Equal]", "1"}]}], "]"}], ",", RowBox[{"Integral", "[", "]"}], ",", RowBox[{ RowBox[{"-", "RelativeCF"}], " ", RowBox[{ RowBox[{ OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], ",", "0"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Lor", 3], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Lor", 3], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", RowBox[{"\<\"u\"\>", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], ",", "0"}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], "-", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False]}], ")"}], "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Lor", 4], Editable->False], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], ")"}]}], "-", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False]}], ")"}], "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Lor", 4], Editable->False]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], "+", RowBox[{"2", " ", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], ")"}]}]}], ")"}], "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Lor", 4], Editable->False]}], "]"}]}]}], ")"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Lor", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Lor", 4], Editable->False]}], "]"}], " ", FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], "+", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"Mass", "[", RowBox[{ RowBox[{"V", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}], "2"]}]], " ", RowBox[{ TemplateBox[{"\"ep\"","\"*\""}, "Superscript"], "[", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False]}], "]"}], " ", RowBox[{ TemplateBox[{"\"ep\"","\"*\""}, "Superscript"], "[", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False]}], "]"}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "VVV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Mom", "[", "1", "]"}]}], "+", RowBox[{"Mom", "[", "2", "]"}]}], ")"}], "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ RowBox[{"KI1", "[", "1", "]"}], ",", RowBox[{"KI1", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mom", "[", "1", "]"}], "-", RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", RowBox[{"KI1", "[", "2", "]"}], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ RowBox[{"KI1", "[", "1", "]"}], ",", RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Mom", "[", "2", "]"}]}], "+", RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", RowBox[{"KI1", "[", "1", "]"}], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ RowBox[{"KI1", "[", "2", "]"}], ",", RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}]}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mass", "[", RowBox[{ RowBox[{"V", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "VVV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Mom", "[", "1", "]"}]}], "+", RowBox[{"Mom", "[", "2", "]"}]}], ")"}], "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ RowBox[{"KI1", "[", "1", "]"}], ",", RowBox[{"KI1", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Mom", "[", "1", "]"}], "-", RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", RowBox[{"KI1", "[", "2", "]"}], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ RowBox[{"KI1", "[", "1", "]"}], ",", RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Mom", "[", "2", "]"}]}], "+", RowBox[{"Mom", "[", "3", "]"}]}], ")"}], "[", RowBox[{"KI1", "[", "1", "]"}], "]"}], " ", RowBox[{"\<\"g\"\>", "[", RowBox[{ RowBox[{"KI1", "[", "2", "]"}], ",", RowBox[{"KI1", "[", "3", "]"}]}], "]"}]}]}], "]"}], ",", "RelativeCF"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "[", "Classes", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{"GS", " ", RowBox[{"SUNF", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False], ",", "8"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", "8", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", "8", ",", "External"}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "[", "Particles", "]"}], "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{"GS", " ", RowBox[{"SUNF", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Glu", 5], Editable->False], ",", "8"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", "8", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", "8", ",", "External"}], "]"}]}]}], "}"}], "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"FeynAmp", "[", RowBox[{ RowBox[{"GraphID", "[", RowBox[{ RowBox[{"Topology", "\[Equal]", "2"}], ",", RowBox[{"Generic", "\[Equal]", "1"}]}], "]"}], ",", RowBox[{"Integral", "[", "]"}], ",", RowBox[{"RelativeCF", " ", RowBox[{ RowBox[{ OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], ",", "0"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"\<\"gs\"\>", "[", RowBox[{ RowBox[{"-", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], ")"}]}], "+", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ RowBox[{"F", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", RowBox[{"\<\"u\"\>", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], ",", "0"}], "]"}]}], " ", FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], "-", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"Mass", "[", RowBox[{ RowBox[{"F", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}], "2"]}]], " ", RowBox[{ TemplateBox[{"\"ep\"","\"*\""}, "Superscript"], "[", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False]}], "]"}], " ", RowBox[{ TemplateBox[{"\"ep\"","\"*\""}, "Superscript"], "[", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mass", "[", RowBox[{ RowBox[{"F", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", "RelativeCF"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "[", "Classes", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", "3"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", "8", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", "8", ",", "External"}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "[", "Particles", "]"}], "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", "3"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", "8", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", "8", ",", "External"}], "]"}]}]}], "}"}], "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"FeynAmp", "[", RowBox[{ RowBox[{"GraphID", "[", RowBox[{ RowBox[{"Topology", "\[Equal]", "3"}], ",", RowBox[{"Generic", "\[Equal]", "1"}]}], "]"}], ",", RowBox[{"Integral", "[", "]"}], ",", RowBox[{"RelativeCF", " ", RowBox[{ RowBox[{ OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], ",", "0"}], "]"}], ".", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{"\<\"gs\"\>", "[", RowBox[{ RowBox[{"-", RowBox[{"(", InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], ")"}]}], "+", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False]}], "]"}], "+", RowBox[{"Mass", "[", RowBox[{ RowBox[{"F", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}]}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}]}], "+", RowBox[{ RowBox[{ RowBox[{"\<\"ga\"\>", "[", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], " ", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}]}]}], ")"}], ".", RowBox[{"\<\"u\"\>", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], ",", "0"}], "]"}]}], " ", FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], "-", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"Mass", "[", RowBox[{ RowBox[{"F", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}], "2"]}]], " ", RowBox[{ TemplateBox[{"\"ep\"","\"*\""}, "Superscript"], "[", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False]}], "]"}], " ", RowBox[{ TemplateBox[{"\"ep\"","\"*\""}, "Superscript"], "[", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], "}"}]}], "]"}], ",", InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Mass", "[", RowBox[{ RowBox[{"F", "[", InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], "]"}], ",", "Internal"}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"-\"\>"]}], "]"}], ",", RowBox[{ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], "[", RowBox[{ RowBox[{"\<\"ga\"\>", "[", RowBox[{"KI1", "[", "3", "]"}], "]"}], ".", SubscriptBox["\<\"om\"\>", "\<\"+\"\>"]}], "]"}], ",", "RelativeCF"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "[", "Classes", "]"}], "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", "3"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", "8", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", "8", ",", "External"}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "[", "Particles", "]"}], "[", RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "GS", " ", RowBox[{"SUNT", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False]}], "]"}]}], ",", RowBox[{ RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Col", 5], Editable->False], ",", "3"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Col", 1], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Col\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Col", 2], Editable->False], ",", "3", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "3"}], SequenceForm["Glu", 3], Editable->False], ",", "8", ",", "External"}], "]"}], " ", RowBox[{"SumOver", "[", RowBox[{ InterpretationBox[ RowBox[{"\<\"Glu\"\>", "\[InvisibleSpace]", "4"}], SequenceForm["Glu", 4], Editable->False], ",", "8", ",", "External"}], "]"}]}]}], "}"}], "]"}]}], "]"}]}]}], "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7517830439694653`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}]], "Input", CellChangeTimes->{{3.544350814931781*^9, 3.544350834247435*^9}, { 3.544350951135695*^9, 3.544350966270033*^9}, {3.544353209647768*^9, 3.5443532289616423`*^9}, 3.544353475446724*^9, {3.544354571801016*^9, 3.54435457872165*^9}, 3.5443575006640778`*^9, {3.544436587247713*^9, 3.5444365922940187`*^9}, {3.5447786045624313`*^9, 3.544778645034512*^9}, { 3.544969210504223*^9, 3.5449692440248938`*^9}, {3.544985610128456*^9, 3.544985618629727*^9}, 3.545049105048513*^9, {3.573907249701189*^9, 3.5739072500385017`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"calcamp", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{"feynamp", ",", RowBox[{"FermionChains", "\[Rule]", "Chiral"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.573907324125579*^9, 3.573907340858029*^9}, { 3.57416701081278*^9, 3.574167021495356*^9}, {3.577201757482095*^9, 3.577201760721751*^9}, {3.577202302113838*^9, 3.57720230728693*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\"\\npreparing FORM code in /home/stefan/fc-amp-1.frm\"\>"], \ "Print", CellChangeTimes->{3.639390850825698*^9, 3.6393908828863153`*^9, 3.639391613206305*^9, 3.751782927200081*^9, 3.751783054119586*^9}], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{3.639390850825698*^9, 3.6393908828863153`*^9, 3.639391613206305*^9, 3.751782927200081*^9, 3.7517830541324463`*^9}], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{3.639390850825698*^9, 3.6393908828863153`*^9, 3.639391613206305*^9, 3.751782927200081*^9, 3.7517830541837482`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Amp", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{"1", ",", "Col1"}], "}"}]}], "]"}], ",", RowBox[{"k", "[", "1", "]"}], ",", "0", ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"2", " ", "Charge"}], "3"], ",", FractionBox[ RowBox[{"2", " ", "ColorCharge"}], SqrtBox["3"]]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"F", "[", RowBox[{"3", ",", RowBox[{"{", RowBox[{"1", ",", "Col2"}], "}"}]}], "]"}]}], ",", RowBox[{"k", "[", "2", "]"}], ",", "0", ",", RowBox[{"{", RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "Charge"}], "3"]}], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "ColorCharge"}], SqrtBox["3"]]}]}], "}"}]}], "}"}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", "Glu3", "}"}]}], "]"}], ",", RowBox[{"k", "[", "3", "]"}], ",", "0", ",", RowBox[{"{", RowBox[{ SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"V", "[", RowBox[{"5", ",", RowBox[{"{", "Glu4", "}"}]}], "]"}], ",", RowBox[{"k", "[", "4", "]"}], ",", "0", ",", RowBox[{"{", RowBox[{ SqrtBox["3"], " ", "ColorCharge"}], "}"}]}], "}"}]}], "}"}]}], "]"}], "[", RowBox[{ RowBox[{ RowBox[{"-", "Alfas"}], " ", "Pair1", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", " ", "SUN1"}], "]"}]}], "+", RowBox[{"8", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Pair2", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"Pair4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", " ", "SUN1"}], "]"}]}], "+", RowBox[{"Alfas", " ", "Pair5", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", " ", "SUN1"}], "]"}]}], "-", RowBox[{"Alfas", " ", "Pair1", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", " ", "SUN1"}], "]"}]}], "+", RowBox[{"Alfas", " ", "Pair5", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F5", " ", "SUN1"}], "]"}]}], "+", RowBox[{"8", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Pair2", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"Pair4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F6", " ", "SUN1"}], "]"}]}], "-", RowBox[{"4", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F7", " ", "SUN1"}], "]"}]}], "-", RowBox[{"4", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F8", " ", "SUN1"}], "]"}]}], "+", RowBox[{"Alfas", " ", "Pair1", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", " ", "SUN2"}], "]"}]}], "-", RowBox[{"8", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Pair2", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"Pair3", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F2", " ", "SUN2"}], "]"}]}], "-", RowBox[{"Alfas", " ", "Pair5", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F3", " ", "SUN2"}], "]"}]}], "+", RowBox[{"Alfas", " ", "Pair1", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F4", " ", "SUN2"}], "]"}]}], "-", RowBox[{"Alfas", " ", "Pair5", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F5", " ", "SUN2"}], "]"}]}], "-", RowBox[{"8", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"(", RowBox[{ RowBox[{"Pair2", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"Pair3", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F6", " ", "SUN2"}], "]"}]}], "-", RowBox[{"4", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F7", " ", "SUN2"}], "]"}]}], "-", RowBox[{"4", " ", "Alfas", " ", "\[Pi]", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"F8", " ", "SUN2"}], "]"}]}]}], "]"}]], "Output", CellChangeTimes->{3.577201762033195*^9, 3.577202024704954*^9, 3.577202310405793*^9, 3.577514187433276*^9, 3.577521660318305*^9, 3.639390851378312*^9, 3.639390883268354*^9, 3.639391613520774*^9, 3.7517829273212023`*^9, 3.7517830541899557`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"squaredamp", "=", RowBox[{"SquaredME", "[", "calcamp", "]"}]}]], "Input", CellChangeTimes->{{3.751782937344153*^9, 3.7517829531586103`*^9}, { 3.7517830565823507`*^9, 3.7517830572955914`*^9}}], Cell[BoxData[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ RowBox[{"Alfas2", " ", "Pair1", " ", SuperscriptBox["\[Pi]", "2"], " ", TemplateBox[{"Pair1","\"*\""}, "Superscript"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], "2"], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F1"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"SUN1", ",", "SUN1"}], "]"}]}], "-", RowBox[{"8", " ", "Alfas2", " ", "Pair1", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ TemplateBox[{"Pair2","\"*\""}, "Superscript"], " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{ TemplateBox[{"Pair4","\"*\""}, "Superscript"], " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F2"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"SUN1", ",", "SUN1"}], "]"}]}], "-", RowBox[{"Alfas2", " ", "Pair1", " ", SuperscriptBox["\[Pi]", "2"], " ", TemplateBox[{"Pair5","\"*\""}, "Superscript"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"8", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{"4", " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}], "2"], " ", RowBox[{"Mat", "[", RowBox[{"F1", ",", "F3"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"SUN1", ",", "SUN1"}], "]"}]}], "+", TemplateBox[{"368"}, "OutputSizeLimit`Skeleton", DisplayFunction->(FrameBox[ RowBox[{"\" \[CenterEllipsis]\"", #, "\"\[CenterEllipsis] \""}], Background -> GrayLevel[0.75], BaseStyle -> { "Deploy", FontColor -> GrayLevel[1], FontSize -> Smaller, ShowStringCharacters -> False}, BaselinePosition -> Baseline, ContentPadding -> False, FrameMargins -> {{1, 1}, {1, 2}}, FrameStyle -> None, RoundingRadius -> 7]& )], "+", RowBox[{"32", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ TemplateBox[{"Pair2","\"*\""}, "Superscript"], " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "+", RowBox[{ TemplateBox[{"Pair3","\"*\""}, "Superscript"], " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Mat", "[", RowBox[{"F8", ",", "F6"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"SUN2", ",", "SUN2"}], "]"}]}], "+", RowBox[{"16", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], "2"], " ", RowBox[{"Mat", "[", RowBox[{"F8", ",", "F7"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"SUN2", ",", "SUN2"}], "]"}]}], "+", RowBox[{"16", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], "2"], " ", RowBox[{"Mat", "[", RowBox[{"F8", ",", "F8"}], "]"}], " ", RowBox[{"Mat", "[", RowBox[{"SUN2", ",", "SUN2"}], "]"}]}]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], StandardForm], ImageSizeCache->{74., {2., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarCategory", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], StandardForm]], DynamicUpdating -> True, StripOnInput -> False]], Annotation[#, Style[ Dynamic[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], DynamicUpdating -> True], "Tooltip"]& ], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{67., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], StandardForm], ImageSizeCache->{67., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 30, 25643995604795655419, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm], ImageSizeCache->{73., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 30, 25643995604795655419, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm], ImageSizeCache->{56., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], StandardForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 30, 25643995604795655419, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{100., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], StandardForm], ImageSizeCache->{100., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>FrontEndExecute[{ FrontEnd`SetOptions[ FrontEnd`$FrontEnd, FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], FrontEnd`FrontEndToken["PreferencesDialog"]}], Evaluator->None, Method->"Preemptive"]} }, AutoDelete->False, FrameStyle->GrayLevel[0.85], GridBoxDividers->{"Columns" -> {False, {True}}}, GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, GridBoxSpacings->{"Columns" -> {{2}}}]} }, DefaultBaseStyle->"Column", GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxDividers->{ "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, "RowsIndexed" -> {}}, GridBoxItemSize->{ "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], Offset[1.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Background->RGBColor[0.9657, 0.9753, 0.9802], FrameMargins->{{12, 12}, {0, 15}}, FrameStyle->GrayLevel[0.85], RoundingRadius->5, StripOnInput->False], Deploy, DefaultBaseStyle->"Deploy"], Out[30]]], "Output", CellChangeTimes->{{3.751782942685714*^9, 3.751782953766111*^9}, 3.7517830577355433`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ "FormCalc", " ", "introduces", " ", "quite", " ", "a", " ", "few", " ", "abbreviations"}], ",", " ", RowBox[{"saved", " ", "in", " ", "GenericList"}], ",", " ", RowBox[{"Abbr", " ", "and", " ", "Subexpr"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"GenericList", "[", "]"}]}]], "Input", CellChangeTimes->{{3.75178295897217*^9, 3.751782961150473*^9}, { 3.751784297913835*^9, 3.751784316763062*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.751782961478998*^9, 3.7517830596184483`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Abbr", "[", "]"}]], "Input", CellChangeTimes->{{3.751782963072033*^9, 3.7517829643982983`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"F1", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 6, ",", FormCalc`ec[3], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"F2", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 6, ",", FormCalc`ec[4], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"F3", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 6, ",", FormCalc`k[3], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"F4", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 7, ",", FormCalc`ec[3], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"F6", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 7, ",", FormCalc`ec[4], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"F5", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 7, ",", FormCalc`k[3], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"F8", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", RowBox[{"-", "7"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", -7, ",", FormCalc`ec[3], ",", FormCalc`ec[4], ",", FormCalc`k[3], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"F7", "\[Rule]", InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", RowBox[{"-", "6"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "3", "]"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"ec", "[", "4", "]"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"k", "[", "3", "]"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", -6, ",", FormCalc`ec[3], ",", FormCalc`ec[4], ",", FormCalc`k[3], "|", "u", 2, ">"], Editable->False]}], ",", RowBox[{"Pair5", "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"ec", "[", "3", "]"}], ",", RowBox[{"ec", "[", "4", "]"}]}], "]"}]}], ",", RowBox[{"Pair3", "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"ec", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], ",", RowBox[{"Pair4", "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"ec", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ",", RowBox[{"Pair2", "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"ec", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", RowBox[{"Pair1", "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"ec", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", RowBox[{"SUN3", "\[Rule]", RowBox[{ RowBox[{"SUNT", "[", RowBox[{"Col1", ",", "Col2"}], "]"}], " ", RowBox[{"SUNT", "[", RowBox[{"Glu3", ",", "Glu4", ",", "0", ",", "0"}], "]"}]}]}], ",", RowBox[{"SUN1", "\[Rule]", RowBox[{"SUNT", "[", RowBox[{"Glu3", ",", "Glu4", ",", "Col2", ",", "Col1"}], "]"}]}], ",", RowBox[{"SUN2", "\[Rule]", RowBox[{"SUNT", "[", RowBox[{"Glu4", ",", "Glu3", ",", "Col2", ",", "Col1"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.751782964736003*^9, 3.751783060466107*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Subexpr", "[", "]"}]], "Input", CellChangeTimes->{{3.751782965983369*^9, 3.7517829684943857`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.7517829688145037`*^9, 3.751783061285932*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"colreplace", "=", RowBox[{"ColourME", "[", "All", "]"}]}], ";", RowBox[{"(*", RowBox[{"Color", " ", "sum"}], "*)"}]}]], "Input", CellChangeTimes->{{3.5444335778418903`*^9, 3.544433581753845*^9}, { 3.5444336378342237`*^9, 3.544433641517828*^9}, {3.751783926011231*^9, 3.751783929251068*^9}}], Cell[CellGroupData[{ Cell[BoxData["colreplace"], "Input", CellChangeTimes->{{3.751782984728109*^9, 3.751782986303569*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN1", ",", "SUN3"}], "]"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN1", ",", "SUN1"}], "]"}], "\[Rule]", FractionBox["16", "3"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN1", ",", "SUN2"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["2", "3"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN2", ",", "SUN3"}], "]"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN2", ",", "SUN1"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["2", "3"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN2", ",", "SUN2"}], "]"}], "\[Rule]", FractionBox["16", "3"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN3", ",", "SUN3"}], "]"}], "\[Rule]", "6"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN3", ",", "SUN1"}], "]"}], "\[Rule]", "2"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"SUN3", ",", "SUN2"}], "]"}], "\[Rule]", "2"}]}], "}"}]], "Output", CellChangeTimes->{3.751782986488277*^9, 3.751783062779357*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"_Hel", "=", "0"}], ";"}], RowBox[{"(*", RowBox[{ RowBox[{ "This", " ", "setting", " ", "requires", " ", "normalization", " ", "factors", " ", "later"}], ",", " ", RowBox[{"see", " ", RowBox[{"later", "!"}]}]}], "*)"}]}], "\n", RowBox[{ RowBox[{"helreplace", "=", RowBox[{"HelicityME", "[", "All", "]"}]}], ";", RowBox[{"(*", RowBox[{"Helicity", " ", "sum", " ", "for", " ", "quarks"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.577202510415681*^9, 3.5772025322360897`*^9}, { 3.7517838999876537`*^9, 3.751783939739694*^9}, {3.752410727262287*^9, 3.7524107284795723`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "64", "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}], SequenceForm["> ", 64, " helicity matrix elements"], Editable->False]], "Print", CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.751783065261155*^9}], Cell[BoxData["\<\"\\npreparing FORM code in /home/stefan/fc-hel-1.frm\"\>"], \ "Print", CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.7517830652621307`*^9}], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.751783065295026*^9}], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{{3.5772025126168003`*^9, 3.577202532477003*^9}, 3.577203516480094*^9, 3.577203654807176*^9, 3.5775141877196207`*^9, 3.577514557652302*^9, 3.5775216610545397`*^9, 3.6393909017339697`*^9, 3.6393916161384897`*^9, 3.7517830085301723`*^9, 3.751783065454852*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["helreplace"], "Input", CellChangeTimes->{{3.7517830099974337`*^9, 3.751783012870324*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F1"}], "]"}], "\[Rule]", FractionBox["Abb2", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F2"}], "]"}], "\[Rule]", FractionBox["Abb4", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F3"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb6", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F4"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F6"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F5"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F8"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F1", ",", "F7"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb10", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F1"}], "]"}], "\[Rule]", FractionBox["Abb12", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F2"}], "]"}], "\[Rule]", FractionBox["Abb14", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F3"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb16", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F4"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F6"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F5"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F8"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F2", ",", "F7"}], "]"}], "\[Rule]", FractionBox["Abb19", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F1"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb21", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F2"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb23", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F3"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"T", " ", "U"}], "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F4"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F6"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F5"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F8"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F3", ",", "F7"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb25", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F4"}], "]"}], "\[Rule]", FractionBox["Abb26", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F6"}], "]"}], "\[Rule]", FractionBox["Abb27", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F5"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb28", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F8"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb29", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F4", ",", "F7"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F4"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb30", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F6"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb31", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F5"}], "]"}], "\[Rule]", FractionBox[ RowBox[{"T", " ", "U"}], "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F8"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb32", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F5", ",", "F7"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F4"}], "]"}], "\[Rule]", FractionBox["Abb33", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F6"}], "]"}], "\[Rule]", FractionBox["Abb34", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F5"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb35", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F8"}], "]"}], "\[Rule]", FractionBox["Abb36", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F6", ",", "F7"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F1"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb40", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F2"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb43", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F3"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb45", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F4"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F6"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F5"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F8"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F7", ",", "F7"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb48", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F1"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F2"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F3"}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F4"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb49", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F6"}], "]"}], "\[Rule]", FractionBox["Abb50", "4"]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F5"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb51", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F8"}], "]"}], "\[Rule]", RowBox[{"-", FractionBox["Abb52", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "[", RowBox[{"F8", ",", "F7"}], "]"}], "\[Rule]", "0"}]}], "}"}]], "Output", CellChangeTimes->{3.7517830130022507`*^9, 3.751783066041079*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"squaredampcolhel", "=", RowBox[{ RowBox[{"squaredamp", "//.", "colreplace"}], "//.", "helreplace"}]}], ";"}]], "Input", CellChangeTimes->{{3.751783139496719*^9, 3.751783176162669*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"polresult", "=", RowBox[{"PolarizationSum", "[", "squaredampcolhel", "]"}], RowBox[{"(*", RowBox[{ RowBox[{"Polarization", " ", "sum", " ", "for", " ", "gluons"}], ",", " ", RowBox[{"introduces", " ", "unphyiscal", " ", "vectors", " ", RowBox[{"eta", "[", "3", "]"}], " ", "and", " ", RowBox[{"eta", "[", "4", "]"}]}]}], "*)"}]}]], "Input", CellChangeTimes->{{3.751783072777648*^9, 3.751783100717993*^9}, { 3.751783178719594*^9, 3.7517831793981237`*^9}, {3.75178394378732*^9, 3.75178396320294*^9}}], Cell[CellGroupData[{ Cell[BoxData["\<\"\\npreparing FORM code in /home/stefan/fc-pol-1.frm\"\>"], \ "Print", CellChangeTimes->{{3.751783088980714*^9, 3.751783101182513*^9}, 3.751783179826161*^9}], Cell[BoxData["\<\"running FORM... \"\>"], "Print", CellChangeTimes->{{3.751783088980714*^9, 3.751783101182513*^9}, 3.751783179852663*^9}], Cell[BoxData["\<\"ok\\n\"\>"], "Print", CellChangeTimes->{{3.751783088980714*^9, 3.751783101182513*^9}, 3.7517831806281652`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"-", "Alfas2"}], " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"96", " ", RowBox[{"(", RowBox[{ RowBox[{"Abb87", " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}], "2"]}], "+", RowBox[{"Abb98", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}], " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"96", " ", "Abb110", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}]}], "-", RowBox[{ FractionBox["32", "3"], " ", "Abb121", " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}]}], ")"}], " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}], "+", RowBox[{ FractionBox["128", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"Abb106", " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], "2"]}], "+", RowBox[{"Abb120", " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}], "2"]}]}], ")"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.751783089739462*^9, 3.7517831019058847`*^9}, 3.7517831806301394`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Dependence", " ", "on", " ", "unphysical", " ", "vectors", " ", RowBox[{"eta", "!"}], " ", "It", " ", "should", " ", "cancel"}], ",", " ", RowBox[{ "but", " ", "it", " ", "is", " ", "not", " ", "at", " ", "all", " ", RowBox[{"obvious", "!"}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"polresultabbr", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"polresult", "//.", RowBox[{"Abbr", "[", "]"}]}], "//.", RowBox[{"Subexpr", "[", "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7517831050608797`*^9, 3.751783111850029*^9}, { 3.751783204346951*^9, 3.7517832891971207`*^9}, {3.751783348513802*^9, 3.751783360713526*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"32", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "T"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"S", "+", RowBox[{"2", " ", "U"}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "U"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["T", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"S", "+", "U"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"S", "+", RowBox[{"2", " ", "U"}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"U", " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{"2", " ", "T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["U", "2"], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"S", "-", "U"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"9", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "2"], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", RowBox[{"2", " ", "T", " ", "U"}], "+", RowBox[{"U", " ", RowBox[{"(", RowBox[{"S", "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"S", " ", "T"}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}], "2"]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "S"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}], "2"]}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"], "+", RowBox[{"S", " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "U"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S", " ", "T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "2"], " ", "T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"S", " ", SuperscriptBox["T", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{"S", " ", "T", " ", "U", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["T", "3"], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["S", "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}], "2"]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", RowBox[{"T", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "T"}], "+", "U"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "S"}], " ", "T"}], "+", SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["S", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{"S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["T", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "S"}], "+", "T"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "-", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"S", "+", RowBox[{"2", " ", "T"}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", "T", " ", SuperscriptBox["U", "2"], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", SuperscriptBox["T", "2"], " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T", "+", "U"}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["T", "2"]}], "+", RowBox[{"T", " ", "U"}], "-", SuperscriptBox["U", "2"], "+", RowBox[{"S", " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "T"}], " ", "U", " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"S", "+", RowBox[{"2", " ", "U"}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"S", "+", RowBox[{"2", " ", "T"}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"S", " ", RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}]}], "-", RowBox[{"U", " ", RowBox[{"(", RowBox[{"T", "+", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"S", " ", RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}]}], "+", RowBox[{"T", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", "T"}], "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"S", " ", RowBox[{"(", RowBox[{ RowBox[{"S", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T", "+", "U"}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], "-", RowBox[{"9", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"S", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "2"], " ", "U", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", RowBox[{ SuperscriptBox["S", "2"], " ", "T", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{ SuperscriptBox["T", "3"], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{"S", " ", SuperscriptBox["U", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{"T", " ", SuperscriptBox["U", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "-", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{"S", " ", "T", " ", "U", " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["T", "2"], " ", "U", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["U", "3"], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"U", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "S"}], "+", "U"}], ")"}]}]}], ")"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"eta", "[", "4", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "-", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{"S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox["T", "2"], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "-", RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "S"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"T", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}], "-", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{"U", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], "-", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}]}], "+", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "+", RowBox[{"2", " ", RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ")"}]}], ")"}], "/", RowBox[{"(", RowBox[{"3", " ", SuperscriptBox[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "2"], " ", SuperscriptBox[ RowBox[{"Pair", "[", RowBox[{ RowBox[{"eta", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], "2"]}], ")"}]}]], "Output", CellChangeTimes->{ 3.751783112250515*^9, {3.751783208305397*^9, 3.75178323564016*^9}, { 3.751783268660411*^9, 3.751783289767082*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "S"}]], "Input", CellChangeTimes->{{3.751783972454905*^9, 3.751783972586548*^9}}], Cell[BoxData[ StyleBox["\<\"S is the Mandelstam variable s. If k1 and k2 are the incoming \ momenta,\\nS = (k1 + k2)^2 = S12.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.751783972970894*^9}, CellTags->"Info863751787572-5941233"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "T"}]], "Input", CellChangeTimes->{{3.751783477163307*^9, 3.7517834774126043`*^9}}], Cell[BoxData[ StyleBox["\<\"T is the Mandelstam variable t. If k1 denotes the first \ incoming and\\nk3 the first outgoing momentum, T = (k1 - k3)^2 = T13.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.751783477879846*^9}, CellTags->"Info583751787077-5941233"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"?", "U"}]], "Input", CellChangeTimes->{{3.7517834852973833`*^9, 3.7517834855880957`*^9}}], Cell[BoxData[ StyleBox["\<\"U is the Mandelstam variable u. If k2 denotes the first \ incoming and\\nk3 the second outgoing momentum, U = (k2 - k3)^2 = T23.\"\>", "MSG"]], "Print", "PrintUsage", CellChangeTimes->{3.751783486091339*^9}, CellTags->"Info593751787086-5941233"] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"replacemandelstam", "=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "3", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "2", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "3", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "1", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "4", "]"}], ",", RowBox[{"k", "[", "2", "]"}]}], "]"}], "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "2", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "4", "]"}], ",", RowBox[{"k", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "1", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "4", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]", RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "3", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]", RowBox[{"S", "/", "2"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "1", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "T"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "1", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "U"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "2", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "T"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "2", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"-", "U"}], "/", "2"}]}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "3", "]"}], ",", RowBox[{"k", "[", "3", "]"}]}], "]"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Pair", "[", RowBox[{ RowBox[{"k", "[", "4", "]"}], ",", RowBox[{"k", "[", "4", "]"}]}], "]"}], "\[Rule]", "0"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ "These", " ", "replacements", " ", "by", " ", "hand", " ", "are", " ", "needed", " ", "after", " ", "my", " ", "cheap", " ", "trick", " ", "in", " ", "the", " ", "next", " ", "step"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.7517835424843884`*^9, 3.7517837108680677`*^9}, { 3.751784133478595*^9, 3.7517841502184553`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Cheap", " ", "trick", " ", "of", " ", "setting", " ", "the", " ", "eta", " ", "vectors", " ", "to", " ", "the", " ", "momentum", " ", "of", " ", "the", " ", "\"\\"", " ", "particle", " ", "not", " ", "to", " ", "introduce", " ", "new", " ", "vectors"}], "*)"}], "\[IndentingNewLine]", RowBox[{"result", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{"polresultabbr", "//.", RowBox[{ RowBox[{"eta", "[", "3", "]"}], "\[Rule]", RowBox[{"k", "[", "4", "]"}]}]}], "//.", RowBox[{ RowBox[{"eta", "[", "4", "]"}], "\[Rule]", RowBox[{"k", "[", "3", "]"}]}]}], "//.", "replacemandelstam"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.751783292610141*^9, 3.7517833197291718`*^9}, { 3.751783364977634*^9, 3.751783399989702*^9}, {3.751783467953638*^9, 3.751783536948264*^9}, {3.7517837267260437`*^9, 3.751783734199691*^9}, { 3.751784074947802*^9, 3.7517840819144363`*^9}}], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"3", " ", SuperscriptBox["S", "2"]}]], RowBox[{"64", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "18"}], " ", SuperscriptBox["S", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"], "+", RowBox[{"S", " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}], "2"]}], "-", RowBox[{"8", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "2"], " ", RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}]}], "+", RowBox[{"S", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", RowBox[{"T", " ", "U"}], "-", RowBox[{"2", " ", SuperscriptBox["U", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", "U", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["S", "4"], "-", RowBox[{ SuperscriptBox["S", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["S", "3"], " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}], "+", RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}], "2"]}], "+", RowBox[{"S", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "3"], "+", RowBox[{ SuperscriptBox["T", "2"], " ", "U"}], "+", RowBox[{"T", " ", SuperscriptBox["U", "2"]}], "+", SuperscriptBox["U", "3"]}], ")"}]}]}], ")"}], " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}], " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}], "-", RowBox[{"8", " ", "U", " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "2"], " ", "U"}], "-", RowBox[{"2", " ", "T", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "+", SuperscriptBox["U", "2"]}], ")"}]}], "+", RowBox[{"S", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox["T", "2"]}], "+", RowBox[{"2", " ", "T", " ", "U"}], "+", SuperscriptBox["U", "2"]}], ")"}]}]}], ")"}], " ", SuperscriptBox[ RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}], "2"]}], "-", RowBox[{"9", " ", RowBox[{"Den", "[", RowBox[{"S", ",", "0"}], "]"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "3"], " ", RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}]}], "+", RowBox[{ SuperscriptBox["S", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}], "2"]}], "-", RowBox[{"2", " ", "T", " ", SuperscriptBox["U", "2"], " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}], "+", RowBox[{"2", " ", "S", " ", "U", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "-", RowBox[{"T", " ", "U"}], "+", SuperscriptBox["U", "2"]}], ")"}]}]}], ")"}], " ", RowBox[{"Den", "[", RowBox[{"T", ",", "0"}], "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["S", "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}], "2"]}], "+", RowBox[{ SuperscriptBox["S", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "T"}], "+", "U"}], ")"}]}], "-", RowBox[{"2", " ", SuperscriptBox["T", "2"], " ", "U", " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}], "+", RowBox[{"2", " ", "S", " ", "T", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "-", RowBox[{"T", " ", "U"}], "+", SuperscriptBox["U", "2"]}], ")"}]}]}], ")"}], " ", RowBox[{"Den", "[", RowBox[{"U", ",", "0"}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",\ CellChangeTimes->{{3.751783295369604*^9, 3.751783321365961*^9}, { 3.751783375358136*^9, 3.751783387920353*^9}, {3.7517835188105383`*^9, 3.751783559552219*^9}, {3.751783603696245*^9, 3.751783642904619*^9}, { 3.751783682687953*^9, 3.751783735295989*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"result", "//.", RowBox[{ RowBox[{"Den", "[", RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]}]}], "]"}]], "Input", CellChangeTimes->{{3.751784378697485*^9, 3.7517843798024406`*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"64", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "5"], "+", RowBox[{ SuperscriptBox["S", "4"], " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}]}], "+", RowBox[{"8", " ", SuperscriptBox["S", "2"], " ", "U", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["T", "2"]}], "-", RowBox[{"3", " ", "T", " ", "U"}], "+", SuperscriptBox["U", "2"]}], ")"}]}], "+", RowBox[{"8", " ", SuperscriptBox["S", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "2"], "-", RowBox[{"4", " ", "T", " ", "U"}], "+", RowBox[{"2", " ", SuperscriptBox["U", "2"]}]}], ")"}]}], "+", RowBox[{"18", " ", "T", " ", "U", " ", RowBox[{"(", RowBox[{ SuperscriptBox["T", "3"], "+", RowBox[{ SuperscriptBox["T", "2"], " ", "U"}], "+", RowBox[{"T", " ", SuperscriptBox["U", "2"]}], "+", SuperscriptBox["U", "3"]}], ")"}]}]}], ")"}]}], RowBox[{"3", " ", SuperscriptBox["S", "3"], " ", "T", " ", "U"}]]], "Output", CellChangeTimes->{3.751784380279482*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"1", "/", "9"}], " ", "color", " ", "average"}], ",", " ", RowBox[{ RowBox[{"1", "/", "4"}], " ", "spin", " ", "average"}], ",", " ", RowBox[{ RowBox[{"4", " ", "due", " ", "to", " ", "Hel"}], "=", "0"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"resultbyFormCalc", "=", RowBox[{ RowBox[{"1", "/", "9"}], "*", RowBox[{"1", "/", "4"}], "*", "4", "*", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"result", "//.", RowBox[{ RowBox[{"Den", "[", RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]}]}], "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "]"}], RowBox[{"(*", RowBox[{ RowBox[{ "Final", " ", "result", " ", "modulo", " ", "normalization", " ", "factors"}], ",", " ", RowBox[{ "obtained", " ", "within", " ", "a", " ", "few", " ", "minutes"}]}], "*)"}]}]}]}]], "Input", CellChangeTimes->{{3.7517837362111073`*^9, 3.751783773595598*^9}, { 3.751784096695706*^9, 3.751784111434415*^9}, {3.751784356763977*^9, 3.7517843577149982`*^9}, {3.7517853269292088`*^9, 3.751785336356799*^9}, { 3.7517854240738173`*^9, 3.7517854347968893`*^9}, {3.751785611019767*^9, 3.751785611492565*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"128", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"17", " ", SuperscriptBox["S", "3"], " ", "T"}], "+", RowBox[{"35", " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["T", "2"]}], "+", RowBox[{"36", " ", "S", " ", SuperscriptBox["T", "3"]}], "+", RowBox[{"18", " ", SuperscriptBox["T", "4"]}]}], ")"}]}], RowBox[{"27", " ", SuperscriptBox["S", "2"], " ", "T", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.7517837492362432`*^9, 3.7517837739852953`*^9}, 3.7517853368740053`*^9, {3.751785436448731*^9, 3.751785465668173*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ "Result", " ", "by", " ", "hand", " ", "obtained", " ", "in", " ", "a", " ", "few", " ", "hours"}], "*)"}], "\[IndentingNewLine]", RowBox[{"resultbyhand", "=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"g", "^", "4"}], "*", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"32", "/", "27"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"U", "^", "2"}], "+", RowBox[{"T", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"U", "*", "T"}], ")"}]}]}], "-", RowBox[{ RowBox[{"8", "/", "3"}], "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"U", "^", "2"}], "+", RowBox[{"T", "^", "2"}]}], ")"}], "/", RowBox[{"S", "^", "2"}]}]}]}], ")"}]}], "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"-", "S"}], "-", "T"}]}]}], "//.", RowBox[{ RowBox[{"g", "^", "4"}], "\[Rule]", RowBox[{"16", "*", RowBox[{"\[Pi]", "^", "2"}], "*", "Alfas2"}]}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.751785158324072*^9, 3.751785241965035*^9}, { 3.751785277748499*^9, 3.751785293441681*^9}, {3.7517861304547462`*^9, 3.751786138089566*^9}}], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"128", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", RowBox[{"2", " ", "S", " ", "T"}], "+", RowBox[{"2", " ", SuperscriptBox["T", "2"]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"9", " ", "S", " ", "T"}], "+", RowBox[{"9", " ", SuperscriptBox["T", "2"]}]}], ")"}]}], RowBox[{"27", " ", SuperscriptBox["S", "2"], " ", "T", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.751785197999853*^9, 3.7517852185260983`*^9}, 3.751785293892817*^9, 3.751785337979587*^9, 3.75178546332295*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Expand", "[", "resultbyFormCalc", "]"}], "\[IndentingNewLine]", RowBox[{"Expand", "[", "resultbyhand", "]"}]}], "Input", CellChangeTimes->{{3.751785338920055*^9, 3.751785390268628*^9}, { 3.751785467108508*^9, 3.7517854672762527`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2176", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", "S"}], RowBox[{"27", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]]}], "-", FractionBox[ RowBox[{"512", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["S", "2"]}], RowBox[{"27", " ", "T", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]], "-", FractionBox[ RowBox[{"4480", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", "T"}], RowBox[{"27", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]], "-", FractionBox[ RowBox[{"512", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["T", "2"]}], RowBox[{"3", " ", "S", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]], "-", FractionBox[ RowBox[{"256", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["T", "3"]}], RowBox[{"3", " ", SuperscriptBox["S", "2"], " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.751785344758294*^9, 3.7517853908969717`*^9}, 3.7517854676699038`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2176", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", "S"}], RowBox[{"27", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]]}], "-", FractionBox[ RowBox[{"512", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["S", "2"]}], RowBox[{"27", " ", "T", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]], "-", FractionBox[ RowBox[{"4480", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", "T"}], RowBox[{"27", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]], "-", FractionBox[ RowBox[{"512", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["T", "2"]}], RowBox[{"3", " ", "S", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]], "-", FractionBox[ RowBox[{"256", " ", "Alfas2", " ", SuperscriptBox["\[Pi]", "2"], " ", SuperscriptBox["T", "3"]}], RowBox[{"3", " ", SuperscriptBox["S", "2"], " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]]}]], "Output", CellChangeTimes->{{3.751785344758294*^9, 3.7517853908969717`*^9}, 3.751785467672824*^9}] }, Open ]] }, AutoGeneratedPackage->None, WindowSize->{1855, 1028}, WindowMargins->{{0, Automatic}, {0, 28}}, PrintingPageRange->{1, 1}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{594.3000000000001, 840.51}, "PostScriptOutputFile"->"/home/stefan/Projekte/Higgsstrahlung/ggToHZ-5-5.nb.\ ps"}, ShowSelection->True, FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "Info863751787572-5941233"->{ Cell[319370, 7068, 246, 4, 60, "Print", CellTags->"Info863751787572-5941233"]}, "Info583751787077-5941233"->{ Cell[319768, 7081, 279, 5, 60, "Print", CellTags->"Info583751787077-5941233"]}, "Info593751787086-5941233"->{ Cell[320201, 7095, 280, 5, 60, "Print", CellTags->"Info593751787086-5941233"]} } *) (*CellTagsIndex CellTagsIndex->{ {"Info863751787572-5941233", 339871, 7693}, {"Info583751787077-5941233", 339987, 7696}, {"Info593751787086-5941233", 340103, 7699} } *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1076, 21, 91, "Input"], Cell[CellGroupData[{ Cell[1668, 47, 174, 2, 22, "Print"], Cell[1845, 51, 200, 2, 24, "Print"], Cell[2048, 55, 218, 2, 24, "Print"], Cell[2269, 59, 174, 2, 22, "Print"], Cell[2446, 63, 199, 2, 22, "Print"], Cell[2648, 67, 188, 2, 24, "Print"] }, Open ]] }, Open ]], Cell[2863, 73, 539, 15, 52, "Input"], Cell[CellGroupData[{ Cell[3427, 92, 1899, 40, 56, "Input"], Cell[CellGroupData[{ Cell[5351, 136, 2649, 38, 22, "Print"], Cell[8003, 176, 2923, 45, 24, "Print"], Cell[10929, 223, 2942, 46, 24, "Print"], Cell[13874, 271, 2942, 46, 24, "Print"], Cell[16819, 319, 2941, 46, 24, "Print"], Cell[19763, 367, 2942, 46, 24, "Print"], Cell[22708, 415, 2871, 44, 22, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[25628, 465, 132, 2, 35, "Input"], Cell[CellGroupData[{ Cell[25785, 471, 2762, 42, 24, "Print"], Cell[28550, 515, 2764, 42, 24, "Print"], Cell[31317, 559, 2764, 42, 24, "Print"], Cell[34084, 603, 102250, 1943, 296, "Print"] }, Open ]], Cell[136349, 2549, 5379, 108, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[141765, 2662, 596, 10, 55, "Input"], Cell[CellGroupData[{ Cell[142386, 2676, 2150, 31, 22, "Print"], Cell[144539, 2709, 2448, 39, 24, "Print"], Cell[146990, 2750, 2445, 39, 24, "Print"], Cell[149438, 2791, 2447, 39, 24, "Print"], Cell[151888, 2832, 2447, 39, 24, "Print"], Cell[154338, 2873, 2374, 37, 24, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[156761, 2916, 333, 8, 32, "Input"], Cell[157097, 2926, 55289, 1447, 725, "Output"] }, Open ]], Cell[212401, 4376, 617, 10, 32, "Input"], Cell[CellGroupData[{ Cell[213043, 4390, 379, 7, 35, "Input"], Cell[CellGroupData[{ Cell[213447, 4401, 222, 3, 42, "Print"], Cell[213672, 4406, 187, 2, 24, "Print"], Cell[213862, 4410, 176, 2, 41, "Print"] }, Open ]], Cell[214053, 4415, 7322, 215, 160, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[221412, 4635, 221, 4, 32, "Input"], Cell[221636, 4641, 11764, 299, 147, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[233437, 4945, 492, 12, 52, "Input"], Cell[233932, 4959, 111, 2, 32, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[234080, 4966, 120, 2, 32, "Input"], Cell[234203, 4970, 6585, 151, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[240825, 5126, 123, 2, 32, "Input"], Cell[240951, 5130, 111, 2, 32, "Output"] }, Open ]], Cell[241077, 5135, 342, 8, 32, "Input"], Cell[CellGroupData[{ Cell[241444, 5147, 102, 1, 32, "Input"], Cell[241549, 5150, 1192, 37, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[242778, 5192, 675, 19, 54, "Input"], Cell[CellGroupData[{ Cell[243478, 5215, 521, 9, 24, "Print"], Cell[244002, 5226, 377, 5, 42, "Print"], Cell[244382, 5233, 338, 4, 24, "Print"], Cell[244723, 5239, 327, 4, 41, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[245099, 5249, 104, 1, 32, "Input"], Cell[245206, 5252, 7823, 248, 272, "Output"] }, Open ]], Cell[253044, 5503, 231, 6, 32, "Input"], Cell[CellGroupData[{ Cell[253300, 5513, 559, 11, 32, "Input"], Cell[CellGroupData[{ Cell[253884, 5528, 179, 3, 42, "Print"], Cell[254066, 5533, 142, 2, 24, "Print"], Cell[254211, 5537, 133, 2, 41, "Print"] }, Open ]], Cell[254359, 5542, 1402, 44, 51, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[255798, 5591, 750, 18, 52, "Input"], Cell[256551, 5611, 62669, 1448, 933, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[319257, 7064, 110, 2, 30, "Input"], Cell[319370, 7068, 246, 4, 60, "Print", CellTags->"Info863751787572-5941233"] }, Open ]], Cell[CellGroupData[{ Cell[319653, 7077, 112, 2, 30, "Input"], Cell[319768, 7081, 279, 5, 60, "Print", CellTags->"Info583751787077-5941233"] }, Open ]], Cell[CellGroupData[{ Cell[320084, 7091, 114, 2, 30, "Input"], Cell[320201, 7095, 280, 5, 60, "Print", CellTags->"Info593751787086-5941233"] }, Open ]], Cell[320496, 7103, 3467, 102, 80, "Input"], Cell[CellGroupData[{ Cell[323988, 7209, 1035, 24, 52, "Input"], Cell[325026, 7235, 5296, 154, 87, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[330359, 7394, 327, 9, 33, "Input"], Cell[330689, 7405, 1304, 39, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[332030, 7449, 1439, 39, 54, "Input"], Cell[333472, 7490, 837, 23, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[334346, 7518, 1379, 40, 52, "Input"], Cell[335728, 7560, 808, 23, 63, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[336573, 7588, 264, 4, 52, "Input"], Cell[336840, 7594, 1224, 38, 62, "Output"], Cell[338067, 7634, 1222, 38, 62, "Output"] }, Open ]] } ] *)