(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 297251, 7878] NotebookOptionsPosition[ 293553, 7757] NotebookOutlinePosition[ 293880, 7772] CellTagsIndexPosition[ 293837, 7769] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"<<", "\"\\""}], \ "\[IndentingNewLine]", RowBox[{"<<", "\"\\""}]}]\ , "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.7773670414922333`*^9, 3.777367041949526*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784538228586761*^9, 3.784808721533194*^9, {3.784832169497262*^9, 3.7848321888253*^9}, 3.784832293692151*^9, 3.78483234933852*^9, 3.784832535180348*^9, 3.784832570228001*^9, 3.784832611529696*^9, 3.7848327608948174`*^9, 3.78483347693814*^9, 3.784884721736641*^9, 3.784886464579598*^9, 3.7848868742601852`*^9, 3.784886939231451*^9, 3.784887057007908*^9, 3.784887095283758*^9, 3.7848871702686234`*^9, 3.7848872134362497`*^9, 3.784887276159912*^9, 3.784887413021167*^9, 3.784887677782608*^9}], Cell[BoxData[ FormBox["\<\"FeynArts 3.9 (23 Sep 2015)\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784538228586761*^9, 3.784808721533194*^9, {3.784832169497262*^9, 3.7848321888253*^9}, 3.784832293692151*^9, 3.78483234933852*^9, 3.784832535180348*^9, 3.784832570228001*^9, 3.784832611529696*^9, 3.7848327608948174`*^9, 3.78483347693814*^9, 3.784884721736641*^9, 3.784886464579598*^9, 3.7848868742601852`*^9, 3.784886939231451*^9, 3.784887057007908*^9, 3.784887095283758*^9, 3.7848871702686234`*^9, 3.7848872134362497`*^9, 3.784887276159912*^9, 3.784887413021167*^9, 3.784887677785832*^9}], Cell[BoxData[ FormBox["\<\"by Hagen Eck, Sepp Kueblbeck, and Thomas Hahn\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784538228586761*^9, 3.784808721533194*^9, {3.784832169497262*^9, 3.7848321888253*^9}, 3.784832293692151*^9, 3.78483234933852*^9, 3.784832535180348*^9, 3.784832570228001*^9, 3.784832611529696*^9, 3.7848327608948174`*^9, 3.78483347693814*^9, 3.784884721736641*^9, 3.784886464579598*^9, 3.7848868742601852`*^9, 3.784886939231451*^9, 3.784887057007908*^9, 3.784887095283758*^9, 3.7848871702686234`*^9, 3.7848872134362497`*^9, 3.784887276159912*^9, 3.784887413021167*^9, 3.78488767778697*^9}], Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784538228586761*^9, 3.784808721533194*^9, {3.784832169497262*^9, 3.7848321888253*^9}, 3.784832293692151*^9, 3.78483234933852*^9, 3.784832535180348*^9, 3.784832570228001*^9, 3.784832611529696*^9, 3.7848327608948174`*^9, 3.78483347693814*^9, 3.784884721736641*^9, 3.784886464579598*^9, 3.7848868742601852`*^9, 3.784886939231451*^9, 3.784887057007908*^9, 3.784887095283758*^9, 3.7848871702686234`*^9, 3.7848872134362497`*^9, 3.784887276159912*^9, 3.784887413021167*^9, 3.784887677846714*^9}], Cell[BoxData[ FormBox["\<\"FormCalc 9.4 (7 Jun 2016)\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784538228586761*^9, 3.784808721533194*^9, {3.784832169497262*^9, 3.7848321888253*^9}, 3.784832293692151*^9, 3.78483234933852*^9, 3.784832535180348*^9, 3.784832570228001*^9, 3.784832611529696*^9, 3.7848327608948174`*^9, 3.78483347693814*^9, 3.784884721736641*^9, 3.784886464579598*^9, 3.7848868742601852`*^9, 3.784886939231451*^9, 3.784887057007908*^9, 3.784887095283758*^9, 3.7848871702686234`*^9, 3.7848872134362497`*^9, 3.784887276159912*^9, 3.784887413021167*^9, 3.7848876778478413`*^9}], Cell[BoxData[ FormBox["\<\"by Thomas Hahn\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784538228586761*^9, 3.784808721533194*^9, {3.784832169497262*^9, 3.7848321888253*^9}, 3.784832293692151*^9, 3.78483234933852*^9, 3.784832535180348*^9, 3.784832570228001*^9, 3.784832611529696*^9, 3.7848327608948174`*^9, 3.78483347693814*^9, 3.784884721736641*^9, 3.784886464579598*^9, 3.7848868742601852`*^9, 3.784886939231451*^9, 3.784887057007908*^9, 3.784887095283758*^9, 3.7848871702686234`*^9, 3.7848872134362497`*^9, 3.784887276159912*^9, 3.784887413021167*^9, 3.784887677848741*^9}] }, Open ]] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"tree", " ", "=", " ", RowBox[{"CreateTopologies", "[", RowBox[{"0", ",", RowBox[{"2", "\[Rule]", "2"}]}], "]"}]}], ";"}]], "Input", ExpressionUUID -> "77cd24ab-8d89-4cdd-9152-c8a887b161d9"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SMbrokenQED", "=", RowBox[{"LoadModel", "[", RowBox[{ RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.463471593738875*^9, 3.463471610690528*^9}, { 3.463471657843445*^9, 3.463471658953372*^9}, {3.463471708143992*^9, 3.463471740877706*^9}, {3.4634718173679867`*^9, 3.4634718540114307`*^9}, { 3.463471892429619*^9, 3.463471896026383*^9}, {3.4634721388328876`*^9, 3.463472142432247*^9}, {3.463666020170277*^9, 3.463666026570592*^9}, { 3.463720006861903*^9, 3.463720008440517*^9}, {3.4655397271342793`*^9, 3.465539729381336*^9}, {3.4661632755813637`*^9, 3.46616327652309*^9}, { 3.46890754157981*^9, 3.4689075441380997`*^9}, {3.469425162525972*^9, 3.469425166276936*^9}, 3.470466481879312*^9, {3.474205437011684*^9, 3.4742054385586987`*^9}, {3.544423601901805*^9, 3.544423614962488*^9}, { 3.544424199262527*^9, 3.544424215094089*^9}, {3.574067594038589*^9, 3.5740675950232277`*^9}, {3.574068946004963*^9, 3.574068946537179*^9}, 3.576684858843112*^9, {3.5772016141325006`*^9, 3.577201614675755*^9}, { 3.639390868458249*^9, 3.6393908692308826`*^9}, {3.784831894882703*^9, 3.784831896662714*^9}, 3.784831946109757*^9, {3.784832098693087*^9, 3.784832101333995*^9}, {3.784832159587584*^9, 3.784832166297174*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", "\[InvisibleSpace]", "\<\"classes\"\>", "\[InvisibleSpace]", "\<\" model file \"\>", "\[InvisibleSpace]", \ "\<\"/home/stefan/KITteaching/2019_TTP2/SMbrokenQED.mod\"\>"}], SequenceForm[ "", "loading ", "classes", " model file ", "/home/stefan/KITteaching/2019_TTP2/SMbrokenQED.mod"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.784832189366003*^9, {3.784832225371771*^9, 3.784832254356439*^9}, 3.784832294233877*^9, {3.7848323500773687`*^9, 3.784832367892622*^9}, 3.784832535831814*^9, 3.78483257083214*^9, 3.784832612160385*^9, 3.7848327613707867`*^9, 3.784833477491564*^9, 3.784884722183648*^9, 3.784886464843627*^9, 3.7848868744898453`*^9, {3.784886914004526*^9, 3.784886939476325*^9}, 3.784887057267323*^9, 3.784887095563442*^9, 3.7848871706970587`*^9, 3.7848872137534437`*^9, {3.784887262444051*^9, 3.784887276441337*^9}, 3.784887413353747*^9, 3.78488767803752*^9}], Cell[BoxData[ FormBox[ RowBox[{ "{", "\<\"/home/stefan/KITteaching/2019_TTP2/SMbrokenQED\"\>", "}"}], TraditionalForm]], "Output", CellChangeTimes->{{3.784831897092586*^9, 3.7848319466708612`*^9}, { 3.784831984790185*^9, 3.7848320278959417`*^9}, 3.784832101868794*^9, { 3.7848321669875813`*^9, 3.784832189409051*^9}, {3.7848322254226713`*^9, 3.784832254405363*^9}, 3.78483229427776*^9, {3.784832350114678*^9, 3.784832367938311*^9}, 3.784832535876973*^9, 3.784832570891768*^9, 3.7848326121936283`*^9, 3.784832761466989*^9, 3.784833477554804*^9, 3.78488472223759*^9, 3.784886464901073*^9, 3.7848868745604963`*^9, { 3.784886914008082*^9, 3.784886939513864*^9}, 3.784887057304862*^9, 3.784887095597961*^9, 3.784887170725993*^9, 3.784887213799719*^9, { 3.7848872624452543`*^9, 3.784887276469812*^9}, 3.784887413393194*^9, 3.784887678071293*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"instree", " ", "=", " ", RowBox[{"InsertFields", "[", RowBox[{"tree", ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"F", "[", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"-", RowBox[{"F", "[", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], "]"}]}]}], "}"}]}], ",", RowBox[{"Model", "\[Rule]", "SMbrokenQED"}], ",", RowBox[{"InsertionLevel", "\[Rule]", "Particles"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7779842093048162`*^9, 3.7779842169286757`*^9}, { 3.7779843324403276`*^9, 3.77798433922246*^9}, {3.780133957388253*^9, 3.780133960951926*^9}, {3.780213422424457*^9, 3.780213428671731*^9}, { 3.780213490608076*^9, 3.780213493550601*^9}, {3.784538232531351*^9, 3.7845382361794367`*^9}, {3.784538290995722*^9, 3.784538299354965*^9}, { 3.784539167911216*^9, 3.7845391692552757`*^9}, {3.784808718970945*^9, 3.784808765313285*^9}, {3.784832191392219*^9, 3.784832192455908*^9}, { 3.7848870621356697`*^9, 3.784887066798959*^9}, {3.7848876696861343`*^9, 3.7848876708924294`*^9}}, ExpressionUUID -> "f4e94c09-a720-413e-b3be-0ed4d7933a26"], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.7848876781200037`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", "\[InvisibleSpace]", "\<\"generic\"\>", "\[InvisibleSpace]", "\<\" model file \"\>", "\[InvisibleSpace]", \ "\<\"/home/stefan/.Mathematica/Applications/FeynArts-3.9/Models/Lorentz.gen\"\ \>"}], SequenceForm[ "", "loading ", "generic", " model file ", "/home/stefan/.Mathematica/Applications/FeynArts-3.9/Models/Lorentz.gen"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.7848876781212807`*^9}], Cell[BoxData[ FormBox["\<\"> $GenericMixing is OFF\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678122303*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"generic model \"\>", "\[InvisibleSpace]", RowBox[{"{", "\<\"Lorentz\"\>", "}"}], "\[InvisibleSpace]", "\<\" initialized\"\>"}], SequenceForm["generic model ", {"Lorentz"}, " initialized"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678158094*^9}], Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678159501*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"\"\>", "\[InvisibleSpace]", "\<\"loading \"\>", "\[InvisibleSpace]", "\<\"classes\"\>", "\[InvisibleSpace]", "\<\" model file \"\>", "\[InvisibleSpace]", \ "\<\"/home/stefan/KITteaching/2019_TTP2/SMbrokenQED.mod\"\>"}], SequenceForm[ "", "loading ", "classes", " model file ", "/home/stefan/KITteaching/2019_TTP2/SMbrokenQED.mod"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678162925*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\" particles (incl. antiparticles) in \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\" classes\"\>"}], SequenceForm[ "> ", 9, " particles (incl. antiparticles) in ", 4, " classes"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678163864*^9}], Cell[BoxData[ FormBox["\<\"> $CounterTerms are ON\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678164555*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\" vertices\"\>"}], SequenceForm["> ", 3, " vertices"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.7848876781652813`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"classes model \"\>", "\[InvisibleSpace]", RowBox[{ "{", "\<\"/home/stefan/KITteaching/2019_TTP2/SMbrokenQED\"\>", "}"}], "\[InvisibleSpace]", "\<\" initialized\"\>"}], SequenceForm[ "classes model ", {"/home/stefan/KITteaching/2019_TTP2/SMbrokenQED"}, " initialized"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.7848876781660748`*^9}], Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.7848876781667337`*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"inserting at level(s) \"\>", "\[InvisibleSpace]", RowBox[{"{", RowBox[{"Generic", ",", "Classes", ",", "Particles"}], "}"}]}], SequenceForm[ "inserting at level(s) ", {Generic, FeynArts`Classes, FeynArts`Particles}], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678167533*^9}], Cell[BoxData[ FormBox[ 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], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678168404*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"2 Generic, 3 Classes, 3 Particles \ insertions\"\>"}], SequenceForm[ "> Top. ", 2, ": ", "2 Generic, 3 Classes, 3 Particles insertions"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678169191*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"2 Generic, 3 Classes, 3 Particles \ insertions\"\>"}], SequenceForm[ "> Top. ", 3, ": ", "2 Generic, 3 Classes, 3 Particles insertions"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678169943*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"0 Generic, 0 Classes, 0 Particles \ insertions\"\>"}], SequenceForm[ "> Top. ", 4, ": ", "0 Generic, 0 Classes, 0 Particles insertions"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678170705*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"4 Generic, 6 Classes, 6 Particles \ insertions\"\>"}], SequenceForm["in total: ", "4 Generic, 6 Classes, 6 Particles insertions"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{{3.784808739163703*^9, 3.7848087658038597`*^9}, { 3.784832189591034*^9, 3.784832192799728*^9}, {3.784832226748939*^9, 3.7848322554746103`*^9}, 3.7848322944691353`*^9, {3.784832350298511*^9, 3.784832369420858*^9}, 3.784832536083033*^9, 3.784832571104765*^9, 3.7848326123720303`*^9, 3.7848327615131207`*^9, 3.7848334776703*^9, 3.784884722351618*^9, 3.784886464963234*^9, 3.784886874620393*^9, { 3.784886928556148*^9, 3.7848869395736923`*^9}, {3.78488705734839*^9, 3.784887095653449*^9}, 3.784887171018417*^9, 3.784887214085292*^9, { 3.7848872633025723`*^9, 3.784887276701643*^9}, 3.784887413442577*^9, 3.784887678171455*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Paint", "[", "instree", "]"}]], "Input", CellChangeTimes->{{3.777984142706489*^9, 3.777984144458981*^9}}, ExpressionUUID -> "778a8cd1-a2be-420b-9545-4337ff9194d5"], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"8 diagrams\"\>"}], SequenceForm["> Top. ", 1, ": ", "8 diagrams"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.7848870957162943`*^9, 3.7848871726013527`*^9, 3.784887215724903*^9, { 3.784887264350739*^9, 3.784887277552059*^9}, 3.784887413553769*^9, 3.784887678224853*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"8 diagrams\"\>"}], SequenceForm["> Top. ", 2, ": ", "8 diagrams"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.7848870957162943`*^9, 3.7848871726013527`*^9, 3.784887215724903*^9, { 3.784887264350739*^9, 3.784887277552059*^9}, 3.784887413553769*^9, 3.784887678225758*^9}], Cell[BoxData[ FormBox[ 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["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, InsetBox[ TagBox[ StyleBox[ TagBox["S", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.3048}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "G1", " ", "N1"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, InsetBox[ TagBox[ StyleBox[ TagBox["H", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.3048}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C1", " ", "N2"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, InsetBox[ TagBox[ StyleBox[ TagBox["H", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.3048}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "P1", " ", "N3"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ SuperscriptBox["G", "0"], DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.3048}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "C2", " ", "N4"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 22}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{5.999999999990206, 10.}, {13.999999999982222`, 10.}}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ SuperscriptBox["G", "0"], DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.3048}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "P1", " ", "N5"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 22}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {17.387485819479934, 8.085942983375933}, ImageScaled[{0, 0}]], LineBox[CompressedData[" 1:eJw9lG1QVFUYx8+KkQzjhyYZ3pfdPYc3hcHtFBRT+DBNCiq60Uy7IzXLLu1F dBRzSYsSKNJsRlQQiIuYmYgrfKAALRxLAuVFTistTIOpRYysEDIyxlRQsT30 4dyZO3d+c+695zzP8///9fbCbMcyQsjLeC89J0d9eK0B8v/FIHSipfaGQF5x bH5jAoPcryqP1qjIuVYS8QqDdd+VRtgUZEuwrakQ3zcuWhP5Egc22EsYiBR7 7oJvNRBwBJUcYLDvg+CV/QJ5+1s9q3Yx8G1+CLUq8tvuzsStDEx93r43FOSM Y4vFsQyKpw8qnCMfL667t0ChKsDzq4Ygmy5unHFTaJrq8R8S8UBmv0lafoFC TUb2F6dUZF1592gFhc0G8+AOBbms7pPeMgrVygNzCkce84btLKdgD+Db/Qhy 3MGivTUUvm0bjrgp4oD89bj3TAeFMpc4Xa8iWzIt2rsUorMtWkVBNk3megMY eHP6u40ceVLTvOcZBgnta1r/9cVi/9Jic7YxuPhlwfyAQO6vKgwqYlA2/9KF WhW5y5PwZimDKqPz6zwF2cV7/d9l4DdzYpWRL61rR2z5DC53dX2+6IvB/Sp+ friewcLZxReFQM4IONweyeBU86Nbqops6Wq8Pkuh52+2KV9BJrdn2q9TCE15 7tDTHNlVnf7DGQrn8i6Vawjy2jvxFR9TSB1NWu8W0UAO+x+4X0pB89G90XoV 2fX93icOURB/arPyFWSTfWrDSQrOPM8lzpGfrf5w+gqu330snhDk2Y6WYS+F rcWNbUIwnOct6nkSz+eX9JqqIh/v05jTGGyKdMUoCvKspVVnY3DN75dAzpHX /pE+vp9BnHtJfxTnl1o1iP1puKqbE4LK9aAmM9ZL5ffdV4fOKgqV/9cYcrI4 p3L/6on5H30+gzzfjDUxUwiDPH9541hbnWqQ9W0JCo91KAZZf/T0zU4jN8j+ XLZmvrfo08v+JTt63xkUetnfI5/91FGn6mX/u0NWYr16OR9HlOYK53o5v9rb aa9riF7ON6t157Rb6OT83ZVHNjSoOqmPsYHOVwsUndTPyd9q/JO5TuqLTQ2b lhGd1N+ce3dxgxol9blvfEsP51FSv5/ed3TdEFqpb8OwudemaKX+F5xq0rwv UvqjrjPGVKlGSv/4z5kKVvNI6a+i89tOXxMR0n/O9v2PrEqE9Ge9M+f5f3zh 0r8ttt+fUtVw6W/SbNyTzMOl/7sf6EqGRZjMh5H3hyYKlTCZHysGUtcFkjCZ L0eZH5xTQ2X+pC8nfS/wUJlPJOTO+IgIkfm1a/d5zw4lRObbzMiS/oJl/v0H YYABMg== "]], InsetBox[ TagBox[ StyleBox[ TagBox["V", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.0548}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "G2", " ", "N6"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 22}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["A", 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", " ", "N7"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{-5.4569682106375694`*^-12, 15.000000000005457`}, { 5.999999999996362, 10.000000000001819`}}], PolygonBox[{{3.4609327677584254`, 12.115889360201312`}, { 2.2829934723757828`, 12.576822127959739`}, {2.7951409921073664`, 13.191399151637638`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {3.387485819479944, 6.914057016624067}, ImageScaled[{0, 1}]], LineBox[{{20.000000000005457`, 15.000000000003638`}, { 14.000000000003638`, 10.000000000001819`}}], PolygonBox[{{17.46093276775842, 12.884110639798687`}, { 16.282993472375775`, 12.423177872040265`}, {16.79514099210736, 11.808600848362362`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {16.61251418052005, 13.085942983375933}, ImageScaled[{1, 0}]], LineBox[{{19.99999999999818, 5.000000000001819}, {13.999999999998181`, 10.}}], PolygonBox[{{16.539067232241567`, 7.8841106397986875`}, { 17.71700652762421, 7.423177872040263}, {17.204859007892626`, 6.808600848362362}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["A", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.999999999999995, 9.0548}, ImageScaled[{Rational[1, 2], 1}]], {PointSize[0.04], PointBox[{6., 10.}], PointBox[{13.99999999999999, 10.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T1", " ", "P1", " ", "N8"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 0}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}]}, InsetBox[ TagBox[ StyleBox[ TagBox["S", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {9.3048, 9.999999999999995}, ImageScaled[{1, Rational[1, 2]}]], {PointSize[0.04], PointBox[{10., 13.99999999999999}], PointBox[{10., 6.}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ RowBox[{"T2", " ", "G1", " ", "N9"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {44, 0}, {0, 0}, {22, 22}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", 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["F1", 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["F1", 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}}], TraditionalForm]], "Print", CellChangeTimes->{ 3.7848870957162943`*^9, 3.7848871726013527`*^9, 3.784887215724903*^9, { 3.784887264350739*^9, 3.784887277552059*^9}, 3.784887413553769*^9, 3.7848876782917128`*^9}], Cell[BoxData[ FormBox[ GraphicsBox[{InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}]}, InsetBox[ TagBox[ StyleBox[ TagBox["H", 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", " ", "C1", " ", "N10"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {0, 44}, {0, 0}, {22, 22}], InsetBox[ GraphicsBox[ {Thickness[0.005], LineBox[{{6.139089236967266*^-12, 15.}, {10.000000000002046`, 14.000000000003638`}}], PolygonBox[{{5.597022314125994, 14.440297768587394`}, { 4.363176198265607, 14.1616873553286}, {4.442779173482406, 14.957717107496592`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}]}, InsetBox[ TagBox[ StyleBox[ TagBox["H", 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", " ", "P1", " ", "N11"}], DisplayForm], FontFamily->"Helvetica", FontSize->7.997355371900827], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 7.997355371900827]& ], {10., -0.5}, ImageScaled[{Rational[1, 2], 0}]]}, AspectRatio->1, PlotRange->{{-1, 21}, {-1, 21}}], {22, 44}, {0, 0}, {22, 22}], InsetBox[ 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["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ SuperscriptBox["G", "0"], 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", " ", "C2", " ", "N12"}], 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["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], {Dashing[{0.030000000000000002`, 0.030000000000000002`}], LineBox[{{10., 14.000000000000902`}, {10., 6.0000000000000036`}}]}, InsetBox[ TagBox[ StyleBox[ TagBox[ SuperscriptBox["G", "0"], 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", " ", "P1", " ", "N13"}], 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["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], LineBox[CompressedData[" 1:eJxFlA1QlEUYx/eUubIb+1CQFDyO3r17744jPhYts+RxmkHRGA6b4oIS7oxF cAo/RyQFZzAGnfBr8LrXaMjEhGzyRsiJyepS+QgWwjskTBRz9DqHzBtsSkjv WqrZduadnd/svu+7z7P//z/eUbaqaBpCKIc/U/O/A0PEP/OTgB7eN7HCgqHe c9xbSjkXFqDYlzEYSkeuDzLOtmj7J2UYbEmo6wUyl7OmwVGJoSl7OhxTOENR VOUODIkxi9M1aB6gtVvORb6FYdI3cLOMci7vb0/MxjAcHV/pY5yX7wtVyBgW SKnrF5IYQPsrXDcmJbjQejdVUThbv1hxu1+C7zryn78f5hz8OimiRYI9V7eO F9BYQLrqs8N1EpzQ5TeeZ5x3ut7v3CmBJSOnxEzmA7rmn7euWoJvNLL1gMLZ +O7mjYckeLxRSZoIc773kP9ImwS2l2yddqrl9WTatFck6FhEPT2MszVQ6J+B oSEt+xwhcYACqk/XL8DwyOTbFQ0KZ7REzs/D8K1+0DoN6QB1HyyL2ozh89lO 9ULC2eO1bKjCcHe8/dUSyrmZdKrfwfDa8feWNShT69pBezGGwNi6sX7G2Vp3 9U4GhpaI9DdUKJ73Z0Zt63wM5ctVZwjhbPM0dQQlyHp6poFSzujy7dYOCeQr P7W5FM7N9UsvHJEgc2/ntl7GOXnEVLdbgr7azO2hMOda9Y5fqiRwo4H2FPIU 39+38YkaCW7lxMhFlLPVcWvZBxI4+66dcimcn63fNXZGArQ7MZMxzsG2Ez6/ BHF/TQyFw5zLL0ne2bw/q/OzCOH79nepcpdguBgYOEop56DtpM6O4aOvci8p CufkP5Ze34pBvqj7nTHOuucO9vL+LP4zzMf/6z9aRjWEYPH+UGozrxeL75vm Jr2uKFj833G06RRjWJxvVK02IaQX5w+Ve08Tohf1FafFZRVTvag/0n1j+LCi F/3JUiVn9DO96F/yttPVKmQQ/W3btKgmjRhE/4ewfmUxNYj7cfvGeb0GcX81 7aEXGTOI+33lgefjUNgg7n/OnPrIFCILfRzL2/TlGioL/Wgey2hxKrLQl/W3 konvmSz0lz6ScPJBWBb6vLer+2wKMQr9uottWkqNQt8xN1njYcUo9O+97Iv9 gRmFP7akkrXTkUn4R7v919xniEn4K7A6t7eUmoT/mjescn+omIQ/22edVw8w k/CvNs77swqZhb+jjDWUELPw/5qgv+tNahb5sMdxB5yKWeSHyhU9s5uZRb6M FjoKJ8NmkT+WvFBBIkkQ+dQzVBVrpwkiv8bYgb2HlASRb5ZHP3P2MM7/5d99 1dRsgb8Benjw4g== "]], InsetBox[ TagBox[ StyleBox[ TagBox["V", 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", " ", "G2", " ", "N14"}], 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["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], LineBox[CompressedData[" 1:eJxFlA1QlEUYx/eUubIb+1CQFDyO3r17744jPhYts+RxmkHRGA6b4oIS7oxF cAo/RyQFZzAGnfBr8LrXaMjEhGzyRsiJyepS+QgWwjskTBRz9DqHzBtsSkjv WqrZduadnd/svu+7z7P//z/eUbaqaBpCKIc/U/O/A0PEP/OTgB7eN7HCgqHe c9xbSjkXFqDYlzEYSkeuDzLOtmj7J2UYbEmo6wUyl7OmwVGJoSl7OhxTOENR VOUODIkxi9M1aB6gtVvORb6FYdI3cLOMci7vb0/MxjAcHV/pY5yX7wtVyBgW SKnrF5IYQPsrXDcmJbjQejdVUThbv1hxu1+C7zryn78f5hz8OimiRYI9V7eO F9BYQLrqs8N1EpzQ5TeeZ5x3ut7v3CmBJSOnxEzmA7rmn7euWoJvNLL1gMLZ +O7mjYckeLxRSZoIc773kP9ImwS2l2yddqrl9WTatFck6FhEPT2MszVQ6J+B oSEt+xwhcYACqk/XL8DwyOTbFQ0KZ7REzs/D8K1+0DoN6QB1HyyL2ozh89lO 9ULC2eO1bKjCcHe8/dUSyrmZdKrfwfDa8feWNShT69pBezGGwNi6sX7G2Vp3 9U4GhpaI9DdUKJ73Z0Zt63wM5ctVZwjhbPM0dQQlyHp6poFSzujy7dYOCeQr P7W5FM7N9UsvHJEgc2/ntl7GOXnEVLdbgr7azO2hMOda9Y5fqiRwo4H2FPIU 39+38YkaCW7lxMhFlLPVcWvZBxI4+66dcimcn63fNXZGArQ7MZMxzsG2Ez6/ BHF/TQyFw5zLL0ne2bw/q/OzCOH79nepcpdguBgYOEop56DtpM6O4aOvci8p CufkP5Ze34pBvqj7nTHOuucO9vL+LP4zzMf/6z9aRjWEYPH+UGozrxeL75vm Jr2uKFj833G06RRjWJxvVK02IaQX5w+Ve08Tohf1FafFZRVTvag/0n1j+LCi F/3JUiVn9DO96F/yttPVKmQQ/W3btKgmjRhE/4ewfmUxNYj7cfvGeb0GcX81 7aEXGTOI+33lgefjUNgg7n/OnPrIFCILfRzL2/TlGioL/Wgey2hxKrLQl/W3 konvmSz0lz6ScPJBWBb6vLer+2wKMQr9uottWkqNQt8xN1njYcUo9O+97Iv9 gRmFP7akkrXTkUn4R7v919xniEn4K7A6t7eUmoT/mjescn+omIQ/22edVw8w k/CvNs77swqZhb+jjDWUELPw/5qgv+tNahb5sMdxB5yKWeSHyhU9s5uZRb6M FjoKJ8NmkT+WvFBBIkkQ+dQzVBVrpwkiv8bYgb2HlASRb5ZHP3P2MM7/5d99 1dRsgb8Benjw4g== "]], InsetBox[ TagBox[ StyleBox[ TagBox["A", 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", " ", "N15"}], 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["F1", 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["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {5.1542307644825485, 4.562492355174517}, ImageScaled[{Rational[1, 2], 1}]], LineBox[{{20.000000000002956`, 15.}, {10.000000000002956`, 14.}}], PolygonBox[{{15.597022314125994`, 14.559702231412594`}, { 14.363176198265606`, 14.838312644671392`}, {14.442779173482407`, 14.0422828925034}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {14.84576923551745, 15.437507644825477}, ImageScaled[{Rational[1, 2], 0}]], LineBox[{{19.999999999997726`, 4.999999999996362}, {9.999999999997726, 5.999999999996362}}], PolygonBox[{{14.402977685874006`, 5.559702231412599}, { 15.636823801734392`, 5.838312644671396}, {15.557220826517595`, 5.0422828925034056`}}], InsetBox[ TagBox[ StyleBox[ TagBox["F1", DisplayForm], FontFamily->"Helvetica", FontSize->9.996694214876033], StyleForm[#, FontFamily -> "Helvetica", FontSize -> 9.996694214876033]& ], {15.154230764482548, 6.437507644825483}, ImageScaled[{Rational[1, 2], 0}]], LineBox[CompressedData[" 1:eJxFlA1QlEUYx/eUubIb+1CQFDyO3r17744jPhYts+RxmkHRGA6b4oIS7oxF cAo/RyQFZzAGnfBr8LrXaMjEhGzyRsiJyepS+QgWwjskTBRz9DqHzBtsSkjv WqrZduadnd/svu+7z7P//z/eUbaqaBpCKIc/U/O/A0PEP/OTgB7eN7HCgqHe c9xbSjkXFqDYlzEYSkeuDzLOtmj7J2UYbEmo6wUyl7OmwVGJoSl7OhxTOENR VOUODIkxi9M1aB6gtVvORb6FYdI3cLOMci7vb0/MxjAcHV/pY5yX7wtVyBgW SKnrF5IYQPsrXDcmJbjQejdVUThbv1hxu1+C7zryn78f5hz8OimiRYI9V7eO F9BYQLrqs8N1EpzQ5TeeZ5x3ut7v3CmBJSOnxEzmA7rmn7euWoJvNLL1gMLZ +O7mjYckeLxRSZoIc773kP9ImwS2l2yddqrl9WTatFck6FhEPT2MszVQ6J+B oSEt+xwhcYACqk/XL8DwyOTbFQ0KZ7REzs/D8K1+0DoN6QB1HyyL2ozh89lO 9ULC2eO1bKjCcHe8/dUSyrmZdKrfwfDa8feWNShT69pBezGGwNi6sX7G2Vp3 9U4GhpaI9DdUKJ73Z0Zt63wM5ctVZwjhbPM0dQQlyHp6poFSzujy7dYOCeQr P7W5FM7N9UsvHJEgc2/ntl7GOXnEVLdbgr7azO2hMOda9Y5fqiRwo4H2FPIU 39+38YkaCW7lxMhFlLPVcWvZBxI4+66dcimcn63fNXZGArQ7MZMxzsG2Ez6/ BHF/TQyFw5zLL0ne2bw/q/OzCOH79nepcpdguBgYOEop56DtpM6O4aOvci8p CufkP5Ze34pBvqj7nTHOuucO9vL+LP4zzMf/6z9aRjWEYPH+UGozrxeL75vm Jr2uKFj833G06RRjWJxvVK02IaQX5w+Ve08Tohf1FafFZRVTvag/0n1j+LCi F/3JUiVn9DO96F/yttPVKmQQ/W3btKgmjRhE/4ewfmUxNYj7cfvGeb0GcX81 7aEXGTOI+33lgefjUNgg7n/OnPrIFCILfRzL2/TlGioL/Wgey2hxKrLQl/W3 konvmSz0lz6ScPJBWBb6vLer+2wKMQr9uottWkqNQt8xN1njYcUo9O+97Iv9 gRmFP7akkrXTkUn4R7v919xniEn4K7A6t7eUmoT/mjescn+omIQ/22edVw8w k/CvNs77swqZhb+jjDWUELPw/5qgv+tNahb5sMdxB5yKWeSHyhU9s5uZRb6M FjoKJ8NmkT+WvFBBIkkQ+dQzVBVrpwkiv8bYgb2HlASRb5ZHP3P2MM7/5d99 1dRsgb8Benjw4g== "]], InsetBox[ TagBox[ StyleBox[ TagBox["A", 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", " ", "N16"}], 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[ TagBox[ StyleBox[ TagBox["F1", 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["F1", 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["F1", 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["F1", 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}}], TraditionalForm]], "Print", CellChangeTimes->{ 3.7848870957162943`*^9, 3.7848871726013527`*^9, 3.784887215724903*^9, { 3.784887264350739*^9, 3.784887277552059*^9}, 3.784887413553769*^9, 3.78488767834092*^9}] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"FeynArtsGraphics", "(", RowBox[{ RowBox[{"{", RowBox[{"\<\"F1\"\>", ",", "\<\"F1\"\>"}], "}"}], "\[Rule]", RowBox[{"{", RowBox[{"\<\"F1\"\>", ",", "\<\"F1\"\>"}], "}"}]}], ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G1 N1\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 G1 N1", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N2\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 C1 N2", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N3\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 P1 N3", "]"], Editable->False], TraditionalForm]}, { FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C2 N4\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 C2 N4", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N5\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 P1 N5", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 G2 N6\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 G2 N6", "]"], Editable->False], TraditionalForm]}, { FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 C1 N7\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 C1 N7", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T1 P1 N8\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T1 P1 N8", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 G1 N9\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 G1 N9", "]"], Editable->False], TraditionalForm]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]], ",", TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 C1 N10\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 C1 N10", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 P1 N11\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 P1 N11", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 C2 N12\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 C2 N12", "]"], Editable->False], TraditionalForm]}, { FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 P1 N13\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 P1 N13", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 G2 N14\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 G2 N14", "]"], Editable->False], TraditionalForm], FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 C1 N15\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 C1 N15", "]"], Editable->False], TraditionalForm]}, { FormBox[ InterpretationBox[ RowBox[{"\<\"[\"\>", "\[InvisibleSpace]", "\<\"T2 P1 N16\"\>", "\[InvisibleSpace]", "\<\"]\"\>"}], SequenceForm["[", "T2 P1 N16", "]"], Editable->False], TraditionalForm], "Null", "Null"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.777984223442268*^9, 3.777984231866255*^9}, 3.777984275891324*^9, 3.7779843495023813`*^9, {3.777984422440267*^9, 3.77798443807865*^9}, 3.777984804586595*^9, 3.777985153452778*^9, 3.7801328972190657`*^9, 3.780133401803047*^9, 3.780133971967062*^9, 3.780213431279697*^9, 3.78021349639613*^9, 3.7802941680063887`*^9, 3.780650886212779*^9, 3.780652848880912*^9, 3.7806636933521147`*^9, 3.781256921124229*^9, 3.781256971706996*^9, 3.7812617573631353`*^9, 3.7815076670914717`*^9, 3.7818525656829777`*^9, 3.781858088419342*^9, 3.7845382413095922`*^9, {3.784808741198072*^9, 3.7848087667799473`*^9}, 3.7848321950664043`*^9, {3.784832228629986*^9, 3.784832256551049*^9}, 3.784832295916563*^9, {3.784832350583119*^9, 3.7848323702923393`*^9}, 3.784832537323956*^9, 3.784832572659912*^9, 3.7848326127750587`*^9, 3.784832761834763*^9, 3.78483347805862*^9, 3.784884722646756*^9, 3.784886465110818*^9, 3.7848868747172213`*^9, {3.784886930400432*^9, 3.7848869397102757`*^9}, 3.7848870576067123`*^9, 3.784887095779799*^9, 3.784887172669656*^9, 3.7848872157912188`*^9, {3.784887264424213*^9, 3.784887277623858*^9}, 3.784887413671452*^9, 3.7848876783425713`*^9}, ExpressionUUID -> "48e566d3-a6b9-4dab-989f-be277b6bf2a7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"feynamp", "=", RowBox[{"CreateFeynAmp", "[", RowBox[{"instree", ",", RowBox[{"GaugeRules", "->", RowBox[{"{", "}"}]}]}], "]"}]}], ";"}]], "Input", ExpressionUUID -> "6ed0d580-c4af-4272-b5cc-7515993e9a56"], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784887095840088*^9, 3.784887174864994*^9, 3.784887217328001*^9, { 3.7848872650473022`*^9, 3.7848872783651333`*^9}, 3.784887413676669*^9, 3.784887678389776*^9}], Cell[BoxData[ FormBox[ 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], TraditionalForm]], "Print", CellChangeTimes->{ 3.784887095840088*^9, 3.784887174864994*^9, 3.784887217328001*^9, { 3.7848872650473022`*^9, 3.7848872783651333`*^9}, 3.784887413676669*^9, 3.784887678390753*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"2 Generic, 3 Classes, 3 Particles \ amplitudes\"\>"}], SequenceForm[ "> Top. ", 1, ": ", "2 Generic, 3 Classes, 3 Particles amplitudes"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.784887095840088*^9, 3.784887174864994*^9, 3.784887217328001*^9, { 3.7848872650473022`*^9, 3.7848872783651333`*^9}, 3.784887413676669*^9, 3.784887678433219*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> Top. \"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\": \"\>", "\[InvisibleSpace]", "\<\"2 Generic, 3 Classes, 3 Particles \ amplitudes\"\>"}], SequenceForm[ "> Top. ", 2, ": ", "2 Generic, 3 Classes, 3 Particles amplitudes"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.784887095840088*^9, 3.784887174864994*^9, 3.784887217328001*^9, { 3.7848872650473022`*^9, 3.7848872783651333`*^9}, 3.784887413676669*^9, 3.784887678434484*^9}], Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"in total: \"\>", "\[InvisibleSpace]", "\<\"4 Generic, 6 Classes, 6 Particles \ amplitudes\"\>"}], SequenceForm["in total: ", "4 Generic, 6 Classes, 6 Particles amplitudes"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{ 3.784887095840088*^9, 3.784887174864994*^9, 3.784887217328001*^9, { 3.7848872650473022`*^9, 3.7848872783651333`*^9}, 3.784887413676669*^9, 3.784887678436021*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData["feynamp"], "Input", CellChangeTimes->{{3.784832233557468*^9, 3.784832234854361*^9}}], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"FeynAmpList", "(", RowBox[{ RowBox[{"Process", "\[Rule]", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}], FormBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], TraditionalForm], "MF", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}, { RowBox[{"-", RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}]}], FormBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], TraditionalForm], "MF", RowBox[{"{", RowBox[{"Charge", ",", RowBox[{"-", "LeptonNumber"}]}], "}"}]} }, 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]", ")"}], "\[Rule]", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}], FormBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], TraditionalForm], "MF", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}, { RowBox[{"-", RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}]}], FormBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], TraditionalForm], "MF", RowBox[{"{", RowBox[{"Charge", ",", RowBox[{"-", "LeptonNumber"}]}], "}"}]} }, 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]", ")"}]}]}], ",", RowBox[{"Model", "\[Rule]", RowBox[{ "{", "\<\"/home/stefan/KITteaching/2019_TTP2/SMbrokenQED\"\>", "}"}]}], ",", 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[{"{", "}"}]}]}], ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"FeynAmp", "(", RowBox[{ RowBox[{"GraphID", "(", RowBox[{ RowBox[{"Topology", "\[LongEqual]", "1"}], ",", RowBox[{"Generic", "\[LongEqual]", "1"}]}], ")"}], ",", RowBox[{"Integral", "[", "]"}], ",", RowBox[{ RowBox[{"-", "RelativeCF"}], " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"u\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"u\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"v\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], "+", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]}]], TraditionalForm]}], ",", RowBox[{ RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], ",", RowBox[{"Mass", "(", RowBox[{ RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", "RelativeCF"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Classes", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "MH", ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Particles", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"{", RowBox[{"1", ",", "MH", ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", "1"}], "}"}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Particles", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", "1"}], "}"}], ")"}]}]}]}], ")"}]}]}]}], ")"}], ",", RowBox[{"FeynAmp", "(", RowBox[{ RowBox[{"GraphID", "(", RowBox[{ RowBox[{"Topology", "\[LongEqual]", "1"}], ",", RowBox[{"Generic", "\[LongEqual]", "2"}]}], ")"}], ",", RowBox[{"Integral", "[", "]"}], ",", RowBox[{"RelativeCF", " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"u\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"u\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"v\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["\<\"g\"\>", TraditionalForm], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ",", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm]}], ")"}], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], "+", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]], TraditionalForm]}], "+", RowBox[{ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], ")"}]}], "-", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm]}], ")"}], "\[InvisibleApplication]", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ")"}]}], TraditionalForm], " ", FormBox[ RowBox[{ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], "+", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm]}], ")"}], "\[InvisibleApplication]", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm], ")"}]}], TraditionalForm], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm]}], ")"}], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], "+", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]}]], TraditionalForm], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], "+", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]], TraditionalForm]}]}], ")"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], ",", RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", "RelativeCF"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Classes", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Particles", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", "1"}], "}"}], ")"}]}]}], ")"}]}]}]}], ")"}], ",", RowBox[{"FeynAmp", "(", RowBox[{ RowBox[{"GraphID", "(", RowBox[{ RowBox[{"Topology", "\[LongEqual]", "2"}], ",", RowBox[{"Generic", "\[LongEqual]", "1"}]}], ")"}], ",", RowBox[{"Integral", "[", "]"}], ",", RowBox[{"RelativeCF", " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"v\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"u\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"u\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], "-", FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]}]], TraditionalForm]}], ",", RowBox[{ RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], ",", RowBox[{"Mass", "(", RowBox[{ RowBox[{"S", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFS", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm], TraditionalForm], ")"}], ",", "RelativeCF"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Classes", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "MH", ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Particles", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"{", RowBox[{"1", ",", "MH", ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", RowBox[{"-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", "lam"}], SqrtBox["2"]]}], ",", "1"}], "}"}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Particles", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", RowBox[{"-", FractionBox["lam", SqrtBox["2"]]}], ",", FractionBox["lam", SqrtBox["2"]], ",", "1"}], "}"}], ")"}]}]}]}], ")"}]}]}]}], ")"}], ",", RowBox[{"FeynAmp", "(", RowBox[{ RowBox[{"GraphID", "(", RowBox[{ RowBox[{"Topology", "\[LongEqual]", "2"}], ",", RowBox[{"Generic", "\[LongEqual]", "2"}]}], ")"}], ",", RowBox[{"Integral", "[", "]"}], ",", RowBox[{ RowBox[{"-", "RelativeCF"}], " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"v\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"v\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", FormBox[ RowBox[{ RowBox[{ OverscriptBox["\<\"u\"\>", "\<\"_\"\>"], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["k", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}], ".", RowBox[{"(", RowBox[{ RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}], "+", RowBox[{ FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], " ", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}]}]}], ")"}], ".", RowBox[{"\<\"u\"\>", "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["p", 1], Editable->False], TraditionalForm], ",", "MF"}], ")"}]}], TraditionalForm], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ FormBox["\<\"g\"\>", TraditionalForm], "(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ",", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm]}], ")"}], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], "-", FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]], TraditionalForm]}], "+", RowBox[{ FormBox[ RowBox[{ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm], "-", FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm]}], ")"}], "\[InvisibleApplication]", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "1"}], SequenceForm["Lor", 1], Editable->False], TraditionalForm], ")"}]}], TraditionalForm], " ", FormBox[ RowBox[{ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], "-", FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm]}], ")"}], "\[InvisibleApplication]", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"Lor\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["Lor", 2], Editable->False], TraditionalForm], ")"}]}], TraditionalForm], " ", RowBox[{"(", RowBox[{"1", "-", FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm]}], ")"}], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], "-", FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], " ", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]}]], TraditionalForm], " ", FormBox[ FractionBox["1", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{ FormBox[ InterpretationBox[ RowBox[{"\<\"k\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["k", 2], Editable->False], TraditionalForm], "-", FormBox[ InterpretationBox[ RowBox[{"\<\"p\"\>", "\[InvisibleSpace]", "2"}], SequenceForm["p", 2], Editable->False], TraditionalForm]}], ")"}], "2"], "-", SuperscriptBox[ RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], "2"]}]], TraditionalForm]}]}], ")"}]}], ",", RowBox[{ RowBox[{"{", RowBox[{ FormBox[ SubscriptBox["\<\"xi\"\>", RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}]], TraditionalForm], ",", RowBox[{"Mass", "(", RowBox[{ RowBox[{"V", "(", FormBox[ InterpretationBox[ RowBox[{"\<\"Gen\"\>", "\[InvisibleSpace]", "5"}], SequenceForm["Gen", 5], Editable->False], TraditionalForm], ")"}], ",", "Internal"}], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"-\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", RowBox[{ FormBox[ TagBox[ SubsuperscriptBox["G", "FFV", RowBox[{"(", "0", ")"}]], DisplayForm], TraditionalForm], "(", FormBox[ RowBox[{ RowBox[{ FormBox["\<\"ga\"\>", TraditionalForm], "(", RowBox[{"KI1", "(", "3", ")"}], ")"}], ".", FormBox[ SubscriptBox["\<\"om\"\>", "\<\"+\"\>"], TraditionalForm]}], TraditionalForm], ")"}], ",", "RelativeCF"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Classes", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"Insertions", "(", "Particles", ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{"{", RowBox[{"Xi", ",", "MA", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "ele"}], ",", "0", ",", "1"}], "}"}], ")"}]}]}], ")"}]}]}]}], ")"}]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.784832235307631*^9, 3.7848322575448637`*^9}, 3.7848322971255627`*^9, {3.784832351463879*^9, 3.7848323711140413`*^9}, 3.784832542002696*^9, 3.784832576635111*^9, 3.7848326132049303`*^9, 3.784832762080182*^9, 3.784833478430751*^9, 3.784884722924157*^9, 3.7848864652279882`*^9, 3.784886874839966*^9, 3.784886939850136*^9, 3.784887057636733*^9, 3.784887095930545*^9, 3.7848871753206787`*^9, 3.7848872177431297`*^9, {3.784887265441003*^9, 3.78488727908385*^9}, 3.7848874137933283`*^9, 3.7848876785028553`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"ClearProcess", "[", "]"}], ";"}]], "Input", ExpressionUUID -> "eb3cdcd1-a2e5-427b-a6ae-1c4b723d9153"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"calcamp", "=", RowBox[{"CalcFeynAmp", "[", RowBox[{"feynamp", ",", RowBox[{"FermionChains", "\[Rule]", "Chiral"}], ",", RowBox[{"Transverse", "\[Rule]", "True"}], ",", RowBox[{"Invariants", "\[Rule]", "True"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.780132926035749*^9, 3.7801329334510193`*^9}, 3.784538267618985*^9, {3.784829487977057*^9, 3.784829524605239*^9}, { 3.784884934294064*^9, 3.784884937376498*^9}, {3.7848850526243*^9, 3.784885071188739*^9}, 3.784887183214776*^9}, ExpressionUUID -> "cccf3f67-6bfe-431c-8f25-3a796e70c4ae"], Cell[CellGroupData[{ Cell[BoxData[ FormBox["\<\"\\npreparing FORM code in /home/stefan/fc-amp-1.frm\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784887096047694*^9, 3.784887183625058*^9, 3.784887219923562*^9, { 3.7848872669285927`*^9, 3.784887281576754*^9}, 3.7848874138804903`*^9, 3.784887678575308*^9}], Cell[BoxData[ FormBox["\<\"running FORM... \"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784887096047694*^9, 3.784887183625058*^9, 3.784887219923562*^9, { 3.7848872669285927`*^9, 3.784887281576754*^9}, 3.7848874138804903`*^9, 3.784887678587083*^9}], Cell[BoxData[ FormBox["\<\"ok\\n\"\>", TraditionalForm]], "Print", CellChangeTimes->{ 3.784887096047694*^9, 3.784887183625058*^9, 3.784887219923562*^9, { 3.7848872669285927`*^9, 3.784887281576754*^9}, 3.7848874138804903`*^9, 3.784887678703268*^9}] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{"Amp", "(", RowBox[{ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}], RowBox[{"k", "(", "1", ")"}], "MF", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}, { RowBox[{"-", RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}]}], RowBox[{"k", "(", "2", ")"}], "MF", RowBox[{"{", RowBox[{"Charge", ",", RowBox[{"-", "LeptonNumber"}]}], "}"}]} }, 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]", ")"}], "\[Rule]", RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}], RowBox[{"k", "(", "3", ")"}], "MF", RowBox[{"{", RowBox[{ RowBox[{"-", "Charge"}], ",", "LeptonNumber"}], "}"}]}, { RowBox[{"-", RowBox[{"F", "(", RowBox[{"1", ",", RowBox[{"{", "1", "}"}]}], ")"}]}], RowBox[{"k", "(", "4", ")"}], "MF", RowBox[{"{", RowBox[{"Charge", ",", RowBox[{"-", "LeptonNumber"}]}], "}"}]} }, 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]", ")"}]}], ")"}], "\[InvisibleApplication]", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Mat", "(", "F1", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Den", "(", RowBox[{"S", ",", "MH2"}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Mat", "(", "F2", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"S", ",", "MH2"}], ")"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Mat", "(", "F3", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"S", ",", "MH2"}], ")"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Mat", "(", "F4", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Den", "(", RowBox[{"S", ",", "MH2"}], ")"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", RowBox[{"Den", "(", RowBox[{"S", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}]}], ")"}]}], "-", RowBox[{ SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "4"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "4"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}]}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["ele", "2"], " ", RowBox[{"Mat", "(", "F5", ")"}], " ", RowBox[{"(", RowBox[{"-", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"S", ",", SuperscriptBox["MA", "2"]}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}]}], ")"}]}], ")"}]}], "+", RowBox[{ RowBox[{"Mat", "(", "F6", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}]}], "-", RowBox[{ FractionBox["1", "16"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Mat", "(", "F7", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "16"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}]}], "-", RowBox[{ FractionBox["1", "16"], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}]}], "-", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Mat", "(", "F8", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}]}], ")"}]}]}], ")"}]}], "+", RowBox[{ RowBox[{"Mat", "(", "F9", ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], "-", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox["lam", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}]}], ")"}]}]}], ")"}]}]}], ")"}]}], TraditionalForm]], "Output", CellChangeTimes->{{3.777984223617752*^9, 3.777984231995285*^9}, 3.7779842760492477`*^9, 3.7779843504443417`*^9, {3.777984422736249*^9, 3.777984438340989*^9}, 3.777984805593178*^9, 3.7779851536703453`*^9, 3.780132934694594*^9, 3.780133406657666*^9, 3.780133973760857*^9, 3.780213446156638*^9, 3.780213501857584*^9, 3.780294172053447*^9, 3.7802945631193867`*^9, 3.780650890993754*^9, 3.780652849246192*^9, 3.780663697703041*^9, 3.7812569223062963`*^9, 3.781256971950755*^9, 3.781261758595963*^9, 3.781507667605755*^9, 3.7818525661455727`*^9, 3.7818580886913757`*^9, 3.784538268184183*^9, 3.784808771150893*^9, { 3.7848294800495157`*^9, 3.784829525230329*^9}, {3.784830677058485*^9, 3.784830706642557*^9}, 3.784831161588697*^9, 3.7848326379280376`*^9, 3.7848327628321867`*^9, 3.784833479100597*^9, 3.7848335305335293`*^9, 3.7848697500647373`*^9, 3.7848825320825157`*^9, 3.78488472353097*^9, 3.784884939631083*^9, {3.784885053292532*^9, 3.7848850718312893`*^9}, 3.784886465577628*^9, 3.7848868750137997`*^9, 3.784886940195809*^9, 3.784887057766268*^9, 3.7848870962708197`*^9, 3.784887183848628*^9, 3.784887220139758*^9, {3.7848872671334*^9, 3.7848872817793694`*^9}, 3.7848874140569677`*^9, 3.784887678826853*^9}, ExpressionUUID -> "d8237d11-6557-429a-bb63-366136437a75"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Abbr", "[", "]"}]], "Input", CellChangeTimes->{{3.784882718158656*^9, 3.784882719644992*^9}}], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{"F1", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 6, "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", 6, "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F3", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 7, "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", 6, "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F2", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 6, "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", 7, "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F4", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 7, "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", 7, "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F8", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 6, ",", FormCalc`Lor[1], "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", 6, ",", FormCalc`Lor[1], "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F5", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 7, ",", FormCalc`Lor[1], "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", 6, ",", FormCalc`Lor[1], "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F9", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", 7, ",", FormCalc`Lor[1], "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", 7, ",", FormCalc`Lor[1], "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F6", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", RowBox[{"-", "7"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "2", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", -7, ",", FormCalc`Lor[1], ",", FormCalc`Lor[2], "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", RowBox[{"-", "7"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "2", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", -7, ",", FormCalc`Lor[1], ",", FormCalc`Lor[2], "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}], ",", RowBox[{"F7", "\[Rule]", RowBox[{ RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", RowBox[{"-", "6"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "2", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "v", 1, "|", -6, ",", FormCalc`Lor[1], ",", FormCalc`Lor[2], "|", "u", 2, ">"], Editable->False], TraditionalForm], ")"}], " ", RowBox[{"(", FormBox[ InterpretationBox[ RowBox[{"\<\"<\"\>", "\[InvisibleSpace]", "\<\"u\"\>", "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", RowBox[{"-", "6"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "1", ")"}], "\[InvisibleSpace]", "\<\",\"\>", "\[InvisibleSpace]", RowBox[{"Lor", "(", "2", ")"}], "\[InvisibleSpace]", "\<\"|\"\>", "\[InvisibleSpace]", "\<\"v\"\>", "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\">\"\>"}], SequenceForm["<", "u", 3, "|", -6, ",", FormCalc`Lor[1], ",", FormCalc`Lor[2], "|", "v", 4, ">"], Editable->False], TraditionalForm], ")"}]}]}]}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{ 3.784882720016842*^9, 3.784884723662312*^9, 3.784884943593567*^9, { 3.784885055685379*^9, 3.784885072565119*^9}, 3.784886465652025*^9, 3.784886875074196*^9, 3.7848869402848*^9, 3.784887057825732*^9, 3.784887096334752*^9, 3.784887185937645*^9, 3.784887221703259*^9, 3.7848872824729137`*^9, 3.7848874141326942`*^9, 3.7848876788888493`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"calcampsquared", "=", RowBox[{"SquaredME", "[", "calcamp", "]"}]}]], "Input", CellChangeTimes->{{3.78483082629008*^9, 3.784830838614959*^9}}], Cell[BoxData[ FormBox[ InterpretationBox[ TagBox[ FrameBox[GridBox[{ { ItemBox[ TagBox[ RowBox[{ TemplateBox[{"93"}, "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]& )], "+", TemplateBox[{"1"}, "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[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], ")"}], " ", SuperscriptBox["lam", "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox[ RowBox[{"(", TemplateBox[{"MA"}, "Conjugate"], ")"}], "2"], " ", TemplateBox[{"Xi"}, "Conjugate"]}]}], ")"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", TemplateBox[{"lam"}, "Conjugate"], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", TemplateBox[{"4"}, "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[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox[ TemplateBox[{"1"}, "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]& )], "2"], " ", TemplateBox[{"Xi"}, "Conjugate"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Mat", "(", RowBox[{"F9", ",", "F8"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}], ")"}], " ", SuperscriptBox["lam", "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["ele", "2"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{"1", "-", "Xi"}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", RowBox[{"(", RowBox[{ RowBox[{"Den", "(", RowBox[{"T", ",", "MH2"}], ")"}], "+", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox[ RowBox[{"(", TemplateBox[{"MA"}, "Conjugate"], ")"}], "2"], " ", TemplateBox[{"Xi"}, "Conjugate"]}]}], ")"}]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", TemplateBox[{"lam"}, "Conjugate"], ")"}], "2"]}], "-", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox[ RowBox[{"(", TemplateBox[{"ele"}, "Conjugate"], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", TemplateBox[{"MF"}, "Conjugate"], ")"}], "2"], " ", RowBox[{"(", RowBox[{"1", "-", TemplateBox[{"Xi"}, "Conjugate"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", SuperscriptBox[ RowBox[{"(", TemplateBox[{"MA"}, "Conjugate"], ")"}], "2"]}], ")"}], " ", RowBox[{"Den", "(", RowBox[{"T", ",", RowBox[{ SuperscriptBox[ RowBox[{"(", TemplateBox[{"MA"}, "Conjugate"], ")"}], "2"], " ", TemplateBox[{"Xi"}, "Conjugate"]}]}], ")"}]}]}], ")"}], " ", RowBox[{"Mat", "(", RowBox[{"F9", ",", "F9"}], ")"}]}]}], Short[#, 5]& ], BaseStyle->{Deployed -> False}, StripOnInput->False]}, {GridBox[{ { TagBox[ TooltipBox[ StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource[ "FEStrings", "sizeBriefExplanation"], TraditionalForm], ImageSizeCache->{74., {2., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarCategory", StripOnInput->False], StyleBox[ DynamicBox[ ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], TraditionalForm]], 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"], TraditionalForm], ImageSizeCache->{67., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], TraditionalForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 12, 25860951877832224263, 5/2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], TraditionalForm], ImageSizeCache->{73., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], TraditionalForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 12, 25860951877832224263, 5 2], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], TraditionalForm], ImageSizeCache->{56., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], TraditionalForm]], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControlActive", StripOnInput->False]}, Dynamic[ CurrentValue["MouseOver"]], Alignment->Center, FrameMargins->0, ImageSize->{Automatic, 25}], Appearance->None, ButtonFunction:>OutputSizeLimit`ButtonFunction[ OutputSizeLimit`Defer, 12, 25860951877832224263, Infinity], Enabled->True, Evaluator->Automatic, Method->"Queued"], ButtonBox[ PaneSelectorBox[{False-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], TraditionalForm], ImageSizeCache->{100., {0., 8.}}], StripOnInput->False, DynamicUpdating->True], "SuggestionsBarControl", StripOnInput->False], True-> StyleBox[ StyleBox[ DynamicBox[ToBoxes[ FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], TraditionalForm]], 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[12]], TraditionalForm]], "Output", CellChangeTimes->{{3.784830831737357*^9, 3.784830839148559*^9}, 3.784831163689118*^9, 3.784832644462249*^9, 3.7848327632872353`*^9, 3.7848334793128767`*^9, 3.784833531214259*^9, 3.784884176200321*^9, 3.78488472393148*^9, 3.784884945976719*^9, {3.784885056205144*^9, 3.784885073534855*^9}, 3.7848864658386917`*^9, 3.7848868751374683`*^9, 3.784886940584148*^9, 3.784887057886945*^9, 3.7848870965574512`*^9, 3.784887186637896*^9, 3.784887222228622*^9, 3.7848872832348747`*^9, 3.7848874143349*^9, 3.784887679278235*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Hel", "[", "a_", "]"}], "=", "0"}]], "Input", CellChangeTimes->{{3.784830962353651*^9, 3.784830966783185*^9}}], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output", CellChangeTimes->{3.784830967251747*^9, 3.784831173893467*^9, 3.784832650815967*^9, 3.78483276369427*^9, 3.784833479534676*^9, 3.784833532093217*^9, 3.784882708416419*^9, 3.784884179443832*^9, 3.784884724030035*^9, 3.784884948537697*^9, 3.784885074382176*^9, 3.784886465912425*^9, 3.784886875188401*^9, 3.784886940675516*^9, 3.784887057947633*^9, 3.7848870967968397`*^9, 3.784887188162663*^9, 3.784887223773844*^9, 3.7848872851480703`*^9, 3.784887414402033*^9, 3.7848876793489113`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"replacehel", "=", RowBox[{"HelicityME", "[", "calcampsquared", "]"}]}]], "Input", CellChangeTimes->{{3.784830924761294*^9, 3.784830945088273*^9}}], Cell[CellGroupData[{ Cell[BoxData[ FormBox[ InterpretationBox[ RowBox[{"\<\"> \"\>", "\[InvisibleSpace]", "81", "\[InvisibleSpace]", "\<\" helicity matrix elements\"\>"}], SequenceForm["> ", 81, " helicity matrix elements"], Editable->False], TraditionalForm]], "Print", CellChangeTimes->{3.784887096868289*^9, 3.784887188537208*^9, 3.7848872241954*^9, 3.78488728557935*^9, 3.784887414457708*^9, 3.784887679398202*^9}], Cell[BoxData[ FormBox["\<\"\\npreparing FORM code in /home/stefan/fc-hel-1.frm\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.784887096868289*^9, 3.784887188537208*^9, 3.7848872241954*^9, 3.78488728557935*^9, 3.784887414457708*^9, 3.784887679405478*^9}], Cell[BoxData[ FormBox["\<\"running FORM... \"\>", TraditionalForm]], "Print", CellChangeTimes->{3.784887096868289*^9, 3.784887188537208*^9, 3.7848872241954*^9, 3.78488728557935*^9, 3.784887414457708*^9, 3.784887679450482*^9}], Cell[BoxData[ FormBox["\<\"ok\\n\"\>", TraditionalForm]], "Print", CellChangeTimes->{3.784887096868289*^9, 3.784887188537208*^9, 3.7848872241954*^9, 3.78488728557935*^9, 3.784887414457708*^9, 3.784887679562702*^9}] }, Open ]], Cell[BoxData[ FormBox[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F1"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "16"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F3"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F2"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F4"}], ")"}], "\[Rule]", FractionBox[ SuperscriptBox["MF", "4"], "4"]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F6"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F1", ",", "F7"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "S", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["MF", "2"]}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F1"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F3"}], ")"}], "\[Rule]", FractionBox[ SuperscriptBox["MF", "4"], "4"]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F2"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "16"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F4"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F6"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F2", ",", "F7"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F1"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F3"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "16"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F2"}], ")"}], "\[Rule]", FractionBox[ SuperscriptBox["MF", "4"], "4"]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F4"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F6"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F3", ",", "F7"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F1"}], ")"}], "\[Rule]", FractionBox[ SuperscriptBox["MF", "4"], "4"]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F3"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F2"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F4"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "16"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F6"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "S", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["MF", "2"]}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F4", ",", "F7"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F1"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F3"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F2"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F4"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F6"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F5", ",", "F7"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F1"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F3"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F2"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F4"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "S", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["MF", "2"]}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F6"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"12", " ", SuperscriptBox["MF", "4"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}], " ", SuperscriptBox["MF", "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F6", ",", "F7"}], ")"}], "\[Rule]", RowBox[{"12", " ", SuperscriptBox["MF", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F1"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", "S", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["MF", "2"]}], "-", "S", "-", RowBox[{"2", " ", "U"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F3"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F2"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F4"}], ")"}], "\[Rule]", "0"}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F6"}], ")"}], "\[Rule]", RowBox[{"12", " ", SuperscriptBox["MF", "4"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F7", ",", "F7"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"12", " ", SuperscriptBox["MF", "4"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "+", "U"}], ")"}], " ", SuperscriptBox["MF", "2"]}], "+", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "U"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F1"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F3"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F2"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F4"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F8"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F9"}], ")"}], "\[Rule]", SuperscriptBox["MF", "4"]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F6"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F8", ",", "F7"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F1"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F3"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F2"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "8"], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "U"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F4"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "8"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F8"}], ")"}], "\[Rule]", SuperscriptBox["MF", "4"]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F5"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["1", "4"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "S"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F9"}], ")"}], "\[Rule]", RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}], "2"]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F6"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}], ",", RowBox[{ RowBox[{"Mat", "(", RowBox[{"F9", ",", "F7"}], ")"}], "\[Rule]", RowBox[{ RowBox[{"-", FractionBox["3", "2"]}], " ", SuperscriptBox["MF", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["MF", "2"]}], "-", "T"}], ")"}]}]}]}], "}"}], TraditionalForm]], "Output", CellChangeTimes->{{3.784830927449542*^9, 3.7848309505772038`*^9}, 3.784831174773628*^9, 3.7848326518402023`*^9, 3.784832764118449*^9, 3.784833479909295*^9, 3.784833533143445*^9, 3.784882709236774*^9, 3.7848841806140747`*^9, 3.784884724326284*^9, 3.784884949406341*^9, 3.7848850754080877`*^9, 3.7848864662056704`*^9, 3.78488687527971*^9, 3.784886941034799*^9, 3.784887058013692*^9, 3.784887097043714*^9, 3.784887188777748*^9, 3.78488722441374*^9, 3.784887285757927*^9, 3.7848874146900673`*^9, 3.784887679606784*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"calcampsquaredsimp", "=", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"calcampsquared", "//.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Conjugate", "[", "Xi", "]"}], "\[Rule]", "Xi"}], ",", RowBox[{ RowBox[{"Conjugate", "[", "lam", "]"}], "\[Rule]", "lam"}], ",", RowBox[{ RowBox[{"Conjugate", "[", "ele", "]"}], "\[Rule]", "ele"}], ",", RowBox[{ RowBox[{"Conjugate", "[", "MF", "]"}], "\[Rule]", "MF"}], ",", RowBox[{ RowBox[{"Conjugate", "[", "MA", "]"}], "\[Rule]", "MA"}]}], "}"}]}], "//.", "replacehel"}], "//.", RowBox[{ RowBox[{"Den", "[", RowBox[{"a_", ",", "b_"}], "]"}], "\[Rule]", RowBox[{"1", "/", RowBox[{"(", RowBox[{"a", "-", "b"}], ")"}]}]}]}], "//.", RowBox[{"U", "\[Rule]", RowBox[{ RowBox[{"4", "*", RowBox[{"MF", "^", "2"}]}], "-", "S", "-", "T"}]}]}], "//", "Expand"}]}]], "Input", CellChangeTimes->{{3.784830841208753*^9, 3.7848309175809307`*^9}, { 3.784830954303029*^9, 3.784831061909214*^9}, {3.784831180750526*^9, 3.7848312569745417`*^9}, {3.784832657085053*^9, 3.784832681307513*^9}, 3.784833046862784*^9, {3.784833081138483*^9, 3.784833093260309*^9}, 3.784833310650239*^9, {3.784833493062532*^9, 3.7848335129077806`*^9}, { 3.7848335896073303`*^9, 3.784833598199854*^9}, {3.7848337101687737`*^9, 3.7848337108466997`*^9}, {3.784884743886434*^9, 3.784884752783407*^9}, { 3.784885692571232*^9, 3.784885727941101*^9}, 3.7848861007251587`*^9, { 3.7848871578393373`*^9, 3.78488716194355*^9}, {3.784887292247775*^9, 3.784887298142849*^9}, {3.784887402633552*^9, 3.7848874092065897`*^9}, { 3.7848874513378677`*^9, 3.784887454301107*^9}, {3.784887599096923*^9, 3.784887605300868*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox[ RowBox[{ SuperscriptBox["T", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"S", " ", "T", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["T", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "4"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{"S", " ", "T", " ", SuperscriptBox["ele", "4"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox["MF", "4"], " ", SuperscriptBox["ele", "4"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["S", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "4"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", "Xi", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", "Xi", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "T", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", "T", " ", SuperscriptBox["Xi", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", "T", " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", "T", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["ele", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ SuperscriptBox["S", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["ele", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]], "+", FractionBox[ RowBox[{ SuperscriptBox["S", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["T", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]], "+", FractionBox[ RowBox[{"S", " ", "T", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["Xi", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["S", "2"], " ", "Xi", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["Xi", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["T", "2"], " ", "Xi", " ", SuperscriptBox["ele", "4"]}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["ele", "4"]}], RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", SuperscriptBox["ele", "2"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", SuperscriptBox["ele", "2"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", SuperscriptBox["ele", "2"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", SuperscriptBox["ele", "2"]}], RowBox[{ RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", "S", " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", "S", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "4"], " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"2", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", "S", " ", "T", " ", SuperscriptBox["ele", "2"]}], RowBox[{"8", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", SuperscriptBox["S", "2"], " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", SuperscriptBox["T", "2"], " ", "Xi", " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "2"], " ", SuperscriptBox["MF", "2"], " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["ele", "2"]}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "-", SuperscriptBox["MA", "2"]}], ")"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "2"], " ", "T"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", "S", " ", "T"}], RowBox[{"16", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "4"]}], RowBox[{ RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "2"], " ", "S"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "2"], " ", "S"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", "S", " ", "T"}], RowBox[{"16", " ", RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "2"], " ", "T"}], RowBox[{"4", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", "S", " ", "T"}], RowBox[{"16", " ", RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", "S", " ", "T"}], RowBox[{"16", " ", RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], " ", RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], "2"]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["S", "2"]}], RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "2"], " ", "S"}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", "MH2"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "4"]}], SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], "2"]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["T", "2"]}], RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["MF", "2"], " ", "T"}], RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", "MH2"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["S", "2"]}], RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{ SuperscriptBox["lam", "4"], " ", SuperscriptBox["T", "2"]}], RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"T", "-", RowBox[{ SuperscriptBox["MA", "2"], " ", "Xi"}]}], ")"}], "2"]}]]}], TraditionalForm]], "Output", CellChangeTimes->{{3.7848308443367023`*^9, 3.784830918068735*^9}, { 3.784830969848822*^9, 3.784831062477051*^9}, {3.784831176021327*^9, 3.78483118716255*^9}, {3.784831224368341*^9, 3.784831257389985*^9}, { 3.784832655624967*^9, 3.784832681745679*^9}, 3.784832764402822*^9, 3.784833047888097*^9, {3.7848330830722446`*^9, 3.784833093766025*^9}, 3.7848333113616667`*^9, {3.784833480198269*^9, 3.784833501204691*^9}, 3.784833533889641*^9, 3.7848335985410213`*^9, 3.784833711532824*^9, 3.784884182681838*^9, {3.7848847245886497`*^9, 3.784884753289301*^9}, 3.784885076547059*^9, 3.784885693181559*^9, 3.784885728462904*^9, 3.784886101367835*^9, 3.784886466322548*^9, 3.784886875388014*^9, 3.78488694119483*^9, 3.7848870580895348`*^9, 3.784887097194948*^9, 3.7848871910975857`*^9, 3.784887226688212*^9, {3.784887287652073*^9, 3.78488729873617*^9}, 3.7848874147872353`*^9, 3.784887454901657*^9, 3.7848876067469053`*^9, 3.784887679681391*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{ "The", " ", "masses", " ", "of", " ", "the", " ", "fermions", " ", "are", " ", "generated", " ", "through", " ", "the", " ", "symmetry", " ", "breaking", " ", "mechanism"}], ",", " ", RowBox[{ RowBox[{"such", " ", "that", " ", "MF"}], "=", RowBox[{ RowBox[{ RowBox[{"lam", "/", RowBox[{"Sqrt", "[", "2", "]"}]}], "*", RowBox[{"v", ".", " ", "Reexpressing"}], " ", "v"}], "=", RowBox[{ RowBox[{"mA", "/", "ele"}], " ", "through", " ", "mA", " ", "leads", " ", "to", " ", "the", " ", "subsequent", " ", "replacement", " ", "rule", " ", "for", " ", RowBox[{"lam", ":"}]}]}]}]}], "*)"}]], "Input", CellChangeTimes->{{3.7848875134153967`*^9, 3.784887588988688*^9}, { 3.7848876471966887`*^9, 3.784887649430799*^9}, {3.784887699655047*^9, 3.7848877058240433`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"result", "=", RowBox[{"Simplify", "[", RowBox[{"calcampsquaredsimp", "//.", RowBox[{"lam", "\[Rule]", RowBox[{ RowBox[{"Sqrt", "[", "2", "]"}], "*", "ele", "*", RowBox[{"MF", "/", "MA"}]}]}]}], "]"}]}]], "Input", CellChangeTimes->{{3.784833733574264*^9, 3.784833734073591*^9}, { 3.784884265891458*^9, 3.784884277642734*^9}, {3.78488507994867*^9, 3.784885094645894*^9}, {3.7848851265644493`*^9, 3.784885131772595*^9}, { 3.784885178863549*^9, 3.784885254951894*^9}, {3.78488534356499*^9, 3.784885388592578*^9}, 3.7848854228125353`*^9, {3.784885734339933*^9, 3.784885758075654*^9}, {3.7848859188121862`*^9, 3.784885959234972*^9}, { 3.784885993243416*^9, 3.784885994442924*^9}, {3.784886075836481*^9, 3.784886077690654*^9}, 3.7848873142558603`*^9, {3.784887429326233*^9, 3.784887462607295*^9}}], Cell[BoxData[ FormBox[ RowBox[{ FractionBox["1", RowBox[{"4", " ", SuperscriptBox["MA", "4"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["MA", "2"], "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["MA", "2"], "-", "T"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "T"}], ")"}], "2"]}]], RowBox[{ SuperscriptBox["ele", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", RowBox[{"(", RowBox[{ SuperscriptBox["MH2", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", "MH2"}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "-", RowBox[{"S", " ", "T"}]}], ")"}], " ", SuperscriptBox["MF", "8"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["MH2", "3"]}], "-", RowBox[{"11", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", SuperscriptBox["MH2", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], "2"], " ", "MH2"}], "-", RowBox[{"3", " ", "S", " ", "T", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}]}], ")"}], " ", SuperscriptBox["MF", "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", SuperscriptBox["MH2", "4"]}], "-", RowBox[{"20", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", SuperscriptBox["MH2", "3"]}], "-", RowBox[{"3", " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "-", RowBox[{"11", " ", "T", " ", "S"}], "+", SuperscriptBox["T", "2"]}], ")"}], " ", SuperscriptBox["MH2", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["S", "3"]}], "-", RowBox[{"7", " ", "T", " ", SuperscriptBox["S", "2"]}], "-", RowBox[{"7", " ", SuperscriptBox["T", "2"], " ", "S"}], "+", RowBox[{"8", " ", SuperscriptBox["T", "3"]}]}], ")"}], " ", "MH2"}], "+", RowBox[{"S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"11", " ", "T", " ", "S"}], "-", RowBox[{"8", " ", SuperscriptBox["T", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["MF", "4"]}], "-", RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "T"}], ")"}], "2"], " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", SuperscriptBox["MF", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "T"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], "2"]}]}], ")"}], " ", SuperscriptBox["MA", "8"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"32", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["MH2", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", "MH2"}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "-", RowBox[{"S", " ", "T"}]}], ")"}], " ", SuperscriptBox["MF", "8"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"13", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", SuperscriptBox["MH2", "3"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"17", " ", "T", " ", "S"}], "+", RowBox[{"9", " ", SuperscriptBox["T", "2"]}]}], ")"}], " ", SuperscriptBox["MH2", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"22", " ", "T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"22", " ", SuperscriptBox["T", "2"], " ", "S"}], "+", RowBox[{"9", " ", SuperscriptBox["T", "3"]}]}], ")"}], " ", "MH2"}], "-", RowBox[{"S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"8", " ", "T", " ", "S"}], "+", RowBox[{"5", " ", SuperscriptBox["T", "2"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["MF", "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"20", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", SuperscriptBox["MH2", "4"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"11", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"21", " ", "T", " ", "S"}], "+", RowBox[{"11", " ", SuperscriptBox["T", "2"]}]}], ")"}], " ", SuperscriptBox["MH2", "3"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "8"}], " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"23", " ", "T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"23", " ", SuperscriptBox["T", "2"], " ", "S"}], "-", RowBox[{"8", " ", SuperscriptBox["T", "3"]}]}], ")"}], " ", SuperscriptBox["MH2", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"12", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"9", " ", "T", " ", SuperscriptBox["S", "3"]}], "-", RowBox[{"4", " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"9", " ", SuperscriptBox["T", "3"], " ", "S"}], "+", RowBox[{"12", " ", SuperscriptBox["T", "4"]}]}], ")"}], " ", "MH2"}], "+", RowBox[{"S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "12"}], " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{ SuperscriptBox["T", "2"], " ", "S"}], "-", RowBox[{"12", " ", SuperscriptBox["T", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["MF", "4"]}], "-", RowBox[{"16", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "T"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], "2"], " ", SuperscriptBox["MF", "2"]}], "+", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "T"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], "3"]}]}], ")"}], " ", SuperscriptBox["MA", "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"16", " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", RowBox[{"4", " ", "T", " ", "S"}], "+", SuperscriptBox["T", "2"]}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["MH2", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", "MH2"}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "-", RowBox[{"S", " ", "T"}]}], ")"}], " ", SuperscriptBox["MF", "8"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"5", " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", RowBox[{"4", " ", "T", " ", "S"}], "+", SuperscriptBox["T", "2"]}], ")"}], " ", SuperscriptBox["MH2", "3"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"7", " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"32", " ", "T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"32", " ", SuperscriptBox["T", "2"], " ", "S"}], "+", RowBox[{"7", " ", SuperscriptBox["T", "3"]}]}], ")"}], " ", SuperscriptBox["MH2", "2"]}], "+", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"9", " ", "T", " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"11", " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"9", " ", SuperscriptBox["T", "3"], " ", "S"}], "+", RowBox[{"2", " ", SuperscriptBox["T", "4"]}]}], ")"}], " ", "MH2"}], "-", RowBox[{"S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"7", " ", "T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"7", " ", SuperscriptBox["T", "2"], " ", "S"}], "+", RowBox[{"2", " ", SuperscriptBox["T", "3"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["MF", "6"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"7", " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", RowBox[{"3", " ", "T", " ", "S"}], "+", SuperscriptBox["T", "2"]}], ")"}], " ", SuperscriptBox["MH2", "4"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"8", " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"23", " ", "T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"23", " ", SuperscriptBox["T", "2"], " ", "S"}], "+", RowBox[{"8", " ", SuperscriptBox["T", "3"]}]}], ")"}], " ", SuperscriptBox["MH2", "3"]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "4"], "+", RowBox[{"3", " ", "T", " ", SuperscriptBox["S", "3"]}], "-", RowBox[{"5", " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["T", "3"], " ", "S"}], "+", SuperscriptBox["T", "4"]}], ")"}], " ", SuperscriptBox["MH2", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["S", "5"]}], "+", RowBox[{"14", " ", "T", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"11", " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"11", " ", SuperscriptBox["T", "3"], " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"14", " ", SuperscriptBox["T", "4"], " ", "S"}], "+", RowBox[{"4", " ", SuperscriptBox["T", "5"]}]}], ")"}], " ", "MH2"}], "-", RowBox[{"S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{"4", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"11", " ", "T", " ", SuperscriptBox["S", "3"]}], "-", RowBox[{"5", " ", SuperscriptBox["T", "2"], " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"11", " ", SuperscriptBox["T", "3"], " ", "S"}], "+", RowBox[{"4", " ", SuperscriptBox["T", "4"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["MF", "4"]}], "-", RowBox[{"4", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "T"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], "3"], " ", SuperscriptBox["MF", "2"]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "S"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"MH2", "-", "T"}], ")"}], "2"], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], "4"]}]}], ")"}], " ", SuperscriptBox["MA", "4"]}], "-", RowBox[{ SuperscriptBox["MF", "4"], " ", "S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{"32", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", RowBox[{"(", RowBox[{ SuperscriptBox["MH2", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", "MH2"}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "-", RowBox[{"S", " ", "T"}]}], ")"}], " ", SuperscriptBox["MF", "4"]}], "-", RowBox[{"4", " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", SuperscriptBox["MH2", "3"]}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"9", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"16", " ", "T", " ", "S"}], "+", RowBox[{"9", " ", SuperscriptBox["T", "2"]}]}], ")"}], " ", SuperscriptBox["MH2", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"6", " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"7", " ", "T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"7", " ", SuperscriptBox["T", "2"], " ", "S"}], "+", RowBox[{"6", " ", SuperscriptBox["T", "3"]}]}], ")"}], " ", "MH2"}], "-", RowBox[{"2", " ", "S", " ", "T", " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", RowBox[{"T", " ", "S"}], "+", SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}], " ", SuperscriptBox["MF", "2"]}], "+", RowBox[{"7", " ", SuperscriptBox["MH2", "4"], " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}], "-", RowBox[{ SuperscriptBox["MH2", "3"], " ", RowBox[{"(", RowBox[{ RowBox[{"7", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"12", " ", "T", " ", "S"}], "+", RowBox[{"7", " ", SuperscriptBox["T", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", "S", " ", "T", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{ SuperscriptBox["T", "2"], " ", "S"}], "-", RowBox[{"2", " ", SuperscriptBox["T", "3"]}]}], ")"}]}], "+", RowBox[{ SuperscriptBox["MH2", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["S", "3"]}], "+", RowBox[{"5", " ", "T", " ", SuperscriptBox["S", "2"]}], "+", RowBox[{"5", " ", SuperscriptBox["T", "2"], " ", "S"}], "-", RowBox[{"2", " ", SuperscriptBox["T", "3"]}]}], ")"}]}], "+", RowBox[{"2", " ", "MH2", " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["S", "4"]}], "+", RowBox[{"T", " ", SuperscriptBox["S", "3"]}], "-", RowBox[{ SuperscriptBox["T", "2"], " ", SuperscriptBox["S", "2"]}], "+", RowBox[{ SuperscriptBox["T", "3"], " ", "S"}], "+", RowBox[{"2", " ", SuperscriptBox["T", "4"]}]}], ")"}]}]}], ")"}], " ", SuperscriptBox["MA", "2"]}], "+", RowBox[{ SuperscriptBox["MF", "4"], " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["T", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"16", " ", RowBox[{"(", RowBox[{ SuperscriptBox["MH2", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", "MH2"}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "-", RowBox[{"S", " ", "T"}]}], ")"}], " ", SuperscriptBox["MF", "4"]}], "-", RowBox[{"8", " ", "MH2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["MH2", "2"], "-", RowBox[{ RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}], " ", "MH2"}], "+", SuperscriptBox["S", "2"], "+", SuperscriptBox["T", "2"], "-", RowBox[{"S", " ", "T"}]}], ")"}], " ", SuperscriptBox["MF", "2"]}], "+", RowBox[{"3", " ", SuperscriptBox["MH2", "4"]}], "+", RowBox[{"4", " ", SuperscriptBox["S", "2"], " ", SuperscriptBox["T", "2"]}], "-", RowBox[{"5", " ", SuperscriptBox["MH2", "3"], " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}], "-", RowBox[{"6", " ", "MH2", " ", "S", " ", "T", " ", RowBox[{"(", RowBox[{"S", "+", "T"}], ")"}]}], "+", RowBox[{"3", " ", SuperscriptBox["MH2", "2"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["S", "2"], "+", RowBox[{"3", " ", "T", " ", "S"}], "+", SuperscriptBox["T", "2"]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], TraditionalForm]], "Output", CellChangeTimes->{ 3.784885423597934*^9, {3.784885714543837*^9, 3.784885759465262*^9}, 3.784885888929496*^9, {3.784885920268659*^9, 3.784885960521904*^9}, 3.7848859950894938`*^9, {3.784886078168344*^9, 3.784886106601448*^9}, 3.784886467483409*^9, 3.7848868754676456`*^9, 3.784887058149746*^9, { 3.784887427585042*^9, 3.7848874630962887`*^9}, 3.784887611554041*^9, 3.784887680879871*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"D", "[", RowBox[{"result", ",", "Xi"}], "]"}]], "Input", CellChangeTimes->{{3.784887464645184*^9, 3.7848874806534853`*^9}}], Cell[BoxData[ FormBox["0", TraditionalForm]], "Output", CellChangeTimes->{{3.7848874711979713`*^9, 3.784887481056629*^9}, 3.784887613210243*^9, 3.7848876809436703`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ "This", " ", "result", " ", "is", " ", "indeed", " ", "independent", " ", "of", " ", RowBox[{"Xi", "!"}]}], "*)"}]], "Input", CellChangeTimes->{{3.784886127058343*^9, 3.784886145215046*^9}, { 3.784887485573204*^9, 3.784887488173684*^9}}] }, WindowSize->{1855, 1028}, WindowMargins->{{0, Automatic}, {0, 28}}, FrontEndVersion->"11.0 for Linux x86 (64-bit) (July 28, 2016)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 875, 15, 52, "Input"], Cell[CellGroupData[{ Cell[1480, 41, 603, 10, 23, "Print"], Cell[2086, 53, 629, 10, 23, "Print"], Cell[2718, 65, 650, 11, 23, "Print"], Cell[3371, 78, 603, 10, 23, "Print"], Cell[3977, 90, 630, 10, 23, "Print"], Cell[4610, 102, 617, 10, 23, "Print"] }, Open ]] }, Open ]], Cell[5254, 116, 240, 6, 32, "Input"], Cell[CellGroupData[{ Cell[5519, 126, 1359, 21, 35, "Input"], Cell[6881, 149, 1062, 20, 23, "Print"], Cell[7946, 171, 884, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8867, 191, 1519, 36, 35, "Input"], Cell[CellGroupData[{ Cell[10411, 231, 739, 11, 23, "Print"], Cell[11153, 244, 1190, 23, 23, "Print"], Cell[12346, 269, 760, 11, 23, "Print"], Cell[13109, 282, 986, 17, 23, "Print"], Cell[14098, 301, 737, 11, 23, "Print"], Cell[14838, 314, 1142, 21, 23, "Print"], Cell[15983, 337, 1052, 18, 23, "Print"], Cell[17038, 357, 759, 11, 23, "Print"], Cell[17800, 370, 909, 16, 23, "Print"], Cell[18712, 388, 1080, 20, 23, "Print"], Cell[19795, 410, 739, 11, 23, "Print"], Cell[20537, 423, 1022, 19, 23, "Print"], Cell[21562, 444, 1039, 19, 23, "Print"], Cell[22604, 465, 1039, 19, 23, "Print"], Cell[23646, 486, 1039, 19, 23, "Print"], Cell[24688, 507, 1039, 19, 23, "Print"], Cell[25730, 528, 970, 18, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[26749, 552, 189, 3, 35, "Input"], Cell[CellGroupData[{ Cell[26963, 559, 481, 11, 23, "Print"], Cell[27447, 572, 481, 11, 23, "Print"], Cell[27931, 585, 37565, 870, 296, "Print"], Cell[65499, 1457, 30447, 704, 296, "Print"] }, Open ]], Cell[95961, 2164, 7647, 195, 69, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103645, 2364, 262, 7, 35, "Input"], Cell[CellGroupData[{ Cell[103932, 2375, 253, 5, 23, "Print"], Cell[104188, 2382, 559, 13, 23, "Print"], Cell[104750, 2397, 555, 13, 23, "Print"], Cell[105308, 2412, 555, 13, 23, "Print"], Cell[105866, 2427, 486, 12, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[106401, 2445, 99, 1, 32, "Input"], Cell[106503, 2448, 60481, 1682, 857, "Output"] }, Open ]], Cell[166999, 4133, 137, 3, 32, "Input"], Cell[CellGroupData[{ Cell[167161, 4140, 596, 11, 35, "Input"], Cell[CellGroupData[{ Cell[167782, 4155, 307, 6, 43, "Print"], Cell[168092, 4163, 269, 5, 23, "Print"], Cell[168364, 4170, 258, 5, 43, "Print"] }, Open ]], Cell[168637, 4178, 14313, 397, 356, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[182987, 4580, 118, 2, 32, "Input"], Cell[183108, 4584, 12256, 271, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195401, 4860, 169, 3, 32, "Input"], Cell[195573, 4865, 15835, 388, 136, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[211445, 5258, 146, 3, 33, "Input"], Cell[211594, 5263, 564, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[212195, 5277, 174, 3, 32, "Input"], Cell[CellGroupData[{ Cell[212394, 5284, 421, 9, 23, "Print"], Cell[212818, 5295, 271, 5, 43, "Print"], Cell[213092, 5302, 233, 4, 23, "Print"], Cell[213328, 5308, 222, 4, 43, "Print"] }, Open ]], Cell[213565, 5315, 22844, 734, 620, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[236446, 6054, 1881, 42, 35, "Input"], Cell[238330, 6098, 31454, 1031, 677, "Output"] }, Open ]], Cell[269799, 7132, 901, 21, 52, "Input"], Cell[CellGroupData[{ Cell[270725, 7157, 875, 16, 35, "Input"], Cell[271603, 7175, 21275, 557, 308, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[292915, 7737, 151, 3, 35, "Input"], Cell[293069, 7742, 174, 3, 31, "Output"] }, Open ]], Cell[293258, 7748, 291, 7, 32, "Input"] } ] *)