A3_LateTime.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    128813,       3713]
NotebookOptionsPosition[    123981,       3628]
NotebookOutlinePosition[    124347,       3644]
CellTagsIndexPosition[    124304,       3641]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", "4"}], ";", " ", 
  RowBox[{"genus0conifold", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           FractionBox[
            SuperscriptBox[
             SubscriptBox["T", "k"], "2"], "2"], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{
               SubscriptBox["T", "k"], "/", 
               RowBox[{"c", "[", "k", "]"}]}], "]"}], "-", 
             RowBox[{"3", "/", "2"}]}], ")"}]}], "-", 
          RowBox[{
           SubscriptBox["T", "k"], 
           FractionBox[
            RowBox[{"Sin", "[", 
             RowBox[{"\[Pi]", " ", 
              FractionBox["k", "n"]}], "]"}], 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Pi]", "/", "n"}], "]"}]]}]}], "/.", 
         RowBox[{
          RowBox[{"c", "[", "z_", "]"}], "\[Rule]", 
          RowBox[{"4", " ", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"Sin", "[", 
              RowBox[{"\[Pi]", " ", 
               FractionBox["k", "n"]}], "]"}], "3"], 
            RowBox[{"Sin", "[", 
             RowBox[{"\[Pi]", "/", "n"}], "]"}]]}]}]}], "//", "Cancel"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", 
         RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "+", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "<", "j"}], ",", 
         RowBox[{
          RowBox[{
           SubscriptBox["T", "i"], 
           SubscriptBox["T", "j"], 
           RowBox[{"Log", "[", 
            FractionBox[
             RowBox[{
              RowBox[{"Cos", "[", 
               RowBox[{"\[Pi]", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"i", "-", "j"}], ")"}], "/", "n"}]}], "]"}], "-", 
              "1"}], 
             RowBox[{
              RowBox[{"Cos", "[", 
               RowBox[{"\[Pi]", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"i", "+", "j"}], ")"}], "/", "n"}]}], "]"}], "-", 
              "1"}]], "]"}]}], "//", "Simplify"}], ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"n", "-", "1"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", 
         RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}]}], "//", 
    "Expand"}]}]}]], "Input",
 CellChangeTimes->{{3.830414943835372*^9, 3.830414961788281*^9}},
 CellLabel->
  "In[181]:=",ExpressionUUID->"9e443886-4aa8-467b-8ec8-ded9279a789e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SubscriptBox["T", "1"]}], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    SubsuperscriptBox["T", "1", "2"]}], "4"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Log", "[", 
    FractionBox[
     SubscriptBox["T", "1"], "2"], "]"}], " ", 
   SubsuperscriptBox["T", "1", "2"]}], "-", 
  RowBox[{
   SqrtBox["2"], " ", 
   SubscriptBox["T", "2"]}], "+", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"3", "-", 
     RowBox[{"2", " ", 
      SqrtBox["2"]}]}], "]"}], " ", 
   SubscriptBox["T", "1"], " ", 
   SubscriptBox["T", "2"]}], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    SubsuperscriptBox["T", "2", "2"]}], "4"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Log", "[", 
    FractionBox[
     SubscriptBox["T", "2"], 
     RowBox[{"4", " ", 
      SqrtBox["2"]}]], "]"}], " ", 
   SubsuperscriptBox["T", "2", "2"]}], "-", 
  SubscriptBox["T", "3"], "-", 
  RowBox[{
   RowBox[{"Log", "[", "2", "]"}], " ", 
   SubscriptBox["T", "1"], " ", 
   SubscriptBox["T", "3"]}], "+", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"3", "-", 
     RowBox[{"2", " ", 
      SqrtBox["2"]}]}], "]"}], " ", 
   SubscriptBox["T", "2"], " ", 
   SubscriptBox["T", "3"]}], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    SubsuperscriptBox["T", "3", "2"]}], "4"], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"Log", "[", 
    FractionBox[
     SubscriptBox["T", "3"], "2"], "]"}], " ", 
   SubsuperscriptBox["T", "3", "2"]}]}]], "Output",
 CellChangeTimes->{3.830414873860071*^9, 3.8304149631347027`*^9},
 CellLabel->
  "Out[181]=",ExpressionUUID->"586e28ff-e2d4-4bb8-87fb-23146437d118"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"oneloopasymp", "=", 
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              RowBox[{"\[Epsilon]", "^", "0"}]}], 
             RowBox[{"Series", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  SuperscriptBox["r", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", " ", 
                    RowBox[{
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "1"], "2"], "+", " ", 
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "2"], "2"], "+", 
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "3"], "2"]}], ")"}], "/", "2"}], 
                    "+", 
                    RowBox[{"1", "/", "4"}]}]], 
                  SuperscriptBox["E", 
                   RowBox[{
                    RowBox[{"\[Alpha]", " ", 
                    RowBox[{
                    SuperscriptBox["r", "2"], "/", "16"}]}], "+", " ", 
                    RowBox[{"r", " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SqrtBox["2"], " ", "r", " ", 
                    SubscriptBox["\[Nu]", "2"]}], " ", "+", 
                    RowBox[{"r", " ", 
                    SubscriptBox["\[Nu]", "3"]}]}]], 
                  SuperscriptBox["E", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Log", "[", 
                    RowBox[{"3", "-", 
                    RowBox[{"2", " ", 
                    SqrtBox["2"]}]}], "]"}]}], " ", "  ", 
                    SubscriptBox["\[Nu]", "1"], 
                    SubscriptBox["\[Nu]", "2"]}], "-", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"3", "-", 
                    RowBox[{"2", " ", 
                    SqrtBox["2"]}]}], "]"}], " ", "  ", 
                    SubscriptBox["\[Nu]", "2"], 
                    SubscriptBox["\[Nu]", "3"]}], "+", 
                    RowBox[{
                    RowBox[{"Log", "[", "2", "]"}], "   ", 
                    SubscriptBox["\[Nu]", "1"], 
                    SubscriptBox["\[Nu]", "3"]}]}]], "\[IndentingNewLine]", 
                  SuperscriptBox["2", 
                   RowBox[{
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "1"], "2"], "/", "2"}]], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]",
                     " ", 
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "1"], "2"]}]], " ", 
                  SuperscriptBox["\[Pi]", 
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SubscriptBox["\[Nu]", "1"]}], "2"]}]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Series", "[", 
                    RowBox[{
                    RowBox[{"BarnesG", "[", 
                    RowBox[{"1", "+", " ", "x"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], 
                    "//", "Normal"}], ")"}], "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"I", " ", 
                    SubscriptBox["\[Nu]", "1"]}]}]}], " ", ")"}], 
                  "\[IndentingNewLine]", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    RowBox[{"4", " ", 
                    SqrtBox["2"]}], ")"}], 
                   RowBox[{
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "2"], "2"], "/", "2"}]], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]",
                     " ", 
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "2"], "2"]}]], " ", 
                  SuperscriptBox["\[Pi]", 
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SubscriptBox["\[Nu]", "2"]}], "2"]}]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Series", "[", 
                    RowBox[{
                    RowBox[{"BarnesG", "[", 
                    RowBox[{"1", "+", " ", "x"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], 
                    "//", "Normal"}], ")"}], "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"I", " ", 
                    SubscriptBox["\[Nu]", "2"]}]}]}], " ", ")"}], 
                  "\[IndentingNewLine]", 
                  SuperscriptBox["2", 
                   RowBox[{
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "3"], "2"], "/", "2"}]], " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]",
                     " ", 
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "3"], "2"]}]], " ", 
                  SuperscriptBox["\[Pi]", 
                   RowBox[{"-", 
                    FractionBox[
                    RowBox[{"\[ImaginaryI]", " ", 
                    SubscriptBox["\[Nu]", "3"]}], "2"]}]], 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Series", "[", 
                    RowBox[{
                    RowBox[{"BarnesG", "[", 
                    RowBox[{"1", "+", " ", "x"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], 
                    "//", "Normal"}], ")"}], "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"I", " ", 
                    SubscriptBox["\[Nu]", "3"]}]}]}], " ", ")"}]}], "]"}], "//",
                 "PowerExpand"}], ",", 
               RowBox[{"{", 
                RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "//", 
            "Normal"}], ")"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r", "\[Rule]", " ", 
             RowBox[{
              SuperscriptBox["1", "1"], 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}], ",", 
            RowBox[{
             SubscriptBox["\[Nu]", "1"], " ", "\[Rule]", 
             RowBox[{
              SubscriptBox["T", "1"], " ", 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}], ",", 
            RowBox[{
             SubscriptBox["\[Nu]", "2"], " ", "\[Rule]", 
             RowBox[{
              SubscriptBox["T", "2"], " ", 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}], ",", 
            RowBox[{
             SubscriptBox["\[Nu]", "3"], " ", "\[Rule]", 
             RowBox[{
              SubscriptBox["T", "3"], " ", 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}]}], "}"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Epsilon]", ",", "0", ",", "0"}], "}"}]}], "]"}], "//", 
       "Simplify"}], ",", "\[Epsilon]", ",", 
      RowBox[{"-", "2"}]}], "]"}], "//", "Expand"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"oneloopasymp", "-", "genus0conifold"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["T", "1"], ">", "0"}], ",", 
     RowBox[{
      SubscriptBox["T", "2"], ">", "0"}], ",", 
     RowBox[{
      SubscriptBox["T", "3"], ">", "0"}], ",", 
     RowBox[{"\[Epsilon]", ">", "0"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.83041497249234*^9, 3.8304150465699883`*^9}, 
   3.8304158379654293`*^9},
 CellLabel->
  "In[334]:=",ExpressionUUID->"3553dd19-29ef-4370-985a-dcff67a01d93"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox["\[Alpha]", "16"]}]], "Output",
 CellChangeTimes->{
  3.83041491828262*^9, 3.830414999208602*^9, {3.830415033199082*^9, 
   3.8304150473344307`*^9}, 3.830415838793496*^9},
 CellLabel->
  "Out[335]=",ExpressionUUID->"42fae13c-badc-4b23-8263-fa90b20a6003"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "1"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", "z", "]"}], 
   RowBox[{"G", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "1"}], "]"}], 
   RowBox[{"G", "[", 
    RowBox[{"z", "+", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "2"}], "]"}], 
   RowBox[{"G", "[", 
    RowBox[{"z", "+", "2"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "3"}], "]"}], 
   RowBox[{"G", "[", 
    RowBox[{"z", "+", "3"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "1"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", "z", "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"z", "-", "1"}], "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "2"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"z", "-", "2"}], "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "3"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"z", "-", "3"}], "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "4"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"w_", " ", 
    RowBox[{"(", 
     RowBox[{"z_", " ", "+", " ", "y_"}], ")"}]}], "]"}], ":=", 
  RowBox[{"G", "[", 
   RowBox[{
    RowBox[{"w", " ", "z"}], " ", "+", " ", 
    RowBox[{"w", " ", "y"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "1"}], "]"}], ":=", 
  RowBox[{"z", " ", 
   RowBox[{"\[CapitalGamma]", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"z", "+", "1"}], ")"}], 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"z", "+", "2"}], ")"}], 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "2"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"z", "+", "3"}], ")"}], 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "3"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "1"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", "z", "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "1"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "1"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "2"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "3"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "3"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "4"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"w_", " ", 
    RowBox[{"(", 
     RowBox[{"z_", " ", "+", " ", "y_"}], ")"}]}], "]"}], ":=", 
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{
    RowBox[{"w", " ", "z"}], " ", "+", " ", 
    RowBox[{"w", " ", "y"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nN", "=", "1"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"A2RootLattice", "=", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"a", 
            RowBox[{"{", 
             RowBox[{"2", ",", 
              RowBox[{"-", "1"}]}], "}"}]}], "+", 
           RowBox[{"b", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", "2"}], "}"}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"a", ",", 
            RowBox[{"-", "nN"}], ",", "nN"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"b", ",", 
            RowBox[{"-", "nN"}], ",", "nN"}], "}"}]}], "]"}], ",", "1"}], 
       "]"}], "//", "DeleteDuplicates"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"A2RootLattice1", " ", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"2", "/", "3"}], ",", 
          RowBox[{"1", "/", "3"}]}], "}"}], "+", "root"}], ",", 
       RowBox[{"{", 
        RowBox[{"root", ",", "A2RootLattice"}], "}"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"A2RootLattice2", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "3"}], ",", 
          RowBox[{"2", "/", "3"}]}], "}"}], "+", "root"}], ",", 
       RowBox[{"{", 
        RowBox[{"root", ",", "A2RootLattice"}], "}"}]}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A3RootLattice", "=", " ", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"a", ",", "b", ",", "c"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", 
          RowBox[{"-", "nN"}], ",", "nN"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", 
          RowBox[{"-", "nN"}], ",", "nN"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"c", ",", 
          RowBox[{"-", "nN"}], ",", "nN"}], "}"}]}], "]"}], ",", "2"}], "]"}],
     "//", "DeleteDuplicates"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]inf", "[", 
    RowBox[{
    "\[Rho]1_", ",", "\[Rho]2_", ",", "\[Rho]3_", ",", "\[Nu]1_", ",", 
     "\[Nu]2_", ",", "\[Nu]3_", ",", "r_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{" ", 
       RowBox[{
        SuperscriptBox["r", "2"], 
        RowBox[{
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]], "/", "16"}]}]}]], 
     SuperscriptBox["r", 
      RowBox[{"1", "/", "4"}]], 
     SuperscriptBox["\[Epsilon]", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "4"}]], 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Epsilon]", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "2"}], 
           RowBox[{"m", ".", "m"}]}], "+", "i"}]], 
        SuperscriptBox["\[Xi]1", 
         RowBox[{"m", "[", 
          RowBox[{"[", "1", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]2", 
         RowBox[{"m", "[", 
          RowBox[{"[", "2", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]3", 
         RowBox[{"m", "[", 
          RowBox[{"[", "3", "]"}], "]"}]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{" ", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]1", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", 
            SqrtBox["2"], "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]2", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]3", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}]}]}]], "  ", 
        SuperscriptBox["r", 
         RowBox[{
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", " ", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]1", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]2", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]3", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "2"]}], ")"}]}], 
          "-", "i"}]], " ", 
        SuperscriptBox["E", 
         RowBox[{" ", 
          RowBox[{"2", "\[Pi]", " ", "I", " ", 
           RowBox[{"m", ".", 
            RowBox[{"{", 
             RowBox[{"\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3"}], 
             "}"}]}]}]}]], 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[Nu]1", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]2", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]3", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"i", "\[Equal]", "0"}], ",", "1", ",", 
          RowBox[{
           SubscriptBox["Binf", "i"], "[", 
           RowBox[{
            RowBox[{"\[Nu]1", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]2", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]3", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "A3RootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "nN"}], "}"}]}], "]"}]}], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]1", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]2", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]3", "]"}], "nN"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]inf1", "[", 
    RowBox[{
    "\[Rho]1_", ",", "\[Rho]2_", ",", "\[Rho]3_", ",", "\[Nu]1_", ",", 
     "\[Nu]2_", ",", "\[Nu]3_", ",", "r_"}], "]"}], " ", ":=", "  ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{" ", 
       RowBox[{
        SuperscriptBox["r", "2"], 
        RowBox[{
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]], "/", "16"}]}]}]], 
     SuperscriptBox["r", 
      RowBox[{"1", "/", "4"}]], 
     SuperscriptBox["\[Epsilon]", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "4"}]], 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Epsilon]", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "2"}], 
           RowBox[{"m", ".", "m"}]}], "+", "i"}]], 
        SuperscriptBox["\[Xi]1", 
         RowBox[{"m", "[", 
          RowBox[{"[", "1", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]2", 
         RowBox[{"m", "[", 
          RowBox[{"[", "2", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]3", 
         RowBox[{"m", "[", 
          RowBox[{"[", "3", "]"}], "]"}]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{" ", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]1", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", 
            SqrtBox["2"], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]2", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]3", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}]}]}]], "  ", 
        SuperscriptBox["r", 
         RowBox[{
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", " ", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]1", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]2", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]3", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "2"]}], ")"}]}], 
          "-", "i"}]], " ", 
        SuperscriptBox["E", 
         RowBox[{" ", 
          RowBox[{"2", "\[Pi]", " ", "I", " ", 
           RowBox[{"m", ".", 
            RowBox[{"{", 
             RowBox[{"\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3"}], 
             "}"}]}]}]}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{"m", ".", 
          RowBox[{"{", 
           RowBox[{"a1", ",", "b1", ",", "c1"}], "}"}]}]], 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[Nu]1", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]2", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]3", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"i", "\[Equal]", "0"}], ",", "1", ",", 
          RowBox[{
           SubscriptBox["Binf", "i"], "[", 
           RowBox[{
            RowBox[{"\[Nu]1", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]2", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]3", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "A3RootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "nN"}], "}"}]}], "]"}]}], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]1", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]2", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]3", "]"}], "nN"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]inf2", "[", 
    RowBox[{
    "\[Rho]1_", ",", "\[Rho]2_", ",", "\[Rho]3_", ",", "\[Nu]1_", ",", 
     "\[Nu]2_", ",", "\[Nu]3_", ",", "r_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{" ", 
       RowBox[{
        SuperscriptBox["r", "2"], 
        RowBox[{
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]], "/", "16"}]}]}]], 
     SuperscriptBox["r", 
      RowBox[{"1", "/", "4"}]], 
     SuperscriptBox["\[Epsilon]", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "4"}]], 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Epsilon]", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "2"}], 
           RowBox[{"m", ".", "m"}]}], "+", "i"}]], 
        SuperscriptBox["\[Xi]1", 
         RowBox[{"m", "[", 
          RowBox[{"[", "1", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]2", 
         RowBox[{"m", "[", 
          RowBox[{"[", "2", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]3", 
         RowBox[{"m", "[", 
          RowBox[{"[", "3", "]"}], "]"}]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{" ", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]1", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", 
            SqrtBox["2"], "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]2", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]3", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}]}]}]], "  ", 
        SuperscriptBox["r", 
         RowBox[{
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", " ", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]1", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]2", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]3", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "2"]}], ")"}]}], 
          "-", "i"}]], " ", 
        SuperscriptBox["E", 
         RowBox[{" ", 
          RowBox[{"2", "\[Pi]", " ", "I", " ", 
           RowBox[{"m", ".", 
            RowBox[{"{", 
             RowBox[{"\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3"}], 
             "}"}]}]}]}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{"m", ".", 
          RowBox[{"{", 
           RowBox[{"a2", ",", "b2", ",", "c2"}], "}"}]}]], 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[Nu]1", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]2", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]3", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"i", "\[Equal]", "0"}], ",", "1", ",", 
          RowBox[{
           SubscriptBox["Binf", "i"], "[", 
           RowBox[{
            RowBox[{"\[Nu]1", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]2", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]3", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "A3RootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "nN"}], "}"}]}], "]"}]}], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]1", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]2", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]3", "]"}], "nN"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Tau]inf3", "[", 
    RowBox[{
    "\[Rho]1_", ",", "\[Rho]2_", ",", "\[Rho]3_", ",", "\[Nu]1_", ",", 
     "\[Nu]2_", ",", "\[Nu]3_", ",", "r_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{
     SuperscriptBox["E", 
      RowBox[{" ", 
       RowBox[{
        SuperscriptBox["r", "2"], 
        RowBox[{
         SuperscriptBox["\[Epsilon]", 
          RowBox[{"-", "2"}]], "/", "16"}]}]}]], 
     SuperscriptBox["r", 
      RowBox[{"1", "/", "4"}]], 
     SuperscriptBox["\[Epsilon]", 
      RowBox[{
       RowBox[{"-", "1"}], "/", "4"}]], 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[Epsilon]", 
         RowBox[{
          RowBox[{
           RowBox[{"1", "/", "2"}], 
           RowBox[{"m", ".", "m"}]}], "+", "i"}]], 
        SuperscriptBox["\[Xi]1", 
         RowBox[{"m", "[", 
          RowBox[{"[", "1", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]2", 
         RowBox[{"m", "[", 
          RowBox[{"[", "2", "]"}], "]"}]], 
        SuperscriptBox["\[Xi]3", 
         RowBox[{"m", "[", 
          RowBox[{"[", "3", "]"}], "]"}]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{" ", 
          RowBox[{
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]1", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", 
            SqrtBox["2"], "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]2", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}]}], "+", " ", 
           RowBox[{
            SuperscriptBox["\[Epsilon]", 
             RowBox[{"-", "1"}]], " ", "r", " ", 
            RowBox[{"(", 
             RowBox[{"\[Nu]3", "+", 
              RowBox[{"I", " ", 
               RowBox[{"m", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}]}]}]}]], "  ", 
        SuperscriptBox["r", 
         RowBox[{
          RowBox[{
           FractionBox["1", "2"], " ", 
           RowBox[{"(", " ", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]1", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]2", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], "2"], "+", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Nu]3", "+", 
                RowBox[{"I", " ", 
                 RowBox[{"m", "[", 
                  RowBox[{"[", "3", "]"}], "]"}]}]}], ")"}], "2"]}], ")"}]}], 
          "-", "i"}]], " ", 
        SuperscriptBox["E", 
         RowBox[{" ", 
          RowBox[{"2", "\[Pi]", " ", "I", " ", 
           RowBox[{"m", ".", 
            RowBox[{"{", 
             RowBox[{"\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3"}], 
             "}"}]}]}]}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{"m", ".", 
          RowBox[{"{", 
           RowBox[{"a3", ",", "b3", ",", "c3"}], "}"}]}]], 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[Nu]1", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]2", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
          RowBox[{"\[Nu]3", "+", 
           RowBox[{"I", " ", 
            RowBox[{"m", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}], 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"i", "\[Equal]", "0"}], ",", "1", ",", 
          RowBox[{
           SubscriptBox["Binf", "i"], "[", 
           RowBox[{
            RowBox[{"\[Nu]1", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]2", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}]}], ",", 
            RowBox[{"\[Nu]3", "+", 
             RowBox[{"I", " ", 
              RowBox[{"m", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}]}]}], "]"}]}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"m", ",", "A3RootLattice"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "0", ",", "nN"}], "}"}]}], "]"}]}], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]1", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]2", "]"}], "nN"], "+", 
    SuperscriptBox[
     RowBox[{"O", "[", "\[Xi]3", "]"}], "nN"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Hirota2", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"#", " ", "t", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"t", " ", 
          RowBox[{"D", "[", 
           RowBox[{"#", ",", "t"}], "]"}]}], ",", "t"}], "]"}]}], "-", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"t", " ", 
         RowBox[{"D", "[", 
          RowBox[{"#", ",", "t"}], "]"}]}], ")"}], "2"]}], ")"}], "&"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.830415094109551*^9, 3.830415267392838*^9}, {
   3.830415353662224*^9, 3.8304153537587967`*^9}, 3.8304154671866407`*^9, {
   3.8304173997442007`*^9, 3.830417408759437*^9}},
 CellLabel->
  "In[419]:=",ExpressionUUID->"895644ca-b066-41d9-a482-582d3f43b612"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Hirota2", "[", "r", "]"}], "[", 
                RowBox[{"\[Tau]inf", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], "]"}], ",",
                "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "0"}], "]"}], ",", "\[Xi]2", ",", "0"}], "]"}], ",", "\[Xi]3", 
         ",", "0"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}], "-", 
    
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                FractionBox["1", "4"], 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[Epsilon]", 
                 RowBox[{"-", "2"}]], 
                RowBox[{"\[Tau]inf1", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], 
                RowBox[{"\[Tau]inf3", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}]}], ",", 
               "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "0"}], "]"}], ",", "\[Xi]2", ",", "0"}], "]"}], ",", "\[Xi]3", 
         ",", "0"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}]}], 
   ")"}], "//", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.830415285187541*^9, 3.830415313057148*^9}, {
  3.830415393076092*^9, 3.830415403331047*^9}},
 CellLabel->
  "In[444]:=",ExpressionUUID->"89506569-b82f-4c87-a309-e635488ab514"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "2"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   FractionBox[
    RowBox[{"r", " ", 
     RowBox[{"(", 
      RowBox[{"r", "+", 
       RowBox[{"16", " ", "\[Epsilon]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Nu]1", "+", 
          RowBox[{
           SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}]}]}], ")"}]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}]]], " ", 
  SuperscriptBox["r", 
   RowBox[{
    FractionBox["3", "2"], "+", 
    SuperscriptBox["\[Nu]1", "2"], "+", 
    SuperscriptBox["\[Nu]2", "2"], "+", 
    SuperscriptBox["\[Nu]3", "2"]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{"\[Nu]1", "+", 
       RowBox[{
        SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"cC", "[", 
       RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "-", 
    RowBox[{
     RowBox[{"cC", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
       "\[Nu]3"}], "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
       "\[Nu]3"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"7", "+", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a1", "-", "a3"}], ")"}], " ", "\[Pi]"}], "]"}]}], ")"}]}], 
    "-", 
    RowBox[{
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]2"}], ",", "\[Nu]3"}], 
      "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}], " ", 
     
     RowBox[{"(", 
      RowBox[{"15", "+", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"b1", "-", "b3"}], ")"}], " ", "\[Pi]"}], "]"}]}], ")"}]}], 
    "-", 
    RowBox[{
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]3"}]}], "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"7", "+", 
       RowBox[{"Cos", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c1", "-", "c3"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8304153320264883`*^9, 3.830415383120365*^9, 
  3.830415464619769*^9, 3.830415521061512*^9, 3.8304176138730307`*^9},
 CellLabel->
  "Out[444]=",ExpressionUUID->"f6632f1a-8d54-4a18-85b3-1baffa2d8ffd"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]1", "+", 
         RowBox[{
          SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]1"}], ",", "\[Nu]2", ",",
          "\[Nu]3"}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
         "\[Nu]3"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a1", "-", "a3"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]2"}], ",", "\[Nu]3"}], 
        "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{"15", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"b1", "-", "b3"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"c1", "-", "c3"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"cC", "[", 
       RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], "->", 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"x1", " ", "x2"}]], 
       SuperscriptBox["b", 
        RowBox[{"x2", " ", "x3"}]], 
       SuperscriptBox["c", 
        RowBox[{"x1", " ", "x3"}]], 
       SuperscriptBox["2", 
        RowBox[{
         RowBox[{"1", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], 
       SuperscriptBox["d2", 
        RowBox[{
         RowBox[{"1", "/", "2"}], " ", 
         SuperscriptBox["x2", "2"]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
       SuperscriptBox["\[Pi]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x1"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x2"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x3"}]}], "]"}]}]}], ",", 
     RowBox[{"a3", "\[Rule]", 
      RowBox[{"a1", "+", "1"}]}], ",", 
     RowBox[{"b3", "\[Rule]", 
      RowBox[{"b1", "+", "1"}]}], ",", 
     RowBox[{"c3", "\[Rule]", 
      RowBox[{"c1", "+", "1"}]}]}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.83041553680403*^9, 3.830415540554391*^9}, {
   3.830415700728094*^9, 3.830415733710928*^9}, 3.830415872917398*^9, {
   3.830416152224483*^9, 3.830416197538578*^9}, {3.830416721006166*^9, 
   3.830416761147307*^9}, 3.8304176312933817`*^9, {3.830417673396028*^9, 
   3.830417695707933*^9}, 3.8304177318996687`*^9},
 CellLabel->
  "In[447]:=",ExpressionUUID->"30288b96-e84d-4b59-b5e7-0b479fca9733"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"14", " ", "\[Nu]2"}], "+", 
    RowBox[{"d2", " ", 
     RowBox[{"(", 
      RowBox[{"\[Nu]1", "-", 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}]}]}], "d2"]}]], \
"Input",
 CellChangeTimes->{{3.830417771943028*^9, 
  3.830417777968728*^9}},ExpressionUUID->"e7a94f29-260c-4edc-be90-\
1f8670aead42"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]1", "+", 
         RowBox[{
          SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]1"}], ",", "\[Nu]2", ",",
          "\[Nu]3"}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
         "\[Nu]3"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a1", "-", "a3"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]2"}], ",", "\[Nu]3"}], 
        "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{"15", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"b1", "-", "b3"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}], "-", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"c1", "-", "c3"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"cC", "[", 
       RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], "->", 
      RowBox[{
       SuperscriptBox["2", 
        RowBox[{
         FractionBox[
          RowBox[{"5", " ", 
           SuperscriptBox["x2", "2"]}], "4"], "+", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"x1", "+", "x3"}], ")"}], "2"]}]}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", 
           SqrtBox["2"]}]}], ")"}], 
        RowBox[{
         RowBox[{"-", "x2"}], " ", 
         RowBox[{"(", 
          RowBox[{"x1", "+", "x3"}], ")"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
       SuperscriptBox["\[Pi]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x1"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x2"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x3"}]}], "]"}]}]}], ",", 
     RowBox[{"a3", "\[Rule]", 
      RowBox[{"a1", "+", "2"}]}], ",", 
     RowBox[{"b3", "\[Rule]", 
      RowBox[{"b1", "+", "2"}]}], ",", 
     RowBox[{"c3", "\[Rule]", 
      RowBox[{"c1", "+", "2"}]}]}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8304177808562*^9, 3.830417826647595*^9}},
 CellLabel->
  "In[458]:=",ExpressionUUID->"6cf62da2-a8a5-4791-a943-2601f4784743"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  RowBox[{"(", 
   RowBox[{"\[Nu]1", "+", "\[Nu]3"}], ")"}]}]], "Output",
 CellChangeTimes->{{3.830417782908369*^9, 3.830417827695367*^9}},
 CellLabel->
  "Out[458]=",ExpressionUUID->"64b8b747-00c6-4c55-9070-8ced217e6bc1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]1", "+", 
         RowBox[{
          SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "-", 
      RowBox[{"1", " ", 
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]1"}], ",", "\[Nu]2", ",",
          "\[Nu]3"}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
         "\[Nu]3"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", "1"}], ")"}]}], "-", " ", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]2"}], ",", "\[Nu]3"}], 
        "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{"15", "+", "1"}], ")"}]}], "-", 
      RowBox[{"1", "  ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", "1"}], ")"}]}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"cC", "[", 
       RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], "->", 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"x1", " ", "x2"}]], 
       SuperscriptBox["b", 
        RowBox[{"x2", " ", "x3"}]], 
       SuperscriptBox["c", 
        RowBox[{"x1", " ", "x3"}]], 
       SuperscriptBox["d1", 
        RowBox[{
         RowBox[{"1", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], 
       SuperscriptBox["d2", 
        RowBox[{
         RowBox[{"1", "/", "2"}], " ", 
         SuperscriptBox["x2", "2"]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
       SuperscriptBox["\[Pi]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x1"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x2"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x3"}]}], "]"}]}]}], ",", 
     RowBox[{"a3", "\[Rule]", 
      RowBox[{"a1", "+", "1"}]}], ",", 
     RowBox[{"b3", "\[Rule]", 
      RowBox[{"b1", "+", "1"}]}], ",", 
     RowBox[{"c3", "\[Rule]", 
      RowBox[{"c1", "+", "1"}]}]}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.830417839044805*^9, 3.830417954560347*^9}, {
  3.830417985571084*^9, 3.83041804762013*^9}, {3.830418142731945*^9, 
  3.830418208168295*^9}},
 CellLabel->
  "In[492]:=",ExpressionUUID->"2a1492f0-dc03-4d4f-82d6-4d506354d36b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{"16", " ", "\[Nu]2"}], "d2"]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "4"}], "+", "d1"}], ")"}], " ", "\[Nu]1"}], "-", 
      RowBox[{"4", " ", "\[Nu]3"}], "+", 
      RowBox[{"d1", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}]}]}], ")"}]}], 
   "d1"]}]], "Output",
 CellChangeTimes->{{3.830417844552318*^9, 3.830417955281311*^9}, {
  3.830417986548552*^9, 3.8304180487060137`*^9}, {3.830418144017449*^9, 
  3.830418156303954*^9}, {3.8304181906752157`*^9, 3.830418209068399*^9}},
 CellLabel->
  "Out[492]=",ExpressionUUID->"45ccfd9c-0d35-498d-9f32-cb0b02a0f928"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"16", " ", "\[Nu]2"}], "d2"]}], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "4"}], "+", "d1"}], ")"}], " ", "\[Nu]1"}], "-", 
        RowBox[{"4", " ", "\[Nu]3"}], "+", 
        RowBox[{"d1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}]}]}], 
       ")"}]}], "d1"]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]1", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]2", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Nu]3", ",", "0", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.830418213469441*^9, 3.83041823881714*^9}},
 CellLabel->
  "In[494]:=",ExpressionUUID->"d04ac84a-fee7-4152-b7b9-8906d62b7133"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4"}], "+", "d1"}], ")"}], " ", "\[Nu]3"}], "d1"], 
         "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Nu]3", "]"}], "2"],
          SeriesData[$CellContext`\[Nu]3, 0, {}, 1, 2, 1],
          Editable->False]}],
        SeriesData[$CellContext`\[Nu]3, 0, {
         2 (-4 + $CellContext`d1)/$CellContext`d1}, 1, 2, 1],
        Editable->False], ")"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          SqrtBox["2"]}], "-", 
         FractionBox["16", "d2"]}], ")"}], " ", "\[Nu]2"}], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Nu]2", "]"}], "2"],
       SeriesData[$CellContext`\[Nu]2, 0, {}, 0, 2, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Nu]2, 0, {
       SeriesData[$CellContext`\[Nu]3, 0, {
        2 (-4 + $CellContext`d1)/$CellContext`d1}, 1, 2, 1], 
       2 2^Rational[1, 2] - 16/$CellContext`d2}, 0, 2, 1],
     Editable->False], ")"}], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "4"}], "+", "d1"}], ")"}], " ", "\[Nu]1"}], "d1"], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Nu]1", "]"}], "2"],
    SeriesData[$CellContext`\[Nu]1, 0, {}, 0, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Nu]1, 0, {
    SeriesData[$CellContext`\[Nu]2, 0, {
      SeriesData[$CellContext`\[Nu]3, 0, {
       2 (-4 + $CellContext`d1)/$CellContext`d1}, 1, 2, 1], 
      2 2^Rational[1, 2] - 16/$CellContext`d2}, 0, 2, 1], 
    2 (-4 + $CellContext`d1)/$CellContext`d1}, 0, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.830418234563833*^9, 3.830418239266602*^9}},
 CellLabel->
  "Out[494]=",ExpressionUUID->"cf4278fc-18c3-411b-ab40-160deeb5bfe0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]1", "+", 
         RowBox[{
          SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "-", 
      RowBox[{"1", " ", 
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]1"}], ",", "\[Nu]2", ",",
          "\[Nu]3"}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
         "\[Nu]3"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", "1"}], ")"}]}], "-", " ", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]2"}], ",", "\[Nu]3"}], 
        "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{"15", "+", "1"}], ")"}]}], "-", 
      RowBox[{"1", "  ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", "1"}], ")"}]}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"cC", "[", 
       RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], "->", 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"x1", " ", "x2"}]], 
       SuperscriptBox["b", 
        RowBox[{"x2", " ", "x3"}]], 
       SuperscriptBox["c", 
        RowBox[{"x1", " ", "x3"}]], 
       SuperscriptBox["4", 
        RowBox[{
         RowBox[{"1", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"4", " ", 
          SqrtBox["2"]}], ")"}], 
        RowBox[{
         RowBox[{"1", "/", "2"}], " ", 
         SuperscriptBox["x2", "2"]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
       SuperscriptBox["\[Pi]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x1"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x2"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x3"}]}], "]"}]}]}], ",", 
     RowBox[{"a3", "\[Rule]", 
      RowBox[{"a1", "+", "1"}]}], ",", 
     RowBox[{"b3", "\[Rule]", 
      RowBox[{"b1", "+", "1"}]}], ",", 
     RowBox[{"c3", "\[Rule]", 
      RowBox[{"c1", "+", "1"}]}]}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.830418257766457*^9, 3.830418270017934*^9}},
 CellLabel->
  "In[496]:=",ExpressionUUID->"41160117-b35a-46f5-88d1-2c85bfcf3517"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.830418259923071*^9, 3.8304182710140676`*^9}},
 CellLabel->
  "Out[496]=",ExpressionUUID->"dd6e5de6-12aa-4dc6-a7e3-0a7c31290607"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "8"}], "+", 
      RowBox[{
       SqrtBox["2"], " ", "d2"}]}], ")"}], "\[Equal]", "0"}], ",", "d2"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.830418162966442*^9, 3.830418166078524*^9}},
 CellLabel->
  "In[489]:=",ExpressionUUID->"c3338a2e-ad1c-42c1-b479-0831f0d3bcad"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"d2", "\[Rule]", 
    RowBox[{"4", " ", 
     SqrtBox["2"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.8304181664063597`*^9},
 CellLabel->
  "Out[489]=",ExpressionUUID->"5bf86250-f659-4f28-a7e8-550fc68f98c7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Hirota2", "[", "r", "]"}], "[", 
                RowBox[{"\[Tau]inf", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], "]"}], ",",
                "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "1"}], "]"}], ",", "\[Xi]2", ",", "1"}], "]"}], ",", "\[Xi]3", 
         ",", "0"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}], "-", 
    
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                FractionBox["1", "4"], 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[Epsilon]", 
                 RowBox[{"-", "2"}]], 
                RowBox[{"\[Tau]inf1", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], 
                RowBox[{"\[Tau]inf3", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}]}], ",", 
               "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "1"}], "]"}], ",", "\[Xi]2", ",", "1"}], "]"}], ",", "\[Xi]3", 
         ",", "0"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}]}], 
   ")"}], "//", "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Hirota2", "[", "r", "]"}], "[", 
                RowBox[{"\[Tau]inf", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], "]"}], ",",
                "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "1"}], "]"}], ",", "\[Xi]2", ",", "0"}], "]"}], ",", "\[Xi]3", 
         ",", "1"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}], "-", 
    
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                FractionBox["1", "4"], 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[Epsilon]", 
                 RowBox[{"-", "2"}]], 
                RowBox[{"\[Tau]inf1", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], 
                RowBox[{"\[Tau]inf3", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}]}], ",", 
               "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "1"}], "]"}], ",", "\[Xi]2", ",", "0"}], "]"}], ",", "\[Xi]3", 
         ",", "1"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}]}], 
   ")"}], "//", "FullSimplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Hirota2", "[", "r", "]"}], "[", 
                RowBox[{"\[Tau]inf", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], "]"}], ",",
                "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "0"}], "]"}], ",", "\[Xi]2", ",", "1"}], "]"}], ",", "\[Xi]3", 
         ",", "1"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}], "-", 
    
    RowBox[{"(", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"Coefficient", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Coefficient", "[", 
          RowBox[{
           RowBox[{"Coefficient", "[", 
            RowBox[{
             RowBox[{"Coefficient", "[", 
              RowBox[{
               RowBox[{
                FractionBox["1", "4"], 
                SuperscriptBox["r", "2"], " ", 
                SuperscriptBox["\[Epsilon]", 
                 RowBox[{"-", "2"}]], 
                RowBox[{"\[Tau]inf1", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}], 
                RowBox[{"\[Tau]inf3", "[", 
                 RowBox[{
                 "\[Rho]1", ",", "\[Rho]2", ",", "\[Rho]3", ",", "\[Nu]1", 
                  ",", "\[Nu]2", ",", "\[Nu]3", ",", "r"}], "]"}]}], ",", 
               "\[Epsilon]", ",", 
               RowBox[{
                RowBox[{"-", "3"}], "/", "2"}]}], "]"}], ",", "\[Xi]1", ",", 
             "0"}], "]"}], ",", "\[Xi]2", ",", "1"}], "]"}], ",", "\[Xi]3", 
         ",", "1"}], "]"}], "//", "Normal"}], "//", "Simplify"}], ")"}]}], 
   ")"}], "//", "FullSimplify"}]}], "Input",
 CellChangeTimes->{{3.830415762844665*^9, 3.83041578724645*^9}, {
  3.830416210959757*^9, 3.8304162234100122`*^9}, {3.830416980682129*^9, 
  3.830416982435864*^9}, {3.8304170539808187`*^9, 3.830417066788434*^9}},
 CellLabel->
  "In[497]:=",ExpressionUUID->"0ad07cae-4fe0-4b93-8d68-1d2ebbd6d931"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    FractionBox[
     RowBox[{"r", " ", 
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"8", " ", "\[Epsilon]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              SqrtBox["2"]}], ")"}]}], "+", 
           RowBox[{"2", " ", "\[Nu]1"}], "+", 
           RowBox[{"2", " ", 
            SqrtBox["2"], " ", "\[Nu]2"}], "+", 
           RowBox[{"2", " ", "\[Nu]3"}]}], ")"}]}]}], ")"}]}], 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Epsilon]", "2"]}]], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
     RowBox[{"(", 
      RowBox[{"\[Rho]1", "+", "\[Rho]2"}], ")"}]}]}]], " ", 
  SuperscriptBox["r", 
   RowBox[{
    FractionBox["3", "2"], "+", 
    RowBox[{"\[Nu]1", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ")"}]}], "+", 
    RowBox[{"\[Nu]2", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ")"}]}], "+", 
    SuperscriptBox["\[Nu]3", "2"]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "10"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "+", "a3", "+", "b1"}]], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "+", "a1", "+", "b3"}]], "+", 
       RowBox[{"8", " ", 
        SqrtBox["2"]}]}], ")"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}], " ", 
     
     RowBox[{"cC", "[", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
       "\[Nu]3"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"10", "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"a1", "+", "b1"}]], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"a3", "+", "b3"}]], "+", 
       RowBox[{"8", " ", 
        SqrtBox["2"]}]}], ")"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.830415770866662*^9, 3.8304157877829313`*^9}, 
   3.830416320167103*^9, 3.8304170222610826`*^9, 3.830417091553918*^9, 
   3.83041848795427*^9},
 CellLabel->
  "Out[497]=",ExpressionUUID->"5f840392-d73c-41f5-949e-10c3f9554faa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "4"]}], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    FractionBox[
     RowBox[{"r", " ", 
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"16", " ", "\[Epsilon]", " ", 
         RowBox[{"(", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1", "+", 
           RowBox[{
            SqrtBox["2"], " ", "\[Nu]2"}], "+", "\[Nu]3"}], ")"}]}]}], 
       ")"}]}], 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Epsilon]", "2"]}]], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
     RowBox[{"(", 
      RowBox[{"\[Rho]1", "+", "\[Rho]3"}], ")"}]}]}]], " ", 
  SuperscriptBox["r", 
   RowBox[{
    FractionBox["3", "2"], "+", 
    RowBox[{"\[Nu]1", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ")"}]}], "+", 
    SuperscriptBox["\[Nu]2", "2"], "+", 
    RowBox[{"\[Nu]3", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}], ")"}]}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"a3", "+", "c1"}]], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"a1", "+", "c3"}]]}], ")"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
       "\[Nu]3"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"14", "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"a1", "+", "c1"}]], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"a3", "+", "c3"}]]}], ")"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.830415770866662*^9, 3.8304157877829313`*^9}, 
   3.830416320167103*^9, 3.8304170222610826`*^9, 3.830417091553918*^9, 
   3.830418618706747*^9},
 CellLabel->
  "Out[498]=",ExpressionUUID->"452e356a-8c16-406a-8396-51901e761cf3"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    FractionBox[
     RowBox[{"r", " ", 
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"8", " ", "\[Epsilon]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", 
              SqrtBox["2"]}], ")"}]}], "+", 
           RowBox[{"2", " ", "\[Nu]1"}], "+", 
           RowBox[{"2", " ", 
            SqrtBox["2"], " ", "\[Nu]2"}], "+", 
           RowBox[{"2", " ", "\[Nu]3"}]}], ")"}]}]}], ")"}]}], 
     RowBox[{"8", " ", 
      SuperscriptBox["\[Epsilon]", "2"]}]], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
     RowBox[{"(", 
      RowBox[{"\[Rho]2", "+", "\[Rho]3"}], ")"}]}]}]], " ", 
  SuperscriptBox["r", 
   RowBox[{
    FractionBox["3", "2"], "+", 
    SuperscriptBox["\[Nu]1", "2"], "+", 
    RowBox[{"\[Nu]2", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ")"}]}], "+", 
    RowBox[{"\[Nu]3", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}], ")"}]}]}]], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "10"}], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "+", "b3", "+", "c1"}]], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "+", "b1", "+", "c3"}]], "+", 
       RowBox[{"8", " ", 
        SqrtBox["2"]}]}], ")"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}]}], 
    "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"10", "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"b1", "+", "c1"}]], "+", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"b3", "+", "c3"}]], "+", 
       RowBox[{"8", " ", 
        SqrtBox["2"]}]}], ")"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], " ", 
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.830415770866662*^9, 3.8304157877829313`*^9}, 
   3.830416320167103*^9, 3.8304170222610826`*^9, 3.830417091553918*^9, 
   3.830418798991425*^9},
 CellLabel->
  "Out[499]=",ExpressionUUID->"9b2edfb2-6eca-44ac-b732-0c505d6cfa0b"]
}, Open  ]],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.830418342301827*^9, 
  3.83041834413975*^9}},ExpressionUUID->"ccd8cbd3-6ac5-4fcc-804e-\
e4f4ed583dd9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "10"}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"1", "+", "a3", "+", "b1"}]], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"1", "+", "a1", "+", "b3"}]], "+", 
          RowBox[{"8", " ", 
           SqrtBox["2"]}]}], ")"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}], 
        " ", 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
          "\[Nu]3"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"10", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a1", "+", "b1"}]], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a3", "+", "b3"}]], "+", 
          RowBox[{"8", " ", 
           SqrtBox["2"]}]}], ")"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], 
         "]"}]}]}], ")"}], "/", 
     SuperscriptBox[
      RowBox[{"cC", "[", 
       RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "/.", 
    
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], "->", 
       RowBox[{
        SuperscriptBox["a", 
         RowBox[{"x1", " ", "x2"}]], 
        SuperscriptBox["b", 
         RowBox[{"x2", " ", "x3"}]], 
        SuperscriptBox["c", 
         RowBox[{"x1", " ", "x3"}]], 
        SuperscriptBox["4", 
         RowBox[{
          RowBox[{"1", "/", "2"}], 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x1", "2"], "+", 
            SuperscriptBox["x3", "2"]}], ")"}]}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"4", " ", 
           SqrtBox["2"]}], ")"}], 
         RowBox[{
          RowBox[{"1", "/", "2"}], " ", 
          SuperscriptBox["x2", "2"]}]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x1", "2"], "+", 
            SuperscriptBox["x2", "2"], "+", 
            SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
        SuperscriptBox["\[Pi]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]], 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"I", " ", "x1"}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"I", " ", "x2"}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"I", " ", "x3"}]}], "]"}]}]}], ",", 
      RowBox[{"a3", "\[Rule]", 
       RowBox[{"a1", "+", "1"}]}], ",", 
      RowBox[{"b3", "\[Rule]", 
       RowBox[{"b1", "+", "1"}]}], ",", 
      RowBox[{"c3", "\[Rule]", 
       RowBox[{"c1", "+", "1"}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"b1", "\[Rule]", 
     RowBox[{"-", "a1"}]}], "}"}]}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a3", "+", "c1"}]], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a1", "+", "c3"}]]}], ")"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
          "\[Nu]3"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"14", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a1", "+", "c1"}]], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a3", "+", "c3"}]]}], ")"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2", ",", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}]}]}], ")"}], "/", 
     SuperscriptBox[
      RowBox[{"cC", "[", 
       RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "/.", 
    
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], "->", 
       RowBox[{
        SuperscriptBox["a", 
         RowBox[{"x1", " ", "x2"}]], 
        SuperscriptBox["b", 
         RowBox[{"x2", " ", "x3"}]], 
        SuperscriptBox["c", 
         RowBox[{"x1", " ", "x3"}]], 
        SuperscriptBox["4", 
         RowBox[{
          RowBox[{"1", "/", "2"}], 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x1", "2"], "+", 
            SuperscriptBox["x3", "2"]}], ")"}]}]], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"4", " ", 
           SqrtBox["2"]}], ")"}], 
         RowBox[{
          RowBox[{"1", "/", "2"}], " ", 
          SuperscriptBox["x2", "2"]}]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["x1", "2"], "+", 
            SuperscriptBox["x2", "2"], "+", 
            SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
        SuperscriptBox["\[Pi]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]], 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"I", " ", "x1"}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"I", " ", "x2"}]}], "]"}], 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"I", " ", "x3"}]}], "]"}]}]}], ",", 
      RowBox[{"a3", "\[Rule]", 
       RowBox[{"a1", "+", "1"}]}], ",", 
      RowBox[{"b3", "\[Rule]", 
       RowBox[{"b1", "+", "1"}]}], ",", 
      RowBox[{"c3", "\[Rule]", 
       RowBox[{"c1", "+", "1"}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"b1", "\[Rule]", 
      RowBox[{"-", "a1"}]}], ",", 
     RowBox[{"c1", "\[Rule]", 
      RowBox[{"-", "a1"}]}]}], "}"}]}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "10"}], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"1", "+", "b3", "+", "c1"}]], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"1", "+", "b1", "+", "c3"}]], "+", 
         RowBox[{"8", " ", 
          SqrtBox["2"]}]}], ")"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", "\[Nu]3"}], "]"}]}], 
      "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"10", "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"b1", "+", "c1"}]], "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"b3", "+", "c3"}]], "+", 
         RowBox[{"8", " ", 
          SqrtBox["2"]}]}], ")"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}]}], "]"}]}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2", ",", "\[Nu]3"}], "]"}], "2"]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"cC", "[", 
       RowBox[{"x1_", ",", "x2_", ",", "x3_"}], "]"}], "->", 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"x1", " ", "x2"}]], 
       SuperscriptBox["b", 
        RowBox[{"x2", " ", "x3"}]], 
       SuperscriptBox["c", 
        RowBox[{"x1", " ", "x3"}]], 
       SuperscriptBox["4", 
        RowBox[{
         RowBox[{"1", "/", "2"}], 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"4", " ", 
          SqrtBox["2"]}], ")"}], 
        RowBox[{
         RowBox[{"1", "/", "2"}], " ", 
         SuperscriptBox["x2", "2"]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["x1", "2"], "+", 
           SuperscriptBox["x2", "2"], "+", 
           SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
       SuperscriptBox["\[Pi]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x1"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x2"}]}], "]"}], 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"I", " ", "x3"}]}], "]"}]}]}], ",", 
     RowBox[{"a3", "\[Rule]", 
      RowBox[{"a1", "+", "1"}]}], ",", 
     RowBox[{"b3", "\[Rule]", 
      RowBox[{"b1", "+", "1"}]}], ",", 
     RowBox[{"c3", "\[Rule]", 
      RowBox[{"c1", "+", "1"}]}]}], "}"}]}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.830418633993059*^9, 3.830418643571039*^9}, {
  3.830418848658656*^9, 3.8304188879479437`*^9}, {3.830418925596507*^9, 
  3.830418937119265*^9}},
 CellLabel->
  "In[509]:=",ExpressionUUID->"99f4fdce-56d1-4323-a679-d9cf6ce88350"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["2", 
    RowBox[{
     FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", 
       RowBox[{"8", " ", "\[Nu]1"}], "+", 
       RowBox[{"10", " ", "\[Nu]2"}]}], ")"}]}]], " ", 
   SuperscriptBox["a", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]1", "+", "\[Nu]2"}], ")"}]}]], " ", 
   
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "3"}], "-", 
     RowBox[{"2", " ", 
      SqrtBox["2"]}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SqrtBox["2"]}], ")"}], " ", "a"}]}], ")"}], " ", 
   SuperscriptBox["b", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]3"}]], " ", 
   SuperscriptBox["c", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]3"}]], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[Pi]", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]1", "+", "\[Nu]2"}], ")"}]}]], " ", 
   "\[Pi]"}], 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]1"}], "]"}], " ", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]2"}], "]"}]}]]], "Output",
 CellChangeTimes->{
  3.8304188524263077`*^9, 3.830418889184671*^9, {3.830418934065349*^9, 
   3.83041893808298*^9}},
 CellLabel->
  "Out[509]=",ExpressionUUID->"4304f7b7-c57e-42e5-854e-b72d9d682ce4"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["2", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{"(", 
      RowBox[{"\[Nu]1", "+", "\[Nu]3"}], ")"}]}]], " ", 
   SuperscriptBox["a", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]2"}]], " ", 
   SuperscriptBox["b", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]2"}]], " ", 
   SuperscriptBox["c", 
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[Nu]1", " ", "\[Nu]3"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"4", " ", 
      SuperscriptBox["c", 
       RowBox[{
        RowBox[{"\[Nu]1", " ", "\[Nu]3"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}], ")"}]}]}]]}], "-", 
     SuperscriptBox["c", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "\[Nu]3"}], "+", 
       RowBox[{"\[Nu]1", " ", 
        RowBox[{"(", 
         RowBox[{"\[ImaginaryI]", "+", 
          RowBox[{"2", " ", "\[Nu]3"}]}], ")"}]}]}]]}], ")"}], " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], " ", "\[Pi]", " ", 
     RowBox[{"(", 
      RowBox[{"\[ImaginaryI]", "+", "\[Nu]1", "+", "\[Nu]3"}], ")"}]}]], " ", 
   "\[Pi]"}], 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]1"}], "]"}], " ", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"\[ImaginaryI]", " ", "\[Nu]3"}], "]"}]}]]], "Output",
 CellChangeTimes->{
  3.8304188524263077`*^9, 3.830418889184671*^9, {3.830418934065349*^9, 
   3.830418938303566*^9}},
 CellLabel->
  "Out[510]=",ExpressionUUID->"61164de3-d7ef-40fc-adb1-248e3d0af662"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["2", 
     RowBox[{
      FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"5", " ", "\[ImaginaryI]"}], "+", 
        RowBox[{"10", " ", "\[Nu]2"}], "+", 
        RowBox[{"8", " ", "\[Nu]3"}]}], ")"}]}]], " ", 
    SuperscriptBox["a", 
     RowBox[{"\[ImaginaryI]", " ", "\[Nu]1"}]], " ", 
    SuperscriptBox["b", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "\[Nu]2", " ", "\[Nu]3"}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"5", "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"b1", "+", "c1"}]], "+", 
         RowBox[{"4", " ", 
          SqrtBox["2"]}]}], ")"}], " ", 
       SuperscriptBox["b", 
        RowBox[{
         RowBox[{"\[Nu]2", " ", "\[Nu]3"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{"\[ImaginaryI]", "+", "\[Nu]3"}], ")"}]}]}]]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"5", "+", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], 
          RowBox[{"1", "+", "b1", "+", "c1"}]], "-", 
         RowBox[{"4", " ", 
          SqrtBox["2"]}]}], ")"}], " ", 
       SuperscriptBox["b", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "\[Nu]3"}], "+", 
         RowBox[{"\[Nu]2", " ", 
          RowBox[{"(", 
           RowBox[{"\[ImaginaryI]", "+", 
            RowBox[{"2", " ", "\[Nu]3"}]}], ")"}]}]}]]}]}], ")"}], " ", 
    SuperscriptBox["c", 
     RowBox[{"\[ImaginaryI]", " ", "\[Nu]1"}]], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", "\[Pi]", " ", 
      RowBox[{"(", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]2", "+", "\[Nu]3"}], ")"}]}]], " ",
     "\[Pi]"}], 
   RowBox[{
    RowBox[{"\[CapitalGamma]", "[", 
     RowBox[{"\[ImaginaryI]", " ", "\[Nu]2"}], "]"}], " ", 
    RowBox[{"\[CapitalGamma]", "[", 
     RowBox[{"\[ImaginaryI]", " ", "\[Nu]3"}], "]"}]}]]}]], "Output",
 CellChangeTimes->{
  3.8304188524263077`*^9, 3.830418889184671*^9, {3.830418934065349*^9, 
   3.8304189387906523`*^9}},
 CellLabel->
  "Out[511]=",ExpressionUUID->"bc932977-c591-4453-b68b-18096653d8c9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"a1", "+", "b1"}]], "\[Equal]", "1"}], ",", "b1"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.830416893328816*^9, 3.830416940545306*^9}},
 CellLabel->
  "In[394]:=",ExpressionUUID->"c5cf8527-1307-4275-8bc4-cec556d2f6d1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"b1", "\[Rule]", 
    RowBox[{"ConditionalExpression", "[", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "a1"}], " ", "\[Pi]"}], "+", 
        RowBox[{"2", " ", "\[Pi]", " ", 
         TemplateBox[{"1"},
          "C"]}]}], "\[Pi]"], ",", 
      RowBox[{
       TemplateBox[{"1"},
        "C"], "\[Element]", 
       TemplateBox[{},
        "Integers"]}]}], "]"}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.83041689888208*^9, 3.830416909263216*^9}, 
   3.8304169409754953`*^9},
 CellLabel->
  "Out[394]=",ExpressionUUID->"cf1c9f4d-2004-4684-861c-8184e38a4422"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["a1"], "Input",
 CellChangeTimes->{{3.830416904687422*^9, 3.830416907315624*^9}},
 CellLabel->
  "In[391]:=",ExpressionUUID->"b0399657-b90e-41de-9ca0-500453233f2d"],

Cell[BoxData["a1"], "Output",
 CellChangeTimes->{{3.830416905409573*^9, 3.830416907625415*^9}},
 CellLabel->
  "Out[391]=",ExpressionUUID->"0eab2d1e-ca6c-40db-9ac7-4f6b7def6f87"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Solve", "[", "]"}]], "Input",
 CellChangeTimes->{{3.830416331902*^9, 
  3.8304163327490053`*^9}},ExpressionUUID->"345e48a4-6847-46c5-81aa-\
ae88755afe73"],

Cell[BoxData[{
 RowBox[{
  SuperscriptBox["r", 
   RowBox[{
    RowBox[{
     RowBox[{"(", " ", 
      RowBox[{
       SuperscriptBox[
        SubscriptBox["\[Nu]", "1"], "2"], "+", " ", 
       SuperscriptBox[
        SubscriptBox["\[Nu]", "2"], "2"], "+", 
       SuperscriptBox[
        SubscriptBox["\[Nu]", "3"], "2"]}], ")"}], "/", "2"}], "+", 
    RowBox[{"1", "/", "4"}]}]], 
  SuperscriptBox["E", 
   RowBox[{
    RowBox[{"\[Alpha]", " ", 
     RowBox[{
      SuperscriptBox["r", "2"], "/", "16"}]}], "+", " ", 
    RowBox[{"r", " ", 
     SubscriptBox["\[Nu]", "1"]}], "+", 
    RowBox[{
     SqrtBox["2"], " ", "r", " ", 
     SubscriptBox["\[Nu]", "2"]}], " ", "+", 
    RowBox[{"r", " ", 
     SubscriptBox["\[Nu]", "3"]}]}]], 
  SuperscriptBox["E", 
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"Log", "[", 
       RowBox[{"3", "-", 
        RowBox[{"2", " ", 
         SqrtBox["2"]}]}], "]"}]}], " ", "  ", 
     SubscriptBox["\[Nu]", "1"], 
     SubscriptBox["\[Nu]", "2"]}], "-", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"3", "-", 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]}], "]"}], " ", "  ", 
     SubscriptBox["\[Nu]", "2"], 
     SubscriptBox["\[Nu]", "3"]}], "+", 
    RowBox[{
     RowBox[{"Log", "[", "2", "]"}], "   ", 
     SubscriptBox["\[Nu]", "1"], 
     SubscriptBox["\[Nu]", "3"]}]}]], "\[IndentingNewLine]", 
  SuperscriptBox["2", 
   RowBox[{
    SuperscriptBox[
     SubscriptBox["\[Nu]", "1"], "2"], "/", "2"}]], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
    SuperscriptBox[
     SubscriptBox["\[Nu]", "1"], "2"]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Nu]", "1"]}], "2"]}]], 
  RowBox[{"G", "[", 
   RowBox[{"1", "+", 
    RowBox[{"I", " ", "\[Nu]1"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"4", " ", 
     SqrtBox["2"]}], ")"}], 
   RowBox[{
    SuperscriptBox[
     SubscriptBox["\[Nu]", "2"], "2"], "/", "2"}]], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
    SuperscriptBox[
     SubscriptBox["\[Nu]", "2"], "2"]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Nu]", "2"]}], "2"]}]], 
  RowBox[{"G", "[", 
   RowBox[{"1", "+", 
    RowBox[{"I", " ", "\[Nu]2"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  SuperscriptBox["2", 
   RowBox[{
    SuperscriptBox[
     SubscriptBox["\[Nu]", "3"], "2"], "/", "2"}]], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
    SuperscriptBox[
     SubscriptBox["\[Nu]", "3"], "2"]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Nu]", "3"]}], "2"]}]], 
  RowBox[{"G", "[", 
   RowBox[{"1", "+", 
    RowBox[{"I", " ", "\[Nu]3"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.8304155763035393`*^9, 
  3.830415590271175*^9}},ExpressionUUID->"027301eb-9658-4afb-879d-\
392ecf7b09c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    SuperscriptBox["E", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Log", "[", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", 
           SqrtBox["2"]}]}], "]"}]}], " ", "  ", 
       SubscriptBox["\[Nu]", "1"], 
       SubscriptBox["\[Nu]", "2"]}], "-", 
      RowBox[{
       RowBox[{"Log", "[", 
        RowBox[{"3", "-", 
         RowBox[{"2", " ", 
          SqrtBox["2"]}]}], "]"}], " ", "  ", 
       SubscriptBox["\[Nu]", "2"], 
       SubscriptBox["\[Nu]", "3"]}], "+", 
      RowBox[{
       RowBox[{"Log", "[", "2", "]"}], "   ", 
       SubscriptBox["\[Nu]", "1"], 
       SubscriptBox["\[Nu]", "3"]}]}]], 
    SuperscriptBox["2", 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["\[Nu]", "1"], "2"], "/", "2"}]], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
      SuperscriptBox[
       SubscriptBox["\[Nu]", "1"], "2"]}]], " ", 
    SuperscriptBox["\[Pi]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Nu]", "1"]}], "2"]}]], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"4", " ", 
       SqrtBox["2"]}], ")"}], 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["\[Nu]", "2"], "2"], "/", "2"}]], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
      SuperscriptBox[
       SubscriptBox["\[Nu]", "2"], "2"]}]], " ", 
    SuperscriptBox["\[Pi]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Nu]", "2"]}], "2"]}]], 
    SuperscriptBox["2", 
     RowBox[{
      SuperscriptBox[
       SubscriptBox["\[Nu]", "3"], "2"], "/", "2"}]], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
      SuperscriptBox[
       SubscriptBox["\[Nu]", "3"], "2"]}]], " ", 
    SuperscriptBox["\[Pi]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Nu]", "3"]}], "2"]}]]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["\[Nu]", "1"], "\[Rule]", "x1"}], ",", 
     RowBox[{
      SubscriptBox["\[Nu]", "2"], "\[Rule]", "x2"}], ",", 
     RowBox[{
      SubscriptBox["\[Nu]", "3"], "\[Rule]", "x3"}]}], "}"}]}], "//", 
  "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.830415596157962*^9, 3.830415614083658*^9}, {
  3.8304156504006557`*^9, 3.83041569621564*^9}, {3.8304158591663637`*^9, 
  3.8304158618116837`*^9}},
 CellLabel->
  "In[336]:=",ExpressionUUID->"50f0168f-ea5e-43e9-94f2-c861c0975714"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["2", 
   RowBox[{
    FractionBox[
     RowBox[{"5", " ", 
      SuperscriptBox["x2", "2"]}], "4"], "+", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"x1", "+", "x3"}], ")"}], "2"]}]}]], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"3", "-", 
     RowBox[{"2", " ", 
      SqrtBox["2"]}]}], ")"}], 
   RowBox[{
    RowBox[{"-", "x2"}], " ", 
    RowBox[{"(", 
     RowBox[{"x1", "+", "x3"}], ")"}]}]], " ", 
  SuperscriptBox["\[ExponentialE]", 
   RowBox[{
    FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["x1", "2"], "+", 
      SuperscriptBox["x2", "2"], "+", 
      SuperscriptBox["x3", "2"]}], ")"}]}]], " ", 
  SuperscriptBox["\[Pi]", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{"x1", "+", "x2", "+", "x3"}], ")"}]}]]}]], "Output",
 CellChangeTimes->{{3.830415609841278*^9, 3.830415614725247*^9}, {
   3.830415657353209*^9, 3.8304156970769787`*^9}, 3.830415867125134*^9},
 CellLabel->
  "Out[336]=",ExpressionUUID->"804f0de5-384d-450c-88d3-24534453adb3"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8304156163503923`*^9, 
  3.830415617704596*^9}},ExpressionUUID->"13cfbc5f-ae8e-4ec0-be4e-\
e4c50af287e2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{"\[Nu]1", "+", "\[Nu]2"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2"}], "]"}], "2"]}], "+", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]1"}], ",", "\[Nu]2"}], 
        "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2"}], "]"}], 
       " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}], "+", 
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], "+", "\[Nu]2"}]}], "]"}], " ", 
       RowBox[{"cC", "[", 
        RowBox[{"\[Nu]1", ",", 
         RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"7", "+", 
         RowBox[{"Cos", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"b1", "-", "b2"}], ")"}], " ", "\[Pi]"}], "]"}]}], 
        ")"}]}]}], ")"}], "/", 
    SuperscriptBox[
     RowBox[{"cC", "[", 
      RowBox[{"\[Nu]1", ",", "\[Nu]2"}], "]"}], "2"]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"cC", "[", 
       RowBox[{"z1_", ",", "z2_"}], "]"}], "\[Rule]", 
      RowBox[{
       SuperscriptBox["a", 
        RowBox[{"z1", " ", "z2"}]], 
       SuperscriptBox["b", 
        RowBox[{
         FractionBox["1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["z1", "2"], "+", 
           SuperscriptBox["z2", "2"]}], ")"}]}]], " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
          SuperscriptBox["z1", "2"]}], "+", 
         RowBox[{
          FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
          SuperscriptBox["z2", "2"]}]}]], " ", 
       SuperscriptBox["\[Pi]", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{"z1", "+", "z2"}], ")"}]}]], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"\[ImaginaryI]", " ", "z1"}]}], "]"}], " ", 
       RowBox[{"G", "[", 
        RowBox[{"1", "+", 
         RowBox[{"\[ImaginaryI]", " ", "z2"}]}], "]"}]}]}], ",", 
     RowBox[{"a2", "\[Rule]", 
      RowBox[{"a1", "-", "1"}]}], ",", 
     RowBox[{"b2", "\[Rule]", 
      RowBox[{"b1", "-", "1"}]}]}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.83041604786304*^9, 3.83041606005022*^9}},
 CellLabel->
  "In[343]:=",ExpressionUUID->"959ab613-9ce6-4979-b9a2-b03d0e4386d1"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", "b"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Nu]1", "+", "\[Nu]2"}], ")"}]}], "b"]}]], "Output",
 CellChangeTimes->{{3.830416048864265*^9, 3.8304160608042183`*^9}},
 CellLabel->
  "Out[343]=",ExpressionUUID->"88095730-d46d-41f6-bdb6-a1b5ca952e48"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "2"}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a2", "+", "b1"}]], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a1", "+", "b2"}]]}], ")"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}]}], "]"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", "\[Nu]2"}], "]"}]}], 
       "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"14", "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a1", "+", "b1"}]], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], 
           RowBox[{"a2", "+", "b2"}]]}], ")"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{"\[Nu]1", ",", "\[Nu]2"}], "]"}], " ", 
        RowBox[{"cC", "[", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]1"}], ",", 
          RowBox[{"\[ImaginaryI]", "+", "\[Nu]2"}]}], "]"}]}]}], ")"}], "/", 
     SuperscriptBox[
      RowBox[{"cC", "[", 
       RowBox[{"\[Nu]1", ",", "\[Nu]2"}], "]"}], "2"]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"cC", "[", 
        RowBox[{"z1_", ",", "z2_"}], "]"}], "\[Rule]", 
       RowBox[{
        SuperscriptBox["a", 
         RowBox[{"z1", " ", "z2"}]], 
        SuperscriptBox["3", 
         RowBox[{
          FractionBox["1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["z1", "2"], "+", 
            SuperscriptBox["z2", "2"]}], ")"}]}]], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
           SuperscriptBox["z1", "2"]}], "+", 
          RowBox[{
           FractionBox["1", "4"], " ", "\[ImaginaryI]", " ", "\[Pi]", " ", 
           SuperscriptBox["z2", "2"]}]}]], " ", 
        SuperscriptBox["\[Pi]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", "2"]}], " ", "\[ImaginaryI]", " ", 
          RowBox[{"(", 
           RowBox[{"z1", "+", "z2"}], ")"}]}]], " ", 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", "z1"}]}], "]"}], " ", 
        RowBox[{"G", "[", 
         RowBox[{"1", "+", 
          RowBox[{"\[ImaginaryI]", " ", "z2"}]}], "]"}]}]}], ",", 
      RowBox[{"a2", "\[Rule]", 
       RowBox[{"a1", "-", "1"}]}], ",", 
      RowBox[{"b2", "\[Rule]", 
       RowBox[{"b1", "-", "1"}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{"b1", "\[Rule]", " ", 
     RowBox[{"-", "a1"}]}], "}"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{3.830416105330061*^9},
 CellLabel->
  "In[346]:=",ExpressionUUID->"0bddb484-4d54-4018-b0c5-e9847191d292"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["3", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1", "+", "\[Nu]2"}], ")"}]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "4"}], "+", "a"}], ")"}], " ", 
    SuperscriptBox["a", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"(", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1", "+", "\[Nu]2"}], ")"}]}]], " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", "\[Pi]", " ", 
      RowBox[{"(", 
       RowBox[{"\[ImaginaryI]", "+", "\[Nu]1", "+", "\[Nu]2"}], ")"}]}]], " ",
     "\[Pi]"}], 
   RowBox[{
    RowBox[{"\[CapitalGamma]", "[", 
     RowBox[{"\[ImaginaryI]", " ", "\[Nu]1"}], "]"}], " ", 
    RowBox[{"\[CapitalGamma]", "[", 
     RowBox[{"\[ImaginaryI]", " ", "\[Nu]2"}], "]"}]}]]}]], "Output",
 CellChangeTimes->{3.830416108745639*^9},
 CellLabel->
  "Out[346]=",ExpressionUUID->"07b1638d-5b3c-4efb-8beb-e880879a3e41"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"oneloopasymp", "=", 
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Series", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", 
              RowBox[{"\[Epsilon]", "^", "0"}]}], 
             RowBox[{"Series", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  SuperscriptBox["r", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", " ", 
                    RowBox[{
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "1"], "2"], "+", " ", 
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "2"], "2"], "+", 
                    SuperscriptBox[
                    SubscriptBox["\[Nu]", "3"], "2"]}], ")"}], "/", "2"}], 
                    "+", 
                    RowBox[{"1", "/", "4"}]}]], 
                  SuperscriptBox["E", 
                   RowBox[{
                    RowBox[{"\[Alpha]", " ", 
                    RowBox[{
                    SuperscriptBox["r", "2"], "/", "16"}]}], "+", " ", 
                    RowBox[{"r", " ", 
                    SubscriptBox["\[Nu]", "1"]}], "+", 
                    RowBox[{
                    SqrtBox["2"], " ", "r", " ", 
                    SubscriptBox["\[Nu]", "2"]}], " ", "+", 
                    RowBox[{"r", " ", 
                    SubscriptBox["\[Nu]", "3"]}]}]], 
                  SuperscriptBox["E", 
                   RowBox[{
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"Log", "[", 
                    RowBox[{"3", "-", 
                    RowBox[{"2", " ", 
                    SqrtBox["2"]}]}], "]"}]}], " ", "  ", 
                    SubscriptBox["\[Nu]", "1"], 
                    SubscriptBox["\[Nu]", "2"]}], "-", 
                    RowBox[{
                    RowBox[{"Log", "[", 
                    RowBox[{"3", "-", 
                    RowBox[{"2", " ", 
                    SqrtBox["2"]}]}], "]"}], " ", "  ", 
                    SubscriptBox["\[Nu]", "2"], 
                    SubscriptBox["\[Nu]", "3"]}], "+", 
                    RowBox[{
                    RowBox[{"Log", "[", "2", "]"}], "   ", 
                    SubscriptBox["\[Nu]", "1"], 
                    SubscriptBox["\[Nu]", "3"]}]}]], "\[IndentingNewLine]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Series", "[", 
                    RowBox[{
                    RowBox[{"BarnesG", "[", 
                    RowBox[{"1", "+", " ", "x"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], 
                    "//", "Normal"}], ")"}], "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"I", " ", 
                    SubscriptBox["\[Nu]", "1"]}]}]}], " ", ")"}], 
                  "\[IndentingNewLine]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Series", "[", 
                    RowBox[{
                    RowBox[{"BarnesG", "[", 
                    RowBox[{"1", "+", " ", "x"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], 
                    "//", "Normal"}], ")"}], "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"I", " ", 
                    SubscriptBox["\[Nu]", "2"]}]}]}], " ", ")"}], 
                  "\[IndentingNewLine]", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Series", "[", 
                    RowBox[{
                    RowBox[{"BarnesG", "[", 
                    RowBox[{"1", "+", " ", "x"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "Infinity", ",", "2"}], "}"}]}], "]"}], 
                    "//", "Normal"}], ")"}], "/.", 
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{"I", " ", 
                    SubscriptBox["\[Nu]", "3"]}]}]}], " ", ")"}]}], "]"}], "//",
                 "PowerExpand"}], ",", 
               RowBox[{"{", 
                RowBox[{"t", ",", "0", ",", "2"}], "}"}]}], "]"}]}], "//", 
            "Normal"}], ")"}], "/.", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"r", "\[Rule]", " ", 
             RowBox[{
              SuperscriptBox["1", "1"], 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}], ",", 
            RowBox[{
             SubscriptBox["\[Nu]", "1"], " ", "\[Rule]", 
             RowBox[{
              SubscriptBox["T", "1"], " ", 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}], ",", 
            RowBox[{
             SubscriptBox["\[Nu]", "2"], " ", "\[Rule]", 
             RowBox[{
              SubscriptBox["T", "2"], " ", 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}], ",", 
            RowBox[{
             SubscriptBox["\[Nu]", "3"], " ", "\[Rule]", 
             RowBox[{
              SubscriptBox["T", "3"], " ", 
              SuperscriptBox["\[Epsilon]", 
               RowBox[{"-", "1"}]]}]}]}], "}"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Epsilon]", ",", "0", ",", "0"}], "}"}]}], "]"}], "//", 
       "Simplify"}], ",", "\[Epsilon]", ",", 
      RowBox[{"-", "2"}]}], "]"}], "//", "Expand"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"oneloopasymp", "-", "genus0conifold"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SubscriptBox["T", "1"], ">", "0"}], ",", 
     RowBox[{
      SubscriptBox["T", "2"], ">", "0"}], ",", 
     RowBox[{
      SubscriptBox["T", "3"], ">", "0"}], ",", 
     RowBox[{"\[Epsilon]", ">", "0"}]}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.830417361475595*^9, 
  3.8304173646113777`*^9}},ExpressionUUID->"cd9717cf-44bc-4704-9c4d-\
e110adb097bf"]
},
WindowSize->{1920, 1037},
WindowMargins->{{0, Automatic}, {Automatic, 18}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 2636, 77, 209, "Input",ExpressionUUID->"9e443886-4aa8-467b-8ec8-ded9279a789e"],
Cell[3219, 101, 1665, 57, 74, "Output",ExpressionUUID->"586e28ff-e2d4-4bb8-87fb-23146437d118"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4921, 163, 8560, 207, 281, "Input",ExpressionUUID->"3553dd19-29ef-4370-985a-dcff67a01d93"],
Cell[13484, 372, 297, 7, 59, "Output",ExpressionUUID->"42fae13c-badc-4b23-8263-fa90b20a6003"]
}, Open  ]],
Cell[13796, 382, 28256, 819, 1302, "Input",ExpressionUUID->"895644ca-b066-41d9-a482-582d3f43b612"],
Cell[CellGroupData[{
Cell[42077, 1205, 2455, 60, 260, "Input",ExpressionUUID->"89506569-b82f-4c87-a309-e635488ab514"],
Cell[44535, 1267, 2737, 83, 118, "Output",ExpressionUUID->"f6632f1a-8d54-4a18-85b3-1baffa2d8ffd"]
}, Open  ]],
Cell[47287, 1353, 4355, 124, 172, "Input",ExpressionUUID->"30288b96-e84d-4b59-b5e7-0b479fca9733"],
Cell[51645, 1479, 409, 13, 81, InheritFromParent,ExpressionUUID->"e7a94f29-260c-4edc-be90-1f8670aead42"],
Cell[CellGroupData[{
Cell[52079, 1496, 4128, 122, 179, "Input",ExpressionUUID->"6cf62da2-a8a5-4791-a943-2601f4784743"],
Cell[56210, 1620, 274, 7, 44, "Output",ExpressionUUID->"64b8b747-00c6-4c55-9070-8ced217e6bc1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56521, 1632, 3766, 107, 172, "Input",ExpressionUUID->"2a1492f0-dc03-4d4f-82d6-4d506354d36b"],
Cell[60290, 1741, 822, 24, 72, "Output",ExpressionUUID->"45ccfd9c-0d35-498d-9f32-cb0b02a0f928"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61149, 1770, 979, 30, 81, "Input",ExpressionUUID->"d04ac84a-fee7-4152-b7b9-8906d62b7133"],
Cell[62131, 1802, 2089, 58, 64, "Output",ExpressionUUID->"cf4278fc-18c3-411b-ab40-160deeb5bfe0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64257, 1865, 3746, 108, 172, "Input",ExpressionUUID->"41160117-b35a-46f5-88d1-2c85bfcf3517"],
Cell[68006, 1975, 179, 3, 44, "Output",ExpressionUUID->"dd6e5de6-12aa-4dc6-a7e3-0a7c31290607"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68222, 1983, 383, 12, 52, "Input",ExpressionUUID->"c3338a2e-ad1c-42c1-b479-0831f0d3bcad"],
Cell[68608, 1997, 271, 8, 50, "Output",ExpressionUUID->"5bf86250-f659-4f28-a7e8-550fc68f98c7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68916, 2010, 7071, 173, 762, "Input",ExpressionUUID->"0ad07cae-4fe0-4b93-8d68-1d2ebbd6d931"],
Cell[75990, 2185, 2793, 83, 120, "Output",ExpressionUUID->"5f840392-d73c-41f5-949e-10c3f9554faa"],
Cell[78786, 2270, 2486, 74, 118, "Output",ExpressionUUID->"452e356a-8c16-406a-8396-51901e761cf3"],
Cell[81275, 2346, 2785, 82, 120, "Output",ExpressionUUID->"9b2edfb2-6eca-44ac-b732-0c505d6cfa0b"]
}, Open  ]],
Cell[84075, 2431, 170, 3, 69, "Input",ExpressionUUID->"ccd8cbd3-6ac5-4fcc-804e-e4f4ed583dd9"],
Cell[CellGroupData[{
Cell[84270, 2438, 11065, 327, 362, "Input",ExpressionUUID->"99f4fdce-56d1-4323-a679-d9cf6ce88350"],
Cell[95338, 2767, 1510, 45, 83, "Output",ExpressionUUID->"4304f7b7-c57e-42e5-854e-b72d9d682ce4"],
Cell[96851, 2814, 1687, 48, 83, "Output",ExpressionUUID->"61164de3-d7ef-40fc-adb1-248e3d0af662"],
Cell[98541, 2864, 2406, 70, 116, "Output",ExpressionUUID->"bc932977-c591-4453-b68b-18096653d8c9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[100984, 2939, 367, 11, 45, "Input",ExpressionUUID->"c5cf8527-1307-4275-8bc4-cec556d2f6d1"],
Cell[101354, 2952, 667, 21, 64, "Output",ExpressionUUID->"cf1c9f4d-2004-4684-861c-8184e38a4422"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102058, 2978, 177, 3, 39, "Input",ExpressionUUID->"b0399657-b90e-41de-9ca0-500453233f2d"],
Cell[102238, 2983, 178, 3, 44, "Output",ExpressionUUID->"0eab2d1e-ca6c-40db-9ac7-4f6b7def6f87"]
}, Open  ]],
Cell[102431, 2989, 178, 4, 39, "Input",ExpressionUUID->"345e48a4-6847-46c5-81aa-ae88755afe73"],
Cell[102612, 2995, 3235, 105, 185, "Input",ExpressionUUID->"027301eb-9658-4afb-879d-392ecf7b09c0"],
Cell[CellGroupData[{
Cell[105872, 3104, 2730, 83, 58, "Input",ExpressionUUID->"50f0168f-ea5e-43e9-94f2-c861c0975714"],
Cell[108605, 3189, 1216, 38, 63, "Output",ExpressionUUID->"804f0de5-384d-450c-88d3-24534453adb3"]
}, Open  ]],
Cell[109836, 3230, 154, 3, 39, "Input",ExpressionUUID->"13cfbc5f-ae8e-4ec0-be4e-e4c50af287e2"],
Cell[CellGroupData[{
Cell[110015, 3237, 3006, 89, 91, "Input",ExpressionUUID->"959ab613-9ce6-4979-b9a2-b03d0e4386d1"],
Cell[113024, 3328, 385, 11, 64, "Output",ExpressionUUID->"88095730-d46d-41f6-bdb6-a1b5ca952e48"]
}, Open  ]],
Cell[CellGroupData[{
Cell[113446, 3344, 3108, 90, 93, "Input",ExpressionUUID->"0bddb484-4d54-4018-b0c5-e9847191d292"],
Cell[116557, 3436, 1052, 29, 81, "Output",ExpressionUUID->"07b1638d-5b3c-4efb-8beb-e880879a3e41"]
}, Open  ]],
Cell[117624, 3468, 6353, 158, 243, "Input",ExpressionUUID->"cd9717cf-44bc-4704-9c4d-e110adb097bf"]
}
]
*)