BC2.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[    484849,      13243]
NotebookOptionsPosition[    474893,      13090]
NotebookOutlinePosition[    475228,      13105]
CellTagsIndexPosition[    475185,      13102]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Normalization", " ", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BCRootLattice", "=", 
   RowBox[{"Normalization", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", ",", "b"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", 
          RowBox[{"Range", "[", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", 
          RowBox[{"Range", "[", 
           RowBox[{
            RowBox[{"-", "2"}], ",", "2"}], "]"}]}], "}"}]}], "]"}], ",", 
      "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BCShortRoots", " ", "=", " ", 
   RowBox[{"Normalization", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], ".", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}]}], "\[Equal]", "1"}], ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", "b"}], "}"}], ",", "Nothing"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", 
          RowBox[{"Range", "[", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", 
          RowBox[{"Range", "[", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], ",", 
      "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"BCMediumRoots", " ", "=", " ", 
   RowBox[{"Normalization", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}], ".", 
            RowBox[{"{", 
             RowBox[{"a", ",", "b"}], "}"}]}], "\[Equal]", "2"}], ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", "b"}], "}"}], ",", "Nothing"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", 
          RowBox[{"Range", "[", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", 
          RowBox[{"Range", "[", 
           RowBox[{
            RowBox[{"-", "1"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], ",", 
      "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BCLongRoots", " ", "=", " ", 
    RowBox[{"Normalization", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}], ".", 
             RowBox[{"{", 
              RowBox[{"a", ",", "b"}], "}"}]}], "\[Equal]", "4"}], ",", 
           RowBox[{"{", 
            RowBox[{"a", ",", "b"}], "}"}], ",", "Nothing"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", 
           RowBox[{"Range", "[", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "2", ",", "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"b", ",", 
           RowBox[{"Range", "[", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "2", ",", "2"}], "]"}]}], "}"}]}], 
        "]"}], ",", "1"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"E6Halfs", " ", "=", " ", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"a", " ", "b", " ", "c", " ", "d", " ", "e", " ", 
              RowBox[{"f", "^", "3"}]}], "\[Equal]", "1"}], ")"}], ",", 
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"{", 
             RowBox[{
             "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "f", ",", "f", 
              ",", "f"}], "}"}]}], ",", "Nothing"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", 
           RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"b", ",", 
           RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"c", ",", 
           RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"d", ",", 
           RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"e", ",", 
           RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"f", ",", 
           RowBox[{"-", "1"}], ",", "1", ",", "2"}], "}"}]}], "]"}], ",", 
       "5"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"E6D5s", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"a", "^", "2"}], "+", 
              RowBox[{"b", "^", "2"}], "+", 
              RowBox[{"c", "^", "2"}], "+", 
              RowBox[{"d", "^", "2"}], "+", 
              RowBox[{"e", "^", "2"}]}], "\[Equal]", "2"}], ")"}], ",", 
           RowBox[{"{", 
            RowBox[{
            "a", ",", "b", ",", "c", ",", "d", ",", "e", ",", "0", ",", "0", 
             ",", "0"}], "}"}], ",", "Nothing"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"b", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"c", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"d", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"e", ",", 
           RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ",", "4"}], 
      "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]", ":=", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zero", ":=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"E6pRoots", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"V", ".", "root"}], ">", "0"}], ",", "root", ",", 
         "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"root", ",", "E6Roots"}], "}"}]}], "]"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["\[CapitalZHacek]", "1"], "[", 
      RowBox[{
      "\[Sigma]1_", ",", "\[Sigma]2_", ",", "\[Sigma]3_", ",", "\[Sigma]4_", 
       ",", "\[Sigma]5_", ",", "\[Sigma]6_", ",", "\[Sigma]7_"}], "]"}], "=", 
     
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                "\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3", ",", 
                 "\[Sigma]4", ",", "\[Sigma]5", ",", "\[Sigma]6", ",", 
                 "\[Sigma]7", ",", "\[Sigma]7"}], "}"}], ".", "a"}], ")"}], 
             "^", "2"}], 
            RowBox[{"Product", "[", 
             RowBox[{
              RowBox[{"If", "[", " ", 
               RowBox[{
                RowBox[{
                 RowBox[{"b", ".", "a"}], "\[Equal]", "1"}], ",", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{
                  "\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3", ",", 
                   "\[Sigma]4", ",", "\[Sigma]5", ",", "\[Sigma]6", ",", 
                   "\[Sigma]7", ",", "\[Sigma]7"}], "}"}], ".", "b"}], ",", 
                "1"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"b", ",", "E7Roots"}], "}"}]}], "]"}]}], ")"}]}], 
         ")"}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "E7Roots"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[CapitalZHacek]", "1"], "[", 
      RowBox[{"{", 
       RowBox[{
       "v1_", ",", "v2_", ",", "v3_", ",", "v4_", ",", "v5_", ",", "v6_", ",",
         "v7_", ",", "v7_"}], "}"}], "]"}], ":=", 
     RowBox[{
      SubscriptBox["\[CapitalZHacek]", "1"], "[", 
      RowBox[{
      "v1", ",", "v2", ",", "v3", ",", "v4", ",", "v5", ",", "v6", ",", 
       "v7"}], "]"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "[", 
   RowBox[{"v1_", ",", "v2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "1"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", ".", "\[Sigma]"}], ")"}], "//", "Refine"}], ",", 
          "1"}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "2"}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", ".", "\[Sigma]"}], ")"}], "^", "2"}]}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"a", ".", "\[Sigma]"}]}], ")"}], "^", "2"}]}], ",", 
          "1"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "BCShortRoots"}], "}"}]}], "]"}], ")"}]}], "//", 
   "Cancel"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "[", 
   RowBox[{"{", 
    RowBox[{"v1_", ",", "v2_"}], "}"}], "]"}], ":=", 
  RowBox[{"F", "[", 
   RowBox[{"v1", ",", "v2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"$Assumptions", "=", 
     RowBox[{
      RowBox[{
      "\[Sigma]1", ">", "\[Sigma]2", ">", "\[Sigma]3", ">", "\[Sigma]4", ">", 
       "\[Sigma]5"}], "&&", 
      RowBox[{"\[Sigma]4", ">", 
       RowBox[{"-", "\[Sigma]5"}]}], "&&", 
      RowBox[{
       RowBox[{
       "\[Sigma]1", "+", "\[Sigma]2", "+", "\[Sigma]3", "+", "\[Sigma]4", "+",
         "\[Sigma]5", "+", 
        RowBox[{"3", "\[Sigma]6"}]}], "<", "0"}], "&&", 
      RowBox[{
       RowBox[{
       "\[Sigma]1", "+", "\[Sigma]2", "+", "\[Sigma]3", "+", "\[Sigma]4", "-",
         "\[Sigma]5", "-", 
        RowBox[{"3", "\[Sigma]6"}]}], "<", "2"}]}]}], ";"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.821762855510894*^9, 3.821762878152831*^9}, {
   3.821762973213134*^9, 3.821762982451921*^9}, {3.821766987532297*^9, 
   3.82176698962426*^9}, {3.821767029356928*^9, 3.821767031491247*^9}, {
   3.82219846482542*^9, 3.8221984683248158`*^9}, {3.8310177370163727`*^9, 
   3.831017741717989*^9}, {3.831537494750643*^9, 3.831537757812571*^9}, {
   3.831537825463869*^9, 3.831537828670875*^9}, 3.831537897873629*^9, {
   3.831622217347897*^9, 3.831622269332649*^9}, {3.831622742478236*^9, 
   3.831622743224691*^9}},
 CellLabel->
  "In[3802]:=",ExpressionUUID->"c099823d-ad90-4c12-9c28-ff5b271eb6e8"],

Cell[CellGroupData[{

Cell[BoxData["BCRootLattice"], "Input",
 CellChangeTimes->{{3.83153776217498*^9, 3.831537771648984*^9}, {
  3.831537889725613*^9, 3.83153789340924*^9}},
 CellLabel->
  "In[3811]:=",ExpressionUUID->"a5007b72-6d89-46e0-ab39-1aa8282664d2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"-", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.831537764299684*^9, 3.8315377719042397`*^9}, {
   3.831537890037938*^9, 3.83153790129176*^9}, 3.8316222769114656`*^9, 
   3.8316227461545773`*^9},
 CellLabel->
  "Out[3811]=",ExpressionUUID->"60e769b7-c943-42ad-b46c-d7e8834a8305"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"root", " ", "=", 
   RowBox[{"{", 
    RowBox[{
     SqrtBox["2"], ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", " ", 
            RowBox[{"2", " ", 
             RowBox[{"1", "/", "2"}]}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "//", "Length"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", "n"}]}], ",", 
         
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS1table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RHS1Itable", "=", 
    RowBox[{"Permutations", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS2table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831537797258627*^9, 3.8315378750496492`*^9}, {
  3.831538622785643*^9, 3.831538630269491*^9}, {3.831538730685463*^9, 
  3.831538746613681*^9}, {3.831538980128793*^9, 3.8315392026631413`*^9}, {
  3.831539328065442*^9, 3.831539328839958*^9}, {3.8315401782448797`*^9, 
  3.831540203108924*^9}, {3.8315404280742397`*^9, 3.831540435632167*^9}, {
  3.831622285093555*^9, 3.83162229080383*^9}},
 CellLabel->
  "In[3571]:=",ExpressionUUID->"ee76a751-1ea9-4d9c-a381-e1fa48c73524"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315378772440166`*^9, 3.831537902102789*^9}, {
   3.831538623264552*^9, 3.831538630749167*^9}, 3.83153867866008*^9, 
   3.831538746994864*^9, 3.8315393230032187`*^9, 3.8315401595156183`*^9, 
   3.831540204792265*^9, 3.83154032875985*^9, 3.831540521109516*^9, {
   3.83162228638505*^9, 3.831622291328822*^9}},
 CellLabel->
  "Out[3575]=",ExpressionUUID->"299081d4-dd83-48b5-abfe-01d5a35d1892"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315378772440166`*^9, 3.831537902102789*^9}, {
   3.831538623264552*^9, 3.831538630749167*^9}, 3.83153867866008*^9, 
   3.831538746994864*^9, 3.8315393230032187`*^9, 3.8315401595156183`*^9, 
   3.831540204792265*^9, 3.83154032875985*^9, 3.831540521109516*^9, {
   3.83162228638505*^9, 3.831622291331626*^9}},
 CellLabel->
  "Out[3578]=",ExpressionUUID->"31de9d96-367f-4200-8282-7b7bf8b656c8"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315378772440166`*^9, 3.831537902102789*^9}, {
   3.831538623264552*^9, 3.831538630749167*^9}, 3.83153867866008*^9, 
   3.831538746994864*^9, 3.8315393230032187`*^9, 3.8315401595156183`*^9, 
   3.831540204792265*^9, 3.83154032875985*^9, 3.831540521109516*^9, {
   3.83162228638505*^9, 3.831622291334638*^9}},
 CellLabel->
  "Out[3581]=",ExpressionUUID->"a61125da-7ddf-4e84-9241-b49996b41732"],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{{3.8315378772440166`*^9, 3.831537902102789*^9}, {
   3.831538623264552*^9, 3.831538630749167*^9}, 3.83153867866008*^9, 
   3.831538746994864*^9, 3.8315393230032187`*^9, 3.8315401595156183`*^9, 
   3.831540204792265*^9, 3.83154032875985*^9, 3.831540521109516*^9, {
   3.83162228638505*^9, 3.831622291376071*^9}},
 CellLabel->
  "Out[3583]=",ExpressionUUID->"5f2cdca4-b87a-40d1-ac59-4c9f2d3bf7ce"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315378772440166`*^9, 3.831537902102789*^9}, {
   3.831538623264552*^9, 3.831538630749167*^9}, 3.83153867866008*^9, 
   3.831538746994864*^9, 3.8315393230032187`*^9, 3.8315401595156183`*^9, 
   3.831540204792265*^9, 3.83154032875985*^9, 3.831540521109516*^9, {
   3.83162228638505*^9, 3.831622291378831*^9}},
 CellLabel->
  "Out[3586]=",ExpressionUUID->"425b88eb-2b33-497d-87a3-54b80e4ae0ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]], "Input",
 CellChangeTimes->{{3.831537917579677*^9, 3.831537924351976*^9}, {
   3.8315379760996513`*^9, 3.831537981145999*^9}, {3.8315392464862127`*^9, 
   3.831539258922825*^9}, {3.83153944020936*^9, 3.831539494745367*^9}, 
   3.831540157449087*^9, {3.831540216882237*^9, 3.8315402211264772`*^9}, {
   3.8315402570130987`*^9, 3.8315403051606503`*^9}, {3.831540580003118*^9, 
   3.831540593205515*^9}},
 CellLabel->
  "In[1009]:=",ExpressionUUID->"c3fa0d8f-b54c-4d15-a685-00094fcafe85"],

Cell[BoxData[
 RowBox[{
  FractionBox["3", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
  SuperscriptBox["\[Sigma]2", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
  RowBox[{"f", "[", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
  SuperscriptBox[
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
  RowBox[{"f", "[", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
  RowBox[{"f", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}], "]"}]}]], "Output",
 CellChangeTimes->{3.8315405938828087`*^9},
 CellLabel->
  "Out[1009]=",ExpressionUUID->"2342b784-9a77-4236-849e-58b20f8ba7fe"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]], "Input",
 CellChangeTimes->{{3.831537930914233*^9, 3.831537933521495*^9}, 
   3.831537964169537*^9, {3.831537994254841*^9, 3.831537998330007*^9}, 
   3.83154034810723*^9, {3.831540387394415*^9, 3.831540399235632*^9}},
 CellLabel->
  "In[1007]:=",ExpressionUUID->"a71b59c9-90e7-4778-9465-484a4fdefa53"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
  SuperscriptBox[
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "]"}], "5"], " ", 
  RowBox[{"f", "[", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.8315379347753687`*^9, 3.831537964689975*^9}, 
   3.8315379987652597`*^9, {3.8315405312394648`*^9, 3.8315405329542503`*^9}},
 CellLabel->
  "Out[1007]=",ExpressionUUID->"19678ec1-2794-4071-a7ed-74eebbd69e73"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"LHS1", "/", "RHS1"}], "//", "Cancel"}]], "Input",
 CellChangeTimes->{{3.8315406217591887`*^9, 3.8315406327473793`*^9}, 
   3.8315408248138943`*^9},
 CellLabel->
  "In[1105]:=",ExpressionUUID->"94a10f25-7039-4369-a647-18921b16377f"],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}]}], 
  SuperscriptBox[
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"]]], "Output",
 CellChangeTimes->{{3.831540627954342*^9, 3.831540633222886*^9}, 
   3.831540825233583*^9},
 CellLabel->
  "Out[1105]=",ExpressionUUID->"e11de68a-b857-4ab6-a025-3ece031a295f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"root", " ", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", " ", 
            RowBox[{"2", " ", 
             RowBox[{"1", "/", "2"}]}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "//", "Length"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", "n"}]}], ",", 
         
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS1table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RHS1Itable", "=", 
    RowBox[{"Permutations", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS2table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8315406502975607`*^9, 3.831540652677958*^9}, {
  3.8315407154181013`*^9, 3.831540742385076*^9}},
 CellLabel->
  "In[1649]:=",ExpressionUUID->"bae62f24-3aec-4997-85be-3ad796647582"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.83154065081137*^9, 3.831540653111264*^9}, {
   3.831540726474462*^9, 3.831540742846266*^9}, 3.831541544556851*^9},
 CellLabel->
  "Out[1653]=",ExpressionUUID->"a8ec3620-8f47-445d-8b70-6b4225660466"],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{{3.83154065081137*^9, 3.831540653111264*^9}, {
   3.831540726474462*^9, 3.831540742846266*^9}, 3.831541544593876*^9},
 CellLabel->
  "Out[1656]=",ExpressionUUID->"25781e1a-b7dd-4db1-b382-c29a296e2e68"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.83154065081137*^9, 3.831540653111264*^9}, {
   3.831540726474462*^9, 3.831540742846266*^9}, 3.8315415445965014`*^9},
 CellLabel->
  "Out[1659]=",ExpressionUUID->"ee509c4d-9f5f-42c5-b834-b63a6884c45f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.83154065081137*^9, 3.831540653111264*^9}, {
   3.831540726474462*^9, 3.831540742846266*^9}, 3.8315415446325283`*^9},
 CellLabel->
  "Out[1661]=",ExpressionUUID->"c157c588-6689-4ea7-896f-a68a24dacef9"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.83154065081137*^9, 3.831540653111264*^9}, {
   3.831540726474462*^9, 3.831540742846266*^9}, 3.831541544635211*^9},
 CellLabel->
  "Out[1664]=",ExpressionUUID->"4a2c8aa4-271c-46c1-88cb-a915adb98371"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LHS2", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]], "Input",
 CellChangeTimes->{{3.831540748982852*^9, 3.8315407626886168`*^9}, {
  3.831541546190866*^9, 3.831541547399083*^9}},
 CellLabel->
  "In[1666]:=",ExpressionUUID->"56212efa-674b-453b-9db5-6ad2a964c678"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "1"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "1"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.831540763121544*^9, 3.8315415479788523`*^9},
 CellLabel->
  "Out[1666]=",ExpressionUUID->"fdc9dabc-c0f9-440d-8ad3-6d86e4f61e5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RHS2", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]], "Input",
 CellChangeTimes->{{3.83154066671741*^9, 3.831540672701145*^9}},
 CellLabel->
  "In[1046]:=",ExpressionUUID->"5e7f9bd0-8f88-4c07-b573-b99ba0effd9a"],

Cell[BoxData[
 RowBox[{"2", " ", 
  SuperscriptBox[
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "]"}], "6"], " ", 
  RowBox[{
   SubscriptBox["Z", "1"], "[", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]], "Output",
 CellChangeTimes->{3.8315406731221113`*^9},
 CellLabel->
  "Out[1046]=",ExpressionUUID->"b19056a6-0ca1-4ec9-aa26-7614caad81ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"LHS2", "/", "RHS2"}], "//", "Cancel"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831540778895721*^9, 3.8315408109326677`*^9}},
 CellLabel->
  "In[1104]:=",ExpressionUUID->"3ce1629e-b873-4b29-bbb3-dedde4c70984"],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Sigma]2", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}], "4"], " ", 
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}], "]"}]}]}], ")"}]}], 
  RowBox[{"16", " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.8315407824713097`*^9, 3.8315408112596493`*^9}},
 CellLabel->
  "Out[1104]=",ExpressionUUID->"fe2be43a-69b5-4c85-974b-35f4801b98aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"root", " ", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", " ", 
            RowBox[{"2", "/", "2"}]}]}]}], " ", ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LHS4Itable", "=", 
    RowBox[{"Permutations", "[", 
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", "n"}]}], ",", 
         
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS1table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RHS1Itable", "=", 
    RowBox[{"Permutations", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS2table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831540849664184*^9, 3.831540852651763*^9}, {
   3.8315414267508297`*^9, 3.831541446770646*^9}, 3.831541478588406*^9, {
   3.831541508593955*^9, 3.831541517085775*^9}, {3.831541558161956*^9, 
   3.8315415582928753`*^9}, {3.831541603759687*^9, 3.831541611285644*^9}, {
   3.831612098395266*^9, 3.831612150905036*^9}, {3.831612234509327*^9, 
   3.83161223473061*^9}, {3.8316223429346333`*^9, 3.831622426466825*^9}, {
   3.83162276292516*^9, 3.831622808016261*^9}},
 CellLabel->
  "In[3914]:=",ExpressionUUID->"7262d4e6-4940-4500-a484-730ab98c8a47"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, {3.8316223437094812`*^9, 3.831622350966708*^9}, {
   3.831622381062488*^9, 3.831622427120914*^9}, {3.831622763460863*^9, 
   3.8316228085572453`*^9}},
 CellLabel->
  "Out[3918]=",ExpressionUUID->"50aa8082-be79-497c-a4b9-3a4efbf6f9a2"],

Cell[BoxData["360"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, {3.8316223437094812`*^9, 3.831622350966708*^9}, {
   3.831622381062488*^9, 3.831622427120914*^9}, {3.831622763460863*^9, 
   3.831622808617834*^9}},
 CellLabel->
  "Out[3921]=",ExpressionUUID->"5f472624-eb25-4207-a668-599e9dd5d0ef"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, {3.8316223437094812`*^9, 3.831622350966708*^9}, {
   3.831622381062488*^9, 3.831622427120914*^9}, {3.831622763460863*^9, 
   3.8316228086213713`*^9}},
 CellLabel->
  "Out[3924]=",ExpressionUUID->"e3c21f5b-1e06-474f-9497-b8139e412a06"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, {3.8316223437094812`*^9, 3.831622350966708*^9}, {
   3.831622381062488*^9, 3.831622427120914*^9}, {3.831622763460863*^9, 
   3.8316228086801033`*^9}},
 CellLabel->
  "Out[3927]=",ExpressionUUID->"e238d3dc-9828-48e2-a7c8-fa3a1f0fbae1"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, {3.8316223437094812`*^9, 3.831622350966708*^9}, {
   3.831622381062488*^9, 3.831622427120914*^9}, {3.831622763460863*^9, 
   3.83162280871591*^9}},
 CellLabel->
  "Out[3930]=",ExpressionUUID->"d7886240-fb95-424d-a5d5-75903b16fa58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"LHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"LHS2", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"LHS3", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS3table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS3Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"LHS4", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS3table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS4Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"RHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"RHS2", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]}], "Input",
 CellChangeTimes->{{3.831540878077045*^9, 3.831540889252677*^9}, {
  3.8315414542259407`*^9, 3.831541460912953*^9}, {3.8315414969849*^9, 
  3.831541527949873*^9}, {3.831541575859049*^9, 3.831541592121381*^9}},
 CellLabel->
  "In[3932]:=",ExpressionUUID->"350bf01a-cb79-4463-bfbc-a80919d77207"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.831622304624703*^9, {
   3.831622345868349*^9, 3.8316223529129467`*^9}, {3.831622382966618*^9, 
   3.83162242913978*^9}, {3.831622784730991*^9, 3.8316228104090157`*^9}},
 CellLabel->
  "Out[3932]=",ExpressionUUID->"7e3aa634-2e12-4cb5-8036-28608a3176c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "1"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "1"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.831622304624703*^9, {
   3.831622345868349*^9, 3.8316223529129467`*^9}, {3.831622382966618*^9, 
   3.83162242913978*^9}, {3.831622784730991*^9, 3.8316228104638357`*^9}},
 CellLabel->
  "Out[3933]=",ExpressionUUID->"becdb94f-d84c-4cd2-ba5d-6c7705ff5bf1"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.831622304624703*^9, {
   3.831622345868349*^9, 3.8316223529129467`*^9}, {3.831622382966618*^9, 
   3.83162242913978*^9}, {3.831622784730991*^9, 3.831622810512332*^9}},
 CellLabel->
  "Out[3934]=",ExpressionUUID->"630620b3-5c66-4728-846a-ea1d424416b6"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.831622304624703*^9, {
   3.831622345868349*^9, 3.8316223529129467`*^9}, {3.831622382966618*^9, 
   3.83162242913978*^9}, {3.831622784730991*^9, 3.831622810516304*^9}},
 CellLabel->
  "Out[3935]=",ExpressionUUID->"13f06381-f734-4fe2-841a-3ace19605f5f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.831622304624703*^9, {
   3.831622345868349*^9, 3.8316223529129467`*^9}, {3.831622382966618*^9, 
   3.83162242913978*^9}, {3.831622784730991*^9, 3.831622810520352*^9}},
 CellLabel->
  "Out[3936]=",ExpressionUUID->"b17c7cc1-6c11-45c1-a4a8-00c08c4ddad6"],

Cell[BoxData[
 RowBox[{"2", " ", 
  SuperscriptBox[
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "]"}], "6"], " ", 
  RowBox[{
   SubscriptBox["Z", "1"], "[", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.831622304624703*^9, {
   3.831622345868349*^9, 3.8316223529129467`*^9}, {3.831622382966618*^9, 
   3.83162242913978*^9}, {3.831622784730991*^9, 3.831622810524088*^9}},
 CellLabel->
  "Out[3937]=",ExpressionUUID->"435c09bd-c6e1-4074-92d6-f8b6f63d73ab"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"n", "=", 
   RowBox[{
    RowBox[{"1", "/", "2"}], " ", "tells", " ", 
    RowBox[{"us", ":", " ", "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["Z", "1"], "==", 
      RowBox[{"0", "\[IndentingNewLine]", 
       FractionBox["1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}], "5"], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "==", 
      RowBox[{
       FractionBox["3", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       SuperscriptBox["\[Sigma]2", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], "]"}]}]}]}]}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.831612161441021*^9, 
  3.831612228893705*^9}},ExpressionUUID->"e192d1bf-696b-4e9c-a45d-\
4604b1dc9eba"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"root", " ", "=", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"2", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "//", "Length"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"LHS2table", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
             "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
             "\[Equal]", "root"}], "&&", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "/", "2"}], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"m1", ".", "m1"}], "+", 
                RowBox[{"m2", ".", "m2"}], "+", 
                RowBox[{"m3", ".", "m3"}], "+", " ", 
                RowBox[{"m4", ".", "m4"}], "+", " ", 
                RowBox[{"m5", ".", "m5"}], "+", " ", 
                RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
             RowBox[{"1", "+", "n", "-", 
              RowBox[{"1", "/", "2"}]}]}]}], ",", 
           RowBox[{"Permutations", "[", 
            RowBox[{"{", 
             RowBox[{
             "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
             "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m4", ",", 
           RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m5", ",", 
           RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m6", ",", 
           RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"LHS2Itable", "=", 
     RowBox[{"Permutations", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}],
       "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"LHS2table", "//", "Length"}]}], "*)"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", " ", 
            RowBox[{"2", " ", 
             RowBox[{"1", "/", "2"}]}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", "n"}]}], ",", 
         
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS1table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RHS1Itable", "=", 
    RowBox[{"Permutations", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"RHS2table", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
             "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
             "\[Equal]", "root"}], "&&", 
            RowBox[{
             RowBox[{
              RowBox[{"1", "/", "2"}], 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"m1", ".", "m1"}], "+", 
                RowBox[{"m2", ".", "m2"}], "+", 
                RowBox[{"m3", ".", "m3"}], "+", " ", 
                RowBox[{"m4", ".", "m4"}], "+", " ", 
                RowBox[{"m5", ".", "m5"}], "+", " ", 
                RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
             RowBox[{"n", "-", 
              RowBox[{"1", "/", "2"}]}]}]}], ",", 
           RowBox[{"Permutations", "[", 
            RowBox[{"{", 
             RowBox[{
             "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
             "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m3", ",", 
           RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m4", ",", 
           RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m5", ",", 
           RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"m6", ",", 
           RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"RHS2table", "//", 
      RowBox[{"Length", "\[IndentingNewLine]", "RHS2Itable"}]}], "=", 
     RowBox[{"Permutations", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}],
       "]"}]}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.831540849664184*^9, 3.831540852651763*^9}, {
   3.8315414267508297`*^9, 3.831541446770646*^9}, 3.831541478588406*^9, {
   3.831541508593955*^9, 3.831541517085775*^9}, {3.831541558161956*^9, 
   3.8315415582928753`*^9}, {3.831541603759687*^9, 3.831541611285644*^9}, {
   3.831612098395266*^9, 3.831612150905036*^9}, {3.831612234509327*^9, 
   3.83161223473061*^9}, {3.831612272142185*^9, 3.831612324113462*^9}, {
   3.831612359732882*^9, 3.83161239595492*^9}, {3.831612439267373*^9, 
   3.831612465557144*^9}, {3.831621856698798*^9, 3.8316219491188993`*^9}, {
   3.831622067845305*^9, 3.8316220756708517`*^9}},
 CellLabel->
  "In[3523]:=",ExpressionUUID->"10fd3cef-6b91-4f58-83d4-4f890f99d8fe"],

Cell[BoxData["21960"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, 3.831612324789526*^9, {3.8316123604258947`*^9, 
   3.831612396630546*^9}, {3.831612441581354*^9, 3.8316124680160713`*^9}, {
   3.831621861606077*^9, 3.831621950898073*^9}, {3.831622069648961*^9, 
   3.831622077439912*^9}},
 CellLabel->
  "Out[3527]=",ExpressionUUID->"89ed9d84-500b-4cbb-b0a1-ce2890d213b6"],

Cell[BoxData["120"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, 3.831612324789526*^9, {3.8316123604258947`*^9, 
   3.831612396630546*^9}, {3.831612441581354*^9, 3.8316124680160713`*^9}, {
   3.831621861606077*^9, 3.831621950898073*^9}, {3.831622069648961*^9, 
   3.831622077443231*^9}},
 CellLabel->
  "Out[3530]=",ExpressionUUID->"5eaaa3a6-620d-4847-b518-c657d2421514"],

Cell[BoxData["720"], "Output",
 CellChangeTimes->{{3.831540850305591*^9, 3.831540853143373*^9}, {
   3.831541420208433*^9, 3.831541447163423*^9}, 3.831541479200837*^9, {
   3.831541517606543*^9, 3.831541558625111*^9}, {3.83154160434483*^9, 
   3.8315416116786413`*^9}, {3.831612100610297*^9, 3.831612151732355*^9}, 
   3.831612235606923*^9, 3.831612324789526*^9, {3.8316123604258947`*^9, 
   3.831612396630546*^9}, {3.831612441581354*^9, 3.8316124680160713`*^9}, {
   3.831621861606077*^9, 3.831621950898073*^9}, {3.831622069648961*^9, 
   3.8316220788098288`*^9}},
 CellLabel->
  "Out[3532]=",ExpressionUUID->"443e3a7c-36e0-441b-ab9a-b9466816e84d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"LHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"LHS3", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS3table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS3Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"RHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]}], "Input",
 CellChangeTimes->{{3.831540878077045*^9, 3.831540889252677*^9}, {
  3.8315414542259407`*^9, 3.831541460912953*^9}, {3.8315414969849*^9, 
  3.831541527949873*^9}, {3.831541575859049*^9, 3.831541592121381*^9}, {
  3.831612312739011*^9, 3.831612329037397*^9}, {3.83161248426171*^9, 
  3.8316124846736917`*^9}},
 CellLabel->
  "In[3534]:=",ExpressionUUID->"f181a38f-a470-41e8-833b-6aef11401b38"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["9", "4"]}], " ", 
   SuperscriptBox["\[Sigma]2", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], "2"]}], "+", 
  RowBox[{
   FractionBox["3", "32"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}], "-", 
      RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"4", " ", "\[Sigma]1"}], "-", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "32"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}], "-", 
      RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"4", " ", "\[Sigma]1"}], "-", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
   " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{"384", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "32"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  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"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "32"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "6"], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]1", "10"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", "\[Sigma]2"}], "-", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"9", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"80", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"208", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"12", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"192", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "6"], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]1", "10"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", "\[Sigma]2"}], "-", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"9", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"80", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"208", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"12", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"192", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[Sigma]1", "4"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "-", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "10"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     SuperscriptBox["\[Sigma]2", "4"], "+", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[Sigma]1", "4"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "-", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "10"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     SuperscriptBox["\[Sigma]2", "4"], "+", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[Sigma]1", "4"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "-", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "10"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     SuperscriptBox["\[Sigma]2", "4"], "+", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[Sigma]1", "4"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "-", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "10"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "10"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     SuperscriptBox["\[Sigma]2", "4"], "+", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "4"], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "+", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     SuperscriptBox["\[Sigma]2", "4"], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"512", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"1024", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "4"], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "+", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     SuperscriptBox["\[Sigma]2", "4"], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"512", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"1024", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "4"], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "+", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     SuperscriptBox["\[Sigma]2", "4"], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"512", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "+", 
     RowBox[{"1024", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "64"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "4"], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "6"]}], "+", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]1", "8"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"72", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "3"]}], "+", 
     SuperscriptBox["\[Sigma]2", "4"], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"672", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"384", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]1", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"320", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "7"], " ", 
      SuperscriptBox["\[Sigma]2", "5"]}], "-", 
     RowBox[{"24", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"160", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"2176", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "-", 
     RowBox[{"512", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "7"]}], "+", 
     RowBox[{"144", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"512", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"896", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"2048", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"2304", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"256", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "+", 
     RowBox[{"1024", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"1024", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"9", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"12", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"80", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     SuperscriptBox["\[Sigma]2", "6"], "-", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"208", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"192", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"9", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "+", 
     RowBox[{"12", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "+", 
     RowBox[{"80", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     RowBox[{"96", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "4"]}], "-", 
     SuperscriptBox["\[Sigma]2", "6"], "+", 
     RowBox[{"4", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "-", 
     RowBox[{"208", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "5"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"192", " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox["\[Sigma]2", "6"]}], "+", 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"32", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox["\[Sigma]2", "8"]}], "-", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "+", 
     RowBox[{"64", " ", "\[Sigma]1", " ", 
      SuperscriptBox["\[Sigma]2", "10"]}], "-", 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "32"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], 
   " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"4", " ", "\[Sigma]1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}], "+", 
      RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["9", "4"], " ", 
   SuperscriptBox["\[Sigma]1", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}], "2"]}], "+", 
  RowBox[{
   FractionBox["3", "32"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"4", " ", "\[Sigma]1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}], "+", 
      RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.83161232991413*^9, 
   3.831612367668717*^9, 3.831612422368767*^9, {3.83161247446693*^9, 
   3.831612487344418*^9}, {3.831621882612514*^9, 3.831621921290292*^9}, 
   3.8316219535685673`*^9, 3.831622080692379*^9},
 CellLabel->
  "Out[3534]=",ExpressionUUID->"5177c328-178e-4f9e-b830-81e0947b7c23"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "2"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"3", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "2"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "2"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"3", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "2"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.83161232991413*^9, 
   3.831612367668717*^9, 3.831612422368767*^9, {3.83161247446693*^9, 
   3.831612487344418*^9}, {3.831621882612514*^9, 3.831621921290292*^9}, 
   3.8316219535685673`*^9, 3.831622080757654*^9},
 CellLabel->
  "Out[3535]=",ExpressionUUID->"e50f112b-4d3a-42d4-b389-99ce91639f0e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"8", " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}]}], "+", 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.831540883070863*^9, 3.8315408897850447`*^9}, 
   3.831541461383519*^9, {3.83154151983917*^9, 3.831541560607456*^9}, {
   3.831541596252901*^9, 3.831541613625193*^9}, {3.831612091414122*^9, 
   3.831612154641947*^9}, 3.831612237940732*^9, 3.83161232991413*^9, 
   3.831612367668717*^9, 3.831612422368767*^9, {3.83161247446693*^9, 
   3.831612487344418*^9}, {3.831621882612514*^9, 3.831621921290292*^9}, 
   3.8316219535685673`*^9, 3.8316220808081913`*^9},
 CellLabel->
  "Out[3536]=",ExpressionUUID->"7dfc8bed-a962-4146-be27-8d7bab0a6607"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}], "2"]}], "==", 
  RowBox[{
   RowBox[{
    FractionBox["3", "32"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}], "-", 
       RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.831612343986257*^9, 
  3.831612344893606*^9}},ExpressionUUID->"d6b72674-3827-4203-82fe-\
848fab78f2a7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "5"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], "]"}]}]}], "==", 
  RowBox[{
   RowBox[{
    FractionBox["3", "8"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]2", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "+", 
   RowBox[{
    FractionBox["3", "8"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", "\[Sigma]1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.831612378474584*^9, 
  3.831612386604541*^9}},ExpressionUUID->"b41a1c3a-979b-42d6-aafb-\
bcdcaf0c7b36"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["3", "32"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}], "-", 
       RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", "\[Sigma]1"}], "-", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}]}], "+", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}], "-", 
       RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"4", " ", "\[Sigma]1"}], "-", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
    " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], 
    " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"4", " ", "\[Sigma]1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{
    FractionBox["3", "32"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", "\[Sigma]1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], "]"}]}]}], "==", 
  RowBox[{
   RowBox[{"8", " ", 
    SuperscriptBox["\[Sigma]2", "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], "]"}]}], "+", 
   RowBox[{"8", " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "0"}], "}"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.831612430788869*^9, 
  3.8316124337842607`*^9}},ExpressionUUID->"a5a848a5-ff85-49f9-8e66-\
bd27e5c4db37"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{"-", 
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"LHS1", "+", "LHS3", "-", "RHS1"}], ",", 
        RowBox[{
         SubscriptBox["Z", "2"], "[", 
         RowBox[{"{", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}], ",", "0"}], 
       "]"}]}], 
     RowBox[{"Coefficient", "[", 
      RowBox[{
       RowBox[{"LHS1", "+", "LHS3", "-", "RHS1"}], ",", 
       RowBox[{
        SubscriptBox["Z", "2"], "[", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}], ",", "1"}], 
      "]"}]], "/.", 
    RowBox[{"f", "\[Rule]", "F"}]}], "//", "Cancel"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831612496642111*^9, 3.831612551514624*^9}},
 CellLabel->
  "In[3247]:=",ExpressionUUID->"695e8f45-a50b-4361-b784-b62301a6c814"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"6144", " ", 
     SuperscriptBox["\[Sigma]1", "18"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"40", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
    RowBox[{"4096", " ", 
     SuperscriptBox["\[Sigma]1", "17"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "9"}], "+", 
       RowBox[{"260", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
    RowBox[{"9", " ", 
     SuperscriptBox["\[Sigma]2", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"5", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"40", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"256", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
    RowBox[{"256", " ", 
     SuperscriptBox["\[Sigma]1", "16"], " ", 
     RowBox[{"(", 
      RowBox[{"351", "-", 
       RowBox[{"7148", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"2048", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
    RowBox[{"256", " ", 
     SuperscriptBox["\[Sigma]1", "15"], " ", 
     RowBox[{"(", 
      RowBox[{"423", "-", 
       RowBox[{"5916", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"4736", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
    RowBox[{"64", " ", 
     SuperscriptBox["\[Sigma]1", "14"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "837"}], "+", 
       RowBox[{"7548", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "-", 
       RowBox[{"24288", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"2560", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "-", 
    RowBox[{"128", " ", 
     SuperscriptBox["\[Sigma]1", "13"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "135"}], "+", 
       RowBox[{"1548", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"17600", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"13312", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
    RowBox[{"12", " ", "\[Sigma]1", " ", 
     SuperscriptBox["\[Sigma]2", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"5", "-", 
       RowBox[{"167", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"1226", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "-", 
       RowBox[{"1320", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "+", 
       RowBox[{"256", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "+", 
    RowBox[{"16", " ", 
     SuperscriptBox["\[Sigma]1", "12"], " ", 
     RowBox[{"(", 
      RowBox[{"2199", "-", 
       RowBox[{"19131", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "-", 
       RowBox[{"125288", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "-", 
       RowBox[{"167280", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "+", 
       RowBox[{"53248", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "+", 
    RowBox[{"16", " ", 
     SuperscriptBox["\[Sigma]1", "11"], " ", 
     RowBox[{"(", 
      RowBox[{"873", "-", 
       RowBox[{"10370", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "-", 
       RowBox[{"15664", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"76448", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "+", 
       RowBox[{"174080", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "+", 
    RowBox[{"8", " ", 
     SuperscriptBox["\[Sigma]1", "9"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "342"}], "+", 
       RowBox[{"1623", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"53108", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"230672", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "-", 
       RowBox[{"329536", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "+", 
       RowBox[{"28672", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Sigma]1", "10"], " ", 
     RowBox[{"(", 
      RowBox[{"405", "+", 
       RowBox[{"7670", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "-", 
       RowBox[{"190104", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "-", 
       RowBox[{"984480", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "-", 
       RowBox[{"488064", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "+", 
       RowBox[{"262144", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Sigma]1", "7"], " ", 
     SuperscriptBox["\[Sigma]2", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "417"}], "+", 
       RowBox[{"13944", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"90000", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"660032", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "-", 
       RowBox[{"1419008", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "+", 
       RowBox[{"884736", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}]}], ")"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Sigma]1", "3"], " ", 
     SuperscriptBox["\[Sigma]2", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "42"}], "+", 
       RowBox[{"381", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"11292", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "-", 
       RowBox[{"98072", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "+", 
       RowBox[{"435264", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "-", 
       RowBox[{"717696", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}], "+", 
       RowBox[{"327680", " ", 
        SuperscriptBox["\[Sigma]2", "12"]}]}], ")"}]}], "-", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "8"], " ", 
     RowBox[{"(", 
      RowBox[{"648", "-", 
       RowBox[{"7833", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"1040", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"320208", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "+", 
       RowBox[{"4619392", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "-", 
       RowBox[{"3602944", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}], "+", 
       RowBox[{"524288", " ", 
        SuperscriptBox["\[Sigma]2", "12"]}]}], ")"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Sigma]1", "5"], " ", 
     SuperscriptBox["\[Sigma]2", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"39", "-", 
       RowBox[{"267", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"19788", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "-", 
       RowBox[{"60304", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "+", 
       RowBox[{"706496", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "-", 
       RowBox[{"1520128", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}], "+", 
       RowBox[{"909312", " ", 
        SuperscriptBox["\[Sigma]2", "12"]}]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "4"], " ", 
     SuperscriptBox["\[Sigma]2", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"33", "-", 
       RowBox[{"54", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"15894", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "-", 
       RowBox[{"134608", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "+", 
       RowBox[{"1212592", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "-", 
       RowBox[{"3922816", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}], "+", 
       RowBox[{"4413696", " ", 
        SuperscriptBox["\[Sigma]2", "12"]}], "-", 
       RowBox[{"1114112", " ", 
        SuperscriptBox["\[Sigma]2", "14"]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox["\[Sigma]2", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"21", "-", 
       RowBox[{"195", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "-", 
       RowBox[{"5940", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"66292", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "-", 
       RowBox[{"338704", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "+", 
       RowBox[{"710976", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}], "-", 
       RowBox[{"537856", " ", 
        SuperscriptBox["\[Sigma]2", "12"]}], "+", 
       RowBox[{"139264", " ", 
        SuperscriptBox["\[Sigma]2", "14"]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["\[Sigma]1", "6"], " ", 
     RowBox[{"(", 
      RowBox[{"6", "+", 
       RowBox[{"195", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "-", 
       RowBox[{"6678", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{"23064", " ", 
        SuperscriptBox["\[Sigma]2", "6"]}], "-", 
       RowBox[{"390016", " ", 
        SuperscriptBox["\[Sigma]2", "8"]}], "+", 
       RowBox[{"2494976", " ", 
        SuperscriptBox["\[Sigma]2", "10"]}], "-", 
       RowBox[{"3261440", " ", 
        SuperscriptBox["\[Sigma]2", "12"]}], "+", 
       RowBox[{"835584", " ", 
        SuperscriptBox["\[Sigma]2", "14"]}]}], ")"}]}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"768", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]2", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "6"], " ", 
       RowBox[{"(", 
        RowBox[{"9", "-", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "+", 
         RowBox[{"16", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "5"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "9"}], "-", 
         RowBox[{"88", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "+", 
         RowBox[{"112", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "27"}], "+", 
         RowBox[{"480", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "-", 
         RowBox[{"624", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "+", 
         RowBox[{"128", " ", 
          SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "9"}], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "-", 
         RowBox[{"400", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "+", 
         RowBox[{"512", " ", 
          SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"9", "+", 
         RowBox[{"34", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "-", 
         RowBox[{"1212", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "+", 
         RowBox[{"1664", " ", 
          SuperscriptBox["\[Sigma]2", "6"]}], "-", 
         RowBox[{"448", " ", 
          SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Sigma]2", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"9", "-", 
         RowBox[{"143", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "+", 
         RowBox[{"920", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "-", 
         RowBox[{"880", " ", 
          SuperscriptBox["\[Sigma]2", "6"]}], "+", 
         RowBox[{"256", " ", 
          SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "+", 
      RowBox[{"\[Sigma]1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "42"}], " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "+", 
         RowBox[{"244", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "-", 
         RowBox[{"832", " ", 
          SuperscriptBox["\[Sigma]2", "6"]}], "+", 
         RowBox[{"576", " ", 
          SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}]}], ")"}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.8316125338402243`*^9, 3.8316125533157663`*^9}},
 CellLabel->
  "Out[3247]=",ExpressionUUID->"a2d38268-8fca-447f-bdb7-d14fc3e96981"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Epsilon]", 
       RowBox[{"-", "8"}]], " ", 
      RowBox[{"Out", "[", "3247", "]"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Sigma]1", "\[Rule]", 
        RowBox[{"a1", "/", "\[Epsilon]"}]}], ",", 
       RowBox[{"\[Sigma]2", "\[Rule]", 
        RowBox[{"a2", "/", "\[Epsilon]"}]}]}], "}"}]}], "//", "Factor"}], 
   ")"}], "/.", 
  RowBox[{"\[Epsilon]", "\[Rule]", "0"}]}]], "Input",
 CellChangeTimes->{{3.831612578182*^9, 3.8316126171568823`*^9}},
 CellLabel->
  "In[3250]:=",ExpressionUUID->"6035b789-33ba-4dc3-85f9-ea1d97ccfc7e"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"245760", " ", 
    SuperscriptBox["a1", "18"], " ", 
    SuperscriptBox["a2", "2"]}], "-", 
   RowBox[{"524288", " ", 
    SuperscriptBox["a1", "16"], " ", 
    SuperscriptBox["a2", "4"]}], "+", 
   RowBox[{"163840", " ", 
    SuperscriptBox["a1", "14"], " ", 
    SuperscriptBox["a2", "6"]}], "+", 
   RowBox[{"851968", " ", 
    SuperscriptBox["a1", "12"], " ", 
    SuperscriptBox["a2", "8"]}], "-", 
   RowBox[{"1048576", " ", 
    SuperscriptBox["a1", "10"], " ", 
    SuperscriptBox["a2", "10"]}], "-", 
   RowBox[{"524288", " ", 
    SuperscriptBox["a1", "8"], " ", 
    SuperscriptBox["a2", "12"]}], "+", 
   RowBox[{"1671168", " ", 
    SuperscriptBox["a1", "6"], " ", 
    SuperscriptBox["a2", "14"]}], "-", 
   RowBox[{"1114112", " ", 
    SuperscriptBox["a1", "4"], " ", 
    SuperscriptBox["a2", "16"]}], "+", 
   RowBox[{"278528", " ", 
    SuperscriptBox["a1", "2"], " ", 
    SuperscriptBox["a2", "18"]}]}], 
  RowBox[{"12288", " ", 
   SuperscriptBox["a1", "8"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a1", "-", "a2"}], ")"}], "4"], " ", 
   SuperscriptBox["a2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a1", "+", "a2"}], ")"}], "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"64", " ", 
      SuperscriptBox["a1", "6"], " ", 
      SuperscriptBox["a2", "4"]}], "+", 
     RowBox[{"128", " ", 
      SuperscriptBox["a1", "4"], " ", 
      SuperscriptBox["a2", "6"]}], "-", 
     RowBox[{"448", " ", 
      SuperscriptBox["a1", "2"], " ", 
      SuperscriptBox["a2", "8"]}], "+", 
     RowBox[{"256", " ", 
      SuperscriptBox["a2", "10"]}]}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.831612598268139*^9, 3.831612617730056*^9}},
 CellLabel->
  "Out[3250]=",ExpressionUUID->"d9c45d4f-a9ac-43b5-ba5b-bf1a8aa9add1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "5"}], " ", "-", "2"}]], "Input",
 CellChangeTimes->{{3.831612624176251*^9, 3.831612625099524*^9}},
 CellLabel->
  "In[3251]:=",ExpressionUUID->"adcfbd22-4d7b-4db6-85c0-f65f4d9e792a"],

Cell[BoxData["8"], "Output",
 CellChangeTimes->{3.831612625564065*^9},
 CellLabel->
  "Out[3251]=",ExpressionUUID->"0f2aaa8d-803c-45de-9be3-acf10569d5a9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"root", " ", "=", 
   RowBox[{"{", 
    RowBox[{"2", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"n", "=", 
   RowBox[{"1", "/", "2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "+", "n", "-", " ", 
            RowBox[{"2", " ", 
             RowBox[{"1", "/", "2"}]}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"LHS3Itable", "=", 
    RowBox[{"Permutations", "[", 
     RowBox[{"{", 
      RowBox[{"2", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", "n"}]}], ",", 
         
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS1table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RHS1Itable", "=", 
    RowBox[{"Permutations", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
           "m1", "+", "m2", "+", "m3", "+", "m4", "+", "m5", "+", "m6"}], 
           "\[Equal]", "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}], "+", " ", 
              RowBox[{"m5", ".", "m5"}], "+", " ", 
              RowBox[{"m6", ".", "m6"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"n", "-", 
            RowBox[{"1", "/", "2"}]}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{
           "m1", ",", "m2", ",", "m3", ",", "m4", ",", "m5", ",", "m6"}], 
           "}"}], "]"}], ",", "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m5", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m6", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "6"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS2table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.831540849664184*^9, 3.831540852651763*^9}, {
  3.8315409156744432`*^9, 3.831540956454574*^9}, {3.831541164389737*^9, 
  3.831541207999544*^9}, {3.831541276986602*^9, 3.831541377224874*^9}, {
  3.831612072402542*^9, 3.831612076189659*^9}},
 CellLabel->
  "In[2956]:=",ExpressionUUID->"1eb47dd3-34ef-485e-aef6-93816c67ca10"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540916504242*^9, 3.831540956886692*^9}, 
   3.8315410853479033`*^9, {3.83154120064952*^9, 3.831541208499566*^9}, {
   3.831541277337304*^9, 3.831541378927607*^9}, 3.831612078840763*^9},
 CellLabel->
  "Out[2960]=",ExpressionUUID->"c4ae7bcd-f58a-459e-af1a-80f3ca5cbcb8"],

Cell[BoxData["15"], "Output",
 CellChangeTimes->{{3.831540916504242*^9, 3.831540956886692*^9}, 
   3.8315410853479033`*^9, {3.83154120064952*^9, 3.831541208499566*^9}, {
   3.831541277337304*^9, 3.831541378927607*^9}, 3.831612078861929*^9},
 CellLabel->
  "Out[2963]=",ExpressionUUID->"39286672-7c8a-4a5c-b516-1394a6d34fc3"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540916504242*^9, 3.831540956886692*^9}, 
   3.8315410853479033`*^9, {3.83154120064952*^9, 3.831541208499566*^9}, {
   3.831541277337304*^9, 3.831541378927607*^9}, 3.831612078867035*^9},
 CellLabel->
  "Out[2966]=",ExpressionUUID->"dcf5907e-292d-404a-a79d-d16a2211cae4"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540916504242*^9, 3.831540956886692*^9}, 
   3.8315410853479033`*^9, {3.83154120064952*^9, 3.831541208499566*^9}, {
   3.831541277337304*^9, 3.831541378927607*^9}, 3.831612080633068*^9},
 CellLabel->
  "Out[2969]=",ExpressionUUID->"b24e178a-1457-4de0-b30f-539239a7100f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.831540916504242*^9, 3.831540956886692*^9}, 
   3.8315410853479033`*^9, {3.83154120064952*^9, 3.831541208499566*^9}, {
   3.831541277337304*^9, 3.831541378927607*^9}, 3.8316120807288933`*^9},
 CellLabel->
  "Out[2972]=",ExpressionUUID->"584d6880-8768-49bc-8a22-4728da3babc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"LHS2", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], 
           "\[IndentingNewLine]", "-", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "1", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "2", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "3", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "4", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
               RowBox[{
                RowBox[{"1", "/", "2"}], 
                RowBox[{
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}], ".", 
                 RowBox[{"a", "[", 
                  RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
               RowBox[{"i", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"i", "[", 
                RowBox[{"[", "6", "]"}], "]"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"a", "[", 
                   RowBox[{"[", "5", "]"}], "]"}], "-", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
                RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}]}], 
          "\[IndentingNewLine]", ")"}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"RHS2", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "5", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "6", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "5", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "6", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "5", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "6", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "5", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "6", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]}], "Input",
 CellChangeTimes->{{3.831541385995213*^9, 3.831541399132992*^9}},
 CellLabel->
  "In[2974]:=",ExpressionUUID->"97fece4c-658b-4c94-9c5c-90b52681e57d"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.831540942150372*^9, 3.831541112638225*^9, 
  3.831541287731854*^9, 3.831541399735879*^9, 3.8316120834790297`*^9},
 CellLabel->
  "Out[2974]=",ExpressionUUID->"26e7502a-b2c1-4a7a-90c3-812eca62f030"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.831540942150372*^9, 3.831541112638225*^9, 
  3.831541287731854*^9, 3.831541399735879*^9, 3.831612083484107*^9},
 CellLabel->
  "Out[2975]=",ExpressionUUID->"fd1bf94a-c795-4cf6-99af-647d740952df"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Fshort", "[", 
   RowBox[{"v1_", ",", "v2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "1"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", ".", "\[Sigma]"}], ")"}], "//", "Refine"}], ",", 
          "1"}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "2"}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", ".", "\[Sigma]"}], ")"}], "^", "2"}]}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"a", ".", "\[Sigma]"}]}], ")"}], "^", "2"}]}], ",", 
          "1"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "BCShortRoots"}], "}"}]}], "]"}], ")"}]}], "//", 
   "Cancel"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fshort", "[", 
   RowBox[{"{", 
    RowBox[{"v1_", ",", "v2_"}], "}"}], "]"}], ":=", 
  RowBox[{"Fshort", "[", 
   RowBox[{"v1", ",", "v2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fshortmed", "[", 
   RowBox[{"v1_", ",", "v2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "1"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", ".", "\[Sigma]"}], ")"}], "//", "Refine"}], ",", 
          "1"}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "2"}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", ".", "\[Sigma]"}], ")"}], "^", "2"}]}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"a", ".", "\[Sigma]"}]}], ")"}], "^", "2"}]}], ",", 
          "1"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"Join", "[", 
          RowBox[{"BCShortRoots", ",", "BCMediumRoots"}], "]"}]}], "}"}]}], 
      "]"}], ")"}]}], "//", "Cancel"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fshortmed", "[", 
   RowBox[{"{", 
    RowBox[{"v1_", ",", "v2_"}], "}"}], "]"}], ":=", 
  RowBox[{"Fshortmed", "[", 
   RowBox[{"v1", ",", "v2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fmed", "[", 
   RowBox[{"v1_", ",", "v2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "1"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", ".", "\[Sigma]"}], ")"}], "//", "Refine"}], ",", 
          "1"}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "2"}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", ".", "\[Sigma]"}], ")"}], "^", "2"}]}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"a", ".", "\[Sigma]"}]}], ")"}], "^", "2"}]}], ",", 
          "1"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", "BCMediumRoots"}], "}"}]}], "]"}], ")"}]}], "//", 
   "Cancel"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fmed", "[", 
   RowBox[{"{", 
    RowBox[{"v1_", ",", "v2_"}], "}"}], "]"}], ":=", 
  RowBox[{"Fmed", "[", 
   RowBox[{"v1", ",", "v2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "[", 
   RowBox[{"v1_", ",", "v2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "1"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", ".", "\[Sigma]"}], ")"}], "//", "Refine"}], ",", 
          "1"}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "2"}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", ".", "\[Sigma]"}], ")"}], "^", "2"}]}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"a", ".", "\[Sigma]"}]}], ")"}], "^", "2"}]}], ",", 
          "1"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"Join", "[", 
          RowBox[{"BCLongRoots", ",", "BCMediumRoots"}], "]"}]}], "}"}]}], 
      "]"}], ")"}]}], "//", "Cancel"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "[", 
   RowBox[{"{", 
    RowBox[{"v1_", ",", "v2_"}], "}"}], "]"}], ":=", 
  RowBox[{"F", "[", 
   RowBox[{"v1", ",", "v2"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.83153803303433*^9, 3.831538133523066*^9}, {
  3.831538164633583*^9, 3.831538217821658*^9}},
 CellLabel->
  "In[722]:=",ExpressionUUID->"2d9347ee-90a9-4f39-8a96-2b5e62b87b2f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     FractionBox["3", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], "]"}]}], 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], "]"}]}]], "/.", 
   RowBox[{"f", "\[Rule]", "F"}]}], "//", "Cancel"}]], "Input",
 CellChangeTimes->{{3.831538006811571*^9, 3.83153801981026*^9}, {
  3.831538070584029*^9, 3.831538073166418*^9}, {3.831538105965007*^9, 
  3.831538141031867*^9}, {3.831538273923663*^9, 3.831538278219434*^9}},
 CellLabel->
  "In[732]:=",ExpressionUUID->"77ac9c38-0bd6-48b2-9272-fe38922f5c17"],

Cell[BoxData[
 FractionBox["3", 
  RowBox[{"16", " ", 
   SuperscriptBox["\[Sigma]2", "2"]}]]], "Output",
 CellChangeTimes->{{3.831538014630067*^9, 3.831538020219393*^9}, {
  3.83153807160702*^9, 3.8315380734332533`*^9}, {3.831538104426173*^9, 
  3.831538219779913*^9}, {3.831538275423573*^9, 3.8315382785850763`*^9}},
 CellLabel->
  "Out[732]=",ExpressionUUID->"269dd6ce-c85e-4c08-be05-d3af75bdc2af"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"F", "[", 
   RowBox[{"v1_", ",", "v2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Product", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"a", ".", 
           RowBox[{"{", 
            RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "1"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", ".", "\[Sigma]"}], ")"}], "//", "Refine"}], ",", 
         "1"}], "]"}], 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"a", ".", 
           RowBox[{"{", 
            RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "2"}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"a", ".", "\[Sigma]"}], ")"}], "^", "2"}]}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"a", ".", "\[Sigma]"}]}], ")"}], "^", "2"}]}], ",", 
         "1"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", 
        RowBox[{"Join", "[", "BCShortRoots", "]"}]}], "}"}]}], "]"}], "/", 
    RowBox[{"(", 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "1"}], ",", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a", ".", "\[Sigma]"}], ")"}], "//", "Refine"}], ",", 
          "1"}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", ".", 
            RowBox[{"{", 
             RowBox[{"v1", ",", "v2"}], "}"}]}], "\[Equal]", "2"}], ",", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"a", ".", "\[Sigma]"}], ")"}], "^", "2"}]}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"a", ".", "\[Sigma]"}]}], ")"}], "^", "2"}]}], ",", 
          "1"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"Join", "[", 
          RowBox[{"BCLongRoots", ",", "BCMediumRoots"}], "]"}]}], "}"}]}], 
      "]"}], ")"}]}], "//", "Cancel"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"F", "[", 
   RowBox[{"{", 
    RowBox[{"v1_", ",", "v2_"}], "}"}], "]"}], ":=", 
  RowBox[{"F", "[", 
   RowBox[{"v1", ",", "v2"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     FractionBox["3", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}], "]"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], "]"}]}], 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "]"}], "3"], " ", 
     RowBox[{"f", "[", 
      RowBox[{"{", 
       RowBox[{"1", ",", "0"}], "}"}], "]"}]}]], "/.", 
   RowBox[{"f", "\[Rule]", "F"}]}], "//", "Cancel"}]}], "Input",
 CellChangeTimes->{{3.831538289739867*^9, 3.83153829739823*^9}},
 CellLabel->
  "In[910]:=",ExpressionUUID->"dfbf7f1c-2273-45dc-a03a-7ce62a11f3f1"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["3", "16"]}]], "Output",
 CellChangeTimes->{3.8315382978359413`*^9, 3.831538914398389*^9},
 CellLabel->
  "Out[912]=",ExpressionUUID->"08706bd5-10b0-4e73-b27c-655620de811e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"root", " ", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"m1", "+", "m2", "+", "m3", "+", "m4"}], "\[Equal]", 
           "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"4", "/", "2"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], "}"}], "]"}], ",",
          "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "4"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS1table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"m1", "+", "m2", "+", "m3", "+", "m4"}], "\[Equal]", 
           "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"3", "/", "2"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], "}"}], "]"}], ",",
          "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "4"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS2table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"m1", "+", "m2", "+", "m3", "+", "m4"}], "\[Equal]", 
           "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"2", "/", "2"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], "}"}], "]"}], ",",
          "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "4"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS3table", "//", "Length"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS4table", "=", "LHS3table"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS4Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"LHS4table", "//", "Length"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS1table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"m1", "+", "m2", "+", "m3", "+", "m4"}], "\[Equal]", 
           "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"2", "/", "2"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], "}"}], "]"}], ",",
          "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "4"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS1table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS1Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2table", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"m1", "+", "m2", "+", "m3", "+", "m4"}], "\[Equal]", 
           "root"}], "&&", 
          RowBox[{
           RowBox[{
            RowBox[{"1", "/", "2"}], 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"m1", ".", "m1"}], "+", 
              RowBox[{"m2", ".", "m2"}], "+", 
              RowBox[{"m3", ".", "m3"}], "+", " ", 
              RowBox[{"m4", ".", "m4"}]}], ")"}]}], "\[Equal]", 
           RowBox[{"1", "/", "2"}]}]}], ",", 
         RowBox[{"Permutations", "[", 
          RowBox[{"{", 
           RowBox[{"m1", ",", "m2", ",", "m3", ",", "m4"}], "}"}], "]"}], ",",
          "Nothing"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"m1", ",", "BCRootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m2", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m3", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"m4", ",", 
         RowBox[{"{", "zero", "}"}]}], "}"}]}], "]"}], ",", "4"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"RHS2table", "//", "Length"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"RHS2Itable", "=", 
   RowBox[{"Permutations", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.831537516544924*^9, 3.831537527268779*^9}, {
   3.831537577738879*^9, 3.831537578564664*^9}, {3.8315380586713123`*^9, 
   3.831538063045741*^9}, {3.831538342947838*^9, 3.831538369380475*^9}, {
   3.83153843277794*^9, 3.8315384697004757`*^9}, 3.831538666684927*^9},
 CellLabel->
  "In[836]:=",ExpressionUUID->"d0fa694c-afd7-4e8c-be79-1bcab29f348f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315375246943913`*^9, 3.831537527560536*^9}, 
   3.831538063894086*^9, {3.8315383458524933`*^9, 3.831538369851894*^9}, 
   3.831538474355443*^9, 3.8315386672795*^9},
 CellLabel->
  "Out[839]=",ExpressionUUID->"a07fd8ea-8bba-4412-94a1-b1dd31e937fc"],

Cell[BoxData["48"], "Output",
 CellChangeTimes->{{3.8315375246943913`*^9, 3.831537527560536*^9}, 
   3.831538063894086*^9, {3.8315383458524933`*^9, 3.831538369851894*^9}, 
   3.831538474355443*^9, 3.8315386672822742`*^9},
 CellLabel->
  "Out[842]=",ExpressionUUID->"d48d54e8-0e9c-4654-85c7-70f6496b7785"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315375246943913`*^9, 3.831537527560536*^9}, 
   3.831538063894086*^9, {3.8315383458524933`*^9, 3.831538369851894*^9}, 
   3.831538474355443*^9, 3.831538667284753*^9},
 CellLabel->
  "Out[845]=",ExpressionUUID->"82d46526-f390-4d52-b816-b5011fc40416"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315375246943913`*^9, 3.831537527560536*^9}, 
   3.831538063894086*^9, {3.8315383458524933`*^9, 3.831538369851894*^9}, 
   3.831538474355443*^9, 3.831538667286656*^9},
 CellLabel->
  "Out[848]=",ExpressionUUID->"0aef3fba-3c78-4afc-8157-2f50fe8767f6"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8315375246943913`*^9, 3.831537527560536*^9}, 
   3.831538063894086*^9, {3.8315383458524933`*^9, 3.831538369851894*^9}, 
   3.831538474355443*^9, 3.831538667288567*^9},
 CellLabel->
  "Out[850]=",ExpressionUUID->"b92be36d-c506-47db-90e6-01aa754e53c9"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{{3.8315375246943913`*^9, 3.831537527560536*^9}, 
   3.831538063894086*^9, {3.8315383458524933`*^9, 3.831538369851894*^9}, 
   3.831538474355443*^9, 3.831538667290409*^9},
 CellLabel->
  "Out[853]=",ExpressionUUID->"697559b8-0786-4bbb-afb1-fe7e4c25c644"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"LHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"LHS2", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"LHS3", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS3table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS3Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"LHS4", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "1", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"LHS4table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "LHS4Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]}], "Input",
 CellChangeTimes->{{3.8315383822381353`*^9, 3.831538400754421*^9}},
 CellLabel->
  "In[892]:=",ExpressionUUID->"b51b916c-dc1e-4c01-a068-c3c80a4d8e1d"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.831538401271289*^9, 3.831538641420601*^9, 
  3.831538753166112*^9},
 CellLabel->
  "Out[892]=",ExpressionUUID->"9a5923b4-75df-4ae9-ad43-788da5f4ddaa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["\[Sigma]2", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "1"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "8"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "0"}], "}"}], "]"}], " ", 
   RowBox[{
    SubscriptBox["Z", "1"], "[", 
    RowBox[{"{", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.831538401271289*^9, 3.831538641420601*^9, 
  3.8315387531685*^9},
 CellLabel->
  "Out[893]=",ExpressionUUID->"dc358b72-c6a0-44c1-9198-5589ed61ccfb"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.831538401271289*^9, 3.831538641420601*^9, 
  3.831538753171315*^9},
 CellLabel->
  "Out[894]=",ExpressionUUID->"a736b1a9-1542-428f-9440-c4fa60146b55"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.831538401271289*^9, 3.831538641420601*^9, 
  3.831538753174089*^9},
 CellLabel->
  "Out[895]=",ExpressionUUID->"da30979c-2a46-47ca-bdec-cc9e2ab1af62"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"RHS1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS1table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS1Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}], "\[IndentingNewLine]", 
 RowBox[{"RHS2", " ", "=", " ", 
  RowBox[{
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "1", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "2", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "2", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "3", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "\[Equal]", "0"}], ",", "1", ",",
            " ", 
           RowBox[{
            SubscriptBox["Z", 
             RowBox[{"i", "[", 
              RowBox[{"[", "4", "]"}], "]"}]], "[", 
            RowBox[{"\[Sigma]", "+", 
             RowBox[{"a", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "]"}]}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "]"}], 
         RowBox[{"f", "[", 
          RowBox[{"a", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "]"}], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}], "-", 
            RowBox[{
             RowBox[{"1", "/", "2"}], 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ".", 
              RowBox[{"a", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}]}], "+", 
            RowBox[{"i", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "-", 
            RowBox[{"i", "[", 
             RowBox[{"[", "4", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"a", "[", 
                RowBox[{"[", "3", "]"}], "]"}], "-", 
               RowBox[{"a", "[", 
                RowBox[{"[", "4", "]"}], "]"}]}], ")"}], ".", 
             RowBox[{"(", "\[Sigma]", ")"}]}]}], ")"}], "^", "2"}]}], "//", 
        "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"RHS2table", "//", "DeleteDuplicates"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "RHS2Itable"}], "}"}]}], "]"}], ",", "1"}], "]"}], "//",
    "Total"}]}]}], "Input",
 CellChangeTimes->{{3.8315384852274017`*^9, 3.83153849566644*^9}, {
  3.831538794158938*^9, 3.83153880189437*^9}},
 CellLabel->
  "In[898]:=",ExpressionUUID->"ec577ae8-1acc-4e6b-a944-a0ba0ab0a281"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.831538496075145*^9, {3.831538651923688*^9, 3.8315386707300463`*^9}, 
   3.831538754747246*^9, 3.831538802892621*^9},
 CellLabel->
  "Out[898]=",ExpressionUUID->"7fdbbab6-2f9f-47f1-85d7-027ee18bd20f"],

Cell[BoxData[
 RowBox[{"2", " ", 
  SuperscriptBox[
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
  RowBox[{
   SubscriptBox["Z", "1"], "[", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]], "Output",
 CellChangeTimes->{
  3.831538496075145*^9, {3.831538651923688*^9, 3.8315386707300463`*^9}, 
   3.831538754747246*^9, 3.8315388028963823`*^9},
 CellLabel->
  "Out[899]=",ExpressionUUID->"6075b564-7c6e-47d0-831f-e554b1a91c7d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      FractionBox["3", "8"], " ", 
      SuperscriptBox["\[Sigma]2", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
      RowBox[{"f", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
      RowBox[{
       SubscriptBox["Z", "1"], "[", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
      RowBox[{
       SubscriptBox["Z", "1"], "[", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]], "/.", 
    RowBox[{"f", "\[Rule]", "F"}]}], "//", "Cancel"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{3.831538902995384*^9},
 CellLabel->
  "In[913]:=",ExpressionUUID->"44636776-d073-4de0-8aaf-2efb85005311"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}], "2"]}], 
   RowBox[{"256", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.831538903560751*^9, 3.831538918293675*^9}},
 CellLabel->
  "Out[913]=",ExpressionUUID->"acdb2d8d-7d12-45d8-8708-275f554f0190"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{
       FractionBox["3", "8"], " ", 
       SuperscriptBox["\[Sigma]2", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "4"], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}]}], "}"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1"}], "}"}], "]"}], " ", 
       RowBox[{
        SubscriptBox["Z", "1"], "[", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}], "+", 
      RowBox[{
       FractionBox["3", "8"], " ", 
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0"}], "}"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"f", "[", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}], "]"}], "2"], " ", 
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], "]"}], " ", 
       RowBox[{
        SubscriptBox["Z", "1"], "[", 
        RowBox[{"{", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"f", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], "]"}], "4"], " ", 
      RowBox[{
       SubscriptBox["Z", "1"], "[", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "]"}]}]], "/.", 
    RowBox[{"f", "\[Rule]", "F"}]}], "//", "Cancel"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831538821332494*^9, 3.831538876668846*^9}},
 CellLabel->
  "In[908]:=",ExpressionUUID->"f49fbcc1-58f3-4e1d-af7b-8c0ff28505ef"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"3", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "+", 
      RowBox[{"8", " ", 
       SuperscriptBox["\[Sigma]1", "4"]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}], "+", 
      RowBox[{"8", " ", 
       SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], 
   RowBox[{"128", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.8315388231981773`*^9, 3.831538876991393*^9}},
 CellLabel->
  "Out[908]=",ExpressionUUID->"add7e8a9-efd6-49d0-a5b8-5cf6bb4fa1b6"]
}, Open  ]]
},
WindowSize->{1920, 1037},
WindowMargins->{{0, Automatic}, {Automatic, 18}},
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[558, 20, 11794, 334, 377, "Input",ExpressionUUID->"c099823d-ad90-4c12-9c28-ff5b271eb6e8"],
Cell[CellGroupData[{
Cell[12377, 358, 236, 4, 31, "Input",ExpressionUUID->"a5007b72-6d89-46e0-ab39-1aa8282664d2"],
Cell[12616, 364, 2201, 77, 92, "Output",ExpressionUUID->"60e769b7-c943-42ad-b46c-d7e8834a8305"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14854, 446, 10773, 299, 640, "Input",ExpressionUUID->"ee76a751-1ea9-4d9c-a381-e1fa48c73524"],
Cell[25630, 747, 443, 7, 35, "Output",ExpressionUUID->"299081d4-dd83-48b5-abfe-01d5a35d1892"],
Cell[26076, 756, 443, 7, 35, "Output",ExpressionUUID->"31de9d96-367f-4200-8282-7b7bf8b656c8"],
Cell[26522, 765, 443, 7, 35, "Output",ExpressionUUID->"a61125da-7ddf-4e84-9241-b49996b41732"],
Cell[26968, 774, 444, 7, 35, "Output",ExpressionUUID->"5f2cdca4-b87a-40d1-ac59-4c9f2d3bf7ce"],
Cell[27415, 783, 443, 7, 35, "Output",ExpressionUUID->"425b88eb-2b33-497d-87a3-54b80e4ae0ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27895, 795, 18454, 473, 310, "Input",ExpressionUUID->"c3fa0d8f-b54c-4d15-a685-00094fcafe85"],
Cell[46352, 1270, 1197, 39, 53, "Output",ExpressionUUID->"2342b784-9a77-4236-849e-58b20f8ba7fe"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47586, 1314, 5270, 145, 126, "Input",ExpressionUUID->"a71b59c9-90e7-4778-9465-484a4fdefa53"],
Cell[52859, 1461, 609, 17, 53, "Output",ExpressionUUID->"19678ec1-2794-4071-a7ed-74eebbd69e73"]
}, Open  ]],
Cell[CellGroupData[{
Cell[53505, 1483, 266, 6, 31, "Input",ExpressionUUID->"94a10f25-7039-4369-a647-18921b16377f"],
Cell[53774, 1491, 1054, 33, 62, "Output",ExpressionUUID->"e11de68a-b857-4ab6-a025-3ece031a295f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54865, 1529, 10407, 291, 630, "Input",ExpressionUUID->"bae62f24-3aec-4997-85be-3ad796647582"],
Cell[65275, 1822, 249, 4, 35, "Output",ExpressionUUID->"a8ec3620-8f47-445d-8b70-6b4225660466"],
Cell[65527, 1828, 251, 4, 35, "Output",ExpressionUUID->"25781e1a-b7dd-4db1-b382-c29a296e2e68"],
Cell[65781, 1834, 251, 4, 35, "Output",ExpressionUUID->"ee509c4d-9f5f-42c5-b834-b63a6884c45f"],
Cell[66035, 1840, 251, 4, 35, "Output",ExpressionUUID->"c157c588-6689-4ea7-896f-a68a24dacef9"],
Cell[66289, 1846, 249, 4, 35, "Output",ExpressionUUID->"4a2c8aa4-271c-46c1-88cb-a915adb98371"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66575, 1855, 18173, 469, 310, "Input",ExpressionUUID->"56212efa-674b-453b-9db5-6ad2a964c678"],
Cell[84751, 2326, 1784, 58, 53, "Output",ExpressionUUID->"fdc9dabc-c0f9-440d-8ad3-6d86e4f61e5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86572, 2389, 5121, 143, 126, "Input",ExpressionUUID->"5e7f9bd0-8f88-4c07-b573-b99ba0effd9a"],
Cell[91696, 2534, 408, 12, 37, "Output",ExpressionUUID->"b19056a6-0ca1-4ec9-aa26-7614caad81ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92141, 2551, 271, 7, 31, "Input",ExpressionUUID->"3ce1629e-b873-4b29-bbb3-dedde4c70984"],
Cell[92415, 2560, 1286, 40, 64, "Output",ExpressionUUID->"fe2be43a-69b5-4c85-974b-35f4801b98aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[93738, 2605, 10953, 301, 653, "Input",ExpressionUUID->"7262d4e6-4940-4500-a484-730ab98c8a47"],
Cell[104694, 2908, 573, 9, 35, "Output",ExpressionUUID->"50aa8082-be79-497c-a4b9-3a4efbf6f9a2"],
Cell[105270, 2919, 573, 9, 35, "Output",ExpressionUUID->"5f472624-eb25-4207-a668-599e9dd5d0ef"],
Cell[105846, 2930, 573, 9, 35, "Output",ExpressionUUID->"e3c21f5b-1e06-474f-9497-b8139e412a06"],
Cell[106422, 2941, 573, 9, 35, "Output",ExpressionUUID->"e238d3dc-9828-48e2-a7c8-fa3a1f0fbae1"],
Cell[106998, 2952, 570, 9, 35, "Output",ExpressionUUID->"d7886240-fb95-424d-a5d5-75903b16fa58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107605, 2966, 82163, 2145, 1447, "Input",ExpressionUUID->"350bf01a-cb79-4463-bfbc-a80919d77207"],
Cell[189771, 5113, 544, 8, 35, "Output",ExpressionUUID->"7e3aa634-2e12-4cb5-8036-28608a3176c3"],
Cell[190318, 5123, 2150, 63, 53, "Output",ExpressionUUID->"becdb94f-d84c-4cd2-ba5d-6c7705ff5bf1"],
Cell[192471, 5188, 542, 8, 35, "Output",ExpressionUUID->"630620b3-5c66-4728-846a-ea1d424416b6"],
Cell[193016, 5198, 542, 8, 35, "Output",ExpressionUUID->"13f06381-f734-4fe2-841a-3ace19605f5f"],
Cell[193561, 5208, 542, 8, 35, "Output",ExpressionUUID->"b17c7cc1-6c11-45c1-a4a8-00c08c4ddad6"],
Cell[194106, 5218, 794, 17, 70, "Output",ExpressionUUID->"435c09bd-c6e1-4074-92d6-f8b6f63d73ab"]
}, Open  ]],
Cell[194915, 5238, 2121, 61, 154, "Input",ExpressionUUID->"e192d1bf-696b-4e9c-a45d-4604b1dc9eba"],
Cell[CellGroupData[{
Cell[197061, 5303, 11072, 295, 607, "Input",ExpressionUUID->"10fd3cef-6b91-4f58-83d4-4f890f99d8fe"],
Cell[208136, 5600, 649, 10, 35, "Output",ExpressionUUID->"89ed9d84-500b-4cbb-b0a1-ce2890d213b6"],
Cell[208788, 5612, 647, 10, 35, "Output",ExpressionUUID->"5eaaa3a6-620d-4847-b518-c657d2421514"],
Cell[209438, 5624, 649, 10, 35, "Output",ExpressionUUID->"443e3a7c-36e0-441b-ab9a-b9466816e84d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[210124, 5639, 41328, 1077, 728, "Input",ExpressionUUID->"f181a38f-a470-41e8-833b-6aef11401b38"],
Cell[251455, 6718, 71489, 1988, 1348, "Output",ExpressionUUID->"5177c328-178e-4f9e-b830-81e0947b7c23"],
Cell[322947, 8708, 2721, 82, 53, "Output",ExpressionUUID->"e50f112b-4d3a-42d4-b389-99ce91639f0e"],
Cell[325671, 8792, 3263, 102, 95, "Output",ExpressionUUID->"7dfc8bed-a962-4146-be27-8d7bab0a6607"]
}, Open  ]],
Cell[328949, 8897, 3071, 98, 90, "Input",ExpressionUUID->"d6b72674-3827-4203-82fe-848fab78f2a7"],
Cell[332023, 8997, 4285, 137, 74, "Input",ExpressionUUID->"b41a1c3a-979b-42d6-aafb-bcdcaf0c7b36"],
Cell[336311, 9136, 8416, 274, 221, "Input",ExpressionUUID->"a5a848a5-ff85-49f9-8e66-bd27e5c4db37"],
Cell[CellGroupData[{
Cell[344752, 9414, 883, 26, 53, "Input",ExpressionUUID->"695e8f45-a50b-4361-b784-b62301a6c814"],
Cell[345638, 9442, 13423, 368, 256, "Output",ExpressionUUID->"a2d38268-8fca-447f-bdb7-d14fc3e96981"]
}, Open  ]],
Cell[CellGroupData[{
Cell[359098, 9815, 658, 19, 39, "Input",ExpressionUUID->"6035b789-33ba-4dc3-85f9-ea1d97ccfc7e"],
Cell[359759, 9836, 1830, 54, 65, "Output",ExpressionUUID->"d9c45d4f-a9ac-43b5-ba5b-bf1a8aa9add1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[361626, 9895, 227, 5, 31, "Input",ExpressionUUID->"adcfbd22-4d7b-4db6-85c0-f65f4d9e792a"],
Cell[361856, 9902, 154, 3, 35, "Output",ExpressionUUID->"0f2aaa8d-803c-45de-9be3-acf10569d5a9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[362047, 9910, 10764, 299, 676, "Input",ExpressionUUID->"1eb47dd3-34ef-485e-aef6-93816c67ca10"],
Cell[372814, 10211, 323, 5, 35, "Output",ExpressionUUID->"c4ae7bcd-f58a-459e-af1a-80f3ca5cbcb8"],
Cell[373140, 10218, 324, 5, 35, "Output",ExpressionUUID->"39286672-7c8a-4a5c-b516-1394a6d34fc3"],
Cell[373467, 10225, 323, 5, 35, "Output",ExpressionUUID->"dcf5907e-292d-404a-a79d-d16a2211cae4"],
Cell[373793, 10232, 323, 5, 35, "Output",ExpressionUUID->"b24e178a-1457-4de0-b30f-539239a7100f"],
Cell[374119, 10239, 325, 5, 35, "Output",ExpressionUUID->"584d6880-8768-49bc-8a22-4728da3babc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[374481, 10249, 23107, 608, 427, "Input",ExpressionUUID->"97fece4c-658b-4c94-9c5c-90b52681e57d"],
Cell[397591, 10859, 247, 4, 35, "Output",ExpressionUUID->"26e7502a-b2c1-4a7a-90c3-812eca62f030"],
Cell[397841, 10865, 245, 4, 35, "Output",ExpressionUUID->"fd1bf94a-c795-4cf6-99af-647d740952df"]
}, Open  ]],
Cell[398101, 10872, 5982, 184, 193, "Input",ExpressionUUID->"2d9347ee-90a9-4f39-8a96-2b5e62b87b2f"],
Cell[CellGroupData[{
Cell[404108, 11060, 1932, 57, 70, "Input",ExpressionUUID->"77ac9c38-0bd6-48b2-9272-fe38922f5c17"],
Cell[406043, 11119, 401, 8, 54, "Output",ExpressionUUID->"269dd6ce-c85e-4c08-be05-d3af75bdc2af"]
}, Open  ]],
Cell[CellGroupData[{
Cell[406481, 11132, 4288, 133, 166, "Input",ExpressionUUID->"dfbf7f1c-2273-45dc-a03a-7ce62a11f3f1"],
Cell[410772, 11267, 216, 5, 53, "Output",ExpressionUUID->"08706bd5-10b0-4e73-b27c-655620de811e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[411025, 11277, 8735, 248, 561, "Input",ExpressionUUID->"d0fa694c-afd7-4e8c-be79-1bcab29f348f"],
Cell[419763, 11527, 299, 5, 35, "Output",ExpressionUUID->"a07fd8ea-8bba-4412-94a1-b1dd31e937fc"],
Cell[420065, 11534, 304, 5, 35, "Output",ExpressionUUID->"d48d54e8-0e9c-4654-85c7-70f6496b7785"],
Cell[420372, 11541, 301, 5, 35, "Output",ExpressionUUID->"82d46526-f390-4d52-b816-b5011fc40416"],
Cell[420676, 11548, 301, 5, 35, "Output",ExpressionUUID->"0aef3fba-3c78-4afc-8157-2f50fe8767f6"],
Cell[420980, 11555, 301, 5, 35, "Output",ExpressionUUID->"b92be36d-c506-47db-90e6-01aa754e53c9"],
Cell[421284, 11562, 301, 5, 35, "Output",ExpressionUUID->"697559b8-0786-4bbb-afb1-fe7e4c25c644"]
}, Open  ]],
Cell[CellGroupData[{
Cell[421622, 11572, 36804, 1015, 657, "Input",ExpressionUUID->"b51b916c-dc1e-4c01-a068-c3c80a4d8e1d"],
Cell[458429, 12589, 200, 4, 35, "Output",ExpressionUUID->"9a5923b4-75df-4ae9-ad43-788da5f4ddaa"],
Cell[458632, 12595, 1804, 59, 53, "Output",ExpressionUUID->"dc358b72-c6a0-44c1-9198-5589ed61ccfb"],
Cell[460439, 12656, 200, 4, 35, "Output",ExpressionUUID->"a736b1a9-1542-428f-9440-c4fa60146b55"],
Cell[460642, 12662, 200, 4, 35, "Output",ExpressionUUID->"da30979c-2a46-47ca-bdec-cc9e2ab1af62"]
}, Open  ]],
Cell[CellGroupData[{
Cell[460879, 12671, 7855, 220, 195, "Input",ExpressionUUID->"ec577ae8-1acc-4e6b-a944-a0ba0ab0a281"],
Cell[468737, 12893, 252, 5, 35, "Output",ExpressionUUID->"7fdbbab6-2f9f-47f1-85d7-027ee18bd20f"],
Cell[468992, 12900, 506, 14, 37, "Output",ExpressionUUID->"6075b564-7c6e-47d0-831f-e554b1a91c7d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[469535, 12919, 1454, 45, 65, "Input",ExpressionUUID->"44636776-d073-4de0-8aaf-2efb85005311"],
Cell[470992, 12966, 610, 18, 96, "Output",ExpressionUUID->"acdb2d8d-7d12-45d8-8708-275f554f0190"]
}, Open  ]],
Cell[CellGroupData[{
Cell[471639, 12989, 2431, 73, 65, "Input",ExpressionUUID->"f49fbcc1-58f3-4e1d-af7b-8c0ff28505ef"],
Cell[474073, 13064, 804, 23, 63, "Output",ExpressionUUID->"add7e8a9-efd6-49d0-a5b8-5cf6bb4fa1b6"]
}, Open  ]]
}
]
*)