A2_2_1loop.nb

(* 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[    302039,       9070]
NotebookOptionsPosition[    281830,       8731]
NotebookOutlinePosition[    282195,       8747]
CellTagsIndexPosition[    282152,       8744]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"BarnesG", "[", 
        RowBox[{"1", "+", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
       RowBox[{"BarnesG", "[", 
        RowBox[{"1", "-", " ", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"BarnesG", "[", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
     RowBox[{"BarnesG", "[", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}], ")"}]}], "/.", 
  RowBox[{"x", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{{3.831822241928776*^9, 3.8318222546463737`*^9}, {
   3.831822303035598*^9, 3.831822311801558*^9}, {3.831822594038059*^9, 
   3.831822610396687*^9}, 3.831871970781955*^9},
 CellLabel->
  "In[9347]:=",ExpressionUUID->"90f3c452-edd4-4043-be0f-5fb102fcee55"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
    SuperscriptBox["\[Sigma]1", "2"]], " ", 
   RowBox[{"BarnesG", "[", 
    RowBox[{"1", "-", "\[Sigma]1"}], "]"}], " ", 
   RowBox[{"BarnesG", "[", 
    RowBox[{"1", "+", "\[Sigma]1"}], "]"}]}], 
  RowBox[{
   RowBox[{"BarnesG", "[", 
    RowBox[{"1", "-", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}], " ", 
   RowBox[{"BarnesG", "[", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]}]]], "Output",
 CellChangeTimes->{{3.831822600193088*^9, 3.8318226107459373`*^9}, 
   3.831871971522688*^9},
 CellLabel->
  "Out[9347]=",ExpressionUUID->"9b30ed27-18c2-4471-aeea-7269332c1751"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
        SuperscriptBox["\[Sigma]1", "2"]], "  ", 
       RowBox[{"BarnesG", "[", 
        RowBox[{"1", "+", "\[Sigma]1"}], "]"}]}], 
      RowBox[{" ", 
       RowBox[{"BarnesG", "[", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]}]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Series", "[", " ", 
        RowBox[{
         FractionBox[
          RowBox[{"BarnesG", "[", 
           RowBox[{"1", "+", "\[Sigma]1"}], "]"}], 
          RowBox[{"BarnesG", "[", 
           RowBox[{"1", "+", 
            RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]], ",", 
         RowBox[{"{", 
          RowBox[{"\[Sigma]1", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "//", 
       RowBox[{"Normal", "/.", 
        RowBox[{"\[Sigma]1", "\[Rule]", 
         RowBox[{"-", "\[Sigma]1"}]}]}]}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.8318226154678097`*^9, 3.831822728235467*^9}, {
  3.8318719783581057`*^9, 3.831871978958415*^9}},
 CellLabel->
  "In[9348]:=",ExpressionUUID->"79b07212-6b75-4959-82b1-8d430da4693d"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"9", "+", 
       RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"Log", "[", "8", "]"}]}], "-", 
       RowBox[{"6", " ", 
        RowBox[{"Log", "[", "\[Sigma]1", "]"}]}]}], ")"}], " ", 
     SuperscriptBox["\[Sigma]1", "2"]}], "-", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"2", " ", "\[Pi]"}], "]"}], " ", "\[Sigma]1"}], "+", 
    FractionBox[
     RowBox[{"Log", "[", "2", "]"}], "6"], "-", 
    FractionBox["1", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "2"]}]], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", 
       FractionBox["1", "\[Sigma]1"], "]"}], "3"],
     SeriesData[$CellContext`\[Sigma]1, 
      DirectedInfinity[1], {}, -2, 3, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[Sigma]1, 
    DirectedInfinity[1], {
    Rational[1, 2] (9 + Complex[0, 1] Pi - 2 Log[8] - 6 
      Log[$CellContext`\[Sigma]1]), -Log[2 Pi], Rational[1, 6] Log[2], 0, 
     Rational[-1, 160]}, -2, 3, 1],
   Editable->False]]], "Output",
 CellChangeTimes->{
  3.831822635927877*^9, {3.831822675578323*^9, 3.831822729102709*^9}, 
   3.831871980389291*^9},
 CellLabel->
  "Out[9348]=",ExpressionUUID->"a844a35a-86a6-410a-99a6-e32dd2d615fb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"9", "+", 
      RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"Log", "[", "8", "]"}]}], "-", 
      RowBox[{"6", " ", 
       RowBox[{"Log", "[", "\[Sigma]1", "]"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Sigma]1", "2"]}], "-", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"2", " ", "\[Pi]"}], "]"}], " ", "\[Sigma]1"}], "+", 
   FractionBox[
    RowBox[{"Log", "[", "2", "]"}], "6"], "-", 
   FractionBox["1", 
    RowBox[{"160", " ", 
     SuperscriptBox["\[Sigma]1", "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "\[Sigma]1"], "]"}], "3"],
    SeriesData[$CellContext`\[Sigma]1, 
     DirectedInfinity[1], {}, -2, 3, 1],
    Editable->False]}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{3.8318227996379833`*^9, 3.831871989580942*^9},
 CellLabel->
  "In[9349]:=",ExpressionUUID->"784c52b3-b9af-4e28-863f-f44183edf34c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"9", "+", 
      RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"Log", "[", "8", "]"}]}], "-", 
      RowBox[{"6", " ", 
       RowBox[{"Log", "[", "\[Sigma]1", "]"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Sigma]1", "2"]}], "-", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"2", " ", "\[Pi]"}], "]"}], " ", "\[Sigma]1"}], "+", 
   FractionBox[
    RowBox[{"Log", "[", "2", "]"}], "6"], "-", 
   FractionBox["1", 
    RowBox[{"160", " ", 
     SuperscriptBox["\[Sigma]1", "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "\[Sigma]1"], "]"}], "3"],
    SeriesData[$CellContext`\[Sigma]1, 
     DirectedInfinity[1], {}, -2, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Sigma]1, 
   DirectedInfinity[1], {
   Rational[1, 2] (9 + Complex[0, 1] Pi - 2 Log[8] - 6 
     Log[$CellContext`\[Sigma]1]), -Log[2 Pi], Rational[1, 6] Log[2], 0, 
    Rational[-1, 160]}, -2, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.831822800549274*^9, 3.831871990061469*^9},
 CellLabel->
  "Out[9349]=",ExpressionUUID->"3636d864-9622-4d7f-be84-348b044bb127"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"9", "+", 
      RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "-", 
      RowBox[{"2", " ", 
       RowBox[{"Log", "[", "8", "]"}]}], "-", 
      RowBox[{"6", " ", 
       RowBox[{"Log", "[", "\[Sigma]1", "]"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Sigma]1", "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "\[Pi]"}], "2"], "-", 
      RowBox[{"Log", "[", "\[Pi]", "]"}]}], ")"}], " ", "\[Sigma]1"}], "+", 
   FractionBox[
    RowBox[{"Log", "[", "2", "]"}], "6"], "-", 
   FractionBox["1", 
    RowBox[{"160", " ", 
     SuperscriptBox["\[Sigma]1", "2"]}]]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.831822736750167*^9, 3.831822738770423*^9}, {
  3.831822811271572*^9, 3.831822811889889*^9}},
 CellLabel->
  "In[7147]:=",ExpressionUUID->"3ba2f748-19d3-4305-9734-8f866664ca30"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", 
    RowBox[{"160", " ", 
     SuperscriptBox["\[Sigma]1", "2"]}]]}], "+", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", "\[Sigma]1"}], "2"], "+", 
  FractionBox[
   RowBox[{"9", " ", 
    SuperscriptBox["\[Sigma]1", "2"]}], "2"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
   SuperscriptBox["\[Sigma]1", "2"]}], "+", 
  FractionBox[
   RowBox[{"Log", "[", "2", "]"}], "6"], "-", 
  RowBox[{
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   RowBox[{"Log", "[", "8", "]"}]}], "-", 
  RowBox[{"\[Sigma]1", " ", 
   RowBox[{"Log", "[", "\[Pi]", "]"}]}], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   RowBox[{"Log", "[", "\[Sigma]1", "]"}]}]}]], "Output",
 CellChangeTimes->{{3.831822720287065*^9, 3.83182273924366*^9}, 
   3.831822812209114*^9},
 CellLabel->
  "Out[7147]=",ExpressionUUID->"c13baf8b-6df5-46cd-891a-5f3b0e95eaed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"9", " ", 
     SuperscriptBox["\[Sigma]1", "2"]}], "2"], "-", 
   RowBox[{"3", " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    RowBox[{"Log", "[", "\[Sigma]1", "]"}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.831822823255353*^9, 3.831822825269704*^9}},
 CellLabel->
  "In[7148]:=",ExpressionUUID->"4cef2b4e-91c4-4e0c-a60d-9a7b1b21d66b"],

Cell[BoxData[
 RowBox[{
  FractionBox["3", "2"], " ", 
  SuperscriptBox["\[Sigma]1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"3", "-", 
    RowBox[{"2", " ", 
     RowBox[{"Log", "[", "\[Sigma]1", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.831822826068771*^9},
 CellLabel->
  "Out[7148]=",ExpressionUUID->"33328b14-51f3-4086-b4b7-bf3bf097999f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], 
    RowBox[{"F", "[", "1", "]"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "I"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "x"}], ")"}]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "\[Sigma]1", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.83187170990654*^9, 3.831871741712749*^9}},
 CellLabel->
  "In[9321]:=",ExpressionUUID->"bbdd98bd-e64d-469a-b355-64b442e685c4"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ImaginaryI]", 
    RowBox[{"\[Sigma]1", " ", 
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}]}]], " ", 
   SuperscriptBox["2", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", 
     SuperscriptBox["\[Sigma]1", "2"]}]], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"a1", "-", 
     RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", "\[Sigma]1"}]}]], " ", 
   RowBox[{"G", "[", 
    RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
   RowBox[{"G", "[", "\[Sigma]1", "]"}], " ", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
   RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}], 
  RowBox[{
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   RowBox[{"G", "[", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], " ", 
   RowBox[{"G", "[", 
    RowBox[{"2", " ", "\[Sigma]1"}], "]"}], " ", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], " ", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"2", " ", "\[Sigma]1"}], "]"}]}]]], "Output",
 CellChangeTimes->{{3.831871714247291*^9, 3.831871742384399*^9}},
 CellLabel->
  "Out[9321]=",ExpressionUUID->"de5fb257-dee7-4269-b5f7-932578f4fe75"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["\[ExponentialE]", "a1"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "I"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"+", "x"}], ")"}]]}], "/.", 
    RowBox[{"a1", "\[Rule]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], "\[Sigma]1", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1"}]}]}], "//", 
   "ComplexExpand"}], "//", "TrigToExp"}]], "Input",
 CellChangeTimes->{{3.831871806671155*^9, 3.831871843236837*^9}},
 CellLabel->
  "In[9328]:=",ExpressionUUID->"b62a2383-959f-44f7-bead-251c50ce590f"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", "x"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{"a1", "+", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", "x"}], "2"], "-", 
    RowBox[{"\[ImaginaryI]", " ", "\[Pi]", " ", "\[Sigma]1"}], "-", 
    RowBox[{"2", " ", "\[Sigma]1", " ", 
     RowBox[{"Log", "[", "2", "]"}]}]}]]}]], "Output",
 CellChangeTimes->{{3.831871813384383*^9, 3.831871843712307*^9}},
 CellLabel->
  "Out[9328]=",ExpressionUUID->"fee9e799-a5d6-4aab-9191-e03ea252935f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "a1"], 
      RowBox[{
       RowBox[{"F", "[", "1", "]"}], "/", 
       RowBox[{"F", "[", "0", "]"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", "\[Sigma]1"}]}], " ", ")"}], 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "a1"}]], 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{"-", "1"}], "]"}], "/", 
       RowBox[{"F", "[", "0", "]"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", "\[Sigma]1"}]}], " ", ")"}], 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], "a1"}]], 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{"-", "2"}], "]"}], "/", 
       RowBox[{"F", "[", "0", "]"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], ")"}]}], "/.",
    
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", "\[Sigma]1"}]}], " ", ")"}], 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.831871616795149*^9, 3.8318716750977173`*^9}, {
  3.831871720414569*^9, 3.8318717323218813`*^9}, {3.831871883970335*^9, 
  3.83187195856586*^9}},
 CellLabel->
  "In[9344]:=",ExpressionUUID->"841f65d3-d2d6-45fc-9146-145460593857"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", "a1"]], "Output",
 CellChangeTimes->{{3.831871619723673*^9, 3.8318716755369253`*^9}, {
  3.831871722307555*^9, 3.831871732628982*^9}, {3.831871890857564*^9, 
  3.831871960253139*^9}},
 CellLabel->
  "Out[9344]=",ExpressionUUID->"78f7cdd7-deac-40c2-b4ab-5f1ea441e84a"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{"-", "a1"}]]], "Output",
 CellChangeTimes->{{3.831871619723673*^9, 3.8318716755369253`*^9}, {
  3.831871722307555*^9, 3.831871732628982*^9}, {3.831871890857564*^9, 
  3.831871960337514*^9}},
 CellLabel->
  "Out[9345]=",ExpressionUUID->"0498c4e7-8c81-4eea-b834-dbad2ae01d20"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "a1"}]]], "Output",
 CellChangeTimes->{{3.831871619723673*^9, 3.8318716755369253`*^9}, {
  3.831871722307555*^9, 3.831871732628982*^9}, {3.831871890857564*^9, 
  3.831871960388733*^9}},
 CellLabel->
  "Out[9346]=",ExpressionUUID->"111e3a10-98f4-433e-8a40-d29cc610462e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "a1"], 
      RowBox[{
       RowBox[{"F", "[", "1", "]"}], "/", 
       RowBox[{"F", "[", "0", "]"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "x"}], ")"}]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "\[Sigma]1", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "a1"}]], 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{"-", "1"}], "]"}], "/", 
       RowBox[{"F", "[", "0", "]"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "x"}], ")"}]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "\[Sigma]1", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], "a1"}]], 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{"-", "2"}], "]"}], "/", 
       RowBox[{"F", "[", "0", "]"}]}]}], ")"}], "/", 
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "x"}], ")"}]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "\[Sigma]1", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.831821055966022*^9, 3.8318211246266117`*^9}, {
   3.831821173633741*^9, 3.831821247751253*^9}, {3.8318215555466557`*^9, 
   3.8318216241672277`*^9}, {3.831821658154409*^9, 3.831821710579965*^9}, {
   3.831821772953362*^9, 3.831821859950688*^9}, {3.831821905392839*^9, 
   3.8318219165868387`*^9}, {3.8318222774217978`*^9, 
   3.8318222947362003`*^9}, {3.8318223483937273`*^9, 3.831822362562786*^9}, 
   3.831822415035734*^9, {3.831822478798596*^9, 3.831822584608006*^9}},
 CellLabel->
  "In[7130]:=",ExpressionUUID->"70da5dbc-cc82-4a26-878c-a05dd6cbba07"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", "a1"]], "Output",
 CellChangeTimes->{{3.831821062456153*^9, 3.831821125152686*^9}, {
   3.831821174360874*^9, 3.831821248166675*^9}, {3.8318215589003477`*^9, 
   3.831821624700511*^9}, {3.8318216588393793`*^9, 3.831821710917251*^9}, {
   3.8318217756586514`*^9, 3.831821860427109*^9}, {3.831821911325922*^9, 
   3.831821917154203*^9}, {3.831822279769236*^9, 3.831822295317663*^9}, 
   3.831822362974579*^9, {3.831822482966564*^9, 3.831822585203924*^9}},
 CellLabel->
  "Out[7130]=",ExpressionUUID->"48458f72-5942-45f4-8bfc-7351fcb9ea5c"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{"-", "a1"}]]], "Output",
 CellChangeTimes->{{3.831821062456153*^9, 3.831821125152686*^9}, {
   3.831821174360874*^9, 3.831821248166675*^9}, {3.8318215589003477`*^9, 
   3.831821624700511*^9}, {3.8318216588393793`*^9, 3.831821710917251*^9}, {
   3.8318217756586514`*^9, 3.831821860427109*^9}, {3.831821911325922*^9, 
   3.831821917154203*^9}, {3.831822279769236*^9, 3.831822295317663*^9}, 
   3.831822362974579*^9, {3.831822482966564*^9, 3.831822585219157*^9}},
 CellLabel->
  "Out[7131]=",ExpressionUUID->"75c55526-6557-474e-b7b9-da7816796396"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  RowBox[{
   RowBox[{"-", "2"}], " ", "a1"}]]], "Output",
 CellChangeTimes->{{3.831821062456153*^9, 3.831821125152686*^9}, {
   3.831821174360874*^9, 3.831821248166675*^9}, {3.8318215589003477`*^9, 
   3.831821624700511*^9}, {3.8318216588393793`*^9, 3.831821710917251*^9}, {
   3.8318217756586514`*^9, 3.831821860427109*^9}, {3.831821911325922*^9, 
   3.831821917154203*^9}, {3.831822279769236*^9, 3.831822295317663*^9}, 
   3.831822362974579*^9, {3.831822482966564*^9, 3.831822585344022*^9}},
 CellLabel->
  "Out[7132]=",ExpressionUUID->"5eb8426f-60cd-4c49-b4e1-08af249cbb21"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
    SuperscriptBox["x", "2"]], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], "x"]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8318223268070498`*^9, 3.83182232755083*^9}},
 CellLabel->
  "In[7107]:=",ExpressionUUID->"72bfcf1d-cf24-40d1-b5e3-7f01f217fd8f"],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
  RowBox[{"x", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}]}]]], "Output",
 CellChangeTimes->{3.831822458751973*^9},
 CellLabel->
  "Out[7107]=",ExpressionUUID->"1ce7f7c9-7604-46fa-a1d6-d619916f2f6a"]
}, Open  ]],

Cell[BoxData[
 SuperscriptBox[
  RowBox[{"(", 
   RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "+", "x"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "x"}], ")"}]}]]], "Input",
 CellChangeTimes->{{3.831822337195002*^9, 3.831822344333815*^9}, {
  3.831822401623814*^9, 3.831822406288166*^9}},
 CellLabel->"",ExpressionUUID->"e11fe62c-7779-4ce3-ac2c-32a019806a8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "4"]}], "  ", 
       SuperscriptBox["\[Alpha]", "1"], " ", "\[Beta]"}], "\[Equal]", "1"}], 
     ",", 
     RowBox[{
      FractionBox[
       RowBox[{" ", 
        SuperscriptBox["\[Alpha]", "1"]}], "\[Beta]"], "\[Equal]", "1"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "\[Beta]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.831821867873453*^9, 3.8318218920744*^9}, {
  3.831822368574698*^9, 3.8318223917368383`*^9}, {3.8318224315657377`*^9, 
  3.831822434379179*^9}, {3.83182253291354*^9, 3.831822537777155*^9}},
 CellLabel->
  "In[7120]:=",ExpressionUUID->"3234dba7-b2d4-42a9-9fb4-cee4e69382bb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Alpha]", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"\[Beta]", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Alpha]", "\[Rule]", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}], ",", 
     RowBox[{"\[Beta]", "\[Rule]", 
      RowBox[{"2", " ", "\[ImaginaryI]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8318218925773478`*^9, {3.8318223768736897`*^9, 3.831822383347931*^9}, {
   3.8318224290304127`*^9, 3.831822434870736*^9}, 3.831822538246203*^9},
 CellLabel->
  "Out[7120]=",ExpressionUUID->"bd8b7aec-fcff-489f-8261-2ab04498291b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "\[Sigma]", "]"}]], "Input",
 CellChangeTimes->{{3.831871378094926*^9, 3.831871383861746*^9}},
 CellLabel->
  "In[9275]:=",ExpressionUUID->"5916f8f1-ffa4-4dc8-9cf7-0c8b652b8c10"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{" ", 
      RowBox[{
       RowBox[{"F", "[", "0", "]"}], " ", 
       RowBox[{"F", "[", "0", "]"}], 
       RowBox[{"F", "[", "0", "]"}]}]}], 
     RowBox[{" ", 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{"-", "1"}], "]"}], " ", 
       RowBox[{"F", "[", "1", "]"}], 
       RowBox[{"F", "[", "0", "]"}]}]}]], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"G", "[", 
            RowBox[{"1", "+", 
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
           RowBox[{"G", "[", 
            RowBox[{"1", "-", " ", 
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}]]}], 
        RowBox[{
         RowBox[{"G", "[", 
          RowBox[{"1", "+", 
           RowBox[{"2", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
         RowBox[{"G", "[", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
      RowBox[{"a1", "\[Rule]", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], "\[Sigma]1", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
        RowBox[{"Log", "[", 
         FractionBox[
          RowBox[{
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
          RowBox[{"4", "\[Sigma]1", " ", 
           SuperscriptBox[
            RowBox[{"\[CapitalGamma]", "[", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
           RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}],
      "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", "->", "\[Sigma]"}], "}"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831821633293583*^9, 3.83182168562391*^9}, {
   3.831821723010085*^9, 3.831821731869237*^9}, {3.831826186676531*^9, 
   3.831826226262123*^9}, {3.831826295238703*^9, 3.831826307762022*^9}, {
   3.831826513794387*^9, 3.831826572535219*^9}, {3.831826615871752*^9, 
   3.8318266631421843`*^9}, {3.831827101617783*^9, 3.831827108555079*^9}, {
   3.831871374789962*^9, 3.8318713952591267`*^9}, 3.8318715005470457`*^9},
 CellLabel->
  "In[9276]:=",ExpressionUUID->"9e2eddf4-3809-4385-83ab-abb33a715863"],

Cell[BoxData[
 RowBox[{"4", " ", 
  SuperscriptBox["\[Sigma]", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]", "2"]}]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.831827105249044*^9, 3.8318271275476027`*^9}, 
   3.8318713957586527`*^9},
 CellLabel->
  "Out[9276]=",ExpressionUUID->"84be0068-6d9e-4d6d-98ca-e3546480a525"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "2"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831827057658255*^9, 3.831827058428637*^9}},
 CellLabel->
  "In[8190]:=",ExpressionUUID->"521f8b8c-5ace-4880-84a8-dfd570cf01b3"],

Cell[BoxData[
 RowBox[{
  FractionBox["3", "2"], " ", 
  SuperscriptBox["\[Sigma]1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.831827058819948*^9},
 CellLabel->
  "Out[8190]=",ExpressionUUID->"e0ea40b4-a296-4ae1-aa4e-29fb307fa1dc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["3", "2"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    RowBox[{"F", "[", 
     RowBox[{"-", "1"}], "]"}], 
    RowBox[{"F", "[", "0", "]"}], " ", 
    RowBox[{
     RowBox[{"F", "[", "1", "]"}], "/", 
     RowBox[{"(", 
      RowBox[{
       FractionBox["3", "8"], 
       SuperscriptBox[
        RowBox[{"F", "[", "0", "]"}], "3"]}], ")"}]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "\[Sigma]1", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.831826971858117*^9, 3.83182699505977*^9}, {
   3.8318270328641768`*^9, 3.831827041028247*^9}, {3.831827076245281*^9, 
   3.831827092075083*^9}, 3.8318271348358173`*^9, {3.831871514469185*^9, 
   3.831871517128631*^9}, 3.831871580283955*^9},
 CellLabel->
  "In[9284]:=",ExpressionUUID->"0d472f4a-981b-4f41-b58c-5363e31eda00"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.831826995465025*^9, {3.831827036998149*^9, 3.831827041422463*^9}, {
   3.831827073788498*^9, 3.8318270929879417`*^9}, {3.831827129169245*^9, 
   3.831827135127591*^9}, {3.831871515497005*^9, 3.831871521361733*^9}, 
   3.831871580848867*^9},
 CellLabel->
  "Out[9284]=",ExpressionUUID->"37991be1-5cd0-455a-bb97-dce21345a2d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"24", " ", 
     SuperscriptBox[
      RowBox[{"F", "[", "0", "]"}], "2"]}], "-", 
    RowBox[{"96", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"], " ", 
     RowBox[{"F", "[", 
      RowBox[{"-", "1"}], "]"}], " ", 
     RowBox[{"F", "[", "1", "]"}]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{"a1", "\[Rule]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], "\[Sigma]1", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"2", " ", "\[ImaginaryI]"}], "]"}]}], "+", "a1", "+", " ", 
       RowBox[{"Log", "[", 
        FractionBox[
         RowBox[{
          RowBox[{"\[CapitalGamma]", "[", 
           RowBox[{"-", "\[Sigma]1"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
         RowBox[{"4", "\[Sigma]1", " ", 
          SuperscriptBox[
           RowBox[{"\[CapitalGamma]", "[", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
          RowBox[{"\[CapitalGamma]", "[", "\[Sigma]1", "]"}]}]], "]"}]}]}]}], 
    "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.831827499332604*^9, 3.831827513612467*^9}, {
   3.8318284666919928`*^9, 3.831828474129053*^9}, 3.831871485776373*^9, 
   3.8318715852935266`*^9},
 CellLabel->
  "In[9285]:=",ExpressionUUID->"adb906ba-8d51-4eaa-b4c9-145dcca9cd3f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.831827514022368*^9, {3.831828467788422*^9, 3.831828474551166*^9}, 
   3.8318715858314*^9},
 CellLabel->
  "Out[9285]=",ExpressionUUID->"fe476826-1f8f-4eff-8aac-26f7c0c7fdc3"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.831871509829728*^9, 
  3.831871511435467*^9}},ExpressionUUID->"06e39c15-cf8e-46e1-a2e6-\
ad1a125c45c4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"F", "[", "0", "]"}], "2"], " ", 
       RowBox[{"F", "[", "1", "]"}]}]]}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"36", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"], " ", 
       RowBox[{"F", "[", 
        RowBox[{"-", "1"}], "]"}], " ", 
       RowBox[{"F", "[", "0", "]"}], " ", 
       RowBox[{"F", "[", "2", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       RowBox[{"F", "[", "1", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"64", " ", 
          SuperscriptBox["\[Sigma]1", "2"], " ", 
          RowBox[{"F", "[", 
           RowBox[{"-", "1"}], "]"}], " ", 
          RowBox[{"F", "[", "1", "]"}]}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"3", "+", 
             RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"F", "[", "0", "]"}], "2"], " ", 
          RowBox[{
           SubscriptBox["Z", "2"], "[", "\[Sigma]1", "]"}]}]}], ")"}], " ", 
       RowBox[{
        SubscriptBox["Z", "2"], "[", 
        RowBox[{"1", "+", "\[Sigma]1"}], "]"}]}], "-", 
      RowBox[{"3", " ", 
       RowBox[{"F", "[", "1", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"F", "[", 
           RowBox[{"-", "1"}], "]"}], " ", 
          RowBox[{"F", "[", "1", "]"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"F", "[", "0", "]"}], "2"], " ", 
          RowBox[{
           SubscriptBox["Z", "2"], "[", "\[Sigma]1", "]"}]}], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"F", "[", "0", "]"}], "2"], " ", 
          RowBox[{
           SubscriptBox["Z", "2"], "[", 
           RowBox[{"1", "+", "\[Sigma]1"}], "]"}]}]}], ")"}]}]}], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"F", "[", "x_", "]"}], "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"G", "[", 
           RowBox[{"1", "+", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}], 
          RowBox[{"G", "[", 
           RowBox[{"1", "-", " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}], "]"}]}], ")"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", " ", "\[ImaginaryI]"}], ")"}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "x"}], ")"}], "2"]]}], 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "x"}], ")"}]}]}], "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{
       SubscriptBox["Z", "2"], "[", "\[Sigma]1_", "]"}], "->", 
      RowBox[{"3", "/", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]}]}], " ", 
    "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.831828930051484*^9, 3.831828967969347*^9}, 
   3.831871592374938*^9},
 CellLabel->
  "In[9286]:=",ExpressionUUID->"effe0c18-e2fe-4157-a889-ea9261cc5951"],

Cell[BoxData[
 FractionBox[
  RowBox[{"9", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"9", "-", 
      RowBox[{"40", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "+", 
      RowBox[{"16", " ", 
       SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.831828943635717*^9, 3.831828968709976*^9}, 
   3.831871593358987*^9},
 CellLabel->
  "Out[9286]=",ExpressionUUID->"4085ea17-28ec-45f7-853f-d65e397c32ef"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"9", "  ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " "}], 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"9", "-", 
      RowBox[{"40", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "+", 
      RowBox[{"16", " ", 
       SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]]], "Input",
 CellChangeTimes->{{3.831829011027753*^9, 
  3.831829012493704*^9}},ExpressionUUID->"8d12314f-adbc-4651-86d6-\
5a704548be62"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"Gamma", "[", 
     RowBox[{"-", "x"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"Gamma", "[", 
      RowBox[{"2", " ", "x"}], "]"}], "2"]}], 
   RowBox[{"4", "x", " ", 
    SuperscriptBox[
     RowBox[{"Gamma", "[", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "x"}], "]"}], "2"], " ", 
    RowBox[{"Gamma", "[", "x", "]"}]}]], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.8318213091369963`*^9, 3.8318213320548687`*^9}},
 CellLabel->
  "In[6990]:=",ExpressionUUID->"725984c3-ab50-495b-8972-a938a71ee2f6"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"Gamma", "[", 
    RowBox[{"-", "x"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"Gamma", "[", 
     RowBox[{"2", " ", "x"}], "]"}], "2"]}], 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"Gamma", "[", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "x"}], "]"}], "2"], " ", 
   RowBox[{"Gamma", "[", 
    RowBox[{"1", "+", "x"}], "]"}]}]]], "Output",
 CellChangeTimes->{{3.831821319072178*^9, 3.8318213330345097`*^9}},
 CellLabel->
  "Out[6990]=",ExpressionUUID->"c1e8fa8d-07b6-4591-9230-af4b4bd0b9ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "  ", "a"}], ",", 
     RowBox[{"m2", "\[Rule]", 
      RowBox[{"-", "a"}]}]}], "}"}]}], "//", "Simplify", " "}]], "Input",
 CellChangeTimes->{{3.83182460257027*^9, 3.8318246052963037`*^9}, {
  3.831824984900201*^9, 3.831825043800552*^9}, {3.831825397736682*^9, 
  3.8318254039381523`*^9}},
 CellLabel->
  "In[7273]:=",ExpressionUUID->"155c0712-b963-4235-8d06-69eb7f7ec454"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.831823543042305*^9, {3.831824262517679*^9, 3.831824266574848*^9}, {
   3.83182460569564*^9, 3.8318246104182463`*^9}, {3.8318249898722963`*^9, 
   3.831825044219574*^9}, {3.831825399082321*^9, 3.831825404281398*^9}},
 CellLabel->
  "Out[7273]=",ExpressionUUID->"12715620-104b-4a2a-8b35-939f55ad71ad"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.831825039669051*^9, 
  3.8318250409578943`*^9}},ExpressionUUID->"a3639fd6-b749-4734-a27f-\
e19c1a034fb6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{"(", 
       RowBox[{"a", "+", "m1"}], ")"}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{"(", 
       RowBox[{"a", "-", "m1"}], ")"}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "  ", 
      RowBox[{"m1", " ", "a"}]}], ",", 
     RowBox[{"m2", "\[Rule]", " ", 
      RowBox[{"-", "a"}]}]}], "}"}]}], "//", "Simplify", " "}]], "Input",
 CellChangeTimes->{{3.831824565981139*^9, 3.831824586202351*^9}, {
  3.831825975024753*^9, 3.8318259786982937`*^9}},
 CellLabel->
  "In[7302]:=",ExpressionUUID->"18ca9473-8d48-485f-82e2-c726e217226a"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", " ", "a"}]]], "Output",
 CellChangeTimes->{
  3.831824586548361*^9, {3.83182597573594*^9, 3.831825979133028*^9}},
 CellLabel->
  "Out[7302]=",ExpressionUUID->"afac1ff4-b865-4d23-b12e-19dad48d4719"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}]}], "}"}]}], "//", "Simplify", 
  " "}]], "Input",
 CellChangeTimes->{{3.831824624868575*^9, 3.831824632829027*^9}},
 CellLabel->
  "In[7229]:=",ExpressionUUID->"c3235280-1283-42de-8037-7b002b36dc93"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"m1", " ", "m2"}], 
     SuperscriptBox["a", "2"]]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.831824625321639*^9, 3.831824633311902*^9}},
 CellLabel->
  "Out[7229]=",ExpressionUUID->"8b8f99b2-6075-43bc-94a1-cd07ad8d049a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m3"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m3"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m3", "\[Rule]", "0"}]}], "}"}]}], "//", "Simplify", 
  " "}]], "Input",
 CellChangeTimes->{{3.8318855610774508`*^9, 3.831885582521398*^9}},
 CellLabel->
  "In[9464]:=",ExpressionUUID->"304f0b40-b8e9-4f7d-b044-bd99175cad4e"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["a", "2"], "+", 
   RowBox[{"m1", " ", "m2"}]}], 
  RowBox[{"2", " ", "a"}]]], "Output",
 CellChangeTimes->{{3.831885569492519*^9, 3.831885583071231*^9}},
 CellLabel->
  "Out[9464]=",ExpressionUUID->"e78eeca9-1543-469d-ae19-7a7d76b4a85c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"t", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"-", "1"}], 
         RowBox[{"e1", " ", "e2"}]], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "m1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"a", "+", "m2"}], ")"}]}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"-", "1"}], 
         RowBox[{"e1", " ", "e2"}]], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "m1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"a", "-", "m2"}], ")"}]}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], ")"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"e1", "\[Rule]", "1"}], ",", 
      RowBox[{"e2", "\[Rule]", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"e", "\[Rule]", "0"}], ",", 
      RowBox[{"m1", "\[Rule]", "  ", 
       RowBox[{"+", "  ", 
        SuperscriptBox["\[Alpha]", 
         RowBox[{"-", "1"}]]}]}], " ", ",", 
      RowBox[{"m2", "\[Rule]", "0"}], ",", 
      RowBox[{"t", "\[Rule]", 
       RowBox[{"T", " ", "\[Alpha]"}]}]}], "}"}]}], "//", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["t", "2"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", "!"}], "e1", " ", 
         SuperscriptBox["e2", "2"], 
         RowBox[{"(", 
          RowBox[{"e1", "-", "e2"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "m1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "+", "m1", "+", "e2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "+", "m2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "+", "m2", "+", "e2"}], ")"}]}], 
        RowBox[{"2", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "+", "e2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "+", "e"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "+", "e", "+", "e2"}], ")"}]}]]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", "!"}], "e1", " ", 
         SuperscriptBox["e2", "2"], 
         RowBox[{"(", 
          RowBox[{"e1", "-", "e2"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "m1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m1", "-", "e2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m2", "-", "e2"}], ")"}]}], 
        RowBox[{"2", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "-", "e2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "-", "e"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "-", "e", "-", "e2"}], ")"}]}]]}], "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", "!"}], 
         SuperscriptBox["e1", "2"], " ", "e2", 
         RowBox[{"(", 
          RowBox[{"e1", "-", "e2"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "m1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "+", "m1", "+", "e1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "+", "m2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "+", "m2", "+", "e1"}], ")"}]}], 
        RowBox[{"2", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "+", "e1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "+", "e"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "+", "e", "+", "e1"}], ")"}]}]]}], "-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", "!"}], 
         SuperscriptBox["e1", "2"], " ", "e2", 
         RowBox[{"(", 
          RowBox[{"e1", "-", "e2"}], ")"}]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "-", "m1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m1", "-", "e1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m2", "-", "e1"}], ")"}]}], 
        RowBox[{"2", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "-", "e1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "-", "e"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "a"}], "-", "e", "-", "e1"}], ")"}]}]]}], "+", 
      RowBox[{
       FractionBox["1", 
        RowBox[{
         SuperscriptBox["e1", "2"], 
         SuperscriptBox["e2", "2"]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "m1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m1"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "+", "m2"}], ")"}], 
         RowBox[{"(", 
          RowBox[{"a", "-", "m2"}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", 
            SuperscriptBox["a", "2"]}], "-", 
           SuperscriptBox["e1", "2"]}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", 
            SuperscriptBox["a", "2"]}], "-", 
           SuperscriptBox["e2", "2"]}], ")"}]}]]}]}], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "  ", 
      RowBox[{"+", "  ", 
       SuperscriptBox["\[Alpha]", 
        RowBox[{"-", "1"}]]}]}], " ", ",", 
     RowBox[{"m2", "\[Rule]", "0"}], ",", 
     RowBox[{"t", "\[Rule]", 
      RowBox[{"T", " ", "\[Alpha]"}]}]}], "}"}]}], "//", 
  "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.8318235738563643`*^9, 3.831823696590207*^9}, {
   3.8318237382826843`*^9, 3.8318238362457123`*^9}, {3.831823867724854*^9, 
   3.831823871731801*^9}, {3.831823942431778*^9, 3.8318239886988773`*^9}, {
   3.831824028149743*^9, 3.831824030850706*^9}, {3.8318240691315947`*^9, 
   3.831824116906308*^9}, {3.8318241557421494`*^9, 3.831824395131833*^9}, {
   3.831824658399633*^9, 3.8318246585709333`*^9}, {3.831824695076537*^9, 
   3.831824776550994*^9}, {3.83182488174084*^9, 3.8318249737162733`*^9}, {
   3.831825050045689*^9, 3.83182505405829*^9}, {3.831885599759077*^9, 
   3.831885680197646*^9}, {3.8320528700630217`*^9, 3.832053045760626*^9}, 
   3.832053527773086*^9},ExpressionUUID->"8062a315-0def-4a1f-9ebe-\
9e14d355c551"],

Cell[BoxData[
 FractionBox[
  RowBox[{"T", " ", "\[Alpha]"}], "2"]], "Output",
 CellChangeTimes->{{3.831824224992537*^9, 3.831824269851828*^9}, {
   3.831824300044194*^9, 3.831824395602375*^9}, 3.831824526003133*^9, 
   3.831824613498477*^9, 3.831824665886463*^9, {3.8318246972517548`*^9, 
   3.831824776907659*^9}, {3.8318248821653023`*^9, 3.831824941251053*^9}, 
   3.831824974145328*^9, 3.831825054499201*^9, {3.8320528713790092`*^9, 
   3.832053046175047*^9}},
 CellLabel->
  "Out[9693]=",ExpressionUUID->"808e119f-567e-4bdf-a404-e43ed167b156"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["T", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "3"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"3", " ", 
         SuperscriptBox["a", "2"]}], "+", 
        RowBox[{"8", " ", 
         SuperscriptBox["a", "4"]}]}], ")"}], " ", 
      SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.831824224992537*^9, 3.831824269851828*^9}, {
   3.831824300044194*^9, 3.831824395602375*^9}, 3.831824526003133*^9, 
   3.831824613498477*^9, 3.831824665886463*^9, {3.8318246972517548`*^9, 
   3.831824776907659*^9}, {3.8318248821653023`*^9, 3.831824941251053*^9}, 
   3.831824974145328*^9, 3.831825054499201*^9, {3.8320528713790092`*^9, 
   3.83205304623624*^9}},
 CellLabel->
  "Out[9694]=",ExpressionUUID->"1f0b63bf-13ff-4a9f-8959-990ebfa607bb"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"2", "!"}], "e1", " ", 
     SuperscriptBox["e2", "2"], 
     RowBox[{"(", 
      RowBox[{"e1", "-", "e2"}], ")"}]}]], 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "m1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "+", "m1", "+", "e2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "+", "m2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "+", "m2", "+", "e2"}], ")"}]}], 
    RowBox[{"2", "a", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "+", "e2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "+", "e"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "+", "e", "+", "e2"}], ")"}]}]]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"2", "!"}], "e1", " ", 
     SuperscriptBox["e2", "2"], 
     RowBox[{"(", 
      RowBox[{"e1", "-", "e2"}], ")"}]}]], 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", "m1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m1", "-", "e2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m2", "-", "e2"}], ")"}]}], 
    RowBox[{"2", "a", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "-", "e2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "-", "e"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "-", "e", "-", "e2"}], ")"}]}]]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"2", "!"}], 
     SuperscriptBox["e1", "2"], " ", "e2", 
     RowBox[{"(", 
      RowBox[{"e1", "-", "e2"}], ")"}]}]], 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "m1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "+", "m1", "+", "e1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "+", "m2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "+", "m2", "+", "e1"}], ")"}]}], 
    RowBox[{"2", "a", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "+", "e1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "+", "e"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "+", "e", "+", "e1"}], ")"}]}]]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"2", "!"}], 
     SuperscriptBox["e1", "2"], " ", "e2", 
     RowBox[{"(", 
      RowBox[{"e1", "-", "e2"}], ")"}]}]], 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", "m1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m1", "-", "e1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m2", "-", "e1"}], ")"}]}], 
    RowBox[{"2", "a", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "-", "e1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "-", "e"}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "a"}], "-", "e", "-", "e1"}], ")"}]}]]}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["e1", "2"], 
     SuperscriptBox["e2", "2"]}]], 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", "m1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m1"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "+", "m2"}], ")"}], 
     RowBox[{"(", 
      RowBox[{"a", "-", "m2"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", 
        SuperscriptBox["a", "2"]}], "-", 
       SuperscriptBox["e1", "2"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", 
        SuperscriptBox["a", "2"]}], "-", 
       SuperscriptBox["e2", "2"]}], ")"}]}]]}]}]], "Input",ExpressionUUID->\
"73c03f8d-215f-4c8c-a3eb-ca0e03f635f3"],

Cell[BoxData[
 RowBox[{"<<", "Combinatorica`"}]], "Input",
 CellChangeTimes->{{3.832053828725202*^9, 3.83205384517128*^9}},
 CellLabel->
  "In[9698]:=",ExpressionUUID->"042b2103-3162-426e-8c08-bd28806703d6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Multicolumn", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Grid", "[", 
      RowBox[{"#", ",", 
       RowBox[{"Spacings", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}]}], "]"}], "&"}], "/@", 
    RowBox[{"Map", "[", 
     RowBox[{"Framed", ",", 
      RowBox[{"Tableaux", "[", "3", "]"}], ",", 
      RowBox[{"{", "3", "}"}]}], "]"}]}], ",", "6", ",", 
   RowBox[{"Appearance", "\[Rule]", "\"\<Horizontal\>\""}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.832053820171413*^9, 3.832053826303409*^9}, {
  3.832053933093824*^9, 3.832053943087435*^9}, {3.8320539764865294`*^9, 
  3.832054072577276*^9}, {3.832054308329638*^9, 3.8320543601684513`*^9}},
 CellLabel->
  "In[9718]:=",ExpressionUUID->"97727ad5-3786-4b09-bf4a-8c575f533602"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         FrameBox["1",
          StripOnInput->False], 
         FrameBox["2",
          StripOnInput->False], 
         FrameBox["3",
          StripOnInput->False]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
      "Grid"], 
     TagBox[GridBox[{
        {
         FrameBox["1",
          StripOnInput->False], 
         FrameBox["3",
          StripOnInput->False]},
        {
         FrameBox["2",
          StripOnInput->False], ""}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
      "Grid"], 
     TagBox[GridBox[{
        {
         FrameBox["1",
          StripOnInput->False], 
         FrameBox["2",
          StripOnInput->False]},
        {
         FrameBox["3",
          StripOnInput->False], ""}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
      "Grid"], 
     TagBox[GridBox[{
        {
         FrameBox["1",
          StripOnInput->False]},
        {
         FrameBox["2",
          StripOnInput->False]},
        {
         FrameBox["3",
          StripOnInput->False]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
       
       GridBoxSpacings->{"Columns" -> {{0}}, "Rows" -> {{0}}}],
      "Grid"], "\<\"\"\>", "\<\"\"\>"}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8320539995415277`*^9, 3.83205404366893*^9}, {
  3.8320543199759912`*^9, 3.83205436082485*^9}},
 CellLabel->
  "Out[9718]=",ExpressionUUID->"1afeb52e-baea-4b8f-b5b7-304ee94bb0de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"n1", "+", "n2"}], "\[Equal]", "3"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"IntegerPartitions", "[", "n1", "]"}], ",", 
         RowBox[{"IntegerPartitions", "[", "n2", "]"}]}], "}"}], ",", 
       "Nothing"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"n1", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n2", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", "1"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8320543818958073`*^9, 3.832054386496347*^9}, {
   3.8320545639876947`*^9, 3.832054697708465*^9}, 3.8320547331232653`*^9, {
   3.832055026292267*^9, 3.8320550316134167`*^9}},
 CellLabel->
  "In[9734]:=",ExpressionUUID->"a49cd613-ece2-4f6c-b50b-ccf3ca9bb992"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", "}"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "3", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", "1", "}"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "2", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "2", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", "1", "}"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", "3", "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"2", ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"{", "}"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8320543867560253`*^9, {3.832054612652627*^9, 3.832054698070589*^9}, 
   3.832054733553273*^9, {3.832055028441814*^9, 3.8320550321049128`*^9}},
 CellLabel->
  "Out[9734]=",ExpressionUUID->"a9ce8340-904b-45c6-9f23-c4181e8c65f6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerPartitions", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.832055146085079*^9, 3.832055151123129*^9}},
 CellLabel->
  "In[9737]:=",ExpressionUUID->"ebafd213-52d1-4ca0-9009-0e891e47b497"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.832055151438092*^9},
 CellLabel->
  "Out[9737]=",ExpressionUUID->"8a9609c5-8a9d-43a8-a1ba-fce55220b3a2"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"DualPartition", "[", "l_", "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", "i", "}"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Length", "[", 
       RowBox[{"Select", "[", 
        RowBox[{"l", ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"#", "\[GreaterEqual]", "i"}], ")"}], "&"}]}], "]"}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"l", "[", 
         RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"DualPartition", "[", 
    RowBox[{"{", "}"}], "]"}], "=", 
   RowBox[{"{", "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"get", "[", 
   RowBox[{"Y_", ",", "i_"}], "]"}], ":=", 
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"i", ">", 
     RowBox[{"Length", "[", "Y", "]"}]}], ",", "0", ",", 
    RowBox[{"Y", "[", 
     RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"arm", "[", 
   RowBox[{"Y_", ",", 
    RowBox[{"{", 
     RowBox[{"i_", ",", "j_"}], "}"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"get", "[", 
    RowBox[{"Y", ",", "i"}], "]"}], "\[Minus]", "j"}]}], "\n", 
 RowBox[{
  RowBox[{"leg", "[", 
   RowBox[{"Y_", ",", 
    RowBox[{"{", 
     RowBox[{"i_", ",", "j_"}], "}"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"get", "[", 
    RowBox[{
     RowBox[{"DualPartition", "[", "Y", "]"}], ",", "j"}], "]"}], "\[Minus]", 
   "i"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"boxno", "[", "Y_", "]"}], ":=", 
   RowBox[{"Sum", "[", 
    RowBox[{"1", ",", 
     RowBox[{"{", 
      RowBox[{"cell", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"cellno", ",", 
               RowBox[{
                RowBox[{"Range", "[", "Y1", "]"}], "[", 
                RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"rowno", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Range", "[", "Y1", "]"}], "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Phi]", "[", 
    RowBox[{"a_", ",", "i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"a", "+", 
    RowBox[{"e1", 
     RowBox[{"(", 
      RowBox[{"i", "-", "1"}], ")"}]}], "+", 
    RowBox[{"e2", 
     RowBox[{"(", 
      RowBox[{"j", "-", "1"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eE", "[", 
    RowBox[{"a_", ",", "Y1_", ",", "Y2_", ",", "i_", ",", "j_"}], "]"}], ":=", 
   RowBox[{"a", "+", 
    RowBox[{"e1", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"leg", "[", 
        RowBox[{"Y1", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "j"}], "}"}]}], "]"}], "+", "1"}], ")"}]}], "-", 
    RowBox[{"e2", 
     RowBox[{"(", 
      RowBox[{"arm", "[", 
       RowBox[{"Y2", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "j"}], "}"}]}], "]"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Eta]", "[", 
   RowBox[{"Y1_", ",", "Y2_", ",", "m_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Phi]", "[", 
       RowBox[{"a", ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", "m"}], ",", 
     RowBox[{"{", 
      RowBox[{"cell", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"cellno", ",", 
               RowBox[{
                RowBox[{"Range", "[", "Y1", "]"}], "[", 
                RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"rowno", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Range", "[", "Y1", "]"}], "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}]}], "}"}]}], "]"}], 
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Phi]", "[", 
       RowBox[{
        RowBox[{"-", "a"}], ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", "m"}], ",", 
     RowBox[{"{", 
      RowBox[{"cell", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"cellno", ",", 
               RowBox[{
                RowBox[{"Range", "[", "Y2", "]"}], "[", 
                RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"rowno", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Range", "[", "Y2", "]"}], "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}]}], "}"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Xi]", "[", 
   RowBox[{"Y1_", ",", "Y2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"eE", "[", 
       RowBox[{
        RowBox[{"a", "-", "a"}], ",", "Y1", ",", "Y1", ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], 
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"eE", "[", 
         RowBox[{
          RowBox[{"a", "-", "a"}], ",", "Y1", ",", "Y1", ",", 
          RowBox[{"cell", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"cell", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"cell", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"cellno", ",", 
               RowBox[{
                RowBox[{"Range", "[", "Y1", "]"}], "[", 
                RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"rowno", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Range", "[", "Y1", "]"}], "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}]}], "}"}]}], "]"}], 
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"eE", "[", 
       RowBox[{
        RowBox[{"a", "-", 
         RowBox[{"(", 
          RowBox[{"-", "a"}], ")"}]}], ",", "Y1", ",", "Y2", ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], 
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"eE", "[", 
         RowBox[{
          RowBox[{"a", "-", 
           RowBox[{"(", 
            RowBox[{"-", "a"}], ")"}]}], ",", "Y1", ",", "Y2", ",", 
          RowBox[{"cell", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"cell", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"cell", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"cellno", ",", 
               RowBox[{
                RowBox[{"Range", "[", "Y1", "]"}], "[", 
                RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"rowno", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Range", "[", "Y1", "]"}], "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}]}], "}"}]}], "]"}], 
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"eE", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "a"}], ")"}], "-", "a"}], ",", "Y2", ",", "Y1", ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], 
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"eE", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "a"}], ")"}], "-", "a"}], ",", "Y2", ",", "Y1", ",", 
          
          RowBox[{"cell", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"cell", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"cell", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"cellno", ",", 
               RowBox[{
                RowBox[{"Range", "[", "Y2", "]"}], "[", 
                RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"rowno", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Range", "[", "Y2", "]"}], "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}]}], "}"}]}], "]"}], 
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"eE", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "a"}], ")"}], "-", 
         RowBox[{"(", 
          RowBox[{"-", "a"}], ")"}]}], ",", "Y2", ",", "Y2", ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"cell", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}], 
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"eE", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "a"}], ")"}], "-", 
           RowBox[{"(", 
            RowBox[{"-", "a"}], ")"}]}], ",", "Y2", ",", "Y2", ",", 
          RowBox[{"cell", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"cell", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], ")"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"cell", ",", 
       RowBox[{"Flatten", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
             RowBox[{"{", 
              RowBox[{"cellno", ",", 
               RowBox[{
                RowBox[{"Range", "[", "Y2", "]"}], "[", 
                RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"rowno", ",", "1", ",", 
             RowBox[{"Length", "[", 
              RowBox[{"Range", "[", "Y2", "]"}], "]"}]}], "}"}]}], "]"}], ",",
          "1"}], "]"}]}], "}"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.832055130745349*^9, 3.832055130771174*^9}, {
   3.832055192698627*^9, 3.832055193037921*^9}, {3.8320553044510202`*^9, 
   3.83205530840832*^9}, {3.8320553847677727`*^9, 3.8320553857852573`*^9}, {
   3.832056319379529*^9, 3.832056478660372*^9}, {3.832056612259283*^9, 
   3.8320566298004704`*^9}, {3.832056774049159*^9, 3.832056783473814*^9}, {
   3.832056834824584*^9, 3.8320568405546713`*^9}, 3.832056953728015*^9, {
   3.832057569966958*^9, 3.8320575863560143`*^9}, {3.83205799243182*^9, 
   3.832057999027054*^9}, 3.832058030554676*^9, 3.832058069061305*^9},
 CellLabel->
  "In[10063]:=",ExpressionUUID->"f933eeec-9695-4867-9418-f370f32200a3"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.832055196064871*^9, 
  3.8320551983796253`*^9}},ExpressionUUID->"5c96fc00-c84e-421e-818a-\
acb6a2c08dc4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"\[Eta]", "[", 
        RowBox[{
         RowBox[{"Y", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
       RowBox[{"\[Eta]", "[", 
        RowBox[{
         RowBox[{"Y", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
      RowBox[{"\[Xi]", "[", 
       RowBox[{
        RowBox[{"Y", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Y", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}]], "//", "Simplify"}], ",", 
    RowBox[{"{", 
     RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{"e", "\[Rule]", 
    RowBox[{"e1", "+", "e2"}]}], "}"}]}]}], "Input",ExpressionUUID->"43302ad8-\
d651-497b-94ed-3a97ccb31c48"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8320553883492317`*^9, 
  3.832055390486698*^9}},ExpressionUUID->"c19a80d4-5463-45d6-aa71-\
b638a130d199"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"boxno", "[", "Y1", "]"}], "+", 
         RowBox[{"boxno", "[", "Y2", "]"}]}], "\[Equal]", "6"}], ",", 
       RowBox[{"{", 
        RowBox[{"Y1", ",", "Y2"}], "}"}], ",", "Nothing"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"Y1", ",", 
       RowBox[{"IntegerPartitions", "[", "3", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"Y2", ",", 
       RowBox[{"IntegerPartitions", "[", "3", "]"}]}], "}"}]}], "]"}], ",", 
   "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.8320574817859364`*^9, 3.832057526311528*^9}, {
  3.832057594002878*^9, 3.832057611374153*^9}},
 CellLabel->
  "In[9979]:=",ExpressionUUID->"83fa5e45-1516-45ce-bf00-2e234fc094d6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "3", "}"}], ",", 
     RowBox[{"{", "3", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "3", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "3", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", "3", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", "3", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"2", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8320575047453938`*^9, 3.832057516766467*^9}, {
  3.832057605712337*^9, 3.832057611720634*^9}},
 CellLabel->
  "Out[9979]=",ExpressionUUID->"2c97d7cd-e0e6-43dc-80ec-152ed105db97"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"\[Eta]", "[", 
        RowBox[{
         RowBox[{"Y", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
       RowBox[{"\[Eta]", "[", 
        RowBox[{
         RowBox[{"Y", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
      RowBox[{"\[Xi]", "[", 
       RowBox[{
        RowBox[{"Y", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Y", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}]], "//", "Simplify"}], ",", 
    RowBox[{"{", 
     RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{"e", "\[Rule]", 
    RowBox[{"e1", "+", "e2"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.832057648959112*^9, 3.832057848638054*^9}, {
  3.832058038510455*^9, 3.832058038831524*^9}, {3.832058186425664*^9, 
  3.832058189363297*^9}, {3.832058229269671*^9, 3.832058230115766*^9}, {
  3.832058264659945*^9, 3.832058289830797*^9}},
 CellLabel->
  "In[10090]:=",ExpressionUUID->"93367e0f-e8f1-4ab5-9d92-745a77457615"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "-", "m1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"a", "-", "m2"}], ")"}]}], 
    RowBox[{"2", " ", "a", " ", "e1", " ", "e2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}]}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "m1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"a", "+", "m2"}], ")"}]}], 
     RowBox[{"2", " ", "a", " ", "e1", " ", "e2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}]}]]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.832057662135981*^9, 3.8320577144242487`*^9}, {
   3.832057775253522*^9, 3.832057849020667*^9}, 3.8320580393925953`*^9, 
   3.832058099275195*^9, 3.832058189827194*^9, 3.8320582304978523`*^9, {
   3.832058269384109*^9, 3.832058290263213*^9}},
 CellLabel->
  "Out[10092]=",ExpressionUUID->"3fa53142-3da4-4d50-b25f-98c1e1d9cc14"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"m1", "\[Rule]", "  ", 
   RowBox[{"+", "  ", 
    SuperscriptBox["\[Alpha]", 
     RowBox[{"-", "1"}]]}]}], " ", ",", 
  RowBox[{"m2", "\[Rule]", "0"}], ",", 
  RowBox[{"t", "\[Rule]", 
   RowBox[{"T", " ", "\[Alpha]"}]}]}]], "Input",ExpressionUUID->"f97ad202-\
d817-4227-aa86-ff0ad6f90de8"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             SuperscriptBox["t", "instno"], 
             FractionBox[
              RowBox[{
               RowBox[{"\[Eta]", "[", 
                RowBox[{
                 RowBox[{"Y", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", 
                 RowBox[{"Y", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
               RowBox[{"\[Eta]", "[", 
                RowBox[{
                 RowBox[{"Y", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", 
                 RowBox[{"Y", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
              RowBox[{"\[Xi]", "[", 
               RowBox[{
                RowBox[{"Y", "[", 
                 RowBox[{"[", "1", "]"}], "]"}], ",", 
                RowBox[{"Y", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"e", "\[Rule]", "0"}], ",", 
           RowBox[{"e1", "\[Rule]", "1"}], ",", 
           RowBox[{"e2", "\[Rule]", 
            RowBox[{"-", "1"}]}]}], "}"}]}], "//", "Simplify"}], ")"}], "/.", 
      
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{"+", "  ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"2", " ", "I", " ", "T", " ", "\[Alpha]"}]}]}], "}"}]}], "//",
      "Factor"}], ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.8320588094514427`*^9, 3.8320588332900057`*^9}, {
  3.8320589163300867`*^9, 3.832058923007121*^9}, {3.832059029673668*^9, 
  3.83205905788739*^9}, {3.832059136783042*^9, 3.8320591369089622`*^9}},
 CellLabel->
  "In[10215]:=",ExpressionUUID->"683b250d-d0d7-4166-a209-e472353ea5b7"],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   RowBox[{"(", 
    RowBox[{"62475", "+", 
     RowBox[{"243742", " ", 
      SuperscriptBox["a", "2"]}], "-", 
     RowBox[{"615824", " ", 
      SuperscriptBox["a", "4"]}], "+", 
     RowBox[{"482560", " ", 
      SuperscriptBox["a", "6"]}], "-", 
     RowBox[{"78336", " ", 
      SuperscriptBox["a", "8"]}], "+", 
     RowBox[{"4608", " ", 
      SuperscriptBox["a", "10"]}]}], ")"}], " ", 
   SuperscriptBox["T", "8"]}], 
  RowBox[{"256", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"]}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"11025", "-", 
      RowBox[{"18589", " ", 
       SuperscriptBox["a", "2"]}], "+", 
      RowBox[{"8892", " ", 
       SuperscriptBox["a", "4"]}], "-", 
      RowBox[{"1392", " ", 
       SuperscriptBox["a", "6"]}], "+", 
      RowBox[{"64", " ", 
       SuperscriptBox["a", "8"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.832058810267859*^9, 3.832058833879314*^9}, {
   3.8320589169232197`*^9, 3.8320589235931*^9}, {3.8320590300836143`*^9, 
   3.832059064920476*^9}, 3.83205916553889*^9},
 CellLabel->
  "Out[10217]=",ExpressionUUID->"4c4829df-a581-472f-8e72-38a4e26fba62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"75", "+", 
    RowBox[{"5324", " ", 
     SuperscriptBox["\[Sigma]1", "2"]}], "-", 
    RowBox[{"2160", " ", 
     SuperscriptBox["\[Sigma]1", "4"]}], "+", 
    RowBox[{"576", " ", 
     SuperscriptBox["\[Sigma]1", "6"]}]}], 
   RowBox[{"8", " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"225", "-", 
       RowBox[{"136", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "+", 
       RowBox[{"16", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], "/", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"75", "+", 
        RowBox[{"5324", " ", 
         SuperscriptBox["a", "2"]}], "-", 
        RowBox[{"2160", " ", 
         SuperscriptBox["a", "4"]}], "+", 
        RowBox[{"576", " ", 
         SuperscriptBox["a", "6"]}]}], ")"}], " ", 
      SuperscriptBox["T", "6"]}], 
     RowBox[{"8", " ", 
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"]}]}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"225", "-", 
         RowBox[{"136", " ", 
          SuperscriptBox["a", "2"]}], "+", 
         RowBox[{"16", " ", 
          SuperscriptBox["a", "4"]}]}], ")"}], "2"]}]], "/.", 
    RowBox[{"a", "\[Rule]", "\[Sigma]1"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.832059080242894*^9, 3.8320590957528267`*^9}},
 CellLabel->
  "In[10214]:=",ExpressionUUID->"14bc4b41-6b6b-4f33-89bb-937eec0beedd"],

Cell[BoxData[
 FractionBox["1", 
  SuperscriptBox["T", "6"]]], "Output",
 CellChangeTimes->{{3.83205891155459*^9, 3.832058919855274*^9}, 
   3.832059096099513*^9},
 CellLabel->
  "Out[10214]=",ExpressionUUID->"9129e72f-07f3-4545-98db-0081aea03be1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"(", 
     RowBox[{"62475", "+", 
      RowBox[{"243742", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "-", 
      RowBox[{"615824", " ", 
       SuperscriptBox["\[Sigma]1", "4"]}], "+", 
      RowBox[{"482560", " ", 
       SuperscriptBox["\[Sigma]1", "6"]}], "-", 
      RowBox[{"78336", " ", 
       SuperscriptBox["\[Sigma]1", "8"]}], "+", 
      RowBox[{"4608", " ", 
       SuperscriptBox["\[Sigma]1", "10"]}]}], ")"}]}], 
   RowBox[{"256", " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"11025", "-", 
       RowBox[{"18589", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "+", 
       RowBox[{"8892", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "-", 
       RowBox[{"1392", " ", 
        SuperscriptBox["\[Sigma]1", "6"]}], "+", 
       RowBox[{"64", " ", 
        SuperscriptBox["\[Sigma]1", "8"]}]}], ")"}], "2"]}]], "/", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{"3", " ", 
      RowBox[{"(", 
       RowBox[{"62475", "+", 
        RowBox[{"243742", " ", 
         SuperscriptBox["a", "2"]}], "-", 
        RowBox[{"615824", " ", 
         SuperscriptBox["a", "4"]}], "+", 
        RowBox[{"482560", " ", 
         SuperscriptBox["a", "6"]}], "-", 
        RowBox[{"78336", " ", 
         SuperscriptBox["a", "8"]}], "+", 
        RowBox[{"4608", " ", 
         SuperscriptBox["a", "10"]}]}], ")"}], " ", 
      SuperscriptBox["T", "8"]}], 
     RowBox[{"256", " ", 
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"]}]}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"11025", "-", 
         RowBox[{"18589", " ", 
          SuperscriptBox["a", "2"]}], "+", 
         RowBox[{"8892", " ", 
          SuperscriptBox["a", "4"]}], "-", 
         RowBox[{"1392", " ", 
          SuperscriptBox["a", "6"]}], "+", 
         RowBox[{"64", " ", 
          SuperscriptBox["a", "8"]}]}], ")"}], "2"]}]], "/.", 
    RowBox[{"a", "\[Rule]", "\[Sigma]1"}]}], ")"}]}]], "Input",
 CellChangeTimes->{{3.8320591794591084`*^9, 3.832059182806973*^9}},
 CellLabel->
  "In[10218]:=",ExpressionUUID->"e7cc9da5-dafc-427d-9d14-dc980d5f20b8"],

Cell[BoxData[
 FractionBox["1", 
  SuperscriptBox["T", "8"]]], "Output",
 CellChangeTimes->{3.832059183488784*^9},
 CellLabel->
  "Out[10218]=",ExpressionUUID->"b17591ef-3896-4226-9f0b-7a84f01fa4fa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"BarnesG", "[", 
      RowBox[{"1", "+", "x", "+", "\[Sigma]1"}], "]"}], 
     RowBox[{"BarnesG", "[", 
      RowBox[{"1", "+", " ", "x", "-", "\[Sigma]1"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "Infinity", ",", "0"}], "}"}]}], "]"}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.832059334004044*^9, 3.8320593707334967`*^9}, {
  3.832059409139583*^9, 3.832059448305292*^9}, {3.832069629079277*^9, 
  3.832069642189973*^9}},
 CellLabel->
  "In[10405]:=",ExpressionUUID->"7c594fe3-6659-41c7-9903-793d026dee8c"],

Cell[BoxData[
 SuperscriptBox["\[ExponentialE]", 
  InterpretationBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["3", "2"]}], "+", 
       RowBox[{"Log", "[", "x", "]"}]}], ")"}], " ", 
     SuperscriptBox["x", "2"]}], "+", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"2", " ", "\[Pi]"}], "]"}], " ", "x"}], "+", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "6"], "-", 
      RowBox[{"2", " ", 
       RowBox[{"Log", "[", "Glaisher", "]"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "6"]}], "+", 
         SuperscriptBox["\[Sigma]1", "2"]}], ")"}], " ", 
       RowBox[{"Log", "[", "x", "]"}]}]}], ")"}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", 
       FractionBox["1", "x"], "]"}], "2"],
     SeriesData[$CellContext`x, 
      DirectedInfinity[1], {}, -2, 2, 1],
     Editable->False]}],
   SeriesData[$CellContext`x, 
    DirectedInfinity[1], {Rational[-3, 2] + Log[$CellContext`x], 
     Log[2 Pi], Rational[1, 6] - 2 
     Log[Glaisher] + (Rational[-1, 6] + $CellContext`\[Sigma]1^2) 
      Log[$CellContext`x]}, -2, 2, 1],
   Editable->False]]], "Output",
 CellChangeTimes->{{3.8320593361247663`*^9, 3.832059371388699*^9}, {
  3.8320594099526453`*^9, 3.832059448780251*^9}, {3.8320696345560093`*^9, 
  3.8320696432864103`*^9}},
 CellLabel->
  "Out[10405]=",ExpressionUUID->"246eaef3-4ceb-484e-ab71-4789c0dd6f5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], "+", 
      RowBox[{"Log", "[", "x", "]"}]}], ")"}], " ", 
    SuperscriptBox["x", "2"]}], "+", 
   RowBox[{
    RowBox[{"Log", "[", 
     RowBox[{"2", " ", "\[Pi]"}], "]"}], " ", "x"}], "+", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", "6"], "-", 
     RowBox[{"2", " ", 
      RowBox[{"Log", "[", "Glaisher", "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "6"]}], "+", 
        SuperscriptBox["\[Sigma]1", "2"]}], ")"}], " ", 
      RowBox[{"Log", "[", "x", "]"}]}]}], ")"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", " ", 
    RowBox[{"2", " ", "I", " ", "x"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8320594572022877`*^9, 3.832059461311256*^9}, {
  3.832069648998436*^9, 3.832069673441122*^9}},
 CellLabel->
  "In[10406]:=",ExpressionUUID->"00d850b1-5211-4a99-9935-3f3c8f404ad3"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], "-", 
  RowBox[{"2", " ", 
   RowBox[{"Log", "[", "Glaisher", "]"}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", "x", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2", " ", "\[Pi]"}], "]"}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["x", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["3", "2"]}], "+", 
     RowBox[{"Log", "[", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "x"}], "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "6"]}], "+", 
     SuperscriptBox["\[Sigma]1", "2"]}], ")"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "x"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.832069674040399*^9},
 CellLabel->
  "Out[10406]=",ExpressionUUID->"b33567fd-49c5-4427-a5e5-2b9ba01da4ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   FractionBox["1", "6"], "-", 
   RowBox[{"2", " ", 
    RowBox[{"Log", "[", "Glaisher", "]"}]}], "+", 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "x", " ", 
    RowBox[{"Log", "[", 
     RowBox[{"2", " ", "\[Pi]"}], "]"}]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["3", "2"]}], "+", 
      RowBox[{"Log", "[", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "x"}], "]"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "6"]}], "+", 
      SuperscriptBox["\[Sigma]1", "2"]}], ")"}], " ", 
    RowBox[{"Log", "[", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "x"}], "]"}]}]}], "]"}]], "Input",\

 NumberMarks->False,
 CellLabel->
  "In[10407]:=",ExpressionUUID->"571fe87b-a52e-4f29-a55d-e8e67b8fe71b"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["x", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{"Log", "[", "Glaisher", "]"}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", "x", " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2", " ", "\[Pi]"}], "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "6"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["x", "2"]}], "+", 
     SuperscriptBox["\[Sigma]1", "2"]}], ")"}], " ", 
   RowBox[{"Log", "[", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "x"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.83206968007561*^9},
 CellLabel->
  "Out[10407]=",ExpressionUUID->"3b5664a4-5f7b-4108-87d7-e0e43d70dd0d"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.832069659681937*^9, 
  3.8320696627396603`*^9}},ExpressionUUID->"8cdbbf32-78c7-4365-a4f6-\
1acefd4807d6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["t", "instno"], 
       FractionBox[
        RowBox[{
         RowBox[{"\[Eta]", "[", 
          RowBox[{
           RowBox[{"Y", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"Y", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
         RowBox[{"\[Eta]", "[", 
          RowBox[{
           RowBox[{"Y", "[", 
            RowBox[{"[", "1", "]"}], "]"}], ",", 
           RowBox[{"Y", "[", 
            RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
        RowBox[{"\[Xi]", "[", 
         RowBox[{
          RowBox[{"Y", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"Y", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], ",", 
     
     RowBox[{"{", 
      RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "}"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.832058302498342*^9, 3.832058326389145*^9}, {
  3.832058383389371*^9, 3.832058415064644*^9}, {3.832058531636656*^9, 
  3.832058579962893*^9}, {3.8320587202925262`*^9, 3.832058729153479*^9}},
 CellLabel->
  "In[10165]:=",ExpressionUUID->"dca14ff5-c6ef-46fb-a4be-0801380da415"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"384", " ", 
    SuperscriptBox["a", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"9", "-", 
       RowBox[{"49", " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"56", " ", 
        SuperscriptBox["a", "4"]}], "-", 
       RowBox[{"16", " ", 
        SuperscriptBox["a", "6"]}]}], ")"}], "2"]}]], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"256", " ", 
      SuperscriptBox["a", "16"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["a", "14"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "25"}], "+", 
        RowBox[{"16", " ", "m1", " ", "m2"}]}], ")"}]}], "+", 
     RowBox[{"81", " ", 
      SuperscriptBox["m1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["m1", "2"]}], ")"}], " ", 
      SuperscriptBox["m2", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["m2", "2"]}], ")"}]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["a", "12"], " ", 
      RowBox[{"(", 
       RowBox[{"891", "-", 
        RowBox[{"1696", " ", "m1", " ", "m2"}], "-", 
        RowBox[{"144", " ", 
         SuperscriptBox["m2", "2"]}], "+", 
        RowBox[{"48", " ", 
         SuperscriptBox["m1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "10"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3553"}], "+", 
        RowBox[{"3672", " ", 
         SuperscriptBox["m2", "2"]}], "+", 
        RowBox[{
         SuperscriptBox["m1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"3672", "-", 
           RowBox[{"9600", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
        RowBox[{"128", " ", 
         SuperscriptBox["m1", "3"], " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "9"}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}], "-", 
        RowBox[{"128", " ", "m1", " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "139"}], "+", 
           RowBox[{"9", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"216", " ", "m1", " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["m2", "2"]}], ")"}]}], "-", 
        RowBox[{"9", " ", 
         SuperscriptBox["m2", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["m2", "2"]}], ")"}]}], "-", 
        RowBox[{"216", " ", 
         SuperscriptBox["m1", "3"], " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"3", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["m1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"9", "-", 
           RowBox[{"157", " ", 
            SuperscriptBox["m2", "2"]}], "-", 
           RowBox[{"149", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["m1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "9"}], "-", 
           RowBox[{"149", " ", 
            SuperscriptBox["m2", "2"]}], "+", 
           RowBox[{"59", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "8"], " ", 
      RowBox[{"(", 
       RowBox[{"2155", "-", 
        RowBox[{"8658", " ", 
         SuperscriptBox["m2", "2"]}], "+", 
        RowBox[{"108", " ", 
         SuperscriptBox["m2", "4"]}], "-", 
        RowBox[{"64", " ", 
         SuperscriptBox["m1", "3"], " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "89"}], "+", 
           RowBox[{"82", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
        RowBox[{"8", " ", "m1", " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3089"}], "+", 
           RowBox[{"712", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["m1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "8658"}], "+", 
           RowBox[{"22352", " ", 
            SuperscriptBox["m2", "2"]}], "-", 
           RowBox[{"576", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["m1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"27", "-", 
           RowBox[{"144", " ", 
            SuperscriptBox["m2", "2"]}], "+", 
           RowBox[{"64", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"288", " ", "m1", " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "20"}], "+", 
           RowBox[{"11", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}], "-", 
        RowBox[{"72", " ", 
         SuperscriptBox["m1", "3"], " ", "m2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "44"}], "+", 
           RowBox[{"69", " ", 
            SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
        RowBox[{"9", " ", 
         RowBox[{"(", 
          RowBox[{"69", "-", 
           RowBox[{"332", " ", 
            SuperscriptBox["m2", "2"]}], "+", 
           RowBox[{"6", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["m1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"27", "-", 
           RowBox[{"841", " ", 
            SuperscriptBox["m2", "2"]}], "+", 
           RowBox[{"486", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["m1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1494", "-", 
           RowBox[{"3440", " ", 
            SuperscriptBox["m2", "2"]}], "+", 
           RowBox[{"841", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"m1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"18992", " ", "m2"}], "-", 
           RowBox[{"8264", " ", 
            SuperscriptBox["m2", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["m1", "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "8264"}], " ", "m2"}], "+", 
           RowBox[{"8448", " ", 
            SuperscriptBox["m2", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["m1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "189"}], "+", 
           RowBox[{"1592", " ", 
            SuperscriptBox["m2", "2"]}], "-", 
           RowBox[{"832", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}], "-", 
        RowBox[{"3", " ", 
         RowBox[{"(", 
          RowBox[{"481", "-", 
           RowBox[{"2859", " ", 
            SuperscriptBox["m2", "2"]}], "+", 
           RowBox[{"63", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["m1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"8577", "-", 
           RowBox[{"21420", " ", 
            SuperscriptBox["m2", "2"]}], "+", 
           RowBox[{"1592", " ", 
            SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}]}], ")"}], " ", 
   SuperscriptBox["t", "4"]}]}]], "Output",
 CellChangeTimes->{{3.832058313811013*^9, 3.832058322617887*^9}, {
  3.832058390848649*^9, 3.8320584124203653`*^9}, {3.832058522658749*^9, 
  3.8320585378001966`*^9}, {3.8320585779142*^9, 3.832058605157817*^9}, {
  3.83205872147364*^9, 3.832058730303043*^9}},
 CellLabel->
  "Out[10167]=",ExpressionUUID->"135787db-dac2-4f69-9938-c74797b2f991"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{
       FractionBox["1", 
        RowBox[{"384", " ", 
         SuperscriptBox["a", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"9", "-", 
            RowBox[{"49", " ", 
             SuperscriptBox["a", "2"]}], "+", 
            RowBox[{"56", " ", 
             SuperscriptBox["a", "4"]}], "-", 
            RowBox[{"16", " ", 
             SuperscriptBox["a", "6"]}]}], ")"}], "2"]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"256", " ", 
          SuperscriptBox["a", "16"]}], "+", 
         RowBox[{"64", " ", 
          SuperscriptBox["a", "14"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "25"}], "+", 
            RowBox[{"16", " ", "m1", " ", "m2"}]}], ")"}]}], "+", 
         RowBox[{"81", " ", 
          SuperscriptBox["m1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["m1", "2"]}], ")"}], " ", 
          SuperscriptBox["m2", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["m2", "2"]}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "12"], " ", 
          RowBox[{"(", 
           RowBox[{"891", "-", 
            RowBox[{"1696", " ", "m1", " ", "m2"}], "-", 
            RowBox[{"144", " ", 
             SuperscriptBox["m2", "2"]}], "+", 
            RowBox[{"48", " ", 
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3"}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["a", "10"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "3553"}], "+", 
            RowBox[{"3672", " ", 
             SuperscriptBox["m2", "2"]}], "+", 
            RowBox[{
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"3672", "-", 
               RowBox[{"9600", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
            RowBox[{"128", " ", 
             SuperscriptBox["m1", "3"], " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "9"}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}], "-", 
            RowBox[{"128", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "139"}], "+", 
               RowBox[{"9", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}]}], ")"}]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["a", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"216", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["m2", "2"]}], ")"}]}], "-", 
            RowBox[{"9", " ", 
             SuperscriptBox["m2", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["m2", "2"]}], ")"}]}], "-", 
            RowBox[{"216", " ", 
             SuperscriptBox["m1", "3"], " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"9", "-", 
               RowBox[{"157", " ", 
                SuperscriptBox["m2", "2"]}], "-", 
               RowBox[{"149", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["m1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "9"}], "-", 
               RowBox[{"149", " ", 
                SuperscriptBox["m2", "2"]}], "+", 
               RowBox[{"59", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["a", "8"], " ", 
          RowBox[{"(", 
           RowBox[{"2155", "-", 
            RowBox[{"8658", " ", 
             SuperscriptBox["m2", "2"]}], "+", 
            RowBox[{"108", " ", 
             SuperscriptBox["m2", "4"]}], "-", 
            RowBox[{"64", " ", 
             SuperscriptBox["m1", "3"], " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "89"}], "+", 
               RowBox[{"82", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
            RowBox[{"8", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "3089"}], "+", 
               RowBox[{"712", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "8658"}], "+", 
               RowBox[{"22352", " ", 
                SuperscriptBox["m2", "2"]}], "-", 
               RowBox[{"576", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["m1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"27", "-", 
               RowBox[{"144", " ", 
                SuperscriptBox["m2", "2"]}], "+", 
               RowBox[{"64", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["a", "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"288", " ", "m1", " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "20"}], "+", 
               RowBox[{"11", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}], "-", 
            RowBox[{"72", " ", 
             SuperscriptBox["m1", "3"], " ", "m2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "44"}], "+", 
               RowBox[{"69", " ", 
                SuperscriptBox["m2", "2"]}]}], ")"}]}], "+", 
            RowBox[{"9", " ", 
             RowBox[{"(", 
              RowBox[{"69", "-", 
               RowBox[{"332", " ", 
                SuperscriptBox["m2", "2"]}], "+", 
               RowBox[{"6", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["m1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"27", "-", 
               RowBox[{"841", " ", 
                SuperscriptBox["m2", "2"]}], "+", 
               RowBox[{"486", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"1494", "-", 
               RowBox[{"3440", " ", 
                SuperscriptBox["m2", "2"]}], "+", 
               RowBox[{"841", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["a", "6"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"m1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"18992", " ", "m2"}], "-", 
               RowBox[{"8264", " ", 
                SuperscriptBox["m2", "3"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["m1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "8264"}], " ", "m2"}], "+", 
               RowBox[{"8448", " ", 
                SuperscriptBox["m2", "3"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["m1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "189"}], "+", 
               RowBox[{"1592", " ", 
                SuperscriptBox["m2", "2"]}], "-", 
               RowBox[{"832", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}], "-", 
            RowBox[{"3", " ", 
             RowBox[{"(", 
              RowBox[{"481", "-", 
               RowBox[{"2859", " ", 
                SuperscriptBox["m2", "2"]}], "+", 
               RowBox[{"63", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["m1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"8577", "-", 
               RowBox[{"21420", " ", 
                SuperscriptBox["m2", "2"]}], "+", 
               RowBox[{"1592", " ", 
                SuperscriptBox["m2", "4"]}]}], ")"}]}]}], ")"}]}]}], ")"}], 
       " ", 
       SuperscriptBox["t", "4"]}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{"+", "  ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"2", " ", "I", " ", "T", " ", "\[Alpha]"}]}]}], "}"}]}], "//",
      "Factor"}], ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.832058738321517*^9, 3.8320587938769283`*^9}, {
  3.8320589322463207`*^9, 3.832058937047215*^9}},
 CellLabel->
  "In[10195]:=",ExpressionUUID->"96988989-5727-45d2-a798-128af2a1040f"],

Cell[BoxData[
 FractionBox[
  RowBox[{"9", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["a", "2"]}]}], ")"}], " ", 
   SuperscriptBox["T", "4"]}], 
  RowBox[{"8", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"9", "-", 
      RowBox[{"40", " ", 
       SuperscriptBox["a", "2"]}], "+", 
      RowBox[{"16", " ", 
       SuperscriptBox["a", "4"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.8320587450892687`*^9, 3.832058794350863*^9}, {
  3.832058932765061*^9, 3.8320589373679123`*^9}},
 CellLabel->
  "Out[10195]=",ExpressionUUID->"a6e65686-5d74-495d-b694-847c44604ce2"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"9", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"9", "-", 
      RowBox[{"40", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "+", 
      RowBox[{"16", " ", 
       SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]]], "Input",Expressi\
onUUID->"c3ea56da-7acc-480c-b7a8-e9e51df3c767"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["t", "instno"], 
          FractionBox[
           RowBox[{
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
           RowBox[{"\[Xi]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{"+", "  ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"2", " ", "I", " ", "T", " ", "\[Alpha]"}]}]}], "}"}]}], "//",
      "Simplify"}], ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.8320585214831123`*^9, 3.832058528238152*^9}, {
  3.8320627044525347`*^9, 3.832062762766327*^9}},
 CellLabel->
  "In[10302]:=",ExpressionUUID->"0902c0bc-8a97-43fe-804f-05d0665bbe42"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "T"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}]}]]}], 
   ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "T"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], 
       ")"}]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8320627159745007`*^9, 3.832062763241851*^9}},
 CellLabel->
  "Out[10304]=",ExpressionUUID->"820d7a5d-af4f-4d80-8d19-783b3af798f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["t", "instno"], 
          FractionBox[
           RowBox[{"\[Eta]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
           RowBox[{"\[Xi]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{
          RowBox[{"+", "  ", "a"}], " ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"2", " ", "I", " ", "T", " ", "\[Alpha]"}]}]}], "}"}]}], "//",
      "Simplify"}], ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.832069461181191*^9, 3.832069473312014*^9}},
 CellLabel->
  "In[10380]:=",ExpressionUUID->"211638ce-8f12-4b22-a0d4-92f988bacc82"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "T"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}]}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", "T"}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], 
       ")"}]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8320694634815063`*^9, 3.832069474366869*^9}},
 CellLabel->
  "Out[10382]=",ExpressionUUID->"974f01f4-0192-4916-a5a0-3e2a1d86dcb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["t", "instno"], 
          FractionBox[
           RowBox[{
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
           RowBox[{"\[Xi]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{
          RowBox[{"+", " ", "2"}], " ", "I", "   ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"T", " ", "\[Alpha]"}]}]}], "}"}]}], "//", "Simplify"}], 
    ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.832069487750395*^9, 3.83206950118922*^9}, {
  3.8320695645658827`*^9, 3.832069576044186*^9}},
 CellLabel->
  "In[10401]:=",ExpressionUUID->"93a04d8f-16f6-4a53-bc44-1171aa4a5d0a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", "a", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "e2"}], ")"}], " ", 
      SuperscriptBox["T", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", 
        RowBox[{"2", " ", "e2"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", 
        RowBox[{"2", " ", "e2"}]}], ")"}]}]]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "a", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "e1"}], ")"}], " ", 
      SuperscriptBox["T", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"2", " ", "e1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", 
      SuperscriptBox["e1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", 
        RowBox[{"2", " ", "e1"}], "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", 
        RowBox[{"2", " ", "e1"}], "+", "e2"}], ")"}]}]]}], ",", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e1"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e", "-", "e1"}], ")"}], " ", 
     SuperscriptBox["e1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1"}], ")"}]}]], ",", 
   FractionBox[
    RowBox[{"4", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "e2"}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e", "-", "e1", "-", 
       RowBox[{"2", " ", "e2"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e1", "-", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e", "-", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", 
       RowBox[{"2", " ", "e2"}]}], ")"}]}]], ",", 
   FractionBox[
    RowBox[{"2", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "e1"}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"e", "-", 
       RowBox[{"2", " ", "e1"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e", "-", "e1"}], ")"}], " ", 
     SuperscriptBox["e1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e", "-", 
       RowBox[{"2", " ", "e1"}], "-", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", 
       RowBox[{"2", " ", "e1"}], "+", "e2"}], ")"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{
  3.832069488827232*^9, {3.832069566101671*^9, 3.832069599582818*^9}},
 CellLabel->
  "Out[10403]=",ExpressionUUID->"2fb19056-1c34-44d5-b106-9eea51bc68ad"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.832069565659309*^9, 
  3.832069567159773*^9}},ExpressionUUID->"6613b98f-d378-4f80-93c8-\
18a5ce4fbe3b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["t", "instno"], 
          FractionBox[
           RowBox[{
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
           RowBox[{"\[Xi]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{
          RowBox[{"+", " ", "2"}], " ", "I", "  ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"T", " ", "\[Alpha]"}]}]}], "}"}]}], "//", "Simplify"}], 
    ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.8320631624214354`*^9, 3.832063212492477*^9}, {
  3.8320691961230288`*^9, 3.8320691990205812`*^9}, {3.832069230202154*^9, 
  3.832069232609088*^9}},
 CellLabel->
  "In[10374]:=",ExpressionUUID->"d8272597-9b4d-4d4d-94e4-ecb002ac47ef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", "a", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "e2"}], ")"}], " ", 
      SuperscriptBox["T", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", 
        RowBox[{"2", " ", "e2"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", 
        RowBox[{"2", " ", "e2"}]}], ")"}]}]]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "a", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "e1"}], ")"}], " ", 
      SuperscriptBox["T", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"2", " ", "e1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", 
      SuperscriptBox["e1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", 
        RowBox[{"2", " ", "e1"}], "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", 
        RowBox[{"2", " ", "e1"}], "+", "e2"}], ")"}]}]]}], ",", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e1"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e", "-", "e1"}], ")"}], " ", 
     SuperscriptBox["e1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1"}], ")"}]}]], ",", 
   FractionBox[
    RowBox[{"4", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "e2"}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e", "-", "e1", "-", 
       RowBox[{"2", " ", "e2"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e1", "-", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e", "-", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", 
       RowBox[{"2", " ", "e2"}]}], ")"}]}]], ",", 
   FractionBox[
    RowBox[{"2", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "e1"}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"e", "-", 
       RowBox[{"2", " ", "e1"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e", "-", "e1"}], ")"}], " ", 
     SuperscriptBox["e1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e", "-", 
       RowBox[{"2", " ", "e1"}], "-", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", 
       RowBox[{"2", " ", "e1"}], "+", "e2"}], ")"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.832063164678685*^9, 3.8320632128788557`*^9}, 
   3.832069200038315*^9, 3.8320692339484673`*^9},
 CellLabel->
  "Out[10376]=",ExpressionUUID->"9bce6e5b-4b51-4e83-8634-f2a54b611721"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["t", "instno"], 
          FractionBox[
           RowBox[{
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
           RowBox[{"\[Xi]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{
          RowBox[{"+", " ", "2"}], " ", "I", "  ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"T", " ", "\[Alpha]"}]}]}], "}"}]}], "//", "Simplify"}], 
    ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.8320627482959948`*^9, 3.832062777988676*^9}, {
  3.832063117621896*^9, 3.83206311875117*^9}},
 CellLabel->
  "In[10335]:=",ExpressionUUID->"46670421-3328-40a8-8c8e-a3dad7ff1fa3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", "a", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "e2"}], ")"}], " ", 
      SuperscriptBox["T", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", 
        RowBox[{"2", " ", "e2"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", 
        RowBox[{"2", " ", "e2"}]}], ")"}]}]]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "a", " ", 
      RowBox[{"(", 
       RowBox[{"a", "-", "e1"}], ")"}], " ", 
      SuperscriptBox["T", "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"2", " ", "e1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], " ", 
      SuperscriptBox["e1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", 
        RowBox[{"2", " ", "e1"}], "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", "e1", "-", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", 
        RowBox[{"2", " ", "e1"}], "+", "e2"}], ")"}]}]]}], ",", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e1"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"e", "-", "e1"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e", "-", "e1"}], ")"}], " ", 
     SuperscriptBox["e1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1"}], ")"}]}]], ",", 
   FractionBox[
    RowBox[{"4", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "e2"}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"e", "-", "e1"}], ")"}], " ", "e1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e", "-", "e1", "-", 
       RowBox[{"2", " ", "e2"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e1", "-", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e", "-", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", 
       RowBox[{"2", " ", "e2"}]}], ")"}]}]], ",", 
   FractionBox[
    RowBox[{"2", " ", "a", " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", "e1"}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"e", "-", 
       RowBox[{"2", " ", "e1"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"e", "-", "e1"}], ")"}], " ", 
     SuperscriptBox["e1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "a"}], "+", "e", "-", 
       RowBox[{"2", " ", "e1"}], "-", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "-", "e", "+", "e1", "+", "e2"}], ")"}], " ", 
     
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "a"}], "+", 
       RowBox[{"2", " ", "e1"}], "+", "e2"}], ")"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.832062749334282*^9, 3.8320627787365713`*^9}, 
   3.832063119522162*^9},
 CellLabel->
  "Out[10337]=",ExpressionUUID->"4d03401d-2128-40c2-bcca-d18185ea3461"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", " ", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["t", "instno"], 
          FractionBox[
           RowBox[{
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
            RowBox[{"\[Eta]", "[", 
             RowBox[{
              RowBox[{"Y", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"Y", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", "m2"}], "]"}]}], 
           RowBox[{"\[Xi]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"e", "\[Rule]", "0"}], ",", 
        RowBox[{"e1", "\[Rule]", "1"}], ",", 
        RowBox[{"e2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{
          RowBox[{"+", " ", "2"}], " ", "I", "  ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"T", " ", "\[Alpha]"}]}]}], "}"}]}], "//", "Simplify"}], 
    ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.832062934401945*^9, 3.83206297444487*^9}},
 CellLabel->
  "In[10332]:=",ExpressionUUID->"70eb42d0-d682-4b09-81e8-f2a5b77689de"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"75", "+", 
     RowBox[{"5324", " ", 
      SuperscriptBox["a", "2"]}], "-", 
     RowBox[{"2160", " ", 
      SuperscriptBox["a", "4"]}], "+", 
     RowBox[{"576", " ", 
      SuperscriptBox["a", "6"]}]}], ")"}], " ", 
   SuperscriptBox["T", "6"]}], 
  RowBox[{"8", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"]}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"225", "-", 
      RowBox[{"136", " ", 
       SuperscriptBox["a", "2"]}], "+", 
      RowBox[{"16", " ", 
       SuperscriptBox["a", "4"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.832062945163391*^9, 3.832062977017174*^9}},
 CellLabel->
  "Out[10334]=",ExpressionUUID->"88d43f6b-6d39-4578-9e6c-740af18c05b5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["t", "instno"], 
          FractionBox[
           RowBox[{"\[Eta]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", "m1"}], "]"}], 
           RowBox[{"\[Xi]", "[", 
            RowBox[{
             RowBox[{"Y", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"Y", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]]}], "//", "Cancel"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"e", "\[Rule]", "0"}], ",", 
        RowBox[{"e1", "\[Rule]", "1"}], ",", 
        RowBox[{"e2", "\[Rule]", 
         RowBox[{"-", "1"}]}], ",", 
        RowBox[{"m1", "\[Rule]", "  ", 
         RowBox[{
          RowBox[{"+", "  ", "a"}], " ", 
          SuperscriptBox["\[Alpha]", 
           RowBox[{"-", "1"}]]}]}], " ", ",", 
        RowBox[{"m2", "\[Rule]", "0"}], ",", 
        RowBox[{"t", "\[Rule]", 
         RowBox[{"2", " ", "I", " ", "T", " ", "\[Alpha]"}]}]}], "}"}]}], "//",
      "Simplify"}], ")"}], "/.", 
   RowBox[{"\[Alpha]", "\[Rule]", "0"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.832069535305716*^9, 3.8320695380316467`*^9}},
 CellLabel->
  "In[10389]:=",ExpressionUUID->"2c14adb8-2511-4dee-8152-485ed600c9df"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"8", " ", 
       SuperscriptBox["a", "2"]}]}], ")"}], " ", 
    SuperscriptBox["T", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"]}]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.832069538858097*^9},
 CellLabel->
  "Out[10391]=",ExpressionUUID->"e0674237-a733-4deb-a1ca-e1d5f168519e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"instno", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tableaux", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y1", ",", 
           RowBox[{"IntegerPartitions", "[", "k", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Y2", ",", 
           RowBox[{"IntegerPartitions", "[", 
            RowBox[{"instno", "-", "k"}], "]"}]}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"Range", "[", 
          RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"\[Xi]", "[", 
       RowBox[{
        RowBox[{"Y", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Y", "[", 
         RowBox[{"[", "2", "]"}], "]"}]}], "]"}]], ",", 
     RowBox[{"{", 
      RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "}"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.83205793390676*^9, 3.832057980113866*^9}, 
   3.832058554511813*^9, {3.832058607249311*^9, 3.832058631420636*^9}, {
   3.832058692128948*^9, 3.832058693852745*^9}},
 CellLabel->
  "In[10158]:=",ExpressionUUID->"aaf0b8b0-7dc2-4ff4-b8c2-fd7e9bd77284"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", " ", 
   SuperscriptBox["a", "2"]}]]], "Output",
 CellChangeTimes->{{3.832057947242491*^9, 3.83205798041678*^9}, 
   3.8320585550299387`*^9, {3.832058607787022*^9, 3.8320586317831097`*^9}, {
   3.832058692550025*^9, 3.832058694191925*^9}},
 CellLabel->
  "Out[10160]=",ExpressionUUID->"20bf71b4-2c88-4b11-b22c-4d9fe76688c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "8"}]], 
         FractionBox[
          RowBox[{"81", "-", 
           RowBox[{"177", " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{"972", " ", 
            SuperscriptBox["a", "4"]}], "-", 
           RowBox[{"832", " ", 
            SuperscriptBox["a", "6"]}], "+", 
           RowBox[{"256", " ", 
            SuperscriptBox["a", "8"]}]}], 
          RowBox[{"384", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"9", "-", 
              RowBox[{"49", " ", 
               SuperscriptBox["a", "2"]}], "+", 
              RowBox[{"56", " ", 
               SuperscriptBox["a", "4"]}], "-", 
              RowBox[{"16", " ", 
               SuperscriptBox["a", "6"]}]}], ")"}], "2"]}]]}], "/.", 
        RowBox[{"{", 
         RowBox[{"a", "\[Rule]", 
          RowBox[{"a", "/", "\[Epsilon]"}]}], "}"}]}], ")"}], "//", 
      "Factor"}], ")"}], "/.", 
    RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     FractionBox["1", 
      RowBox[{"2", " ", 
       SuperscriptBox["a", "2"]}]], ")"}], "^", "4"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.832058660027979*^9, 3.832058707957149*^9}},
 CellLabel->
  "In[10161]:=",ExpressionUUID->"39e15ae5-6d5f-4d3b-9c4e-e20c61d3b5b0"],

Cell[BoxData[
 FractionBox["1", "24"]], "Output",
 CellChangeTimes->{{3.8320586680945807`*^9, 3.832058709025449*^9}},
 CellLabel->
  "Out[10161]=",ExpressionUUID->"0a4dda31-9454-475b-b597-947dd60192e3"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", "-", 
   RowBox[{"5", " ", 
    SuperscriptBox["\[Sigma]1", "2"]}], "+", 
   RowBox[{"8", " ", 
    SuperscriptBox["\[Sigma]1", "4"]}]}], 
  RowBox[{"24", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", 
      RowBox[{"5", " ", 
       SuperscriptBox["\[Sigma]1", "3"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "5"]}]}], ")"}], "2"]}]]], "Input",Expressi\
onUUID->"61406400-6ba6-4de0-9878-8ad3e0a2c90b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IntegerPartitions", "[", "3", "]"}]], "Input",
 CellChangeTimes->{{3.8320574500311213`*^9, 3.832057452276004*^9}},
 CellLabel->
  "In[9963]:=",ExpressionUUID->"671578ed-0cf4-4471-bf0d-adc44624fea3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "3", "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.832057450682754*^9, 3.832057452644261*^9}},
 CellLabel->
  "Out[9963]=",ExpressionUUID->"625cae93-4eac-4776-91aa-83cc26087aa3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Y", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", "1"}], "]"}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Y", "[", 
        RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"Y", ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"n1", "+", "n2"}], "\[Equal]", "2"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"IntegerPartitions", "[", "n1", "]"}], ",", 
             RowBox[{"IntegerPartitions", "[", "n2", "]"}]}], "}"}], ",", 
           "Nothing"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n2", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", "1"}], 
      "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.832057358895084*^9, 3.83205741359103*^9}},
 CellLabel->
  "In[9960]:=",ExpressionUUID->"8e19aae7-2d6d-468d-90ea-cb77c4e72b8f"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1"}], "}"}]}],
  SequenceForm[{}, {2, 1, 1}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832057366935892*^9, 3.832057414259604*^9}},
 CellLabel->
  "During evaluation of \
In[9960]:=",ExpressionUUID->"80d31112-634c-465e-9138-6a66ba44892e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", "1", "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", "1", "}"}]}],
  SequenceForm[{1}, {1}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832057366935892*^9, 3.832057414264349*^9}},
 CellLabel->
  "During evaluation of \
In[9960]:=",ExpressionUUID->"d7e85348-dd87-4aa6-919f-d7821b6248e4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1"}], "}"}], "\[InvisibleSpace]", 
   RowBox[{"{", "}"}]}],
  SequenceForm[{2, 1, 1}, {}],
  Editable->False]], "Print",
 CellChangeTimes->{{3.832057366935892*^9, 3.83205741427149*^9}},
 CellLabel->
  "During evaluation of \
In[9960]:=",ExpressionUUID->"5a5ac1dc-7918-4939-ad62-a72b411a248c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"Null", ",", "Null", ",", "Null"}], "}"}]], "Output",
 CellChangeTimes->{{3.832057366947259*^9, 3.832057414275823*^9}},
 CellLabel->
  "Out[9960]=",ExpressionUUID->"0709f51c-5381-4a01-bf7a-98498cc5d9a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"\[Eta]", "[", 
     RowBox[{
      RowBox[{"Y", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Y", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}], 
    RowBox[{"\[Xi]", "[", 
     RowBox[{
      RowBox[{"Y", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"Y", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}]], ",", 
   RowBox[{"{", 
    RowBox[{"Y", ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"n1", "+", "n2"}], "\[Equal]", "1"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"IntegerPartitions", "[", "n1", "]"}], ",", 
             RowBox[{"IntegerPartitions", "[", "n2", "]"}]}], "}"}], ",", 
           "Nothing"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"n1", ",", "0", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"n2", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", "1"}], 
      "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.832057258758719*^9, 3.832057336279285*^9}},
 CellLabel->
  "In[9953]:=",ExpressionUUID->"2c7eb4f5-e56f-44ad-bca9-5d27c700bbd2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a"}], "+", "m1"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"e1", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Select", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"{", "1", "}"}], "}"}], ",", 
              RowBox[{
               RowBox[{"#1", "\[GreaterEqual]", "i$11754608"}], "&"}]}], 
             "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i$11754608", ",", "1", ",", 
             RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
         "\[LeftDoubleBracket]", 
         RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"e1", " ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", "1", "}"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"#1", "\[GreaterEqual]", "i$11754609"}], "&"}]}], 
                "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i$11754609", ",", "1", ",", 
                RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
            "\[LeftDoubleBracket]", 
            RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}]}]}], 
       ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", 
        RowBox[{"e1", " ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", "1", "}"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"#1", "\[GreaterEqual]", "i$11754606"}], "&"}]}], 
                "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i$11754606", ",", "1", ",", 
                RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
            "\[LeftDoubleBracket]", 
            RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}]}], 
        "-", 
        RowBox[{"e2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"{", "}"}], "+", 
           RowBox[{"{", 
            RowBox[{"-", "1"}], "}"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", "e", "-", 
        RowBox[{"e1", " ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", "1", "}"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"#1", "\[GreaterEqual]", "i$11754607"}], "&"}]}], 
                "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i$11754607", ",", "1", ",", 
                RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
            "\[LeftDoubleBracket]", 
            RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}]}], 
        "+", 
        RowBox[{"e2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"{", "}"}], "+", 
           RowBox[{"{", 
            RowBox[{"-", "1"}], "}"}]}], ")"}]}]}], ")"}]}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", "m1"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"e1", " ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"Length", "[", 
            RowBox[{"Select", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"{", "1", "}"}], "}"}], ",", 
              RowBox[{
               RowBox[{"#1", "\[GreaterEqual]", "i$11754610"}], "&"}]}], 
             "]"}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"i$11754610", ",", "1", ",", 
             RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
         "\[LeftDoubleBracket]", 
         RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"e", "-", 
        RowBox[{"e1", " ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", "1", "}"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"#1", "\[GreaterEqual]", "i$11754611"}], "&"}]}], 
                "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i$11754611", ",", "1", ",", 
                RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
            "\[LeftDoubleBracket]", 
            RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}]}]}], 
       ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "a"}], "+", 
        RowBox[{"e1", " ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", "1", "}"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"#1", "\[GreaterEqual]", "i$11754612"}], "&"}]}], 
                "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i$11754612", ",", "1", ",", 
                RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
            "\[LeftDoubleBracket]", 
            RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}]}], 
        "-", 
        RowBox[{"e2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"{", "}"}], "+", 
           RowBox[{"{", 
            RowBox[{"-", "1"}], "}"}]}], ")"}]}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", "a"}], "+", "e", "-", 
        RowBox[{"e1", " ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"{", "1", "}"}], ">", "2"}], ",", "0", ",", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"Length", "[", 
               RowBox[{"Select", "[", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"{", "1", "}"}], "}"}], ",", 
                 RowBox[{
                  RowBox[{"#1", "\[GreaterEqual]", "i$11754613"}], "&"}]}], 
                "]"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"i$11754613", ",", "1", ",", 
                RowBox[{"{", "1", "}"}]}], "}"}]}], "]"}], 
            "\[LeftDoubleBracket]", 
            RowBox[{"{", "1", "}"}], "\[RightDoubleBracket]"}]}], "]"}]}], 
        "+", 
        RowBox[{"e2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"{", "}"}], "+", 
           RowBox[{"{", 
            RowBox[{"-", "1"}], "}"}]}], ")"}]}]}], ")"}]}], ")"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.832057309352051*^9, 3.832057337109578*^9}},
 CellLabel->
  "Out[9953]=",ExpressionUUID->"1f96277e-8713-4495-b5e5-f236df0fde58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"\[Xi]", "[", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"{", "}"}]}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{"e", "\[Rule]", 
     RowBox[{"e1", "+", "e2"}]}], "}"}]}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Xi]", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "1", "}"}]}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{"e", "\[Rule]", 
     RowBox[{"e1", "+", "e2"}]}], "}"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.832056703344529*^9, 3.832056711930517*^9}, {
  3.8320567788902273`*^9, 3.8320568175447607`*^9}},
 CellLabel->
  "In[9936]:=",ExpressionUUID->"a2ba566b-5710-4ead-a051-04a6674d55b8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", "a", " ", "e1", " ", "e2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "a"}], "+", "e1", "+", "e2"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.832056697021819*^9, 3.832056712283267*^9}, {
   3.8320567799808817`*^9, 3.832056845037011*^9}, 3.832056961537071*^9},
 CellLabel->
  "Out[9936]=",ExpressionUUID->"2893a92a-4682-46e4-84ad-9677ae2a6325"],

Cell[BoxData[
 RowBox[{"2", " ", "a", " ", "e1", " ", "e2", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "a"}], "+", "e1", "+", "e2"}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.832056697021819*^9, 3.832056712283267*^9}, {
   3.8320567799808817`*^9, 3.832056845037011*^9}, 3.832056961548357*^9},
 CellLabel->
  "Out[9937]=",ExpressionUUID->"cf97103d-c67a-4863-b360-323f525a1451"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[Eta]", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.832056247586817*^9, 3.83205629985962*^9}},
 CellLabel->
  "In[9833]:=",ExpressionUUID->"c72da6b1-6198-419e-bd37-281781d1a6f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"a", "+", "m1"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"a", "+", "e1", "+", "m1"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.832056262935775*^9, 3.832056300283263*^9}},
 CellLabel->
  "Out[9833]=",ExpressionUUID->"adc14a5a-ad41-4116-838c-4aeaf214772e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", 
  RowBox[{"Range", "[", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "1"}], "}"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8320556435259438`*^9, 3.832055645889777*^9}, {
  3.8320556866320066`*^9, 3.832055764671228*^9}, {3.83205586050599*^9, 
  3.832055864806242*^9}, {3.8320559195769243`*^9, 3.8320559289690533`*^9}},
 CellLabel->
  "In[9811]:=",ExpressionUUID->"6b073e0c-d5ab-4841-b51a-234000028e68"],

Cell[BoxData["3"], "Output",
 CellChangeTimes->{
  3.8320556463257713`*^9, {3.8320556874326344`*^9, 3.832055765069434*^9}, {
   3.832055862507072*^9, 3.832055865275037*^9}, {3.832055922167509*^9, 
   3.832055929328079*^9}},
 CellLabel->
  "Out[9811]=",ExpressionUUID->"be94ab97-6e59-4c30-8ba2-775635b0006a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Product", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Phi]", "[", 
     RowBox[{"a", ",", 
      RowBox[{"cell", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"cell", "[", 
       RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", "m1"}], ",", 
   RowBox[{"{", 
    RowBox[{"cell", ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"cellno", ",", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "1"}], "}"}], "]"}], "[", 
              RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"rowno", ",", "1", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"Range", "[", 
             RowBox[{"{", 
              RowBox[{"3", ",", "2", ",", "1"}], "}"}], "]"}], "]"}]}], 
          "}"}]}], "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.832056012622458*^9, 3.832056039308756*^9}, {
  3.832056160411746*^9, 3.832056171872581*^9}},
 CellLabel->
  "In[9826]:=",ExpressionUUID->"fe278d00-f18b-4278-9ac1-a450f0eff3d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"a", "+", "m1"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"a", "+", "e1", "+", "m1"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"a", "+", 
    RowBox[{"2", " ", "e1"}], "+", "m1"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"a", "+", "e2", "+", "m1"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"a", "+", "e1", "+", "e2", "+", "m1"}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"a", "+", 
    RowBox[{"2", " ", "e2"}], "+", "m1"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.832056015747476*^9, 3.832056039843555*^9}, 
   3.832056172783004*^9},
 CellLabel->
  "Out[9826]=",ExpressionUUID->"aefe272c-a321-4fe2-b37f-d7be27cb4355"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"cell", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"cell", "[", 
      RowBox[{"[", "2", "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"cell", ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"cellno", ",", 
             RowBox[{
              RowBox[{"Range", "[", 
               RowBox[{"{", 
                RowBox[{"3", ",", "2", ",", "1"}], "}"}], "]"}], "[", 
              RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"rowno", ",", "1", ",", 
           RowBox[{"Length", "[", 
            RowBox[{"Range", "[", 
             RowBox[{"{", 
              RowBox[{"3", ",", "2", ",", "1"}], "}"}], "]"}], "]"}]}], 
          "}"}]}], "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.832056052491988*^9, 3.832056153284211*^9}},
 CellLabel->
  "In[9825]:=",ExpressionUUID->"6e159cf9-43c5-41a2-b822-ea96e2046f42"],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "1"}],
  SequenceForm[1, 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.832056153698143*^9},
 CellLabel->
  "During evaluation of \
In[9825]:=",ExpressionUUID->"9f3d2c65-f3b6-4bcf-85fa-68df12c5a0f5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "2"}],
  SequenceForm[1, 2],
  Editable->False]], "Print",
 CellChangeTimes->{3.8320561537025957`*^9},
 CellLabel->
  "During evaluation of \
In[9825]:=",ExpressionUUID->"ff3c3267-54ef-413c-8a6d-ff3c6939a1b8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "\[InvisibleSpace]", "3"}],
  SequenceForm[1, 3],
  Editable->False]], "Print",
 CellChangeTimes->{3.8320561537093554`*^9},
 CellLabel->
  "During evaluation of \
In[9825]:=",ExpressionUUID->"4a6842fa-e570-4d52-935c-fd918dafc4d5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "1"}],
  SequenceForm[2, 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.83205615371486*^9},
 CellLabel->
  "During evaluation of \
In[9825]:=",ExpressionUUID->"2f184d39-7d25-4688-b62f-3b824ce39a67"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"2", "\[InvisibleSpace]", "2"}],
  SequenceForm[2, 2],
  Editable->False]], "Print",
 CellChangeTimes->{3.832056153719124*^9},
 CellLabel->
  "During evaluation of \
In[9825]:=",ExpressionUUID->"42ac3525-608c-4a04-acdb-908b5b1c012c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"3", "\[InvisibleSpace]", "1"}],
  SequenceForm[3, 1],
  Editable->False]], "Print",
 CellChangeTimes->{3.832056153723474*^9},
 CellLabel->
  "During evaluation of \
In[9825]:=",ExpressionUUID->"b67c35ba-a25d-4b1c-9db0-71ad39ab30fa"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null", ",", "Null"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.832056062125301*^9, 3.8320561537285233`*^9}},
 CellLabel->
  "Out[9825]=",ExpressionUUID->"4e86f25c-87cb-4ca2-bf4c-c94d01d2f5fc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Flatten", "[", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"cellno", ",", 
         RowBox[{
          RowBox[{"Range", "[", 
           RowBox[{"{", 
            RowBox[{"3", ",", "2", ",", "1"}], "}"}], "]"}], "[", 
          RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"rowno", ",", "1", ",", 
       RowBox[{"Length", "[", 
        RowBox[{"Range", "[", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "1"}], "}"}], "]"}], "]"}]}], "}"}]}], 
    "]"}], ",", "1"}], "]"}]], "Input",
 CellChangeTimes->{{3.832055583083414*^9, 3.832055615443694*^9}, {
  3.8320556576756573`*^9, 3.832055660902454*^9}, {3.832055791151992*^9, 
  3.8320558181451197`*^9}, {3.8320558771907*^9, 3.832055970047769*^9}, {
  3.832056004714138*^9, 3.8320560070264473`*^9}, {3.8320561313014917`*^9, 
  3.832056138243596*^9}},
 CellLabel->
  "In[9823]:=",ExpressionUUID->"0de5bd02-2b86-469f-aa07-c1c4b5ae169a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8320559704690332`*^9, 3.8320560074617567`*^9, 
  3.8320561386959667`*^9},
 CellLabel->
  "Out[9823]=",ExpressionUUID->"800c0be0-9fda-40b5-b815-d1f58c5aa509"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"DualPartition", "[", "Y", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"Y", ",", 
     RowBox[{"IntegerPartitions", "[", "3", "]"}]}], "}"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.8320551344399357`*^9, 3.8320551793329144`*^9}},
 CellLabel->
  "In[9740]:=",ExpressionUUID->"87b6a531-f44d-4171-8b18-67923d48f5e2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", "3", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.832055158635207*^9, 3.83205517978067*^9}},
 CellLabel->
  "Out[9740]=",ExpressionUUID->"514ad1c6-a910-4d71-a34f-047f1f4abd9e"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8320554693223057`*^9, 
  3.832055470226014*^9}},ExpressionUUID->"2c8a774c-19b5-4fa5-9d0a-\
155e479f4449"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"arm", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.832055201005974*^9, 3.832055231766808*^9}, {
  3.832055436804525*^9, 3.8320554943209953`*^9}},
 CellLabel->
  "In[9789]:=",ExpressionUUID->"86340205-9872-4de5-a3ef-512bc28306dd"],

Cell[BoxData[
 RowBox[{"-", "3"}]], "Output",
 CellChangeTimes->{{3.832055218805479*^9, 3.832055232137341*^9}, {
  3.8320554386918507`*^9, 3.832055494768515*^9}},
 CellLabel->
  "Out[9789]=",ExpressionUUID->"dde4b1cb-f807-42d3-a0ef-51bcdbc4d711"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.832055008441758*^9, 
  3.8320550090625362`*^9}},ExpressionUUID->"72808c98-188b-4056-8a03-\
62b6fc2e9ecd"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.832054438878154*^9, 3.832054499457746*^9}, {
  3.832055067143746*^9, 3.832055094310769*^9}, {3.8320552693211184`*^9, 
  3.832055303185732*^9}},ExpressionUUID->"ba3a1e2e-db7b-4deb-a616-\
f79432af5bb1"],

Cell[BoxData[
 RowBox[{"Information", "[", "Tableaux", "]"}]], "Input",
 NumberMarks->False,
 CellLabel->
  "In[9711]:=",ExpressionUUID->"884d9474-c3e4-41f8-b9e5-f01a72512386"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["a", "2"]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "4"]}]}], ")"}], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.832052916202256*^9, 3.832052997960176*^9}, 
   3.832053048813772*^9},
 CellLabel->
  "In[9695]:=",ExpressionUUID->"58b3c91e-5458-40fe-82fc-d5e1730df7a3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["T", "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}]}], ")"}], " ", 
     SuperscriptBox["T", "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Alpha]", "]"}], "3"],
    SeriesData[$CellContext`\[Alpha], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Alpha], 0, {
   Rational[-3, 4] (1 - 4 $CellContext`a^2)^(-2) $CellContext`T^2, 0, 
    Rational[1, 4] (1 - 4 $CellContext`a^2)^(-2) (1 - 3 $CellContext`a^2 + 
     8 $CellContext`a^4) $CellContext`T^2}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.8320529210563307`*^9, 3.832052998260798*^9}, 
   3.832053049141141*^9},
 CellLabel->
  "Out[9695]=",ExpressionUUID->"1a43313a-a70d-48d4-8776-4f3450dc05cf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{"(", 
       RowBox[{"a", "+", "m1"}], ")"}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{"(", 
       RowBox[{"a", "-", "m1"}], ")"}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "0"}]}], "}"}]}], "//", "Simplify", 
  " "}]], "Input",
 CellChangeTimes->{{3.832043970993042*^9, 3.832043973272624*^9}, {
  3.832044168963941*^9, 3.832044176894209*^9}},
 CellLabel->
  "In[9509]:=",ExpressionUUID->"6b092554-2cb9-459f-a1a1-8a1d7cbedb1f"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"2", " ", "a"}]]], "Output",
 CellChangeTimes->{
  3.832043974001492*^9, {3.832044170140912*^9, 3.8320441774012213`*^9}},
 CellLabel->
  "Out[9509]=",ExpressionUUID->"bfb3ba56-74c6-4ed0-ae0a-f8cc6f1764de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m4"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"e1", " ", "e2"}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m4"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "0"}], ",", 
     RowBox[{"m2", "\[Rule]", "M"}], ",", 
     RowBox[{"m3", "\[Rule]", 
      RowBox[{"M", "+", "a"}]}], ",", 
     RowBox[{"m4", "\[Rule]", 
      RowBox[{"-", "a"}]}]}], "}"}]}], "//", "Simplify", " "}]], "Input",
 CellChangeTimes->{{3.8320443441250057`*^9, 3.8320443871960506`*^9}, {
  3.832044551589851*^9, 3.832044596734335*^9}},
 CellLabel->
  "In[9541]:=",ExpressionUUID->"3aba4033-a0a1-4a9b-b0c0-c21b221a5f31"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "2"]}], " ", 
  RowBox[{"(", 
   RowBox[{"a", "-", "M"}], ")"}], " ", "M"}]], "Output",
 CellChangeTimes->{{3.8320443604356127`*^9, 3.8320443879060383`*^9}, {
  3.8320445520235853`*^9, 3.832044597356732*^9}},
 CellLabel->
  "Out[9541]=",ExpressionUUID->"43848a09-1296-4c96-a4aa-1698490d2459"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], "e1", " ", 
       SuperscriptBox["e2", "2"], 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m4"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m1", "+", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2", "+", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m3", "+", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m4", "+", "e2"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e", "+", "e2"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], "e1", " ", 
       SuperscriptBox["e2", "2"], 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m4"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m1", "-", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2", "-", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m3", "-", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m4", "-", "e2"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e", "-", "e2"}], ")"}]}]]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], 
       SuperscriptBox["e1", "2"], " ", "e2", 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m4"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m1", "+", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2", "+", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m3", "+", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m4", "+", "e1"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e", "+", "e1"}], ")"}]}]]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], 
       SuperscriptBox["e1", "2"], " ", "e2", 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "-", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m4"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m1", "-", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2", "-", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m3", "-", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m4", "-", "e1"}], ")"}]}], 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e", "-", "e1"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["e1", "2"], 
       SuperscriptBox["e2", "2"]}]], 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "+", "m4"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m3"}], ")"}], 
       RowBox[{"(", 
        RowBox[{"a", "-", "m4"}], ")"}]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", 
          SuperscriptBox["a", "2"]}], "-", 
         SuperscriptBox["e1", "2"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", 
          SuperscriptBox["a", "2"]}], "-", 
         SuperscriptBox["e2", "2"]}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "0"}], ",", 
     RowBox[{"m2", "\[Rule]", "M"}], ",", 
     RowBox[{"m3", "\[Rule]", 
      RowBox[{"M", "+", "a"}]}], ",", 
     RowBox[{"m4", "\[Rule]", 
      RowBox[{"-", "a"}]}]}], "}"}]}], "//", "Simplify", " "}]], "Input",
 CellChangeTimes->{{3.8320444190358553`*^9, 3.832044496905983*^9}, {
  3.832044589462845*^9, 3.832044604177025*^9}},
 CellLabel->
  "In[9542]:=",ExpressionUUID->"188b9ce2-eaf5-4e70-9df4-373b47519952"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"a", "-", "M"}], ")"}], " ", "M", " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"a", " ", "M"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["a", "3"], " ", "M"}], "+", 
     SuperscriptBox["M", "2"], "-", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"3", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["M", "2"]}]}], ")"}]}]}], ")"}]}], 
  RowBox[{
   RowBox[{"-", "4"}], "+", 
   RowBox[{"16", " ", 
    SuperscriptBox["a", "2"]}]}]]], "Output",
 CellChangeTimes->{
  3.832044497498671*^9, {3.832044591528089*^9, 3.832044604874887*^9}},
 CellLabel->
  "Out[9542]=",ExpressionUUID->"6325e202-60da-445b-a917-d87dcb2e3e01"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["a", "2"], "-", 
      SuperscriptBox["M", "2"]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"M", ",", "Infinity", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.83204453595636*^9},
 CellLabel->
  "In[9529]:=",ExpressionUUID->"959c5d39-4486-4843-84da-d61d04996b2e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     SuperscriptBox["M", "2"], "2"]}], "+", 
   FractionBox[
    SuperscriptBox["a", "2"], "2"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "M"], "]"}], "3"],
    SeriesData[$CellContext`M, 
     DirectedInfinity[1], {}, -2, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`M, 
   DirectedInfinity[1], {
    Rational[-1, 2], 0, Rational[1, 2] $CellContext`a^2}, -2, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.832044536385232*^9},
 CellLabel->
  "Out[9529]=",ExpressionUUID->"0314a87f-104b-4fe9-871d-b713b4906fc6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"8", " ", 
      SuperscriptBox["a", "8"]}], "-", 
     SuperscriptBox["M", "2"], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["M", "4"]}], "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["M", "6"]}], "+", 
     RowBox[{
      SuperscriptBox["a", "6"], " ", 
      RowBox[{"(", 
       RowBox[{"9", "-", 
        RowBox[{"16", " ", 
         SuperscriptBox["M", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["M", "2"]}], "-", 
        SuperscriptBox["M", "4"]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["a", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "6"}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox["M", "2"]}], "+", 
        RowBox[{"8", " ", 
         SuperscriptBox["M", "4"]}]}], ")"}]}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"M", ",", "Infinity", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.83204451115578*^9, 3.83204452094586*^9}},
 CellLabel->
  "In[9528]:=",ExpressionUUID->"aebfdbb6-4ef8-4a1d-8b1b-d677bbe9e4ba"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["M", "6"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]]}], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", "-", 
       SuperscriptBox["a", "2"], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}]}], ")"}], " ", 
     SuperscriptBox["M", "4"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["a", "2"]}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["a", "4"]}], "-", 
       RowBox[{"16", " ", 
        SuperscriptBox["a", "6"]}]}], ")"}], " ", 
     SuperscriptBox["M", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["a", "2"], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["a", "4"]}], "+", 
     RowBox[{"9", " ", 
      SuperscriptBox["a", "6"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["a", "8"]}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", 
      FractionBox["1", "M"], "]"}], "3"],
    SeriesData[$CellContext`M, 
     DirectedInfinity[1], {}, -6, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`M, 
   DirectedInfinity[1], {
   Rational[-3, 4] (1 - 4 $CellContext`a^2)^(-2), 0, 
    Rational[1, 4] (1 - 4 $CellContext`a^2)^(-2) (2 - $CellContext`a^2 + 
     8 $CellContext`a^4), 0, 
    Rational[1, 4] (1 - 4 $CellContext`a^2)^(-2) (-1 + 4 $CellContext`a^2 - 
     5 $CellContext`a^4 - 16 $CellContext`a^6), 0, 
    Rational[1, 4] (1 - 4 $CellContext`a^2)^(-2) ($CellContext`a^2 - 
     6 $CellContext`a^4 + 9 $CellContext`a^6 + 8 $CellContext`a^8)}, -6, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.832044521409766*^9},
 CellLabel->
  "Out[9528]=",ExpressionUUID->"9cb36ba3-fc41-4214-b9b7-3bce63e2bb82"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8320443784606457`*^9, 
  3.832044379539692*^9}},ExpressionUUID->"01ae6308-90ad-47b8-8e16-\
328df11155d6"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"t", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{"-", "1"}], 
         RowBox[{"e1", " ", "e2"}]], 
        FractionBox[
         RowBox[{"(", 
          RowBox[{"a", "+", "m1"}], ")"}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e"}], ")"}]}]]}], "+", 
       RowBox[{
        FractionBox[
         RowBox[{"-", "1"}], 
         RowBox[{"e1", " ", "e2"}]], 
        FractionBox[
         RowBox[{"(", 
          RowBox[{"a", "-", "m1"}], ")"}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e"}], ")"}]}]]}]}], ")"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"e1", "\[Rule]", "1"}], ",", 
      RowBox[{"e2", "\[Rule]", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"e", "\[Rule]", "0"}], ",", 
      RowBox[{"m1", "\[Rule]", 
       RowBox[{"m1", " ", 
        SuperscriptBox["\[Alpha]", "x"]}]}], ",", 
      RowBox[{"a", "\[Rule]", 
       RowBox[{"a", " ", 
        SuperscriptBox["\[Alpha]", "y"]}]}], ",", 
      RowBox[{"t", "\[Rule]", 
       RowBox[{"T", " ", 
        SuperscriptBox["\[Alpha]", "z"]}]}]}], "}"}]}], "//", "Simplify"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["t", "2"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "!"}], "e1", " ", 
          SuperscriptBox["e2", "2"], 
          RowBox[{"(", 
           RowBox[{"e1", "-", "e2"}], ")"}]}]], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "m1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"a", "+", "m1", "+", "e2"}], ")"}]}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e2"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e", "+", "e2"}], ")"}]}]]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "!"}], "e1", " ", 
          SuperscriptBox["e2", "2"], 
          RowBox[{"(", 
           RowBox[{"e1", "-", "e2"}], ")"}]}]], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "m1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"a", "-", "m1", "-", "e2"}], ")"}]}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e2"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e", "-", "e2"}], ")"}]}]]}], "-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "!"}], 
          SuperscriptBox["e1", "2"], " ", "e2", 
          RowBox[{"(", 
           RowBox[{"e1", "-", "e2"}], ")"}]}]], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "m1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"a", "+", "m1", "+", "e1"}], ")"}]}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "+", "e", "+", "e1"}], ")"}]}]]}], "-", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          RowBox[{"2", "!"}], 
          SuperscriptBox["e1", "2"], " ", "e2", 
          RowBox[{"(", 
           RowBox[{"e1", "-", "e2"}], ")"}]}]], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "-", "m1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"a", "-", "m1", "-", "e1"}], ")"}]}], 
         RowBox[{"2", "a", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e"}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "a"}], "-", "e", "-", "e1"}], ")"}]}]]}], "+", 
       RowBox[{
        FractionBox["1", 
         RowBox[{
          SuperscriptBox["e1", "2"], 
          SuperscriptBox["e2", "2"]}]], 
        FractionBox[
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", "m1"}], ")"}], 
          RowBox[{"(", 
           RowBox[{"a", "-", "m1"}], ")"}]}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["e1", "2"]}], ")"}], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"4", 
             SuperscriptBox["a", "2"]}], "-", 
            SuperscriptBox["e2", "2"]}], ")"}]}]]}]}], ")"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"e1", "\[Rule]", "1"}], ",", 
      RowBox[{"e2", "\[Rule]", 
       RowBox[{"-", "1"}]}], ",", 
      RowBox[{"e", "\[Rule]", "0"}], ",", 
      RowBox[{"m1", "\[Rule]", 
       RowBox[{"m1", " ", 
        SuperscriptBox["\[Alpha]", "x"]}]}], ",", 
      RowBox[{"a", "\[Rule]", 
       RowBox[{"a", " ", 
        SuperscriptBox["\[Alpha]", "y"]}]}], ",", 
      RowBox[{"t", "\[Rule]", 
       RowBox[{"T", " ", 
        SuperscriptBox["\[Alpha]", "z"]}]}]}], "}"}]}], "//", 
   "FullSimplify"}], "//", "Factor"}]}], "Input",
 CellChangeTimes->{{3.8318255583121777`*^9, 3.8318255702973757`*^9}, {
   3.8318256588896008`*^9, 3.831825698996489*^9}, {3.831825825096272*^9, 
   3.831825839680071*^9}, {3.831825877028304*^9, 3.831825967669087*^9}, 
   3.832043923238337*^9, {3.832044127830443*^9, 3.832044144007669*^9}, {
   3.832044202251987*^9, 3.83204424219699*^9}, {3.832045758650558*^9, 
   3.83204577155863*^9}, {3.832045863915277*^9, 3.8320459397143297`*^9}, {
   3.832046047823042*^9, 3.832046050355362*^9}, {3.832052004810841*^9, 
   3.832052072420079*^9}, {3.8320521376616096`*^9, 3.832052259057393*^9}, {
   3.832052419131174*^9, 3.83205245542302*^9}},
 CellLabel->
  "In[9649]:=",ExpressionUUID->"970cf833-49eb-43d2-a4dc-aac0132fe5bb"],

Cell[BoxData[
 FractionBox[
  RowBox[{"T", " ", 
   SuperscriptBox["\[Alpha]", 
    RowBox[{
     RowBox[{"-", "y"}], "+", "z"}]]}], 
  RowBox[{"2", " ", "a"}]]], "Output",
 CellChangeTimes->{{3.83182556740765*^9, 3.831825570652068*^9}, {
   3.831825659512045*^9, 3.83182569929943*^9}, {3.831825825583818*^9, 
   3.831825840212473*^9}, {3.831825877624835*^9, 3.8318259681079597`*^9}, 
   3.832043925283893*^9, {3.832044130146937*^9, 3.832044144481564*^9}, {
   3.832044205384481*^9, 3.832044242717204*^9}, {3.832045760065172*^9, 
   3.8320457721583643`*^9}, {3.832045884707059*^9, 3.832045940205415*^9}, 
   3.8320460510724487`*^9, {3.832052006208864*^9, 3.832052074802327*^9}, {
   3.8320521431406097`*^9, 3.8320522596232367`*^9}, {3.832052434947164*^9, 
   3.8320524558338842`*^9}},
 CellLabel->
  "Out[9649]=",ExpressionUUID->"8904ec0c-a4ea-44be-b882-8a0da0140ba0"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["T", "2"], " ", 
   SuperscriptBox["\[Alpha]", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "y"}], "+", 
     RowBox[{"2", " ", "z"}]}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["m1", "2"], " ", 
      SuperscriptBox["\[Alpha]", 
       RowBox[{"2", " ", "x"}]]}], "-", 
     RowBox[{"3", " ", 
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox["\[Alpha]", 
       RowBox[{"2", " ", "y"}]]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["a", "4"], " ", 
      SuperscriptBox["\[Alpha]", 
       RowBox[{"4", " ", "y"}]]}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "a", " ", 
       SuperscriptBox["\[Alpha]", "y"]}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "a", " ", 
       SuperscriptBox["\[Alpha]", "y"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.83182556740765*^9, 3.831825570652068*^9}, {
   3.831825659512045*^9, 3.83182569929943*^9}, {3.831825825583818*^9, 
   3.831825840212473*^9}, {3.831825877624835*^9, 3.8318259681079597`*^9}, 
   3.832043925283893*^9, {3.832044130146937*^9, 3.832044144481564*^9}, {
   3.832044205384481*^9, 3.832044242717204*^9}, {3.832045760065172*^9, 
   3.8320457721583643`*^9}, {3.832045884707059*^9, 3.832045940205415*^9}, 
   3.8320460510724487`*^9, {3.832052006208864*^9, 3.832052074802327*^9}, {
   3.8320521431406097`*^9, 3.8320522596232367`*^9}, {3.832052434947164*^9, 
   3.832052455883505*^9}},
 CellLabel->
  "Out[9650]=",ExpressionUUID->"44f54f4a-b112-4a4b-aea9-02ca1b65b39c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Flatten", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Series", "[", 
         RowBox[{
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["T", "2"], " ", 
             SuperscriptBox["\[Alpha]", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], " ", "y"}], "+", 
               RowBox[{"2", " ", "z"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["m1", "2"], " ", 
                SuperscriptBox["\[Alpha]", 
                 RowBox[{"2", " ", "x"}]]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["a", "2"], " ", 
                SuperscriptBox["\[Alpha]", 
                 RowBox[{"2", " ", "y"}]]}], "+", 
               RowBox[{"8", " ", 
                SuperscriptBox["a", "4"], " ", 
                SuperscriptBox["\[Alpha]", 
                 RowBox[{"4", " ", "y"}]]}]}], ")"}]}], 
            RowBox[{"4", " ", 
             SuperscriptBox["a", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"2", " ", "a", " ", 
                 SuperscriptBox["\[Alpha]", "y"]}]}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"2", " ", "a", " ", 
                 SuperscriptBox["\[Alpha]", "y"]}]}], ")"}], "2"]}]], "/.", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"z", "\[Rule]", "n1"}], ",", 
             RowBox[{"y", "\[Rule]", "n2"}], ",", 
             RowBox[{"x", "\[Rule]", "n3"}]}], "}"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Alpha]", ",", "0", ",", "1"}], "}"}]}], "]"}], "//", 
        "Normal"}], "//", "Together"}], "//", "Simplify"}], ",", 
     RowBox[{"{", 
      RowBox[{"n1", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n2", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n3", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "]"}], "//", 
  "DeleteDuplicates"}]], "Input",
 CellChangeTimes->{
  3.832045932637886*^9, 3.83205012117383*^9, {3.83205218509589*^9, 
   3.832052248326892*^9}, {3.832052473026249*^9, 3.832052578696978*^9}, {
   3.832052612750122*^9, 3.832052663516307*^9}, {3.832052709713359*^9, 
   3.8320527524160767`*^9}},
 CellLabel->
  "In[9669]:=",ExpressionUUID->"e83163c9-3751-4588-bcc8-baea12513d87"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    SuperscriptBox["T", "2"], 
    RowBox[{"8", " ", 
     SuperscriptBox["a", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"16", " ", 
        SuperscriptBox["a", "6"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["m1", "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["a", "4"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"128", " ", 
     SuperscriptBox["a", "8"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"64", " ", 
     SuperscriptBox["a", "6"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        SuperscriptBox["a", "2"]}], "+", 
       SuperscriptBox["\[Alpha]", "2"]}], ")"}]}], 
    RowBox[{"64", " ", 
     SuperscriptBox["a", "4"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"]}]}], ")"}], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "3"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "8"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"]}]}], ")"}], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "3"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "6"]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       SuperscriptBox["m1", "2"]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "6"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"80", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"256", " ", 
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["\[Alpha]", "6"]}], "+", 
          RowBox[{"1280", " ", 
           SuperscriptBox["a", "8"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}], "+", 
          RowBox[{"6144", " ", 
           SuperscriptBox["a", "10"], " ", 
           SuperscriptBox["\[Alpha]", "10"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "10"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "4"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"80", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"256", " ", 
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["\[Alpha]", "6"]}], "+", 
          RowBox[{"1280", " ", 
           SuperscriptBox["a", "8"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "8"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"80", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"256", " ", 
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "6"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "-", 
       RowBox[{"80", " ", 
        SuperscriptBox["a", "6"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}], "+", 
       RowBox[{"16", " ", 
        SuperscriptBox["a", "4"], " ", 
        SuperscriptBox["\[Alpha]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"3", " ", 
           SuperscriptBox["m1", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["m1", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "16"}], " ", 
        SuperscriptBox["a", "4"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "-", 
       RowBox[{"80", " ", 
        SuperscriptBox["a", "6"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["m1", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "8"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}], "+", 
          RowBox[{"256", " ", 
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["\[Alpha]", "12"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "12"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "6"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "10"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "4"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "8"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "-", 
       RowBox[{"3", " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["m1", "2"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}], "-", 
       RowBox[{"16", " ", 
        SuperscriptBox["a", "4"], " ", 
        SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "6"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "-", 
       RowBox[{"16", " ", 
        SuperscriptBox["a", "4"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["m1", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", "0", ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       SuperscriptBox["m1", "2"]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"64", " ", 
     SuperscriptBox["a", "6"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"]}]}], ")"}], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "3"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "6"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"]}]}], ")"}], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "3"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       SuperscriptBox["m1", "2"]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3"}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "2"]}]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "6"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"256", " ", 
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["\[Alpha]", "6"]}], "+", 
          RowBox[{"1280", " ", 
           SuperscriptBox["a", "8"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "8"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "4"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"256", " ", 
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "6"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "2"]}], " ", 
        SuperscriptBox["\[Alpha]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "-", 
       RowBox[{"16", " ", 
        SuperscriptBox["a", "4"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["m1", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "16"}], " ", 
       SuperscriptBox["a", "2"]}], "+", 
      FractionBox[
       SuperscriptBox["m1", "2"], 
       SuperscriptBox["a", "2"]], "-", 
      FractionBox["3", 
       SuperscriptBox["\[Alpha]", "2"]]}], ")"}]}], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "8"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "10"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "6"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "8"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "8"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "6"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       SuperscriptBox["m1", "2"]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"]}]}], ")"}], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "3"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["m1", "2"], "+", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "3"}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"]}]}], ")"}], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}], "+", 
       SuperscriptBox["m1", "2"]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3"}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "2"]}]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}], "+", 
          RowBox[{"48", " ", 
           SuperscriptBox["a", "4"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}], "+", 
          RowBox[{"256", " ", 
           SuperscriptBox["a", "6"], " ", 
           SuperscriptBox["\[Alpha]", "6"]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "6"]}]]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{"48", " ", 
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["m1", "2"]}], "+", 
      FractionBox[
       SuperscriptBox["m1", "2"], 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]], "+", 
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["m1", "2"]}], 
       SuperscriptBox["\[Alpha]", "2"]]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{
       SuperscriptBox["m1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"8", "+", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "2"]}]]}], ")"}]}]}], ")"}]}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], " ", 
        SuperscriptBox["a", "2"]}], "+", 
       SuperscriptBox["m1", "2"]}], ")"}], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"]}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["T", "2"]}], "4"]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{"48", " ", 
       SuperscriptBox["a", "2"], " ", 
       SuperscriptBox["m1", "2"]}], "+", 
      FractionBox[
       SuperscriptBox["m1", "2"], 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "8"]}]], "+", 
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["m1", "2"]}], 
       SuperscriptBox["\[Alpha]", "4"]]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      FractionBox[
       SuperscriptBox["m1", "2"], 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "6"]}]], "+", 
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["m1", "2"]}], 
       SuperscriptBox["\[Alpha]", "2"]]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{
       SuperscriptBox["m1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"8", "+", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           SuperscriptBox["\[Alpha]", "4"]}]]}], ")"}]}]}], ")"}]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      FractionBox[
       SuperscriptBox["m1", "2"], 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]]}], ")"}]}], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["m1", "2"], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["m1", "2"], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["m1", "2"], " ", 
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}], "+", 
       RowBox[{"48", " ", 
        SuperscriptBox["a", "4"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "4"]}]], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["m1", "2"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"8", "+", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "2"]}]]}], ")"}]}], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["m1", "2"], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["m1", "2"], " ", 
     SuperscriptBox["T", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "6"]}]], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    SuperscriptBox["m1", "2"], " ", 
    SuperscriptBox["T", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"8", "+", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["a", "2"], " ", 
        SuperscriptBox["\[Alpha]", "4"]}]]}], ")"}]}], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["m1", "2"], " ", 
     SuperscriptBox["T", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox["\[Alpha]", "2"]}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.832052192614759*^9, 3.832052248707657*^9}, {
   3.832052473411571*^9, 3.832052542914454*^9}, {3.832052614735989*^9, 
   3.8320526295455523`*^9}, 3.832052664797023*^9, {3.832052711310503*^9, 
   3.83205275349852*^9}},
 CellLabel->
  "Out[9669]=",ExpressionUUID->"1339edae-fdef-4e1b-a7eb-8aede4c32daf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"a", "^", "2"}], "\[Equal]", 
      RowBox[{"3", " ", 
       RowBox[{"\[CapitalLambda]", "^", "2"}]}]}], ",", 
     RowBox[{"\[Mu]", "\[Equal]", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], "/", "2"}], " ", "\[CapitalLambda]"}]}]}], "}"}], 
   ",", "\[CapitalLambda]"}], "]"}]], "Input",
 CellChangeTimes->{{3.831825958588223*^9, 3.8318259635712347`*^9}, {
  3.832045802516238*^9, 3.832045857048471*^9}},
 CellLabel->
  "In[9553]:=",ExpressionUUID->"b6a32ac8-94fa-42c4-8ec3-ca0792a4b5f3"],

Cell[BoxData[
 RowBox[{"{", "}"}]], "Output",
 CellChangeTimes->{
  3.831825963797222*^9, {3.832045829854418*^9, 3.832045857694127*^9}},
 CellLabel->
  "Out[9553]=",ExpressionUUID->"66dab7fe-9e4f-4728-b4cf-8b656d9a5e3e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   FractionBox[
    RowBox[{"1", "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3"}], "+", 
        RowBox[{"8", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "2"]}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}]], ",", 
   RowBox[{"{", 
    RowBox[{"\[Epsilon]", ",", "0", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.831825842724008*^9, 3.831825848266233*^9}},
 CellLabel->
  "In[7285]:=",ExpressionUUID->"fd865791-41ab-4379-a555-32198646135a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox["1", 
    RowBox[{"4", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}]], "+", 
   FractionBox[
    RowBox[{
     RowBox[{"-", "3"}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["a", "2"]}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, -2, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   Rational[1, 4] $CellContext`a^(-2) (1 - 4 $CellContext`a^2)^(-2), 0, 
    Rational[1, 4] (1 - 4 $CellContext`a^2)^(-2) (-3 + 
     8 $CellContext`a^2)}, -2, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.831825848629673*^9},
 CellLabel->
  "Out[7285]=",ExpressionUUID->"b70362d3-ee4f-4aa0-8c82-a60e5f8928f7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["a", "2"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["a", "4"]}], "+", 
     SuperscriptBox["\[Alpha]", "2"]}], "\[Equal]", 
    RowBox[{"3", " ", "4", " ", 
     SuperscriptBox["a", "2"]}]}], ",", "\[Alpha]"}], "]"}]], "Input",
 CellChangeTimes->{{3.831825702724786*^9, 3.8318257183819017`*^9}},
 CellLabel->
  "In[7281]:=",ExpressionUUID->"edb8b79d-e437-42f0-b169-cf363c11f427"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Alpha]", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        RowBox[{"15", " ", 
         SuperscriptBox["a", "2"]}], "-", 
        RowBox[{"8", " ", 
         SuperscriptBox["a", "4"]}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", "\[Rule]", 
     SqrtBox[
      RowBox[{
       RowBox[{"15", " ", 
        SuperscriptBox["a", "2"]}], "-", 
       RowBox[{"8", " ", 
        SuperscriptBox["a", "4"]}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.83182571870322*^9},
 CellLabel->
  "Out[7281]=",ExpressionUUID->"e52798b0-57e8-4efe-ab87-4ad79a148c5c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"2", "!"}], "e1", " ", 
      SuperscriptBox["e2", "2"], 
      RowBox[{"(", 
       RowBox[{"e1", "-", "e2"}], ")"}]}]], 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", "m1"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"a", "+", "m1", "+", "e2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"a", "+", "m2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{"a", "+", "m2", "+", "e2"}], ")"}]}], 
     RowBox[{"2", "a", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "a"}], "+", "e2"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "a"}], "+", "e"}], ")"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "a"}], "+", "e", "+", "e2"}], ")"}]}]]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "   ", "a"}], ",", 
     RowBox[{"m2", "\[Rule]", "  ", "a"}]}], "}"}]}], "//", "FullSimplify", 
  " "}]], "Input",
 CellChangeTimes->{{3.831824483759112*^9, 3.831824500697723*^9}},
 CellLabel->
  "In[7222]:=",ExpressionUUID->"5bcfb9e7-87fc-4e61-93f0-83756587de8e"],

Cell[BoxData[
 FractionBox["1", "4"]], "Output",
 CellChangeTimes->{{3.8318244870482197`*^9, 3.831824501057981*^9}},
 CellLabel->
  "Out[7222]=",ExpressionUUID->"470d64d8-c32e-488b-abf0-d3ef21977a00"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Alpha]", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["\[Alpha]", "2"], "+", 
        RowBox[{"8", " ", 
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "+", 
           SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]}], ")"}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"a", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["a", "3"]}]}], ")"}], "2"]}]], ")"}], "/", 
   FractionBox[
    RowBox[{"3", " "}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["a", "2"]}]}], ")"}], "2"]]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831824350344111*^9, 3.831824360293428*^9}, 
   3.8318249486223183`*^9},
 CellLabel->
  "In[7260]:=",ExpressionUUID->"7ff82d30-75f6-4db7-a548-1d18b46fc529"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Alpha]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["\[Alpha]", "2"], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", 
        SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]}], ")"}]}], 
  RowBox[{"12", " ", 
   SuperscriptBox["a", "2"]}]]], "Output",
 CellChangeTimes->{{3.831824358254109*^9, 3.831824360687392*^9}, 
   3.831824948982843*^9},
 CellLabel->
  "Out[7260]=",ExpressionUUID->"1dfdfde6-f7da-45d1-9976-c7b0ff63b3cd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["\[Alpha]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["\[Alpha]", "2"], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["a", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", 
            SuperscriptBox["\[Alpha]", "2"]}], ")"}]}]}], ")"}]}], 
      RowBox[{"12", " ", 
       SuperscriptBox["a", "2"]}]], "\[Equal]", "1"}], ",", "\[Alpha]"}], 
   "]"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.83182399825809*^9, 3.831824013747607*^9}, {
  3.8318241880764236`*^9, 3.8318242051728077`*^9}, {3.8318242363839493`*^9, 
  3.8318242453091908`*^9}, {3.8318249540434647`*^9, 3.831824955003577*^9}},
 CellLabel->
  "In[7261]:=",ExpressionUUID->"8486152c-c312-4b31-800d-ebfff397227d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Alpha]", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{"-", 
        FractionBox[
         RowBox[{"1", "-", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"]}], "+", 
          SqrtBox[
           RowBox[{"1", "+", 
            RowBox[{"16", " ", 
             SuperscriptBox["a", "2"]}], "+", 
            RowBox[{"640", " ", 
             SuperscriptBox["a", "4"]}]}]]}], 
         RowBox[{"2", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"]}]}]]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", "\[Rule]", 
     SqrtBox[
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "-", 
         RowBox[{"16", " ", 
          SuperscriptBox["a", "2"]}], "+", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"16", " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{"640", " ", 
            SuperscriptBox["a", "4"]}]}]]}], 
        RowBox[{"2", "+", 
         RowBox[{"16", " ", 
          SuperscriptBox["a", "2"]}]}]]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"16", " ", 
          SuperscriptBox["a", "2"]}], "+", 
         SqrtBox[
          RowBox[{"1", "+", 
           RowBox[{"16", " ", 
            SuperscriptBox["a", "2"]}], "+", 
           RowBox[{"640", " ", 
            SuperscriptBox["a", "4"]}]}]]}], 
        RowBox[{"2", "+", 
         RowBox[{"16", " ", 
          SuperscriptBox["a", "2"]}]}]]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Alpha]", "\[Rule]", 
     SqrtBox[
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["a", "2"]}], "+", 
        SqrtBox[
         RowBox[{"1", "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["a", "2"]}], "+", 
          RowBox[{"640", " ", 
           SuperscriptBox["a", "4"]}]}]]}], 
       RowBox[{"2", "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["a", "2"]}]}]]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.831824009040991*^9, 3.831824014084021*^9}, {
   3.831824188416444*^9, 3.83182420549599*^9}, {3.8318242380972157`*^9, 
   3.831824245674378*^9}, 3.83182495545818*^9},
 CellLabel->
  "Out[7261]=",ExpressionUUID->"d8c5c346-4705-49bf-9415-83cc504b03b6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.831823956723021*^9, 
  3.8318239578642387`*^9}},ExpressionUUID->"90e4fe27-b928-4758-9230-\
81b47e783c02"],

Cell[BoxData[
 FractionBox[
  RowBox[{"20", "-", 
   RowBox[{"7", " ", 
    SuperscriptBox["a", "2"]}], "+", 
   RowBox[{"72", " ", 
    SuperscriptBox["a", "4"]}]}], 
  RowBox[{"64", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.831823811413228*^9, 3.831823836620933*^9}, 
   3.8318238720640306`*^9, {3.831823942766837*^9, 3.8318239540990458`*^9}},
 CellLabel->
  "Out[7159]=",ExpressionUUID->"7ce08727-0881-4fec-aae4-ab862de0799e"]
}, Open  ]],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   SuperscriptBox["t", "2"], " ", 
   SuperscriptBox["\[Epsilon]", "3"]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]]], "Input",ExpressionU\
UID->"42081f4b-1eec-4433-a4f7-1f2e487bab40"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], "e1", " ", 
       SuperscriptBox["e2", "2"], 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox["1", 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e", "+", "e2"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], "e1", " ", 
       SuperscriptBox["e2", "2"], 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox["1", 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e2"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e", "-", "e2"}], ")"}]}]]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], 
       SuperscriptBox["e1", "2"], " ", "e2", 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox["1", 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "+", "e", "+", "e1"}], ")"}]}]]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "!"}], 
       SuperscriptBox["e1", "2"], " ", "e2", 
       RowBox[{"(", 
        RowBox[{"e1", "-", "e2"}], ")"}]}]], 
     FractionBox["1", 
      RowBox[{"2", "a", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e1"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e"}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "a"}], "-", "e", "-", "e1"}], ")"}]}]]}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["e1", "2"], 
       SuperscriptBox["e2", "2"]}]], 
     FractionBox["1", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", 
          SuperscriptBox["a", "2"]}], "-", 
         SuperscriptBox["e1", "2"]}], ")"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", 
          SuperscriptBox["a", "2"]}], "-", 
         SuperscriptBox["e2", "2"]}], ")"}]}]]}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"e1", "\[Rule]", "1"}], ",", 
     RowBox[{"e2", "\[Rule]", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"e", "\[Rule]", "0"}], ",", 
     RowBox[{"m1", "\[Rule]", "  ", "a"}], ",", 
     RowBox[{"m2", "\[Rule]", " ", "a"}]}], "}"}]}], "//", "FullSimplify", 
  " "}]], "Input",
 CellChangeTimes->{{3.831823854526585*^9, 3.831823861531197*^9}, {
  3.831824097579685*^9, 3.831824111202012*^9}},
 CellLabel->
  "In[7175]:=",ExpressionUUID->"331f8a7b-8242-458f-b6d0-b809e192d8fb"],

Cell[BoxData[
 FractionBox[
  RowBox[{"1", "+", 
   RowBox[{"8", " ", 
    SuperscriptBox["a", "2"]}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox["a", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["a", "2"]}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.831823862365878*^9, {3.831824099256053*^9, 3.831824111595723*^9}},
 CellLabel->
  "Out[7175]=",ExpressionUUID->"2b750a0b-c879-4fa7-a81d-c5132a69c619"]
}, Open  ]]
},
WindowSize->{1920, 1037},
WindowMargins->{{0, Automatic}, {Automatic, 18}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1296, 38, 86, "Input",ExpressionUUID->"90f3c452-edd4-4043-be0f-5fb102fcee55"],
Cell[1879, 62, 728, 21, 113, "Output",ExpressionUUID->"9b30ed27-18c2-4471-aeea-7269332c1751"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2644, 88, 1361, 38, 151, "Input",ExpressionUUID->"79b07212-6b75-4959-82b1-8d430da4693d"],
Cell[4008, 128, 1405, 39, 94, "Output",ExpressionUUID->"a844a35a-86a6-410a-99a6-e32dd2d615fb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5450, 172, 1048, 30, 98, "Input",ExpressionUUID->"784c52b3-b9af-4e28-863f-f44183edf34c"],
Cell[6501, 204, 1282, 36, 99, "Output",ExpressionUUID->"3636d864-9622-4d7f-be84-348b044bb127"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7820, 245, 962, 27, 98, "Input",ExpressionUUID->"3ba2f748-19d3-4305-9734-8f866664ca30"],
Cell[8785, 274, 969, 27, 105, "Output",ExpressionUUID->"c13baf8b-6df5-46cd-891a-5f3b0e95eaed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9791, 306, 420, 11, 101, "Input",ExpressionUUID->"4cef2b4e-91c4-4e0c-a60d-9a7b1b21d66b"],
Cell[10214, 319, 352, 10, 97, "Output",ExpressionUUID->"33328b14-51f3-4086-b4b7-bf3bf097999f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10603, 334, 2335, 67, 153, "Input",ExpressionUUID->"bbdd98bd-e64d-469a-b355-64b442e685c4"],
Cell[12941, 403, 1392, 38, 116, "Output",ExpressionUUID->"de5fb257-dee7-4269-b5f7-932578f4fe75"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14370, 446, 660, 20, 70, "Input",ExpressionUUID->"b62a2383-959f-44f7-bead-251c50ce590f"],
Cell[15033, 468, 517, 12, 86, "Output",ExpressionUUID->"fee9e799-a5d6-4aab-9191-e03ea252935f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15587, 485, 7875, 235, 467, "Input",ExpressionUUID->"841f65d3-d2d6-45fc-9146-145460593857"],
Cell[23465, 722, 316, 6, 76, "Output",ExpressionUUID->"78f7cdd7-deac-40c2-b4ab-5f1ea441e84a"],
Cell[23784, 730, 334, 7, 76, "Output",ExpressionUUID->"0498c4e7-8c81-4eea-b834-dbad2ae01d20"],
Cell[24121, 739, 358, 8, 76, "Output",ExpressionUUID->"111e3a10-98f4-433e-8a40-d29cc610462e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24516, 752, 8556, 247, 509, "Input",ExpressionUUID->"70da5dbc-cc82-4a26-878c-a05dd6cbba07"],
Cell[33075, 1001, 586, 9, 76, "Output",ExpressionUUID->"48458f72-5942-45f4-8bfc-7351fcb9ea5c"],
Cell[33664, 1012, 604, 10, 76, "Output",ExpressionUUID->"75c55526-6557-474e-b7b9-da7816796396"],
Cell[34271, 1024, 628, 11, 76, "Output",ExpressionUUID->"5eb8426f-60cd-4c49-b4e1-08af249cbb21"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34936, 1040, 431, 13, 77, "Input",ExpressionUUID->"72bfcf1d-cf24-40d1-b5e3-7f01f217fd8f"],
Cell[35370, 1055, 308, 9, 76, "Output",ExpressionUUID->"1ce7f7c9-7604-46fa-a1d6-d619916f2f6a"]
}, Open  ]],
Cell[35693, 1067, 424, 11, 47, InheritFromParent,ExpressionUUID->"e11fe62c-7779-4ce3-ac2c-32a019806a8b"],
Cell[CellGroupData[{
Cell[36142, 1082, 785, 22, 104, "Input",ExpressionUUID->"3234dba7-b2d4-42a9-9fb4-cee4e69382bb"],
Cell[36930, 1106, 780, 21, 76, "Output",ExpressionUUID->"bd8b7aec-fcff-489f-8261-2ab04498291b"]
}, Open  ]],
Cell[37725, 1130, 215, 4, 70, "Input",ExpressionUUID->"5916f8f1-ffa4-4dc8-9cf7-0c8b652b8c10"],
Cell[CellGroupData[{
Cell[37965, 1138, 3135, 85, 153, "Input",ExpressionUUID->"9e2eddf4-3809-4385-83ab-abb33a715863"],
Cell[41103, 1225, 405, 11, 80, "Output",ExpressionUUID->"84be0068-6d9e-4d6d-98ca-e3546480a525"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41545, 1241, 552, 17, 96, "Input",ExpressionUUID->"521f8b8c-5ace-4880-84a8-dfd570cf01b3"],
Cell[42100, 1260, 374, 11, 97, "Output",ExpressionUUID->"e0ea40b4-a296-4ae1-aa4e-29fb307fa1dc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42511, 1276, 2936, 84, 179, "Input",ExpressionUUID->"0d472f4a-981b-4f41-b58c-5363e31eda00"],
Cell[45450, 1362, 377, 7, 76, "Output",ExpressionUUID->"37991be1-5cd0-455a-bb97-dce21345a2d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45864, 1374, 2622, 75, 189, "Input",ExpressionUUID->"adb906ba-8d51-4eaa-b4c9-145dcca9cd3f"],
Cell[48489, 1451, 227, 5, 76, "Output",ExpressionUUID->"fe476826-1f8f-4eff-8aac-26f7c0c7fdc3"]
}, Open  ]],
Cell[48731, 1459, 152, 3, 47, "Input",ExpressionUUID->"06e39c15-cf8e-46e1-a2e6-ad1a125c45c4"],
Cell[CellGroupData[{
Cell[48908, 1466, 4199, 125, 261, "Input",ExpressionUUID->"effe0c18-e2fe-4157-a889-ea9261cc5951"],
Cell[53110, 1593, 640, 19, 117, "Output",ExpressionUUID->"4085ea17-28ec-45f7-853f-d65e397c32ef"]
}, Open  ]],
Cell[53765, 1615, 595, 18, 92, "Input",ExpressionUUID->"8d12314f-adbc-4651-86d6-5a704548be62"],
Cell[CellGroupData[{
Cell[54385, 1637, 587, 17, 107, "Input",ExpressionUUID->"725984c3-ab50-495b-8972-a938a71ee2f6"],
Cell[54975, 1656, 559, 17, 109, "Output",ExpressionUUID->"c1e8fa8d-07b6-4591-9230-af4b4bd0b9ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55571, 1678, 1396, 45, 100, "Input",ExpressionUUID->"155c0712-b963-4235-8d06-69eb7f7ec454"],
Cell[56970, 1725, 352, 6, 76, "Output",ExpressionUUID->"12715620-104b-4a2a-8b35-939f55ad71ad"]
}, Open  ]],
Cell[57337, 1734, 154, 3, 47, "Input",ExpressionUUID->"a3639fd6-b749-4734-a27f-e19c1a034fb6"],
Cell[CellGroupData[{
Cell[57516, 1741, 1215, 39, 100, "Input",ExpressionUUID->"18ca9473-8d48-485f-82e2-c726e217226a"],
Cell[58734, 1782, 245, 6, 97, "Output",ExpressionUUID->"afac1ff4-b865-4d23-b12e-19dad48d4719"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59016, 1793, 1184, 41, 100, "Input",ExpressionUUID->"c3235280-1283-42de-8037-7b002b36dc93"],
Cell[60203, 1836, 346, 10, 100, "Output",ExpressionUUID->"8b8f99b2-6075-43bc-94a1-cd07ad8d049a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[60586, 1851, 1355, 46, 100, "Input",ExpressionUUID->"304f0b40-b8e9-4f7d-b044-bd99175cad4e"],
Cell[61944, 1899, 295, 8, 102, "Output",ExpressionUUID->"e78eeca9-1543-469d-ae19-7a7d76b4a85c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[62276, 1912, 7073, 213, 309, "Input",ExpressionUUID->"8062a315-0def-4a1f-9ebe-9e14d355c551"],
Cell[69352, 2127, 548, 10, 97, "Output",ExpressionUUID->"808e119f-567e-4bdf-a404-e43ed167b156"],
Cell[69903, 2139, 1036, 28, 117, "Output",ExpressionUUID->"1f0b63bf-13ff-4a9f-8959-990ebfa607bb"]
}, Open  ]],
Cell[70954, 2170, 3812, 136, 225, "Input",ExpressionUUID->"73c03f8d-215f-4c8c-a3eb-ca0e03f635f3"],
Cell[74769, 2308, 207, 4, 70, "Input",ExpressionUUID->"042b2103-3162-426e-8c08-bd28806703d6"],
Cell[CellGroupData[{
Cell[75001, 2316, 798, 20, 70, "Input",ExpressionUUID->"97727ad5-3786-4b09-bf4a-8c575f533602"],
Cell[75802, 2338, 2113, 71, 174, "Output",ExpressionUUID->"1afeb52e-baea-4b8f-b5b7-304ee94bb0de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77952, 2414, 872, 23, 70, "Input",ExpressionUUID->"a49cd613-ece2-4f6c-b50b-ccf3ca9bb992"],
Cell[78827, 2439, 1448, 47, 76, "Output",ExpressionUUID->"a9ce8340-904b-45c6-9f23-c4181e8c65f6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80312, 2491, 220, 4, 70, "Input",ExpressionUUID->"ebafd213-52d1-4ca0-9009-0e891e47b497"],
Cell[80535, 2497, 341, 10, 76, "Output",ExpressionUUID->"8a9609c5-8a9d-43a8-a1ba-fce55220b3a2"]
}, Open  ]],
Cell[80891, 2510, 12341, 355, 785, "Input",ExpressionUUID->"f933eeec-9695-4867-9418-f370f32200a3"],
Cell[93235, 2867, 154, 3, 47, "Input",ExpressionUUID->"5c96fc00-c84e-421e-818a-acb6a2c08dc4"],
Cell[93392, 2872, 1808, 54, 148, "Input",ExpressionUUID->"43302ad8-d651-497b-94ed-3a97ccb31c48"],
Cell[95203, 2928, 154, 3, 47, "Input",ExpressionUUID->"c19a80d4-5463-45d6-aa71-b638a130d199"],
Cell[CellGroupData[{
Cell[95382, 2935, 840, 23, 70, "Input",ExpressionUUID->"83fa5e45-1516-45ce-bf00-2e234fc094d6"],
Cell[96225, 2960, 1637, 54, 111, "Output",ExpressionUUID->"2c97d7cd-e0e6-43dc-80ec-152ed105db97"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97899, 3019, 2095, 59, 171, "Input",ExpressionUUID->"93367e0f-e8f1-4ab5-9d92-745a77457615"],
Cell[99997, 3080, 1088, 31, 101, "Output",ExpressionUUID->"3fa53142-3da4-4d50-b25f-98c1e1d9cc14"]
}, Open  ]],
Cell[101100, 3114, 326, 9, 47, "Input",ExpressionUUID->"f97ad202-d817-4227-aa86-ff0ad6f90de8"],
Cell[CellGroupData[{
Cell[101451, 3127, 3052, 83, 243, "Input",ExpressionUUID->"683b250d-d0d7-4166-a209-e472353ea5b7"],
Cell[104506, 3212, 1313, 38, 117, "Output",ExpressionUUID->"4c4829df-a581-472f-8e72-38a4e26fba62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105856, 3255, 1778, 54, 115, "Input",ExpressionUUID->"14bc4b41-6b6b-4f33-89bb-937eec0beedd"],
Cell[107637, 3311, 248, 6, 100, "Output",ExpressionUUID->"9129e72f-07f3-4545-98db-0081aea03be1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107922, 3322, 2495, 72, 115, "Input",ExpressionUUID->"e7cc9da5-dafc-427d-9d14-dc980d5f20b8"],
Cell[110420, 3396, 199, 5, 100, "Output",ExpressionUUID->"b17591ef-3896-4226-9f0b-7a84f01fa4fa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[110656, 3406, 635, 16, 70, "Input",ExpressionUUID->"7c594fe3-6659-41c7-9903-793d026dee8c"],
Cell[111294, 3424, 1499, 43, 88, "Output",ExpressionUUID->"246eaef3-4ceb-484e-ab71-4789c0dd6f5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112830, 3472, 1002, 31, 96, "Input",ExpressionUUID->"00d850b1-5211-4a99-9935-3f3c8f404ad3"],
Cell[113835, 3505, 870, 26, 99, "Output",ExpressionUUID->"b33567fd-49c5-4427-a5e5-2b9ba01da4ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[114742, 3536, 907, 28, 96, "Input",ExpressionUUID->"571fe87b-a52e-4f29-a55d-e8e67b8fe71b"],
Cell[115652, 3566, 746, 22, 132, "Output",ExpressionUUID->"3b5664a4-5f7b-4108-87d7-e0e43d70dd0d"]
}, Open  ]],
Cell[116413, 3591, 154, 3, 47, "Input",ExpressionUUID->"8cdbbf32-78c7-4365-a4f6-1acefd4807d6"],
Cell[CellGroupData[{
Cell[116592, 3598, 2281, 65, 171, "Input",ExpressionUUID->"dca14ff5-c6ef-46fb-a4be-0801380da415"],
Cell[118876, 3665, 8291, 241, 303, "Output",ExpressionUUID->"135787db-dac2-4f69-9938-c74797b2f991"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127204, 3911, 9609, 255, 381, "Input",ExpressionUUID->"96988989-5727-45d2-a798-128af2a1040f"],
Cell[136816, 4168, 671, 20, 117, "Output",ExpressionUUID->"a6e65686-5d74-495d-b694-847c44604ce2"]
}, Open  ]],
Cell[137502, 4191, 520, 16, 92, "Input",ExpressionUUID->"c3ea56da-7acc-480c-b7a8-e9e51df3c767"],
Cell[CellGroupData[{
Cell[138047, 4211, 2564, 72, 210, "Input",ExpressionUUID->"0902c0bc-8a97-43fe-804f-05d0665bbe42"],
Cell[140614, 4285, 1073, 32, 101, "Output",ExpressionUUID->"820d7a5d-af4f-4d80-8d19-783b3af798f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[141724, 4322, 2269, 65, 210, "Input",ExpressionUUID->"211638ce-8f12-4b22-a0d4-92f988bacc82"],
Cell[143996, 4389, 1044, 31, 101, "Output",ExpressionUUID->"974f01f4-0192-4916-a5a0-3e2a1d86dcb5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[145077, 4425, 2582, 73, 210, "Input",ExpressionUUID->"93a04d8f-16f6-4a53-bc44-1171aa4a5d0a"],
Cell[147662, 4500, 4546, 141, 351, "Output",ExpressionUUID->"2fb19056-1c34-44d5-b106-9eea51bc68ad"]
}, Open  ]],
Cell[152223, 4644, 152, 3, 47, "Input",ExpressionUUID->"6613b98f-d378-4f80-93c8-18a5ce4fbe3b"],
Cell[CellGroupData[{
Cell[152400, 4651, 2635, 74, 210, "Input",ExpressionUUID->"d8272597-9b4d-4d4d-94e4-ecb002ac47ef"],
Cell[155038, 4727, 4573, 141, 318, "Output",ExpressionUUID->"9bce6e5b-4b51-4e83-8634-f2a54b611721"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159648, 4873, 2581, 73, 210, "Input",ExpressionUUID->"46670421-3328-40a8-8c8e-a3dad7ff1fa3"],
Cell[162232, 4948, 4549, 141, 318, "Output",ExpressionUUID->"4d03401d-2128-40c2-bcca-d18185ea3461"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166818, 5094, 2690, 76, 242, "Input",ExpressionUUID->"70eb42d0-d682-4b09-81e8-f2a5b77689de"],
Cell[169511, 5172, 890, 28, 117, "Output",ExpressionUUID->"88d43f6b-6d39-4578-9e6c-740af18c05b5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[170438, 5205, 2431, 69, 210, "Input",ExpressionUUID->"2c14adb8-2511-4dee-8152-485ed600c9df"],
Cell[172872, 5276, 482, 16, 117, "Output",ExpressionUUID->"e0674237-a733-4deb-a1ca-e1d5f168519e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173391, 5297, 1680, 48, 171, "Input",ExpressionUUID->"aaf0b8b0-7dc2-4ff4-b8c2-fd7e9bd77284"],
Cell[175074, 5347, 372, 8, 100, "Output",ExpressionUUID->"20bf71b4-2c88-4b11-b22c-4d9fe76688c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175483, 5360, 1532, 45, 112, "Input",ExpressionUUID->"39e15ae5-6d5f-4d3b-9c4e-e20c61d3b5b0"],
Cell[177018, 5407, 202, 4, 97, "Output",ExpressionUUID->"0a4dda31-9454-475b-b597-947dd60192e3"]
}, Open  ]],
Cell[177235, 5414, 499, 15, 89, "Input",ExpressionUUID->"61406400-6ba6-4de0-9878-8ad3e0a2c90b"],
Cell[CellGroupData[{
Cell[177759, 5433, 222, 4, 70, "Input",ExpressionUUID->"671578ed-0cf4-4471-bf0d-adc44624fea3"],
Cell[177984, 5439, 365, 10, 76, "Output",ExpressionUUID->"625cae93-4eac-4776-91aa-83cc26087aa3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[178386, 5454, 1226, 35, 105, "Input",ExpressionUUID->"8e19aae7-2d6d-468d-90ea-cb77c4e72b8f"],
Cell[CellGroupData[{
Cell[179637, 5493, 388, 11, 37, "Print",ExpressionUUID->"80d31112-634c-465e-9138-6a66ba44892e"],
Cell[180028, 5506, 353, 10, 37, "Print",ExpressionUUID->"d7e85348-dd87-4aa6-919f-d7821b6248e4"],
Cell[180384, 5518, 387, 11, 37, "Print",ExpressionUUID->"5a5ac1dc-7918-4939-ad62-a72b411a248c"]
}, Open  ]],
Cell[180786, 5532, 242, 5, 76, "Output",ExpressionUUID->"0709f51c-5381-4a01-bf7a-98498cc5d9a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181065, 5542, 1298, 38, 101, "Input",ExpressionUUID->"2c7eb4f5-e56f-44ad-bca9-5d27c700bbd2"],
Cell[182366, 5582, 8224, 231, 346, "Output",ExpressionUUID->"1f96277e-8713-4495-b5e5-f236df0fde58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[190627, 5818, 747, 23, 105, "Input",ExpressionUUID->"a2ba566b-5710-4ead-a051-04a6674d55b8"],
Cell[191377, 5843, 408, 9, 76, "Output",ExpressionUUID->"2893a92a-4682-46e4-84ad-9677ae2a6325"],
Cell[191788, 5854, 415, 10, 76, "Output",ExpressionUUID->"cf97103d-c67a-4863-b360-323f525a1451"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192240, 5869, 304, 8, 70, "Input",ExpressionUUID->"c72da6b1-6198-419e-bd37-281781d1a6f2"],
Cell[192547, 5879, 307, 8, 76, "Output",ExpressionUUID->"adc14a5a-ad41-4116-838c-4aeaf214772e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192891, 5892, 451, 9, 70, "Input",ExpressionUUID->"6b073e0c-d5ab-4841-b51a-234000028e68"],
Cell[193345, 5903, 307, 6, 76, "Output",ExpressionUUID->"be94ab97-6e59-4c30-8ba2-775635b0006a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193689, 5914, 1359, 37, 105, "Input",ExpressionUUID->"fe278d00-f18b-4278-9ac1-a450f0eff3d2"],
Cell[195051, 5953, 670, 19, 76, "Output",ExpressionUUID->"aefe272c-a321-4fe2-b37f-d7be27cb4355"]
}, Open  ]],
Cell[CellGroupData[{
Cell[195758, 5977, 1266, 35, 105, "Input",ExpressionUUID->"6e159cf9-43c5-41a2-b822-ea96e2046f42"],
Cell[CellGroupData[{
Cell[197049, 6016, 277, 8, 37, "Print",ExpressionUUID->"9f3d2c65-f3b6-4bcf-85fa-68df12c5a0f5"],
Cell[197329, 6026, 279, 8, 37, "Print",ExpressionUUID->"ff3c3267-54ef-413c-8a6d-ff3c6939a1b8"],
Cell[197611, 6036, 279, 8, 37, "Print",ExpressionUUID->"4a6842fa-e570-4d52-935c-fd918dafc4d5"],
Cell[197893, 6046, 276, 8, 37, "Print",ExpressionUUID->"2f184d39-7d25-4688-b62f-3b824ce39a67"],
Cell[198172, 6056, 277, 8, 37, "Print",ExpressionUUID->"42ac3525-608c-4a04-acdb-908b5b1c012c"],
Cell[198452, 6066, 277, 8, 37, "Print",ExpressionUUID->"b67c35ba-a25d-4b1c-9db0-71ad39ab30fa"]
}, Open  ]],
Cell[198744, 6077, 289, 7, 76, "Output",ExpressionUUID->"4e86f25c-87cb-4ca2-bf4c-c94d01d2f5fc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199070, 6089, 1138, 29, 70, "Input",ExpressionUUID->"0de5bd02-2b86-469f-aa07-c1c4b5ae169a"],
Cell[200211, 6120, 586, 18, 76, "Output",ExpressionUUID->"800c0be0-9fda-40b5-b815-d1f58c5aa509"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200834, 6143, 374, 10, 70, "Input",ExpressionUUID->"87b6a531-f44d-4171-8b18-67923d48f5e2"],
Cell[201211, 6155, 364, 10, 76, "Output",ExpressionUUID->"514ad1c6-a910-4d71-a34f-047f1f4abd9e"]
}, Open  ]],
Cell[201590, 6168, 154, 3, 47, "Input",ExpressionUUID->"2c8a774c-19b5-4fa5-9d0a-155e479f4449"],
Cell[CellGroupData[{
Cell[201769, 6175, 378, 10, 70, "Input",ExpressionUUID->"86340205-9872-4de5-a3ef-512bc28306dd"],
Cell[202150, 6187, 246, 5, 76, "Output",ExpressionUUID->"dde4b1cb-f807-42d3-a0ef-51bcdbc4d711"]
}, Open  ]],
Cell[202411, 6195, 154, 3, 47, "Input",ExpressionUUID->"72808c98-188b-4056-8a03-62b6fc2e9ecd"],
Cell[202568, 6200, 249, 4, 47, "Input",ExpressionUUID->"ba3a1e2e-db7b-4deb-a616-f79432af5bb1"],
Cell[202820, 6206, 176, 4, 70, "Input",ExpressionUUID->"884d9474-c3e4-41f8-b9e5-f01a72512386"],
Cell[CellGroupData[{
Cell[203021, 6214, 903, 28, 115, "Input",ExpressionUUID->"58b3c91e-5458-40fe-82fc-d5e1730df7a3"],
Cell[203927, 6244, 1417, 42, 117, "Output",ExpressionUUID->"1a43313a-a70d-48d4-8776-4f3450dc05cf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205381, 6291, 1112, 37, 100, "Input",ExpressionUUID->"6b092554-2cb9-459f-a1a1-8a1d7cbedb1f"],
Cell[206496, 6330, 248, 6, 97, "Output",ExpressionUUID->"bfb3ba56-74c6-4ed0-ae0a-f8cc6f1764de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[206781, 6341, 1707, 55, 137, "Input",ExpressionUUID->"3aba4033-a0a1-4a9b-b0c0-c21b221a5f31"],
Cell[208491, 6398, 352, 9, 97, "Output",ExpressionUUID->"43848a09-1296-4c96-a4aa-1698490d2459"]
}, Open  ]],
Cell[CellGroupData[{
Cell[208880, 6412, 6033, 193, 426, "Input",ExpressionUUID->"188b9ce2-eaf5-4e70-9df4-373b47519952"],
Cell[214916, 6607, 763, 24, 107, "Output",ExpressionUUID->"6325e202-60da-445b-a917-d87dcb2e3e01"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215716, 6636, 427, 13, 96, "Input",ExpressionUUID->"959c5d39-4486-4843-84da-d61d04996b2e"],
Cell[216146, 6651, 668, 21, 104, "Output",ExpressionUUID->"0314a87f-104b-4fe9-871d-b713b4906fc6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[216851, 6677, 1391, 44, 115, "Input",ExpressionUUID->"aebfdbb6-4ef8-4a1d-8b1b-d677bbe9e4ba"],
Cell[218245, 6723, 2534, 79, 117, "Output",ExpressionUUID->"9cb36ba3-fc41-4214-b9b7-3bce63e2bb82"]
}, Open  ]],
Cell[220794, 6805, 154, 3, 47, "Input",ExpressionUUID->"01ae6308-90ad-47b8-8e16-328df11155d6"],
Cell[CellGroupData[{
Cell[220973, 6812, 6423, 192, 304, "Input",ExpressionUUID->"970cf833-49eb-43d2-a4dc-aac0132fe5bb"],
Cell[227399, 7006, 868, 17, 99, "Output",ExpressionUUID->"8904ec0c-a4ea-44be-b882-8a0da0140ba0"],
Cell[228270, 7025, 1750, 46, 116, "Output",ExpressionUUID->"44f54f4a-b112-4a4b-aea9-02ca1b65b39c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230057, 7076, 2657, 70, 166, "Input",ExpressionUUID->"e83163c9-3751-4588-bcc8-baea12513d87"],
Cell[232717, 7148, 33544, 1057, 1193, "Output",ExpressionUUID->"1339edae-fdef-4e1b-a7eb-8aede4c32daf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266298, 8210, 611, 17, 70, "Input",ExpressionUUID->"b6a32ac8-94fa-42c4-8ec3-ca0792a4b5f3"],
Cell[266912, 8229, 220, 5, 76, "Output",ExpressionUUID->"66dab7fe-9e4f-4728-b4cf-8b656d9a5e3e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267169, 8239, 837, 25, 115, "Input",ExpressionUUID->"fd865791-41ab-4379-a555-32198646135a"],
Cell[268009, 8266, 1166, 35, 115, "Output",ExpressionUUID->"b70362d3-ee4f-4aa0-8c82-a60e5f8928f7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269212, 8306, 532, 15, 74, "Input",ExpressionUUID->"edb8b79d-e437-42f0-b169-cf363c11f427"],
Cell[269747, 8323, 667, 22, 96, "Output",ExpressionUUID->"e52798b0-57e8-4efe-ab87-4ad79a148c5c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270451, 8350, 1298, 41, 102, "Input",ExpressionUUID->"5bcfb9e7-87fc-4e61-93f0-83756587de8e"],
Cell[271752, 8393, 200, 4, 97, "Output",ExpressionUUID->"470d64d8-c32e-488b-abf0-d3ef21977a00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[271989, 8402, 1021, 33, 115, "Input",ExpressionUUID->"7ff82d30-75f6-4db7-a548-1d18b46fc529"],
Cell[273013, 8437, 601, 18, 107, "Output",ExpressionUUID->"1dfdfde6-f7da-45d1-9976-c7b0ff63b3cd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273651, 8460, 912, 24, 106, "Input",ExpressionUUID->"8486152c-c312-4b31-800d-ebfff397227d"],
Cell[274566, 8486, 2471, 77, 239, "Output",ExpressionUUID->"d8c5c346-4705-49bf-9415-83cc504b03b6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[277074, 8568, 154, 3, 47, "Input",ExpressionUUID->"90e4fe27-b928-4758-9230-81b47e783c02"],
Cell[277231, 8573, 565, 16, 115, "Output",ExpressionUUID->"7ce08727-0881-4fec-aae4-ab862de0799e"]
}, Open  ]],
Cell[277811, 8592, 331, 10, 89, "Input",ExpressionUUID->"42081f4b-1eec-4433-a4f7-1f2e487bab40"],
Cell[CellGroupData[{
Cell[278167, 8606, 3158, 105, 216, "Input",ExpressionUUID->"331f8a7b-8242-458f-b6d0-b809e192d8fb"],
Cell[281328, 8713, 486, 15, 115, "Output",ExpressionUUID->"2b750a0b-c879-4fa7-a81d-c5132a69c619"]
}, Open  ]]
}
]
*)