B3tauSystem.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[    205652,       5293]
NotebookOptionsPosition[    201432,       5221]
NotebookOutlinePosition[    201797,       5237]
CellTagsIndexPosition[    201754,       5234]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"coeffs", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "1"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "1"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "1"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "1"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]3", "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]]}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2", "+", 
              RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
           "2"]]}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t0", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"t1", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t2", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"t3", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.798267904677664*^9, 3.798267930583515*^9}, {
   3.798269159859371*^9, 3.798269160093379*^9}, {3.7982768826453943`*^9, 
   3.798276883235548*^9}, {3.7982770597772818`*^9, 3.798277060190648*^9}, {
   3.798277996353805*^9, 3.7982779968181477`*^9}, {3.79827830262808*^9, 
   3.798278302922859*^9}, {3.798337144812024*^9, 3.7983371464821053`*^9}, {
   3.798365545852171*^9, 3.7983655675830107`*^9}, {3.79836560976753*^9, 
   3.798365610183666*^9}, {3.798365690368574*^9, 3.798365690817889*^9}, {
   3.798365920648077*^9, 3.79836592201336*^9}, {3.798619647253272*^9, 
   3.798619692432066*^9}, {3.7987035924916353`*^9, 3.7987035927417603`*^9}, {
   3.798703642002163*^9, 3.798703642558251*^9}, {3.7987037825131617`*^9, 
   3.798703782758686*^9}, {3.798703818204795*^9, 3.798703818504772*^9}, {
   3.798703891241003*^9, 3.798703891542081*^9}, {3.798703950195393*^9, 
   3.7987039505123243`*^9}, {3.798704171741065*^9, 3.798704196390684*^9}, {
   3.7987043305654593`*^9, 3.798704330734437*^9}, 3.79870784369593*^9, {
   3.7987080634033003`*^9, 3.798708068778475*^9}, {3.7987081869678907`*^9, 
   3.798708189041463*^9}, {3.7987084744576063`*^9, 3.7987084747410593`*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"45f0ad4a-754f-41f8-a483-c077c6705864"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "3"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tau0", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"t0", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "\[Sigma]3"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"a2", "-", "a3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "a3"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2", "+", "n3"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{"n1", "-", "n0"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n2", "-", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]3", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n2"}], "+", 
          RowBox[{"2", "n3"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]3", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "coeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tau1", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"t1", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "\[Sigma]3"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"a2", "-", "a3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "a3"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2", "+", "n3"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{"n1", "-", "n0"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n2", "-", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]3", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n2"}], "+", 
          RowBox[{"2", "n3"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]3", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "coeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tau2", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"t2", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "\[Sigma]3"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"a2", "-", "a3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "a3"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2", "+", "n3"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{"n1", "-", "n0"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n2", "-", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]3", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n2"}], "+", 
          RowBox[{"2", "n3"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]3", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "coeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tau3", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"t3", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "\[Sigma]3"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"a2", "-", "a3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "a3"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2", "+", "n3"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{"n1", "-", "n0"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n2", "-", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]3", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n2"}], "+", 
          RowBox[{"2", "n3"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]3", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "coeffs"}]}]}], "Input",
 CellChangeTimes->{{3.7982677099707823`*^9, 3.798267739500039*^9}, {
   3.7982677798971043`*^9, 3.798267780007847*^9}, 3.7982678842385798`*^9, {
   3.798267932646373*^9, 3.7982679373269653`*^9}, 3.7982684190827427`*^9, {
   3.798269162551404*^9, 3.798269162707549*^9}, {3.798277876290277*^9, 
   3.798277876447708*^9}, {3.798278000608186*^9, 3.7982780197867737`*^9}, 
   3.798337153329358*^9, 3.7983654999648323`*^9, {3.798365550123809*^9, 
   3.798365572843627*^9}, {3.798365613852214*^9, 3.7983656141615868`*^9}, 
   3.7983657002262077`*^9, 3.798619670393963*^9, 3.7986197008262053`*^9, 
   3.7987036452926817`*^9, {3.798703732145317*^9, 3.798703748068432*^9}, {
   3.798703785550715*^9, 3.798703785628854*^9}, 3.7987038230524197`*^9, 
   3.798703908090638*^9, {3.798703953610627*^9, 3.798703953987776*^9}, {
   3.798704184205719*^9, 3.798704199486123*^9}, {3.798704332069982*^9, 
   3.7987043329482203`*^9}, {3.798708078816317*^9, 3.7987081106814747`*^9}, {
   3.79870817980319*^9, 3.7987081828038177`*^9}, {3.7987084777715*^9, 
   3.798708477911775*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"dc3effc5-390c-4b5c-9f6f-981959ddecaa"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"D_logt", "^", "2"}], " ", 
    RowBox[{"Log", " ", "\\", "tau"}]}], " ", "=", " ", 
   RowBox[{"product", " ", "of", " ", 
    RowBox[{"other", " ", "\\", "taus"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7984382879635878`*^9, 
  3.798438308715067*^9}},ExpressionUUID->"c3677654-05fe-4766-9219-\
6586698020e9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"taude0", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"k", "+", "1"}], ")"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tau0", "[", "t", "]"}], "-", "1"}], ")"}], "^", "k"}], 
           "/", "k"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ")"}], "/.", 
      RowBox[{
       RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
       RowBox[{
        RowBox[{"p", "^", "2"}], " ", 
        RowBox[{"t", "^", "p"}]}]}]}], ")"}], "//", 
    RowBox[{
     RowBox[{"Simplify", "-", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", 
          "\[Epsilon]"}], 
         RowBox[{"\[Xi]1", " ", "\[Xi]2"}]], 
        RowBox[{
         RowBox[{"Tau1", "[", "t", "]"}], "/", 
         RowBox[{
          RowBox[{"Tau0", "[", "t", "]"}], "^", "2"}]}]}], ")"}]}], 
     "\[Equal]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"taude1", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"k", "+", "1"}], ")"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tau1", "[", "t", "]"}], "-", "1"}], ")"}], "^", "k"}], 
           "/", "k"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ")"}], "/.", 
      RowBox[{
       RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
       RowBox[{
        RowBox[{"p", "^", "2"}], " ", 
        RowBox[{"t", "^", "p"}]}]}]}], ")"}], "//", 
    RowBox[{
     RowBox[{"Simplify", "-", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"a1", "-", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1", " ", 
          "\[Epsilon]"}], "\[Xi]2"], 
        RowBox[{
         RowBox[{"Tau0", "[", "t", "]"}], "^", "2"}], 
        RowBox[{
         RowBox[{"Tau2", "[", "t", "]"}], "/", 
         RowBox[{
          RowBox[{"Tau1", "[", "t", "]"}], "^", "2"}]}]}], ")"}]}], 
     "\[Equal]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"taude2", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"k", "+", "1"}], ")"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tau2", "[", "t", "]"}], "-", "1"}], ")"}], "^", "k"}], 
           "/", "k"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ")"}], "/.", 
      RowBox[{
       RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
       RowBox[{
        RowBox[{"p", "^", "2"}], " ", 
        RowBox[{"t", "^", "p"}]}]}]}], ")"}], "//", 
    RowBox[{
     RowBox[{"Simplify", "-", 
      RowBox[{"(", 
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"a2", "-", "a3"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}]], " ", "\[Xi]2", " ", 
          "\[Epsilon]"}], "\[Xi]3"], " ", 
        RowBox[{"Tau1", "[", "t", "]"}], 
        RowBox[{
         RowBox[{
          RowBox[{"Tau3", "[", "t", "]"}], "^", "2"}], "/", 
         RowBox[{
          RowBox[{"Tau2", "[", "t", "]"}], "^", "2"}]}]}], ")"}]}], 
     "\[Equal]", "0"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"taude3", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"-", "1"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"k", "+", "1"}], ")"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tau3", "[", "t", "]"}], "-", "1"}], ")"}], "^", "k"}], 
           "/", "k"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", 
           RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ")"}], "/.", 
      RowBox[{
       RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
       RowBox[{
        RowBox[{"p", "^", "2"}], " ", 
        RowBox[{"t", "^", "p"}]}]}]}], ")"}], "//", 
    RowBox[{
     RowBox[{"Simplify", "-", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "\[Sigma]3"}]], " ", 
        RowBox[{"\[Xi]3", "^", "2"}], " ", "\[Epsilon]", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"Tau1", "[", "t", "]"}], "^", "2"}], "/", 
         RowBox[{
          RowBox[{"Tau3", "[", "t", "]"}], "^", "2"}]}]}], ")"}]}], 
     "\[Equal]", "0"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.798268465298442*^9, 3.798268481061843*^9}, {
  3.798268819234508*^9, 3.798268834118739*^9}, {3.798268998744268*^9, 
  3.7982690675998917`*^9}, {3.798364739560524*^9, 3.7983647471913757`*^9}, {
  3.798703873893955*^9, 3.7987038774688587`*^9}, {3.798704317696196*^9, 
  3.7987043268717546`*^9}, {3.7987048074861183`*^9, 3.798704822112834*^9}, {
  3.798708154067326*^9, 3.79870832468771*^9}, {3.798708454500717*^9, 
  3.798708457354858*^9}, {3.798708547741501*^9, 3.798708555466303*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"89f1c56e-4e87-497f-94bb-3925c7acf9c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coeffeq", " ", "=", " ", 
   RowBox[{"LogicalExpand", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{"taude0", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]3", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "&&", 
     " ", 
     RowBox[{"Series", "[", 
      RowBox[{"taude1", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]3", ",", "0", ",", "n"}], "}"}]}], "]"}], "&&", " ", 
     RowBox[{"Series", "[", 
      RowBox[{"taude2", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]3", ",", "0", ",", "n"}], "}"}]}], "]"}], "&&", 
     RowBox[{"Series", "[", 
      RowBox[{"taude3", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]3", ",", "0", ",", "n"}], "}"}]}], "]"}]}], " ", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.798267886457643*^9, 3.798267894896447*^9}, {
   3.7982679905057364`*^9, 3.798267991711586*^9}, {3.798268391067833*^9, 
   3.7982684375380583`*^9}, {3.798268838293969*^9, 3.798268874829187*^9}, {
   3.7982690953300047`*^9, 3.7982691181354847`*^9}, 3.798364751676113*^9, {
   3.798708335805011*^9, 3.798708353389564*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"c4dc56d4-0065-4260-bff8-81b8f2387be3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"coeffeq", "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"t", "\[Rule]", "1"}], ",", 
      RowBox[{"a1", "\[Rule]", "0"}], ",", 
      RowBox[{"a2", "\[Rule]", "0"}], ",", 
      RowBox[{"a3", "\[Rule]", "0"}]}], "}"}]}], ",", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"t0", "[", 
         RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], ",", 
        RowBox[{"t1", "[", 
         RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], ",", 
        RowBox[{"t2", "[", 
         RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], ",", 
        RowBox[{"t3", "[", 
         RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.798269126436328*^9, 3.798269139706469*^9}, {
  3.79827798783261*^9, 3.79827799096078*^9}, {3.798278063754718*^9, 
  3.7982780683996077`*^9}, {3.798708358973032*^9, 3.798708373618732*^9}, {
  3.798708464357424*^9, 3.7987084671025333`*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"abf2448e-47fa-4ddf-9770-0706af56979c"],

Cell[BoxData[
 TemplateBox[{
  "Solve","naqs",
   "\"\\!\\(\\*RowBox[{\\\"\[LeftSkeleton]\\\", \\\"1\\\", \\\"\
\[RightSkeleton]\\\"}]\\) is not a quantified system of equations and \
inequalities.\"",2,134,3,16134786687234282614,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7987085613064957`*^9},
 CellLabel->
  "During evaluation of \
In[134]:=",ExpressionUUID->"7c1be90f-e70d-4923-ae1d-c13a5a0d97ee"],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   FrameBox[GridBox[{
      {
       ItemBox[
        TagBox[
         RowBox[{"Solve", "[", 
          RowBox[{
           TemplateBox[{"1"},
            "OutputSizeLimit`Skeleton"], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"t0", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], ",", 
             RowBox[{"t1", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], ",", 
             RowBox[{"t2", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], ",", 
             RowBox[{"t3", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], ",", 
             RowBox[{"t0", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], ",", 
             RowBox[{"t1", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], ",", 
             RowBox[{"t2", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], ",", 
             RowBox[{"t3", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], ",", 
             RowBox[{"t0", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], ",", 
             RowBox[{"t1", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], ",", 
             RowBox[{"t2", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], ",", 
             RowBox[{"t3", "[", 
              RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], ",", 
             TemplateBox[{"1000"},
              "OutputSizeLimit`Skeleton"], ",", 
             RowBox[{"t0", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "1"}], "]"}], ",", 
             RowBox[{"t1", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "1"}], "]"}], ",", 
             RowBox[{"t2", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "1"}], "]"}], ",", 
             RowBox[{"t3", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "1"}], "]"}], ",", 
             RowBox[{"t0", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "2"}], "]"}], ",", 
             RowBox[{"t1", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "2"}], "]"}], ",", 
             RowBox[{"t2", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "2"}], "]"}], ",", 
             RowBox[{"t3", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "2"}], "]"}], ",", 
             RowBox[{"t0", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], ",", 
             RowBox[{"t1", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], ",", 
             RowBox[{"t2", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}], ",", 
             RowBox[{"t3", "[", 
              RowBox[{"3", ",", "3", ",", "3", ",", "3"}], "]"}]}], "}"}]}], 
          "]"}],
         Short[#, 5]& ],
        BaseStyle->{Deployed -> False},
        StripOnInput->False]},
      {GridBox[{
         {
          PaneBox[
           TagBox[
            TooltipBox[
             StyleBox[
              StyleBox[
               DynamicBox[ToBoxes[
                 FEPrivate`FrontEndResource[
                 "FEStrings", "sizeBriefExplanation"], StandardForm],
                ImageSizeCache->{93., {3., 12.}}],
               StripOnInput->False,
               DynamicUpdating->True,
               LineSpacing->{1, 2},
               LineIndent->0,
               LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLText",
              StripOnInput->False],
             StyleBox[
              DynamicBox[
               ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
                StandardForm]], DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}, StripOnInput -> False]],
            Annotation[#, 
             Style[
              Dynamic[
               FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"]], 
              DynamicUpdating -> True, LineIndent -> 0, 
              LinebreakAdjustments -> {1., 100, 0, 0, 0}, 
              LineSpacing -> {1, 2}], "Tooltip"]& ],
           Alignment->Center,
           BaselinePosition->Baseline,
           ImageSize->{Automatic, {25, Full}}], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm],
               ImageSizeCache->{82., {0., 12.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 134, 16134786687234282614, 5/2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm],
               ImageSizeCache->{92., {0., 12.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 134, 16134786687234282614, 5 2],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm],
               ImageSizeCache->{69., {0., 12.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
                StandardForm]],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           
           ButtonFunction:>OutputSizeLimit`ButtonFunction[
            OutputSizeLimit`Defer, 134, 16134786687234282614, Infinity],
           Enabled->True,
           Evaluator->Automatic,
           Method->"Queued"], 
          ButtonBox[
           PaneSelectorBox[{False->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{124., {0., 12.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControl",
             StripOnInput->False], True->
            StyleBox[
             StyleBox[
              DynamicBox[ToBoxes[
                FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
                StandardForm],
               ImageSizeCache->{124., {0., 12.}}],
              StripOnInput->False,
              DynamicUpdating->True,
              LineSpacing->{1, 2},
              LineIndent->0,
              LinebreakAdjustments->{1., 100, 0, 0, 0}], "OSLControlActive",
             StripOnInput->False]}, Dynamic[
             CurrentValue["MouseOver"]],
            Alignment->Center,
            FrameMargins->0,
            ImageSize->{Automatic, {25, Full}}],
           Appearance->None,
           BaselinePosition->Baseline,
           ButtonFunction:>FrontEndExecute[{
              FrontEnd`SetOptions[
              FrontEnd`$FrontEnd, 
               FrontEnd`PreferencesSettings -> {"Page" -> "Advanced"}], 
              FrontEnd`FrontEndToken["PreferencesDialog"]}],
           Evaluator->None,
           Method->"Preemptive"]}
        },
        AutoDelete->False,
        FrameStyle->GrayLevel[0.85],
        GridBoxDividers->{"Columns" -> {False, {True}}},
        GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
        GridBoxSpacings->{"Columns" -> {{2}}}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxDividers->{"Columns" -> {{False}}, "Rows" -> {{False}}},
     GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], 
         Offset[1.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    BaseStyle->"OutputSizeLimit",
    FrameMargins->{{12, 12}, {0, 15}},
    FrameStyle->GrayLevel[0.85],
    RoundingRadius->5,
    StripOnInput->False],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  If[16134786687234282614 === $SessionID, 
   Out[134], Message[
     MessageName[Syntax, "noinfoker"]]; Missing["NotAvailable"]; 
   Null]]], "Output",
 CellChangeTimes->{
  3.798619634137121*^9, 3.798619679637342*^9, 3.798619713174513*^9, 
   3.7987035679751167`*^9, 3.798703770337797*^9, {3.79870381003897*^9, 
   3.798703830743166*^9}, {3.798703881935467*^9, 3.79870390449265*^9}, 
   3.7987039385223494`*^9, 3.7987041152440567`*^9, {3.7987041895206537`*^9, 
   3.798704205123584*^9}, 3.798704365060608*^9, 3.79870477378021*^9, 
   3.798704827444285*^9, 3.798708374056848*^9, 3.798708467863124*^9, 
   3.798708511162465*^9, 3.798708561389332*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"e7405da0-08a0-4fc6-a148-a90adc7afd29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"k", "+", "1"}], ")"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Tau0", "[", "t", "]"}], "-", "1"}], ")"}], "^", "k"}], 
         "/", "k"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", 
         RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], ")"}], "/.", 
    RowBox[{
     RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
     RowBox[{
      RowBox[{"p", "^", "2"}], " ", 
      RowBox[{"t", "^", "p"}]}]}]}], ")"}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.798704783023922*^9, 3.798704790814939*^9}, 
   3.7987048336726513`*^9, {3.798708535250957*^9, 3.7987085366030188`*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"3af873a4-85c8-4f76-9362-ee8035602eb3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
          SeriesData[$CellContext`\[Xi]3, 0, {}, 7, 7, 1],
          Editable->False], "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]2", "]"}], "7"],
          SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 7, 1],
          Editable->False]}],
        SeriesData[$CellContext`\[Xi]2, 0, {
          SeriesData[$CellContext`\[Xi]3, 0, {}, 7, 7, 1]}, 0, 7, 1],
        Editable->False], ")"}], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "7"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 7, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {
         SeriesData[$CellContext`\[Xi]3, 0, {}, 7, 7, 1]}, 0, 7, 1]}, 0, 7, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          FractionBox[
           InterpretationBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
              SuperscriptBox["t", 
               RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}]]}], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
                1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)}, 0, 7, 
             1],
            Editable->False], "\[Xi]2"], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "6"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -1, 6, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
               1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)}, 0, 7, 
            1]}, -1, 6, 1],
         Editable->False], "\[Xi]1"], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "6"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -1, 6, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
              1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)}, 0, 7, 
           1]}, -1, 6, 1]}, -1, 6, 1],
      Editable->False], ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          FractionBox[
           InterpretationBox[
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{"4", " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"(", 
                    RowBox[{"a1", "+", "a2"}], ")"}]}]], " ", 
                  SuperscriptBox["t", 
                   RowBox[{
                    RowBox[{"-", "2"}], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                    ")"}]}]]}], ")"}]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                 ")"}], "2"]]}], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 
             0, {(-4) 
              E^((-2) ($CellContext`a1 + $CellContext`a2)) \
$CellContext`t^((-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 0, 7, 1],
            Editable->False], 
           SuperscriptBox["\[Xi]2", "2"]], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -2, 5, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
           
           SeriesData[$CellContext`\[Xi]3, 
            0, {(-4) 
             E^((-2) ($CellContext`a1 + $CellContext`a2)) \
$CellContext`t^((-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 0, 7, 1]}, -2, 
          5, 1],
         Editable->False], 
        SuperscriptBox["\[Xi]1", "2"]], "+", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          FractionBox[
           InterpretationBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", "a2"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"1", "-", 
                 RowBox[{"2", " ", "\[Sigma]2"}]}]]}], 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^((-2) $CellContext`a2) $CellContext`t^(1 - 
                2 $CellContext`\[Sigma]2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)}, 0, 7, 1],
            Editable->False], 
           SuperscriptBox["\[Xi]2", "2"]], "+", 
          RowBox[{"(", 
           InterpretationBox[
            RowBox[{
             RowBox[{"16", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"4", " ", "a3"}]], " ", 
              SuperscriptBox["t", 
               RowBox[{"4", " ", "\[Sigma]3"}]], " ", 
              SuperscriptBox["\[Sigma]3", "2"], " ", 
              RowBox[{"t0", "[", 
               RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], " ", 
              SuperscriptBox["\[Xi]3", "4"]}], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "11"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 4, 11, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             16 E^(4 $CellContext`a3) $CellContext`t^(
                4 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 2]}, 4, 11, 1],
            Editable->False], ")"}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -2, 5, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            E^((-2) $CellContext`a2) $CellContext`t^(1 - 
               
               2 $CellContext`\[Sigma]2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)}, 0, 7, 1], 0, 
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            16 E^(4 $CellContext`a3) $CellContext`t^(
               4 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 2]}, 4, 11, 1]}, -2, 5, 1],
         Editable->False], ")"}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "5"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -2, 5, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 
           0, {(-4) 
            E^((-2) ($CellContext`a1 + $CellContext`a2)) $CellContext`t^((-2) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) (-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 0, 7, 1]}, -2, 5, 1], 0, 
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^((-2) $CellContext`a2) $CellContext`t^(1 - 
              2 $CellContext`\[Sigma]2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)}, 0, 7, 1], 0, 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           16 E^(4 $CellContext`a3) $CellContext`t^(
              4 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 2]}, 4, 11, 1]}, -2, 5, 1]}, -2, 5, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          FractionBox[
           InterpretationBox[
            RowBox[{
             RowBox[{
              FractionBox["9", "2"], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "3"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a1", "+", "a2"}], ")"}]}]], " ", 
              SuperscriptBox["t", 
               RowBox[{
                RowBox[{"-", "3"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                 ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox["1", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                   ")"}], "6"]], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"t0", "[", 
                  RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}]}]}], 
               ")"}]}], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             Rational[9, 2] 
              E^((-3) ($CellContext`a1 + $CellContext`a2)) \
$CellContext`t^((-3) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^2 ((-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]2)^(-6) + 2 $CellContext`t0[3, 0, 0, 0])}, 0,
              7, 1],
            Editable->False], 
           SuperscriptBox["\[Xi]2", "3"]], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "4"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -3, 4, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            Rational[9, 2] 
             E^((-3) ($CellContext`a1 + $CellContext`a2)) \
$CellContext`t^((-3) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^2 ((-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]2)^(-6) + 2 $CellContext`t0[3, 0, 0, 0])}, 0,
             7, 1]}, -3, 4, 1],
         Editable->False], 
        SuperscriptBox["\[Xi]1", "3"]], "+", 
       FractionBox[
        InterpretationBox[
         RowBox[{
          FractionBox[
           InterpretationBox[
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"(", 
                 RowBox[{"a1", "+", "a2", "-", "a3"}], ")"}]}]], " ", 
              SuperscriptBox["t", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2", "-",
                   "\[Sigma]3"}], ")"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2", "-", 
                 "\[Sigma]3"}], ")"}], "2"], " ", 
              RowBox[{"t0", "[", 
               RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], " ", 
              SuperscriptBox["\[Xi]3", "2"]}], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 2, 9, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             4 E^((-2) ($CellContext`a1 + $CellContext`a2 - $CellContext`a3)) \
$CellContext`t^((-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
               2, 0, 0, 1]}, 2, 9, 1],
            Editable->False], 
           SuperscriptBox["\[Xi]2", "2"]], "+", 
          FractionBox[
           InterpretationBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "a1"}], "-", "a2", "-", "a3"}]], 
               " ", 
               SuperscriptBox["t", 
                RowBox[{"2", "-", 
                 RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2", "-", 
                 "\[Sigma]3"}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], "+", 
                  RowBox[{"2", " ", "\[Sigma]1"}], "+", "\[Sigma]2", "+", 
                  "\[Sigma]3"}], ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}]}], 
              "\[Xi]3"], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "6"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, -1, 6, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^((-2) $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(2 - 
                2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3) (-2 + 
                2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[2, 0, 1, 0]}, -1, 6, 1],
            Editable->False], "\[Xi]2"], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -2, 5, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            4 E^((-2) ($CellContext`a1 + $CellContext`a2 - $CellContext`a3)) \
$CellContext`t^((-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
              2, 0, 0, 1]}, 2, 9, 1], 
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            E^((-2) $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(2 - 
               2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3) (-2 + 
               2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[2, 0, 1, 0]}, -1, 6, 1]}, -2, 5, 1],
         
         Editable->False], 
        SuperscriptBox["\[Xi]1", "2"]], "+", 
       RowBox[{
        FractionBox["1", "\[Xi]1"], 
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           FractionBox[
            InterpretationBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "a1"}], "-", 
                 RowBox[{"3", " ", "a2"}]}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"2", "-", "\[Sigma]1", "-", 
                 RowBox[{"3", " ", "\[Sigma]2"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", 
                  RowBox[{"3", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  FractionBox["1", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"1", "-", 
                    RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                    ")"}], "2"]}]]}], "+", 
                 RowBox[{"t0", "[", 
                  RowBox[{"2", ",", "1", ",", "0", ",", "0"}], "]"}]}], 
                ")"}]}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^(-$CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
                 2 - $CellContext`\[Sigma]1 - 
                 3 $CellContext`\[Sigma]2) (-2 + $CellContext`\[Sigma]1 + 
                 3 $CellContext`\[Sigma]2)^2 (-(1 - 
                   2 $CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2)^(-2) + $CellContext`t0[2, 1, 0, 0])}, 0, 7, 1],
             Editable->False], 
            SuperscriptBox["\[Xi]2", "3"]], "+", 
           FractionBox[
            InterpretationBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"-", "a1"}], "-", "a2", "+", 
                  RowBox[{"4", " ", "a3"}]}]], " ", 
                SuperscriptBox["t", 
                 RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2", "+", 
                  RowBox[{"4", " ", "\[Sigma]3"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2", 
                   "-", 
                   RowBox[{"4", " ", "\[Sigma]3"}]}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", 
                   RowBox[{"t0", "[", 
                    RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}]}], "+", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                    ")"}], "2"], " ", 
                   RowBox[{"t0", "[", 
                    RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "]"}]}]}], 
                 ")"}], " ", 
                SuperscriptBox["\[Xi]3", "4"]}], 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                 ")"}], "2"]], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "11"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 4, 11, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^(-$CellContext`a1 - $CellContext`a2 + 
                 4 $CellContext`a3) $CellContext`t^(
                 1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + 
                 4 $CellContext`\[Sigma]3) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2 - 4 $CellContext`\[Sigma]3)^2 (-$CellContext`t0[
                  0, 0, 0, 
                   2] + (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^2 $CellContext`t0[1, 0, 0, 2])}, 4, 11, 1],
             Editable->False], "\[Xi]2"], "+", 
           RowBox[{"(", 
            InterpretationBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "a1"}], "+", "a3"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
                "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], " ", 
               "\[Xi]3"}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "8"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 1, 8, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^(-$CellContext`a1 + $CellContext`a3) $CellContext`t^(
                 1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3) (
                 1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3)^2 \
$CellContext`t0[1, 0, 1, 1]}, 1, 8, 1],
             Editable->False], ")"}], "+", 
           RowBox[{
            RowBox[{"(", 
             InterpretationBox[
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{
                   RowBox[{"-", "a1"}], "+", "a2", "-", 
                   RowBox[{"2", " ", "a3"}]}]], " ", 
                 SuperscriptBox["t", 
                  RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2", "-", 
                   RowBox[{"2", " ", "\[Sigma]3"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2", "-", 
                    RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], "2"], " ", 
                 RowBox[{"t0", "[", 
                  RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}]}], 
                SuperscriptBox["\[Xi]3", "2"]], "+", 
               InterpretationBox[
                SuperscriptBox[
                 RowBox[{"O", "[", "\[Xi]3", "]"}], "5"],
                SeriesData[$CellContext`\[Xi]3, 0, {}, -2, 5, 1],
                Editable->False]}],
              SeriesData[$CellContext`\[Xi]3, 0, {
               E^(-$CellContext`a1 + $CellContext`a2 - 
                  2 $CellContext`a3) $CellContext`t^(
                  1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
                  2 $CellContext`\[Sigma]3) (
                  1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
                  2 $CellContext`\[Sigma]3)^2 $CellContext`t0[
                 1, 0, 2, 0]}, -2, 5, 1],
              Editable->False], ")"}], " ", "\[Xi]2"}], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "4"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -3, 4, 1],
            Editable->False]}],
          SeriesData[$CellContext`\[Xi]2, 0, {
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^(-$CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
                2 - $CellContext`\[Sigma]1 - 
                3 $CellContext`\[Sigma]2) (-2 + $CellContext`\[Sigma]1 + 
                3 $CellContext`\[Sigma]2)^2 (-(1 - 
                  2 $CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2)^(-2) + $CellContext`t0[2, 1, 0, 0])}, 0, 7, 1], 0, 
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^(-$CellContext`a1 - $CellContext`a2 + 
                4 $CellContext`a3) $CellContext`t^(
                1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + 
                4 $CellContext`\[Sigma]3) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2 - 4 $CellContext`\[Sigma]3)^2 (-$CellContext`t0[
                 0, 0, 0, 
                  2] + (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^2 $CellContext`t0[1, 0, 0, 2])}, 4, 11, 1], 
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^(-$CellContext`a1 + $CellContext`a3) $CellContext`t^(
                1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3) (
                1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3)^2 \
$CellContext`t0[1, 0, 1, 1]}, 1, 8, 1], 
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^(-$CellContext`a1 + $CellContext`a2 - 
                2 $CellContext`a3) $CellContext`t^(
                1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
                2 $CellContext`\[Sigma]3) (
                1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
                2 $CellContext`\[Sigma]3)^2 $CellContext`t0[1, 0, 2, 0]}, -2, 
             5, 1]}, -3, 4, 1],
          Editable->False], ")"}]}], "+", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          FractionBox[
           InterpretationBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "2"}], " ", "a2"}], "+", 
                RowBox[{"2", " ", "a3"}]}]], " ", 
              SuperscriptBox["t", 
               RowBox[{"1", "-", 
                RowBox[{"2", " ", "\[Sigma]2"}], "+", 
                RowBox[{"2", " ", "\[Sigma]3"}]}]], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"2", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], "2"], " ", 
              RowBox[{"t0", "[", 
               RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], " ", 
              SuperscriptBox["\[Xi]3", "2"]}], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 2, 9, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^((-2) $CellContext`a2 + 2 $CellContext`a3) $CellContext`t^(1 - 
                2 $CellContext`\[Sigma]2 + 2 $CellContext`\[Sigma]3) (1 - 
                2 $CellContext`\[Sigma]2 + 
                2 $CellContext`\[Sigma]3)^2 $CellContext`t0[1, 1, 0, 1]}, 2, 
             9, 1],
            Editable->False], 
           SuperscriptBox["\[Xi]2", "2"]], "+", 
          FractionBox[
           InterpretationBox[
            RowBox[{
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "a2"}], "-", "a3"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"1", "-", "\[Sigma]2", "-", "\[Sigma]3"}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
                 ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}]}], 
              "\[Xi]3"], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "6"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, -1, 6, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^(-$CellContext`a2 - $CellContext`a3) $CellContext`t^(
                1 - $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3) (-1 + \
$CellContext`\[Sigma]2 + $CellContext`\[Sigma]3)^2 $CellContext`t0[
               1, 1, 1, 0]}, -1, 6, 1],
            Editable->False], "\[Xi]2"], "+", 
          RowBox[{"(", 
           InterpretationBox[
            RowBox[{
             RowBox[{"36", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"6", " ", "a3"}]], " ", 
              SuperscriptBox["t", 
               RowBox[{"6", " ", "\[Sigma]3"}]], " ", 
              SuperscriptBox["\[Sigma]3", "2"], " ", 
              RowBox[{"t0", "[", 
               RowBox[{"0", ",", "0", ",", "0", ",", "3"}], "]"}], " ", 
              SuperscriptBox["\[Xi]3", "6"]}], "+", 
             InterpretationBox[
              SuperscriptBox[
               RowBox[{"O", "[", "\[Xi]3", "]"}], "13"],
              SeriesData[$CellContext`\[Xi]3, 0, {}, 6, 13, 1],
              Editable->False]}],
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             36 
              E^(6 $CellContext`a3) $CellContext`t^(
                6 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 3]}, 6, 13, 1],
            Editable->False], ")"}], "+", 
          RowBox[{
           RowBox[{"(", 
            InterpretationBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"a2", "+", 
                 RowBox[{"3", " ", "a3"}]}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"\[Sigma]2", "+", 
                 RowBox[{"3", " ", "\[Sigma]3"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]2", "+", 
                  RowBox[{"3", " ", "\[Sigma]3"}]}], ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}], " ", 
               SuperscriptBox["\[Xi]3", "3"]}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "10"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 3, 10, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^($CellContext`a2 + 
                 3 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]2 + 
                 3 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]2 + 
                 3 $CellContext`\[Sigma]3)^2 $CellContext`t0[0, 0, 1, 2]}, 3, 
              10, 1],
             Editable->False], ")"}], " ", "\[Xi]2"}], "+", 
          RowBox[{
           RowBox[{"(", 
            InterpretationBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", "a2"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"2", " ", "\[Sigma]2"}]], " ", 
               SuperscriptBox["\[Sigma]2", "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"0", ",", "0", ",", "2", ",", "1"}], "]"}]}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              4 E^(2 $CellContext`a2) $CellContext`t^(
                 2 $CellContext`\[Sigma]2) $CellContext`\[Sigma]2^2 \
$CellContext`t0[0, 0, 2, 1]}, 0, 7, 1],
             Editable->False], ")"}], " ", 
           SuperscriptBox["\[Xi]2", "2"]}], "+", 
          RowBox[{
           RowBox[{"(", 
            InterpretationBox[
             RowBox[{
              FractionBox[
               RowBox[{"9", " ", 
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"3", " ", "a2"}], "-", 
                  RowBox[{"3", " ", "a3"}]}]], " ", 
                SuperscriptBox["t", 
                 RowBox[{"3", " ", 
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
                RowBox[{"t0", "[", 
                 RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}]}], 
               SuperscriptBox["\[Xi]3", "3"]], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "4"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, -3, 4, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              9 E^(3 $CellContext`a2 - 3 $CellContext`a3) $CellContext`t^(
                 3 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
                0, 0, 3, 0]}, -3, 4, 1],
             Editable->False], ")"}], " ", 
           SuperscriptBox["\[Xi]2", "3"]}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -2, 5, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            E^((-2) $CellContext`a2 + 2 $CellContext`a3) $CellContext`t^(1 - 
               2 $CellContext`\[Sigma]2 + 2 $CellContext`\[Sigma]3) (1 - 
               2 $CellContext`\[Sigma]2 + 
               2 $CellContext`\[Sigma]3)^2 $CellContext`t0[1, 1, 0, 1]}, 2, 9,
             1], 
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            E^(-$CellContext`a2 - $CellContext`a3) $CellContext`t^(
               1 - $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3) (-1 + \
$CellContext`\[Sigma]2 + $CellContext`\[Sigma]3)^2 $CellContext`t0[
              1, 1, 1, 0]}, -1, 6, 1], 
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            36 E^(6 $CellContext`a3) $CellContext`t^(
               6 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 3]}, 6, 13, 1], 
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            E^($CellContext`a2 + 
               3 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]2 + 
               3 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]2 + 
               3 $CellContext`\[Sigma]3)^2 $CellContext`t0[0, 0, 1, 2]}, 3, 
            10, 1], 
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            4 E^(2 $CellContext`a2) $CellContext`t^(
               2 $CellContext`\[Sigma]2) $CellContext`\[Sigma]2^2 \
$CellContext`t0[0, 0, 2, 1]}, 0, 7, 1], 
           
           SeriesData[$CellContext`\[Xi]3, 0, {
            9 E^(3 $CellContext`a2 - 3 $CellContext`a3) $CellContext`t^(
               3 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
              0, 0, 3, 0]}, -3, 4, 1]}, -2, 5, 1],
         Editable->False], ")"}], "+", 
       RowBox[{
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           FractionBox[
            InterpretationBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"a1", "-", 
                 RowBox[{"3", " ", "a2"}]}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"1", "+", "\[Sigma]1", "-", 
                 RowBox[{"3", " ", "\[Sigma]2"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Sigma]1", "-", 
                  RowBox[{"3", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "]"}]}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^($CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
                 1 + $CellContext`\[Sigma]1 - 3 $CellContext`\[Sigma]2) (
                 1 + $CellContext`\[Sigma]1 - 
                 3 $CellContext`\[Sigma]2)^2 $CellContext`t0[1, 2, 0, 0]}, 0, 
              7, 1],
             Editable->False], 
            SuperscriptBox["\[Xi]2", "3"]], "+", 
           FractionBox[
            InterpretationBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"a1", "-", "a2", "+", 
                 RowBox[{"4", " ", "a3"}]}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2", "+", 
                 RowBox[{"4", " ", "\[Sigma]3"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]1", "-", "\[Sigma]2", "+", 
                  RowBox[{"4", " ", "\[Sigma]3"}]}], ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"0", ",", "1", ",", "0", ",", "2"}], "]"}], " ", 
               SuperscriptBox["\[Xi]3", "4"]}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "11"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 4, 11, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^($CellContext`a1 - $CellContext`a2 + 
                 4 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2 + 
                 4 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2 + 4 $CellContext`\[Sigma]3)^2 $CellContext`t0[
                0, 1, 0, 2]}, 4, 11, 1],
             Editable->False], "\[Xi]2"], "+", 
           RowBox[{"(", 
            InterpretationBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"a1", "+", "a3"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}], " ", 
               "\[Xi]3"}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "8"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 1, 8, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^($CellContext`a1 + $CellContext`a3) \
$CellContext`t^($CellContext`\[Sigma]1 + $CellContext`\[Sigma]3) \
($CellContext`\[Sigma]1 + $CellContext`\[Sigma]3)^2 $CellContext`t0[
                0, 1, 1, 1]}, 1, 8, 1],
             Editable->False], ")"}], "+", 
           RowBox[{
            RowBox[{"(", 
             InterpretationBox[
              RowBox[{
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"a1", "+", "a2", "-", 
                   RowBox[{"2", " ", "a3"}]}]], " ", 
                 SuperscriptBox["t", 
                  RowBox[{"\[Sigma]1", "+", "\[Sigma]2", "-", 
                   RowBox[{"2", " ", "\[Sigma]3"}]}]], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]1", "+", "\[Sigma]2", "-", 
                    RowBox[{"2", " ", "\[Sigma]3"}]}], ")"}], "2"], " ", 
                 RowBox[{"t0", "[", 
                  RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}]}], 
                SuperscriptBox["\[Xi]3", "2"]], "+", 
               InterpretationBox[
                SuperscriptBox[
                 RowBox[{"O", "[", "\[Xi]3", "]"}], "5"],
                SeriesData[$CellContext`\[Xi]3, 0, {}, -2, 5, 1],
                Editable->False]}],
              
              SeriesData[$CellContext`\[Xi]3, 0, {
               E^($CellContext`a1 + $CellContext`a2 - 
                  2 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - 
                  2 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - 2 $CellContext`\[Sigma]3)^2 $CellContext`t0[
                 0, 1, 2, 0]}, -2, 5, 1],
              Editable->False], ")"}], " ", "\[Xi]2"}], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "4"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -3, 4, 1],
            Editable->False]}],
          SeriesData[$CellContext`\[Xi]2, 0, {
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^($CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
                1 + $CellContext`\[Sigma]1 - 3 $CellContext`\[Sigma]2) (
                1 + $CellContext`\[Sigma]1 - 
                3 $CellContext`\[Sigma]2)^2 $CellContext`t0[1, 2, 0, 0]}, 0, 
             7, 1], 0, 
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^($CellContext`a1 - $CellContext`a2 + 
                4 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2 + 
                4 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2 + 4 $CellContext`\[Sigma]3)^2 $CellContext`t0[
               0, 1, 0, 2]}, 4, 11, 1], 
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^($CellContext`a1 + $CellContext`a3) \
$CellContext`t^($CellContext`\[Sigma]1 + $CellContext`\[Sigma]3) \
($CellContext`\[Sigma]1 + $CellContext`\[Sigma]3)^2 $CellContext`t0[
               0, 1, 1, 1]}, 1, 8, 1], 
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^($CellContext`a1 + $CellContext`a2 - 
                2 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - 
                2 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - 2 $CellContext`\[Sigma]3)^2 $CellContext`t0[
               0, 1, 2, 0]}, -2, 5, 1]}, -3, 4, 1],
          Editable->False], ")"}], " ", "\[Xi]1"}], "+", 
       RowBox[{
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           FractionBox[
            InterpretationBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"a1", "-", "a2", "+", "a3"}], ")"}]}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{"\[Sigma]1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], 
                  ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]1", "-", "\[Sigma]2", "+", "\[Sigma]3"}], 
                 ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"0", ",", "2", ",", "0", ",", "1"}], "]"}], " ", 
               SuperscriptBox["\[Xi]3", "2"]}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 2, 9, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              4 E^(2 ($CellContext`a1 - $CellContext`a2 + $CellContext`a3)) \
$CellContext`t^(
                 2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)) ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 0, 1]}, 2, 9, 1],
             Editable->False], 
            SuperscriptBox["\[Xi]2", "2"]], "+", 
           FractionBox[
            InterpretationBox[
             RowBox[{
              FractionBox[
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"2", " ", "a1"}], "-", "a2", "-", "a3"}]], " ", 
                SuperscriptBox["t", 
                 RowBox[{
                  RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2", "-", 
                  "\[Sigma]3"}]], " ", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", "2"}], " ", "\[Sigma]1"}], "+", "\[Sigma]2", 
                   "+", "\[Sigma]3"}], ")"}], "2"], " ", 
                RowBox[{"t0", "[", 
                 RowBox[{"0", ",", "2", ",", "1", ",", "0"}], "]"}]}], 
               "\[Xi]3"], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "6"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, -1, 6, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              E^(2 $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(
                 2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3) ((-2) $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 1, 0]}, -1, 6, 1],
             Editable->False], "\[Xi]2"], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -2, 5, 1],
            Editable->False]}],
          SeriesData[$CellContext`\[Xi]2, 0, {
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             4 E^(2 ($CellContext`a1 - $CellContext`a2 + $CellContext`a3)) \
$CellContext`t^(
                2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)) ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 0, 1]}, 2, 9, 1], 
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             E^(2 $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(
                2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3) ((-2) $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 1, 0]}, -1, 6, 1]}, -2, 5, 1],
          
          Editable->False], ")"}], " ", 
        SuperscriptBox["\[Xi]1", "2"]}], "+", 
       RowBox[{
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           FractionBox[
            InterpretationBox[
             RowBox[{
              RowBox[{"9", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"3", " ", "a1"}], "-", 
                 RowBox[{"3", " ", "a2"}]}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"3", " ", 
                 RowBox[{"(", 
                  RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
               RowBox[{"t0", "[", 
                RowBox[{"0", ",", "3", ",", "0", ",", "0"}], "]"}]}], "+", 
              InterpretationBox[
               SuperscriptBox[
                RowBox[{"O", "[", "\[Xi]3", "]"}], "7"],
               SeriesData[$CellContext`\[Xi]3, 0, {}, 0, 7, 1],
               Editable->False]}],
             
             SeriesData[$CellContext`\[Xi]3, 0, {
              9 E^(3 $CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
                 3 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^2 $CellContext`t0[
                0, 3, 0, 0]}, 0, 7, 1],
             Editable->False], 
            SuperscriptBox["\[Xi]2", "3"]], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "4"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -3, 4, 1],
            Editable->False]}],
          SeriesData[$CellContext`\[Xi]2, 0, {
            
            SeriesData[$CellContext`\[Xi]3, 0, {
             9 E^(3 $CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
                3 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^2 $CellContext`t0[
               0, 3, 0, 0]}, 0, 7, 1]}, -3, 4, 1],
          Editable->False], ")"}], " ", 
        SuperscriptBox["\[Xi]1", "3"]}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "4"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -3, 4, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           Rational[9, 2] 
            E^((-3) ($CellContext`a1 + $CellContext`a2)) $CellContext`t^((-3) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) (-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]2)^2 ((-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-6) + 2 $CellContext`t0[3, 0, 0, 0])}, 0, 7, 1]}, -3,
          4, 1], 
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           4 
            E^((-2) ($CellContext`a1 + $CellContext`a2 - $CellContext`a3)) \
$CellContext`t^((-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
             2, 0, 0, 1]}, 2, 9, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^((-2) $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(2 - 
              2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3) (-2 + 
              2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[2, 0, 1, 0]}, -1, 6, 1]}, -2, 5, 1], 
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^(-$CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
              2 - $CellContext`\[Sigma]1 - 
              3 $CellContext`\[Sigma]2) (-2 + $CellContext`\[Sigma]1 + 
              3 $CellContext`\[Sigma]2)^2 (-(1 - 
                2 $CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2)^(-2) + $CellContext`t0[2, 1, 0, 0])}, 0, 7, 1], 0, 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^(-$CellContext`a1 - $CellContext`a2 + 
              4 $CellContext`a3) $CellContext`t^(
              1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + 
              4 $CellContext`\[Sigma]3) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2 - 4 $CellContext`\[Sigma]3)^2 (-$CellContext`t0[
               0, 0, 0, 
                2] + (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^2 \
$CellContext`t0[1, 0, 0, 2])}, 4, 11, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^(-$CellContext`a1 + $CellContext`a3) $CellContext`t^(
              1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3) (
              1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3)^2 \
$CellContext`t0[1, 0, 1, 1]}, 1, 8, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^(-$CellContext`a1 + $CellContext`a2 - 
              2 $CellContext`a3) $CellContext`t^(
              1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
              2 $CellContext`\[Sigma]3) (
              1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
              2 $CellContext`\[Sigma]3)^2 $CellContext`t0[1, 0, 2, 0]}, -2, 5,
            1]}, -3, 4, 1], 
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^((-2) $CellContext`a2 + 2 $CellContext`a3) $CellContext`t^(1 - 
              2 $CellContext`\[Sigma]2 + 2 $CellContext`\[Sigma]3) (1 - 
              2 $CellContext`\[Sigma]2 + 
              2 $CellContext`\[Sigma]3)^2 $CellContext`t0[1, 1, 0, 1]}, 2, 9, 
           1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^(-$CellContext`a2 - $CellContext`a3) $CellContext`t^(
              1 - $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3) (-1 + \
$CellContext`\[Sigma]2 + $CellContext`\[Sigma]3)^2 $CellContext`t0[
             1, 1, 1, 0]}, -1, 6, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           36 E^(6 $CellContext`a3) $CellContext`t^(
              6 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 3]}, 6, 13, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^($CellContext`a2 + 
              3 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]2 + 
              3 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]2 + 
              3 $CellContext`\[Sigma]3)^2 $CellContext`t0[0, 0, 1, 2]}, 3, 10,
            1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           4 E^(2 $CellContext`a2) $CellContext`t^(
              2 $CellContext`\[Sigma]2) $CellContext`\[Sigma]2^2 \
$CellContext`t0[0, 0, 2, 1]}, 0, 7, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           9 E^(3 $CellContext`a2 - 3 $CellContext`a3) $CellContext`t^(
              3 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
             0, 0, 3, 0]}, -3, 4, 1]}, -2, 5, 1], 
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^($CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
              1 + $CellContext`\[Sigma]1 - 3 $CellContext`\[Sigma]2) (
              1 + $CellContext`\[Sigma]1 - 
              3 $CellContext`\[Sigma]2)^2 $CellContext`t0[1, 2, 0, 0]}, 0, 7, 
           1], 0, 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^($CellContext`a1 - $CellContext`a2 + 
              4 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2 + 
              4 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2 + 4 $CellContext`\[Sigma]3)^2 $CellContext`t0[
             0, 1, 0, 2]}, 4, 11, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^($CellContext`a1 + $CellContext`a3) \
$CellContext`t^($CellContext`\[Sigma]1 + $CellContext`\[Sigma]3) \
($CellContext`\[Sigma]1 + $CellContext`\[Sigma]3)^2 $CellContext`t0[
             0, 1, 1, 1]}, 1, 8, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^($CellContext`a1 + $CellContext`a2 - 
              2 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - 
              2 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - 2 $CellContext`\[Sigma]3)^2 $CellContext`t0[
             0, 1, 2, 0]}, -2, 5, 1]}, -3, 4, 1], 
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           4 E^(2 ($CellContext`a1 - $CellContext`a2 + $CellContext`a3)) \
$CellContext`t^(
              2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)) ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 0, 1]}, 2, 9, 1], 
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           E^(2 $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(
              2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3) ((-2) $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 1, 0]}, -1, 6, 1]}, -2, 5, 1], 
        SeriesData[$CellContext`\[Xi]2, 0, {
          
          SeriesData[$CellContext`\[Xi]3, 0, {
           9 E^(3 $CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
              
              3 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^2 $CellContext`t0[
             0, 3, 0, 0]}, 0, 7, 1]}, -3, 4, 1]}, -3, 4, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "3"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {}, 7, 7, 1]}, 0, 7, 1]}, 0, 7, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
            1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)}, 0, 7, 
         1]}, -1, 6, 1]}, -1, 6, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 
         0, {(-4) 
          E^((-2) ($CellContext`a1 + $CellContext`a2)) $CellContext`t^((-2) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) (-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 0, 7, 1]}, -2, 5, 1], 0, 
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^((-2) $CellContext`a2) $CellContext`t^(1 - 
            2 $CellContext`\[Sigma]2) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^(-2)}, 0, 7, 1], 0, 
        SeriesData[$CellContext`\[Xi]3, 0, {
         16 E^(4 $CellContext`a3) $CellContext`t^(
            4 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 2]}, 4, 11, 1]}, -2, 5, 1]}, -2, 5, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         Rational[9, 2] 
          E^((-3) ($CellContext`a1 + $CellContext`a2)) $CellContext`t^((-3) \
(-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) (-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]2)^2 ((-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-6) + 2 $CellContext`t0[3, 0, 0, 0])}, 0, 7, 1]}, -3,
        4, 1], 
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         4 E^((-2) ($CellContext`a1 + $CellContext`a2 - $CellContext`a3)) \
$CellContext`t^((-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
           2, 0, 0, 1]}, 2, 9, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^((-2) $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(2 - 
            2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - $CellContext`\
\[Sigma]3) (-2 + 
            2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + $CellContext`\
\[Sigma]3)^2 $CellContext`t0[2, 0, 1, 0]}, -1, 6, 1]}, -2, 5, 1], 
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^(-$CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
            2 - $CellContext`\[Sigma]1 - 
            3 $CellContext`\[Sigma]2) (-2 + $CellContext`\[Sigma]1 + 
            3 $CellContext`\[Sigma]2)^2 (-(1 - 
              2 $CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2)^(-2) + $CellContext`t0[2, 1, 0, 0])}, 0, 7, 1], 0, 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^(-$CellContext`a1 - $CellContext`a2 + 
            4 $CellContext`a3) $CellContext`t^(
            1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + 
            4 $CellContext`\[Sigma]3) (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2 - 4 $CellContext`\[Sigma]3)^2 (-$CellContext`t0[
             0, 0, 0, 
              2] + (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^2 \
$CellContext`t0[1, 0, 0, 2])}, 4, 11, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^(-$CellContext`a1 + $CellContext`a3) $CellContext`t^(
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3) (
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]3)^2 \
$CellContext`t0[1, 0, 1, 1]}, 1, 8, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^(-$CellContext`a1 + $CellContext`a2 - 
            2 $CellContext`a3) $CellContext`t^(
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
            2 $CellContext`\[Sigma]3) (
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 - 
            2 $CellContext`\[Sigma]3)^2 $CellContext`t0[1, 0, 2, 0]}, -2, 5, 
         1]}, -3, 4, 1], 
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^((-2) $CellContext`a2 + 2 $CellContext`a3) $CellContext`t^(1 - 
            2 $CellContext`\[Sigma]2 + 2 $CellContext`\[Sigma]3) (1 - 
            2 $CellContext`\[Sigma]2 + 
            2 $CellContext`\[Sigma]3)^2 $CellContext`t0[1, 1, 0, 1]}, 2, 9, 
         1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^(-$CellContext`a2 - $CellContext`a3) $CellContext`t^(
            1 - $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3) (-1 + \
$CellContext`\[Sigma]2 + $CellContext`\[Sigma]3)^2 $CellContext`t0[
           1, 1, 1, 0]}, -1, 6, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         36 E^(6 $CellContext`a3) $CellContext`t^(
            6 $CellContext`\[Sigma]3) $CellContext`\[Sigma]3^2 \
$CellContext`t0[0, 0, 0, 3]}, 6, 13, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^($CellContext`a2 + 
            3 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]2 + 
            3 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]2 + 
            3 $CellContext`\[Sigma]3)^2 $CellContext`t0[0, 0, 1, 2]}, 3, 10, 
         1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         4 E^(2 $CellContext`a2) $CellContext`t^(
            2 $CellContext`\[Sigma]2) $CellContext`\[Sigma]2^2 \
$CellContext`t0[0, 0, 2, 1]}, 0, 7, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         9 E^(3 $CellContext`a2 - 3 $CellContext`a3) $CellContext`t^(
            3 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^2 $CellContext`t0[
           0, 0, 3, 0]}, -3, 4, 1]}, -2, 5, 1], 
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^($CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
            1 + $CellContext`\[Sigma]1 - 3 $CellContext`\[Sigma]2) (
            1 + $CellContext`\[Sigma]1 - 
            3 $CellContext`\[Sigma]2)^2 $CellContext`t0[1, 2, 0, 0]}, 0, 7, 
         1], 0, 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^($CellContext`a1 - $CellContext`a2 + 
            4 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2 + 
            4 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2 + 4 $CellContext`\[Sigma]3)^2 $CellContext`t0[0, 1, 0, 2]}, 4, 11, 
         1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^($CellContext`a1 + $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]3)^2 $CellContext`t0[0, 1, 1, 1]}, 1, 8, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^($CellContext`a1 + $CellContext`a2 - 
            2 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 - 
            2 $CellContext`\[Sigma]3) ($CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2 - 2 $CellContext`\[Sigma]3)^2 $CellContext`t0[0, 1, 2, 0]}, -2, 5, 
         1]}, -3, 4, 1], 
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         4 E^(2 ($CellContext`a1 - $CellContext`a2 + $CellContext`a3)) \
$CellContext`t^(
            2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)) ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 0, 1]}, 2, 9, 1], 
        SeriesData[$CellContext`\[Xi]3, 0, {
         E^(2 $CellContext`a1 - $CellContext`a2 - $CellContext`a3) \
$CellContext`t^(
            2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2 - $CellContext`\
\[Sigma]3) ((-2) $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2 $CellContext`t0[0, 2, 1, 0]}, -1, 6, 1]}, -2, 5, 1], 
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {
         9 E^(3 $CellContext`a1 - 3 $CellContext`a2) $CellContext`t^(
            3 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^2 $CellContext`t0[
           0, 3, 0, 0]}, 0, 7, 1]}, -3, 4, 1]}, -3, 4, 1]}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.798704791234779*^9, {3.798704829317271*^9, 3.798704834095476*^9}, {
   3.798708521781928*^9, 3.798708537576129*^9}},
 CellLabel->
  "Out[128]=",ExpressionUUID->"ed9adf76-99ee-4211-a248-80dd89bdbc63"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"k", "+", "1"}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Tau0", "[", "t", "]"}], "-", "1"}], ")"}], "^", "k"}], "/",
        "k"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", 
       RowBox[{"n", "-", "1"}]}], "}"}]}], "]"}], "/.", 
   RowBox[{
    RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
    RowBox[{
     RowBox[{"p", "^", "2"}], " ", 
     RowBox[{"t", "^", "p"}]}]}]}], "//", "Normal"}]], "Input",
 CellChangeTimes->{{3.79870357313496*^9, 3.798703728178266*^9}, 
   3.79870379679039*^9, {3.798703862212398*^9, 3.798703868965008*^9}, {
   3.7987044009256973`*^9, 3.798704408005048*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"21b26ac0-c822-4ae9-bc0a-f92c30f7afa9"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a1"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"1", "-", "\[Sigma]1"}]], " ", "\[Epsilon]", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"]}], 
   RowBox[{"\[Xi]1", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
  RowBox[{
   SuperscriptBox["\[Epsilon]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
      RowBox[{"\[Xi]2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]}], ")"}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["\[Epsilon]", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"9", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"3", " ", "a2"}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"3", " ", "\[Sigma]2"}]], " ", 
      SuperscriptBox["\[Xi]2", "3"], " ", 
      SuperscriptBox["\[Sigma]2", "2"], " ", 
      RowBox[{"t0", "[", 
       RowBox[{"0", ",", "0", ",", "3"}], "]"}]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", "a1"}], "-", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{
         RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2"}]], " ", 
       SuperscriptBox["\[Xi]1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2"}], ")"}], "2"], 
       " ", 
       RowBox[{"t0", "[", 
        RowBox[{"0", ",", "2", ",", "1"}], "]"}]}], "\[Xi]2"], "+", 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"3", " ", 
         RowBox[{"(", 
          RowBox[{"a1", "-", "a2"}], ")"}]}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"3", " ", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], " ", 
       SuperscriptBox["\[Xi]1", "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       RowBox[{"t0", "[", 
        RowBox[{"0", ",", "3", ",", "0"}], "]"}]}], 
      SuperscriptBox["\[Xi]2", "3"]], "+", 
     RowBox[{"t", " ", 
      RowBox[{"t0", "[", 
       RowBox[{"1", ",", "1", ",", "1"}], "]"}]}], "+", 
     RowBox[{"\[Xi]1", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "+", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "1", ",", "2"}], "]"}]}], "+", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"a1", "-", 
            RowBox[{"2", " ", "a2"}]}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"1", "+", "\[Sigma]1", "-", 
            RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", "\[Sigma]1", "-", 
             RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
          RowBox[{"t0", "[", 
           RowBox[{"1", ",", "2", ",", "0"}], "]"}]}], 
         SuperscriptBox["\[Xi]2", "2"]]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "a1"}], "+", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"2", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}], "+", "\[Sigma]2"}]], " ", "\[Xi]2", 
       " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", "\[Sigma]2"}], ")"}], "2"], 
       " ", 
       RowBox[{"t0", "[", 
        RowBox[{"2", ",", "0", ",", "1"}], "]"}]}], 
      SuperscriptBox["\[Xi]1", "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", 
           RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
        RowBox[{"t0", "[", 
         RowBox[{"1", ",", "0", ",", "2"}], "]"}]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
             "2"]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]}], "+", 
         
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
          " ", 
          RowBox[{"t0", "[", 
           RowBox[{"2", ",", "1", ",", "0"}], "]"}]}]}], "\[Xi]2"]}], 
      "\[Xi]1"], "+", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "3"}], " ", "a1"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"3", "-", 
           RowBox[{"3", " ", "\[Sigma]1"}]}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"3", "-", 
            RowBox[{"3", " ", "\[Sigma]1"}]}], ")"}], "2"]}], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "6"]}]], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "3"}], " ", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"3", "-", 
          RowBox[{"3", " ", "\[Sigma]1"}]}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "-", 
           RowBox[{"3", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
        RowBox[{"t0", "[", 
         RowBox[{"3", ",", "0", ",", "0"}], "]"}]}]}], 
      SuperscriptBox["\[Xi]1", "3"]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.798704367924431*^9, {3.798704401877891*^9, 3.798704408519992*^9}, {
   3.7987047801471233`*^9, 3.79870480196793*^9}},
 CellLabel->"Out[28]=",ExpressionUUID->"916bfdd9-52e4-4f16-b7bd-a87ed851481b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "a1"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "-", "\[Sigma]1"}]], " ", "\[Epsilon]"}], "\[Xi]1"], 
     RowBox[{
      RowBox[{"Tau1", "[", "t", "]"}], "/", 
      RowBox[{"Tau0", "[", "t", "]"}]}]}], "//", "Simplify"}], ")"}], "//", 
  "Normal"}]], "Input",
 CellChangeTimes->{3.798704412136279*^9},
 CellLabel->"In[15]:=",ExpressionUUID->"e2552df6-9690-47ff-bf86-6f49c4195cf0"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a1"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"1", "-", "\[Sigma]1"}]], " ", "\[Epsilon]"}], "\[Xi]1"], "+", 
  RowBox[{
   SuperscriptBox["\[Epsilon]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}]]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "-", "\[Sigma]2"}]]}], 
      RowBox[{"\[Xi]2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]]}], ")"}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["\[Epsilon]", "3"], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"5", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "3"}], " ", "a1"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"3", "-", 
         RowBox[{"3", " ", "\[Sigma]1"}]}]]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Xi]1", "3"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"a1", "-", 
         RowBox[{"2", " ", "a2"}]}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "+", "\[Sigma]1", "-", 
         RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", "\[Xi]1"}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Xi]2", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]], "-", 
     FractionBox[
      RowBox[{"2", " ", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}]]}], 
      RowBox[{"\[Xi]1", " ", "\[Xi]2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}]}]], "+", 
     FractionBox["t", 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       SuperscriptBox["\[Sigma]2", "2"]}]]}], ")"}]}], "+", 
  RowBox[{
   SuperscriptBox["\[Epsilon]", "4"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", "a2"], " ", 
      SuperscriptBox["t", 
       RowBox[{"1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"t0", "[", 
          RowBox[{"0", ",", "1", ",", "2"}], "]"}]}], "+", 
        RowBox[{"t1", "[", 
         RowBox[{"0", ",", "1", ",", "2"}], "]"}]}], ")"}]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"a1", "-", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1", 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"t0", "[", 
           RowBox[{"0", ",", "2", ",", "1"}], "]"}]}], "+", 
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "2", ",", "1"}], "]"}]}], ")"}]}], "\[Xi]2"], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"2", " ", "a1"}], "-", 
         RowBox[{"3", " ", "a2"}]}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}], "-", 
         RowBox[{"3", " ", "\[Sigma]2"}]}]], " ", 
       SuperscriptBox["\[Xi]1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"t0", "[", 
           RowBox[{"0", ",", "3", ",", "0"}], "]"}]}], "+", 
         RowBox[{"t1", "[", 
          RowBox[{"0", ",", "3", ",", "0"}], "]"}]}], ")"}]}], 
      SuperscriptBox["\[Xi]2", "3"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", 
          RowBox[{"3", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "+", 
          RowBox[{"3", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"t0", "[", 
            RowBox[{"0", ",", "0", ",", "3"}], "]"}]}], "+", 
          RowBox[{"t1", "[", 
           RowBox[{"0", ",", "0", ",", "3"}], "]"}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", "\[Sigma]1"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             SuperscriptBox["\[Sigma]2", "2"]}]]}], "-", 
          RowBox[{"t0", "[", 
           RowBox[{"1", ",", "1", ",", "1"}], "]"}], "+", 
          RowBox[{"t1", "[", 
           RowBox[{"1", ",", "1", ",", "1"}], "]"}]}], ")"}]}]}], "\[Xi]1"], 
     "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"2", "-", 
         RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           FractionBox["1", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]], "-", 
           FractionBox["2", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]]}], 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]], "-", 
         RowBox[{"2", " ", 
          RowBox[{"t0", "[", 
           RowBox[{"1", ",", "2", ",", "0"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"t1", "[", 
           RowBox[{"1", ",", "2", ",", "0"}], "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Xi]2", "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "3"}], " ", "a1"}], "+", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"3", "-", 
         RowBox[{"3", " ", "\[Sigma]1"}], "+", "\[Sigma]2"}]], " ", "\[Xi]2", 
       " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"t0", "[", 
           RowBox[{"2", ",", "0", ",", "1"}], "]"}]}], "+", 
         RowBox[{"t1", "[", 
          RowBox[{"2", ",", "0", ",", "1"}], "]"}]}], ")"}]}], 
      SuperscriptBox["\[Xi]1", "3"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"t0", "[", 
            RowBox[{"1", ",", "0", ",", "2"}], "]"}]}], "+", 
          RowBox[{"t1", "[", 
           RowBox[{"1", ",", "0", ",", "2"}], "]"}]}], ")"}]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "a1"}], "-", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"3", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2"}]], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"13", "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["\[Sigma]1", "2"]}], "+", 
             RowBox[{"8", " ", "\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}]}], "-", 
             RowBox[{"10", " ", "\[Sigma]2"}], "+", 
             SuperscriptBox["\[Sigma]2", "2"]}], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "-", 
           RowBox[{"4", " ", 
            RowBox[{"t0", "[", 
             RowBox[{"2", ",", "1", ",", "0"}], "]"}]}], "+", 
           RowBox[{"4", " ", 
            RowBox[{"t1", "[", 
             RowBox[{"2", ",", "1", ",", "0"}], "]"}]}]}], ")"}]}], 
        RowBox[{"4", " ", "\[Xi]2"}]]}], 
      SuperscriptBox["\[Xi]1", "2"]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "4"}], " ", "a1"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"4", "-", 
         RowBox[{"4", " ", "\[Sigma]1"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "6"], " ", 
          RowBox[{"t0", "[", 
           RowBox[{"3", ",", "0", ",", "0"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "6"], " ", 
          RowBox[{"t1", "[", 
           RowBox[{"3", ",", "0", ",", "0"}], "]"}]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Xi]1", "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "6"]}]]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{{3.7987043838756123`*^9, 3.798704412504044*^9}},
 CellLabel->"Out[15]=",ExpressionUUID->"37ac4b0e-3c1b-4c17-b101-e50036707cef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"t0", "[", 
       RowBox[{"k", ",", "k", ",", "k"}], "]"}], "/.", "coeffs"}], "//", 
     "Simplify"}], ")"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.798269886983911*^9, 3.798269928071876*^9}, {
   3.7982699774178457`*^9, 3.798270004778483*^9}, {3.7982766791960278`*^9, 
   3.798276680754891*^9}, {3.7982783238036737`*^9, 3.798278332686254*^9}, {
   3.7983659488714533`*^9, 3.798365974800027*^9}, {3.798366038897887*^9, 
   3.798366087363549*^9}, {3.798366183179206*^9, 3.7983662730815496`*^9}, {
   3.798366334436494*^9, 3.798366348092515*^9}, {3.798436159707526*^9, 
   3.798436172369213*^9}, 3.798619467115788*^9, {3.798619521818869*^9, 
   3.798619569746402*^9}, {3.798704147664343*^9, 3.798704152288566*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"d333b561-ecda-412a-98dc-2a212e8a39bb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   FractionBox["1", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}]], ",", 
   RowBox[{"t0", "[", 
    RowBox[{"2", ",", "2", ",", "2"}], "]"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.798365956516246*^9, 3.79836597518993*^9}, {
   3.798366039726715*^9, 3.7983660878208933`*^9}, {3.798366185084725*^9, 
   3.79836627370603*^9}, {3.798366338932425*^9, 3.7983663489681807`*^9}, 
   3.798436173430624*^9, {3.798619464442711*^9, 3.79861946854456*^9}, {
   3.798619536287662*^9, 3.798619570114386*^9}, {3.798704143927041*^9, 
   3.798704153950346*^9}},
 CellLabel->
  "Out[131]=",ExpressionUUID->"d5fc9dbc-dfa4-4310-bf0d-3d48afc1169d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{
   RowBox[{
    RowBox[{"t0", "[", 
     RowBox[{"2", ",", "2", ",", "3"}], "]"}], "/.", "coeffs"}], "//", 
   "Simplify"}], ")"}]], "Input",
 CellChangeTimes->{{3.798619478918318*^9, 3.798619487521227*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"84a9803d-7eb4-4040-a97e-d089f6f4b672"],

Cell[BoxData[
 RowBox[{"t0", "[", 
  RowBox[{"2", ",", "2", ",", "3"}], "]"}]], "Output",
 CellChangeTimes->{{3.798619482200333*^9, 3.798619487936987*^9}},
 CellLabel->"Out[53]=",ExpressionUUID->"281a22b1-6efe-46de-9acd-50699c53d2e7"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.798436174866186*^9, 
  3.798436175520501*^9}},ExpressionUUID->"14e70c01-de81-4b68-8c97-\
77c71c3eec30"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"t0", "[", 
    RowBox[{"2", ",", "2", ",", "2"}], "]"}], "/.", "coeffs"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.798366277892082*^9, 3.798366279217622*^9}},
 CellLabel->
  "In[628]:=",ExpressionUUID->"e659888a-46d1-4dcb-b09a-99b9bc05161b"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"3", " ", 
    SuperscriptBox["\[Sigma]2", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}], "-", 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox["\[Sigma]2", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{"4", "+", 
      RowBox[{"3", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{"3", "-", 
      RowBox[{"3", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "6"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "6"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]2", "4"]}], "-", 
      RowBox[{"8", " ", 
       SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"3", "+", 
      RowBox[{"5", " ", 
       SuperscriptBox["\[Sigma]2", "2"]}], "-", 
      RowBox[{"12", " ", 
       SuperscriptBox["\[Sigma]2", "4"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]2", "6"]}], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}]}], 
  RowBox[{"8", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]1", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]2", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.7983662796883717`*^9},
 CellLabel->
  "Out[628]=",ExpressionUUID->"6e780e73-6fdf-446d-be3b-c2b7f24c3c2a"]
}, Open  ]],

Cell[BoxData["t1"], "Input",
 CellChangeTimes->{{3.7983662333969316`*^9, 
  3.7983662341841087`*^9}},ExpressionUUID->"e8a00397-aef7-4303-94cc-\
3e1f0f0ca554"],

Cell[BoxData[
 RowBox[{
  RowBox[{"TauTest", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"t0", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2"}], "]"}], " ", 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "\[Sigma]2"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"-", "a1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "a2"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n1"}], "+", "n2"}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", 
        RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", 
        RowBox[{"-", "n"}], ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", 
        RowBox[{"-", "n"}], ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", "coeffs"}]}]], "Input",\

 CellChangeTimes->{{3.798280137308864*^9, 
  3.798280145442711*^9}},ExpressionUUID->"e3bc3cd1-d9c0-4245-bcce-\
faef4b39dce9"],

Cell[BoxData[
 RowBox[{"Table", "[", "]"}]], "Input",
 CellChangeTimes->{{3.798280162193467*^9, 
  3.798280163756844*^9}},ExpressionUUID->"540b1cc2-38c0-48db-9004-\
b39b156bb7d7"],

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[{"\[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"}], ")"}]}]}]}], "Input",
 CellLabel->"In[90]:=",ExpressionUUID->"69c1f79b-4733-4927-a510-0c734b2ee0c5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"F0", "[", 
       RowBox[{
        RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
      RowBox[{
       RowBox[{"F0", "[", 
        RowBox[{
         RowBox[{"\[Sigma]1", "-", "1"}], ",", "\[Sigma]2"}], "]"}], "/", " ", 
       RowBox[{
        RowBox[{"F0", "[", 
         RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}], "^", "2"}]}]}], "/.", 
     RowBox[{
      RowBox[{"F0", "[", 
       RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_"}], "]"}], "\[Rule]", 
      RowBox[{"1", "/", 
       RowBox[{"Abs", "[", 
        RowBox[{
         RowBox[{"G", "[", 
          RowBox[{"1", "-", "\[Sigma]1"}], "]"}], 
         RowBox[{"G", "[", 
          RowBox[{"1", "+", "\[Sigma]1"}], "]"}], 
         RowBox[{"G", "[", 
          RowBox[{"1", "-", "\[Sigma]2"}], "]"}], 
         RowBox[{"G", "[", 
          RowBox[{"1", "+", "\[Sigma]2"}], "]"}], 
         RowBox[{"G", "[", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}], 
         RowBox[{"G", "[", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], "]"}]}], 
        "]"}]}]}]}], "//.", 
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{"x_", " ", "y_"}], " ", "]"}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"Abs", "[", "x", "]"}], 
      RowBox[{"Abs", "[", "y", "]"}]}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Sigma]1", " ", ">", "0"}], ",", " ", 
     RowBox[{"\[Sigma]2", " ", ">", "0"}], ",", " ", 
     RowBox[{"\[Sigma]3", " ", ">", "0"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.798270076494328*^9, 3.798270144173478*^9}, {
  3.7982701901643457`*^9, 3.798270191691409*^9}, {3.798270456279217*^9, 
  3.798270617403667*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"5e004098-772f-467a-92d1-a6d9aecacf72"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.798270097035798*^9, 3.798270148898827*^9, 3.7982701923889713`*^9, {
   3.798270452324078*^9, 3.798270617963896*^9}},
 CellLabel->
  "Out[145]=",ExpressionUUID->"86cd1d40-c155-4f35-9a8d-0a9483261ab1"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vTau0", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"A0", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "+", "n1", "-", "n0", "+", "1"}], ",", 
          RowBox[{"\[Sigma]2", "+", "n2", "-", "n1"}]}], "]"}], " ", "/", 
        RowBox[{"(", 
         RowBox[{"A0", "[", 
          RowBox[{
           RowBox[{"\[Sigma]1", "+", "1"}], ",", "\[Sigma]2"}], "]"}], 
         ")"}]}], 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "\[Sigma]2"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"-", "a1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "a2"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n1"}], "+", "n2"}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "coeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vTau1", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"A1", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "+", "n1", "-", "n0", "+", "1"}], ",", 
          RowBox[{"\[Sigma]2", "+", "n2", "-", "n1", "-", "1"}]}], "]"}], " ",
         "/", 
        RowBox[{"(", 
         RowBox[{"A1", "[", 
          RowBox[{
           RowBox[{"\[Sigma]1", "+", "1"}], ",", 
           RowBox[{"\[Sigma]2", "-", "1"}]}], "]"}], ")"}]}], " ", 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "\[Sigma]2"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"-", "a1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "a2"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n1"}], "+", "n2"}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "coeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vTau2", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"A2", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "+", "n1", "-", "n0"}], ",", 
          RowBox[{"\[Sigma]2", "+", "n2", "-", "n1", "+", "1"}]}], "]"}], " ",
         "/", 
        RowBox[{"(", 
         RowBox[{"A2", "[", 
          RowBox[{"\[Sigma]1", ",", 
           RowBox[{"\[Sigma]2", "+", "1"}]}], "]"}], ")"}]}], 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "\[Sigma]2"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"-", "a1"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", " ", "a2"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n1"}], "+", "n2"}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "coeffs"}]}]}], "Input",
 CellChangeTimes->{{3.7982702376380043`*^9, 3.79827030829081*^9}, {
  3.798270371619322*^9, 3.798270391530945*^9}, {3.798270660314815*^9, 
  3.7982706795230103`*^9}, {3.798271264245088*^9, 3.798271346928906*^9}, {
  3.798280480104307*^9, 3.798280503017746*^9}, {3.7982806423717413`*^9, 
  3.798280652442116*^9}, {3.79828079996706*^9, 3.7982808411858807`*^9}},
 CellLabel->
  "In[446]:=",ExpressionUUID->"27366b93-7abd-4206-bdb0-2a3a75d81e3a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"vtaude0", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"vTau0", "[", "t", "]"}], "//", "Normal"}], "]"}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], ")"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
        RowBox[{
         RowBox[{"p", "^", "2"}], " ", 
         RowBox[{"t", "^", "p"}]}]}]}], ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"-", "a1"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"1", "-", "\[Sigma]1"}]], " ", "\[Epsilon]"}], "\[Xi]1"], 
        RowBox[{
         RowBox[{"vTau1", "[", "t", "]"}], "/", 
         RowBox[{"vTau0", "[", "t", "]"}]}]}], "//", "Simplify"}], ")"}]}], 
    "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vtaude1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"vTau1", "[", "t", "]"}], "//", "Normal"}], "]"}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], ")"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
        RowBox[{
         RowBox[{"p", "^", "2"}], " ", 
         RowBox[{"t", "^", "p"}]}]}]}], ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "-", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1", " ", 
         "\[Epsilon]"}], "\[Xi]2"], 
       RowBox[{"vTau0", "[", "t", "]"}], 
       RowBox[{
        RowBox[{"vTau2", "[", "t", "]"}], "/", 
        RowBox[{
         RowBox[{"vTau1", "[", "t", "]"}], "^", "2"}]}]}], ")"}]}], 
    "\[Equal]", "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vtaude2", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"vTau2", "[", "t", "]"}], "//", "Normal"}], "]"}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], ")"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
        RowBox[{
         RowBox[{"p", "^", "2"}], " ", 
         RowBox[{"t", "^", "p"}]}]}]}], ")"}], "-", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "a2"], " ", 
       SuperscriptBox["t", "\[Sigma]2"], " ", "\[Xi]2", " ", "\[Epsilon]", 
       " ", 
       RowBox[{
        RowBox[{"vTau1", "[", "t", "]"}], "/", 
        RowBox[{"vTau2", "[", "t", "]"}]}]}], ")"}]}], "\[Equal]", "0"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.798270312251871*^9, 3.798270335347782*^9}, {
  3.79828077607124*^9, 3.79828077737891*^9}},
 CellLabel->
  "In[450]:=",ExpressionUUID->"3a0fe918-4fc7-4e0c-9e51-0767004f7db9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"coeffeq", " ", "=", " ", 
   RowBox[{"LogicalExpand", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{"vtaude0", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "&&", 
     " ", 
     RowBox[{"Series", "[", 
      RowBox[{"vtaude1", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}]}], "]"}], "&&", " ", 
     RowBox[{"Series", "[", 
      RowBox[{"vtaude2", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}]}], "]"}]}], " ", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7982703381434298`*^9, 3.798270341581685*^9}, {
  3.798280525622806*^9, 3.798280545529504*^9}},
 CellLabel->
  "In[453]:=",ExpressionUUID->"569e09a5-261a-4388-88a9-94f48502493f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{"Tau0", "[", "t", "]"}], "//", "Normal"}], "]"}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
      RowBox[{"(", 
       RowBox[{"n", "+", "1"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], ")"}], "/.", 
   RowBox[{
    RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
    RowBox[{
     RowBox[{"p", "^", "2"}], " ", 
     RowBox[{"t", "^", "p"}]}]}]}], ")"}]], "Input",
 CellLabel->
  "In[260]:=",ExpressionUUID->"77ae1bbe-bae5-469a-95ef-b7791b3752f1"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]2", "]"}], "7"],
       SeriesData[$CellContext`\[Xi]2, 0, {}, 7, 7, 1],
       Editable->False], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "7"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 7, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {}, 7, 7, 1]}, 0, 7, 1],
     Editable->False], ")"}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]1"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", "\[Epsilon]"}], 
    RowBox[{"\[Xi]1", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", "-", 
            RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], 
        RowBox[{
         SuperscriptBox["\[Xi]1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "2"}], " ", "a1"}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"2", "-", 
             RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "-", 
             RowBox[{"2", " ", "\[Sigma]1"}], "+", 
             SuperscriptBox["\[Sigma]1", "2"]}], ")"}]}], 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Xi]1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"-", "a2"}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
          RowBox[{"\[Xi]2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]}], 
        ")"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   RowBox[{
    FractionBox["1", "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"9", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "a1"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Xi]1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "a1"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
            "\[Sigma]1"}], 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Xi]1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "a1"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Xi]1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
           RowBox[{"\[Xi]2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]}], 
         ")"}]}], 
       RowBox[{"\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "a1"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "-", 
              RowBox[{"2", " ", "\[Sigma]1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"]}], ")"}]}], 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Xi]1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], "+", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
           RowBox[{"\[Xi]2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]}], 
         ")"}]}], 
       RowBox[{"\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"9", " ", 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"3", " ", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"3", " ", "\[Sigma]2"}]], " ", 
          SuperscriptBox["\[Xi]2", "3"], " ", 
          SuperscriptBox["\[Sigma]2", "2"], " ", 
          RowBox[{"t0", "[", 
           RowBox[{"0", ",", "0", ",", "3"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"a1", "+", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]1", " ", 
          "\[Xi]2", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
          RowBox[{"t0", "[", 
           RowBox[{"0", ",", "1", ",", "2"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"2", " ", "a1"}], "-", "a2"}]], " ", 
           SuperscriptBox["t", 
            RowBox[{
             RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2"}]], " ", 
           SuperscriptBox["\[Xi]1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2"}], ")"}], 
            "2"], " ", 
           RowBox[{"t0", "[", 
            RowBox[{"0", ",", "2", ",", "1"}], "]"}]}], "\[Xi]2"], "+", 
         FractionBox[
          RowBox[{"9", " ", 
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"3", " ", 
             RowBox[{"(", 
              RowBox[{"a1", "-", "a2"}], ")"}]}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"3", " ", 
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], " ", 
           SuperscriptBox["\[Xi]1", "3"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           RowBox[{"t0", "[", 
            RowBox[{"0", ",", "3", ",", "0"}], "]"}]}], 
          SuperscriptBox["\[Xi]2", "3"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "a1"}], "+", 
             RowBox[{"2", " ", "a2"}]}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"1", "-", "\[Sigma]1", "+", 
             RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
           SuperscriptBox["\[Xi]2", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", 
              RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
           RowBox[{"t0", "[", 
            RowBox[{"1", ",", "0", ",", "2"}], "]"}]}], "\[Xi]1"], "+", 
         RowBox[{"t", " ", 
          RowBox[{"t0", "[", 
           RowBox[{"1", ",", "1", ",", "1"}], "]"}]}], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{"a1", "-", 
             RowBox[{"2", " ", "a2"}]}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"1", "+", "\[Sigma]1", "-", 
             RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", "\[Xi]1", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", 
              RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}], "2"], " ", 
           RowBox[{"t0", "[", 
            RowBox[{"1", ",", "2", ",", "0"}], "]"}]}], 
          SuperscriptBox["\[Xi]2", "2"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "a1"}], "+", "a2"}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"2", "-", 
             RowBox[{"2", " ", "\[Sigma]1"}], "+", "\[Sigma]2"}]], " ", 
           "\[Xi]2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}], "+", "\[Sigma]2"}], ")"}], 
            "2"], " ", 
           RowBox[{"t0", "[", 
            RowBox[{"2", ",", "0", ",", "1"}], "]"}]}], 
          SuperscriptBox["\[Xi]1", "2"]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
           " ", 
           RowBox[{"t0", "[", 
            RowBox[{"2", ",", "1", ",", "0"}], "]"}]}], 
          RowBox[{"\[Xi]1", " ", "\[Xi]2"}]], "+", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "3"}], " ", "a1"}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"3", "-", 
             RowBox[{"3", " ", "\[Sigma]1"}]}]], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"3", "-", 
              RowBox[{"3", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
           RowBox[{"t0", "[", 
            RowBox[{"3", ",", "0", ",", "0"}], "]"}]}], 
          SuperscriptBox["\[Xi]1", "3"]]}], ")"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "3"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {}, 7, 7, 1]}, 0, 7, 1], 
    E^(-$CellContext`a1) $CellContext`t^(
      1 - $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-1) (
      1 - $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-2), 
    Rational[1, 2] (-
      E^((-2) $CellContext`a1) $CellContext`t^(2 - 
        2 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-2) (2 - 
        2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4) + 
     2 (Rational[1, 8] 
        E^((-2) $CellContext`a1) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-2) (2 - 
          2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4) (-1 - 
         2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2) + 
       E^(-$CellContext`a2) $CellContext`t^(
          1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]2^(-1) (
          1 - $CellContext`\[Sigma]2)^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2))), 
    Rational[1, 3] (
     E^(-$CellContext`a1) $CellContext`t^(
        1 - $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-1) (
        1 - $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-2) (
       Rational[9, 8] 
        E^((-2) $CellContext`a1) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-2) (2 - 
          2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4) + 
       Rational[1, 4] 
        E^((-2) $CellContext`a1) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-2) (2 - 
          2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4) \
$CellContext`\[Sigma]1 + 
       Rational[-1, 8] 
        E^((-2) $CellContext`a1) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-2) (2 - 
          2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4) \
$CellContext`\[Sigma]1^2 - 
       E^(-$CellContext`a2) $CellContext`t^(
         1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]2^(-1) (
         1 - $CellContext`\[Sigma]2)^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2)) - 2 
     E^(-$CellContext`a1) $CellContext`t^(
       1 - $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-1) (
       1 - $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-2) (
      Rational[1, 8] 
       E^((-2) $CellContext`a1) $CellContext`t^(2 - 
         2 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-2) (2 - 
         2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4) (-1 - 
        2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2) + 
      E^(-$CellContext`a2) $CellContext`t^(
         1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]2^(-1) (
         1 - $CellContext`\[Sigma]2)^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2)) + 
     3 (9 E^(3 $CellContext`a2) $CellContext`t^(
          3 $CellContext`\[Sigma]2) $CellContext`\[Xi]2^3 $CellContext`\
\[Sigma]2^2 $CellContext`t0[0, 0, 3] + 
       E^($CellContext`a1 + $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]2) $CellContext`\[Xi]1 $CellContext`\[Xi]2 \
($CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^2 $CellContext`t0[0, 1, 2] + 
       E^(2 $CellContext`a1 - $CellContext`a2) $CellContext`t^(
          2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\
\[Xi]1^2 $CellContext`\[Xi]2^(-1) (
          2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^2 \
$CellContext`t0[0, 2, 1] + 
       9 E^(3 ($CellContext`a1 - $CellContext`a2)) $CellContext`t^(
          3 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) $CellContext`\
\[Xi]1^3 $CellContext`\[Xi]2^(-3) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^2 $CellContext`t0[0, 3, 0] + 
       E^(-$CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(
          1 - $CellContext`\[Sigma]1 + 
          2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-1) $CellContext`\
\[Xi]2^2 (1 - $CellContext`\[Sigma]1 + 
          2 $CellContext`\[Sigma]2)^2 $CellContext`t0[
         1, 0, 2] + $CellContext`t $CellContext`t0[1, 1, 1] + 
       E^($CellContext`a1 - 2 $CellContext`a2) $CellContext`t^(
          1 + $CellContext`\[Sigma]1 - 
          2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1 \
$CellContext`\[Xi]2^(-2) (1 + $CellContext`\[Sigma]1 - 
          2 $CellContext`\[Sigma]2)^2 $CellContext`t0[1, 2, 0] + 
       E^((-2) $CellContext`a1 + $CellContext`a2) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) $CellContext`\
\[Xi]1^(-2) $CellContext`\[Xi]2 (2 - 
          2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^2 \
$CellContext`t0[2, 0, 1] + 
       E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
          2 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\
\[Xi]1^(-1) $CellContext`\[Xi]2^(-1) (
          2 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^2 \
$CellContext`t0[2, 1, 0] + 
       E^((-3) $CellContext`a1) $CellContext`t^(3 - 
          3 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-3) (3 - 
          3 $CellContext`\[Sigma]1)^2 $CellContext`t0[3, 0, 0]))}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.798275389338586*^9},
 CellLabel->
  "Out[260]=",ExpressionUUID->"2d8b7efa-8a49-4fe1-869e-dbecb0fdb317"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Tau0", "[", "t", "]"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Tau0", "[", "t", "]"}], "/.", 
         RowBox[{
          RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
          RowBox[{
           RowBox[{"p", "^", "2"}], " ", 
           RowBox[{"t", "^", "p"}]}]}]}], ")"}]}], "-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Tau0", "[", "t", "]"}], "/.", 
          RowBox[{
           RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
           RowBox[{"p", " ", 
            RowBox[{"t", "^", "p"}]}]}]}], ")"}], "^", "2"}], ")"}]}], ")"}], 
    "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", "3", ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", "3", ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", "3", ")"}]}]}], "//", "Simplify"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.798366831029063*^9, 3.798366890817655*^9}, {
  3.79836745060773*^9, 3.798367500218089*^9}, {3.798367614779303*^9, 
  3.7983676321802883`*^9}},
 CellLabel->
  "In[657]:=",ExpressionUUID->"7f672b3c-c1d5-4f5a-8ed9-6d7b8984f4c2"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]2", "]"}], "3"],
       SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1],
       Editable->False], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "3"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 3, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1]}, 0, 3, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", "a1"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]1"}]], " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "13"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 13, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          E^(-$CellContext`a1) $CellContext`t^(
             1 - $CellContext`\[Sigma]1) (-1 + $CellContext`\[Sigma]1)^(-2) \
$CellContext`\[Sigma]1^2}, 0, 13, 1],
         Editable->False], "\[Xi]1"], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "12"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -1, 12, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^(-$CellContext`a1) $CellContext`t^(
            1 - $CellContext`\[Sigma]1) (-1 + $CellContext`\[Sigma]1)^(-2) \
$CellContext`\[Sigma]1^2}, 0, 13, 1]}, -1, 12, 1],
      Editable->False], ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", "a1"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "13"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 13, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          Rational[1, 4] 
           E^((-2) $CellContext`a1) $CellContext`t^(2 - 
             2 $CellContext`\[Sigma]1) (1 - 
             2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4)}, 
          0, 13, 1],
         Editable->False], 
        SuperscriptBox["\[Xi]1", "2"]], "+", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
            "\[Xi]2"}]], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "12"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -1, 12, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          E^(-$CellContext`a2) $CellContext`t^(
             1 - $CellContext`\[Sigma]2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2) $CellContext`\
\[Sigma]2^2}, -1, 12, 1],
         Editable->False], ")"}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "11"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -2, 11, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
         Rational[1, 4] 
          E^((-2) $CellContext`a1) $CellContext`t^(2 - 
            2 $CellContext`\[Sigma]1) (1 - 
            2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4)}, 
         0, 13, 1], 0, 
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^(-$CellContext`a2) $CellContext`t^(
            1 - $CellContext`\[Sigma]2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2) $CellContext`\
\[Sigma]2^2}, -1, 12, 1]}, -2, 11, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1]}, 0, 3, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^(-$CellContext`a1) $CellContext`t^(
          1 - $CellContext`\[Sigma]1) (-1 + $CellContext`\[Sigma]1)^(-2) \
$CellContext`\[Sigma]1^2}, 0, 13, 1]}, -1, 12, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
       Rational[1, 4] 
        E^((-2) $CellContext`a1) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1) (1 - 
          2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4)}, 0, 
       13, 1], 0, 
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^(-$CellContext`a2) $CellContext`t^(
          1 - $CellContext`\[Sigma]2) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2) $CellContext`\[Sigma]2^2}, \
-1, 12, 1]}, -2, 11, 1]}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.798366893391548*^9, 3.798366919228387*^9}, 
   3.798367461545299*^9, {3.798367492765407*^9, 3.798367510782126*^9}, {
   3.798367623680216*^9, 3.798367634196685*^9}},
 CellLabel->
  "Out[657]=",ExpressionUUID->"f0f9a4dd-9b07-4eff-a862-21da1388e6e4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"k", "+", "1"}], ")"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Tau0", "[", "t", "]"}], "-", "1", "+", 
          RowBox[{
           RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
           RowBox[{"(", "3", ")"}]}], "+", 
          RowBox[{
           RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
           RowBox[{"(", "3", ")"}]}], "+", 
          RowBox[{
           RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
           RowBox[{"(", "3", ")"}]}]}], ")"}], "^", "k"}], "/", "k"}]}], ",", 
     
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "2"}], "}"}]}], "]"}], ")"}], "/.", 
  RowBox[{
   RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", " ", 
   RowBox[{
    RowBox[{"p", "^", "2"}], " ", 
    RowBox[{"t", "^", "p"}]}]}]}]], "Input",
 CellChangeTimes->{{3.798366983673348*^9, 3.798367022315482*^9}, {
   3.7983672173005667`*^9, 3.7983672267007303`*^9}, {3.798367399073*^9, 
   3.7983674138481007`*^9}, 3.798367540576016*^9},
 CellLabel->
  "In[655]:=",ExpressionUUID->"7f69390b-1e35-4163-997d-41456c8142b3"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]2", "]"}], "3"],
       SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1],
       Editable->False], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "3"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 3, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1]}, 0, 3, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", "a1"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]1"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "3"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 3, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          E^(-$CellContext`a1) $CellContext`t^(1 - $CellContext`\[Sigma]1) (
             1 - $CellContext`\[Sigma]1)^2 (-1 + \
$CellContext`\[Sigma]1)^(-2)}, 0, 3, 1],
         Editable->False], "\[Xi]1"], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "2"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -1, 2, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^(-$CellContext`a1) $CellContext`t^(1 - $CellContext`\[Sigma]1) (
            1 - $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-2)},
          0, 3, 1]}, -1, 2, 1],
      Editable->False], ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", "a1"}]], " ", 
             SuperscriptBox["t", 
              RowBox[{"2", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"2", "-", 
                RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], 
            RowBox[{"4", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]]}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "3"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 3, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          Rational[-1, 4] 
           E^((-2) $CellContext`a1) $CellContext`t^(2 - 
             2 $CellContext`\[Sigma]1) (2 - 
             2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4)}, 
          0, 3, 1],
         Editable->False], 
        SuperscriptBox["\[Xi]1", "2"]], "+", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          FractionBox[
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"-", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]2"}], ")"}], "2"]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
            "\[Xi]2"}]], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "2"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, -1, 2, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          E^(-$CellContext`a2) $CellContext`t^(1 - $CellContext`\[Sigma]2) (
             1 - $CellContext`\[Sigma]2)^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2)}, -1, 2, 1],
         Editable->False], ")"}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "1"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -2, 1, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
         Rational[-1, 4] 
          E^((-2) $CellContext`a1) $CellContext`t^(2 - 
            2 $CellContext`\[Sigma]1) (2 - 
            2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4)}, 
         0, 3, 1], 0, 
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^(-$CellContext`a2) $CellContext`t^(1 - $CellContext`\[Sigma]2) (
            1 - $CellContext`\[Sigma]2)^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2)}, -1, 2, 
         1]}, -2, 1, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1]}, 0, 3, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^(-$CellContext`a1) $CellContext`t^(1 - $CellContext`\[Sigma]1) (
          1 - $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-2)}, 
       0, 3, 1]}, -1, 2, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
       Rational[-1, 4] 
        E^((-2) $CellContext`a1) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1) (2 - 
          2 $CellContext`\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1)^(-4)}, 0, 
       3, 1], 0, 
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^(-$CellContext`a2) $CellContext`t^(1 - $CellContext`\[Sigma]2) (
          1 - $CellContext`\[Sigma]2)^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\[Sigma]2)^(-2)}, -1, 2, 
       1]}, -2, 1, 1]}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.79836722932701*^9, 3.7983672645253477`*^9, {3.798367399973819*^9, 
   3.798367414471375*^9}, 3.798367541253806*^9},
 CellLabel->
  "Out[655]=",ExpressionUUID->"a6ad2b89-0c37-4bb0-8ae0-107d50f5d5c3"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{
   RowBox[{"Tau0", "[", "t", "]"}], "-", "1"}], ")"}]], "Input",
 CellChangeTimes->{{3.798367231995789*^9, 
  3.798367257329693*^9}},ExpressionUUID->"e02caf23-695b-4ca1-a31c-\
30938ec4117b"]
},
WindowSize->{1920, 1037},
WindowMargins->{{0, Automatic}, {Automatic, 18}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 12534, 332, 717, "Input",ExpressionUUID->"45f0ad4a-754f-41f8-a483-c077c6705864"],
Cell[13095, 354, 11723, 335, 592, "Input",ExpressionUUID->"dc3effc5-390c-4b5c-9f6f-981959ddecaa"],
Cell[24821, 691, 380, 10, 47, "Input",ExpressionUUID->"c3677654-05fe-4766-9219-6586698020e9"],
Cell[25204, 703, 6380, 190, 345, "Input",ExpressionUUID->"89f1c56e-4e87-497f-94bb-3925c7acf9c2"],
Cell[31587, 895, 1844, 45, 82, "Input",ExpressionUUID->"c4dc56d4-0065-4260-bff8-81b8f2387be3"],
Cell[CellGroupData[{
Cell[33456, 944, 1490, 37, 82, "Input",ExpressionUUID->"abf2448e-47fa-4ddf-9770-0706af56979c"],
Cell[34949, 983, 430, 10, 34, "Message",ExpressionUUID->"7c1be90f-e70d-4923-ae1d-c13a5a0d97ee"],
Cell[35382, 995, 11939, 290, 260, "Output",ExpressionUUID->"e7405da0-08a0-4fc6-a148-a90adc7afd29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47358, 1290, 1004, 30, 47, "Input",ExpressionUUID->"3af873a4-85c8-4f76-9362-ee8035602eb3"],
Cell[48365, 1322, 67011, 1481, 1665, "Output",ExpressionUUID->"ed9adf76-99ee-4211-a248-80dd89bdbc63"]
}, Open  ]],
Cell[CellGroupData[{
Cell[115413, 2808, 956, 28, 47, "Input",ExpressionUUID->"21b26ac0-c822-4ae9-bc0a-f92c30f7afa9"],
Cell[116372, 2838, 8579, 245, 604, "Output",ExpressionUUID->"916bfdd9-52e4-4f16-b7bd-a87ed851481b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124988, 3088, 559, 16, 83, "Input",ExpressionUUID->"e2552df6-9690-47ff-bf86-6f49c4195cf0"],
Cell[125550, 3106, 11150, 322, 788, "Output",ExpressionUUID->"37ac4b0e-3c1b-4c17-b101-e50036707cef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[136737, 3433, 975, 20, 47, "Input",ExpressionUUID->"d333b561-ecda-412a-98dc-2a212e8a39bb"],
Cell[137715, 3455, 733, 16, 77, "Output",ExpressionUUID->"d5fc9dbc-dfa4-4310-bf0d-3d48afc1169d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138485, 3476, 326, 8, 47, "Input",ExpressionUUID->"84a9803d-7eb4-4040-a97e-d089f6f4b672"],
Cell[138814, 3486, 234, 4, 53, "Output",ExpressionUUID->"281a22b1-6efe-46de-9acd-50699c53d2e7"]
}, Open  ]],
Cell[139063, 3493, 152, 3, 47, "Input",ExpressionUUID->"14e70c01-de81-4b68-8c97-77c71c3eec30"],
Cell[CellGroupData[{
Cell[139240, 3500, 303, 8, 47, "Input",ExpressionUUID->"e659888a-46d1-4dcb-b09a-99b9bc05161b"],
Cell[139546, 3510, 2510, 78, 89, "Output",ExpressionUUID->"6e780e73-6fdf-446d-be3b-c2b7f24c3c2a"]
}, Open  ]],
Cell[142071, 3591, 158, 3, 47, "Input",ExpressionUUID->"e8a00397-aef7-4303-94cc-3e1f0f0ca554"],
Cell[142232, 3596, 2155, 67, 116, "Input",ExpressionUUID->"e3bc3cd1-d9c0-4245-bcce-faef4b39dce9"],
Cell[144390, 3665, 179, 4, 47, "Input",ExpressionUUID->"540b1cc2-38c0-48db-9004-b39b156bb7d7"],
Cell[144572, 3671, 3927, 122, 558, "Input",ExpressionUUID->"69c1f79b-4733-4927-a510-0c734b2ee0c5"],
Cell[CellGroupData[{
Cell[148524, 3797, 1851, 50, 116, "Input",ExpressionUUID->"5e004098-772f-467a-92d1-a6d9aecacf72"],
Cell[150378, 3849, 420, 11, 81, "Output",ExpressionUUID->"86cd1d40-c155-4f35-9a8d-0a9483261ab1"]
}, Open  ]],
Cell[150813, 3863, 7295, 217, 354, "Input",ExpressionUUID->"27366b93-7abd-4206-bdb0-2a3a75d81e3a"],
Cell[158111, 4082, 4431, 131, 272, "Input",ExpressionUUID->"3a0fe918-4fc7-4e0c-9e51-0767004f7db9"],
Cell[162545, 4215, 1061, 28, 82, "Input",ExpressionUUID->"569e09a5-261a-4388-88a9-94f48502493f"],
Cell[CellGroupData[{
Cell[163631, 4247, 878, 28, 47, "Input",ExpressionUUID->"77ae1bbe-bae5-469a-95ef-b7791b3752f1"],
Cell[164512, 4277, 19886, 490, 637, "Output",ExpressionUUID->"2d8b7efa-8a49-4fe1-869e-dbecb0fdb317"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184435, 4772, 1385, 40, 150, "Input",ExpressionUUID->"7f672b3c-c1d5-4f5a-8ed9-6d7b8984f4c2"],
Cell[185823, 4814, 6937, 174, 122, "Output",ExpressionUUID->"f0f9a4dd-9b07-4eff-a862-21da1388e6e4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192797, 4993, 1271, 37, 47, "Input",ExpressionUUID->"7f69390b-1e35-4163-997d-41456c8142b3"],
Cell[194071, 5032, 7112, 178, 122, "Output",ExpressionUUID->"a6ad2b89-0c37-4bb0-8ae0-107d50f5d5c3"]
}, Open  ]],
Cell[201198, 5213, 230, 6, 47, "Input",ExpressionUUID->"e02caf23-695b-4ca1-a31c-30938ec4117b"]
}
]
*)