A1_massive.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    353260,       9021]
NotebookOptionsPosition[    336107,       8730]
NotebookOutlinePosition[    336533,       8747]
CellTagsIndexPosition[    336490,       8744]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"this", " ", "was", " ", "my", " ", "previous", " ", "attempt"}], 
   ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "it", " ", "uses", " ", "the", " ", "wrong", " ", "fundamental", " ", 
      "contribution", "\[IndentingNewLine]", "\[IndentingNewLine]", "Nf"}], 
     "=", "1"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"BA1", "[", 
      RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ":=", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        RowBox[{"G", "[", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], " ", 
        RowBox[{"G", "[", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], "]"}], " "}]], 
      " ", 
      RowBox[{"Product", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"G", "[", 
          RowBox[{"1", "+", 
           RowBox[{"ToExpression", "[", 
            RowBox[{"StringJoin", "[", 
             RowBox[{"\"\<m\>\"", ",", 
              RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
           "\[Sigma]1"}], "]"}], " ", 
         RowBox[{"G", "[", 
          RowBox[{"1", "+", 
           RowBox[{"ToExpression", "[", 
            RowBox[{"StringJoin", "[", 
             RowBox[{"\"\<m\>\"", ",", 
              RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
           "\[Sigma]1"}], "]"}], " ", 
         RowBox[{"G", "[", 
          RowBox[{"1", "+", 
           RowBox[{"ToExpression", "[", 
            RowBox[{"StringJoin", "[", 
             RowBox[{"\"\<m\>\"", ",", 
              RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
           "\[Sigma]2"}], "]"}], " ", 
         RowBox[{"G", "[", 
          RowBox[{"1", "+", 
           RowBox[{"ToExpression", "[", 
            RowBox[{"StringJoin", "[", 
             RowBox[{"\"\<m\>\"", ",", 
              RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
           "\[Sigma]2"}], "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", 
         RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "+", "1"}], ",", 
         RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}]], "//", "Simplify"}]}]}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.843300104013571*^9, 3.8433001555022097`*^9}, {
  3.8433005441724167`*^9, 3.8433005612380447`*^9}, {3.843300978442511*^9, 
  3.8433010030106363`*^9}, {3.843301242326353*^9, 
  3.843301270697967*^9}},ExpressionUUID->"bb288a26-749e-4ece-b1d1-\
fcebbeb52f14"],

Cell[BoxData[
 RowBox[{"-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
   "2"]}]], "Output",
 CellChangeTimes->{{3.843300555934016*^9, 3.843300561487186*^9}, {
  3.843300972787736*^9, 3.843301003451578*^9}},
 CellLabel->
  "Out[116]=",ExpressionUUID->"de67dc39-07b0-4a0d-a6ea-3f91108f154a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"**", "**", "**", "**", "**"}], "*******)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "the", " ", "correct", " ", "one", " ", "seems", " ", "to", " ", "be", " ", 
    RowBox[{
     SubscriptBox[
      SuperscriptBox["\[Product]", "Nf"], 
      RowBox[{"i", "=", "1"}]], " ", 
     RowBox[{"G", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SubscriptBox["m", "i"], "+", 
        SubscriptBox["\[Sigma]", "1"]}], ")"}], "G", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SubscriptBox["m", "i"], "+", 
        SubscriptBox["\[Sigma]", "2"]}], ")"}]}]}]}], "   ", 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.843301274134132*^9, 
  3.843301340396105*^9}},ExpressionUUID->"8ab140d3-e8e6-4f39-b3b9-\
0e1ecd4c466c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nf", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ns", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nadj", " ", "=", " ", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"instno", "=", "k"}], ";", "\[IndentingNewLine]", 
     RowBox[{"tableaux", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"k1", "+", "k2", "+", "k3"}], "\[Equal]", "instno"}], 
            ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"Y1", ",", "Y2", ",", "Y3"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Y1", ",", 
                RowBox[{"IntegerPartitions", "[", "k1", "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Y2", ",", 
                RowBox[{"IntegerPartitions", "[", "k2", "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Y3", ",", 
                RowBox[{"IntegerPartitions", "[", "k3", "]"}]}], "}"}]}], 
             "]"}], ",", "Nothing"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k1", ",", 
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "instno"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k2", ",", 
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "instno"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k3", ",", 
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", 
        "5"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["Z", "k"], "=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Product", "[", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<madj\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1"}], ")"}], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<madj\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e2"}], ")"}]}], ")"}], "/", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<madj\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<madj\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1", "-", "e2"}], ")"}]}], ")"}]}], ")"}], "1"], 
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{"Product", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]1", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "-", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "j", "]"}]}], "]"}], "]"}]}], 
                    ")"}], "2"], "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<madj\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1", "-", "e2"}], ")"}], "^", "2"}]}], ")"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{"Product", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]2", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "-", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "j", "]"}]}], "]"}], "]"}]}], 
                    ")"}], "2"], "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<madj\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1", "-", "e2"}], ")"}], "^", "2"}]}], ")"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{"Product", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]3", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "-", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "j", "]"}]}], "]"}], "]"}]}], 
                    ")"}], "2"], "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<madj\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1", "-", "e2"}], ")"}], "^", "2"}]}], ")"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", "Nadj"}], "}"}]}], "]"}], 
             RowBox[{"Product", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", 
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]1", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1"}], ")"}], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", 
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]1", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e2"}], ")"}], 
                   RowBox[{"Product", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]1", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
                    
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "j", "]"}]}], "]"}], "]"}], "-", 
                    "e1", "-", "e2"}], ")"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
                  
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", 
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]2", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1"}], ")"}], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", 
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]2", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e2"}], ")"}], 
                   RowBox[{"Product", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]2", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
                    
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "j", "]"}]}], "]"}], "]"}], "-", 
                    "e1", "-", "e2"}], ")"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
                  
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", 
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]3", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e1"}], ")"}], 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", 
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]3", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}]}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
                    "e2"}], ")"}], 
                   RowBox[{"Product", "[", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]3", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<ms\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
                    
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "j", "]"}]}], "]"}], "]"}], "-", 
                    "e1", "-", "e2"}], ")"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
                  
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", "Ns"}], "}"}]}], "]"}], 
             RowBox[{
              RowBox[{"Product", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"Product", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]1", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<mf\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}]}], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
                 RowBox[{"Product", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]2", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<mf\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}]}], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
                 RowBox[{"Product", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]3", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                    RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<mf\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}]}], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "3", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}]}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}], "/", 
              RowBox[{"(", 
               RowBox[{"Product", "[", 
                RowBox[{
                 RowBox[{"\[Xi]12", "[", 
                  RowBox[{
                   RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], ",", 
                   
                   RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<\[Sigma]\>\"", ",", 
                    RowBox[{"ToString", "[", "j", "]"}]}], "]"}], "]"}], ",", 
                   
                   RowBox[{"Y", "[", 
                    RowBox[{"[", "i", "]"}], "]"}], ",", 
                   RowBox[{"Y", "[", 
                    RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"i", ",", "1", ",", "3"}], "}"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}], 
               ")"}]}]}], "//", "Cancel"}], ",", 
           RowBox[{"{", 
            RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"e", "\[Rule]", 
           RowBox[{"e1", "+", "e2"}]}], "}"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"e", "\[Rule]", "0"}], ",", 
          RowBox[{"e1", "\[Rule]", "1"}], ",", 
          RowBox[{"e2", "\[Rule]", 
           RowBox[{"-", "1"}]}]}], "}"}]}], "//", "Simplify"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "2"}], "}"}]}], "]"}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.843621144156904*^9, 3.843621159752164*^9}, {
  3.84362119451812*^9, 3.843621317217882*^9}, {3.8436216737910423`*^9, 
  3.843621673883565*^9}, {3.84362202186202*^9, 3.84362202196029*^9}, {
  3.843622673693853*^9, 3.8436227270443993`*^9}, {3.843625533132938*^9, 
  3.843625539631968*^9}, {3.8436255859368277`*^9, 3.843625649289818*^9}, {
  3.84362568288515*^9, 3.843625723486095*^9}, {3.843627274024365*^9, 
  3.843627276432818*^9}, {3.843635629093411*^9, 3.843635630315065*^9}, {
  3.843635966487459*^9, 3.843635967045547*^9}, {3.843636333676175*^9, 
  3.8436363559291267`*^9}, {3.8436394620593843`*^9, 3.843639490854411*^9}, {
  3.843639530896174*^9, 3.843639551762189*^9}, {3.843641932332946*^9, 
  3.84364194098636*^9}, {3.843642049731576*^9, 3.843642077202993*^9}, {
  3.843801642480796*^9, 3.843801647891472*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"fc219f57-87b9-428a-b3d9-055d440d6a80"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "+", 
      RowBox[{"\[Sigma]2", " ", "\[Sigma]3", " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "+", 
      RowBox[{"\[Sigma]1", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Sigma]2", "2"], "-", 
         RowBox[{"6", " ", "\[Sigma]2", " ", "\[Sigma]3"}], "+", 
         SuperscriptBox["\[Sigma]3", "2"]}], ")"}]}], "+", 
      RowBox[{"2", " ", "mf1", " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "2"], "+", 
         SuperscriptBox["\[Sigma]2", "2"], "-", 
         RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "+", 
         SuperscriptBox["\[Sigma]3", "2"], "-", 
         RowBox[{"\[Sigma]1", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], ")"}]}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "mf1", "+", "\[Sigma]1"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]2"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]2"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "mf1", "+", "\[Sigma]2"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "mf1", "+", "\[Sigma]3"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]3"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "mf1", "+", "\[Sigma]1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]1"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]3"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "mf1", "+", "\[Sigma]2"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]2"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]2"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]3"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"mf1", "+", "\[Sigma]3"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "mf1", "+", "\[Sigma]3"}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}],
      ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843621315602903*^9, 3.8436213176255302`*^9}, 
   3.843621678222454*^9, 3.8436220224757633`*^9, {3.843622715187501*^9, 
   3.843622727628463*^9}, 3.8436257277672167`*^9, 3.843627277497613*^9, 
   3.843635631310247*^9, 3.843635680865108*^9, 3.8436359740676813`*^9, {
   3.843636335666029*^9, 3.843636362619254*^9}, {3.843639469940887*^9, 
   3.8436394973198757`*^9}, {3.8436395428605223`*^9, 3.84363955768431*^9}, 
   3.843641938134285*^9, 3.843642037307925*^9, {3.843642072306562*^9, 
   3.843642084880077*^9}, 3.843801649012821*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"65a3bc88-a52e-4849-9aba-c5368fc9d6b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ns", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nas", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nf", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Nadj", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"BA2", "[", 
     RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_", ",", "\[Sigma]3_"}], "]"}], ":=", 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], "]"}], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], "]"}], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], "]"}], " "}]], " ", 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<mas\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "}"}], 
          ".", "a"}]}], "]"}], "  ", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "Nas"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], 
      "]"}], 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<mf\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "}"}], 
          ".", "a"}]}], "]"}], "  ", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "Nf"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], 
      "]"}], 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<ms\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "}"}], 
          ".", "a"}]}], "]"}], "  ", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "Ns"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "2"}], "}"}]}], "}"}]}], "}"}]}], 
      "]"}], 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<madj\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "}"}], 
          ".", "a"}]}], "]"}], "  ", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "Nadj"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"a", ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "0", ",", 
             RowBox[{"-", "1"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "1", ",", 
             RowBox[{"-", "1"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", 
             RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "1", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", 
             RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
        "}"}]}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"BA2", "[", 
      RowBox[{
       RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
      "]"}], 
     RowBox[{"BA2", "[", 
      RowBox[{"\[Sigma]1", ",", 
       RowBox[{"\[Sigma]2", "-", "1"}], ",", "\[Sigma]3"}], "]"}]}], 
    RowBox[{
     RowBox[{"BA2", "[", 
      RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
     RowBox[{"BA2", "[", 
      RowBox[{
       RowBox[{"\[Sigma]1", "+", "1"}], ",", 
       RowBox[{"\[Sigma]2", "-", "1"}], ",", "\[Sigma]3"}], "]"}]}]], "//", 
   "Simplify"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Z1loop", "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"BA2", "[", 
          RowBox[{
           RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2", ",", 
           "\[Sigma]3"}], "]"}], 
         RowBox[{"BA2", "[", 
          RowBox[{
           RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2", ",", 
           "\[Sigma]3"}], "]"}]}], 
        SuperscriptBox[
         RowBox[{"BA2", "[", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
         "2"]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"BA2", "[", 
          RowBox[{"\[Sigma]1", ",", 
           RowBox[{"\[Sigma]2", "+", "1"}], ",", "\[Sigma]3"}], "]"}], 
         RowBox[{"BA2", "[", 
          RowBox[{"\[Sigma]1", ",", 
           RowBox[{"\[Sigma]2", "-", "1"}], ",", "\[Sigma]3"}], "]"}]}], 
        SuperscriptBox[
         RowBox[{"BA2", "[", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
         "2"]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"BA2", "[", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", 
           RowBox[{"\[Sigma]3", "+", "1"}]}], "]"}], 
         RowBox[{"BA2", "[", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", 
           RowBox[{"\[Sigma]3", "-", "1"}]}], "]"}]}], 
        SuperscriptBox[
         RowBox[{"BA2", "[", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
         "2"]]}], ")"}]}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["Z", "1"], "/", "Z1loop"}], " ", "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Z2loop", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "4"]}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"BA2", "[", 
            RowBox[{
             RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2", ",", 
             "\[Sigma]3"}], "]"}], 
           RowBox[{"BA2", "[", 
            RowBox[{
             RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2", ",", 
             "\[Sigma]3"}], "]"}]}], 
          RowBox[{
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
           
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
            "]"}]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Z1loop", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Sigma]1", "\[Rule]", 
               RowBox[{"\[Sigma]1", "+", "1"}]}], "}"}]}], ")"}], "+", 
           RowBox[{"(", 
            RowBox[{"Z1loop", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Sigma]1", "\[Rule]", 
               RowBox[{"\[Sigma]1", "-", "1"}]}], "}"}]}], ")"}]}], ")"}]}], 
        "+", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", 
             RowBox[{"\[Sigma]2", "+", "1"}], ",", "\[Sigma]3"}], "]"}], 
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", 
             RowBox[{"\[Sigma]2", "-", "1"}], ",", "\[Sigma]3"}], "]"}]}], 
          RowBox[{
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
           
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
            "]"}]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Z1loop", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Sigma]2", "\[Rule]", 
               RowBox[{"\[Sigma]2", "+", "1"}]}], "}"}]}], ")"}], "+", 
           RowBox[{"(", 
            RowBox[{"Z1loop", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Sigma]2", "\[Rule]", 
               RowBox[{"\[Sigma]2", "-", "1"}]}], "}"}]}], ")"}]}], ")"}]}], 
        "+", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", 
             RowBox[{"\[Sigma]3", "+", "1"}]}], "]"}], 
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", 
             RowBox[{"\[Sigma]3", "-", "1"}]}], "]"}]}], 
          RowBox[{
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
           
           RowBox[{"BA2", "[", 
            RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
            "]"}]}]], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"Z1loop", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Sigma]3", "\[Rule]", 
               RowBox[{"\[Sigma]3", "+", "1"}]}], "}"}]}], ")"}], "+", 
           RowBox[{"(", 
            RowBox[{"Z1loop", "/.", 
             RowBox[{"{", 
              RowBox[{"\[Sigma]3", "\[Rule]", 
               RowBox[{"\[Sigma]3", "-", "1"}]}], "}"}]}], ")"}]}], ")"}]}]}],
        ")"}]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
          
          RowBox[{"(", 
           RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], 
        ")"}], "1"], 
      FractionBox[
       RowBox[{
        RowBox[{"BA2", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "+", "1"}], ",", 
          RowBox[{"\[Sigma]2", "-", "1"}], ",", "\[Sigma]3"}], "]"}], 
        RowBox[{"BA2", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "-", "1"}], ",", 
          RowBox[{"\[Sigma]2", "+", "1"}], ",", "\[Sigma]3"}], "]"}]}], 
       RowBox[{
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
         "]"}]}]]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
          
          RowBox[{"(", 
           RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}]], 
        ")"}], "1"], 
      FractionBox[
       RowBox[{
        RowBox[{"BA2", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2", ",", 
          RowBox[{"\[Sigma]3", "-", "1"}]}], "]"}], 
        RowBox[{"BA2", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2", ",", 
          RowBox[{"\[Sigma]3", "+", "1"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
         "]"}]}]]}], "-", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
          
          RowBox[{"(", 
           RowBox[{"madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]], 
        ")"}], "1"], 
      FractionBox[
       RowBox[{
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", 
          RowBox[{"\[Sigma]2", "+", "1"}], ",", 
          RowBox[{"\[Sigma]3", "-", "1"}]}], "]"}], 
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", 
          RowBox[{"\[Sigma]2", "-", "1"}], ",", 
          RowBox[{"\[Sigma]3", "+", "1"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
        RowBox[{"BA2", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
         "]"}]}]]}]}], "//", "Simplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["Z", "2"], "/", "Z2loop"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.8436201533171673`*^9, 3.84362024770278*^9}, 
   3.843620351293605*^9, 3.843620716282889*^9, {3.843620784743568*^9, 
   3.843620840730545*^9}, {3.8436209464793158`*^9, 3.843620958012491*^9}, {
   3.843620993428142*^9, 3.843621009378209*^9}, {3.843621443817883*^9, 
   3.843621473200519*^9}, {3.843621661705695*^9, 3.843621665484645*^9}, {
   3.843621711711462*^9, 3.843621732440199*^9}, {3.843621900708935*^9, 
   3.843622063410109*^9}, {3.843622194947012*^9, 3.843622284086948*^9}, {
   3.8436223332875032`*^9, 3.843622341947163*^9}, {3.843622430063675*^9, 
   3.843622438683612*^9}, {3.843622476686797*^9, 3.8436224768140163`*^9}, {
   3.843622563145136*^9, 3.8436226527657423`*^9}, 3.8436228086695423`*^9, {
   3.84362284081956*^9, 3.843622915094184*^9}, {3.8436229695634737`*^9, 
   3.8436230244681473`*^9}, {3.843623072766629*^9, 3.843623074362479*^9}, {
   3.843623116240385*^9, 3.8436231929675007`*^9}, {3.843623257966868*^9, 
   3.843623286153314*^9}, 3.843623336106242*^9, {3.843635462751864*^9, 
   3.843635480693963*^9}, {3.8436355305101843`*^9, 3.843635574071102*^9}, {
   3.843635604424305*^9, 3.843635611170795*^9}, {3.8436360084806347`*^9, 
   3.843636133844618*^9}, {3.843636242567277*^9, 3.843636261533936*^9}, {
   3.843636329731379*^9, 3.8436363518313828`*^9}, {3.843636901635851*^9, 
   3.8436369054610662`*^9}, {3.843637178459344*^9, 3.843637181671795*^9}, {
   3.843637275037998*^9, 3.843637281904731*^9}, {3.843637349967505*^9, 
   3.843637353681714*^9}, {3.843638181009679*^9, 3.843638209956156*^9}, {
   3.843638267793914*^9, 3.843638308778013*^9}, {3.8436385353444233`*^9, 
   3.843638537536819*^9}, {3.843641948723525*^9, 
   3.843641951923821*^9}},ExpressionUUID->"aafcbc7f-2d94-49ce-9606-\
f1c42b57fc0f"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
    " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], 
     ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.8436201949689837`*^9, 3.843620248221756*^9}, 
   3.8436203518167686`*^9, 3.843620716868779*^9, {3.843620787367674*^9, 
   3.843620841231752*^9}, {3.8436209503708973`*^9, 3.8436209584589853`*^9}, {
   3.843620994151535*^9, 3.8436210264843197`*^9}, {3.84362142956179*^9, 
   3.843621473592874*^9}, 3.843621549657177*^9, 3.843621666417432*^9, {
   3.843621712717957*^9, 3.843621748570911*^9}, {3.843621901092164*^9, 
   3.843621915127798*^9}, {3.843621949014475*^9, 3.843622063843161*^9}, {
   3.843622241624433*^9, 3.843622250356594*^9}, 3.843622284885921*^9, {
   3.84362233553708*^9, 3.843622342607258*^9}, {3.843622430762916*^9, 
   3.8436224391763983`*^9}, 3.843622477387879*^9, {3.84362258728478*^9, 
   3.843622593963819*^9}, {3.8436226423265*^9, 3.843622653196718*^9}, 
   3.843622809039116*^9, {3.84362284950465*^9, 3.843622915453476*^9}, {
   3.8436229750600557`*^9, 3.8436229949089403`*^9}, 3.843623025064921*^9, 
   3.843623074959901*^9, {3.843623116714017*^9, 3.843623193607259*^9}, {
   3.843623259774014*^9, 3.843623286770719*^9}, 3.8436233366476803`*^9, {
   3.8436354533924294`*^9, 3.843635481120532*^9}, {3.843635531489295*^9, 
   3.843635549140195*^9}, 3.843635611674116*^9, 3.843636009819787*^9, 
   3.8436361345197678`*^9, 3.843636262172044*^9, {3.8436363378392153`*^9, 
   3.843636347102467*^9}, 3.843636391945381*^9, 3.843636905814736*^9, 
   3.843637182243842*^9, 3.843637282283553*^9, 3.843638210382039*^9, 
   3.843638309270935*^9, {3.843638538046173*^9, 3.843638546763894*^9}},
 CellLabel->
  "Out[2841]=",ExpressionUUID->"318ebf2b-4647-4a15-ba48-e35c9630423d"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SuperscriptBox["madj1", "2"]}]], "Output",
 CellChangeTimes->{{3.8436201949689837`*^9, 3.843620248221756*^9}, 
   3.8436203518167686`*^9, 3.843620716868779*^9, {3.843620787367674*^9, 
   3.843620841231752*^9}, {3.8436209503708973`*^9, 3.8436209584589853`*^9}, {
   3.843620994151535*^9, 3.8436210264843197`*^9}, {3.84362142956179*^9, 
   3.843621473592874*^9}, 3.843621549657177*^9, 3.843621666417432*^9, {
   3.843621712717957*^9, 3.843621748570911*^9}, {3.843621901092164*^9, 
   3.843621915127798*^9}, {3.843621949014475*^9, 3.843622063843161*^9}, {
   3.843622241624433*^9, 3.843622250356594*^9}, 3.843622284885921*^9, {
   3.84362233553708*^9, 3.843622342607258*^9}, {3.843622430762916*^9, 
   3.8436224391763983`*^9}, 3.843622477387879*^9, {3.84362258728478*^9, 
   3.843622593963819*^9}, {3.8436226423265*^9, 3.843622653196718*^9}, 
   3.843622809039116*^9, {3.84362284950465*^9, 3.843622915453476*^9}, {
   3.8436229750600557`*^9, 3.8436229949089403`*^9}, 3.843623025064921*^9, 
   3.843623074959901*^9, {3.843623116714017*^9, 3.843623193607259*^9}, {
   3.843623259774014*^9, 3.843623286770719*^9}, 3.8436233366476803`*^9, {
   3.8436354533924294`*^9, 3.843635481120532*^9}, {3.843635531489295*^9, 
   3.843635549140195*^9}, 3.843635611674116*^9, 3.843636009819787*^9, 
   3.8436361345197678`*^9, 3.843636262172044*^9, {3.8436363378392153`*^9, 
   3.843636347102467*^9}, 3.843636391945381*^9, 3.843636905814736*^9, 
   3.843637182243842*^9, 3.843637282283553*^9, 3.843638210382039*^9, 
   3.843638309270935*^9, {3.843638538046173*^9, 3.8436385468168573`*^9}},
 CellLabel->
  "Out[2843]=",ExpressionUUID->"48ef8793-87a8-4fb1-b6d5-77b1296e03a5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", "madj1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", "madj1"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "madj1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["madj1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
         " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["madj1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}],
           ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["madj1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
         " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["madj1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}],
           ")"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
         " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], 
          "2"]}]]}], "-", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["madj1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["madj1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
         "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], 
         ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], 
         ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
      "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], 
         ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], 
         ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
      "-", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["madj1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
        " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["madj1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
         "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "-", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["madj1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["madj1", "2"], "-", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
         "2"]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], 
         ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}], 
         ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
         ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}], 
         ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], 
      "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "madj1"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}], 
         ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["madj1", "2"], "-", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}], 
         ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}],
      ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}],
       ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
     " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}],
       ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
     " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], 
     " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], 
     " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
     " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
     " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], 
     " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], 
     " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], 
     " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], 
      ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}],
           "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "4"], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox["\[Sigma]1", "2"], "+", 
             SuperscriptBox["\[Sigma]2", "2"], "+", "\[Sigma]3", "+", 
             SuperscriptBox["\[Sigma]3", "2"], "-", 
             RowBox[{"\[Sigma]2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "\[Sigma]3"}], ")"}]}], "-", 
             RowBox[{"\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
               ")"}]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", 
              SuperscriptBox["\[Sigma]1", "2"], "+", 
              SuperscriptBox["\[Sigma]2", "2"], "+", "\[Sigma]3", "+", 
              SuperscriptBox["\[Sigma]3", "2"], "-", 
              RowBox[{"\[Sigma]2", " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", "\[Sigma]3"}], ")"}]}], "-", 
              RowBox[{"\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
                ")"}]}]}], ")"}], "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}],
           "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]2"}], ")"}], "2"], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]2"}], ")"}], " ", "\[Sigma]3"}], 
             "+", 
             SuperscriptBox["\[Sigma]3", "2"], "-", 
             RowBox[{"\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], 
            ")"}]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[Sigma]1", "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]2"}], ")"}], "2"], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]2"}], ")"}], " ", "\[Sigma]3"}], 
              "+", 
              SuperscriptBox["\[Sigma]3", "2"], "-", 
              RowBox[{"\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], 
             ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}],
           "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "2"], "+", "\[Sigma]2", "+", 
             SuperscriptBox["\[Sigma]2", "2"], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]3"}], ")"}], "2"], "-", 
             RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "-", 
             RowBox[{"\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
               ")"}]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[Sigma]1", "2"], "+", "\[Sigma]2", "+", 
              SuperscriptBox["\[Sigma]2", "2"], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Sigma]3"}], ")"}], "2"], "-", 
              RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "-", 
              RowBox[{"\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
                ")"}]}]}], ")"}], "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}],
           "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "2"], "+", 
             SuperscriptBox["\[Sigma]2", "2"], "-", 
             RowBox[{"\[Sigma]2", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]3"}], ")"}]}], "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]3"}], ")"}], "2"], "-", 
             RowBox[{"\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], 
            ")"}]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[Sigma]1", "2"], "+", 
              SuperscriptBox["\[Sigma]2", "2"], "-", 
              RowBox[{"\[Sigma]2", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]3"}], ")"}]}], "+", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]3"}], ")"}], "2"], "-", 
              RowBox[{"\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], 
             ")"}], "2"]}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], "+", 
             SuperscriptBox["\[Sigma]2", "2"], "-", 
             RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "+", 
             SuperscriptBox["\[Sigma]3", "2"], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]1"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], ")"}]}], 
          "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], "+", 
              SuperscriptBox["\[Sigma]2", "2"], "-", 
              RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "+", 
              SuperscriptBox["\[Sigma]3", "2"], "-", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]1"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], ")"}], 
            "2"]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}],
           "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "4"], " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox["\[Sigma]1", "2"], "+", "\[Sigma]2", "+", 
             SuperscriptBox["\[Sigma]2", "2"], "+", "\[Sigma]3", "-", 
             RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "+", 
             SuperscriptBox["\[Sigma]3", "2"], "-", 
             RowBox[{"\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], 
            ")"}]}], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["madj1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", 
              SuperscriptBox["\[Sigma]1", "2"], "+", "\[Sigma]2", "+", 
              SuperscriptBox["\[Sigma]2", "2"], "+", "\[Sigma]3", "-", 
              RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "+", 
              SuperscriptBox["\[Sigma]3", "2"], "-", 
              RowBox[{"\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], 
             ")"}], "2"]}]}], ")"}]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.8436201949689837`*^9, 3.843620248221756*^9}, 
   3.8436203518167686`*^9, 3.843620716868779*^9, {3.843620787367674*^9, 
   3.843620841231752*^9}, {3.8436209503708973`*^9, 3.8436209584589853`*^9}, {
   3.843620994151535*^9, 3.8436210264843197`*^9}, {3.84362142956179*^9, 
   3.843621473592874*^9}, 3.843621549657177*^9, 3.843621666417432*^9, {
   3.843621712717957*^9, 3.843621748570911*^9}, {3.843621901092164*^9, 
   3.843621915127798*^9}, {3.843621949014475*^9, 3.843622063843161*^9}, {
   3.843622241624433*^9, 3.843622250356594*^9}, 3.843622284885921*^9, {
   3.84362233553708*^9, 3.843622342607258*^9}, {3.843622430762916*^9, 
   3.8436224391763983`*^9}, 3.843622477387879*^9, {3.84362258728478*^9, 
   3.843622593963819*^9}, {3.8436226423265*^9, 3.843622653196718*^9}, 
   3.843622809039116*^9, {3.84362284950465*^9, 3.843622915453476*^9}, {
   3.8436229750600557`*^9, 3.8436229949089403`*^9}, 3.843623025064921*^9, 
   3.843623074959901*^9, {3.843623116714017*^9, 3.843623193607259*^9}, {
   3.843623259774014*^9, 3.843623286770719*^9}, 3.8436233366476803`*^9, {
   3.8436354533924294`*^9, 3.843635481120532*^9}, {3.843635531489295*^9, 
   3.843635549140195*^9}, 3.843635611674116*^9, 3.843636009819787*^9, 
   3.8436361345197678`*^9, 3.843636262172044*^9, {3.8436363378392153`*^9, 
   3.843636347102467*^9}, 3.843636391945381*^9, 3.843636905814736*^9, 
   3.843637182243842*^9, 3.843637282283553*^9, 3.843638210382039*^9, 
   3.843638309270935*^9, 3.843638538046173*^9, 3.843638574348659*^9},
 CellLabel->
  "Out[2845]=",ExpressionUUID->"a306ee9f-8ec7-4e14-9367-75125ae8c51a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
    " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], 
     ")"}], 
    RowBox[{"BA2", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
     "]"}], 
    RowBox[{"BA2", "[", 
     RowBox[{"\[Sigma]1", ",", 
      RowBox[{"\[Sigma]2", "-", "1"}], ",", "\[Sigma]3"}], "]"}]}], "==", 
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
    RowBox[{"BA2", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
    RowBox[{"BA2", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", 
      RowBox[{"\[Sigma]2", "-", "1"}], ",", "\[Sigma]3"}], "]"}]}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.843638243773189*^9, 3.8436382550197973`*^9}, 
   3.8436385276997004`*^9, {3.843638591876564*^9, 3.843638592453621*^9}, 
   3.843639869978051*^9, {3.843641177275834*^9, 3.8436412083816013`*^9}},
 CellLabel->
  "In[2936]:=",ExpressionUUID->"090c14b2-a8b7-419a-ba19-1c3be07695b2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.843641209887949*^9},
 CellLabel->
  "Out[2936]=",ExpressionUUID->"9dcad7ba-e895-44db-9b88-76d4596f6fb7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"op2", "[", "t", "]"}], "[", 
       RowBox[{"\[Tau]", "[", "t", "]"}], "]"}], "/.", 
      RowBox[{"\[Tau]", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"y1", " ", 
           RowBox[{"#1", "^", 
            RowBox[{"(", 
             RowBox[{
              FractionBox["1", "2"], 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Sigma]1", "+", "1"}], ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Sigma]2", "-", "1"}], ")"}], "2"]}], ")"}]}], 
             ")"}]}]}], "+", 
          RowBox[{"y2", 
           RowBox[{"#1", "^", 
            RowBox[{"(", 
             RowBox[{
              FractionBox["1", "2"], 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", "\[Sigma]1", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"(", "\[Sigma]2", ")"}], "2"]}], ")"}]}], 
             ")"}]}]}]}], "&"}], ")"}]}]}], "//", "Factor"}], "//", 
    "Simplify"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"op2", "[", "t", "]"}], "[", 
       RowBox[{"\[Tau]", "[", "t", "]"}], "]"}], "/.", 
      RowBox[{"\[Tau]", "\[Rule]", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"y1", " ", 
           RowBox[{"#1", "^", 
            RowBox[{"(", 
             RowBox[{
              FractionBox["1", "2"], 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Sigma]1", "+", "1"}], ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"(", "\[Sigma]2", ")"}], "2"]}], ")"}]}], ")"}]}]}], 
          "+", 
          RowBox[{"y2", 
           RowBox[{"#1", "^", 
            RowBox[{"(", 
             RowBox[{
              FractionBox["1", "2"], 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", "\[Sigma]1", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Sigma]2", "-", "1"}], ")"}], "2"]}], ")"}]}], 
             ")"}]}]}]}], "&"}], ")"}]}]}], "//", "Factor"}], "//", 
    "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.843641466410652*^9, 3.843641512632758*^9}, {
  3.8436416889306993`*^9, 3.8436417531650677`*^9}, {3.8436418314194107`*^9, 
  3.843641843442998*^9}, {3.843641902782505*^9, 3.843641902958208*^9}},
 CellLabel->
  "In[2979]:=",ExpressionUUID->"67bc477a-d848-4e56-8b9c-ae8b75cfe172"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["t", 
   RowBox[{"1", "+", "\[Sigma]1", "+", 
    SuperscriptBox["\[Sigma]1", "2"], "-", "\[Sigma]2", "+", 
    SuperscriptBox["\[Sigma]2", "2"]}]], " ", "y1", " ", "y2", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
   "2"]}]], "Output",
 CellChangeTimes->{{3.84364146427925*^9, 3.843641512979507*^9}, {
  3.843641692105886*^9, 3.843641753679063*^9}, {3.843641837838591*^9, 
  3.843641843831307*^9}, {3.8436418989242687`*^9, 3.8436419033764067`*^9}},
 CellLabel->
  "Out[2979]=",ExpressionUUID->"d864813b-b789-4564-9976-2174de1052e3"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["t", 
   RowBox[{"1", "+", "\[Sigma]1", "+", 
    SuperscriptBox["\[Sigma]1", "2"], "-", "\[Sigma]2", "+", 
    SuperscriptBox["\[Sigma]2", "2"]}]], " ", "y1", " ", "y2", " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.84364146427925*^9, 3.843641512979507*^9}, {
  3.843641692105886*^9, 3.843641753679063*^9}, {3.843641837838591*^9, 
  3.843641843831307*^9}, {3.8436418989242687`*^9, 3.8436419034106817`*^9}},
 CellLabel->
  "Out[2980]=",ExpressionUUID->"0ee2d356-ba39-48a2-b54b-2db848eecc61"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}],
    " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], 
    ")"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.843641662496747*^9, 3.843641667664139*^9}},
 CellLabel->
  "In[2960]:=",ExpressionUUID->"0753728b-e509-4259-9b6a-2ab4415b9547"],

Cell[BoxData[
 RowBox[{"1", "-", 
  SuperscriptBox["madj1", "2"], "+", 
  RowBox[{"2", " ", "\[Sigma]1"}], "+", 
  SuperscriptBox["\[Sigma]1", "2"], "-", 
  RowBox[{"2", " ", "\[Sigma]2"}], "-", 
  RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
  SuperscriptBox["\[Sigma]2", "2"]}]], "Output",
 CellChangeTimes->{{3.843641664637726*^9, 3.843641667995625*^9}},
 CellLabel->
  "Out[2960]=",ExpressionUUID->"8b66acd1-cc45-4e27-ad37-5a2bfee5747a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["madj1", "2"], "-", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], "//", 
  "Expand"}]], "Input",
 CellChangeTimes->{{3.843641629866357*^9, 3.843641652852079*^9}},
 CellLabel->
  "In[2958]:=",ExpressionUUID->"fcfb1d2c-8586-4d9f-a462-8780c5496b98"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["madj1", "2"], "-", 
  SuperscriptBox["\[Sigma]1", "2"], "-", 
  RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "-", 
  SuperscriptBox["\[Sigma]2", "2"]}]], "Output",
 CellChangeTimes->{{3.84364163861349*^9, 3.843641653177034*^9}},
 CellLabel->
  "Out[2958]=",ExpressionUUID->"614d50c2-017a-4303-8ede-66019a3c1c4f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"WolframAlpha", "[", "\"\<(1+x+y) (-1+x-y)\>\"", "]"}]], "Input",
 CellChangeTimes->{{3.8436415585478153`*^9, 3.8436415712014647`*^9}},
 CellLabel->
  "In[2954]:=",ExpressionUUID->"fe6d6d62-d313-422b-bef2-80d5f2f33431"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.843641195432549*^9, 
  3.8436412008936996`*^9}},ExpressionUUID->"2de8e994-7a59-4424-9ba7-\
5a23498df85c"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.843641177744053*^9, 
  3.843641178956028*^9}},ExpressionUUID->"505db9a4-a99a-4446-a5c1-\
d445debc7c23"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"BA2", "[", 
      RowBox[{
       RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
      "]"}], 
     RowBox[{"BA2", "[", 
      RowBox[{
       RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2", ",", "\[Sigma]3"}], 
      "]"}]}], 
    RowBox[{
     RowBox[{"BA2", "[", 
      RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}], 
     RowBox[{"BA2", "[", 
      RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "\[Sigma]3"}], "]"}]}]], 
   RowBox[{"(", 
    RowBox[{"(", 
     RowBox[{"Z1loop", "/.", 
      RowBox[{"{", 
       RowBox[{"\[Sigma]1", "\[Rule]", 
        RowBox[{"\[Sigma]1", "+", "1"}]}], "}"}]}], ")"}], ")"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.843636787828882*^9, 3.843636833544074*^9}, 
   3.843636894266465*^9, {3.843636949654127*^9, 3.843637018103677*^9}, {
   3.843637078956264*^9, 3.8436371079620237`*^9}, 3.843637169808148*^9, {
   3.843637201019837*^9, 3.8436372035155354`*^9}, {3.8436372363107767`*^9, 
   3.84363726995854*^9}, {3.843638603607037*^9, 3.843638615249785*^9}, {
   3.843638658657428*^9, 3.843638686019327*^9}, {3.843638752099062*^9, 
   3.843638764228652*^9}, {3.8436389478818083`*^9, 3.843638963965508*^9}, {
   3.843639086006762*^9, 3.843639088572049*^9}},
 CellLabel->
  "In[2861]:=",ExpressionUUID->"c179ee46-ea32-4f09-bfbc-5b71b3f00651"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"madj1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"madj1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "3"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["madj1", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], "+", 
         SuperscriptBox["\[Sigma]2", "2"], "-", 
         RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "+", 
         SuperscriptBox["\[Sigma]3", "2"], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["madj1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], "+", 
          SuperscriptBox["\[Sigma]2", "2"], "-", 
          RowBox[{"\[Sigma]2", " ", "\[Sigma]3"}], "+", 
          SuperscriptBox["\[Sigma]3", "2"], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Sigma]1"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]}], ")"}], 
        "2"]}]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.843636780858827*^9, 3.843636834428144*^9}, 
   3.843636899192627*^9, {3.843636940493231*^9, 3.8436370185202513`*^9}, {
   3.843637079430704*^9, 3.8436371091664762`*^9}, 3.843637170619891*^9, 
   3.843637216607316*^9, {3.843637249108747*^9, 3.8436372703660994`*^9}, {
   3.8436386041003036`*^9, 3.843638615899886*^9}, {3.843638666043523*^9, 
   3.8436386864165583`*^9}, {3.84363875277647*^9, 3.843638764933957*^9}, {
   3.843638950159121*^9, 3.843638964362002*^9}, 3.8436390899156523`*^9},
 CellLabel->
  "Out[2861]=",ExpressionUUID->"daff0aac-7d23-472d-a27f-d1b18a7e2ddd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "madj1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
    ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], 
    ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], 
    "2"]}]]], "Input",
 CellChangeTimes->{3.8436389435783997`*^9},
 CellLabel->
  "In[2857]:=",ExpressionUUID->"68000cdb-de3a-4e07-9283-5b391736091d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "madj1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "madj1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
    ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["madj1", "2"], "-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], 
    ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}], 
    "2"]}]]], "Output",
 CellChangeTimes->{3.8436389441257353`*^9},
 CellLabel->
  "Out[2857]=",ExpressionUUID->"0d8cb3ad-eb53-4b4d-bf29-49be4ed64d9a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
     " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}],
       ")"}]}]]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"op1", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"#", "^", "1"}], "t", " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Log", "[", "#", "]"}], ",", "t"}], "]"}]}], ")"}], "&"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"op2", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"#", "^", "2"}], " ", "t", " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"t", " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"Log", "[", "#", "]"}], ",", "t"}], "]"}]}], ",", "t"}], 
       "]"}]}], ")"}], "&"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"op12", "[", 
     RowBox[{"t1_", ",", "t2_"}], "]"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#", "^", "2"}], " ", "t1", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"t2", " ", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Log", "[", "#", "]"}], ",", "t2"}], "]"}]}], ",", "t1"}],
         "]"}]}], ")"}], "&"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"op2", "[", "t", "]"}], "[", 
      RowBox[{"\[Tau]", "[", "t", "]"}], "]"}], "/.", 
     RowBox[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"y1", " ", 
          RowBox[{"#1", "^", 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "2"], 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]1", "+", "1"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", "\[Sigma]2", ")"}], "2"]}], ")"}]}], ")"}]}]}], 
         "+", 
         RowBox[{"y2", 
          RowBox[{"#1", "^", 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "2"], 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]1", "+", "1"}], ")"}], "2"], "+", 
               SuperscriptBox[
                RowBox[{"(", "\[Sigma]2", ")"}], "2"]}], ")"}]}], ")"}]}]}]}],
         "&"}], ")"}]}]}], "//", "Factor"}], "//", "Simplify"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"op1", "[", "t", "]"}], "[", 
      RowBox[{"\[Tau]", "[", "t", "]"}], "]"}], "/.", 
     RowBox[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"y1", " ", 
          RowBox[{"#1", "^", "x1"}]}], "+", 
         RowBox[{"y2", 
          RowBox[{"#1", "^", "x2"}]}]}], "&"}], ")"}]}]}], "//", "Factor"}], "//",
    "Simplify"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"op12", "[", 
       RowBox[{"t1", ",", "t2"}], "]"}], "[", 
      RowBox[{"\[Tau]", "[", 
       RowBox[{"t1", ",", "t2"}], "]"}], "]"}], "/.", 
     RowBox[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"y1", " ", 
          RowBox[{"#1", "^", "x1"}]}], "+", 
         RowBox[{"y2", 
          RowBox[{"#2", "^", "x2"}]}]}], "&"}], ")"}]}]}], "//", "Factor"}], "//",
    "Simplify"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"op12", "[", 
       RowBox[{"t1", ",", "t2"}], "]"}], "[", 
      RowBox[{"\[Tau]", "[", 
       RowBox[{"t1", ",", "t2"}], "]"}], "]"}], "/.", 
     RowBox[{"\[Tau]", "\[Rule]", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"y1", " ", 
          RowBox[{"#1", "^", "x1"}]}], "+", 
         RowBox[{"y2", 
          RowBox[{"#2", "^", "x2"}]}]}], "&"}], ")"}]}]}], "/.", 
    RowBox[{"{", 
     RowBox[{"t2", "->", "t1"}], "}"}]}], "//", "Factor"}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.843637401217977*^9, 3.843637466153493*^9}, {
  3.843637539529665*^9, 3.843637581731105*^9}, {3.843637629580011*^9, 
  3.843637634131761*^9}, {3.8436377128151903`*^9, 3.843637751986361*^9}, {
  3.843637855871896*^9, 3.84363786541086*^9}, {3.8436380570463552`*^9, 
  3.843638130839987*^9}, {3.843641416431346*^9, 3.843641448375197*^9}},
 CellLabel->
  "In[2937]:=",ExpressionUUID->"6a3f8625-f1a7-40fd-b5eb-ebf29cef7315"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
    " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], 
     ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.843637573558353*^9, 3.8436375821109257`*^9}, {
   3.8436376307584047`*^9, 3.843637634761259*^9}, 3.843637752388246*^9, {
   3.843637859685362*^9, 3.843637865710703*^9}, {3.843638058081794*^9, 
   3.843638131387169*^9}, 3.843641449096545*^9},
 CellLabel->
  "Out[2937]=",ExpressionUUID->"e72fef6f-fe6d-4b6f-8862-89d33a78b69b"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.843637573558353*^9, 3.8436375821109257`*^9}, {
   3.8436376307584047`*^9, 3.843637634761259*^9}, 3.843637752388246*^9, {
   3.843637859685362*^9, 3.843637865710703*^9}, {3.843638058081794*^9, 
   3.843638131387169*^9}, 3.843641449106677*^9},
 CellLabel->
  "Out[2941]=",ExpressionUUID->"14e08538-7576-4ec2-a1d3-a0707647d08e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["t", "x1"], " ", "x1", " ", "y1"}], "+", 
  RowBox[{
   SuperscriptBox["t", "x2"], " ", "x2", " ", "y2"}]}]], "Output",
 CellChangeTimes->{{3.843637573558353*^9, 3.8436375821109257`*^9}, {
   3.8436376307584047`*^9, 3.843637634761259*^9}, 3.843637752388246*^9, {
   3.843637859685362*^9, 3.843637865710703*^9}, {3.843638058081794*^9, 
   3.843638131387169*^9}, 3.843641449115891*^9},
 CellLabel->
  "Out[2942]=",ExpressionUUID->"63c0c782-4e6f-4e79-806d-72fb25c61c31"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["t1", "x1"]}], " ", 
  SuperscriptBox["t2", "x2"], " ", "x1", " ", "x2", " ", "y1", " ", 
  "y2"}]], "Output",
 CellChangeTimes->{{3.843637573558353*^9, 3.8436375821109257`*^9}, {
   3.8436376307584047`*^9, 3.843637634761259*^9}, 3.843637752388246*^9, {
   3.843637859685362*^9, 3.843637865710703*^9}, {3.843638058081794*^9, 
   3.843638131387169*^9}, 3.8436414491249313`*^9},
 CellLabel->
  "Out[2943]=",ExpressionUUID->"0ba58cd7-0bf0-430b-8ef4-62bfb78649e9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["t1", 
    RowBox[{"x1", "+", "x2"}]]}], " ", "x1", " ", "x2", " ", "y1", " ", 
  "y2"}]], "Output",
 CellChangeTimes->{{3.843637573558353*^9, 3.8436375821109257`*^9}, {
   3.8436376307584047`*^9, 3.843637634761259*^9}, 3.843637752388246*^9, {
   3.843637859685362*^9, 3.843637865710703*^9}, {3.843638058081794*^9, 
   3.843638131387169*^9}, 3.843641449134123*^9},
 CellLabel->
  "Out[2944]=",ExpressionUUID->"9f684b05-ff68-45f9-bb49-cd017e58cebd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
     " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}],
       ")"}]}]]}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.843637525247127*^9, 3.843637529525737*^9}},
 CellLabel->
  "In[2703]:=",ExpressionUUID->"b8e570ae-d693-4e49-abfe-e53b2e0f9845"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "madj1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
    " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "madj1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], 
     ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.843637451382616*^9, 3.8436374666488132`*^9}, 
   3.843637529923892*^9},
 CellLabel->
  "Out[2703]=",ExpressionUUID->"8287069c-59d9-4299-bbe3-bb69c0151a26"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["Zeta", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], "]"}], "-", 
         
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["Zeta", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"1", "+", "ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], 
           "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["Zeta", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{"2", "+", "ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], 
          "]"}], "+", 
         RowBox[{
          SuperscriptBox["Zeta", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"0", ",", 
           RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], "]"}], "-", 
         
         RowBox[{"2", " ", 
          RowBox[{
           SuperscriptBox["Zeta", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"0", ",", 
            RowBox[{"1", "+", "ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], 
           "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["Zeta", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"0", ",", 
           RowBox[{"2", "+", "ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], 
          "]"}]}], ")"}]}]]}], "  ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"Pochhammer", "[", 
      RowBox[{"1", ",", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "ms1", "+", "\[Sigma]1", "+", 
        "\[Sigma]2"}]}], "]"}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], " ", 
    SuperscriptBox[
     RowBox[{"Pochhammer", "[", 
      RowBox[{"1", ",", 
       RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], "]"}], 
     RowBox[{"4", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
       ")"}]}]], " ", 
    SuperscriptBox[
     RowBox[{"Pochhammer", "[", 
      RowBox[{"1", ",", 
       RowBox[{"1", "+", "ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]}], "]"}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", "ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
       ")"}]}]]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ms1", "->", "1"}], ",", 
     RowBox[{"\[Sigma]1", "->", "1"}], ",", 
     RowBox[{"\[Sigma]2", "->", "2"}]}], "}"}]}], "//", "N"}]], "Input",
 CellChangeTimes->{{3.843623292525629*^9, 3.843623323669003*^9}},
 CellLabel->
  "In[2448]:=",ExpressionUUID->"918b1ef2-671f-4ca0-befd-10713f489fe8"],

Cell[BoxData[
 RowBox[{"-", "1.0000000000001934`"}]], "Output",
 CellChangeTimes->{{3.843623304767476*^9, 3.8436233241347237`*^9}},
 CellLabel->
  "Out[2448]=",ExpressionUUID->"d0f19e84-e79f-4dfd-9b6c-2a61c55c8597"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"RSolve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", "x", ")"}], "2"], " ", 
      RowBox[{"gG", "[", "x", "]"}], " ", 
      RowBox[{"gG", "[", 
       RowBox[{"2", "+", "x"}], "]"}]}], "==", 
     SuperscriptBox[
      RowBox[{"gG", "[", 
       RowBox[{"1", "+", "x"}], "]"}], "2"]}], ",", 
    RowBox[{"gG", "[", "x", "]"}], ",", "x"}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.843623214549905*^9, 3.843623250656887*^9}},
 CellLabel->
  "In[2422]:=",ExpressionUUID->"c3eaf572-88ff-4fc8-b31d-78dff73f7b9a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"gG", "[", "x", "]"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       TemplateBox[{"1"},
        "C"], "+", 
       RowBox[{"x", " ", 
        TemplateBox[{"2"},
         "C"]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         SuperscriptBox["Zeta", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "x"}], "]"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         SuperscriptBox["Zeta", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"0", ",", "x"}], "]"}]}]}]], " ", 
     SuperscriptBox[
      RowBox[{"Pochhammer", "[", 
       RowBox[{"1", ",", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "x"}]}], "]"}], 
      RowBox[{
       RowBox[{"-", "2"}], " ", "x"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.843623242463554*^9, 3.8436232510904284`*^9}},
 CellLabel->
  "Out[2422]=",ExpressionUUID->"9731f7ea-b052-444e-9384-ae1af401ec3f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "ms1", "+", 
    RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"ms1", "+", 
    RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "ms1", "+", 
    RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "  ", 
  RowBox[{"(", 
   RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.843622290942284*^9, 3.8436223164976873`*^9}, {
  3.8436227767562857`*^9, 
  3.8436227800199747`*^9}},ExpressionUUID->"27ea0b98-a9d0-4d1e-b194-\
55730f8717a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], "\[Rule]", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      TemplateBox[{"1"},
       "C"], "+", 
      RowBox[{"x", " ", 
       TemplateBox[{"2"},
        "C"]}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.843622312900914*^9, 3.843622317028713*^9}},
 CellLabel->
  "Out[2140]=",ExpressionUUID->"95ffd655-5eb3-4b00-8125-53888921bd64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["Z", "1"]], "Input",
 CellChangeTimes->{{3.8436220688269*^9, 3.843622107347123*^9}, {
  3.843622767073756*^9, 3.84362276720253*^9}},
 CellLabel->
  "In[2244]:=",ExpressionUUID->"529b4918-69a8-4d8d-93b7-b0e5c9214fec"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "ms1", "+", 
        RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.843622076950935*^9, 3.843622121465097*^9}, 
   3.843622767660725*^9},
 CellLabel->
  "Out[2244]=",ExpressionUUID->"9029c777-0069-424a-b351-a24c9d72296e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "m1", "+", 
    RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"m1", "+", 
    RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", "m1", "+", 
    RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
  RowBox[{"(", 
   RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "  ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "m1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"m1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "m1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], 
    ")"}]}]}]], "Input",
 CellChangeTimes->{{3.843621489603901*^9, 3.843621515329447*^9}},
 CellLabel->
  "In[2001]:=",ExpressionUUID->"15c181e7-21c2-4a8c-93fe-c45ce4f60ba3"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{"m1", "+", 
   RowBox[{"2", " ", "\[Sigma]1"}]}]]], "Output",
 CellChangeTimes->{{3.8436214992855387`*^9, 3.843621515649261*^9}},
 CellLabel->
  "Out[2001]=",ExpressionUUID->"ccc32c5e-8ed0-40d9-93c7-30c7ae32ed78"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "m1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "m1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "m2", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m2", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "m2", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m2", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m2", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "m1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"m1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "m1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "m2", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"m2", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "m2", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m2", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m2", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], ")"}]}]}],
   "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.843621687819066*^9, 3.843621696707469*^9}},
 CellLabel->
  "In[2014]:=",ExpressionUUID->"ad808a12-e266-49c0-a423-162d400a3d86"],

Cell[BoxData[
 FractionBox[
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"m1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m2", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.843621697018877*^9},
 CellLabel->
  "Out[2014]=",ExpressionUUID->"b9515c36-24e9-4298-a004-c1ad8fd3b78d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", 
         RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}]}]}], ")"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"m1", "->", "0"}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{3.8436213362465353`*^9},
 CellLabel->
  "In[1973]:=",ExpressionUUID->"ebe0873a-f577-4b2c-9b0e-8a5be4dd7966"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Sigma]1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], "+", 
      RowBox[{"\[Sigma]2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       "\[Sigma]3", " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}]}]}], ")"}]}]}]}]], "Output",\

 CellChangeTimes->{3.843621336664772*^9},
 CellLabel->
  "Out[1973]=",ExpressionUUID->"a12269d4-6cda-412d-8ac1-0004d3361cf7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"m1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "m1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "m1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"m1", "+", 
         RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "m1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "m1", "+", 
        RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"m1", "+", 
         RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "m1", "+", 
        RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], "/.", 
   RowBox[{"{", 
    RowBox[{"m1", "->", "0"}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8436208774138403`*^9, 3.843620880876157*^9}},
 CellLabel->
  "In[1938]:=",ExpressionUUID->"e89c12c6-325f-4898-b8a8-0a466c15fa21"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], 
  RowBox[{"4", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
      SuperscriptBox["\[Sigma]2", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], " ", 
      SuperscriptBox["\[Sigma]3", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.843620881266458*^9},
 CellLabel->
  "Out[1938]=",ExpressionUUID->"77d85bba-e81a-40d3-aca3-36a7613d8b37"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "4", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}], ")"}]}], ")"}]}]}],
   "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.843621384819021*^9, 3.8436213966246758`*^9}},
 CellLabel->
  "In[1975]:=",ExpressionUUID->"f3d79002-aa33-45f9-8b62-64a8dcd01d1b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["1", 
   RowBox[{"2", " ", "\[Sigma]1"}]]}]], "Output",
 CellChangeTimes->{{3.843621392479508*^9, 3.843621396879525*^9}},
 CellLabel->
  "Out[1975]=",ExpressionUUID->"3d7b8fca-15ea-4b32-9228-f23ef2466f61"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nf", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BA1", "[", 
    RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"G", "[", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], " ", 
      RowBox[{"G", "[", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], "]"}], " "}]], " ", 
    
    RowBox[{"Product", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], ".", "a"}]}], 
        "]"}], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], ".", "a"}]}], 
        "]"}]}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "Nf"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"a", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}]], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.843619990796398*^9, 3.843620056993699*^9}, {
  3.843626224068121*^9, 3.843626226162023*^9}},
 CellLabel->
  "In[2471]:=",ExpressionUUID->"37a64a7f-6c63-4052-9525-063b5a4f1ea8"],

Cell[BoxData[
 RowBox[{"-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
   "2"]}]], "Output",
 CellChangeTimes->{
  3.843620007597828*^9, {3.843620043588386*^9, 3.843620057430806*^9}, 
   3.8436261806672983`*^9, 3.843626226678852*^9},
 CellLabel->
  "Out[2473]=",ExpressionUUID->"67ad5bdc-b69d-487b-966e-fece4c61acda"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nf", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BA1", "[", 
    RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"G", "[", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], " ", 
      RowBox[{"G", "[", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], "]"}], " "}]], " ", 
    
    RowBox[{"Product", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         "\[Sigma]2"}], "]"}]}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}]], "//", 
  "Simplify"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8433011060747967`*^9, 3.843301148851865*^9}, 
   3.8433012182736*^9, {3.843619173262631*^9, 3.843619226023305*^9}, {
   3.843619310961466*^9, 3.843619311059082*^9}},
 CellLabel->
  "In[1786]:=",ExpressionUUID->"94683824-d210-4499-b6b9-e510fe90cf45"],

Cell[BoxData[
 RowBox[{"-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
   "2"]}]], "Output",
 CellChangeTimes->{{3.8433011068316402`*^9, 3.843301149179429*^9}, 
   3.843301218933172*^9, 3.843542795565031*^9, 3.8436192041343927`*^9, 
   3.8436192412373323`*^9, 3.8436193114795628`*^9},
 CellLabel->
  "Out[1788]=",ExpressionUUID->"a05ba7fa-b3af-49b7-9535-a4e3eb2b1241"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], " ", 
     RowBox[{"G", "[", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], "]"}], " "}]], " ", 
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"G", "[", 
       RowBox[{"1", "+", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<m\>\"", ",", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
        "\[Sigma]1"}], "]"}], " ", 
      RowBox[{"G", "[", 
       RowBox[{"1", "+", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<m\>\"", ",", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
        "\[Sigma]2"}], "]"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}]], "//", 
  "Simplify"}]}], "Input",ExpressionUUID->"76690cc8-7969-4b49-af22-\
ccd3649b3897"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nf", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BA1", "[", "\[Sigma]1_", "]"}], ":=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"gG", "[", 
       RowBox[{"1", "+", 
        RowBox[{"2", "\[Sigma]1"}]}], "]"}], " ", 
      RowBox[{"gG", "[", 
       RowBox[{"1", "-", 
        RowBox[{"2", "\[Sigma]1"}]}], "]"}], " "}]], " ", 
    RowBox[{"Product", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
         "\[Sigma]1"}], "]"}]}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8436194014900017`*^9, 3.843619432612796*^9}, {
  3.843619486255117*^9, 3.8436195175171824`*^9}, {3.843619753776478*^9, 
  3.8436197618878117`*^9}, {3.843628459438302*^9, 3.843628492326762*^9}, {
  3.843628587247657*^9, 3.843628598907845*^9}, {3.843628764080347*^9, 
  3.843628775448139*^9}},
 CellLabel->
  "In[2509]:=",ExpressionUUID->"6c870f6e-da30-4f2a-8441-8f0d5a2198bc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"BA1", "[", 
      RowBox[{"\[Sigma]1", "+", 
       RowBox[{"1", "/", "2"}]}], "]"}], 
     RowBox[{"BA1", "[", 
      RowBox[{"\[Sigma]1", "+", 
       RowBox[{"1", "/", "2"}]}], "]"}]}], 
    RowBox[{
     RowBox[{"BA1", "[", "\[Sigma]1", "]"}], 
     RowBox[{"BA1", "[", 
      RowBox[{"\[Sigma]1", "+", "1"}], "]"}]}]], "/.", 
   RowBox[{"{", 
    RowBox[{"gG", "->", "G"}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.843628606892995*^9, 3.8436286382096033`*^9}},
 CellLabel->
  "In[2511]:=",ExpressionUUID->"47fafdf7-c343-4b32-b46c-241ecc8fca22"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"G", "[", 
      RowBox[{
       FractionBox["1", "2"], "+", "m1", "-", "\[Sigma]1"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"G", "[", 
      RowBox[{
       FractionBox["3", "2"], "+", "m1", "+", "\[Sigma]1"}], "]"}], "2"]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"G", "[", 
      RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"G", "[", 
      RowBox[{"m1", "+", "\[Sigma]1"}], "]"}], "2"], " ", 
    RowBox[{"\[CapitalGamma]", "[", 
     RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"\[CapitalGamma]", "[", 
      RowBox[{"m1", "+", "\[Sigma]1"}], "]"}], "3"]}]]}]], "Output",
 CellChangeTimes->{{3.843628622745935*^9, 3.843628638495777*^9}, {
  3.843628767695006*^9, 3.843628776819248*^9}},
 CellLabel->
  "Out[2511]=",ExpressionUUID->"ee3a4de9-eeb0-46ca-a8db-2362c6a1a29e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"BarnesG", "[", 
         RowBox[{
          FractionBox["1", "2"], "+", "m1", "-", "\[Sigma]1"}], "]"}], "2"], 
       " ", 
       SuperscriptBox[
        RowBox[{"BarnesG", "[", 
         RowBox[{
          FractionBox["3", "2"], "+", "m1", "+", "\[Sigma]1"}], "]"}], "2"]}], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"BarnesG", "[", 
         RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"BarnesG", "[", 
         RowBox[{"m1", "+", "\[Sigma]1"}], "]"}], "2"], " ", 
       RowBox[{"Gamma", "[", 
        RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Gamma", "[", 
         RowBox[{"m1", "+", "\[Sigma]1"}], "]"}], "3"]}]]}], "/.", 
    RowBox[{"{", 
     RowBox[{"m1", "->", "1"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", ",", "1", ",", "10"}], "}"}], ",", 
   RowBox[{"PlotRange", "->", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.843628650800169*^9, 3.8436286963646517`*^9}},
 CellLabel->
  "In[2505]:=",ExpressionUUID->"331e8aac-bb7e-46ed-aa7d-c8bdc4e6458a"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJw9lnk01YkDxQ3azBNhGtKCVBJSZOmHq8iSdYweiROJKaKEI4lsKdImeUJS
ZCxZshMtPHq2bFmyJQzZ423f9x75Nb8/fvece+4/99zPv1f2zEUbN34+Pr4b
P/1vrpocnPAuWQLf//QdB5UfmVK6lqDX6p4fljoHfm916c9fljB3u6z53ftZ
dOZ3zW6ZXULLn/lCjrMz8FEVu58qSIfEkVPLBuRp6Pu8chkRpaM5UkNuLn4K
okXWanLb6KiYUvXP+fwNhWr3el4cokO0rZJn6TeJUD+VrMkjdMz6pgmWN07A
urQ1cK8lHbYB66zU5SewoEHaludORzZNipUwOQ6Vw9GuJRQ6BlpuqlU+H8WP
qwqHWOl0jPSrp12UHsXH1x/WahXSkXZmpK+D8hVeumtzXtPo8EuXTxZJHsFL
/YjvtRw63EX7gjbdH8K1MLlawbUM+Gfaj1iVDsK89v1DIzEGRq9u6RUZGcCM
AZ9mkyID5lfUHzse64eicXBwxykGnmVqeVKO94J7c6uV+DkGNkXlOoPSgyba
a5kTfgxsMPE0UfrWjfPHuXV9sQzYy/6YISd8QpZFgNBIDQPdUjnejTKduHJ3
86Bs08++dZjAudgOmLSV5rn2MDBeTv7nEq8dk9YM68l5BrQPXjPpamjDblsf
yvwOJoJGzlyNetUMVrzoeVUlJsjp1/SXqprQ0F1w+LIWE6aTGXF8TY1ws5sf
YlozYVwRHhNNfECGg6f8ShgTRW13dmrGU+GXLMTSu8vEk48XvSkf6mAwmP0h
NIkJYabuaepqLUadvnkIFjPBf3nbvErIe8i6uL36dZyJh8sg25ypweDQZFzw
AhPppT7RaXuqkeDg4bfAZeKFxFyJNaMKQrYXNbs2seAc08kflF4BhlFgTRJY
sFArvFFOLkF+HS+VZMZC4PuAOy22xTivHxIaQmahptXKMedkEYa1IwzOeLGw
9YTFr9EBhaAp3Wncm8xC81KF529rchCeLZKbnMlC4qRsrZJnFnR3x8UKF7GQ
ZmqYoDKciaIdFKtF2k9+iuBL6nQ6LqRIHXD9xIK4JNvBOPI5dkuliHV/YaGh
Ivf0A8VnSBZ71l3BYmHzmPTCwOEnIN/bWa7Iz8a3H6Swla4kiJIyE1OE2ehv
H07KjEpE5JrcU6HybHx5tuN7sVY89MKVdZf2s/F7nl6QulYcOD8Ktp/9DxuV
Lk66/n/chzdR8tXYhg2bk1GD2unRUPDXrKt0YsPQomZLuE8UxhYrM/adZ2NF
qL8GfhFI9daJeuLHhgx/q3l9bijsZ978JRLKRiFtdeeg6jWInTtiGnabjQQq
L1THPwAt43WK9AQ2mg0CtaJ2+SLKxYjk9pyNq+UXE8xveOPIMG2uJ48NucPt
MtrJf2HZwazNpJINUs1BdeKuC8p6WwurqD/34mrD8+vtccnWOk6pnY1NtQ97
KAetodjR6Zs6wIbo443zXV1HMW5x4oToJBszCk5qA9QDeNrUqxG+xMYqtXnO
c0ICDsYOkowVNp6rRM9+n3mjJ0Ed5LhtIFC2Z//+lUBBfNQ/PdArQSBX9cW9
FfO9iK75Wm0qQ0D+2Jtl8XA9GB4+m/p6HwGFct2CIBlz/CibuK6sScBfMTtz
PpSMCrXzLk+PElj92FceF+wM38KZo5ssCeTvFaXM17lDRdlbPuIkgXpXvSJ9
SW98y/6+hnmWwCcB9YBq+OL5bt9J90sEvPYr/u2yGgCndCatL4hAzO52gXqL
YEjKXMk5fpNAU5Lw3FBCGDpTuLer4wgMp7qd294RiVipYC+VVAKBhwbuqdrd
glHCqmVaNgHeJHWmSDEWr+8JikW++8mfsBO65ByHoke3rlY3Ewi2U7qzvzwe
OcmkMUYPgYisNxuTNShI+luixG2OgIBIH820OAVxeYlbUwkCZFLDsQdFTxFd
vPVGjwAHnQ9JYsYXn+HKW3my8RYORKZsf6OMZOBSfdab67s4IO3TKZSqycS5
ZqU9FaocOBGC904WZcGuV51QMObgg/4lyZqpl7AcqnB2seHgse24iKlyAYzG
dBofO3GQNZZGPdBQCI0FwyQhPw6GBHtlNKyLocKk8Rtc56Ap/NOB8NwS7OKZ
ewbFcIDuQy3YXAaJdSd0ZtM4WEwWo81JV4Ik/DlD/iUH4UlJhv3lVRAUdxJ2
KudASuDOD1W3atC3uw23tnJAka2Qt2W9xbT8lNHazxwsRzkOv5h7h1FFrwK9
cQ5aJB0N+Kffo1PDP7SAy4HXouJ83i9UFFrekHuwhwsZ9eXesTIasmw33G48
yIXt2TqyM38Tnjrcof+ix0W3xjy12aEZd90fUS/bcpF8rED7D/WPiLogpZx7
motgrQsuHmVtCLn85NGYBxf2ZhYvK9Lb4RXywt02jIsHTdk6RuadOBu5ty02
lotPLGmRaaUuOMbkadZTuOCmRmdrbf4E84TS9Rr5XERWXW5XF+yBYn59zu8D
XDTHDZnr2vdDrsRU3HqCiwu86pJXtwYgVdUadGuRi1j3qWBS/SDWN3Sbc9bx
UKJgxX/d9Qv4Wk6WHhDngYjXjiS7joDoGNrmsZ2H2x6dPmzpr5gc+me+X52H
Uxv+9E9MH8Xw2Hk7cX0e6hbF7Ax9x9AzNffWzIyHJRNBSxuzcTQwmferXXgQ
1yiw2bl5AhnCa9VS7/KQaH6k8KPcNEI0aaJNSTw8aRm6FuQwA3uXmHlmJg+0
KFZEZNosSKUbcyze8rAjLLWr22EB66eyCvKovP//h/8CoHg98A==
       "]], 
      LineBox[CompressedData["
1:eJw9Vnk01YsTv/e7IEt51EWUkF6kTUqlNKl0LVlTemkhyhIJWYoIxRMlu3iy
FCESKpE7dkJCVLrZyvJCZC+Rn9/vj9+cM2fOnJkz85nPzB8jY3HByIpgMBi5
C/pfq3VBPMEpgQmM/8l3FFA2bVdKZkJqykbfkifDmFukBp7ZTLDRUa83bBrA
Gz5Zoyn5TLD/8qVLRfQrHjsgnVJXyARuq42+gnM/KvHfOTxewoRfusOi48O9
yHhD8EhWM0HF6/a5G/492BLu8lzjNRNs/drWkMpfMM20z9r2LRO0Z8Kf5kx2
o97nV3UvOhfqtykHvXfqRNk0Na/uXia8rns9YGbfjpN2WRsWDTGhK0bVXuhv
LtZsku7aNMYEvgsVzcnlbRg/GXrH9AcTChmMVFLyAzoWEvt8fjNhtinq6J6Q
d7jP22UijSLAUiS2KEi8FQf4TI9OCxNgJzkgVe/cjJzXr/ikxQiY1OqIrYMm
vBOmVqi5goC9+/Ia/13ViJZHs+wc5Ai491b8e7N8A26Xkl4RpUDAYHu/uPG6
ehToDm0o3kjAc7aw6BaDWux4QPj0biXgWo1CtEdYDV7f2PdZRYOASx4djgzr
SvxR8OH9HjYBxVyTUqff5WirUVevrUfAoUXNnp8yyvBTXXGpyWEC0pT+kR2y
K0U9k5xnp/8ioI9vJ99ZKMGSjuRMu9MEzLdH3Digx0Fl68hE17MEjOmEWUuq
v0TWlctBwU4EGNt7X/3iWYCBlL13tDsBIT8nedfWPMOZkFMuyVcJyOZ7z7bZ
8BTPixnZZPkT0LJoLntZdh52JO4/WRBEgKK+z++8A7looKhqXB5KwPgvMrN7
PAfL8hTYDVEE8P96lZTs8BhTqxYr9yQv+NctG/aPZaC4AfPPkYcECNcHGIcM
PMSgtnHJmWwCbH0GrU9TaThr0SdMPyVAkn34YuPuB+gw9IEWLiKgqno/UzAy
Bbsu1c0sLyXgq9gNUTO+ZDSaLx6Rrybggv7Bk7JRiagqktKm9pYAaasW7rKp
OMyIi2zQbCPgsp5EUXFCLErJB5YbdhJgYbchUPRiNN7Kvlxg1kuA1L9b7qbZ
RiJju33WuUECjOTKWEp/h6NT6alkp9GF+whOG3KqvYM92kbRXtMECJ26OWqn
FIo1J1SvhZMkVLnd7vOKDMKd/QquCYtIGFj3Ged4AvGRo5Rd+hISmjztap0z
r+PKmcWn85eRwH7yyaHQ2w9D/ZgmKEnCtWWmzHc+15AQmtCqlSEhTP1SW89R
b3SJ6lNv/ZOEG9Ni/GWzV7BPum1L13oS9N1+zioNuuOx9Lq1g1tIaONICRmt
dMV6Zc6KqR0kdP4wn4m/44zqL3NEmECCR3d89FO4iDkHUngFNUmQD7xt/lPP
AWXfRM6ydEn4tqtER8TfFiNMA0dljEiIEPJ20JY4hzyfL/cpmZJwJoKPGcNr
ie529lzVkyQcPpirrsc2x4GJU40aliT4xgQvVs44gWZXjSoP2ZJgUb0vblT/
GDbwHig0dSRh9NbHRC9XE4Q7qo/PuJLQuHS3sqioEeYuV7zv4EmCQNe2aR5V
PVx9XyrWw5cEq/ySoOOCWhi1fskt/0AS8p84do+H70e+50y/27dIuMQaa0x9
CXgFJtzuRizEB2Z4woZ24vCrvvMP7pKwfeDoKq0zW/G0cZt5TuIC/z5U1eeS
Tdj8qe5IUSoJwdFjBTtaFXD/WY5O1SMSorMlvYZvyeGzkRxoyiWB+0gm8j5j
Ba71SNn6qYCEwlU/Wadnl+JdIkqxn7PAx7awqau+QigYHCg9VkHC/MX8O/0C
FLrknZeKrCVBtXDKXn5ohsP9aCCxvZGELYN/dqppj3I0iK0sbisJcSYuPnqM
Xk6GgoToVS4JMULaQkkv33NEDOeWyHST4GnPUrt5oobj4d4tWNFHQqlWTRm+
f8rpule56NwQCe2e7PBVg/c47Op0Hv4xEop+OBgd8/Ph5AyHkFnTJOQ1FpAy
VQYcMZYTw2COBNEgG5E0x/7iq7uPzI0RFExa5G+qWDpa3Ge5cyaSjwIyOM4q
4YAx51DwyuntiylYwz7IzN/ly8nPIya4ohRYuH1NfWOfxJHi9n2/KkHBeXc9
r+43zzl+RN03GWkKaj2K5gWSajkDCo8HKlZTIL40WMXsj48cI8Pw/nOKFEiE
R2fIbe3nvHB36+HfREGvhuAMqI9zViUe787aSsHU3qB3F5R/cwKr93QYqFGg
4/Z1m08mD44My3HHgYLcC5vP+tgK4xEW34coTQq+7xZ4wBYRQ87uoZYduhQs
8+s93xQvjWusGps+GVLw85uvv+ZmeQwJzm/wPkqBrrvr3Vuf1+FEXkyd7AkK
epwHb04IKKMZ17Om0oKCoVn2qCCPKlYQ5pXW1hSkvY/Z/WB+F65TPFAm4EDB
8c3ip94JaWCYoQJmO1NQZLKHXxA0ccZd6KWhBwUD5fz/8K7TQYvE0YKJqwv9
7ac4AU4G+Kq69Wm0PwXNlm+DJMuNcdPIi9ydQRQ0HQ7I3R1xFGNYCY/bb1OQ
Lu7Q8X38ODLUfR/5RFIwp/1pY6r7aTxndTZdLo6CbUk/JzX1zmBDsHZqVSIF
ZzoMTKL8zuK2/A0pNqkL+7un9H5KxhYTuCKJgo8oeBzgPOO5xQFpcjr+8ZMF
fLPifl7mF/G8IjfW6DkFKc/OdfIMO2OLIUZNvqRAbGU5b2SlK+7ySAmPKVvg
2zOuvXXYA1MSA0LVaiiQT8+IGHP0Qv4au5CO1wvzbTwpUZ/ug04j+kHX3i7k
u/n/5fPGFz+yVAJWt1HAV7jT5ff667hXXdy/uoMC4lX8tflXAfjQatbHtmdh
3s423vCHQSgc0uUlNECBem2DlPybEHTPr7icM0LByD4x/7KkUOzkPnQznqTA
cGuBytT1MNQkQ1ymZhbq67W4+kVHYLbixYuxDBr8IwsN5tqikGVk4rCLhwap
Q6tdtxvGopfHDrtOARpQq07GgBmPPYkrrH3/oOHGiW6jzOEE1K1hWsmL0VD+
9aYac0kS5o30mtdI0aB80qxSuTYZl4vVnrSTpSGPTjBLyryPX63CTJ+sp8Fb
6beh6LeHqHFvmXDDFhpsS5fvy/s7E+9+iKke2EFDf5a1/5hFNo7/IeXNCzSo
hmRN9XJyUFfn3rbVmjQUxV0pabyQi/f9ZYdBl4b52zszZA/m41zxgwcnjGi4
mXs8lcl+htmbHi2NPkmDhys+1G8pRB7bjfV5ljTseB381P5cMZ5KyfVrtKXh
frG6QplECRZ82qr2zZGGGZFZ3+SEUhRmvRhb5EZDoGp/4Jf95WitvytjjRcN
uxq9LdlLKrE0EM33+dFA18gMNjKq0elXZaPnbRrWzqSrJJytw1oVrcDYSBpy
9Fh9Bz+/RjmH+j3P4mjgHa1rmNJqRM80/enmJBpWSK0WEC5pwpau5uyRNBqu
cwqth0ze4vrlR84KZtNg5Ti3WWNxK94wbluhkE+DaWb3d56hd6ha1RlsUUJD
fIHceZY8F0PnLfZ7V9Ew2t/Nqgxox3+39/2Kq6ehQHk85MSSLtzrZJNX0ExD
dYXcEV23brybOWTb+oEG65b4ZtXfn3Gs54LsWAcNz0mb5v7UHtRZOd62uJcG
sVv/VNq49OFs6E82e3QB3yXRRyk3B/BwrSfDapqGpivvjCXbhzCLZBRcm6Oh
xory+2ExgqeWLJft/E3//x/+D+TtVCQ=
       "]], LineBox[CompressedData["
1:eJw9Vnk0lgvQfxF6nyVCtggRUkriInlmkhZCRLbckkK2xJV0oyhElki5si+F
4uLKUrJUCKEsIZTsciuSiurS937fH9+cM2fOnDNnzm+ZP0bO0euAEzeLxari
5P9Wpn1XT2EFG1n/F58g43vWo9T7bIyTk+v/78wMnM/VOl9Uw0b24qtsg98/
gP3BVt3H9WzcyhOzpuHaFGzjOfq98xkbr6Q41f4SmASxf76Wj7WzcWXO4XL3
tjH4cviK77ceNnrZVwrZ1I9AJyWjvvwNG6dDfJ93TA9BceW9GYlRNpqG+blK
Xh2EmBN7/94wxcb1bzNtbsUPgIfoGze9GTZ6E82snpFXYFTvrbz/KxtvqMZl
qZzuAWUfvgmHn2yMlplvmNr5Enhlk7N9uAg0jpYVETTshJG2zUdD+AlssF/O
pXuhHR6dq1+TQBP4zeP5c9W6Nkhbb/s6V5jAuqunotJ6n0FA78ebDyQI9BVM
KeXSaAK70IvWLTIEsjUeF9l1NID2VrFVb9YRKLxMVfbonToQHc7vnN5AYPfr
6bue5Y9hLgZjWeoEEhFFQx0TtdC+vdtESJvAdbeVh/wrqqDwX1dSgSHQW+ao
7pWeBxCVuNSkaUBgYuXAaMz2CnDbHR+2x4jA3/nr/2oeKYW9X5QMbM0I5Fbj
+ypfVwKKWVVc7lYEvis8lCj9qhiWmZnXBtgT2MV6I/anTiEML44HxDhy+DVr
ZS6TyIea/D+3ZZwg8OCLjJyy3XmQYiuw8M9JAn9IrNun+vA2/Ml/q6zOl8Aj
q9zvVntlg02Z9h/dfxI4qDkeZns4E3471qY2GUSgDBUVyOZJB5GVjtMLYQRa
+TsVROUlw+eab/lENIFCCT3dWrcS4YVHpKtUPIFiPYbdrz/egAJJWaVNNwms
Zs51CZyPhytNpWOQTuDDdxnzIqZxcMLPMMv8NkefDu/W9KIY2K0weORYPoF5
Zc8qXTdEgkKnj/TpfwjcIikd7scbDtxB/ANhFQQmVDmT2RqhMKSakphYTWDt
1aktt4ovQvWAmtXdOs7+UOV1c95BkBTRIFzVzMF3ySvXbzQA/LXsOtpeEDjh
Lmt73eIsWI1Px7zt5uA7cryOtd4PNOIvGc8OEDiq8Eo0wvYPENohTvCMEDiy
sEt4euAUzEwXNIq84/S8ewRT9ntCa8qOUMVpAoubrpXLubvCXaMefe0vBOop
NDbm/+cE4QtuLKMfBPa22fc9nXcE55xf1YdYJH7i1nXbbO4ABpbXz3nykbhH
zl7Dc/EQyHGv17lAkXj91G93D0xbwxeToiVlIRLL+KTqtFItoemmZn2nGImV
LxVfj9wzh+TxhxEB0iTu29m1dMHUFE5u0d+vKE8i/6Wq4vB+Q9gR2CTSrkxi
7I/6G0Xfd4FIs2n/2U0kOoV6PwlK1odJke50eQ0SUz+ZZOs5AlQ6HHJq0yHR
3WGDE9ptg+iCYZUzQKLnUmDsIN9v4LDg8kl2F4nWXpd17Q6ow1aD6bJnRiRq
yygO2R7YBHyxvud8zUhcHXx9b8GcMvQN/MA1ViQen0ywPeSqAAVKwXxNh0g8
W3kz94+/ZOHCH/yt3kdJdJS6Iyf/TBIO1EbHrXYhcWB5yQUN/1WwjhSxbvAg
cWdkXfaXlSthwSpJysuHxK8DW4typghoyZIdEfcncX+15b72ZbyQNp2T+ySQ
RLHIa6niyALvbaqeHpdIVP13avdc3wJjEHZPXTSCRG+q9bLA08+MeKfOQm0M
if7t75sMF98z76UfVbteJ3F2Z/LQrqtjTI3r7kvCSRy9BbYHz5S/Ya6Vte6t
TidRKdbgYvGqbsaJy2KFy20Sp7PXJxeZtTHaJn1dgvkkXpF3NAycqmPIm0du
VhZz+GeOaKnbVDKDY+OHj5eTqBlGnO6dLGb+UfNQWFHFwftiq3jp7C0mJODz
VMVjEj2+d6ywGktkrJv8i442kpj8up9OUopiVER++ZJtJKb8HiRkvxjILB4J
3VbWSWLc9PsLNnmeTHs+yTryisR1q5tn5ovtmOz5uIblgySO6bh0SujuYvx2
ikeWjJJIV/tx/QrbyBheTTOznyLxYtId73iuFYzUgIIo3wyJby6+Fij3GNeb
UcwfKPpCYr9WvZC4cqHeE58tmbY/OPfKq1YpJGqqd6OmwpmHRaG2SYiQLD//
thMEs/FvXgoPGJ0xMTDYr6drVT9rRVK4NMA1xqtTpLciy6iCtZLCgofhZx6Z
TuiNfGwPuCtKYafQqyzr8wJMmY61vqUUhRdELx5u1dzEhIe+4V+SozA6NsxM
vmQ3Y99xrC1XiULPkdB30S/smc3S/14zV6Wwfiv/mLbKKYbb9ZTNT3UKy5b2
RUZcDGK6S79J39am8OTm0uANZleZPFbgqClDobnD10m3+WTmnDHPnYWdFKKt
5YaChlzGNDHiZJYhhQlmpx/VO95j5MYENIz3U7goKVl0ObSG+bI54ftXSwpb
TgTmzZs2Mo3npGrT7ShUZX0IELbqYJIas0IMHSgMEwseqVTvYzyF1xvNOVH4
8taoycrZYQaPFAmkunP2N1jq54hOMcL5mt27vSl8UlV9u3fHLDPx7WHSJz8K
72fMx7Kd5pm7lsOSIoEUbuIJbC7kY8HJEr5krUscve/rHbXJ4QV1wY2rD0Vw
5o1Egk2HKJj3NE8+f5XCVt2xTzxsYahq8VuddYNCh3Cj62MvxSFofUpyQzKF
+46vGNUnZMHg8uPVU5kUDra6nGiJUIDl4xPJVB7HvxHT+9KrVKBVn5JSK6TQ
nYyZKfRSg9iMLSkWpRy+pcS7vjgNsFyykjpTSWFM6f3ZjfE6IGEfkJL0iELG
ZnvVeBLA4INMqZqnFGY21w7xuu+ELLHGlOFWCvn6treLVu0B59MfpHi7KHw6
tdtPctAYVLpWpir3UbhjTKnR8qw5TKtpSRu/5eBv35XDLXgQSmLsU73GKTRT
quno3msLfh+CpePfU8gTbJ1wfvth0DXKTS2fpdAw6mxZII8jsPJapfvnKZQ+
LHmSddwJ6nk/py4uUmjH5TVXbu4K4cfE1sgto9H9oLr85JAnGD/enmZA0Hh9
e/1q3eveICjjuOaEII0R6X17pTN94WXA5bRIURpDRjaW5a/zh8T+gjVFUjQa
7hvsMFcPgN+1O9M619KoGzixt9EjCNYmzK/5pkzjZx+3a5Lil2BiTipdYjON
O7ZYdPUrhsFdc30ZPU0aXQ7EOWrlRMDJIpd0B10au6qjniy7HQ3qdLRMyA4a
XZNI6QWJOPjmVpKeu4fG5XeEZ1+XxENlU69MiwmNmQrWrIe5CXBBcTF92oLG
cDhm4b4sCQxC1soK2dHoeOj4QehJheUjezI0HWhM8oh5ISaaCa3gKWvrTGN2
xJZj4ZHZEJt6LSPAg8Z1qU7Bk5Y5YPmzQjbDh8YKL4GWVwF3QNz2TUadP421
Ce9DLAT+htfl3HKT52mUoAoHJ6KKIVNEOZMIpbHppU9CeXcJOPuYyG2KpNHS
ont/ulsZqLT7ZJrH0XgvLdpt28H7MK2aKHf6Lxr/u+83Z53xEEoiqzMTU2n0
aWHrKNnUgt/UiFxVNo1GuzTPqTc8hm17lme9vUPjvNjxuT3y9bB0S3UtTzGN
K28M2Aq9eAp13BZZiuU0/lBp2ODd2QzhDv5rjapoFLdrkYrSbgPjmtQszyc0
WmyqePsrrB0EperWxjXReFrluXl4cSe8PPsuq/Q5jfL8U18/y3ZDYi8t/+ol
jSYm7Tuch3vBXnNr9s9+GpcemKvo/9cPsvE28jLDND7zFI0wDhyEsU+B2fqT
NM7dDFjzWXsY8kyz5Z0/0vjv2Ycr0nxHwaOgKTtijuN/XFDo/h/joEZMy//9
ncbKWU2zt13v4KuL8K32XzTWnM1Wukx9AJsrD1x6eVegZN/H9J9pM6DrEOB8
gm/F///r/wOJ2R4j
       "]], LineBox[CompressedData["
1:eJw9lmk01l3bxq8GGgh7KxKFMo9R4hY6I1NJZOg2l6GnhCKUyJBZpkRRSDIT
mUq4/jvKlFwaCBWZcyOZU+F+rvf98Oy19tofzrXOtY/z+B1rb2H7iyed1tJo
tCrm/r9TIsHN68UgF9D+f02TAvXaSbsRLji1V/ahybFJwsjpkncZ44Ji/qns
pPgxMsc553F1ggtkTWb9pM1GyHYfjqchU1yAl9/dKgwfJGqDkr/iZ7hgS5aq
rQhfPzlzTFstbZ4LpHwzEq7/+kzCKk4H5P/kgqch3GJ9ht2kYKdffeVvLljc
+L7LQbCTtIfdZalf4YIz3bTgXMv3ZP5HmR6DhqCCw8N77Ug72W7BuPlpHYKd
+l7TLpWtRL3+H8YoKwI53dTOc6iZ2Euz4LlNCDJsHGTyR1+RsEQhs3/ZEeyS
XqdgKlpPClcOJrNxISjMPqdiEUDI27OnPvNyI+B++6Al1qSGzLd77BLhQcCQ
JMrJZc8I31+xZ/byIfB2up3qF1VBNDLzs9QEEMS598iktZYSe7aGb3qCCNZ+
OTXX/LaYhHv2S5ntRsCZq8hYU1BAinr/uJ4RRaCQ4uFhzJFL3urwlrpKIGBj
GJe8mXhEFkoU532kEdCDuFW6FB+SHXyGymFyTH1u1mVFhWlE48b5awkKCJ7p
dIl+uZVCHCZC6On7ERgq1RjErrtDIkwzaIXKCFZN3xU/n0ogedEVusGqCHbv
uJAi4hZPml41x1qpIwiUH04d84smo8tfOvcBAtKmVJtUGEFYlWYE2LUQaJYM
rk6bhxJRVxbHYW0EsocXFosv3iBHsvkKa/WY8/ds7C99G0Ace2VnE48x+/3F
Zyfl7EuCt2n+5WqI4JPmodcTd66QzOPmgdrGCAR8xllTj3iS+lDnpp2mCDpd
2Hx4HNzJAN2fY9Ecwbdd0gInm10JbTHBjGGBQMmW40qZ93kiJJebmmPNrJux
L9rVOJFDZ2uG/O0QRLLZdvMG2xPb9HapU/ZM/UbIb8jHjvh/HHKXd0IgbyoZ
urfCkqRzLFVtOIegbWl8gfu+OaHrsNP6nRFk1vCWvOQ1IV/8hXSrXBH8NgzY
asBjRJaf7o+Nv4Qg6IJVicfmY4T/h17nucsIzqu1tSUV6BBVcRuBw94Ipoef
PbCb1SSWdu4OfD5M/ZybJGSSDhGfu6EFM74IxIpdZ36rq5Lk9pSZFn8EB7ac
r16sUSJVG4pVMoMQ1OUHVUVMK5CuQ/UB10IQPNaqFje8IUsWr3xsPBnO9Dfo
8IN8WQnC82R8i3QUAj2vwOgzNXuI0tiq6boYJj8zeGnPJiFiKsSd+jkOgcWY
7hI1y0c8/xYfKk9AkBth0WA0spUkxh+Uik5izuvs9aunKS5S3nzC3TEZgX0P
h6py6WbynuZYpXYfQexl5YHjEixkVuXqv1vTmfWMyKCWQhpB7tE63zMQaKxx
yNPl/03tzc+IaXiEIKAozvXz8XnKaKCiIy0HwasCM5uTVj+oi3wt/N75zHxF
vCkQ2DBGxRr32hsWIZhbrRPt0hykiiNn8sVKENgOarRYBH+m2upYZlZLEYS4
ist1h3dQk7/4VLoqEKSP3sdypgyKXVEuoOQZk9/Qxfg34o2UtLNmY3g1guB2
rxurfwh1NNN8y2k6gnOPrXF3y1PK+ZOzqcoLZl71+O3Xrn1CReKA+1wvEain
bv1QIpJD5R29PTjWwORDuyPvq0A61XwjV7Kumdl/j3gz5/ZE6lt1zaWUVgQi
WXkPc7SiKNa59mfuDCa/vfduWjUEUmLSw6v67xBY/j3rZ9DnSWk7LGnv7kCQ
HWc1ekn5POV4nz3m90cEJnEnCn9etaFCPgh1vO9BMLQxoIYv0Yh6xKbEX/gF
AbtOdG1g92GqXkvfPvgrArdR8hA0FKlBX5t8q0EmHyJPts9GCVNrKtyn940g
0KUejtP+5qSEJkOV2ccQiJYHDUYm/aKDyD3/4XEEp9OmfVKyB+l21sUNtd+Z
81Bwdsj1baJ778Tj76YR5Agni0RezabH9nlxfJtD4PGY/XQTmx8950GP4vIi
gqazeo9nL2jTqdPqp9BvBMZhTUcnDyzVfhR+6Cu2guD14YjHOwvca6cG12cc
pGGQVSEyeiuZ1axZ514ZrcMQO3Lxp+O/MbW7nN6MObFiKE1XirUsZqUfENu7
xXcThmLfu3HLd4zoht9uK8SzY+ju6P9h2htMP5v30yybE4O+Z47hgcUiuv95
q2vVGIOG/NeqkUYG/Y4USW/fhqGoW5XheGScXjyx++XwdgzfuAS8F7etoxqL
wr794sfwKSSBVha6nepzHWfjFMSQXC20P+iODLUoZ7hXZDcGnprOtYIMDYpj
utT0L1EMy0fTLrDxn6DESrf5GEpgyF5pDm6l21AaHj5pDtIYbN9NKCWIXqDM
9/XWXZXD8Da17f1jxhXKbR5GYxQw9HgZGmpLhVBhlVmbH+3HYLni/57/VjyV
7r1RvkoZQ+r1fQqSAfeop8ouJm2qGBYWDsbXlmRRjKX2K4PqGHJKpry2pJVQ
o8/3pf4EDAdt36W6lj6jVq/dfcF+BIPX9pV1Ix51FI/an2FhXQyiVU283sda
KLkV203KRzFcz23i+IPeUzpUvazBcQzCYrnPtK71UDYBYifPGDH1qDyyUKAG
KE+I8vY2wSCoo/+acXGMil4zde+mOYZ+Y21jv9xpKqvemGRYYHDgDTzU6LtI
1QZXDlVaY0gK8PvgvG2V6jjCt7HVDsNL0SjOzoV1ZJLluky/PQbNHRJxfnqb
yfqmfqMFJwwTvgt+AnKICEQc8dp8HkOo8LI75wkesl8/L0XQBYPWxfBAvRYB
YrCZndp/EUPZSrO0i/du4th6cVDfAwNLS6CEaIw48Yv+wGrnhWGF0ZPeMyhL
Eo8rS3texdDxIrn4Vp8iKeK4fyLSF0OWst+JzGfK5FX76uV0fwxsNt9lDIvV
yZd4++TyIAzHaJIHBvw1ybxxY21zCAYn+T2R0os6hJ1baqA3HEOrn5xE/VkD
ItIRwzIXhcHa3nluc5AxUUuakdwYy/T3oNSMUZAZMTU3M9x5C0O9zfwGurkl
ceF97qGYiMEmT4Vjw7bTJKRb4K7uXQxPDmy99yjJgaSmBNZY32POW8Zg3Kvl
P6TCcvirexqGmznXIqreuZA3/HrrwzMw7BgUZqlxdifDXwolUh8x+fmuuEtz
jRdZTuM8XpqDQa57Mt1U14dstbvs3piPYcyB4+1Va38iI9SV9LmImacygZ/t
isz3eEC1eroEAyo3qdrQFEqsMtP7WMoxyCd5vVFZH0XqG+qz2J9i2PlJUqt0
KpZI/TPqzP0cQ1xEqnOZdQK5xc6msKMWg19bbp9+QxJZkpf/KUQwlIdkW7s1
pRA7ExO6eD2Gtf7Fn0Wvp5NG7yvBcg0YVHU5o53WZhK5e/f1lZox1Anf1BuC
bJJEJ5xqrUx/qz1CyjnyyXL/UKcmA4N7tf7NH8GPieP6jan67zA4RwnftbIt
Ja3iMvZGHRhcUqSif7hUEMVjRhKnujDcaJii99GqSIqb55TNJwxfTRYNYvbW
ElpCcoVjL9O/3VUT+OYLcq6y9tqFfqZersPrhc69JO3d/eAxxLy/2Ozlk3WN
5MDy+g0+oxgYL/LU7he+JumCkm0B/2CYss3JDzzUTli0jt8Om8TAu7lqU7/B
e+Jy1t0i5geTn11UGatbJ/kQmSSYOMvM08BZ7j88PUT18fORewsYWLdW+vy0
7SWZb3sLHy5hCDudMp21d4Bsml/jkfcHw/ePvkc2CQ6TS7xiKiWrGCaPV0bf
jvlGulWPrlau4YZWtrsD8QkTJLcq5Vjseu7//bf/C1+NaVk=
       "]], 
      LineBox[CompressedData["
1:eJw9Vnk01VsbplSiiM7eVNxQMqXcQxqc89vvyZBMIYWiJFOllCJTQpRknjrG
IpkzhGuIQooSCSlRkkLnEJFLV7rf+b4/vr3WXns9a++19rOf533etWXt3cwd
F/Hx8dXx5n/XeiXfXtURGvD9b0yS6B9Kvho8vKxWSsRqaoJw3BLldDg0kK2i
5+wr5RBd7qLn+8dpoGizweLUvmGSvM3FY+skDTSabymt/PiJTF5ukxGepoHT
7Vm+ou8DRPc5/cXwDA1CQiL8OwT7SDKNfbFxjgafjav2pg72kIkjC3Lp8zQo
VqmVGLbtIjp59u3ev2mgY66dYeTQQZKmm70P8CMYriBCnx62km9MVfk/BRCE
v7fan+HTTLRDYztWLEOgptWe7PH+MWF3zvqOLkfgb7dmSU1bPfkmZavQtALB
v/LlBWGnaom2c2PnLVEEa8z4OdFLqwi7VMHfVxyBW6inXaRxOfk2H65kiRBc
kZnNNd5USrT1prrpkgg+hOJZrZlCwo62DBBZx8Mihq5Obrlk/F2tCkcawZ6f
LmlUShbZLS/35okMgl0Gw6sbbTPITbdrQRkbEDw1TBUVhzQyVj2memkTAq/C
r3kGaWzCEjDvtVJCUGz6THzb/XiSaFIZrLEZQXl0tWSPfQwZY0uprdqK4O6L
Elr/lgjCGgrs4/6JQGAj6sq9GEoSVUeuNmvw+OZpZvVeCiZjF43od7YjaCjv
07PfGEhYjaXv/Xch4L4/7q15148krpC4foiJIGVRWa3ayEXCPeinoQkILF+0
0enc8wQyBgfEtBHcu9DdJhV3liRw9W6M6yIYvZuQ9iLsFOFsK9R8po9gYxjX
suOtEyEBYp+yDHn6nfjWEce1J/HPPSMCTBAEsrPOLNM/Sji0/h02Zjy9LFrF
s15aE3KU9Xm7BQInu/ytfqwDJD4vO2q1JYLYrXtEJy+aEc60sNaENQJG0JVX
Z7KNCKHODT+34b1Xs6V94eweEh/aE5N9FAF9s4jQPjlt8rVTixlkj+Aovboi
TJF3XDpj1NYRgaiVcWiK8U4S57w0fqcLgkVrHEY/X9Igo6WnCDqFQCfrZoJc
uBph/urgTJ5GoFR+M6AxS5nE6mkmvjiLICfvJrPymDwZjU5h5Z5HMFd8/9nS
tbKE2cc3fsWTx6fH7eTD3etIrLwT+6g3gp/PMtYU3EVk1K1VW8sPwXeSVHN2
vRhh1qhN4MsIxIQabFn/CJFYgcTkqUAExtYBL2WUlpARk3nd9mAEr4y+f30T
wkcYSXbf864hcD2X5rqk6CcVM/QkNSQMwS9lzaLJd9PUsKqK/rEInj+6NY9N
w75RWl7R04xoBEY1D9LFD49Q0Y0z6ZJxCKxbHf33NwxSwysOG/xI4GHT0uU6
Xe8oLcv6mZdsBG/TV2SJyHZT0RnyGQUpCDyanxTV/G6jhrlhRtfSefdPT4VK
bnlKaWlOztpnILigqI+Qbj0VHXDgDpXF2xfQvWqSX0lpqPpOCucgCKIyzHyU
S6ne3tvM3jwEhsmq1yMLcin/q0/DsgsR2DglqbwMz6Dk1MfenC9GkC41vbK0
jE09HRCTZ91H0NKV+lhsawx1Kny7u0gFAhnnhMdBqdeoVTttH/VVInjgL82V
4w+gyr8ErcirQWC/UwE+H/OgrGJzrT3rEKhcaq90+cOVWqDas7XrEaRedSzT
3GxPZXKnp1c9RpBmwGXRVlpSeuw1rA9PEOTOZPevzzKiODoksqCFl5cgOet0
BxYV9d2hz6sVwWJBqw2+SRqURnqYol47giLla4OsagXqrUGJx+pXCI4nlv1o
9llL+c2+bvzYhcDhzFlBl9AVlGzWvGhRD4LmmqG2rrAF5lNTWVvfXgQFa4Os
HXaOM08u6OXr9yOokEhEH0/3MUXyXWfRAILoIPN/V29vYZYdjNUZGkRwcbXu
pb1DZUyrxVUxJZ8RHCzZHqj6dxrzV/H7D5dGEOjJbnpFMw1m3rZZvNmQw6v3
M9H2FYouTN3lSt6S47w8xxc6YGN9JqfC5OmXCQTypmvGChI2MCPtL6wum+L5
YX3SbPXOWQZdNNkuYAZBZ1r9yXOXGxg9Dx7dM57j9Ud3u0yGujfDx+XLP2vn
efmo0lQvCBFjrEfC+qMLCNYxxHDLaWOtpga1hAo+DCadDUvznfbvcjlz8FPQ
YgzD8b0ZLhFNWiXNGX7SyzEkJJWktOZmMCwuND/jCGNgVPwy69v+kfFTZhxX
iWCYi4eeyI+rmOlt4g4hYhjeXZZ58MlwB3O3z45ScxqGu3wt8wv8h5nDm478
Xi+BQb/J1TfnuRfzRtcVw/E1GDZGaWw6cyeOqRaQx66RwmBgl3g34l4Bs3vz
yy/X1mPYxFJia9c2ML16f9APyGHodDYlnfyvmdJX1wbIyWPInJn8Ibd3hNlI
h7YJBQxOkoKhdIc5ptOA49o6ZQx/Ue3VMxaClFD4DecwVQxPlIz2vN0tQRXv
KC23VMNglXlevv6UPGXxpYdfXp2HL6JvVkidmov5ZTK1DcOxaXOx6ECgUim5
1Ec7MCwdP6dW0G5Isbh7voZrYUjcnFrf/OEgNXzztOYhCsO5Uo87u1zsqTCd
uCsKLAxeBw8kua88TW35XtXxQxsDM3eP1ItgT6or7YN0ox4Gu2pbG0OVQMrL
QOBU1F4MtiHxkT7PrlNSs0pVNkYYRJ84f66UjKPq7+xborwPQ5UJ3b+Ym0I5
mnqYz5phUDsmqLugnEUJLSTfarLAUHY486dCRyFVlFc/FmOJ4X1KzrY7R8op
w4FtEqmHMDxviAvxPFhHjdIKWNm2GNrTC0/cGGmiQgxkXEvsMJT0qc9HXG6j
5AISEmuOY+jw7IhVuNVNPaoQamhywjBYmhb3LqGfsuFe5raf4Onb+uifbTlD
1E+ZGdTrikGyzvkhrZNDJR48CUNuGGpy/Du/qUxR6uEDJ8fdMay3Mim65zFH
dTRYJMx68PzD7h7vDvOR07PPHvF7Y4i+9vzv0volREiVcIT9MMgvEryX/XgF
ybEvp+HLPD4WQmgZV5zosJWITBCGlMyBlveNkuRTW/oJ5RAM5p7n/L7KyJDL
i2nxGqEYFL2xKT93I5Haef0hdQPDH33mpisFVEjNmd+j+pEY3I8711va/Uks
s86v3h+DoTR4vPihjib50TvKtI3HYGTV/6DKjUFiRI+4ON/EcMm7eaWF5G6y
Rbcr9lwyBs2b5Q/Cf+iRVh/9Ot80DP4fHiTZChoTl5K6kZDbGPLFPb+GmZiT
JcN08eg7GLQT1J/Sl1qSzHW5jORsDN7Zs39/H7QhxEzaOSuPx8dDtsFC3J70
X42NKSrEoCG012Qqyol41y6rrSrG0PVrRNpvnSvBU37Djfd5/BA9/77XOVKm
MLWqrQLD8cOJSUn3PIiprbPWmyoM5QcUu2V6fch4bL/j4AOevlk90MwOIGEt
ZtHchxhyMrulHPyCicLvpzUzDRhmVWymjpPrpEmd8eXfJgwDJ/f2GIhHkWMn
SkWFWjAEyOkPzknEkd/pm3bRWjGQ5sA9fW43SUp3isMf7Ty/dzKLxWpTyQ4h
sSjFV7x6Vzj24To7g7wmV6vp3RgcBcos4dpd4u4xP8R4w8vHvCRVb5pPRAvO
iux5h8FnalyTI1ZCCj9+2WH2HsNKw/CR26llZC8+fPzwRwwzZ88k/M2pJMOG
HRGOQxhePameqN1UR4IDdavchjEI1lptO9rQQGQraz55f+XlxdL9mHX6E/Jw
bOvK4DEMcZGm1a/2PSc2cne3R05gULrlHvAXfwf5abnWnj3F61+KduiIVxdJ
jIgKz5zBYJglXFd17w1RfyxQWTiHISrV+ZFwaz/pmPMe/GseA5ZOZBwKHCSn
t0wIN/zm5U/hmYjU3i9EyMFBs5VfAsIgocX501eSk9Rr91pAAkQ33h7V850g
fEFtMauWSPz///4ffC0/Kg==
       "]], LineBox[CompressedData["
1:eJw9Vnk0lVsbP2QmhQx76xbhkIoMl1LpQYRKpTLEdTlkvsqQomuISClkCJEp
UidDhUjed4siU4ncKCSKhAiFW/Sd7/vj22s9a6/nj/3stX/T2vKs45bHuBkM
RgWn/rvHJzN6XT/LAON/a4qYN+rUTI/JQOsl5km7iHGiWlnuMfdFBoJ5fjLa
eUaIUKGm9M+vMiDd3l7pljpIRq/efcL4JgOmiold9YL95Fm0mh/vvAwE7rEy
ZRp3k1uBRWuFfsiAmYKybnhmJ4lxVW0TXZKBB8SWi33vBXG3uhUswYWg6vf7
qX0ZTcTUhKkiw4Ng0dHguu/dJ0RZJ79rNT+CpiV+WvxBLeFjrouUF0Jgwiu2
XnyxmgxL5mxmLkdgs0olRaKpgjTwrulXXYnAdX144VTSPVLwLSNWXQJBblDE
KNfRInLuI9qqLYXg7dXnn3p7bhKXrtThLQhBq/CPc+1ueWTXU8nkHasRrLSt
FCA514liRZKB4VoE+7pTPas6UwlPgdikyToEj1M+tYkqJZGh5PjMPUoImJvs
xjVq4kjdueXmB1QQJD1txPIFMSQvIHbu8AYESwKRZzdTkSTCRbDAVg1BR7Ss
cmxyGGEdPm/poIGg6KMkK0cviBju4mU4ayOos1OQc5ULIPLakcVuuggCShIn
FAROEIYil523HgIftjpXU5gHGZAIE/DdgeDTkMbTU/oupHbZYsVJQHB2uqxs
WsiRZM8EOwcbIQjmUmDVOdqS0KH5lWEmCK4uy01mChwmDp2BdKQZgu+suO4D
cfuJfv2sV8xeBKLWO4PcWk3JmjI/dHk/B0+vx9m/ThiRpbyphiuWCNgGLAWG
uz7pS/QJuHoEgZbhWZWBB7qk6uBHJTcbBLLCturBdZokcaX9a107BMvcA4aq
r20i3i86YgQcEAw1Zfh+2KNMTOLM9HocERjJGet+3r2OyO2rHbvtzJnfrubC
n7Ga/BDWvR7siuCLytRv9/dLkX+aiy32eCDoO6Mq8peNGLl7QZGx2htBe+Zi
eOGAELlomnFv3AfBu6Hkg32Eh7jwiztTvgj6zZKf3/v8i9ZviFkVF4BAzJi5
wcR/nkZRv546nEIQxC7UW1c4Tc8aBZ5SD0bwwzMrW8JqnH7OPaHCCEGQonHk
GvH+SN967PymPQyBCHPzSp61A3RE+JvY3AgE13cl81gqdNP2Ow/u8ItCcG3J
duWJhZe0zlLjF8MYDh5vuk8ez2qmV1L6ORKxCFqcGx1/ptbTY2cqDn64jEBP
+mKfNruGbtDbuKwiAYEc3+6mI6/K6ZyFvPKoJI7+L04M+q0ooYOrkKvVVc77
xkS0Pp0voA+fSpBWTkcw8SNhj+y1LFpNh79pLgPB+QObY5WupNAC30KCn2Uh
iOBeP5kiH0cPls1uSM9F8Ewa3Lp7ztGUn1efRz6C5u9xGtNX/qbTNAbj9Ao5
fgn1ehf6hz/tN2UDwmwEFioDretmPei9pS++vi1CIFTaTCmqOdFMH5MbRaWc
+/VUznf6WdGMTdThkPsIhHdG2r8a20u/GdPis6hAUHmNVWtha0iXs9mVa6oQ
DCp3C+mO6NDxHvIek9UI/KNdfvOU3Eh7qqThWgqBwnq24LEhOXrXiGhrQi2H
34CtIawhCXrNzagQp3pOPz3st3WIj553+amm2YBge9NQnG/JAtWh4D/A3YTg
hPWsAuYbp4oGR690tiB4wJh1crrZR0XnOhrlP0fg1XRV1nX/c8rJ8fVswEsE
yO7PgzfaKWr7Woubxq8Q3J3ryteTLKKk+p9YS71G0CDtZbZDLZ2aytwmONLD
OS/yyvmIdRTVbHe/urIXwey+yij/6RNUPl7vHfOOk2f2oiIvv9pQoT3Zv9kO
cvR8yYk60giUTZrUi/UfEWxLYvx+0VCR0rK+HP7vCALq9RsvzeO8lKgUj2bL
Z04+6K0SCN4yVPPpVfBQxgSC0y+zzxn1PaqpS/qa7D3F0euUkRTDI64m09Ld
ZMcMx8+b0mp7zK1qAsXezS3/zsG/ar3xoXmxmoPtR273zyPwG1PZIGBa8YjP
wkgkfAnBQtSPgd1ZvNXHzdZ01AliuDBR0RDRvLzG8MoHx3YRDEH+8bWCaTY1
q3rYk30rMGTKu9btVk6uGZHzDR0Tx2CzQuRNC8/Tmmp33eULkhgSd/qEFM5N
1ly+u5jBhzAcezcy9BAkKMf5etVVqzG48u8tfcjSorTg4kP5tRjst2V/DJ88
QPHFHDBVX4dBQpI6c9nBk+p5IfV6uxIG/mXGzxxuR1BF0n3HzFUw3Gx76vnA
MY0K+/PGrPUGDDOsFU/PU8WUZaFH5DE1DAFOqYXm+DGlNKku7q+BIXBbmVJu
aQc1r/M9J1wbw6F54wHRc0NUc2iNepwuhtEsXNKWMkNdb4igM/QwGC9/ZDA4
x02fEDXbd3sHhg/F7JagFjHa0GpF7wPA8D2/yZPaIkdLZnV5PjHCEGU417r8
5Ub608eMhZcmGLb9HPt++tcW+tEmVsw7Mwxct9RjV2w1puNOqkhP7MWwferu
nb/YB2kn6kvBv/sxoDqP09Hv7Wlt3gptgUMYBkSsB8N03Wj+fWfqJa0weD5Q
PJXj6Ee/STawVLDF0FucJ7Sx5G+6uJf//WZ7DPp7pLemS0bT4YrPj+v/ieGa
SqbBx5YE+pB38tIeFgbhoJu5Dw3SaWb50cu2xzD8kZ/KpdOUR8//kFvt5o7B
u6p/JpZ9h24xGmEHeGEAPcvTFmrldFZs8dYIHww8TP7NbDWKPtHp/yzeF8NR
s7wL1eNPaCNZPevrARhMb508LdfQRks5M4bZpzDsjuJKEeTvokfZDQFVwRy9
eLjjgdA+umb60rKGEAwp6cobbS5/oOP1DiV2hmNIDW6x/BI4TrMikPz7SAw1
Pdmmr9Jm6N+b35V+icbQIf4l8X3Xv7SA+E39nxcwWAXfHtm6m5u8tfVuE7yM
oUWrQ7ivQYCU5GraSydg8J0X65p5sJKcHZ3/rJiEIVbsLW+tvxQ5rEGCNK9i
YPrI3DkusIYwg6IEIJ2jN/sTX19wKZKF2j2p+zIxdE6GKjnFqZJWAXGmXTaG
2iSHoI54DZJ1oLvcPQ+DdmmZjhZTl/imZRkFFmCwrd5SW+mpT3YNuHRE3uLg
IUPctcaNiLTKBqcrdzj8Ox5V5uYzJ5+Pf53MKsGQXs1bYTBzgFCVlaFF9zAo
jbxmbeGzIgm/QpZXl2PwxwbTFpfsifPuXZmNlRj4NLZPVZ9kEZ14oQ1d1Rgs
3ajNzh1uRPB1+8NBCsOVr0Ls1mIf0rsm1XSqFsMnfuU3mZX+pNT1j9eL9Rx/
qs59j98bRCJKFFyFGzHcSuS2F9UOJ4e/j87KNGPY6U1l4YfniLL+3UhmG4c/
OtNrMfAimT18XIrRjkHOnCtGOCOB1Hmp3e7pwLD3zhlmX3sySYiY2FbWhWF/
diRbQewacUgven6pG8PwxeGUQxY5ZONdLyfXtxw/OITPf3LKJwsNqrM7+zE8
NpqQ3X7yNmnoG41G7zGUC5qZmzSUkuTZW2hmCEOB0stvS+1lhCXsXtQ6jOGG
8mzmUlkVUV+nvPPmKIbrY9qyMY00+bll+GXYOIYvzRr4oWo9ad5f4GI7iUG9
6YhwU28jSXN1mdOcxuDkfaRIqqyNHAtRuCjyDYPZrqPNrOAOopk8uHp4DoPi
K4+2bYv/EMad3FLyLydftAbUrdN7yfPHjobpixw/Hrq0o7PpPcnoXtvlx5CF
NpwZJi8/TNwn+932LuP0DLHBYzFjJGp7wZPNvLL//z//B0/yTKE=
       "]], 
      LineBox[CompressedData["
1:eJw9lmk01VsfgCU0CFFRsrchFV03ChXOf++fyFDKlAYUF0kiM4ciTmhQIpXc
hCSVKSKukjhkijIkKiSJlPkSlfKe9/3w7rX22h+fvZ79/Nba8g4eFof4+fj4
Cnj7v2fXok3o0aAM8P1vjdKOojux+iMyML3pVPK8+gE6Vux/y2RcBsYONxnl
iPRSoZJtD3dPysADCf34u6rvqUzp0mrbaRmYr+/rLKvbTlUudnSo/ZQB9mbN
rDDVFsqyTxsX+C0DG/hVzltZv6AmG9zmv+FDsMiz4KIpfw215dfA2XMReNic
5lv9i0vdWn6qhwkhaLh52mdyXik9kVZhbLUAwZ6MHMdHT4roeb8oO+VFCE4k
51ipVDygNwws/X6JIlhI5udz07JpjtTKqCZxBM2hzl1LXe7Q0s89KbeXInBa
XmXIZafSF8UZhYFSCLa6m8uPKdygXee863dKI/gRJi2Z/O0qHbbR7pFHCDrX
bGm4sOwS/a3CPz0pi0Dlq1V8vN95Kvq7VqROAUGut02Cq10kxS9jVyWtRvBH
gturqdgwuj5lv5a3EoK7eb9vq8cep8RL3tTgDwQfUqeUWxL86K6tA07S6xEk
zV1nFt/vSQ8uyQsaVkPQrnfQ4LCbKz3Wy47hqiOY8FAOV0h2oiEPIf3qJh7P
yuV8ibg9jY6cX+KqhcBSnJ3Rw7efJu9tbCIsBI5xmaPmRy1prtK1fgmKIL0j
4CKW2UXLvtv96tNFoPh3zHsHE0PaWLd2yWN9BBm+Jlte/dKl3ddHlC4a8vwx
r8z3PdKho25FxHE7Am1Z2zOp5pqUj5zcvXknguETQbuMrdXoYjFDV2EzBCK1
A/d2CilTuW7R0PcWCI5/LsgRXbGKquW9vpJvxfMRuXrXgDiiwEnKPL0PwTbn
rvFkMUlqZulcbmOD4O2amZYFeYupveL6NtWDCFSrfqtc+XMB9ZycHJz7F4JI
7zhtrSF+Glr1hL/dEcFfHW73RW1mSEx8xPIsZwRKTS1DbcqT5KbLzvWhRxC4
Wv+q1mOPkAday/R3uyFou/eNk7mzn3AXdu5X8kCwr+Bb4Jf1H0jzuzSPGS8E
uyolPYK135CeLLeIRl8Es7nUQNKjmYwHa1xPC0DAn6pcEfGijvCbzuSygxDI
nNI4JOlUQSTkKqtMgnn9aaZtbux7TBTGojrkQhEMVHXeSpvMJxu5luMTHARr
Tlm+THLIIlvjVs6vjUBgv6LKmi2aRiycPqIbZxAs69vYcn1tInHQzFT3ikJw
+YXTF7fkOOIt5GO8LRqBsYmTp9uaKMJp07ZbEYvgZ4db0YNUDrl0l99vKA6B
bUpZyMjBQJIaWHeu/CqCDbNa2b7YizzYfinlSgIC/UXH7mt/dCbcldaFRxJ5
7yVGVYNNDpLmQfl6JhnBWZTB3t1uSXqeDHwQT0UgF35TcbjAmIxH5019SkNg
atQQ3uoDhN8+UOTRHQR+X+6dnqrTIBIbdFdFZ/B41xsLtwwqk1X8C7Qcsnm+
/dPn3XgjS1Rs5VR8chFYmdXNCfCRIBqFm2XD8xG8vjV8OnNCgDCLTSWuFCIg
Ii+sfbdPMQauzoLpxTz/z7cKBhoNMLsqg6cLSxBUiNUMs5++ZfbiK1+rnyKY
CbggGcB5ztizs7raubx50bUsB/fHjEtzRdPAMwTQkfwp6GgG46XyrvJHDa8/
qbG1vSHXmKDI8SLhel5fDU21ChURDKd7QabMSwTrVx3SOu7uzURpyyf92czj
xzRuL4o+wFy+vCWWtCK4eUJmKs3QgEkcNg03bUfAdX807WWgytw2Ohxg/w5B
b5ChlrDGUiYnNcTVqwtBXCxOCMqaYhXNXDnA+YBA3sFYzSC3nVW2J9ssrheB
gHhOasH+QlZNbqVeWj8Cu0WGrwR+xrCaFnZsevgFQQTrna1YuhPrrdO/ylVD
CI50+OiHP9nI6ildiNpGEejoCr4uq/qmM+GtNff7NwSa7OA+vUgznZl6s28L
fiB4aNrhUeBbqy241mVA+heCBVpVqpTvg5bku6svWXMxHItlIt3iBbS19Cau
h4phaFRtEU7n8LG23hC+GCuBIdXhretNKW3W9ikFTuoyDNZslwhjITeWpbm2
X/5yDGPs3qHxrKss20xzl8qVGNTebEosPf+E5SR4xKYVYwjPdZG+rt3NcrcL
3dUnj+HH9OZW+UWzLP/ieN0pRQwf8lQkI0KkmZAl9zXmK2FY7dH5XDxKgznt
XrV2xR8Y5h9RrVA4sJOJqe6UXrcew3fPmVRWjCNzTX5SRGcDhl6/fc90I9nM
zeOL5phoYNCfs/Cf76suMBmtqyZsN2N4mtlxTuFUCvNAVaffXRsD8lb17hnN
Yx6ftXgbwvB4P58Lc55xmcqPRxouAoYjHzt2LZ5pZhqYsLIUPQxN1a3mp5J6
mNfx1/LzDDAUB49OiXPHmK6x++lcYwz/dNY0NHL4SP+O6oQWEwx55VKZ3b9F
yOjtrvO9phiWWrR9ds6UJtOzkycnLTA4eVXINNG1ZI61iI/QHgzpw5y93X3q
ZGGBorPUfgy5fykM2pcBkRBl7VeyxVBXbvt0iruDrHSxNNGywxAn7iw0krmH
KHJd6XYHnk977Dek50BUZDgbbQ5hsGFLLvMXcyea/gmr3VwwXLRfp+nV7k9I
Y+7y4KMYYof768e5YcRgXY1w9DEMR+PqTKd3RxHT8Pe/k7ww7Kg6kKnecplY
ZI9MHvfFcPbEgJ3c9SSy5/Xs4L4ADCpqQSBtkU72z4r1agZhCGXQE45yLrFV
knsnEYyh8JhJ8z5aROzN1ZpHTmKYuVW2pTKxjDgGQW09BwPWT1grllBNnG+Z
ld2L4PW24ujMv/caiWu9fVHkGQzqgnwN/x5uI+6TnjmOURhKXZtiTKy7iScO
uw3RGCq4rwXzS/qIr2FsIorFMJqSorMtYIQEeN6M+xHHu4/QVSKYPUmCEvLO
tV3FsHFNt1BRyS8Swi0PK0jAsE1vpdyQmQAN+9rEjk3k9X2m9o72HWEavrTH
41gyhjkDCo7OZRL0DDPuvCMVwxJd5SMle1fQKGf+g0q3MbzcwMX3xOVp9EUJ
K8G7GAz8+X6Wf11DL/2jYNKTgaFtYDVbNHc9vfJho97TbF5fB0KHNE9o0GsL
9bQTczGcGjIyyjDQoYnqlhsC8zEEiB5+1CezlSbbOirtKcSw9rNLQuSsIU2N
8JFVL8ZQ/vEslSs2pek5pyQXl2CYNgmMWDq4m95rixMZKsWQ5XG79/Q5G5rF
lyZQV47hzdMVv+OlHGiucsHP9EoMXqgmQOrRYZpvUTl+qhrDi0/pYLDYgxYe
fzVgX8fzMdDjaLjTlz5K6+1mGjBE2W0aMTgZREsbJtqkGzHU6L7z9dAPo+Xf
BF5ONWOw55g8ex4YSStll1W9asXgnhJdvWPLBVpjtPpJXjuPfy7rx+z0Jfrc
S7Mg+h0GOPSgtifxGn3x97bMo10YOsGqeF9fMm2usEo1+oBhkE8p+/ydNNo6
eChhdS8GxS9PyHBxBm1f5h/D38+bNxul0kTDPNpBIk+/H8BwX0RRoWB3IX1/
+GpIySCG8z62vt/bSmhPTLpfwggGM+f0pOwkLu0rLnTzH8dgmCbkKzC/hg70
VDlaTmLID5ujWj/nJR0UbrNWm8Zw90Xfmu+zLXRUo99c5CcGf6tre3H9Gzpx
YMroyy8MqrUZO5be6qZTkfOgmk8WOl+GR+T5faI/7kttTpsrC627RxSE73+l
C2Y7e/4UlP3/f/k/5CgF7w==
       "]], LineBox[CompressedData["
1:eJw9Vnk01ksfF1HJkn0pNZM1RZIl5eEbQpusLdaiLE8kW5Zs2Svh2hIiVK4Q
hRt5fr9JEqVIWUrWKKFLVLrF5X3e9493zpkzZ/75zvmsZ7Czt+UpTg4OjhL2
/u9Zm2debRqIgON/6yuRM/r4JYh9fxPRr1v4cIo018yUjAYhaNJd5eZwZoww
FRddzUMQPDKZrWUMDhO+a7xyrPMIIvZoYdk970kFr8SwYhgC/9fCViNtncQy
VDYvLRwBn1yxSXtDO/n+91a7pQgEtdlxdVW7WshVJ13J0xcQmDluWBMU9pjs
7DDt6o5CcGtRt45Pi0X6DWxSDWIQXJdyX8YfU0Miq08cuhuLYGAsnuHiVklk
Fc7wSccjCE6S+pnCUUKeXg15FpuAYIWd9eU9q4uIx6r4uJmL7Hn6CYwLi7mE
73yaocNlBKUrLk4HCGSSii/5HM8SEZzV5Xwt/iSFWDqWURpJCB68vDKaHniR
/GivDbmRjCD1yTqbQctokrW7SZvvDwSf8i75W+8PI7uqOr4HpiKYPti4bEnl
HBmQG7g3ksbmy06Bq7HpLLmQOXHmUAaChrf+387aeBC5lT8312cicCt8fGpJ
2oU0B3ONK2QhUFu5wWqmyZ4wJwVvp15DUJSTX1xeYEP4Hda5LGYjuC8a/Z1X
15xUtikhZi6CqHzffe8sTYkVaPZ3XUeQeeJAzb2tBmTu3u7s3fkIcn6nJZbI
7iLXZM2OlN9AsIXj8vJ6DQ2im2ErKlXIxn98WWnPclUyyOPWEVPE5i85l/Ou
ngKJCvJL+noTwdHQ0ifKPojIT0Tst7+NgNc0O+QmQ5K02CWubClm69UnrlvQ
IUROv8xq2l6CYEO5l7rbel4ioH8rKv8OAqO0XjdFMS6iEnDs7qYyBCKL03bR
gvP0gVL+3qpyBLGegmLTa7/RnsMN3HoVCII2qQWfHpygL0uc29ZSiWD00s1Z
p/YP9J2Dyg6W9xF8m+LkV9HspZ9HDyT0VSHI/VIuGaz8mh6vS612rUEw7Mkw
nuR7Rq/8ajz09S8EaYyChFUqDbSiwvzq87UIFCPrJPczH9DG9hXa3A8RJD8v
dFapq6BdU11ckuvZek/bb/c6douObZFIlqIQxF0WJWkXc+mbi60Pi2gEjJh+
X4npVPqJRuQnlUds/uKfa52cSqBHmBrCtQ3s+YwFvnaTSJqz4DPDoJHtd555
TW/RABr35Hq8eIJAqcDb7eLq0zTwW2QcfoogulBTO1D1BH3ckLthqBlBnuOz
o2Y5NnREcN0X5jMEVZObB+WG9tF5FV6SP54jKJuqb3COBZr+iI0iXiBQGG4Z
LRXUoPvXdnuvakNwTc3ARIFXiV6wuJST1o6grTKTh99tHb02Qa9ZpoOd5/CY
wY64NfROena2+DUC19WMJscvnLTt99vr1TsRWKYxVkjv/0EFK9vtY3UhcF4K
WDkaPUZlHRc8Z9zDzlunyLIp33dUbWZjwau3CEo2WNVsmn1O9bwIfGnbi0Be
4PrYi756ao5zy6/R92w9zR4IV4uUUWI6Q3Le/QjeV5blqUTlUBre6ea/BhD0
dq7x8Nt4ibK+ZRoaPcR+z8Ip5RNHEOX3fqGY/wMCrjSDTgnGKSpV6N6bqyMI
DPlav/eusKTum5xawh8R2MWP24Iug+oIk9pc9gmB3o3XnqJRCtTXqpeHtT4j
2Bi2UCZ2bA0lOHEh6tE4u6+0Z2sndeZYqkjr7r5JBM17g3iecvaxzA5PvOv8
gqBrJS/vL+VHLK/EPG6nKXZ/aNXEiL69wUp8bLltfBrBTFCKu4toBKvsHx4H
vxkEMWfb+zKajrImTnpXx39HcITVrVKesoy1Kkd2SGgOQc3V0zZzv1rrlTp6
Vuf+RPDSa2PgSe2kejcGuFT+RrCkOusUdH304aiYkPA7DgxMiLSw8oPagaf3
vZX5MUR83WjhKabFklc18SwXwNDrHaSgN+TE8sx47662BoPk/WZ5OWY0q2rB
+1SVEAZPse68yrSbrN8uy521RDB0rdM3KmM2sna3ZjnWiWLwHb7i1Zw9xEpQ
V7HTFcfAbdQV8lLqN6vtWsMRIoGh3L3+Hq+QCCW27LC1gRSGN9Uya3mwMmXv
PmHeJI3htiNzoXUSqML28IOm6zD4q5VKqr21psa1RPa1ymBQkd+5z/eKO6WW
V2xstgEDtNWxTjSfpwK5dQ07EIZIWi8u1CyJoj1f6VtvxPCKO6a69t98irvz
pG6PLAblWSE9f+dK6sCuXzts5TH83l5a84/VIyqt8IpmvwIG8/X1v9Pr26ne
VRvVjyth8P685dBTNEBhn79URzZhCHNd8IhbmqTc3+7b7LoZw0KQ4yOhqF9U
hf6g4vgWDEcuLPCOveKh5277yXmqsvFns3QmBEVphsBKPL2VzffapMQye0zH
BOTK+G7DID8a98kvR4Vu7VOT/qGOYXOKeZrHxx20sFGTeJAGBsNu/sOcd4zo
Y6XHROY1MbT+wxWWMGNO3xCeEgzXxlCheeaceJAdPRYcxbdMB8OsxTsNrRWu
tOqw+KqYnRj2qkfS10N9aH/TUu4Vumz9qnONeiLO0/UV+pyXGBj2KCll/+UV
S3NKdC7y6WMYOnv3S3BSCm0a7j6fDBiCdqbla564Rid/XPgpbIDhA2+Zj6xZ
Ed194I/vGYZsvpNeMe8pldMy1fIzknswXDvZdG7rYA19cu3Dv3OMMYwmrH4+
eeARXRplNrHeFMMDlwYzcYUWenb8w6eCvRiOVjeKj7V00DoWgSNy+zHUhb8f
CODvpSNrVw8VH8Cg1t0R++f8B7p5w40+ZTMMvNM1pVLxk7RAvMa78kMYtLmC
Dz3u/0bbTLV0qVlgiM/IvCSXuEDn2ji8rrLEYH3QeuqN53Iywppp07LG0NHG
xR+7jp8oy8W11tmw8eosxv64I0p8Lku36B7BwD9uIjLJkCG1s3efkKMYdMTl
a/uvy5GlY4YNBrZsf/oyK8793kKMG3qoJjsMizxuH8cOapArSp4PTR0w/Pj7
EJ+lky7pTOZ40OqIwWjH9aPSTYZE+md6ldlxDGeEDTkczu8nJxw3VXacwFB9
M87YUMCK/NlElVm7YCB7DE8td7QlU1ssS3pOYvgc7Nu0U8OZaKZ/umXrysYj
YxlmJe5BQudDCvvdMISU3VM03+1DGp0F8497YHDfsmvQ8H4g4X1elDPCxJBO
ccuM6EUSi207slw9MeQn3tHcqxdHsrJepI97sfnqmi7fy0wi9m4OaZbebL0N
1bUkjqQTpDX1R/1ZDNR2nYRxlRwyujwiRc4Xw4a9uJfIFZKSN4LJV/wwnDZp
Tw7R+JOcKbxxZc4fQ5/BfEfCxkqi7rMt0ekcuz9kuS3SImrInP7jSy2BbL+k
zsYyC1jkoYDVxW3BGLwW1nVFCzSS8P6R+OwQDDyyKgGm9s+IQZl/HFcohkTt
ptNTA68Iz3nuWM8wDJOMgCKmTzdp3ZsZ3RWO4d8nh+YyevtJiqRilF4khvHw
Ltld70eI9diDyOIL7LyExhcUMyfI5aJhg6Qo/P//538AuwvuUg==
       "]], 
      LineBox[CompressedData["
1:eJw9lnk01lsXx7shVKKQWTonPBKhmwzP73c2iYgKPaKIBqJCSLzJVKFcQ+aI
XGMqigwpoWQKieIxRMnQoDIPSd3e575/vGets87a65x19j77+1nfddYfcbdw
XLpkyZLbnPnvGrc8rlTAF8GS/40Jkvg99GQYJzZecZzXNPYrsZyu6J35D4LX
35eqYK4RIjQ2YXzED8G6eX43i9G3pPWT/MOX5xHcqa0os69mk4ihAwwqAEHq
tkeSrMo2YvI2Oul2IILKkxudcFYj4eupXSYezMn3UKFOcH0NqX+94B1yAYE9
z/v3PAWPyKVW1ZGpiwgGeFgbPt0oJvrPj+5zCEHwzNeCf2dvPmHM+sbXhyJw
+ZSmasfKIQLrozo2XUbwsGR/6XhYOpkyzRKJu4Jguem40gXjJNLtW75vIRzB
YTEJjcebY0hV9ot4+wgEGh56zUttrpCstsGOukgEY8wvH0fzL5DLP+dFNkUj
wC4Xcz76+xE3hgAr9iqCG99KSiM1z5B9+1DC9xgEne0ROwQLXYl20LbOQ3EI
9Fm1VqvrHYlsvqloXTyCwA7hrLlhe8LdfZilnIigaiwzTN5yPxnl8kmISULA
q7vo3MJrTl5ujuicv8ap5wavTdHrnaTkYIbooRQEt48752gJ6ZOUsDJW7XUE
InIbjId1dUhQcXPCxjQEV8pzr7KXbiGO7wY6r95A4PZ4dvxUgDIxWTEnOp/O
0WOaXdDciYnathVWdhkIunb+ebw/QpqsPSqX+CwTgUP+P045ASJkMWorWymb
U7/b++jt1gJk4JHJ2qs5CAYjrD91TXGT+g/2VnO5HL1+18TOt/+i89d4J9rm
IZj/mV1xhDFLx9Dh7JpbCIJMNJlpX7/RZ0+kr1W6gyA+YNmWxLUjtG1iiVV0
Pie/noeCWVo/rV/zPHG2AMFSFeOCsbIOmjH2ln3wHkdP343e7X0t9CrJmbU1
hQgy4ofHp3lq6ekd/PsZ9xFU5KkxuvMq6G4P2aSoYgRRI9vWc3MX01VpW7pm
ShD4jCvsneG+TWc/3yl2sAyBt5tX3tfSDDp81m7/0wcIGhQde/UWk+jT672S
FB8iWHWHwacuf5VmmV3uinyEoFjK4V5gagit8580sZkKBGcUNftrq8/Tcjn3
9x+oRGBWu6Hf77cnvay9IelJFYL7teNmH8ed6S8/+7oUniAIrtTnryYOdBtj
SizyKYKpqSfN/Nwsumwfr/V0DQKeSufkf+ZM6NQg6Ws2tQj2nNrj7KGoRwfn
q3dX1yGw1tG7wZe5lXbqNhRXaEDgETJ9bmKZMm3KbWsd0YiA9Um5I/aBHK2h
5nFt6jkCqT1TCQI+IrSYbWi3dTOC5y4oWLKBj/4Zdl28ugWBzMGzfTa5v6jB
4kJr+VaOfp4/XSxDJqnGd3XX/nqJ4Na93tyz7sNUwYo33ZNtCLyyR9Lzgrqo
2G0T4tavEGz0K0BLM5oo36M8NlWvOXysO6iZUlRJHYqWTN7QieDLqmmjvw0L
qe0Vm3vC2QhuWt73EQnJoBgfDSQmuxC8C/5bbG9ALLVK+IDN/h4E4ZnJNg4y
F6kZ2j25shfBb4WGGe+9XlTPiUs9uA/BuHjpkV0rjlJVickS4f0ILFTSEx2M
Lajsmrs2E2//1Y9nQ46gHrWs+CSf9wCHT8dCuw/NmyjnLMaDhfccPi4b5Nmy
xKimuBHHgCGO39ypm5AVXkopX8oU4Rrh9O8bsys8c5QZccb+WdgHBJ6qq0YP
RL1ijh2T9lz5CYGNAI9TrWE5cy+rRy7mM+c9UgtNOrFpzPs7El+KfkHAeNwi
6ZkcxBTRtAxI+YrA74FntP+cA/OsgpDKujEE11qETvGtIUwd3vBwxiSC0FjD
ZQ+pSd2njf47dOcROE189xEJFdVFD3Vmqr8jcBc2/X7er17n0q35TIMfCF5Z
qsnaLBzT2RnusWT3L47fxPwYUJpW1m7b5VjhwIXhekuDqRl3uPbbVlP1UEEM
ulbCg4XdPEyo5h9YvhrDdGLI5rvNKszMe/VR0WswHLAU7WClmzMdr8LXa6IY
jE4fLzUOiWHWB/1KkRHD8C7doekvp7tMhscj40xxDL1e1x3EXBuZ4Yd9vitI
Ynjbtzopy3qQ+dX8z5t3pDDYr3N64Tu3wNytP8lSk8Ew5O4kaXVyNVWocZe7
VBaDYoxuo6mxArUGnyzWlsPw2fw2X8heXeqMMONI1XoMktsenc+V2EuxuUaE
tmMMlQ+sZGUsjlBaMxnVDRsw/M5li/hvPkOlDB9yM1XAsPDkXW1yUgi12CEl
066IwT9j2IB1LpGyretuZilhkLqqqqTzKpeqKk0417sRQzR7zWJdVhkll2uh
ZL8Jw0RoO7t8sY66kCjYPaSCwcXB3bH9awc1HNoS6rwZwxsF4QybyCHK0OfK
1m9qnPNDe3DXzCSVd9xw2EMDQ+BK9fPiOkvo5dZccXNbMFzTKtH0H1pJn9r5
RM9vK0eP/gqL+AMSdKuW/8RvTQxZ7VYhhrPytJqSTvolLQzaBruFVzVq0DES
82b8Opz6ardX8Dwl9BR/yc9IXQxhqiZexyJM6H0/Tt9ZQ2FY1Sr6wHqe4xej
KgeSaAyCj5vFt/8+TIu/GeWTBgzn7gqvb93mSs9rZD8M1ePcP9gTUtRwlmaH
252Y1Of0c4uQwHBGMF06uFbK1gADO9V1T5vUX3S8Tltz/Q4Mt2vHb/0ojqe9
Yq+cVzfCsN/4gsta13TaYlRfJXUnBjNyK3VZ2U1aQ/9n/zITDJmBTQbKTUX0
6pTSKI9dGO54PC8wjnxET0y6kT5TDJd7Nwa/L3tGtxkzJgx3Y9jcKORvhF7Q
9zLe/120B8PFcLG+FNdOOmohxVzanMPTB15JmSPvaFfzfUvDLDDsKT9/pWvw
A216S6B40hKDG1enTFb6BK38R8NRWxaGp2JXrnMJfqeX2wSJNFhhmOxqVf1i
/Qf5XKhdp26Nwa7MfNJzjI808k17p9pgkIkvt057s5rkOeQr8B7EsCi/8sma
YAkSVu7Y5WGLYeCwlmA7AxEnoXWX++ww7EXd1R+eKxFD524tI3sMekXs6ITt
GkT+ScznIgfO/m1uhnOrNuEW35UifYTDg3p51Tk1fTLkzr0r7CiGS8cfaPYm
GJOahsrFyWOcfg2GJYnPmpOMdT75tk4cXm5qCWUzbEiQj5pdw3EM8SKxTTeS
DhP7l58FNFwwlBt56lVEOxNaMasq9QSGcXM05inrQWQDbd15T2GYEm1/Jd/h
Q36xReU8XTF4tbBrBqKDSJ/qy7Y+NwwvrESFkv4JJY9DLwcbncbQUJRiWDEU
Ta6/1dO474EBWUupK4olknOai4PSXhwelE17HsfdIDZRJXFhZzDwKuyYxfI5
ROuDq8GUNwZpmafzftoFRIxWnLX1wSC7rnNuTrWEzCUM5DT4Ylh+Xero0f4K
0vkt2UrjHIZnC1NvZHSekZIdlrxpfhhORP5xKDa0icSnrSzn9ef4z0HGabVd
r4jXbJ2zZwCGZmYe+qbTQyzMAiX6AzEkOG+ZnnB8TzRytJqMgjl8RTm5aP/+
SGIPcweEXsD//4/+F4eCuLY=
       "]], 
      LineBox[{{8.999071141697472, -1.}, {8.999071141697472, 1.}}], 
      LineBox[{{6.99871503098311, -1.}, {6.99871503098311, 1.}}], 
      LineBox[{{3.0026995636035214`, -1.}, {3.0026995636035214`, 1.}}], 
      LineBox[{{3.999858541540659, 1.}, {3.999858541540659, -1.}}], 
      LineBox[{{5.001836994726459, -1.}, {5.001836994726459, 1.}}], 
      LineBox[{{7.998051037500849, 1.}, {7.998051037500849, -1.}}], 
      LineBox[{{5.99782506459751, 1.}, {5.99782506459751, -1.}}], 
      LineBox[{{1.9994269504952458`, 1.}, {1.999426950822285, -1.}}]},
     Annotation[#, "Charting`Private`Tag$466930#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 9.99999981632653}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.84362868371714*^9, 3.843628701282811*^9}},
 CellLabel->
  "Out[2505]=",ExpressionUUID->"80517672-8043-4fdc-9cc5-02dfeb5c1b5b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]2", "->", 
         RowBox[{"-", "\[Sigma]1"}]}], "}"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", 
         RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]2", "->", 
         RowBox[{"-", "\[Sigma]1"}]}], "}"}]}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "+", "1"}], ",", 
         RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]2", "->", 
         RowBox[{"-", "\[Sigma]1"}]}], "}"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"\[Sigma]2", "->", 
         RowBox[{"-", "\[Sigma]1"}]}], "}"}]}], ")"}]}]], "/.", 
   RowBox[{"{", 
    RowBox[{"gG", "->", "G"}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.843628508543768*^9, 3.843628552689398*^9}},
 CellLabel->
  "In[2497]:=",ExpressionUUID->"32628b04-068b-459a-b091-3a662aa54bb7"],

Cell[BoxData[
 RowBox[{"-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{{3.843628494925332*^9, 3.8436285530080442`*^9}},
 CellLabel->
  "Out[2497]=",ExpressionUUID->"5ee58cb5-e52c-4007-9eaf-eebfd78bfc61"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "-", "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], "]"}]}], 
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]}]], 
     FractionBox[
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"2", "+", "m1", "+", "\[Sigma]1"}], "]"}]}], 
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"3", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]}]]}], ")"}], "^", 
   RowBox[{"{", 
    RowBox[{"-", "1"}], "}"}]}], 
  FractionBox[
   RowBox[{
    RowBox[{"gG", "[", 
     RowBox[{"1", "+", "m1", "-", "\[Sigma]1"}], "]"}], " ", 
    RowBox[{"gG", "[", 
     RowBox[{"2", "+", "m1", "+", "\[Sigma]1"}], "]"}]}], 
   RowBox[{
    RowBox[{"gG", "[", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], " ", 
    RowBox[{"gG", "[", 
     RowBox[{"2", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]}]], 
  FractionBox[
   RowBox[{
    RowBox[{"gG", "[", 
     RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], " ", 
    RowBox[{"gG", "[", 
     RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], "]"}]}], 
   RowBox[{
    RowBox[{"gG", "[", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], " ", 
    RowBox[{"gG", "[", 
     RowBox[{"2", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]}]]}]], "Input",
 CellChangeTimes->{{3.843619491722836*^9, 3.843619524339572*^9}},
 CellLabel->
  "In[1801]:=",ExpressionUUID->"96a2c6c0-fd9e-4256-bf44-38de71c817a2"],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{
    RowBox[{"gG", "[", 
     RowBox[{
      RowBox[{"-", "1"}], "-", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}], " ", 
    RowBox[{"gG", "[", 
     RowBox[{"1", "-", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}], " ", 
    RowBox[{"gG", "[", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}], " ", 
    RowBox[{"gG", "[", 
     RowBox[{"3", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"gG", "[", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"gG", "[", 
      RowBox[{"2", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], "]"}], "2"]}]], "}"}]], "Output",
 CellChangeTimes->{3.843619524927312*^9},
 CellLabel->
  "Out[1801]=",ExpressionUUID->"52c9f9cb-6c3c-4fa0-a4a4-eb1935d20380"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]2"}], "]"}]}], "/.", 
      RowBox[{"{", 
       RowBox[{"\[Sigma]1", "->", 
        RowBox[{"\[Sigma]1", "+", "1"}]}], "}"}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]2"}], "]"}]}], "/.", 
      RowBox[{"{", 
       RowBox[{"\[Sigma]2", "->", 
        RowBox[{"\[Sigma]2", "-", "1"}]}], "}"}]}], ")"}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"gG", "[", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]2"}], "]"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"gG", "[", 
         RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], "]"}], " ", 
        RowBox[{"gG", "[", 
         RowBox[{"1", "+", "m1", "+", "\[Sigma]2"}], "]"}]}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[Sigma]1", "->", 
          RowBox[{"\[Sigma]1", "+", "1"}]}], ",", 
         RowBox[{"\[Sigma]2", "->", 
          RowBox[{"\[Sigma]2", "-", "1"}]}]}], "}"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}]}]}], "//", "Simplify"}], ")"}]], "Input",
 CellChangeTimes->{{3.8436195834540577`*^9, 3.843619639877983*^9}, {
  3.84361976708603*^9, 3.843619807823597*^9}},
 CellLabel->
  "In[1813]:=",ExpressionUUID->"6dc18821-9435-439e-9d56-0d4e767a2b89"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.843619593158827*^9, 3.8436196404351883`*^9}, 
   3.843619808235626*^9},
 CellLabel->
  "Out[1813]=",ExpressionUUID->"8aeac8aa-635c-4d46-b8df-04db7f5e4190"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"BA1s", "[", "\[Sigma]1_", "]"}], ":=", 
   RowBox[{"BA1", "[", 
    RowBox[{"\[Sigma]1", ",", 
     RowBox[{"-", "\[Sigma]1"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"BA1s", "[", 
     RowBox[{"\[Sigma]1", "+", "1"}], "]"}], 
    RowBox[{"BA1s", "[", 
     RowBox[{"\[Sigma]1", "-", "1"}], "]"}]}], 
   RowBox[{
    RowBox[{"BA1s", "[", "\[Sigma]1", "]"}], 
    RowBox[{"BA1s", "[", 
     RowBox[{"\[Sigma]1", "+", "2"}], "]"}]}]], "//", "Simplify"}]}], "Input",\

 CellChangeTimes->{{3.8436192385861177`*^9, 3.843619245497507*^9}, {
  3.84361927870714*^9, 3.8436192832554407`*^9}, {3.843619367849152*^9, 
  3.8436193725418262`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"307cf67b-9f12-4db6-bd9e-ff19086c5bcb"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"BA1", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ",", 
     RowBox[{"1", "-", "\[Sigma]1"}]}], "]"}], " ", 
   RowBox[{"BA1", "[", 
    RowBox[{
     RowBox[{"1", "+", "\[Sigma]1"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "-", "\[Sigma]1"}]}], "]"}]}], 
  RowBox[{
   RowBox[{"BA1", "[", 
    RowBox[{"\[Sigma]1", ",", 
     RowBox[{"-", "\[Sigma]1"}]}], "]"}], " ", 
   RowBox[{"BA1", "[", 
    RowBox[{
     RowBox[{"2", "+", "\[Sigma]1"}], ",", 
     RowBox[{
      RowBox[{"-", "2"}], "-", "\[Sigma]1"}]}], "]"}]}]]], "Output",
 CellChangeTimes->{
  3.843619235034058*^9, {3.843619270101898*^9, 3.843619312843691*^9}, 
   3.843619373011693*^9, 3.843801710173683*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"e3b1a3ab-bbec-492e-84d6-5bbb483192c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
      RowBox[{"BarnesG", "[", 
       RowBox[{
        FractionBox["1", "2"], "+", "m1", "-", "\[Sigma]1"}], "]"}], " ", 
      RowBox[{"BarnesG", "[", 
       RowBox[{
        FractionBox["3", "2"], "+", "m1", "-", "\[Sigma]1"}], "]"}], " ", 
      RowBox[{"BarnesG", "[", 
       RowBox[{
        FractionBox["1", "2"], "+", "m1", "+", "\[Sigma]1"}], "]"}], " ", 
      RowBox[{"BarnesG", "[", 
       RowBox[{
        FractionBox["3", "2"], "+", "m1", "+", "\[Sigma]1"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Gamma", "[", 
        RowBox[{"2", " ", "\[Sigma]1"}], "]"}], "2"]}], 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
      SuperscriptBox[
       RowBox[{"BarnesG", "[", 
        RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"BarnesG", "[", 
        RowBox[{"m1", "+", "\[Sigma]1"}], "]"}], "2"], " ", 
      RowBox[{"Gamma", "[", 
       RowBox[{"m1", "-", "\[Sigma]1"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Gamma", "[", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"Gamma", "[", 
        RowBox[{"m1", "+", "\[Sigma]1"}], "]"}], "3"]}]], "/.", 
    RowBox[{"{", 
     RowBox[{"m1", "->", "1"}], "}"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8436193198282223`*^9, 3.8436193533299026`*^9}},
 CellLabel->
  "In[1791]:=",ExpressionUUID->"56915a44-08b5-4f26-8c15-cb458dd679dc"],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVlnk0V9/3xu97vFHJLIqSlKjIVMg9hqiQJCSSoTJPRVF8yPCN0GwKhaKI
DGUM927zrBAhilBEkiHR4Of311lnPfvs9Xr2edZZR9zOw/gcHcMwJxqG/f+a
bvExfnAOB/Gwd+/lOPfBxbuy9/JX9s4BjAROY3nY9qG0cXIah6uu+Lultzzw
bscBTOobDosXZq+ihQUq/GKb8plxHOZenXynCcOUSqW528NRHC4eWP6yt6KD
+rpm+HHvEA5ctw8vpBZWU4nmbn38H3CQpAUH3nUrogzSFriN+nCIVTar5pLK
ov58DzoY2Y2DmfXQ7MvDqdRztTUBdR04LHkGBF76EUudDostoL3G4ez916E8
Ybcors7NE/ubcfgk2rxkZ3SNosSyxH3rcRCrc/fLUrhKeTormb+sxuFp1W2D
DC5fSryIujlF4eBFnWx7oHyB6qDp1e4ox+HvWZV7h9a5UiFH3v4+W4LDOo35
g66z5yjF+6flUwpw4Cyz3W7hZEuNjow5vs/DQXXq/pnNvyypWDmvZMHnONgG
tUh4lphRuv5/u45l4vBGsJk9m25MLdSHrbmRvsJXE/nf78+GVAYfr3ZDKg5x
MhZkc+dhytw66TLjIQ4/fpikHqnSoTiytuURCTi4VjzLyvDRol79zPt8ORaH
U0KPRUVvI8pFS0208C4OVl7R11iSatTGm7XHp2/ikHy78NVbv71Ua+/RCJlI
HKKsFRNm3BSpAMk+sA9b0ctM9NwH9lCy588upIbg0JPAOfTynCw1WD61ayAQ
h5nGj5zexTLUnVWXz673x4GXl3NV2V0pSsuEkXjcF4dlw68d9EFJajb5RvtN
bxyOyiqVmkZJUGkTQquaPHFQ391caRwuTpnsfUSw3HBIb4XovpubKFbIzosa
Tjj4ePQ9yA/YSBW1FWX5ncNBZnCySea1MGUvovmpyBaHHUfCauQuCFFC9s3r
Z6xwGG9fb007JUA15Jse3WWBw4LM89b6YD7q8t+P/3M0w0HX52km8YGHkj7s
XP7YGAeOokZwcuCm3kfPzXwwxOHllfYHpXJcVNRgwA4R/ZX8HFGyEulZTanv
5LAxPYhDSMXUefNyDmrK517sbW0czvM6iPF041RytWhrM8Lhv8PPesbF2JTR
ugwGvh8Hpy9vOuzvMCmapbyq1j4chr//96JBikG9eFLu+Z8iDjo6RhunB2mU
3Yzu0xI5HOR3t//TKcIoPqJ9YHYnDmv6bQKP6i+TNdct+WV34FC6c4vCc/O/
pHfXqJ6zJA5uAbNKnbd+k5LinkHp4jjElJ9NC5lcJLtdl4oHRXEYKOK5hbn8
IsNKQqc2iODwKDLpxxK+QO5jrpM8IYhDBkrcFQrzZEKixN1WLhzuvNNnbbky
Sz6Tu59azImDiUL5yVHbGfJVLVd+Knslr9MuUwHWP8gmi1CIpK/M/+Gv+j7P
abLv++Lri//Y4DreMI+kvpNfQz0+Wi+xYUQv39f41jdySXh06vBPNvC+iln6
wzdJihx4s1Zsig17dnbJDriMk9K9OqKrvrKBNeZET1QdI1Xdy3bOjLJBccOb
tB+iX0g9xp79/UNsmPENeynN/5m0iH+iXzfAho+ygnGvNoySzrs2Wub1ssEl
qKZSTWGEvFJ1xzmhiw1rLENCnU8Ok4mT/tfdW9lgqTM+ado6RGYHzcSbN7Lh
rmhGnYDwEFku6JihVcuG1oIUvVCPQbJf43i9YAUbqruKR19e+EBOdjV0Y6Ur
foTna6rMBsg/zsTnrwVsUC3DYjL1+smNMTtYVDYbtB1KM3Ks+sid0sn8mRls
6Ag1udV/pZfcT/FvvZfGhmijoWt/H/eQp8aXtRyS2BCOrZZgCL0jXQMuGh+L
Z0OP3JnvwdbdpD/fhK1aNBsE1RLdduR3kUnq3VfXRbHB1zFTMtvtLZndoX97
MYwNssqJ3iHvOslyh8rk4ZD/18X6Lh7qJPvvZJPFfmxoO5DpwCA6yMltW9pS
fVb8zIq291e2k3/K4gYivdggXBXwyEC/nRT9HPzH2oUNculdW/Pd3pC7/X6t
1nNgwzlbpwk+9huS4HbfoHiGDfuc9L+80XlNnlY9qbrKkg3JGm7Px9tbyYc3
ZX3z9NjQbdWQFKfZTOZIpIcl6LLhzt7PLknPm0iyRCQuVIsNyzbdgW6bmsgP
n1hF5qpsaCD4U435GskpH79aLWU2JD30txyMbiD/rfnxdqc8G0w5wjfv2tBA
iu3tn8WkV+almF2+Same3N1yjDEhyYZt2+siLBvqSMK2nrdLnA2TZPxokHUd
eTryxZ5MYTbYhRz81RNfSyZ/DPc4xsGG1/ol84RCDWmzetXrq6yVfrKH7zz6
XE1u2Ru2O4+2wk8lODkkVZNPbv7vG9cSC4QVZDULuKrJHPVgl5avLJiqVNg+
u7qK9HSiNf/+zIKE8JxL068rSfmYq9IywyxI3U3XyYipJAsnA8avv2fBMXrR
Xea2SrI80c/hYAsLvDhUBqvMgQyoX6q71MCCsG9aoUNSQGrMXt72pIYF18+/
rI2co8gaPd9RZgULPKQ+b7HRpMjmRe8zVc9Z0Hvs5FDmfAUZJTlX9SOTBfqR
vhvbn1aQhse8tog/YcEzgQcZfZYVZEfG+aHAhyyIFnD6c6SxnOw74W6tfosF
O2O4xL4Ul5FJId9I10gWSC14lh/xKSNP57qKJYWx4AtzxF9oXxn5ie0ysBTI
Ao4Sjc4HFa/I8UIHyxJPFiwmOE6veVdK/uKzPaFgzIIq5NSmpFJCvkKDRXaG
LOBKZYet5ygh/V2sBe/qsUDZPPL+095iEqu26prWYsEtl9/1af7FJH7B4niO
Ags8P4ah9Y1FpOCb40d3CLBAyHGtj5B3ISnctv2dCw8Lrn2Sv2+kX0hubPl9
OmctC6zbo3qfbCkkxRseuyuwV/gslRQj2gvInTB7Q32BCZU8DfSDsgWkVt69
lmO9TMhtytirPvyC1MlxMInuYkJsmpKjVckL8lC2Wn93OxPSx6K0eG68II9k
DE9YNjGh7fiX8rVKL0jzFIXV9mVMIG0VHh8IyCc9bncevvKAufJfkbLK6skl
L9x82l5+nwlBHfJhiS65pHeU38nlGCa0yN5XNvqTQ14Jl3AKvckEDsOnXomC
OeS1q17hNwOZ4M49dCVZJpu8HnCQu92PCd1FooceZmaRUf4b4vl8mXBorLz0
0tYs8o5v9dN4TyaISC3pynI/I5M8+eof2TLBoA8rHC57Sia7fzEctWLCZuRi
1rfxKfnItax7uwUT8vkl0/53+Qn51PHM52xjJjzz6nUxlkwnX9i8ZBVrM4Ff
xiBuRPMRWXg67MYiYgJ36JdHGX6pZMkpS4H9+5nwL0NBISc3hawwZ0hWKjLB
t26z59HVD8kGo+MHmiVX/BZa/dldF0tKx/Oml4szQbn1WcehJ9Fk1Md2Vo4o
E1ztLPjPe98ljdyN6m8LMOGvKn/PsbxI8kXhOqlgnhU/Z/TMbvRcI/n/toV7
rWVCSQqHvui7ILIn8oieGYsJPBJj+85ru5GqnWuyDtKY0FhaqXo+0oBMEmlZ
rfKXAaLZ39I2BFgTNpl6rRvmGaASiSGJmUBirO6g0dAIA17NrjupaBxD6HHh
+R2DDCixpuVyz8YT2aZ1PDX9DBiLvA9nCpIIz5EDnU/eMsCQ/Wsi2/AR0SHD
VIx/w4DY7YHHGs6kEYpe1dHXWxhQQN9h/jLyCfGLpmXmWsMAD8kezU7BLMLi
MK3YChjQ1sq/J8zvOVF+G4SOljOgJ+SYB8fPXOLqJtS7p4ABnY2kyWjcC2KV
+v5TC48ZAHF6VVkOJYRz6O/ysWQGCPPrtuf9LSVaml+J9iUyoJY0irN7VEbc
tlD5WH6PAVZanc/WilDETOovlHOLAVpyp1kbfIAwGS9OSY5kAMfuK58KnCqJ
9b7KdsEhDHg2pcLf7FRNXKHmq7wCGSB/2vLRL58aop9dKHHOjwF3Xmsmcd2u
JVJiFEYPejHAXGBgIeBjPSH1Us5x7RkGbM9akNuOtxIRS98b/p1mwIu08K+K
nm3EpGbujmkLBrhtmc178fk1kfdm10SHMQOWHrhnrwtsJ3jXf9OvMWTABk6G
n6BRB+FtnZ1dqLfSb+L6kTmpTmLflLR7vBYD0szEpy/OviUSlL62XScYwKu3
9VXVaBfxxz9T1k+VAZdjM5r3DXUTsFrqh5U8AwYUP8dumO8hDu2Q9JbYwgBX
/+52WtIAcQqf2mohxoAs4VPu0S0fCM/Roq7bIgyYPtvLy8EcJOJSD+39x8sA
g7ikA6TREPEskGdMcR0DJN/lh0tinwjSqi/eZfVKPp57Oo4UfiI+C7su9TAY
wCVKGJxTGiGWFhSz1mEMOPgplzN7eYTg6v5rqfuHDmv7dAVN2kcJpbu3Kl7O
0WHbu0yeH5FfiFDOl1dvjtLB7qEJJu8wQcSP+e2pHaJDUkaotPbFSSK77sCn
3wN0+B3lyLa58Y3oDO7Wduqmg3p8zWrLge/EZ5vkueQOOggNJjdwRE4TS4Rj
encbHf7sfnxJd9cPYsvvRfaBejpUp9pHmoXOEMq9VcVXqulgakqdz1KZJfSK
Ix3zKTo0yPOxRuZniQteok1iJXRIldXtlQidJyonNG4sZtChpEdLMBpbJN42
chBy6XToEz+pkTG/SIw97ZiyT6XDNK1uUXtuieA+e9bo7X06PNzPEs9f95fY
qrWLtjqWDk+GF7lP7/pH7Nv8M1/zLh32Czzn1jNbJmz6w/hyI+jgcOf23rFR
DHm/MqoZvUYH6vJ1WmkUDYXHC1/cGEIHTbN7XXKqdJRrktV93Y8OvCWLRzWe
MdC/lrb7Z13pcOjdb0bPFzbizYrTS3SkA9/XgW81LTjadt3md/tZOtSb1Onw
l61CR3RmTiErOrye9s+5UciJbCTK1l46SQdsv9evh1WrkTctlMw2pUP+83ul
Q31rUFKFwGYRQzrcEcriWSO7DuUlfnhjpEeHHmqLPluZG9VcfhoUpksH4Zrh
mH3vudGEksrwHEEHTqQpMq/Ki/7x0aNl1OigJv4hWfonL+KdaTpgt5cOzR0t
hFMpH1LNOfXktSwdyiyTjSJPCqDnXdxyhTJ0KGAdFEB6gmjz35rShO10+BCT
lGepK4TYBrtaz22ig1Sg3ja1M8LosteQmf4GOohyC0Tq/U8ETSbEDMoJ0YFj
ib7KqnAD6hj/O/ubiw6Hr+cbxGiJIR2eF/8NcdIhQSeGsErdhEr22eP1bDpI
9pTzF4dvRg/D2kTu/qPB6x/bLqXwb0E8ucFpPks0IOhqldfHt6DQbuXdVj9p
4HomxXBHowRylkzWlJqiAau7K3TpmSQaMDjevPYrDa61Brj752xDRt646ewo
Dd6OW/xnRm1HytUejuQADQqkKwjZNdIo86vEzOPelfNiqcf6D8ugjbw9fte7
aOB8sGC7RvxORLfVuGXSSoPlDY/fy7jIoovhc+tVG2lwictG8ruvHBrLzXi0
qXaFr29HzGvdPajtH3fR13IayJ8Z/F7OVECa22rRmxIaXFYPIvf8VEAFRy43
Fhas8DU1GyzPKaKEpKH+q9k0CPNdE8AS24vW1sTY22fQQGc0YIhfbx+6OnF4
Wj+NBgaO83M7w1SQveoLhlASDd7ZTnwY27cf9dra3/gTR4OExb+Zi7nqyOC6
iNCnezT46X7Jb3o/QvI9wdLPI2nwK11NQO2oJkpfVi64G0aD+XWRzZvUtND6
7RPqviE0mOT7GaqopI0iDZPrrQJpoC0SY3OeOID+XTx+TNuPBo/jvhUMndBB
5x/g76V8Vvi4+yvSg3XRSE3ZWS4vGkhrP/Keow6iJr6tvr3ONNip6zoY6aOH
1NV6aJQ9DXa/8wqqn9NHeXZRkWl2NDj/y6rdN+IIkojQEIg4TYN6/mZ9F9Wj
KDZ/7qGHBQ2ENu1wPxRihDh6M6RMzWjgrkJVBvseQ/6Y1QtVYxqEpOblcgQY
I7ujtbUsPRp8vCsTxkuZoK5Ll49O6Kz4N8tTdPhrig493NX7RpMG+Dvnty+P
nUBltUN2Reor9fcDHhRXmKPd32ImE1VooPVl7JaFtgVK5de7FKREg3ilr3n5
I5aIf/+/Zfs9NBg2LK5jpFmhpQh7PvkdK/ncPRNpX22DckI9aqUlaWBT1EDU
dtgiuwBfHwlxGjSQuxaFf9ohQd+gHRtFafBeqkdXWPYsajof8Z5fmAaFD3kr
HgWeQwEu926sFaCBArOnq3bcHsmfS0JsHhrU/VjnXO/hiBLMcx4vrKKBsJGt
0rNeF2RoXGw6zaSB7euwActqN0Q3AHwcW7mfne/fPXjrgYp0GkuH/mBgPHbY
O27VeeSMOlz6fmGQy92UnkhcQGIq70U75zA4JLgXz7rphTrkR143T2OQt75W
xvy3N1LZ9lOhYgyD0LhDkpbKvmhy0/Jo4QgG8fv5Zq+svoJShFfF5wyu6LWu
bqOc/siEj0fvaT8GsSe4vUVVAtCqtSJ/knswGHllKpB45CoqZ0vkxL/FYNLp
zoRXYhDyxHba3HmDwYML10RMOELQ1iVF3ogWDNZm2l0YTghFPbPqNcENGMj6
vLU+aHINRX3TveRXg0FMj2aIsmo40vhyVMobMDBPjW1aZxyB5gbN+1zLMVCV
r62ZT41CGX22UedKMHBSk+T+LncLnXrrTJwuwGCXzgf/a4w7iLvNa9osD4MT
jVs6W2Lvopp6/0dHszHIuKNd+vRENPKt/J/JoQwMik1MO44YxKKdZTfZmmkY
mL51v77gF48GC+JKVFIw+KYkuZr7ewKKzklxlk/CoPlYGvN87gN0KCNzo0w8
BkIJEd9Nz6agP6kv2iSiMShDJkt7tj5aeb/Lrm68jcHM0SRx601p6GxMjbxA
FAYKhdzokvUTJHSrdWRtOAY8EYsJ375noKbw7lh2KAaZdJvH1z5koYDgj4eW
AzFwM+df16uWi+T9x5YW/DDw1avQpt/MR58v/sie9sHAf+BybFPzS5TgsXR6
3AsDx3nmF1P7ImToxOD55IHB08bCMA3PUkQ/s6a6zwWDBWmXn/lYBSo6JXCx
0wGDN6x5I/MEQM5mYttbzmCw3TDI/uL6aiRmtL23xhqDU/PLXTy8dajjsFxk
hSUGVuKpnw6kN6Jr2irqRSdW+pV5pe5ebEWq6lrfc45jUHM71SIlpR1NKeun
Pj2KwbDc1eXFwbfokZzJ8RR9DKbyONQ6J3qQmbQV6/7BlTyS3j722AfEudW+
+I42BsEaw8yTap8QKerhFIEwqFq//mHRuc/ogpDvhhA1DC4q1AsF906gbTxB
rX57MajTCguSvPkD9XFGBHorYJDz60BwpP9PdJN5b4+bLAYV/Ksbls3+Iq1/
icPnZDAYlRhJb7/F0JhfSIs5vR2D9o6JlKhaTg2L8OK4JAkM1F18lWa8eDVg
fdP9vk0YnBWPuF9lKKKxLbM/cf1GDN53zn7EbkloRKl8f2C2fiUPrfqbXF7u
1phppKVE82MQ+PWKVewXFY1A0oDXlXeF58ctBz8nbY3/AyXz/GY=
       "]], 
      LineBox[CompressedData["
1:eJwVl3c8Fd4bx81UipSIUlEkIyRJxrlKKZVRElrfREa0bTLLqCQJSYWuvbeQ
5xIio8i99swoK/ded7nrd39/ndf79ZzzPOfzeT2vM+Qd7p53EuDj43vNz8f3
/5HkVVXU0s0F+Yi+Ic31R3Ducg33GV1ciJQhZte91MbpGs14en7jwvti755/
Iio4geuifkTgwj+NDeNpJxRwXUGajz2qubCrUH4A90UWl5x6MfRvMRfw5aXv
qEclcU4Nfk+dcrjQwhaqvf5IHKc5+TF6Io0LbZ6Uvw2C63AsgeaYq8lcSF/C
hfuaCuFa98zFDcRxAfcIfU6q5MO9NhFPvPiMC27HNKIWiUy45nToXXcYF46U
/r4tmE0Dlad2H88FcCGCie/wRStAyXz8qe0RF/gH/zg7BRMB9+1T1gkPLmhb
vawtfLIEz/+05jU4ceHX3kvdIb/m4NK6pSLDa1zoq0Opx2AWFFS2lH+24YLo
qllpmvI0LJkdqdax4IL4Dv1qAdokfL59ta7ElAsqJf2ebtITEP48FKeO4cKF
lDdaktRRsCzIaso5woUsi3FLN7Vh2N7V0aqoxQVOoNZnYxiAmSViR9p+nl+G
Ui8LPvZBqbh0t5wCTx/7c0diAx4eaxrg38pyIZkTWLJney+ctroxsHULFzQM
YgwOY3tA8sHTkVeiXGj/Vp0ua9MN43F5ExuFuBBu9ClWX/Un5Jf9nI5icUAd
K7+l37ALvHspf4UpHDi2M1Dbx74DjlFkl0IWOVCrZrG3IOM7iElhSOxpDgj9
gkftMm0weNiJ6jvKAb+nT36tlnyDjEvRqxQCB6o7bpRvdmuBez5FnPs/OLAz
9W5KoFEzGLztFVj6xoG8jIQyebUmEKlhrHHDcSCN5hd1TvMr9AzuFJ2p5gC/
QuOR7FON4LrDdctoDgc01WsSVwpwcMgwRto+nQN3fBapa/4B8F0r205I5kDH
zrF4fEo9tD/u33X+NQcUJpzXDzl8gYSP7D1dzziQI7ScNWVUBw44BWWzcA60
x+Z9YR+oBfUJU7WWAA6cbr6W76xVA00KcYfqPTgwezNHTda5GswJL+YSnThw
Wyu/s/9pFfRHRaXev8qBF0Vi6V8qKsHB8InNmYscMBBGmsGkClhYDt6geI4D
3y6NSK7qV4AXNqCRY8KB7u2bpxVelQOfrY9PvwEHbp6xT9tALIMtcHfqmRoH
boWKLA93lkLKg9vJTns5oPHz57zV6VJQUnK2RDs4YGx6wjy1owSOvrhWRxLl
wEHrox6v/xRDE8b+QYcgB5wbNVwMgovBfOWiciaTDVanEiqb5IrB4fK5eLt5
NjAqT/fguwthQey0mfZvNlxyt/5VoloIXo0mfBuH2LC2a+p7VEwBRO83cMd9
Z4PK9zgCn0c+SI7oKiQ3skHk0tM67GwefIjV7n9YwwY9Ze/jZ13zoISmYrIv
lw3/MYxubAnOhaN5Sqt86Wyg/QkwCpDMhaZrCsWDb9m8PvIT8CvMgf5mmR0x
UTxuqZwTJWWDg+/WHucQNqy5XyMs8y4bFtQkIo192ZBH0NmRfyob+OLXrqy4
sKFvmnU4ojgLok2Fcrv+Y8Pfs3l73NyyQJLJvZ5tywZh7+bTa5WzQNmB1n75
FBv4raaSfhRkQulWcogOhg02L3Is8z0zwaBtSVf8CBv0N29bzcVkgoXmzKfG
fWywT/zh83IsA/p/T9il7GLDx7D9O/TLMsAhcUTcS5oN2mW2a+KjMmDBbKDZ
QpwNRlmBmSEOGeDF6fXfL8KGr4eqhRcNM4Cv9KeWIJcFx2/P5uO2Z0C0U8fs
MJUFSi6Rz/8wsfCh4+uF2BkWVAa16M03YkE5GNa5jbIgs9NVA5uDhVLtWjhO
YMHlA+5RHnFYMJit9JTrYoGFW9VmvUAsNCeXqtKaWRB5xSOW4YoFc/PCiZ9f
WLAlzL483RYL/fy5ibkVLDgr47Np/2ksOFRknAsvYMGvGhfRUH0sLLikCV7L
YIHcnWH8Jw0seO14/1n3PQsAvv/3RBELfD+T7kq8YcEjnYfWO+WwEB0Wrzj/
nAW6LVvXOkthQVI3dqgpnAU9rjZ+thI8PXPPXn0IYIHTODJb2MjT8yHC1OcR
C+I3DRXv2MDTYxXGtnLn6dex8p8SxYK+cFCZqiMLbqyPFUb/nz/zYl3sFRaE
CXo5z4ljQepbyvUVaxbc3kI4tbQFC4LZeRW251hg86ln5ykZLCxH1oh+OcGC
jcY+9ZRdWBh1bbshb8SCiCRne8o+LLSb9Vc9OcyCney64BNaWKhWnd04d4AF
F1sPykzz9GduoN4038eCbrmAm79MsRC/KFRTuosF+0fxFPGLWAjp2rJJehsL
Sgbaa5NvYuFOkcIt/008f8I0KQ8fYuFKrFbd2FoWvMs9oZMSjgWz+5jNJvws
QKOSDpKJWNA9b+GSzWDCvkfUspFcLGyW9JC8P8fjBZNjbgSevxR/N/wkE1oe
KkVpLWFhER+N0xtigkncmfXnRTKgNTHbXaCDCSdUz9vn8vqpwqeq8VYTE86E
Hm/7Y58B6XYt29rrePMfGJW/8M2AwO1TTa8LmHBvDWd2e20GuLFIsvQMJuzt
GwsWG80A2xH++1c+MCFceauen0AmHPy4S07xJZO336yXvywy4Y/CZc/Ke0zI
OlP2EcPOBIKgW7usKxNCL2+MzVfLgq9TPvJBN5iw4/x8c+vVLPiQmdBpep4J
go6qkTrNWfAsImNPvhkTFjhM/rfMLPBxKffddJwJgdYfsD3a2XBBpUdxQJsJ
1Wkj9eScbMCITvgbqjGhsSPLgDSbDQcW/nWn7WXCrjPvV1f25cDawo2P3bYy
4YMSKU+fd17Ua50mMKmrEGnUGXQDnwv5m23V/vu3Co+p6fkSinnwlnwrtGl2
FTQr+nox3nnwqCL8wIv+VbD0FFB32ZMPNxJehxN/roLgWvuiyMB8MPdOH7zY
tgrZrU//+gzmw3493NOdNTze0nN07/sCkJL9MRxaugoRO25TxQULQYg5cnA2
dxVaf6R1q7kXwmgdc7To3SoYyXh2upwqgniMrq5x4CrY2J7bJp9QDIIt/0ba
PVehWaJCWodQDA/OZIfb3FmFmH3BGy22lYCVjUzP7eurIEmg2U6mlwBuqNuH
emkVhtOqyeHzJaB5I3pXiOUqPHvuoBF8uBTE3JnuCcar8OXSWMrYr1IIJJZt
kT+6Cq777V57KZXBgpd7Td7BVbhl3TjW7l8G7SEjIg17VsHaJVRpn0Y5RCZC
+rwwr978E7JeXQXQdvic9uIwgGzwMf6CciXcStdc5qMxwLbu2YlTSZVwoiDN
UOoPA/j/hU8EhFdB+UH7qdRxBpgZdKrL81fD3urNz1QHGHB86NhX19BqEPga
1o/5zoD7Aj4HCa8/w/1TBkHtjQzw2uZg4r+3BsY7VxRtahlghH9a962mBqDf
6eHtfAaMBQmJv2DUQsCSqVhCDANy6tmJL9rqYf4hX8XuCAaEd/gNS74CsGdU
X84LYoDljpm9BZo40BNSycHdY0D3pQADRfEGyI6atDjjyoCENS9wW542wDbx
d1T8DQZoVMwT4gUagSqzwWT+PAOaj10M79r4FZw+Ns15nmHAZ/3wyivvv0Lv
3sBXfCYM6B2+W6JyqAnKNJZGt+owIG05fzXLtxkUKjKfpKozwLf5pEr0/haI
O3pdTVWJAbQfSRe3/ua9b0789MVIM2DzG+n6016tMPY9cne7OAPkxR501Vq1
gbml8beLaxkwkqNXf+fod6jHMzzG+Rhw7IDTkRda7aB+uVTyNoMOacfPVTgd
6YCUcbdaCpEOMeszuHctO2HDrT0OwXN0+J4u8+2CfxfM3YsvejNEB+mcOLey
yJ9gRz1rs7uXDmuo4tJxmG5o9Rdm53bQQd5o9JzPmh7Q5a//pNNMBz2fEgG+
4R7IfOplhvtCh7GjzfmCX3/B1g0aRLNKOuzQaPXN+9IL4a9mE/GFdEjZnTUR
2IWHFalUo/+y6OB5ipP9iE6Amym203Mf6fAx7mOTNOqH2PJZw1+JdLDO9Lkw
3DIA9R1eCbUv6TBXcLZ+yX8IFqaE/32KoEO8xT+re7dGQJYdb/o8iA4NVVpl
cbFjcGrr3tRH3nRQWuh3yxCcAE/1MvqVu3ToNmGxsj0mIf3EMasTznQofEwC
C4kp+Hm1O0f9Oh3sXZNrrdjTwPH8T0DqEh1GJIcyx078AbWYf/YcczpMq5+7
ek9kHuwzH5fNnOTld9HI8b29BBH1Gzf8MOLpvcXX4GxLhHJCimPVYTpwW6UT
quVWYHJJ9cvHA3TYJaHi5zRIg00itVsjlehwXuJCj7kK797fZXbn3k46MI5e
U3yeJYBz1x1osZWig925qGXFwnW4ZAuXXcZidNizpumtp60krtWZ5r1/DR0e
qXcGurTtw1GCnv6U4NCg7NzbjkuaxzEKSVv3r1JoQAgQCxWZksNYFmNDJhdp
QHmWsz6kehPmcav24PdpGogw1n51vC6CyR9vPFg2QgNTfb3aVTEBzCDd6tk7
PA1OBaR/v/OCjUQkJn6HddJgZjx1lr6NgQ7tv2fg3kyDK3KHjzWPU5CDMTfe
+gsNsKhXr+g+GcXaxSwaVNCg/npLvXs0EdXflzupWECDqxPZVTqCy2ghKv/D
xgwanLV6W4wPX0Qy6fo0SgoNOo4c9HvrMY9O1ny3GI2ngXtGshM2+y961GOX
3fKcBq3qAc5Ze/+g9Lk/fEXhNHCOVqkd7Z1BPwV87BIDaHAnoLo8r2gacWRF
SoMe0SDs+g/DvIIppKqdsN7FnQZaj8/vlWn7jWzPKN60dKTB7gY7U0f2JHp6
s7z2yBUaZN4PqZ08OYnK/Y9LylvToCn+9tV36RNo8nWP+7qzNDBEr7bsFJtA
m/JvNBOP06DNjHv+VsQ4MmxalhvUp8Fwi91y04Zx5DYc5NWoTYMBrRWPD3pj
KGlF7EeuKg1K3Im1n9xH0cpe9WD/7TQ4YBTQnSw4ghQM6/pvbqHBD5KEpqnj
MLK8eEbrrCjP/0K9mGPdQ+ixx2DUIUEa2HU5kJ1PD6G8J66TO5hUiB7p4la2
D6L+9/SjwmQq2Dhv8jC/NIjWVEa8Xpzj8RPME+f5AeQwk2FSP0iFS4Je9Q9U
BlAs59D7zB4qdCWruBn29qMvUk2UmO9UUFtYZuqE96O5AxfMvRupcJAlxVzQ
60fbTCczr9dQgXhu4jhnpQ+dvH6fa1pKhcY5yBGv6EOPvPlsNXOpkNZq0v7D
tw/9yNq5jj+ZCudtz7YabOpD/y3i+B/FUWFvZL7fnSkCIh28uToTzau35LK7
v5aAwnyEyXZhVPjupJxhmUBAkvVZ8x3+VGjoGrAvfUhAGYJmU+gRFYT4D2UP
XiCgw6cXhkvdqbCY64bLOUxA32Ji8IpOvP1e/usgsIOAbHs1u5Ku8uJ1Eult
ggT0V+ZXi6gNFT5821k8s4hHftc94bE5FVo/eJQcG8SjDRnS1cSTVHiwPeJ1
aysevZ/7XOyIqLD1yOU/jp/x6IDmlZw+XSoE+B9sFs7HI5wnJ81MkwpjtX+x
yal4ZFWbmvxFmefvBdlzkol4NMl3/LWmPBU6OocrHF/i0cOT088+yVDB/9go
+XEUHgk9jwiX2kyFHQ5Rey89waOE7v2BUeupIDUqemUyFI/2SXd4sgSowOcg
8kaKx9VX7ty5y6TAU4WvaXM8Nkvf5DxJpoDXfNVOG976odnS6xcXKNAievGW
FS+/u/pF29YpCnw4Mv4EH4NH7Ac0S/0RChyeuag9/AaPYqrfni7EU2DowcGm
6x/waDdH/5h8FwWClMQVL2fjUcnx0aPxLRS4bcTX01aGR8eigrVFgAKLZz/9
yMLhUW+XgppfFQU6/nZhiV145CTZvHexiALutgRr7CgeUe2c5f7LpkCRzEX7
L//wKOLjOqlfqRQILvROPypAQNum88ROvqVA62hVpKwUAenfW+aqRlNguuhU
IduYgDoq4ugfQinw0Mg2j2tHQNeYh4gS/hSQm1Osu8Hrh+CnvpO02xQYaRSu
Ns0lIImO7UNujjw2XGfb+Y2A0iXqf41cocCaWbUHlTME1Jwi0Pz1HAXWlSif
q1HuQ+vLnmW91ODlq6PMdH7pQ+/o6qkCyhT43OFsUDrTh9SMfiZ57qbALb1v
uyUk+pFFm2T0ZQkKGMlm3rR060fjYlWhXesoMHxKM/Do2370wNrO31iAAjml
29+XtvWj+LH37vvIK0ALMZVz1BhAiooYp+T5FYgdLyfmOA6gSrfJqxunVsCv
KL4q4d0AGqAoWZB7efFOzaUQsUG0c0OxFlSugMLOAnLguiF0Z0p5+GXhCiBw
LH5zfgjV16U9/S9zBeYLB8lL74fQVY/XQ/wJK/DqYEP4O/1hlNLl9cTEcwV0
tR13esePoIXMfxpbPVZAIviarRZxBOkHuQxOO66AqNO4b47lKBrUsNeIsF4B
8Xhq6a5tY0jmleFAm/YKfF22kangfcJcXCvDklVXoDyy2kwldRxVG2scuL1n
BbrJyiE2w+PIlrQ7bMOWFfhw4G/5OvsJlP39rfrI+hX4lJu8ruDdBKKlb+4v
EFiByFaT3ZixCZRwQUjdgkSGweP9Tp7uk2hGNbBv1xwZ9E1unNSrnESHhagh
yxNk2OoscE1T4DfCl88SXnWTIVfwvo5Q2m8kKdUe3FtMhjcqPXGRrCnkuHRc
NSObDH7pB+lK9tOovKUO75lKBnpzlXFOzTS64F2oIh1LBqEvR563hM+gdIt9
+NkIMiRd87d5tzSDSPtSg6qDyHDSO7Xu2+VZFNf/qtfuLhn2/RNfyMX8QZPF
64NUnMlwKKXneVb1H6QVFbafeY0M/Rnx2RGH/qKfep6PU8zJ0HrjJ+PVkTkk
/s5WeUydDFpl82s+eS2gaw+7e4oUyeC9LSwgbPMiKjxjFhgsR4Zr8W7tDWWL
yJyl3yO/kQyj0EwyFfmHPvSWB5CEyDDsfUt0U80/tJivvu8riwQsPwuvd3rL
6PnVXQGOCyQ4bGx1dZq1jIZ1kpR0pkhgRS17M3+TiNTEJLqFh0kg0mDC39BF
RO31AkpZ7SToYb78/LqYhNbvnvnxN5cEaeGXql7nrqDhlLXt4+kkwGem5ipp
U1CBjGpLXzIJYjN/gGwDBVluuVfXHE2Cc0FWxseWqEghNq6qLpQEiZkbZMRj
aIi8oaK0zI8E+4jeH+8doqOENavZaW4kUBkXXr2WwEAuYTuwSQ4k3rtRcr7k
/CrS40MfX9qTQFbl9zclaSYaZoS9CTQjgWqawc7zNSxU6JUZ++gYCS5tbv8u
msxGQeTWZ7ePksDR/bTxvzAOUljcGGqnwtPHlthjbcCHWXHVDLRUIEHCmwCa
WyMfpnnmvI+pLAnajP9O/DPnx7iMJ97RWU+Cet3qhb8BApijV2tc1QR49SOD
jpjuEsSIDg477lklAkHaOHGqTRBT+Ev+ssQcEYTlytbuPiqMCbY0sVk7SYSs
AgtdNt8ajFXnLSvuABFEk6yN3/Wsway05JkuthFh/cSaB4Zv12Jajncdm2og
Qn+f6kP+2HWYJNyy4dBnIhz/rbZ7/Zv1GP0anUNtOUS4GcXncbNrA2aDrq0G
Lo0IGYJ3WnSFxTCjZX4qVW959XztN1y3EMcUa75XLHxFhDi9xwJ6lzZhQgtg
d0YUEd7kB0jJbpbAWKtMbk8J4cWpt+LPDkhgFLOEpF/7EsG1/1P4dMFmTGvq
6Y0hrkTY6BmlYxguiUmWc1/rc4MIf1nRH7sjt2JuJ8cI3rUjQmXmXfvQVCmM
gXQJx8mKCCJ18WSNTmmMWPwvxpXTRAieeUynbpLBjG+irlwwJoLlmKWi3h1Z
TMmLbctmekTolPqFyZ7djrGOuDpzZD8RYs+JPijX34VREgqe0JAnwkM/UfXf
MbsxtOD0YSUZIsgEf/r87I08ppXd1CcnQYR3+fq7HpYrYJL9Znsk1xEhNMga
n7q0B+NOW9clyk+E+2rmoUmmihjDR2ptAoxlINgpv3jwVQkjRjRvYiwvQ/uO
mKjVW8qYcY/7sPxnGcbvTe/B66pgSude18yOL8P05+tfigzUMGHOlRWj/cuQ
1vMiMyDwAMZ6qr8Y/3MZsj8p0sdCNDFKN5h5Ha3LsG3oxG7fRS0MfUQu6ytu
GfbH1CYER2pj2uwx6TXVy6CwOa7b/7IOJrnP4X1JMS//AZ3UpXu6GHfrJ0nZ
2cvAqmRuJuL1MGmcGm2VtGWQnkta0+ZsgCFkL3flvV2GBsFgmeWrCCN6QclN
PW4Z5rxNtxFuGWMw7MvCRdHL8ESc826b63HMqdD6jgIeFxJfOvvz+H9fRAdf

       "]], LineBox[CompressedData["
1:eJwVl3c8le8bx+1j5ZuRUIisJISQcD1RUSKVUSqiRGUnSiFCZFSSVRGyZ4jM
+4jsnT2PPQ7nHFsUv/P753le79d9P6/nuq/PtW4RK8cr1nQ0NDTy1Mf/3150
wsNxHSSUs/TG5tl9bSyrh9N4sJmEOgIyu5+3a2G8Rz2DRypI6E/QEZUJudPY
C+/ZqrEcEioS1TxSEATY/O+rm5PxJLRxlkOLeY8GZiSFZGffklBtShWKGFTD
Kp9LWxN9SOhKFDcamVPFpDo+fCS5kFAek0RYkKwKFi5O27l0h4RKxp+KjSec
wP4+tWNeMyIhVtZ221caSti91l7NzbMklJXoNyrxVwFrF9V+vK1MQsWbz1/o
9h/H1NxzMnckSWiP1vFF8Q557GsT/zgtPwkxrpwP5amSw/475M/HyEpC3S9B
zZlFFvNwpRgwby8iDblBSo6bDDZZf8OfbWERlU6x5uIZjmIGgnVlHMOLqOi4
doxY3hHsh7PCMmfrIoIqccHWx1KYaO1nqX1oEbE/lP/HfVUSCxFgseDLW0Rv
2Ds8E85KYLerR5uEwhcRZ7uzcryVGKajsWk97LOIsIxksy33w5hs8V6aT86L
qHC0dUEiThTbd/xIrJnlIsoSX/EO+y2C/c04rcR/eRF5br+sauAVwSbEzFp7
Mer/7u7hiL13CGuMc7GNlF9EQWefs9W/FMaiw5M+ce9dRHSKim38soKYN3u5
cufuAnJ7qlHgJXQQuxfQ1f6WvIAaLN8l8wkfwJQ8GBk52haQh5537oIeP3Zg
VTC+uXIBWTWZPFp5zIfROSifDM5ZQKeI3agqcz/Wbmljzxy2gAoP/VG8psKL
FQ964+o8F9BosEpIQvA+LM44OsHffgG1mz7tzJvlwezON3TT6S+gZV4Lu+ZS
buxq9ZhjlfoC6rGhFWmR5cbUNLZYXsgsoJQjDEIe6VwY8/Gjmv/YFhCrprCP
/DdOjJyh3Ve2TURJP3mPemhwYj1iN108iERUTx8qRm7di33lC03ZaKSuPwsz
kqDZi52mIXMsBxHRjR7NesYjezApD1x63lMiYvl0LfGOPzu2d1VY2/E+EUlq
Fgxis2zYyIyh+4IuEbHVdw0L41mxX5b3OTNViYg5T3TMV4kVyxr0ybwvRUSV
EzKDEjksmEdb/ug0joikJSqGpfKYMcvzTU+TN+aRo0dfJrsqM6ZbPcF9d2Ye
2R8otVKvwWG8xTy6Y7Xz6Oq9QxXfZpmw/Di3vEH/efQwYcFm7SYjFsP35kLs
43lE78LgKELHiL0IT528Zj2PEv8V6GhnMGAGAX18PWfmkXrYSPAMHQN2gmYp
P0JpHl0Qdv59rIAeO+jBon9VbB7Jb0TbLVnTY/P2aj7t9PNo1aiAEthJh3XM
XDnwZmUO/a3/d10mhA77Yfnwu/7EHFpv3j9L1KHDAow/zTX+nEMHTplcefiL
FhPV2Ln8y2cOlSzRapv00GDtnBoyMS5zKE+R9op1Ig3mNf2Myf7OHDWXbU1a
HWmwgTd/SnnOzqF9bR3V3hw02Pvx1cN3mefQf6KTGg8Ld0CrWHFH5c8s+nmN
MNhksQOUYJc+tvlZlJu6uaGxZwcunqCEFDTNossnY1x4HP4BQyBxje7NLNqc
upEycvYv5N+Ubu/xnkVBB5KuCtD8hdvH72dkOM2iNMUX9ctl21A+MG1+5cos
mqxgaT6vug2Pj43XJeybRYrPZuhNtbZAjE4k8THTLNqjVqilzrwFnT0Wz89v
zKCo9OxY27Y/IPtiWH6pbwZdXZBELpZ/YLqzLwb7NIMqRmkE7rzfhIjU/a48
oTPomL7ZVoTVJmg9NzGY9ZxBXWeYB1sUNiFOvIvurcUM8h4L9jvZswGmT9oe
jorOoOBkYxYdqQ1g0uc4V8A9gwa9Juv+7axDoYj+oVcMM6i2Pajmdc867G1q
7JKdnkYOxTLpXIHrUC9Yq+GVPo1uBOtZXV5dA7dlBr4rsdPIOZ5rv3zHGojV
aS+LB0+jM8MZd1DOGrxwqkppsZtGYlf4344+XAPV6vL/BOWnkaznbauyxVVI
ty0YKyuaQk/iuorG2VehyypeWC9lCrlEL335S1kBmlvBtwY+TKG1fLaE1O4V
MLl8p3/TdQrJdktuJn1ZATo17o4TilOI0nmskqC+AseUdjl+iU4hmUh282Pi
K3BNlnjRiGsKJb01CF7ZswI5otX1LkuTqOR45uVxwjKYsT3C5+ZOoocNk82M
Icvgz2ixoxk/iXzH10IH3Jchb/eCemvYJJoIfSTCe3cZmFZFfyzYT6LbxZ3B
JRrLkD/UmXtEZhLNm8v981hbAtYchfiktAkkm+MsdOvxEpxIExpWiJ5AV6tb
eKrvLcHtRNYDP19NIJtvhCDXa0tQFDkeSbg3gXy3tX0K1ZfAyjs8TFB8Aql8
Grb1Y16C0KdezVk8E0gjTG1A5C8Ffjx6wKrOMIFMvVjKaCgU4LDVCjCbGEdW
5woNvPooUGq47BmVMI789Bd+mmVRYOrCSJnEu3H03uv6y6kECuw92/jn+4tx
dFji8630KArcO5n4uMtiHEEnf1LfSwpwiV6x5xQaR18ipR+Um1NA46Bm5pc9
4+hXVHjjujEFbHml5+T+jaH95Qb6d/QpUMlKZ20wNIZqFic/tKlT4MHKt5vB
sWMo2nJTiCBIgRjlpVM2r8eQxiaJUsxLgfqn8ge0PcbQ5YuPHEv/o4A4TW7/
1vUxNCbfvqBORwECe5bJA/4xxNKnS9DvJAOHIfHEOZYxVK157FhALRk03kvv
E/1DQJLlLtdZy8gQy5/+u7+PgFqCL/5b+koGY4kUw/PRBDT08vM5kedk8Ls/
JSceSEBM+7Q0PrqQIT9L7D/aJwS0WfWHeO0+GfYqJrX8MCWg5rfyhR9NyQBu
41kROgQkvt/gj9AlMjiUiIQ4qRCQgUGA/vg5MjTBlwtS+6nfc7Qki6uQYct3
9AgDjoBsUh6vJsmR4XKIBhd+cRRxKGjMmEuRgT1G7Y1c9ihacnR//EqADD75
SkEcMqMoKnSJJ5SWDCOqBTq1bKOIK3Beb2CbBOroOJMXcQTpPEpcubVOgvUm
2ZeLGSNIonu3kHGBBEZXsk8nvx5BP5wsraVmSPCt7yjNrQcjaGC3p8BrnAR2
U1KezUdGEEuuwePqfhI0Pkw95ccyglIe5b/P6yaB5LL41qm5YXTRuSWltYME
4zui7plpw+iJ3Z8DHxtJgPknnLgTOIz4/+NU160jwWe2Q6sCtsMoU6i9+XAN
Ca7xCTq/lhxGZXldv+9UkqAo7qOcFm4Y0S6t8NWVkYBbXID0Z3oI/Yi6amdS
QgKnzOisb7VDaJFdRY2zmAStx/c/vJ8yhF5fKaWsF5Lg6I8PR0QChlB/za9d
pgISBGryzPZZD6F9knT92DcSTNeEp7w9O4Q8FpvJSbkk0NbjtNYVH0KnW2RK
5HJI8KXjzWEaxiFUG1ybOZFFgh1TjvHiyUGUy94JKJMEN0ZCvjjWDCKj6P/I
VRkk+HGXzULy6yCqv1OhREwnAS8xSHD05SDqMggNVaPyI2fmocg7g+hJb6x7
bhoJ2jcCYg20B1GnjqXLeSrLejFeZzo8iGL35+/gqCxQ2h41yzCIsNDCJ8RU
EjCuf+xpnB5Am5HmK4tUphy32ZddP4ACrWxZ/6PuH7JXMHqTMYDi/FzMDKhc
n/4v3DlkAF3v3H2RSeWCqfqOqw4DqM3U8aAE1Z44kYi9yoYDKN9pvamCyq9v
WVziUxhAcuuxci7U87jFSIdtcQ8g77fHZrWo57XsXmseWutH9AfPRMlR/XGR
s4oN9faj+GNKoyrZJFDVD7mQUNKPmnP23LlB9Z9YkGnQy4/9qCbiQ20M1b97
f4nWW3v2I+ksLGc5jwQz6iVnpU/3o5XbYvHLVH06n/j5sR/uR8gycDX6Owkq
Cy9Vkxj6EfPHm/euUfWNlJnGCur70EyMvqYINR58bb95f8joQxOShmtHKkhg
//V5pXtIHzJ96P/gAiLBmYPc6uqGfUglQFqlo5oE8tdGPIQU+pD0/vQJ5VoS
HIhIL6Hh6UM7Jo6b+fUkWGbDVH719iLLd6ysiy1U/bftFAwsepHYVnKuBTXe
Q1RUneVP9yKurLOejkMkcH9En8d1uBc9PC168P0oCQyIMcd6p3tQ3fB2IM80
Cf4N1ErdduhB4gKnDDdWSGBWekjYxbMbregoba9zkeHcOvGWkUU3+nr39V2h
/WQ4rlD8Sfl0N+I69CHD6AAZmDP0BbYZulFrxc3IhcNkKIrx2OcX0oWKbaXd
qk6QgftpF1vkx98ofxM3U3aDDJu7fzjJHr/RcrDczH5Lav4HCPPpmv1G+yjL
Od73yJAW8UBsi+83Cj70fo+zMxk082g0zCM7UeNVFYP2V2S4PyPjIPGuAx06
LNIgXUQGr0zWBPs9bYi7RP6WHhsFzpcYZws3t6LozcNNxhwU4Kn7UtLxuhUF
Lbf1WXBSIH1cufMEcyuyOq1N57KfAl38d+h36FpQ2fuzzYGHKSAdWGYdttmI
PFymIi6fokDvXTvp3IlaNPb6Jk27DbXeDxuqFKXUor+1LA0nH1AgxeTEmYr7
tUj8y6mTn+0o4Kq7c6uJ/Auh+uZLhs7UfiPz9t3Mdg16l1HMbOVBgY2vrnGk
yhrUjyaq3j+nwIjg9cw1nxokm8ryucKLAln/if6iZ65BKvN/ljd9qedZKdgU
5qlGS41sqczBFJC3i2aU7P2JTg0ub62FUIBv6jmXbOxPVCTmPNofRoHpnrMy
6od+opUEmjC/cAr4lvZaXJOpQr0OLWMWMRS4r1huZ0HGo/jnBw7+jaWAYdaX
p/fy8SiJbex86CcKCMXdf++qikeux/uzQ+Mp8Jh+I1QkqBKdo/S30SRT4Mwa
SpX7rxIJ+fuMaqZQ++VMYJXGhwr0ieaImlMqBXIaBdauJ5QjYy/aP5npFHhe
PsFhK1mO5Kw5lr5nUOBCTpaUW3YZUl7+fSM/k2rvO82b4SWl6Pclz1yfbAoU
vsS5fYFSFGu5IW2UQ7X/cfubnF8laKXCVJMvl2qvTUx6uV4JUlQJzG+hsvB1
q+rGjh8oueWioWseBUgXjg73mf5AZ03PENi+UaBcfXV9ergYdUvPSUdQ+bVs
xd61O8XI7ve7TfZ8Clw7FCBNP1+EvtU7c7pRWYLr0hlOpyKULBur0UblVXo+
c+H176g/ZusMXwEFfq4R3I89/460By3JhlR+N5P+7hTdd6T224vhKZVv97tk
ng8sROO6Y3pvqSzbdOqXKUchWm7YComk8t9yhlHriALk8Fb4TTCVG3NaNh8J
FKAdh1f8jlSO/hLJ5fslH6VXG6xgVL4XbiHzViIf0T1yn6ChspKf1Lm4rG9I
c3YuL4dqH73bkkWWwjfULOgmeoHKHTalT0t/5KGhjK6dTup546+/fF+vmYc4
BlPZz1N5IDLaLDsoF6k2PefKovrL3UM6rOFDDmIMbe7ZpvrTgETpyU3JRuct
T0upU1nCqlg4sjgL/UdUeH2fqsdOt6ft8/pMdN7uVO1Lql7d5898s+rPQASe
meTX1Hkrq4J1S3c+HZXIfF/2pOrrd7xDS247DXWf4Xe7RdVfkd+8a/tgKnrs
rXmOQI0X1lAxwfFjKWj1YrH4S2o8jdMQres1k9FlelVLTmq8vZt134i4nYRE
3J5zkqnzm+1NTeyZcyLawFr4NL9QAGtnCLL0TUDaw1oJ7nHUfHI8fOKmbjxi
vJNrlk6N71DTvFqpB5/RnYATQgnRFFAHjWtrwR9RxDptoG8kBWI5TJ+FtUUh
m4baR7TUfDm/PsF+Y+kDSuHyCYx7Q4HNYac4Se4IpFnKfF8slAIm2a+r8CZv
UWSmf8HcK6r90nIpAkshSHA8KU/Kn2rfH92GAqUgxNM7GX+Jmr+Ho5//N13m
gzQOkZ8ZUfO9PUto1OiKCVKUO35ayZECDJZ6hwK1NSHv4upU1kNqfZJNdGcv
tYJTRaUtbLYUGO6/n5tg8ARa9nK9e3abqleuvt4CXzCIT0wICBpSQICgKHW1
OwxaezpYf+pRwJw5lG5Y9x0wq7yL0tOhAM3JR6PajB9Ar4/uB5smNX9jIYbT
6xMUtIy5qklT4EN+Pu7szTioFpDK2BGjwKMprlPqgl+g3NZpIlmYAjX//NMd
txOgTSw99hMPNR5l7QJ6ipOBWazXRW+LDBlvVLGv8tlg3m0d8uctGRhq4stx
SjnQ0pdx7rkPGSw2mU4+VMmFiEvfGwqo9fx13jwff3wepL0qs4PL1PrOX8JJ
SM4H/ryRcxXsZHhYsND2TrIAeKvLzAe2SBCtfyhMO70AnHro59Nmqf3P5xVr
alYh6DyJaLlG7Zcp88b0DgVF0LAWc/GPKwl++wVVCZ8ohpbI4CdRt0lAI1zh
3VFUDIfDPx+d1KP2t6tif5VKf4DyXp7uVyIk+K98eXUbXwo4OVk7cv0iPAl9
Mx3UWgnmv8RraZgXIVmy+uspQwRX1dxu3iUtQGfVutViB4Kksn41l64F4N3O
cUx7gIeJM438IfEL4CTHu8DmUAWevQqshccXQDx6crLTtRoeeZ/Eys8SQd16
pzrzezXMy4xbfJcgwhUFviS/9Wowac27ZYojwotmPUvlJzVgf4aVO7JuHgZo
CoZjnv0C5zY7AZoz8xB236fntm8daF1NbUyQmYPAJtrvk5V1EDs6657COge+
x3zf227XgXV6paHl7Cy4L/kaOrnWg7mOhvdW4izcfurX6H2vAU5YvHj6k2cW
jge9qoy70AQXxNkFV+anoSstNGWIqw2Sh6fPMVtPwp7Vi6eyLv+GPK/4PM1H
w7B3QOGOu8tvMM77fHmCbRh48HzBWu9/Q9WnzmDTr0MgEDI50Nf1GwznRimV
XYMgJfbcg/FaF8y3n/q2ozgAWkaZJebm3RD6bDXpKKUH3ApZVDkf9oKNI1JI
9m2Hp7Fki6HgXtjv2WfkJ9QOz190v0rN6gWPWruowsdt8PJiQq8GqRcsJpVZ
Wedb4O2kqvsD5z4YvHsnXYzQCJk8tkXV7v1g1BpQ+5DjF+Rs6Y+ERfeDSd1i
id+NGsgnKDKZlfRDX5WDl1NGNfzI2jWmbPVDqvjOpV39n1B7JmrtoNcA+J94
PO16AwHBtVbJzW8QmrVTTl8s/w5D9YwCaV8HwW+SlflqciH0HTy7218zCOlX
r1iMvy+A9prqBg3GIcj6rNEt6vsNmvnocx3Fh2AtXPc9n28e1NtpRSScHQLm
43Ya2N5cwPNUmTMGDEHMS2IyQT+Tmnc0Z1RShuCERnzljnc6/CiHI/drh6Bh
bGrrOkqFvLuVK81Mw2DzNX166t5XiC8sC4x4RdXB3LXh8c9PEMu8bV+bOgyA
2RzUZ42FyJtqVzfrhqFd0aboiHMUhDGUCN5kHoHl8s/FZ+LC4fW1TbowqRH4
83DRO9v6LQRkqcwi3REI71XyI3wKAS+jovzDQSMwVhg+VsbuDx5pa1HG6SPA
hX8t4pDtA25/lTxfNYzAPdsSWoGjnuBi6GpVMjcCHwfeC70LcQeHrwU6RJZR
OHDkzFqijws82FyWEZQeBdFZHOUOvx3cu6jAdenCKLy0sObSvn0XrL44b7x4
MApyzXmXTEtugPlq3lD+61HwPhEX1ipxGcx0KVWTGaPAsTjQQyuuBcaf5FJ5
m0bh59E4HnF5GTCkOIToEkehCvejmMOcFiREe1UrGAlwU6NK3tN+SlOs2e1o
zz4C8HIPirR5HAZRN14hsjgBQmoyZBkDNeDQoaK9zMoEuEGoG/3FZwBCjcb0
IucIsIEjue55ch0Ouq6tnTQhQBxXXutZ0zsgIPRh9so9AqTRENG3mw+Br15p
8KEbAcyFGBz8bV2A16WrxS+AAIZCJLFXQ+7Ac9AV/zmSAL0fclpL2b2Aq5a7
oCiFANiudWyFpy/sdSpIbisiACeTgOtb4wDgELgaPVtLAHa1bXraN6+BvWb5
NW0vAVZlHehPHn0DrA7hngIzBJgIXr+Rty8cmPkUnBQ3CPDvtsmDS/URwPSz
w+oibgwYzvccY8+JAgY7Z2Pr/WPgrswHT+pigY6XU9dLcgxSf17WFNsXBzv3
DY/l6YwBYfdZcnlqIvzlpgg3mI7B9yjaffFxX2Gr4g3XuM0YXAlhUq/IS4F1
zrYN7sAxmHAOj6ySzITVMod5megxcNiV9ZQPzYZla47hs2ljoEV5q+KGywNS
if5P9/oxyGU0kpcuzAdxljrXZ71joOLTclgfVwg3r2GS3tNj0Fp1hFfO5js0
riuEBDCMw5/TGq0f9H8A7bkszdfc41AQvBt6sasEVD+IL4WKjsM7QeuTErZl
kKzIZ/IBG4efTMkdCcWVMOT7jjnm0jjsU3mlWHISD1ydrGWfzMeBfaUs2lKo
Cl44/RP++nwc7ooONwn9/Qk3s8fn8n+Mw4nUG0bOrHXw/u+NT0V11O9/8YT6
CtdDo163QWnPOPRdd9dIPtUAqvN1BVWr43CdaHpeK6gJuCWzPdvlJ+Cj7+KW
hUY7XHCTkO+CCfAItltKmGyHF7/ix3sNJkBYxCk2+E0HkO6E64zaTYDOGk7Y
itIJjV/cOUlpE/BKvvKr9Ug30FIo1UvFE3DBdUxKPqkHVOGB21rtBEg3JV/6
Tq2bKcM3B/9OToCvNsP4Kq4ffAS0ktlEJqH/rNRNS/shUI1gP3kkZhJquASE
SWtj4DjhT5RJmwTVaybxym7jkKKw+1m+eBLWLi+rXtscB56OJTrV7klIbE75
eohuEsh7epvPcU6BuV7j9/Cj05DyKuH23aApiCnlQS2/5+H2N/vcrJgpSLmY
3j7rSQSBwZM7q+lTUP5hzmP7yAKEyXZ+9G+cgvv2unjKq0Vw66brTWGbhunb
X6+dOEaBc4fv6s+FTkPUaLpE8JEVmK6UUHMInwGRC79bC1P+wJfZ5cCixBmQ
ESz3SubaAjMu1LuTPwMxNpcSJr22oNXa9PGb3zMQK1BScPTaNhSxB+blUfva
8Ln97KPs/yDAbE5iJXIWtoOPyuw/RYNhft8fn0qdhaPfPWm0nGmwrWyfmpfF
swD2vxZOp9JgDrQCVjx9s2A6XGafxkWLmaRd+HyCfw6YpqYnb07TYuLrmdxP
Ps7BIT82ZPWMHuP7dVk0M2MOCts2OgPT6DHWiA35kRIqH3DJleymxyjHtQ3O
9M1BpxYYfJdhwMrtBwL37psH2e3AuMtdDFiu+osobbF5OGewLfjiLwOWyCaR
4qY4DxVEaXrKYUYsMN25eujyPCi5X/F2c2LEjKaYd9LC5uFqCJPPhV1GTKcw
h33o8zzY6+498O0QE6b20ujAf9nzIB/llnPgNBN2SOSL6uOmeVCNvKo35MWE
cVPO6qQNUNf/UyCIfGLCmBDReHBuHkYIH/0v/GDCiDdVHp1mJkJ1dobw4UUm
bOTosI/rfiJc03xLrGLEYe1bvm9TqXPLgb/bbiKCOKy6QSp+4AQRaGkENlQV
cVhRdGv2Huqcs8JSH7yrg8PSbVzLMSMi7M0bAbsbOOyTskDToztEiNX2YnGz
x2FvGPH9KS5ESHWyaOT2wmG+Xdaz/T5EeJAlaageisMeJ7FtsL8jgsHLKqPp
WBxm6/KNEftChKSOH17MqTjsxmlTnke5RHDcjbWM+YbDDPb+E02pJIK4zg2v
N6U47PRo4vH+FiKICJdpj1XhMKUcXYx9mAgNTUUc/nU4TMKTZAALRNhWWZd2
bsJh/BcjbrlsE0GaV+v3xxYcxn5AzS6ZdQHQnX/Ht6m8Mzfq0ce/AGbXkyz9
m3HY0g//IDZqnMcPnLeXb8Bhk6+ORmuqLgCTq9Tl5Woc1mvSkeKsswA7a4e3
8eU4rFHc/ftXkwWgrzDXCy/AYRWrB2t6rRdgrriF52YaDsur/tnJ+ngBKlU7
BXk+4rCkcNsxDb8FGEvsO5QXjMMiLTkoTu8X4PTudrO4Bw4Lki/cSUpcgNtv
cmof3MNhz3ev7+n9tgAuljZproY4zLF19wBr1QKY0BjTn1TFYVafk6U12heA
X2ff7WyqfjqnlnSSqHPtR07xA8/HqPHDGmXS828BPHU/3atCTJhMv7o1y55F
GNjT+CbkIxMmnDb+SP3gIuT0re12ujJhXO6Bvo5HF0HLLOLgaz0mjPGc7LtE
tUVQaBHTTRVmwjZ5uuK7zy9CSiv3hPASIzaSL1xxynYRcNjgxGYwI9ai6iIt
6r4ISxW7yNyEESuvrIliDliEZpo3DZxCjNjHxvsu3UmLVH/+sFdJZsBeG5aP
luUvgmGjCG/kXQbMo4dDP7FqEapPPmcREGHAro0XSDqOLsIH11HpB+/oMR1b
pg/GpEWgM+CMET1LjymTrtGp/1sEzcjorr41Ooxn698Q8wESfNVRjN9vQId1
cOqGJ5qQoP9AbFFbHw2Gj4rdDbQmwaA800ubRzRYnuCinSP1nrFzLts8j5UG
CzsSrqMeTgK/0sart8134MLpob/dLSTYP2Lv2vl5C07WyT4oHyKBvXqDEc+n
PyCl79ObSCSBLc3pKqn3m4C7LpHvyEKGSPOGAP+H61Dj5GTDcpYMv94/uKBd
vQQF6z+7yFfJIC971+tiAAUSn+/T6rEiw/6yos5LL0ngE1h6MOkFGUqGjVmV
teZA8wtDp3o5GTK7Q9OKqHPoMQlTONxEhlez841MvD1wMCs9i2WADK0zhpYr
jO2wXWzwqmeDDKXM5z2NhLNgyOai0A9+6j18uZxHj70XdWWsGR0VoQDTF4+D
iH4ENS3GBcdJUUB+5G7f/bBxVPpoadNPhQJ2Zm2T0gNzKNo78vdlYwr0ed4l
j8atIuMoQiDxLQVowweNWdro8GE6BXtoYyjAd5uReIWNAV+/4R/OS73XH359
50rGRUa82rWjn05/o4DeM8ePT0dweCF+t9yoDgqkGSlIntLcg5+NZevR5loC
qVIj9XRXHryI3ojZdYEl0Ivw/sKrtg9vtp036iC6BMuckjLdtLz45hsmczEK
SzDPTLGRid6P/3Yw4S/5yhJoJTxk9RwVwHvEKR/+9H4JsFha6YjZQ/gCA5a0
bx+XIMKGtZNyQwS/sDMoU5e0BOeg95ZMuwje3MJHeblgCf6S1gwkykTx2oea
z+t2LUHftpna3VgxPHuipdMqzzIEcTt1nHKXwsclh1RcjFyG65NnChoU5fGu
UhcTez8vg+pQQHWJgzz+fCbbK6vkZeA8fbvKO10ev5r32vBJ4TKsjWG7bkLH
8XrlgRNJnctg9ACZOTEq4Dc7/Vi2OVbAuW5pQuOnIr7V+AzJn3cFPvlL+OE3
FPFJffS/9wqtgIMRrXmRjBLeYMT3k8SxFbDJFe8gRCjhv869kLuitwKWUXs8
nW+dwHvYYTzDV1ZACLfG1xZ6An+JvLtpY7YCBD7GaduKE/itVa+fnvdXYH75
6KCSgDL+Mo2ncfqrFXj/UfmWTYMyXuKluprSmxUwuxVNHF1Wxv9l/CuEIldg
OYVceeOACj6N7dlsV/IKaNHWRmP3VfBeYWotFtkrYDGEmXwMU8Ff5dz6Nl+4
Ak8t9jQM5avgd3ifPqOpoe4P5bfb2FDBB3p4hhyvXwGRV72D8qyq+P8BqHj3
tw==
       "]], LineBox[CompressedData["
1:eJwVkHs0lHkcxqcpmhFHyv2gdDlmF41hzEj4vkWjVKOU1GZyG0mKRJKKNuS6
CSfSCWVNapOpKKqt92fSTXKi1NrpIjFkdHGZeX+DWPvHc54/nvM85zwf69AY
v3A6jUYLmdb/HltWfT1MRwXWGW/lDjouqNKt9XcnXRXkxB88wJvhgl5ZXOj7
w0IFzBVbg9Ov8NGAbpb5vSXT+e2Ho4FJfET/Gbuh304FPc+fNdPX8pHDe8/a
Ve4qqH1Sx3jykYe8X9gpYlarIK2X9uBrFQ/tvG9kVrpBBQtf3vUf2cdDuaV9
yZRIBb5pOY43R5zRF1GOT3WyCurmPzWWKbiIJow/1nlSBfad21aWl3GRqYfo
unaeCv46rVVQsoWLBFZs45ByFXATLpkZ3HNCFR/aPxkhFQgLzs4KjXNEgUHm
h1NmqEF3Y5ULw52NWoOvVPmlqUFVWbr2++tF6MTiFFdVjhp0ksbDGy0WIWfF
lhfFhWqIHHh7tSPcGp2Poo28q1BDul9eDlOzAEUlBHhENKqBcYljfPqEObJa
bt/GfKYG65BlIoWDGWofp4urX6pBqBWc+ajHBLn+XpM19FENXfY8i3M7jRAj
V6vjyKQaXs3sv1BXORf9LZRHWGlTMNqmny+fp49iDG6MIT0KLMDitWZQF70p
ClyobUnB+svy1Vc7GCh7u2Pt5SUUhOSZ9Ip7tZGHBUOwzo4CHreoxYihhSQX
a6NOr6Cg6kNT/trMGWibOGvS0ZMC6+ji5RtfTJG6NkH5HT4UzBx98c+u2gkS
feEuSfSjoD5RN/DgQw0ZX61Tb/4bBa545cDPn2qSFdO19n4IBfv6ygXisFFS
zrn9LiiSgm+PKjKUI0PkqvoQuiSRghqv2dnR9kpSfZh/xvs4BeE9zqb5m/rI
K256rIEMCr4UlGosn38mA6e67+bmUTCXOSxllHSRc2UNG9jFFCT3Gnc/jpOT
TWmnutrKKKAX68y4GfCGTPQWx8Vfmt6P7Dm1vrONtNNx1TapoSCp7Ea5UPGc
/NiiX3LnFgV3EntZDe6PyIK8XtvA+9P84tjMn5tJUuB378FkEwXr0vabeXJv
k2OG+ZsutlDg628QFKa8Rta83dXj+Xr6TyqtqKWzggw953ZIIadA8VmPVik5
QxqJ5ulkfabAx3hHqMPVdPLpgv7ztkoKEpLXnPTZGkse7b7Pbh2mwN9AkktO
biIdJIWy/WMUZPi9TK2dMCI/R0T6z6djqL7Z75Qvbfco+hX6bzEx+Cad8BtJ
9wCfr4ZHthlgeLiHcLziuAsmpQN646YYhLLa+Q3K43DjALpQuhBDQdfwrNMu
hSB2LnIiWBgsm3k2vTEVYIqjHnezMTQeTWrTSKXQcnfl9nQ+huxnZVtyuHcg
5ZjJoA1g4AzugsZvMnAkviY3CzAgpWvrHt5zUNAfGuwTYvB7K3EmP7XDuUdn
K/W3Yuhj5U/JEzpBmBnNvynCMOcH/3ZlUxfQ13k1bwnH0KTb0h0q6YVbeuYi
ai+GOItMplmiEhS2gvK4eAz7itOCnpgNganPgU/fj2CI3do/6DtbBT67yxbv
TcUQYRnrlVKogaMnm8P7szEow4JHma2TUFOprhIXYFjT9mdxUxid6JItGugq
wXDNd9FS2VMtYt4noZ3oIgZXN463ezmT8JpKiu68jOFuQodU/UOPSLCsuu5/
HYN9o7XUXGxAXF7xaritHkP9MYa2wsSQ+Hf7FFdIYhCdkojzzEyIOYm2h5of
Y6jds19sGGNOuBUF3BG0Ysic3MtutLIioutSx2UdGKS/JLaUmFgTF9ql7vAe
w5sNUSzp5sVE+w95yr0eDA1ZE6aCJ0uJWfoMGX8Qg5wT+IaTwCJ49txZdSMY
YkJX2BwU2xK71wULHMYxjHXGOnkVLSNKInMzq+nTHNJoTjMZHKI5o6GZpaOB
CXYC207pSExIenQlBhpwXX5jTJviEsHdbvmlCzUw7BJAMQuXEwW0yFdmrOn+
4Y7sEpYb0WR1xqiIrQHvsPM/rg55EGq3xoB5fA3EGypqKjBB2Oz4WnLKQwOc
1DqO4MwqgoxdtmbJKg3UDOVFHIn0JP4DptgP/g==
       "]], LineBox[CompressedData["
1:eJwBgQF+/iFib1JlAgAAABcAAAACAAAA4kxmqW3YA0Ahh9fbMAo4wPjc+lML
2QNA3lTjcsIPNsCded3R2dwDQN6DJKFYDyvAQhbAT6jgA0CXZj7MQEofwOey
os125ANAa87mN6nLEMCMT4VLRegDQJdiayBoXwDAMexnyRPsA0BmnVoyKwXs
v9aISkfi7wNAJpHxsZ7o0797JS3FsPMDQFHhiyZvO7W/IMIPQ3/3A0BjC/up
zmWLv8Ve8sBN+wNAsxlrRdobR79q+9Q+HP8DQPYxC0AFsIe+D5i3vOoCBEC/
3k8xwPoRP7Q0mjq5BgRAzzIdSM2/cj9Y0Xy4hwoEQLEVT2cEp6Y//W1fNlYO
BEDODWqzCC3LP2I47YsREgRAorpsnLsl5j/GAnvhzBUEQI+/XjqIB/0/Ks0I
N4gZBEAdXUzfgmUQQI6XloxDHQRA+4kgM3+gIEDyYSTi/iAEQAZmEkhUES9A
ViyyN7okBEBsyRRQXjc7QABCVU8gJwRArvGPZ3tpQ0DoHKFc
       "]], 
      LineBox[{{-1.9998404306584876`, 
       38.824078507695376`}, {-1.999838932438225, -24.039808025473693`}}], 
      LineBox[{{2.0001948623272066`, 38.824078507695376`}, {
       2.0001948636639266`, -24.039808025473693`}}]},
     Annotation[#, "Charting`Private`Tag$351984#1"]& ]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, 
    "DefaultGraphicsInteraction" -> {
     "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
      "Effects" -> {
       "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
        "Droplines" -> {
         "freeformCursorMode" -> True, 
          "placement" -> {"x" -> "All", "y" -> "None"}}}}, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-3, 3}, {-24.039808025473693`, 38.824078507695376`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.843619358461616*^9},
 CellLabel->
  "Out[1791]=",ExpressionUUID->"cd057317-50c4-47a6-a076-b4cdceb11435"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Product", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"g", "[", 
      RowBox[{"1", "+", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"StringJoin", "[", 
         RowBox[{"\"\<m\>\"", ",", 
          RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
       "\[Sigma]1"}], "]"}], " ", 
     RowBox[{"g", "[", 
      RowBox[{"1", "+", 
       RowBox[{"ToExpression", "[", 
        RowBox[{"StringJoin", "[", 
         RowBox[{"\"\<m\>\"", ",", 
          RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
       "\[Sigma]2"}], "]"}]}], " ", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{"\[Sigma]2", "->", 
    RowBox[{"-", "\[Sigma]1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8436191207023706`*^9, 3.843619139026232*^9}},
 CellLabel->
  "In[1771]:=",ExpressionUUID->"2542cabb-f5ae-483e-9cc8-25ff42c4783f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{"1", "+", "m1", "-", "\[Sigma]1"}], "]"}], " ", 
  RowBox[{"g", "[", 
   RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], "]"}]}]], "Output",
 CellChangeTimes->{{3.843619119469102*^9, 3.843619139351328*^9}},
 CellLabel->
  "Out[1771]=",ExpressionUUID->"83b99c6f-c8e7-4fb3-ad35-dcf1c861ba4e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[Sigma]1", "+", "1", "+", "\[Sigma]2"}]], "Input",
 CellChangeTimes->{{3.8435446471057177`*^9, 
  3.843544653555938*^9}},ExpressionUUID->"c73f26db-f60f-4150-89dc-\
2fb8c7fad433"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"the", " ", "1"}], "-", 
   RowBox[{"loop", " ", "term", " ", "behaves", " ", "correctly"}]}], " ", 
  "*********)"}]], "Input",
 CellChangeTimes->{{3.84330135754091*^9, 
  3.843301366370988*^9}},ExpressionUUID->"54ef37b7-9ca4-456a-8ec9-\
49915a134dc6"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "below", " ", "is", " ", "a", " ", "table", " ", "of", " ", "instanton", 
    " ", "counting", " ", "for", " ", "Nf", " ", "flavors"}], 
   "*)"}]}]], "Input",
 CellChangeTimes->{{3.8433013689378853`*^9, 
  3.8433013814400787`*^9}},ExpressionUUID->"91bb9ad3-f379-46d7-9455-\
28d5771d84cc"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nf", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"instno", "=", "k"}], ";", "\[IndentingNewLine]", 
     RowBox[{"tableaux", "=", 
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"k1", "+", "k2"}], "\[Equal]", "instno"}], ",", 
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Y1", ",", 
                RowBox[{"IntegerPartitions", "[", "k1", "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Y2", ",", 
                RowBox[{"IntegerPartitions", "[", "k2", "]"}]}], "}"}]}], 
             "]"}], ",", "Nothing"}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"k1", ",", 
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "instno"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"k2", ",", 
            RowBox[{"Range", "[", 
             RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", 
        "3"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["Z", "k"], "=", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Sum", "[", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Product", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]1", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                   RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<m\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}]}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
                RowBox[{"Product", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"\[Phi]", "[", 
                    RowBox[{"\[Sigma]2", ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"cell", "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
                   RowBox[{"ToExpression", "[", 
                    RowBox[{"StringJoin", "[", 
                    RowBox[{"\"\<m\>\"", ",", 
                    RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}]}], 
                  ",", 
                  RowBox[{"{", 
                   RowBox[{"cell", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                    "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}]}], ",", 
               RowBox[{"{", 
                RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}], "/", 
             RowBox[{"Zbifund", "[", 
              RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", 
               RowBox[{"Y", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"Y", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", "\[Sigma]1", ",", 
               "\[Sigma]2", ",", 
               RowBox[{"Y", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"Y", "[", 
                RowBox[{"[", "2", "]"}], "]"}], ",", "0"}], "]"}]}], "//", 
            "Cancel"}], ",", 
           RowBox[{"{", 
            RowBox[{"Y", ",", "tableaux"}], "}"}]}], "]"}], "/.", 
         RowBox[{"{", 
          RowBox[{"e", "\[Rule]", 
           RowBox[{"e1", "+", "e2"}]}], "}"}]}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"e", "\[Rule]", "0"}], ",", 
          RowBox[{"e1", "\[Rule]", "1"}], ",", 
          RowBox[{"e2", "\[Rule]", 
           RowBox[{"-", "1"}]}]}], "}"}]}], "//", "Simplify"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"%", "/.", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]2", "->", 
     RowBox[{"-", "\[Sigma]1"}]}], "}"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{
  3.843300573200102*^9, {3.843300667266266*^9, 3.8433006674083567`*^9}, {
   3.843300986288425*^9, 3.8433009953030977`*^9}, {3.84380168732508*^9, 
   3.843801700316032*^9}, {3.8438020989430447`*^9, 3.84380212119121*^9}, {
   3.843806767236411*^9, 3.843806767290228*^9}, {3.843810500636161*^9, 
   3.843810506564995*^9}, {3.8438829514588127`*^9, 3.843882951683354*^9}, {
   3.843890242406521*^9, 3.8438902424857283`*^9}},
 CellLabel->
  "In[1029]:=",ExpressionUUID->"30414698-2216-4081-954d-8d7fb838703c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", "m1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], ",", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Sigma]1", "4"], "+", 
     RowBox[{"4", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
     RowBox[{
      SuperscriptBox["\[Sigma]2", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], "-", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["m1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "-", 
        RowBox[{"8", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
     RowBox[{"2", " ", "m1", " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]1", "3"]}], "+", "\[Sigma]2", "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]2"}], "-", 
        RowBox[{"2", " ", "\[Sigma]1", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], ",", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "7"], "-", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "6"], " ", "\[Sigma]2"}], "-", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "5"], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "4"], " ", "\[Sigma]2", " ", 
       RowBox[{"(", 
        RowBox[{"11", "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{"14", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"10", " ", "\[Sigma]2"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]2", "3"]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "-", 
      RowBox[{"\[Sigma]1", " ", 
       RowBox[{"(", 
        RowBox[{"8", "-", 
         RowBox[{"10", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "-", 
         RowBox[{"11", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "+", 
         SuperscriptBox["\[Sigma]2", "6"]}], ")"}]}], "+", 
      RowBox[{"\[Sigma]2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"14", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "-", 
         RowBox[{"7", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "+", 
         SuperscriptBox["\[Sigma]2", "6"]}], ")"}]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["m1", "3"], " ", 
       RowBox[{"(", 
        RowBox[{"12", "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[Sigma]1", "4"]}], "-", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
         RowBox[{"5", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "+", 
         RowBox[{
          SuperscriptBox["\[Sigma]1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "5"}], "+", 
            RowBox[{"12", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
         RowBox[{"\[Sigma]1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"10", " ", "\[Sigma]2"}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"6", " ", 
       SuperscriptBox["m1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox["\[Sigma]1", "5"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["\[Sigma]1", "4"], " ", "\[Sigma]2"}], "+", 
         RowBox[{
          SuperscriptBox["\[Sigma]1", "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "5"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]2", " ", 
          RowBox[{"(", 
           RowBox[{"5", "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
         RowBox[{"\[Sigma]1", " ", 
          RowBox[{"(", 
           RowBox[{"12", "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
         RowBox[{"\[Sigma]2", " ", 
          RowBox[{"(", 
           RowBox[{"12", "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "m1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "8"}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]1", "6"]}], "-", 
         RowBox[{"6", " ", 
          SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2"}], "+", 
         RowBox[{"26", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "-", 
         RowBox[{"12", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]2", "6"]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox["\[Sigma]1", "4"], " ", 
          RowBox[{"(", 
           RowBox[{"4", "+", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], "+", 
         RowBox[{"6", " ", 
          SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2", " ", 
          RowBox[{"(", 
           RowBox[{"3", "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[Sigma]1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"26", "-", 
            RowBox[{"12", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
         RowBox[{"\[Sigma]1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"20", " ", "\[Sigma]2"}], "+", 
            RowBox[{"18", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "-", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}]}], ")"}]}]}], 
     ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"6", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], 
     ")"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843300573857439*^9, 3.843300592399519*^9}, 
   3.8433006677376432`*^9, {3.843300974678172*^9, 3.843301004827818*^9}, 
   3.843301150769437*^9, 3.843301229247595*^9, {3.843801691113881*^9, 
   3.843801701080483*^9}, {3.8438021048696613`*^9, 3.843802121560062*^9}, 
   3.84380229127017*^9, 3.843806767760949*^9, {3.843810501699686*^9, 
   3.843810506860754*^9}, 3.843882952418661*^9, 3.843890243011698*^9},
 CellLabel->
  "Out[1030]=",ExpressionUUID->"39e2c419-b147-4925-9f90-0ea373f506d0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["m1", 
    RowBox[{"2", " ", 
     SuperscriptBox["\[Sigma]1", "2"]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["\[Sigma]1", "2"]}], "+", 
     RowBox[{
      SuperscriptBox["m1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"8", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]], ",", 
   FractionBox[
    RowBox[{"m1", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "-", 
       RowBox[{"9", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["m1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"5", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "+", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}]}]}], ")"}]}], 
    RowBox[{"24", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", 
        RowBox[{"5", " ", 
         SuperscriptBox["\[Sigma]1", "3"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "5"]}]}], ")"}], "2"]}]]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.843300573857439*^9, 3.843300592399519*^9}, 
   3.8433006677376432`*^9, {3.843300974678172*^9, 3.843301004827818*^9}, 
   3.843301150769437*^9, 3.843301229247595*^9, {3.843801691113881*^9, 
   3.843801701080483*^9}, {3.8438021048696613`*^9, 3.843802121560062*^9}, 
   3.84380229127017*^9, 3.843806767760949*^9, {3.843810501699686*^9, 
   3.843810506860754*^9}, 3.843882952418661*^9, 3.843890243023765*^9},
 CellLabel->
  "Out[1031]=",ExpressionUUID->"0e1fe0cb-6330-4bb6-ac48-ba6381ec5926"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"1", ",", 
    RowBox[{
     FractionBox["2", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "t", " ", 
     "\[Epsilon]"}], ",", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "-", 
       RowBox[{"4", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
     SuperscriptBox["t", 
      RowBox[{"2", " "}]], 
     SuperscriptBox["\[Epsilon]", "2"]}]}], "}"}], "//", "Total"}]], "Input",
 CellChangeTimes->{{3.843881628333049*^9, 3.8438816483058577`*^9}, {
  3.843882958686339*^9, 3.8438829615898523`*^9}},
 CellLabel->
  "In[666]:=",ExpressionUUID->"4b35b642-d0a2-4c7d-b647-b74dc95e4b55"],

Cell[BoxData[
 RowBox[{"1", "+", 
  FractionBox[
   RowBox[{"2", " ", "t", " ", "\[Epsilon]"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["t", "2"], " ", 
    SuperscriptBox["\[Epsilon]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "-", 
      RowBox[{"4", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
     "2"]}]]}]], "Output",
 CellChangeTimes->{3.8438816488125362`*^9, 3.843882962184503*^9},
 CellLabel->
  "Out[666]=",ExpressionUUID->"b5abc1b8-b9e1-420a-b6c4-49f9a8d2f5e5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"instno", " ", "=", "2"}], ";", 
  RowBox[{"Flatten", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"k1", "+", "k2"}], "\[Equal]", "instno"}], ",", 
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Y1", ",", "Y2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Y1", ",", 
            RowBox[{"IntegerPartitions", "[", "k1", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Y2", ",", 
            RowBox[{"IntegerPartitions", "[", "k2", "]"}]}], "}"}]}], "]"}], 
        ",", "Nothing"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"k1", ",", 
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "instno"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k2", ",", 
        RowBox[{"Range", "[", 
         RowBox[{"0", ",", "instno"}], "]"}]}], "}"}]}], "]"}], ",", "3"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.843802919232079*^9, 3.843802922766366*^9}, {
  3.84380906388171*^9, 3.843809064022616*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"94da9147-a755-4a5a-81f4-0605f844fa12"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", "2", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", 
     RowBox[{"{", "1", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "2", "}"}], ",", 
     RowBox[{"{", "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", "}"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.843802910564149*^9, 3.843802923271379*^9}, 
   3.84380906447791*^9},
 CellLabel->
  "Out[207]=",ExpressionUUID->"9b9f7d3e-be6f-49fe-af39-0642b4f332ff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["YoungDiagram"], "Input",
 CellChangeTimes->{{3.843809120844529*^9, 
  3.843809131429462*^9}},ExpressionUUID->"b77285ee-6957-40f5-af4e-\
3a95272f419f"],

Cell[BoxData[
 TemplateBox[{
  "Partition", "argbu", 
   "\"\\!\\(\\*RowBox[{\\\"Partition\\\"}]\\) called with 1 argument; between \
\\!\\(\\*RowBox[{\\\"2\\\"}]\\) and \\!\\(\\*RowBox[{\\\"6\\\"}]\\) arguments \
are expected.\"", 2, 211, 42, 16430335985355770932, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.843809123732708*^9, 3.84380912697539*^9}},
 CellLabel->
  "During evaluation of \
In[211]:=",ExpressionUUID->"88f182bc-3a25-4a7a-88a7-1ec37d67aaff"],

Cell[BoxData[
 RowBox[{"Partition", "[", 
  RowBox[{"{", "2", "}"}], "]"}]], "Output",
 CellChangeTimes->{{3.843809123743629*^9, 3.843809127024762*^9}},
 CellLabel->
  "Out[211]=",ExpressionUUID->"9f05f042-3ad7-4ef1-9a55-706e5d2b440d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Product", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Product", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "[", 
              RowBox[{"\[Sigma]1", ",", 
               RowBox[{"cell", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"cell", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
             RowBox[{"ToExpression", "[", 
              RowBox[{"StringJoin", "[", 
               RowBox[{"\"\<m\>\"", ",", 
                RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"cell", ",", 
              RowBox[{"Flatten", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                 "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}], 
          RowBox[{"Product", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Phi]", "[", 
              RowBox[{"\[Sigma]2", ",", 
               RowBox[{"cell", "[", 
                RowBox[{"[", "1", "]"}], "]"}], ",", 
               RowBox[{"cell", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], "]"}], "+", 
             RowBox[{"ToExpression", "[", 
              RowBox[{"StringJoin", "[", 
               RowBox[{"\"\<m\>\"", ",", 
                RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"cell", ",", 
              RowBox[{"Flatten", "[", 
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{"Table", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"rowno", ",", "cellno"}], "}"}], ",", " ", 
                    RowBox[{"{", 
                    RowBox[{"cellno", ",", 
                    RowBox[{
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "[", 
                    RowBox[{"[", "rowno", "]"}], "]"}]}], "}"}]}], "]"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"rowno", ",", "1", ",", 
                    RowBox[{"Length", "[", 
                    RowBox[{"Range", "[", 
                    RowBox[{"Y", "[", 
                    RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}]}], "}"}]}], 
                 "]"}], ",", "1"}], "]"}]}], "}"}]}], "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}], "/", 
       RowBox[{"Zbifund", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "\[Sigma]1", ",", "\[Sigma]2", 
         ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Y", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "0"}], "]"}]}], "//", 
      "Cancel"}], ",", 
     RowBox[{"{", 
      RowBox[{"Y", ",", 
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "1", "}"}]}], "}"}], "}"}]}], "}"}]}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{"e", "\[Rule]", 
     RowBox[{"e1", "+", "e2"}]}], "}"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"e", "\[Rule]", "0"}], ",", 
    RowBox[{"e1", "\[Rule]", "1"}], ",", 
    RowBox[{"e2", "\[Rule]", 
     RowBox[{"-", "1"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.84380292722085*^9, 3.843802931414736*^9}, 
   3.843802991733285*^9, 3.843809076468746*^9, {3.8438093304644213`*^9, 
   3.8438093573645678`*^9}, {3.843809416001458*^9, 3.843809436352696*^9}, {
   3.8438099378719597`*^9, 3.8438099395039263`*^9}, {3.843812622497951*^9, 
   3.843812626180962*^9}},
 CellLabel->
  "In[282]:=",ExpressionUUID->"4811ae89-c3b2-4ab6-973b-016e40128a43"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]2"}], ")"}]}], 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.843802928264164*^9, 3.8438029321691093`*^9}, 
   3.843802992097889*^9, {3.843809066875165*^9, 3.84380907682419*^9}, {
   3.843809331398651*^9, 3.8438093576965733`*^9}, {3.843809417700227*^9, 
   3.843809436780992*^9}, 3.843809939833379*^9, 3.8438126265541553`*^9},
 CellLabel->
  "Out[282]=",ExpressionUUID->"43386f30-aa84-4fd7-a3e9-ac10a6ef3ba1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "m1", "+", "\[Sigma]1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]1"}], ")"}]}], 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Sigma]1"}], "+", "\[Sigma]2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], "//", 
  "Cancel"}]], "Input",
 CellChangeTimes->{{3.8438092435065527`*^9, 3.843809244340912*^9}, {
   3.843809334987727*^9, 3.843809363436191*^9}, {3.843809420663039*^9, 
   3.843809439832521*^9}, 3.843809941886127*^9},
 CellLabel->
  "In[229]:=",ExpressionUUID->"128036b3-a6a3-4aa3-b609-84b4b304dafa"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "m1", "+", "\[Sigma]1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]1"}], ")"}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
   " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.843809245032778*^9, {3.843809335344898*^9, 3.843809363851041*^9}, {
   3.843809421019177*^9, 3.843809440170731*^9}, 3.8438099422016897`*^9},
 CellLabel->
  "Out[229]=",ExpressionUUID->"80d81385-44eb-44f9-ab3b-8fe454346679"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "m1", "+", "\[Sigma]1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]1"}], ")"}]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
    " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "//", 
  "Apart"}]], "Input",
 CellChangeTimes->{{3.843809944293919*^9, 3.843809945103982*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"031627c7-46d0-438f-a616-a675dd0ed409"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"-", "m1"}], "+", 
    SuperscriptBox["m1", "2"], "-", "\[Sigma]1", "+", 
    RowBox[{"2", " ", "m1", " ", "\[Sigma]1"}], "+", 
    SuperscriptBox["\[Sigma]1", "2"]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "\[Sigma]1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"m1", "-", 
    SuperscriptBox["m1", "2"], "+", "\[Sigma]1", "-", 
    RowBox[{"2", " ", "m1", " ", "\[Sigma]1"}], "-", 
    SuperscriptBox["\[Sigma]1", "2"]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Sigma]1"}], "+", "\[Sigma]2"}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"-", "m1"}], "+", 
    SuperscriptBox["m1", "2"], "-", "\[Sigma]1", "+", 
    RowBox[{"2", " ", "m1", " ", "\[Sigma]1"}], "+", 
    SuperscriptBox["\[Sigma]1", "2"]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
  
  FractionBox[
   RowBox[{
    RowBox[{"-", "m1"}], "+", 
    SuperscriptBox["m1", "2"], "-", "\[Sigma]1", "+", 
    RowBox[{"2", " ", "m1", " ", "\[Sigma]1"}], "+", 
    SuperscriptBox["\[Sigma]1", "2"]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]]}]], "Output",\

 CellChangeTimes->{3.8438099453731318`*^9},
 CellLabel->
  "Out[230]=",ExpressionUUID->"48d0fd17-1f1f-4f83-8feb-4e36ebfe28e2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"below", " ", "is", " ", "the", " ", "1"}], "-", 
    RowBox[{
    "instanton", " ", "of", " ", "tau", " ", "function", " ", "compared", " ",
      "with", " ", "instanton", " ", "counting"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.843301392276001*^9, 
  3.843301412190483*^9}},ExpressionUUID->"acfcf325-65f5-4835-9f6c-\
a68c940a1fac"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nf", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"BA1", "[", 
    RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ":=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"G", "[", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], " ", 
      RowBox[{"G", "[", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], "]"}], " "}]], " ", 
    
    RowBox[{"Product", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         "\[Sigma]1"}], "]"}], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"ToExpression", "[", 
          RowBox[{"StringJoin", "[", 
           RowBox[{"\"\<m\>\"", ",", 
            RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
         "\[Sigma]2"}], "]"}]}], " ", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}]], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2"}], "]"}]}], 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", 
         RowBox[{"\[Sigma]2", "+", "1"}]}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", 
         RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]]}], ")"}]}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["Z", "1"], "/", "%"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.843300613894116*^9, 3.843300616670425*^9}, 
   3.843300671191571*^9, {3.8433014144417048`*^9, 3.8433014218050137`*^9}, {
   3.8438017271267433`*^9, 3.843801736793401*^9}, 3.84380182864715*^9, {
   3.843802080226865*^9, 3.843802086883461*^9}, {3.8438022949841957`*^9, 
   3.843802295513953*^9}, {3.843806759314616*^9, 3.843806759354052*^9}},
 CellLabel->
  "In[253]:=",ExpressionUUID->"f9a1f331-3e0c-4d8f-8a4c-329fcd63dcca"],

Cell[BoxData[
 RowBox[{"-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
   "2"]}]], "Output",
 CellChangeTimes->{{3.8433006078538923`*^9, 3.8433006169320498`*^9}, 
   3.843300671510728*^9, 3.843301013791935*^9, {3.8433011095274467`*^9, 
   3.843301152018071*^9}, 3.843301234068985*^9, 3.8433014221158323`*^9, {
   3.843801705347124*^9, 3.843801728511259*^9}, {3.8438018094214563`*^9, 
   3.843801829141631*^9}, {3.843802081395657*^9, 3.843802087246354*^9}, {
   3.843802277893002*^9, 3.843802295826351*^9}, 3.843806762274835*^9, 
   3.8438105168057537`*^9},
 CellLabel->
  "Out[255]=",ExpressionUUID->"91542bf8-253e-491c-8752-3b5a92753dd2"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"2", " ", "m1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]], "Output",
 CellChangeTimes->{{3.8433006078538923`*^9, 3.8433006169320498`*^9}, 
   3.843300671510728*^9, 3.843301013791935*^9, {3.8433011095274467`*^9, 
   3.843301152018071*^9}, 3.843301234068985*^9, 3.8433014221158323`*^9, {
   3.843801705347124*^9, 3.843801728511259*^9}, {3.8438018094214563`*^9, 
   3.843801829141631*^9}, {3.843802081395657*^9, 3.843802087246354*^9}, {
   3.843802277893002*^9, 3.843802295826351*^9}, 3.843806762274835*^9, 
   3.843810516809135*^9},
 CellLabel->
  "Out[256]=",ExpressionUUID->"6f07be9c-fddd-4854-8c47-dea90c252f29"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.8433006078538923`*^9, 3.8433006169320498`*^9}, 
   3.843300671510728*^9, 3.843301013791935*^9, {3.8433011095274467`*^9, 
   3.843301152018071*^9}, 3.843301234068985*^9, 3.8433014221158323`*^9, {
   3.843801705347124*^9, 3.843801728511259*^9}, {3.8438018094214563`*^9, 
   3.843801829141631*^9}, {3.843802081395657*^9, 3.843802087246354*^9}, {
   3.843802277893002*^9, 3.843802295826351*^9}, 3.843806762274835*^9, 
   3.843810516812454*^9},
 CellLabel->
  "Out[257]=",ExpressionUUID->"f77aa589-981b-4b7d-a0da-2448fb40232c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    FractionBox[
     RowBox[{
      RowBox[{"BA1", "[", 
       RowBox[{
        RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
      RowBox[{"BA1", "[", 
       RowBox[{
        RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2"}], "]"}]}], 
     RowBox[{
      RowBox[{"BA1", "[", 
       RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
      RowBox[{"BA1", "[", 
       RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]], ")"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.843810530468163*^9, 3.843810545969861*^9}},
 CellLabel->
  "In[262]:=",ExpressionUUID->"459f0394-1606-4fc1-a281-e2e93e78f732"],

Cell[BoxData[
 FractionBox[
  RowBox[{"m1", "+", "\[Sigma]1"}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]], "Output",
 CellChangeTimes->{{3.8438105195953283`*^9, 3.843810546257947*^9}},
 CellLabel->
  "Out[262]=",ExpressionUUID->"b1169f6a-99ce-4d88-bddf-c56268cb9e7e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"1", "+", "x", "+", "1"}], "]"}], 
   RowBox[{"G", "[", 
    RowBox[{"1", "+", "x", "-", "1"}], "]"}]}], 
  SuperscriptBox[
   RowBox[{"G", "[", 
    RowBox[{"1", "+", "x"}], "]"}], "2"]]], "Input",
 CellChangeTimes->{{3.8438034790955477`*^9, 3.8438034910441723`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"1154da2f-f123-408e-b434-3be17b18e33a"],

Cell[BoxData["x"], "Output",
 CellChangeTimes->{3.843803491419116*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"5ada5b8f-c84e-44ab-ab69-d032b642684d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    FractionBox[
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"ToExpression", "[", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<\[Sigma]\>\"", ",", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<m\>\"", ",", 
           RowBox[{"ToString", "[", "k", "]"}]}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "Nf"}], "}"}]}], "]"}], 
     RowBox[{"Product", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"k", "==", "i"}], ",", "1", ",", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"ToExpression", "[", 
             RowBox[{"StringJoin", "[", 
              RowBox[{"\"\<\[Sigma]\>\"", ",", 
               RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "-", 
            RowBox[{"ToExpression", "[", 
             RowBox[{"StringJoin", "[", 
              RowBox[{"\"\<\[Sigma]\>\"", ",", 
               RowBox[{"ToString", "[", "k", "]"}]}], "]"}], "]"}]}], " ", 
           ")"}], "2"]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "Nf"}], "}"}]}], "]"}]], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.843802128644559*^9, 3.843802177510147*^9}, {
  3.843802234731593*^9, 3.8438022738756723`*^9}, {3.843802879543103*^9, 
  3.843802883909071*^9}, {3.843802949000396*^9, 3.843802967018385*^9}, {
  3.843803000347003*^9, 3.8438030479372253`*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"da4b44ed-1cfc-4e21-8202-7a49a635e65d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"m2", "+", "\[Sigma]1"}], ")"}]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"m2", "+", "\[Sigma]2"}], ")"}]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]], "Output",
 CellChangeTimes->{{3.843802261063365*^9, 3.843802274118247*^9}, 
   3.843802884248617*^9, {3.843802953038392*^9, 3.8438029675451593`*^9}, {
   3.843803000816221*^9, 3.843803048341901*^9}},
 CellLabel->
  "Out[127]=",ExpressionUUID->"6c7f4670-34af-4ddd-ae7a-0b65a88a73a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Sigma]1", "2"], "+", 
     SuperscriptBox["\[Sigma]2", "2"], "+", 
     RowBox[{"m2", " ", 
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], "+", 
     RowBox[{"m1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "m2"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
       ")"}]}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "/", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m2", "+", "\[Sigma]1"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m1", "+", "\[Sigma]2"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"m2", "+", "\[Sigma]2"}], ")"}]}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]}], "//", 
  "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"below", " ", "is", " ", "the", " ", "2"}], "-", 
    RowBox[{
    "instanton", " ", "of", " ", "tau", " ", "function", " ", "compared", " ",
      "with", " ", "instanton", " ", "counting"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.843301426544114*^9, 3.843301426610567*^9}, {
  3.843802299730403*^9, 3.8438023128603697`*^9}, {3.843802889293254*^9, 
  3.8438028944797707`*^9}, {3.84380303589196*^9, 3.843803050499487*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"a03935cd-d278-4faf-8865-79aefa8328f8"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.843802303908039*^9, 3.8438023134309893`*^9}, {
  3.843802889963834*^9, 3.84380289512396*^9}, {3.843803036267642*^9, 
  3.843803050794194*^9}},
 CellLabel->
  "Out[128]=",ExpressionUUID->"8b084928-60e1-4514-a177-a70394c06a13"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Z1loop", "=", 
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"BA1", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
        RowBox[{"BA1", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2"}], "]"}]}], 
       RowBox[{
        RowBox[{"BA1", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
        RowBox[{"BA1", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"BA1", "[", 
         RowBox[{"\[Sigma]1", ",", 
          RowBox[{"\[Sigma]2", "+", "1"}]}], "]"}], 
        RowBox[{"BA1", "[", 
         RowBox[{"\[Sigma]1", ",", 
          RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
       RowBox[{
        RowBox[{"BA1", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
        RowBox[{"BA1", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Z2loop", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "4"]}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"BA1", "[", 
           RowBox[{
            RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
          RowBox[{"BA1", "[", 
           RowBox[{
            RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2"}], "]"}]}], 
         RowBox[{
          RowBox[{"BA1", "[", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
          RowBox[{"BA1", "[", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Z1loop", "/.", 
            RowBox[{"{", 
             RowBox[{"\[Sigma]1", "\[Rule]", 
              RowBox[{"\[Sigma]1", "+", "1"}]}], "}"}]}], ")"}], "+", 
          RowBox[{"(", 
           RowBox[{"Z1loop", "/.", 
            RowBox[{"{", 
             RowBox[{"\[Sigma]1", "\[Rule]", 
              RowBox[{"\[Sigma]1", "-", "1"}]}], "}"}]}], ")"}]}], ")"}]}], 
       "+", 
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"BA1", "[", 
           RowBox[{"\[Sigma]1", ",", 
            RowBox[{"\[Sigma]2", "+", "1"}]}], "]"}], 
          RowBox[{"BA1", "[", 
           RowBox[{"\[Sigma]1", ",", 
            RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}]}], 
         RowBox[{
          RowBox[{"BA1", "[", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
          RowBox[{"BA1", "[", 
           RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Z1loop", "/.", 
            RowBox[{"{", 
             RowBox[{"\[Sigma]2", "\[Rule]", 
              RowBox[{"\[Sigma]2", "+", "1"}]}], "}"}]}], ")"}], "+", 
          RowBox[{"(", 
           RowBox[{"Z1loop", "/.", 
            RowBox[{"{", 
             RowBox[{"\[Sigma]2", "\[Rule]", 
              RowBox[{"\[Sigma]2", "-", "1"}]}], "}"}]}], ")"}]}], ")"}]}]}], 
      ")"}]}], "-", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
     FractionBox[
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "+", "1"}], ",", 
         RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "-", "1"}], ",", 
         RowBox[{"\[Sigma]2", "+", "1"}]}], "]"}]}], 
      RowBox[{
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
       RowBox[{"BA1", "[", 
        RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["Z", "2"], "/", "Z2loop"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.843301185904162*^9, 3.843301201211831*^9}},
 CellLabel->
  "In[172]:=",ExpressionUUID->"1ed2454a-8bf4-491b-9674-7eb60895b86c"],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{{3.843301198510055*^9, 3.843301201468692*^9}, 
   3.8433012369456167`*^9, 3.8438018403852654`*^9, 3.843806770908639*^9},
 CellLabel->
  "Out[174]=",ExpressionUUID->"2bd1bd67-8646-4a94-8664-2597bf69cbbb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", 
      RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "-", "1"}], ",", 
      RowBox[{"\[Sigma]2", "+", "1"}]}], "]"}]}], 
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]], "//", 
  "Cancel"}]], "Input",
 CellChangeTimes->{{3.843810368702248*^9, 3.843810372983127*^9}, 
   3.8438128848117113`*^9},
 CellLabel->
  "In[283]:=",ExpressionUUID->"18427290-83cc-4ea3-bde6-ff547eb4a36e"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]2"}], ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
   " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
    "2"]}]]], "Output",
 CellChangeTimes->{{3.843810366945715*^9, 3.843810373283094*^9}, 
   3.843812885180728*^9},
 CellLabel->
  "Out[283]=",ExpressionUUID->"104bb6aa-aae1-4f4c-9783-cf8a38470a72"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"List", "@@", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"m1", "+", "\[Sigma]2"}], ")"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
          "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], 
       "//", "Apart"}], ")"}]}], "//", "FullSimplify"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.843809648964209*^9, 3.843809653533532*^9}, {
  3.843810136081829*^9, 3.843810150452696*^9}, {3.8438102709178247`*^9, 
  3.8438103082204742`*^9}, {3.843810343571164*^9, 3.8438103767507467`*^9}, {
  3.8438106574953957`*^9, 3.8438106711648827`*^9}},
 CellLabel->
  "In[266]:=",ExpressionUUID->"116993d7-571c-459d-9a69-75d8745a67fa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], ",", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], "2"], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "m1", "+", "\[Sigma]1"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1"}], ")"}]}], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], ",", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], "2"], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.843809644880661*^9, 3.843809653746945*^9}, {
   3.843810128687561*^9, 3.843810150867674*^9}, {3.843810271219056*^9, 
   3.843810308628393*^9}, {3.8438103456377773`*^9, 3.843810377235527*^9}, 
   3.843810671509994*^9, 3.843810837125366*^9},
 CellLabel->
  "Out[266]=",ExpressionUUID->"ca717fc3-31ec-4f33-be4b-0a105ca248e7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "m1", "+", "\[Sigma]1"}], ")"}]}], 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], 
     ",", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], "2"], 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "m1", "+", "\[Sigma]1"}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1"}], ")"}]}], 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
     ",", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], "2"], 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]]}], "}"}], 
   "//", "Total"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.843810862090887*^9, 3.843810866530754*^9}},
 CellLabel->
  "In[268]:=",ExpressionUUID->"aa2c016a-ed49-46aa-901a-43b60efc4230"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox["1", 
    RowBox[{"2", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
      "2"]}]], "-", 
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"],
      " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]]}], "//",
   "Cancel"}]], "Input",
 CellChangeTimes->{{3.843811776923667*^9, 3.843811865318346*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"2486937f-a06a-4066-b5f9-9882805e35b7"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
     "2"]}]], "+", 
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "-", 
  
  FractionBox["1", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
    " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
     "2"]}]]}]], "Output",
 CellChangeTimes->{{3.843811806962101*^9, 3.843811865676803*^9}},
 CellLabel->
  "Out[279]=",ExpressionUUID->"38558bcb-95ba-41e2-b0a8-8e300c5362b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", "x"}]], "+", 
   FractionBox["1", 
    RowBox[{"2", "y"}]], "-", 
   FractionBox["1", 
    RowBox[{"x", " ", "y"}]]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.843811876660158*^9, 3.8438118858150673`*^9}},
 CellLabel->
  "In[281]:=",ExpressionUUID->"56f741b3-306e-4385-80d6-1f348b342c28"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "2"}], "+", "x", "+", "y"}], 
  RowBox[{"2", " ", "x", " ", "y"}]]], "Output",
 CellChangeTimes->{{3.843811883054906*^9, 3.843811886055543*^9}},
 CellLabel->
  "Out[281]=",ExpressionUUID->"c17e90f8-5dd1-46ab-aaef-cd417e78550c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], "2"], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], "+", 
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], "2"], 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.843810686524136*^9, 3.843810692907935*^9}, {
  3.8438108925326014`*^9, 3.843810893885777*^9}},
 CellLabel->
  "In[269]:=",ExpressionUUID->"d25604e0-9a09-4c99-966d-9f7150551d0e"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], "2"], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Sigma]1", "2"], "-", 
      RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
      SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.8438106900019503`*^9, 3.843810693295615*^9}, 
   3.84381089414172*^9},
 CellLabel->
  "Out[269]=",ExpressionUUID->"a434d944-018f-4be4-b799-7b6b931fc843"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"-", "m1"}], "+", 
    SuperscriptBox["m1", "2"], "-", "\[Sigma]1", "+", 
    RowBox[{"2", " ", "m1", " ", "\[Sigma]1"}], "+", 
    SuperscriptBox["\[Sigma]1", "2"]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "//",
   "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.8438102878756943`*^9, 3.843810294208247*^9}},
 CellLabel->
  "In[237]:=",ExpressionUUID->"47788d9a-865c-4c19-94d1-b22716fc2955"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "m1", "+", "\[Sigma]1"}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{"m1", "+", "\[Sigma]1"}], ")"}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
    "2"]}]]], "Output",
 CellChangeTimes->{{3.843810289800988*^9, 3.843810294519005*^9}},
 CellLabel->
  "Out[237]=",ExpressionUUID->"c21929b5-d68b-4ad9-a3e0-6507e6942840"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 SubscriptBox["Z", "2"]], "Input",
 CellLabel->
  "In[223]:=",ExpressionUUID->"f2b32649-a795-4bc8-b24e-78712f630eca"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[Sigma]1", "4"], "+", 
   RowBox[{"4", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
   RowBox[{
    SuperscriptBox["\[Sigma]2", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], "-", 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["m1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "-", 
      RowBox[{"8", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
   RowBox[{"2", " ", "m1", " ", 
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]1", "3"]}], "+", "\[Sigma]2", "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]2"}], "-", 
      RowBox[{"2", " ", "\[Sigma]1", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], 
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
    "2"]}]]], "Output",
 CellChangeTimes->{3.8438096417184277`*^9},
 CellLabel->
  "Out[223]=",ExpressionUUID->"fb1f6bf9-c77e-436f-a274-4c3ded78eed1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"BA1", "[", 
   RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], ":=", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"G", "[", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], " ", 
     RowBox[{"G", "[", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], "]"}], " "}]], " ", 
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"G", "[", 
       RowBox[{"1", "+", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<m\>\"", ",", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
        "\[Sigma]1"}], "]"}], " ", 
      RowBox[{"G", "[", 
       RowBox[{"1", "+", 
        RowBox[{"ToExpression", "[", 
         RowBox[{"StringJoin", "[", 
          RowBox[{"\"\<m\>\"", ",", 
           RowBox[{"ToString", "[", "i", "]"}]}], "]"}], "]"}], "+", 
        "\[Sigma]2"}], "]"}]}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "Nf"}], "}"}]}], 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  FractionBox[
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2"}], "]"}]}], 
   RowBox[{
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
    RowBox[{"BA1", "[", 
     RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]], "//", 
  "Cancel"}]}], "Input",
 CellChangeTimes->{{3.843807097789281*^9, 3.8438071079781322`*^9}, {
  3.843807949721946*^9, 3.8438079776310987`*^9}, {3.843808112617464*^9, 
  3.843808116269462*^9}},
 CellLabel->
  "In[193]:=",ExpressionUUID->"fa1b95b9-cbff-4b58-9661-286c957b0423"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "m1"}], "-", "\[Sigma]1"}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]], "Output",
 CellChangeTimes->{{3.8438067486887407`*^9, 3.843806774345421*^9}, {
   3.8438071041626053`*^9, 3.843807108247875*^9}, {3.8438079538787823`*^9, 
   3.843807978011135*^9}, 3.843808116637905*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"25aa981d-bb00-46a1-8e09-d15b7ce6815c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
   FractionBox[
    RowBox[{
     RowBox[{"BA1", "[", 
      RowBox[{
       RowBox[{"\[Sigma]1", "+", "1"}], ",", 
       RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}], 
     RowBox[{"BA1", "[", 
      RowBox[{
       RowBox[{"\[Sigma]1", "-", "1"}], ",", 
       RowBox[{"\[Sigma]2", "+", "1"}]}], "]"}]}], 
    RowBox[{
     RowBox[{"BA1", "[", 
      RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], 
     RowBox[{"BA1", "[", 
      RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}]]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.843808158130972*^9, 3.843808163489081*^9}, {
   3.843808702898892*^9, 3.8438087040892963`*^9}, {3.84380900671539*^9, 
   3.843809033850246*^9}, {3.8438096311994753`*^9, 3.843809634989085*^9}, 
   3.843809755882831*^9},
 CellLabel->
  "In[227]:=",ExpressionUUID->"ab614a8a-d93b-4775-a469-d7100aa931ea"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"m1", "+", "\[Sigma]2"}], ")"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
     "2"]}]]}]], "Output",
 CellChangeTimes->{{3.843808150001226*^9, 3.843808163827655*^9}, 
   3.843808704463565*^9, {3.8438090076539583`*^9, 3.8438090345268087`*^9}, 
   3.8438096356096354`*^9, 3.84380975620514*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"100f4f64-e687-456b-99b5-2826e1dd4555"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"m1", "+", "\[Sigma]2"}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.843808233841959*^9, 3.843808238814506*^9}},
 CellLabel->
  "In[200]:=",ExpressionUUID->"055c1e80-762a-474a-9bd1-b4f68843408b"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"m1", "+", "\[Sigma]2"}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{{3.843808234888628*^9, 3.843808239266601*^9}},
 CellLabel->
  "Out[200]=",ExpressionUUID->"6eedfbb9-db39-4ba6-a968-11d7792c538f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{
    RowBox[{"-", "1"}], "+", "x"}], "]"}], "/", 
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"1", "+", "x"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.843807860553329*^9, 3.8438078751486673`*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"396f8007-6cd8-4aa8-b0f5-4b77e7a8a8f5"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "x"}], ")"}], " ", "x"}]]], "Output",
 CellChangeTimes->{{3.843807868272008*^9, 3.843807875450797*^9}},
 CellLabel->
  "Out[186]=",ExpressionUUID->"525894f9-e70a-4ee4-88a5-c5b20e021548"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ",", 
    RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]}], "}"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Sigma]1", "->", 
     RowBox[{"\[Sigma]1", "-", "1"}]}], ",", 
    RowBox[{"\[Sigma]2", "->", 
     RowBox[{"\[Sigma]2", "+", "1"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.843806861693819*^9, 3.843806910995015*^9}, {
  3.843806967668827*^9, 3.843806969643653*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"162b566b-18f6-48cd-b08c-d59651f5489c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ",", 
   RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8438068655075207`*^9, 3.84380691137572*^9}, 
   3.8438069701597*^9},
 CellLabel->
  "Out[180]=",ExpressionUUID->"c0f76be4-59b6-4f6d-a981-4296ee9a3b16"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "+", "\[Delta]"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Delta]"}]}], "}"}], ".", 
   RowBox[{"{", 
    RowBox[{"q1", ",", "q2"}], "}"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.8438032826129637`*^9, 3.843803300202036*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"36642308-bcd2-4177-adfc-be95db628e38"],

Cell[BoxData[
 RowBox[{"q1", "-", "q2", "+", 
  RowBox[{"q1", " ", "\[Delta]"}], "+", 
  RowBox[{"q2", " ", "\[Delta]"}]}]], "Output",
 CellChangeTimes->{{3.843803295392993*^9, 3.843803300460206*^9}},
 CellLabel->
  "Out[131]=",ExpressionUUID->"41892816-add5-41c0-b784-321727595b58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Transpose", "[", 
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"1", "+", "\[Delta]"}]},
     {
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Delta]"}]}
    }], "\[NoBreak]", ")"}], "]"}]], "Input",
 CellLabel->
  "In[142]:=",ExpressionUUID->"f88ed516-589e-4532-8cc6-a95efbdd8af7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"1", "+", "\[Delta]"}], ",", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "\[Delta]"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.843804566293662*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"ff4dddda-a682-4986-a693-8c749f6e860b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dot", "[", 
  RowBox[{
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"1", "+", "\[Delta]"}]},
      {
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Delta]"}]}
     }], "\[NoBreak]", ")"}], ",", 
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"1", "+", "\[Delta]"}]},
      {
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Delta]"}]}
     }], "\[NoBreak]", ")"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.843804575762414*^9, 3.843804580423503*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"bcad0d05-a4fe-4fef-a69f-053bb0ee3507"],

Cell[BoxData[
 TemplateBox[{
  "Dot", "dotsh", 
   "\"Tensors \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"{\\\", RowBox[{\
\\\"1\\\", \\\"+\\\", \\\"\[Delta]\\\"}], \\\"}\\\"}], \\\",\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"\
\[Delta]\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{RowBox[{\\\"{\\\", RowBox[{\\\"1\\\", \\\"+\\\", \\\"\[Delta]\\\"}], \
\\\"}\\\"}], \\\",\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\
\"}], \\\"+\\\", \\\"\[Delta]\\\"}], \\\"}\\\"}]}], \\\"}\\\"}]\\) have \
incompatible shapes.\"", 2, 143, 36, 16430335985355770932, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.843804580728512*^9},
 CellLabel->
  "During evaluation of \
In[143]:=",ExpressionUUID->"f721d538-d9bd-454b-a417-ef477d7eda27"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", "+", "\[Delta]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Delta]"}], "}"}]}], "}"}], ".", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", "+", "\[Delta]"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Delta]"}], "}"}]}], "}"}]}]], "Output",
 CellChangeTimes->{3.8438045807468452`*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"399230dd-e787-4132-9a34-5c1c18e7b8aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"1", "+", "\[Delta]"}]},
       {
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Delta]"}]}
      }], "\[NoBreak]", ")"}], "]"}], ".", 
   RowBox[{"Transpose", "[", 
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"1", "+", "\[Delta]"}]},
       {
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Delta]"}]}
      }], "\[NoBreak]", ")"}], "]"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.843803344347567*^9, 3.843803348030278*^9}, {
  3.8438045052094*^9, 3.843804553694912*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"d48d55d1-6ecf-45cd-9434-513fedc5c3f7"],

Cell[BoxData[
 TemplateBox[{
  "Dot", "dotsh", 
   "\"Tensors \\!\\(\\*RowBox[{\\\"{\\\", RowBox[{\\\"{\\\", RowBox[{RowBox[{\
\\\"1\\\", \\\"+\\\", \\\"\[Delta]\\\"}], \\\",\\\", \
RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \\\"\[Delta]\\\"}]}], \
\\\"}\\\"}], \\\"}\\\"}]\\) and \\!\\(\\*RowBox[{\\\"{\\\", \
RowBox[{\\\"{\\\", RowBox[{RowBox[{\\\"1\\\", \\\"+\\\", \\\"\[Delta]\\\"}], \
\\\",\\\", RowBox[{RowBox[{\\\"-\\\", \\\"1\\\"}], \\\"+\\\", \
\\\"\[Delta]\\\"}]}], \\\"}\\\"}], \\\"}\\\"}]\\) have incompatible \
shapes.\"", 2, 141, 35, 16430335985355770932, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.843804554003696*^9},
 CellLabel->
  "During evaluation of \
In[141]:=",ExpressionUUID->"0fa91829-2a5e-4dc9-912b-f743f8a43153"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "+", "\[Delta]"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Delta]"}]}], "}"}], "}"}], ".", 
  RowBox[{"{", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"1", "+", "\[Delta]"}], ",", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Delta]"}]}], "}"}], "}"}]}]], "Output",
 CellChangeTimes->{
  3.8438033483223*^9, {3.843804505655464*^9, 3.843804554013752*^9}},
 CellLabel->
  "Out[141]=",ExpressionUUID->"20889597-8386-4039-966d-14c7518f08eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"1", "+", "\[Delta]"}]},
       {
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Delta]"}]}
      }], "\[NoBreak]", ")"}], 
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "+", "\[Delta]"}], ",", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Delta]"}]}], "}"}], ".", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"q1", "[", "t", "]"}], ",", 
        RowBox[{"q2", "[", "t", "]"}]}], "}"}]}]]}], "-", 
   RowBox[{
    RowBox[{"(", "\[NoBreak]", GridBox[{
       {
        RowBox[{"1", "+", "\[Delta]"}]},
       {
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Delta]"}]}
      }], "\[NoBreak]", ")"}], 
    SuperscriptBox["E", 
     RowBox[{"-", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"1", "+", "\[Delta]"}], ",", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Delta]"}]}], "}"}], ".", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"q1", "[", "t", "]"}], ",", 
         RowBox[{"q2", "[", "t", "]"}]}], "}"}]}]}]]}]}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8438044756843576`*^9, 3.843804521417721*^9}, {
   3.84380458964185*^9, 3.843804612055191*^9}, {3.843804676101501*^9, 
   3.843804681681652*^9}, 3.843804801124371*^9},
 CellLabel->
  "In[158]:=",ExpressionUUID->"547557bb-0f3c-4007-930a-9c0b7ec5d0f7"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
              RowBox[{"q1", "[", "t", "]"}]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
            RowBox[{"q2", "[", "t", "]"}]}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Delta]"}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
           RowBox[{"q1", "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
           RowBox[{"q2", "[", "t", "]"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Delta]"}], ")"}]}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
              RowBox[{"q1", "[", "t", "]"}]}], ")"}]}], "-", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
            RowBox[{"q2", "[", "t", "]"}]}]}]]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
           RowBox[{"q1", "[", "t", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
           RowBox[{"q2", "[", "t", "]"}]}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.843804500338023*^9, 3.843804521916504*^9}, {
   3.843804592226304*^9, 3.843804612354721*^9}, 3.843804682856678*^9, 
   3.8438048014378242`*^9},
 CellLabel->
  "Out[158]//MatrixForm=",ExpressionUUID->"8b1a25db-953f-48c1-9a2f-\
d8d6f2b747c5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t", " ", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"t", " ", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"q2", "[", "t", "]"}], ",", "t"}], "]"}]}], ",", "t"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.843804685785603*^9, 3.843804734956511*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"0e49f058-c654-46f3-aca2-470ab805efd3"],

Cell[BoxData[
 RowBox[{"t", " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SuperscriptBox["q2", "\[Prime]",
      MultilineFunction->None], "[", "t", "]"}], "+", 
    RowBox[{"t", " ", 
     RowBox[{
      SuperscriptBox["q2", "\[Prime]\[Prime]",
       MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.843804702033415*^9, 3.843804735795725*^9}},
 CellLabel->
  "Out[153]=",ExpressionUUID->"b55eeebc-0799-4137-a756-40837a53a35b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q1", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "+", 
         RowBox[{"t", " ", 
          RowBox[{
           SuperscriptBox["q1", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "==", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["t", 
         RowBox[{"1", "/", "2"}]]}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
                RowBox[{"q1", "[", "t", "]"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
              RowBox[{"q2", "[", "t", "]"}]}]}]]}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Delta]"}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q1", "[", "t", "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q2", "[", "t", "]"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Delta]"}], ")"}]}]}], ")"}]}]}], ",", 
     RowBox[{
      RowBox[{"t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q2", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "+", 
         RowBox[{"t", " ", 
          RowBox[{
           SuperscriptBox["q2", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], "==", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["t", 
         RowBox[{"1", "/", "2"}]]}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
                RowBox[{"q1", "[", "t", "]"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
              RowBox[{"q2", "[", "t", "]"}]}]}]]}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q1", "[", "t", "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q2", "[", "t", "]"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}]}], ")"}]}]}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"q1", "[", "t", "]"}], ",", 
     RowBox[{"q2", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}]], "Input",
 CellChangeTimes->{{3.8438047044092503`*^9, 3.843804811351795*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"894588fc-cd6f-41ed-8788-7829c3828957"],

Cell[BoxData[
 RowBox[{"DSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q1", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "+", 
         RowBox[{"t", " ", 
          RowBox[{
           SuperscriptBox["q1", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      "\[Equal]", 
      RowBox[{
       RowBox[{"-", 
        SqrtBox["t"]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
                RowBox[{"q1", "[", "t", "]"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
              RowBox[{"q2", "[", "t", "]"}]}]}]]}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Delta]"}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q1", "[", "t", "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q2", "[", "t", "]"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Delta]"}], ")"}]}]}], ")"}]}]}], ",", 
     RowBox[{
      RowBox[{"t", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["q2", "\[Prime]",
           MultilineFunction->None], "[", "t", "]"}], "+", 
         RowBox[{"t", " ", 
          RowBox[{
           SuperscriptBox["q2", "\[Prime]\[Prime]",
            MultilineFunction->None], "[", "t", "]"}]}]}], ")"}]}], 
      "\[Equal]", 
      RowBox[{
       RowBox[{"-", 
        SqrtBox["t"]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
                RowBox[{"q1", "[", "t", "]"}]}], ")"}]}], "-", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
              RowBox[{"q2", "[", "t", "]"}]}]}]]}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q1", "[", "t", "]"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
             RowBox[{"q2", "[", "t", "]"}]}]}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}]}], ")"}]}]}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"q1", "[", "t", "]"}], ",", 
     RowBox[{"q2", "[", "t", "]"}]}], "}"}], ",", "t"}], "]"}]], "Output",
 CellChangeTimes->{{3.8438047580132227`*^9, 3.843804811788925*^9}},
 CellLabel->
  "Out[159]=",ExpressionUUID->"cc843039-8083-4b48-b822-69bb8d9dbb0a"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "q2"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}], "-", 
      RowBox[{"q1", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Delta]"}], ")"}]}]}]]}], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Delta]"}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"q2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}]}], "+", 
     RowBox[{"q1", " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Delta]"}], ")"}]}]}]], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", "\[Delta]"}], ")"}]}]}]], "Input",ExpressionUUID->\
"20db3125-05ff-4a9b-a36f-af792f3459da"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
           RowBox[{"q1", "[", "t", "]"}]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
         RowBox[{"q2", "[", "t", "]"}]}]}]]}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Delta]"}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Delta]"}], ")"}], " ", 
        RowBox[{"q1", "[", "t", "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Delta]"}], ")"}], " ", 
        RowBox[{"q2", "[", "t", "]"}]}]}]], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Delta]"}], ")"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Delta]", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.843806223432803*^9, 3.843806240208637*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"f90fa1c8-0553-4ef7-9696-8f0bf2d898d0"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"q1", "[", "t", "]"}], "-", 
       RowBox[{"q2", "[", "t", "]"}]}]], "-", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"q1", "[", "t", "]"}]}], "+", 
       RowBox[{"q2", "[", "t", "]"}]}]]}], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"q1", "[", "t", "]"}]}], "+", 
         RowBox[{"q2", "[", "t", "]"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"q1", "[", "t", "]"}], "+", 
         RowBox[{"q2", "[", "t", "]"}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"q1", "[", "t", "]"}], "-", 
         RowBox[{"q2", "[", "t", "]"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"q1", "[", "t", "]"}], "+", 
         RowBox[{"q2", "[", "t", "]"}]}], ")"}]}]}], ")"}], " ", "\[Delta]"}],
    "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Delta]", "]"}], "2"],
    SeriesData[$CellContext`\[Delta], 0, {}, 0, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Delta], 0, {
   E^($CellContext`q1[$CellContext`t] - $CellContext`q2[$CellContext`t]) - 
    E^(-$CellContext`q1[$CellContext`t] + $CellContext`q2[$CellContext`t]), 
    E^(-$CellContext`q1[$CellContext`t] + $CellContext`q2[$CellContext`t]) \
(-1 + $CellContext`q1[$CellContext`t] + $CellContext`q2[$CellContext`t]) + 
    E^($CellContext`q1[$CellContext`t] - $CellContext`q2[$CellContext`t]) (
      1 + $CellContext`q1[$CellContext`t] + $CellContext`q2[$CellContext`t])},
    0, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.8438062325066967`*^9, 3.843806240541398*^9}},
 CellLabel->
  "Out[162]=",ExpressionUUID->"732e67dc-a137-45d8-9c9a-24eec8991fb6"]
}, Open  ]]
},
WindowSize->{1440., 777.75},
WindowMargins->{{0, Automatic}, {Automatic, 13.5}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"bf983025-abd3-4614-a146-96b4cf74ed72"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2982, 77, 283, "Input",ExpressionUUID->"bb288a26-749e-4ece-b1d1-fcebbeb52f14"],
Cell[3565, 101, 346, 9, 41, "Output",ExpressionUUID->"de67dc39-07b0-4a0d-a6ea-3f91108f154a"]
}, Open  ]],
Cell[3926, 113, 821, 24, 88, "Input",ExpressionUUID->"8ab140d3-e8e6-4f39-b3b9-0e1ecd4c466c"],
Cell[CellGroupData[{
Cell[4772, 141, 30023, 666, 1159, "Input",ExpressionUUID->"fc219f57-87b9-428a-b3d9-055d440d6a80"],
Cell[34798, 809, 8623, 233, 218, "Output",ExpressionUUID->"65a3bc88-a52e-4849-9aba-c5368fc9d6b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43458, 1047, 16545, 434, 868, "Input",ExpressionUUID->"aafcbc7f-2d94-49ce-9606-f1c42b57fc0f"],
Cell[60006, 1483, 2015, 36, 64, "Output",ExpressionUUID->"318ebf2b-4647-4a15-ba48-e35c9630423d"],
Cell[62024, 1521, 1688, 25, 41, "Output",ExpressionUUID->"48ef8793-87a8-4fb1-b6d5-77b1296e03a5"],
Cell[63715, 1548, 35941, 952, 1007, "Output",ExpressionUUID->"a306ee9f-8ec7-4e14-9367-75125ae8c51a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99693, 2505, 1267, 34, 62, "Input",ExpressionUUID->"090c14b2-a8b7-419a-ba19-1c3be07695b2"],
Cell[100963, 2541, 157, 3, 41, "Output",ExpressionUUID->"9dcad7ba-e895-44db-9b88-76d4596f6fb7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101157, 2549, 2838, 81, 125, "Input",ExpressionUUID->"67bc477a-d848-4e56-8b9c-ae8b75cfe172"],
Cell[103998, 2632, 634, 14, 46, "Output",ExpressionUUID->"d864813b-b789-4564-9976-2174de1052e3"],
Cell[104635, 2648, 620, 13, 46, "Output",ExpressionUUID->"0ee2d356-ba39-48a2-b54b-2db848eecc61"]
}, Open  ]],
Cell[CellGroupData[{
Cell[105292, 2666, 457, 13, 36, "Input",ExpressionUUID->"0753728b-e509-4259-9b6a-2ab4415b9547"],
Cell[105752, 2681, 453, 10, 41, "Output",ExpressionUUID->"8b66acd1-cc45-4e27-ad37-5a2bfee5747a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106242, 2696, 352, 10, 36, "Input",ExpressionUUID->"fcfb1d2c-8586-4d9f-a462-8780c5496b98"],
Cell[106597, 2708, 360, 8, 41, "Output",ExpressionUUID->"614d50c2-017a-4303-8ede-66019a3c1c4f"]
}, Open  ]],
Cell[106972, 2719, 242, 4, 36, "Input",ExpressionUUID->"fe6d6d62-d313-422b-bef2-80d5f2f33431"],
Cell[107217, 2725, 154, 3, 36, "Input",ExpressionUUID->"2de8e994-7a59-4424-9ba7-5a23498df85c"],
Cell[107374, 2730, 152, 3, 36, "Input",ExpressionUUID->"505db9a4-a99a-4446-a5c1-d445debc7c23"],
Cell[CellGroupData[{
Cell[107551, 2737, 1420, 34, 59, "Input",ExpressionUUID->"c179ee46-ea32-4f09-bfbc-5b71b3f00651"],
Cell[108974, 2773, 3278, 85, 100, "Output",ExpressionUUID->"daff0aac-7d23-472d-a27f-d1b18a7e2ddd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112289, 2863, 1543, 50, 65, "Input",ExpressionUUID->"68000cdb-de3a-4e07-9283-5b391736091d"],
Cell[113835, 2915, 1544, 50, 67, "Output",ExpressionUUID->"0d8cb3ad-eb53-4b4d-bf29-49be4ed64d9a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115416, 2970, 4987, 155, 388, "Input",ExpressionUUID->"6a3f8625-f1a7-40fd-b5eb-ebf29cef7315"],
Cell[120406, 3127, 755, 19, 64, "Output",ExpressionUUID->"e72fef6f-fe6d-4b6f-8862-89d33a78b69b"],
Cell[121164, 3148, 376, 6, 41, "Output",ExpressionUUID->"14e08538-7576-4ec2-a1d3-a0707647d08e"],
Cell[121543, 3156, 520, 11, 41, "Output",ExpressionUUID->"63c0c782-4e6f-4e79-806d-72fb25c61c31"],
Cell[122066, 3169, 518, 11, 41, "Output",ExpressionUUID->"0ba58cd7-0bf0-430b-8ef4-62bfb78649e9"],
Cell[122587, 3182, 506, 11, 41, "Output",ExpressionUUID->"9f684b05-ff68-45f9-bb49-cd017e58cebd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123130, 3198, 603, 17, 62, "Input",ExpressionUUID->"b8e570ae-d693-4e49-abfe-e53b2e0f9845"],
Cell[123736, 3217, 585, 17, 64, "Output",ExpressionUUID->"8287069c-59d9-4299-bbe3-bb69c0151a26"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124358, 3239, 3750, 111, 95, "Input",ExpressionUUID->"918b1ef2-671f-4ca0-befd-10713f489fe8"],
Cell[128111, 3352, 215, 4, 41, "Output",ExpressionUUID->"d0f19e84-e79f-4dfd-9b6c-2a61c55c8597"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128363, 3361, 608, 18, 39, "Input",ExpressionUUID->"c3eaf572-88ff-4fc8-b31d-78dff73f7b9a"],
Cell[128974, 3381, 1263, 41, 52, "Output",ExpressionUUID->"9731f7ea-b052-444e-9384-ae1af401ec3f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[130274, 3427, 697, 19, 36, "Input",ExpressionUUID->"27ea0b98-a9d0-4d1e-b194-55730f8717a5"],
Cell[130974, 3448, 446, 14, 44, "Output",ExpressionUUID->"95ffd655-5eb3-4b00-8125-53888921bd64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[131457, 3467, 244, 5, 36, "Input",ExpressionUUID->"529b4918-69a8-4d8d-93b7-b0e5c9214fec"],
Cell[131704, 3474, 2626, 73, 118, "Output",ExpressionUUID->"9029c777-0069-424a-b351-a24c9d72296e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[134367, 3552, 1273, 37, 39, "Input",ExpressionUUID->"15c181e7-21c2-4a8c-93fe-c45ce4f60ba3"],
Cell[135643, 3591, 256, 6, 57, "Output",ExpressionUUID->"ccc32c5e-8ed0-40d9-93c7-30c7ae32ed78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[135936, 3602, 2498, 70, 92, "Input",ExpressionUUID->"ad808a12-e266-49c0-a423-162d400a3d86"],
Cell[138437, 3674, 454, 14, 63, "Output",ExpressionUUID->"b9515c36-24e9-4298-a004-c1ad8fd3b78d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138928, 3693, 2723, 75, 142, "Input",ExpressionUUID->"ebe0873a-f577-4b2c-9b0e-8a5be4dd7966"],
Cell[141654, 3770, 2255, 66, 91, "Output",ExpressionUUID->"a12269d4-6cda-412d-8ac1-0004d3361cf7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[143946, 3841, 2837, 81, 119, "Input",ExpressionUUID->"e89c12c6-325f-4898-b8a8-0a466c15fa21"],
Cell[146786, 3924, 2180, 63, 91, "Output",ExpressionUUID->"77d85bba-e81a-40d3-aca3-36a7613d8b37"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149003, 3992, 2191, 63, 111, "Input",ExpressionUUID->"f3d79002-aa33-45f9-8b62-64a8dcd01d1b"],
Cell[151197, 4057, 248, 6, 57, "Output",ExpressionUUID->"3d7b8fca-15ea-4b32-9228-f23ef2466f61"]
}, Open  ]],
Cell[CellGroupData[{
Cell[151482, 4068, 2336, 69, 210, "Input",ExpressionUUID->"37a64a7f-6c63-4052-9525-063b5a4f1ea8"],
Cell[153821, 4139, 373, 10, 41, "Output",ExpressionUUID->"67ad5bdc-b69d-487b-966e-fece4c61acda"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154231, 4154, 1982, 56, 213, "Input",ExpressionUUID->"94683824-d210-4499-b6b9-e510fe90cf45"],
Cell[156216, 4212, 424, 10, 41, "Output",ExpressionUUID->"a05ba7fa-b3af-49b7-9535-a4e3eb2b1241"]
}, Open  ]],
Cell[156655, 4225, 1546, 46, 133, "Input",ExpressionUUID->"76690cc8-7969-4b49-af22-ccd3649b3897"],
Cell[158204, 4273, 1538, 41, 138, "Input",ExpressionUUID->"6c870f6e-da30-4f2a-8441-8f0d5a2198bc"],
Cell[CellGroupData[{
Cell[159767, 4318, 647, 19, 58, "Input",ExpressionUUID->"47fafdf7-c343-4b32-b46c-241ecc8fca22"],
Cell[160417, 4339, 1158, 33, 71, "Output",ExpressionUUID->"ee3a4de9-eeb0-46ca-a8db-2362c6a1a29e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161612, 4377, 1387, 40, 72, "Input",ExpressionUUID->"331e8aac-bb7e-46ed-aa7d-c8bdc4e6458a"],
Cell[163002, 4419, 35901, 615, 302, "Output",ExpressionUUID->"80517672-8043-4fdc-9cc5-02dfeb5c1b5b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198940, 5039, 1396, 42, 59, "Input",ExpressionUUID->"32628b04-068b-459a-b091-3a662aa54bb7"],
Cell[200339, 5083, 304, 8, 41, "Output",ExpressionUUID->"5ee58cb5-e52c-4007-9eaf-eebfd78bfc61"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200680, 5096, 2003, 62, 59, "Input",ExpressionUUID->"96a2c6c0-fd9e-4256-bf44-38de71c817a2"],
Cell[202686, 5160, 892, 28, 63, "Output",ExpressionUUID->"52c9f9cb-6c3c-4fa0-a4a4-eb1935d20380"]
}, Open  ]],
Cell[CellGroupData[{
Cell[203615, 5193, 1823, 52, 62, "Input",ExpressionUUID->"6dc18821-9435-439e-9d56-0d4e767a2b89"],
Cell[205441, 5247, 206, 4, 41, "Output",ExpressionUUID->"8aeac8aa-635c-4d46-b8df-04db7f5e4190"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205684, 5256, 813, 22, 84, "Input",ExpressionUUID->"307cf67b-9f12-4db6-bd9e-ff19086c5bcb"],
Cell[206500, 5280, 843, 25, 61, "Output",ExpressionUUID->"e3b1a3ab-bbec-492e-84d6-5bbb483192c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207380, 5310, 1805, 50, 71, "Input",ExpressionUUID->"56915a44-08b5-4f26-8c15-cb458dd679dc"],
Cell[209188, 5362, 32564, 558, 299, "Output",ExpressionUUID->"cd057317-50c4-47a6-a076-b4cdceb11435"]
}, Open  ]],
Cell[CellGroupData[{
Cell[241789, 5925, 939, 26, 62, "Input",ExpressionUUID->"2542cabb-f5ae-483e-9cc8-25ff42c4783f"],
Cell[242731, 5953, 342, 8, 41, "Output",ExpressionUUID->"83b99c6f-c8e7-4fb3-ad35-dcf1c861ba4e"]
}, Open  ]],
Cell[243088, 5964, 203, 4, 36, "Input",ExpressionUUID->"c73f26db-f60f-4150-89dc-2fb8c7fad433"],
Cell[243294, 5970, 305, 8, 36, "Input",ExpressionUUID->"54ef37b7-9ca4-456a-8ec9-49915a134dc6"],
Cell[243602, 5980, 368, 9, 62, "Input",ExpressionUUID->"91bb9ad3-f379-46d7-9455-28d5771d84cc"],
Cell[CellGroupData[{
Cell[243995, 5993, 6977, 166, 366, "Input",ExpressionUUID->"30414698-2216-4081-954d-8d7fb838703c"],
Cell[250975, 6161, 8826, 234, 214, "Output",ExpressionUUID->"39e2c419-b147-4925-9f90-0ea373f506d0"],
Cell[259804, 6397, 2029, 57, 72, "Output",ExpressionUUID->"0e1fe0cb-6330-4bb6-ac48-ba6381ec5926"]
}, Open  ]],
Cell[CellGroupData[{
Cell[261870, 6459, 1227, 35, 63, "Input",ExpressionUUID->"4b35b642-d0a2-4c7d-b647-b74dc95e4b55"],
Cell[263100, 6496, 1078, 31, 67, "Output",ExpressionUUID->"b5abc1b8-b9e1-420a-b6c4-49f9a8d2f5e5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[264215, 6532, 1209, 34, 88, "Input",ExpressionUUID->"94da9147-a755-4a5a-81f4-0605f844fa12"],
Cell[265427, 6568, 816, 28, 41, "Output",ExpressionUUID->"9b9f7d3e-be6f-49fe-af39-0642b4f332ff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266280, 6601, 164, 3, 36, "Input",ExpressionUUID->"b77285ee-6957-40f5-af4e-3a95272f419f"],
Cell[266447, 6606, 487, 10, 35, "Message",ExpressionUUID->"88f182bc-3a25-4a7a-88a7-1ec37d67aaff"],
Cell[266937, 6618, 235, 5, 41, "Output",ExpressionUUID->"9f05f042-3ad7-4ef1-9a55-706e5d2b440d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[267209, 6628, 4847, 120, 164, "Input",ExpressionUUID->"4811ae89-c3b2-4ab6-973b-016e40128a43"],
Cell[272059, 6750, 942, 23, 60, "Output",ExpressionUUID->"43386f30-aa84-4fd7-a3e9-ac10a6ef3ba1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273038, 6778, 914, 25, 57, "Input",ExpressionUUID->"128036b3-a6a3-4aa3-b609-84b4b304dafa"],
Cell[273955, 6805, 719, 21, 61, "Output",ExpressionUUID->"80d81385-44eb-44f9-ab3b-8fe454346679"]
}, Open  ]],
Cell[CellGroupData[{
Cell[274711, 6831, 665, 21, 58, "Input",ExpressionUUID->"031627c7-46d0-438f-a616-a675dd0ed409"],
Cell[275379, 6854, 1503, 45, 65, "Output",ExpressionUUID->"48d0fd17-1f1f-4f83-8feb-4e36ebfe28e2"]
}, Open  ]],
Cell[276897, 6902, 428, 10, 62, "Input",ExpressionUUID->"acfcf325-65f5-4835-9f6c-a68c940a1fac"],
Cell[CellGroupData[{
Cell[277350, 6916, 3261, 92, 264, "Input",ExpressionUUID->"f9a1f331-3e0c-4d8f-8a4c-329fcd63dcca"],
Cell[280614, 7010, 695, 14, 41, "Output",ExpressionUUID->"91542bf8-253e-491c-8752-3b5a92753dd2"],
Cell[281312, 7026, 756, 15, 62, "Output",ExpressionUUID->"6f07be9c-fddd-4854-8c47-dea90c252f29"],
Cell[282071, 7043, 573, 9, 41, "Output",ExpressionUUID->"f77aa589-981b-4b7d-a0da-2448fb40232c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[282681, 7057, 686, 20, 59, "Input",ExpressionUUID->"459f0394-1606-4fc1-a281-e2e93e78f732"],
Cell[283370, 7079, 320, 8, 61, "Output",ExpressionUUID->"b1169f6a-99ce-4d88-bddf-c56268cb9e7e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[283727, 7092, 424, 12, 60, "Input",ExpressionUUID->"1154da2f-f123-408e-b434-3be17b18e33a"],
Cell[284154, 7106, 153, 3, 41, "Output",ExpressionUUID->"5ada5b8f-c84e-44ab-ab69-d032b642684d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284344, 7114, 1792, 45, 100, "Input",ExpressionUUID->"da4b44ed-1cfc-4e21-8202-7a49a635e65d"],
Cell[286139, 7161, 721, 20, 62, "Output",ExpressionUUID->"6c7f4670-34af-4ddd-ae7a-0b65a88a73a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[286897, 7186, 1591, 45, 91, "Input",ExpressionUUID->"a03935cd-d278-4faf-8865-79aefa8328f8"],
Cell[288491, 7233, 276, 5, 41, "Output",ExpressionUUID->"8b084928-60e1-4514-a177-a70394c06a13"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288804, 7243, 4097, 120, 216, "Input",ExpressionUUID->"1ed2454a-8bf4-491b-9674-7eb60895b86c"],
Cell[292904, 7365, 251, 4, 41, "Output",ExpressionUUID->"2bd1bd67-8646-4a94-8664-2597bf69cbbb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[293192, 7374, 698, 21, 59, "Input",ExpressionUUID->"18427290-83cc-4ea3-bde6-ff547eb4a36e"],
Cell[293893, 7397, 722, 23, 62, "Output",ExpressionUUID->"104bb6aa-aae1-4f4c-9783-cf8a38470a72"]
}, Open  ]],
Cell[CellGroupData[{
Cell[294652, 7425, 1166, 32, 60, "Input",ExpressionUUID->"116993d7-571c-459d-9a69-75d8745a67fa"],
Cell[295821, 7459, 1952, 56, 65, "Output",ExpressionUUID->"ca717fc3-31ec-4f33-be4b-0a105ca248e7"]
}, Open  ]],
Cell[297788, 7518, 1924, 57, 63, "Input",ExpressionUUID->"aa2c016a-ed49-46aa-901a-43b60efc4230"],
Cell[CellGroupData[{
Cell[299737, 7579, 864, 28, 58, InheritFromParent,ExpressionUUID->"2486937f-a06a-4066-b5f9-9882805e35b7"],
Cell[300604, 7609, 830, 28, 61, "Output",ExpressionUUID->"38558bcb-95ba-41e2-b0a8-8e300c5362b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[301471, 7642, 372, 11, 58, "Input",ExpressionUUID->"56f741b3-306e-4385-80d6-1f348b342c28"],
Cell[301846, 7655, 282, 7, 61, "Output",ExpressionUUID->"c17e90f8-5dd1-46ab-aaef-cd417e78550c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302165, 7667, 927, 27, 63, "Input",ExpressionUUID->"d25604e0-9a09-4c99-966d-9f7150551d0e"],
Cell[303095, 7696, 674, 19, 69, "Output",ExpressionUUID->"a434d944-018f-4be4-b799-7b6b931fc843"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303806, 7720, 553, 15, 63, "Input",ExpressionUUID->"47788d9a-865c-4c19-94d1-b22716fc2955"],
Cell[304362, 7737, 497, 15, 61, "Output",ExpressionUUID->"c21929b5-d68b-4ad9-a3e0-6507e6942840"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304896, 7757, 131, 3, 36, "Input",ExpressionUUID->"f2b32649-a795-4bc8-b24e-78712f630eca"],
Cell[305030, 7762, 1742, 50, 67, "Output",ExpressionUUID->"fb1f6bf9-c77e-436f-a274-4c3ded78eed1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[306809, 7817, 1764, 50, 159, "Input",ExpressionUUID->"fa1b95b9-cbff-4b58-9661-286c957b0423"],
Cell[308576, 7869, 465, 11, 61, "Output",ExpressionUUID->"25aa981d-bb00-46a1-8e09-d15b7ce6815c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309078, 7885, 994, 28, 59, "Input",ExpressionUUID->"ab614a8a-d93b-4775-a469-d7100aa931ea"],
Cell[310075, 7915, 829, 23, 62, "Output",ExpressionUUID->"100f4f64-e687-456b-99b5-2826e1dd4555"]
}, Open  ]],
Cell[CellGroupData[{
Cell[310941, 7943, 463, 13, 58, "Input",ExpressionUUID->"055c1e80-762a-474a-9bd1-b4f68843408b"],
Cell[311407, 7958, 355, 10, 62, "Output",ExpressionUUID->"6eedfbb9-db39-4ba6-a968-11d7792c538f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[311799, 7973, 352, 9, 36, "Input",ExpressionUUID->"396f8007-6cd8-4aa8-b0f5-4b77e7a8a8f5"],
Cell[312154, 7984, 290, 8, 59, "Output",ExpressionUUID->"525894f9-e70a-4ee4-88a5-c5b20e021548"]
}, Open  ]],
Cell[CellGroupData[{
Cell[312481, 7997, 580, 15, 36, "Input",ExpressionUUID->"162b566b-18f6-48cd-b08c-d59651f5489c"],
Cell[313064, 8014, 367, 9, 41, "Output",ExpressionUUID->"c0f76be4-59b6-4f6d-a981-4296ee9a3b16"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313468, 8028, 417, 12, 36, "Input",ExpressionUUID->"36642308-bcd2-4177-adfc-be95db628e38"],
Cell[313888, 8042, 283, 6, 41, "Output",ExpressionUUID->"41892816-add5-41c0-b784-321727595b58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314208, 8053, 323, 10, 54, "Input",ExpressionUUID->"f88ed516-589e-4532-8cc6-a95efbdd8af7"],
Cell[314534, 8065, 307, 9, 41, "Output",ExpressionUUID->"ff4dddda-a682-4986-a693-8c749f6e860b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314878, 8079, 598, 19, 54, "Input",ExpressionUUID->"bcad0d05-a4fe-4fef-a69f-053bb0ee3507"],
Cell[315479, 8100, 840, 15, 35, "Message",ExpressionUUID->"f721d538-d9bd-454b-a417-ef477d7eda27"],
Cell[316322, 8117, 547, 18, 41, "Output",ExpressionUUID->"399230dd-e787-4132-9a34-5c1c18e7b8aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316906, 8140, 732, 22, 54, "Input",ExpressionUUID->"d48d55d1-6ecf-45cd-9434-513fedc5c3f7"],
Cell[317641, 8164, 776, 15, 35, "Message",ExpressionUUID->"0fa91829-2a5e-4dc9-912b-f743f8a43153"],
Cell[318420, 8181, 542, 17, 41, "Output",ExpressionUUID->"20889597-8386-4039-966d-14c7518f08eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[318999, 8203, 1468, 47, 54, "Input",ExpressionUUID->"547557bb-0f3c-4007-930a-9c0b7ec5d0f7"],
Cell[320470, 8252, 2963, 87, 83, "Output",ExpressionUUID->"8b1a25db-953f-48c1-9a2f-d8d6f2b747c5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[323470, 8344, 371, 11, 36, "Input",ExpressionUUID->"0e49f058-c654-46f3-aca2-470ab805efd3"],
Cell[323844, 8357, 474, 13, 41, "Output",ExpressionUUID->"b55eeebc-0799-4137-a756-40837a53a35b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324355, 8375, 3784, 110, 67, "Input",ExpressionUUID->"894588fc-cd6f-41ed-8788-7829c3828957"],
Cell[328142, 8487, 3737, 110, 72, "Output",ExpressionUUID->"cc843039-8083-4b48-b822-69bb8d9dbb0a"]
}, Open  ]],
Cell[331894, 8600, 847, 28, 36, "Input",ExpressionUUID->"20db3125-05ff-4a9b-a36f-af792f3459da"],
Cell[CellGroupData[{
Cell[332766, 8632, 1289, 39, 39, "Input",ExpressionUUID->"f90fa1c8-0553-4ef7-9696-8f0bf2d898d0"],
Cell[334058, 8673, 2033, 54, 44, "Output",ExpressionUUID->"732e67dc-a137-45d8-9c9a-24eec8991fb6"]
}, Open  ]]
}
]
*)