A2_2_Qsystem.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[    226580,       6133]
NotebookOptionsPosition[    218903,       5994]
NotebookOutlinePosition[    219269,       6010]
CellTagsIndexPosition[    219226,       6007]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"totalcoeffs", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"c1", "[", 
         RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"1", "-", 
           RowBox[{"4", " ", "\[Sigma]1"}], "-", 
           RowBox[{"28", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"1", "-", 
            RowBox[{"4", " ", "\[Sigma]1"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            RowBox[{"96", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"]}]]}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"32", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox["4", 
          RowBox[{
           SuperscriptBox["\[Sigma]1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           RowBox[{"8", " ", "\[Sigma]1"}], "-", 
           RowBox[{"24", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "+", 
           RowBox[{"416", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "+", 
           RowBox[{"2032", " ", 
            SuperscriptBox["\[Sigma]1", "4"]}], "+", 
           RowBox[{"1536", " ", 
            SuperscriptBox["\[Sigma]1", "5"]}]}], 
          RowBox[{"16", " ", 
           SuperscriptBox["\[Sigma]1", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"9", "-", 
           RowBox[{"48", " ", "\[Sigma]1"}], "-", 
           RowBox[{"40", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "+", 
           RowBox[{"384", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "-", 
           RowBox[{"1264", " ", 
            SuperscriptBox["\[Sigma]1", "4"]}], "+", 
           RowBox[{"768", " ", 
            SuperscriptBox["\[Sigma]1", "5"]}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
           SuperscriptBox["\[Sigma]1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"3", "+", 
              RowBox[{"4", " ", "\[Sigma]1"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"]}]]}]}]}], "}"}],
       ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"81", "-", 
           RowBox[{"648", " ", "\[Sigma]1"}], "+", 
           RowBox[{"720", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "+", 
           RowBox[{"9312", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "+", 
           RowBox[{"59232", " ", 
            SuperscriptBox["\[Sigma]1", "4"]}], "+", 
           RowBox[{"252800", " ", 
            SuperscriptBox["\[Sigma]1", "5"]}], "+", 
           RowBox[{"281856", " ", 
            SuperscriptBox["\[Sigma]1", "6"]}], "-", 
           RowBox[{"288256", " ", 
            SuperscriptBox["\[Sigma]1", "7"]}], "-", 
           RowBox[{"175872", " ", 
            SuperscriptBox["\[Sigma]1", "8"]}], "+", 
           RowBox[{"86016", " ", 
            SuperscriptBox["\[Sigma]1", "9"]}]}], 
          RowBox[{"8", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
           SuperscriptBox["\[Sigma]1", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"9", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"18", "-", 
            RowBox[{"132", " ", "\[Sigma]1"}], "+", 
            RowBox[{"201", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            RowBox[{"984", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "-", 
            RowBox[{"4328", " ", 
             SuperscriptBox["\[Sigma]1", "4"]}], "+", 
            RowBox[{"7072", " ", 
             SuperscriptBox["\[Sigma]1", "5"]}], "-", 
            RowBox[{"5360", " ", 
             SuperscriptBox["\[Sigma]1", "6"]}], "+", 
            RowBox[{"1536", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}]}], 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "+", "\[Sigma]1", "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"5", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{"5", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "10"]}]]}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"192", " ", 
            SuperscriptBox["\[Sigma]1", "6"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"3", "+", 
              RowBox[{"32", " ", "\[Sigma]1"}], "+", 
              RowBox[{"12", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "81"}], "+", 
            RowBox[{"972", " ", "\[Sigma]1"}], "-", 
            RowBox[{"4788", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            RowBox[{"12096", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "+", 
            RowBox[{"328928", " ", 
             SuperscriptBox["\[Sigma]1", "4"]}], "+", 
            RowBox[{"4483200", " ", 
             SuperscriptBox["\[Sigma]1", "5"]}], "+", 
            RowBox[{"15641472", " ", 
             SuperscriptBox["\[Sigma]1", "6"]}], "+", 
            RowBox[{"13923328", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "-", 
            RowBox[{"9436416", " ", 
             SuperscriptBox["\[Sigma]1", "8"]}], "-", 
            RowBox[{"15037440", " ", 
             SuperscriptBox["\[Sigma]1", "9"]}], "+", 
            RowBox[{"523264", " ", 
             SuperscriptBox["\[Sigma]1", "10"]}], "+", 
            RowBox[{"3538944", " ", 
             SuperscriptBox["\[Sigma]1", "11"]}]}], 
           RowBox[{"96", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"9", "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "6"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "243"}], "+", 
           RowBox[{"2430", " ", "\[Sigma]1"}], "-", 
           RowBox[{"6417", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "-", 
           RowBox[{"14076", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "+", 
           RowBox[{"167664", " ", 
            SuperscriptBox["\[Sigma]1", "4"]}], "+", 
           RowBox[{"153504", " ", 
            SuperscriptBox["\[Sigma]1", "5"]}], "-", 
           RowBox[{"205024", " ", 
            SuperscriptBox["\[Sigma]1", "6"]}], "+", 
           RowBox[{"722176", " ", 
            SuperscriptBox["\[Sigma]1", "7"]}], "-", 
           RowBox[{"2348544", " ", 
            SuperscriptBox["\[Sigma]1", "8"]}], "+", 
           RowBox[{"962560", " ", 
            SuperscriptBox["\[Sigma]1", "9"]}], "+", 
           RowBox[{"1345280", " ", 
            SuperscriptBox["\[Sigma]1", "10"]}], "-", 
           RowBox[{"783360", " ", 
            SuperscriptBox["\[Sigma]1", "11"]}]}], 
          RowBox[{"16", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
           SuperscriptBox["\[Sigma]1", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"9", "-", 
              RowBox[{"9", " ", "\[Sigma]1"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"5", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"3", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "-", 
             RowBox[{"8", " ", "\[Sigma]1"}], "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "5"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"3", "+", "\[Sigma]1", "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"6", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "12"]}]]}]}]}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"3", " ", 
            RowBox[{"(", 
             RowBox[{"54", "-", 
              RowBox[{"972", " ", "\[Sigma]1"}], "+", 
              RowBox[{"7713", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}], "-", 
              RowBox[{"35764", " ", 
               SuperscriptBox["\[Sigma]1", "3"]}], "+", 
              RowBox[{"111187", " ", 
               SuperscriptBox["\[Sigma]1", "4"]}], "+", 
              RowBox[{"335130", " ", 
               SuperscriptBox["\[Sigma]1", "5"]}], "+", 
              RowBox[{"1567900", " ", 
               SuperscriptBox["\[Sigma]1", "6"]}], "-", 
              RowBox[{"2266968", " ", 
               SuperscriptBox["\[Sigma]1", "7"]}], "-", 
              RowBox[{"3447856", " ", 
               SuperscriptBox["\[Sigma]1", "8"]}], "+", 
              RowBox[{"3651040", " ", 
               SuperscriptBox["\[Sigma]1", "9"]}], "+", 
              RowBox[{"1883200", " ", 
               SuperscriptBox["\[Sigma]1", "10"]}], "-", 
              RowBox[{"1770624", " ", 
               SuperscriptBox["\[Sigma]1", "11"]}], "-", 
              RowBox[{"232448", " ", 
               SuperscriptBox["\[Sigma]1", "12"]}], "+", 
              RowBox[{"196608", " ", 
               SuperscriptBox["\[Sigma]1", "13"]}]}], ")"}]}], 
           RowBox[{"64", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
            SuperscriptBox["\[Sigma]1", "6"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"9", "-", 
               RowBox[{"13", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"5", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1350", "-", 
              RowBox[{"13680", " ", "\[Sigma]1"}], "+", 
              RowBox[{"34221", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}], "+", 
              RowBox[{"110494", " ", 
               SuperscriptBox["\[Sigma]1", "3"]}], "-", 
              RowBox[{"650904", " ", 
               SuperscriptBox["\[Sigma]1", "4"]}], "+", 
              RowBox[{"1337504", " ", 
               SuperscriptBox["\[Sigma]1", "5"]}], "+", 
              RowBox[{"3980640", " ", 
               SuperscriptBox["\[Sigma]1", "6"]}], "-", 
              RowBox[{"10498240", " ", 
               SuperscriptBox["\[Sigma]1", "7"]}], "+", 
              RowBox[{"10619392", " ", 
               SuperscriptBox["\[Sigma]1", "8"]}], "-", 
              RowBox[{"3667456", " ", 
               SuperscriptBox["\[Sigma]1", "9"]}], "-", 
              RowBox[{"6908672", " ", 
               SuperscriptBox["\[Sigma]1", "10"]}], "+", 
              RowBox[{"6102528", " ", 
               SuperscriptBox["\[Sigma]1", "11"]}], "+", 
              RowBox[{"79872", " ", 
               SuperscriptBox["\[Sigma]1", "12"]}], "-", 
              RowBox[{"589824", " ", 
               SuperscriptBox["\[Sigma]1", "13"]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"8", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "10"], " ", 
              SuperscriptBox["\[Sigma]1", "4"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "3"}], "+", 
                RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"15", "-", 
                 RowBox[{"11", " ", "\[Sigma]1"}], "-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[Sigma]1", "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}], 
             ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"6", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"3", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "-", 
              RowBox[{"8", " ", "\[Sigma]1"}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "7"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "+", "\[Sigma]1", "-", 
               RowBox[{"8", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"7", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{"7", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "14"]}]]}]}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "4"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"1024", " ", 
           SuperscriptBox["\[Sigma]1", "8"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "4"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "6"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "4"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"3", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"16", " ", "\[Sigma]1"}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "5"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "4"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"16", " ", 
           RowBox[{"(", 
            RowBox[{"56", "+", 
             RowBox[{"1215", " ", "\[Sigma]1"}], "+", 
             RowBox[{"6000", " ", 
              SuperscriptBox["\[Sigma]1", "2"]}], "+", 
             RowBox[{"3780", " ", 
              SuperscriptBox["\[Sigma]1", "3"]}], "-", 
             RowBox[{"4608", " ", 
              SuperscriptBox["\[Sigma]1", "4"]}], "-", 
             RowBox[{"4080", " ", 
              SuperscriptBox["\[Sigma]1", "5"]}], "+", 
             RowBox[{"768", " ", 
              SuperscriptBox["\[Sigma]1", "6"]}], "+", 
             RowBox[{"960", " ", 
              SuperscriptBox["\[Sigma]1", "7"]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox["\[Sigma]1", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "6"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"9", "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "4"}], "]"}], "\[Rule]", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"512", " ", 
            SuperscriptBox["\[Sigma]1", "8"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "8"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"9", "-", 
               RowBox[{"13", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "81"}], "+", 
            RowBox[{"1296", " ", "\[Sigma]1"}], "-", 
            RowBox[{"8838", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            RowBox[{"32544", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "-", 
            RowBox[{"64753", " ", 
             SuperscriptBox["\[Sigma]1", "4"]}], "+", 
            RowBox[{"3746176", " ", 
             SuperscriptBox["\[Sigma]1", "5"]}], "+", 
            RowBox[{"82698168", " ", 
             SuperscriptBox["\[Sigma]1", "6"]}], "+", 
            RowBox[{"580915136", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "+", 
            RowBox[{"1539908624", " ", 
             SuperscriptBox["\[Sigma]1", "8"]}], "+", 
            RowBox[{"628432640", " ", 
             SuperscriptBox["\[Sigma]1", "9"]}], "-", 
            RowBox[{"3714542848", " ", 
             SuperscriptBox["\[Sigma]1", "10"]}], "-", 
            RowBox[{"4732880896", " ", 
             SuperscriptBox["\[Sigma]1", "11"]}], "+", 
            RowBox[{"2042732800", " ", 
             SuperscriptBox["\[Sigma]1", "12"]}], "+", 
            RowBox[{"5601058816", " ", 
             SuperscriptBox["\[Sigma]1", "13"]}], "+", 
            RowBox[{"560986112", " ", 
             SuperscriptBox["\[Sigma]1", "14"]}], "-", 
            RowBox[{"2436448256", " ", 
             SuperscriptBox["\[Sigma]1", "15"]}], "-", 
            RowBox[{"587206656", " ", 
             SuperscriptBox["\[Sigma]1", "16"]}], "+", 
            RowBox[{"352518144", " ", 
             SuperscriptBox["\[Sigma]1", "17"]}], "+", 
            RowBox[{"75497472", " ", 
             SuperscriptBox["\[Sigma]1", "18"]}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"5", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "33750"}], "+", 
              RowBox[{"427500", " ", "\[Sigma]1"}], "-", 
              RowBox[{"1656075", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}], "-", 
              RowBox[{"1236800", " ", 
               SuperscriptBox["\[Sigma]1", "3"]}], "+", 
              RowBox[{"24069711", " ", 
               SuperscriptBox["\[Sigma]1", "4"]}], "+", 
              RowBox[{"1782854", " ", 
               SuperscriptBox["\[Sigma]1", "5"]}], "+", 
              RowBox[{"769477472", " ", 
               SuperscriptBox["\[Sigma]1", "6"]}], "+", 
              RowBox[{"4359522192", " ", 
               SuperscriptBox["\[Sigma]1", "7"]}], "+", 
              RowBox[{"5957680528", " ", 
               SuperscriptBox["\[Sigma]1", "8"]}], "-", 
              RowBox[{"4800521952", " ", 
               SuperscriptBox["\[Sigma]1", "9"]}], "-", 
              RowBox[{"18546394752", " ", 
               SuperscriptBox["\[Sigma]1", "10"]}], "-", 
              RowBox[{"12064848384", " ", 
               SuperscriptBox["\[Sigma]1", "11"]}], "+", 
              RowBox[{"20768514304", " ", 
               SuperscriptBox["\[Sigma]1", "12"]}], "+", 
              RowBox[{"21427358208", " ", 
               SuperscriptBox["\[Sigma]1", "13"]}], "-", 
              RowBox[{"13468389376", " ", 
               SuperscriptBox["\[Sigma]1", "14"]}], "-", 
              RowBox[{"9653186560", " ", 
               SuperscriptBox["\[Sigma]1", "15"]}], "+", 
              RowBox[{"4871909376", " ", 
               SuperscriptBox["\[Sigma]1", "16"]}], "+", 
              RowBox[{"775020544", " ", 
               SuperscriptBox["\[Sigma]1", "17"]}], "-", 
              RowBox[{"554139648", " ", 
               SuperscriptBox["\[Sigma]1", "18"]}], "+", 
              RowBox[{"66060288", " ", 
               SuperscriptBox["\[Sigma]1", "19"]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"32", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "10"], " ", 
              SuperscriptBox["\[Sigma]1", "6"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
              RowBox[{"(", 
               RowBox[{"3", "+", 
                RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"75", "-", 
                 RowBox[{"50", " ", "\[Sigma]1"}], "-", 
                 RowBox[{"87", " ", 
                  SuperscriptBox["\[Sigma]1", "2"]}], "+", 
                 RowBox[{"58", " ", 
                  SuperscriptBox["\[Sigma]1", "3"]}], "+", 
                 RowBox[{"12", " ", 
                  SuperscriptBox["\[Sigma]1", "4"]}], "-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["\[Sigma]1", "5"]}]}], ")"}], "2"]}], 
             ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"6", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"91125", "-", 
            RowBox[{"1014525", " ", "\[Sigma]1"}], "+", 
            RowBox[{"3165480", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            RowBox[{"6109560", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "-", 
            RowBox[{"62642160", " ", 
             SuperscriptBox["\[Sigma]1", "4"]}], "+", 
            RowBox[{"110072400", " ", 
             SuperscriptBox["\[Sigma]1", "5"]}], "+", 
            RowBox[{"136673408", " ", 
             SuperscriptBox["\[Sigma]1", "6"]}], "-", 
            RowBox[{"1038794496", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "+", 
            RowBox[{"1864247040", " ", 
             SuperscriptBox["\[Sigma]1", "8"]}], "-", 
            RowBox[{"1291600640", " ", 
             SuperscriptBox["\[Sigma]1", "9"]}], "-", 
            RowBox[{"296544256", " ", 
             SuperscriptBox["\[Sigma]1", "10"]}], "+", 
            RowBox[{"1068103680", " ", 
             SuperscriptBox["\[Sigma]1", "11"]}], "-", 
            RowBox[{"561500160", " ", 
             SuperscriptBox["\[Sigma]1", "12"]}], "-", 
            RowBox[{"11816960", " ", 
             SuperscriptBox["\[Sigma]1", "13"]}], "+", 
            RowBox[{"87785472", " ", 
             SuperscriptBox["\[Sigma]1", "14"]}], "-", 
            RowBox[{"18874368", " ", 
             SuperscriptBox["\[Sigma]1", "15"]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"16", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "12"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], " ", 
            SuperscriptBox["\[Sigma]1", "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "+", 
               RowBox[{"4", " ", "\[Sigma]1"}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"15", "+", 
               RowBox[{"4", " ", "\[Sigma]1"}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}], 
           ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"7", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"3", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "3"}], "-", 
             RowBox[{"8", " ", "\[Sigma]1"}], "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "9"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"3", "+", "\[Sigma]1", "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]1", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"8", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "16"]}]]}]}]}], 
       "}"}]}], "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.78773013931083*^9, 3.787730141265861*^9}, {
   3.787730636523983*^9, 3.78773064012951*^9}, {3.7877317985275717`*^9, 
   3.787731798943952*^9}, {3.7877319353662643`*^9, 3.78773193580167*^9}, {
   3.787732590588992*^9, 3.7877325909616013`*^9}, {3.788084147904845*^9, 
   3.7880841560847387`*^9}, 3.788084302938655*^9, {3.7880852668390703`*^9, 
   3.788085267483272*^9}, {3.788085384496194*^9, 3.7880853848443623`*^9}, {
   3.788086631619574*^9, 3.788086633111802*^9}, {3.788169280716364*^9, 
   3.788169287585281*^9}, {3.788169505269802*^9, 3.788169516845574*^9}, {
   3.788170081360881*^9, 3.788170081704067*^9}, {3.7881703290990543`*^9, 
   3.788170329542822*^9}, {3.7881711631699333`*^9, 3.788171163657415*^9}, {
   3.788258636891086*^9, 3.788258641937776*^9}, {3.788258748841847*^9, 
   3.788258749203083*^9}, {3.788258990342808*^9, 3.7882590021464643`*^9}, {
   3.7882601001558943`*^9, 3.7882601006664124`*^9}, {3.794161328374517*^9, 
   3.794161346207733*^9}, {3.794161543560272*^9, 3.794161549281168*^9}, {
   3.794161712185495*^9, 3.79416171244694*^9}, {3.794161769766717*^9, 
   3.794161770024049*^9}, {3.794167412693747*^9, 3.794167413047784*^9}, {
   3.794167469413939*^9, 3.7941674699508266`*^9}, {3.83162311474958*^9, 
   3.8316231181680613`*^9}, {3.831623237342416*^9, 3.8316232378068733`*^9}, {
   3.831623271462091*^9, 3.831623311832799*^9}, {3.831623414605714*^9, 
   3.831623414904915*^9}, {3.8316290470631247`*^9, 3.831629067216529*^9}, {
   3.831629207260435*^9, 3.831629208872541*^9}, {3.831629497822462*^9, 
   3.831629497998945*^9}, {3.831629678776863*^9, 3.831629701340983*^9}, {
   3.831629776444331*^9, 3.831629793706168*^9}, {3.831804209670665*^9, 
   3.831804210283572*^9}, {3.8318042525410433`*^9, 3.831804252903458*^9}, {
   3.831804302937497*^9, 3.831804303274398*^9}, {3.83180439663546*^9, 
   3.831804397404764*^9}, {3.8318044286422453`*^9, 3.8318044661433077`*^9}, {
   3.8318045383282833`*^9, 3.831804550732995*^9}, {3.831804602805174*^9, 
   3.831804619804098*^9}, {3.831805539015334*^9, 3.831805633661254*^9}, {
   3.831805670282238*^9, 3.831805683494687*^9}, {3.831805862447315*^9, 
   3.831805878520217*^9}},
 FontSize->9,
 CellLabel->
  "In[1781]:=",ExpressionUUID->"a55a72d0-c6df-4472-8db1-7f54caadc5ff"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "8"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X1", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c1", "[", 
        RowBox[{"n0", ",", "n1"}], "]"}], " ", 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", "\[Sigma]1"}]}], ")"}]}], "+", 
          RowBox[{"4", "n1", " ", "\[Sigma]1"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"-", "a1"}], ")"}]}], "+", 
          RowBox[{"2", "n1", " ", "a1"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", 
          RowBox[{"2", "n1"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "totalcoeffs"}]}]}], "Input",
 CellChangeTimes->{
  3.787730159717759*^9, {3.787730543517248*^9, 3.7877305516253023`*^9}, {
   3.787730612255776*^9, 3.7877307131466293`*^9}, {3.787730751526464*^9, 
   3.787730798806202*^9}, {3.787731195054178*^9, 3.78773119669555*^9}, {
   3.7877316129826803`*^9, 3.7877316175220213`*^9}, {3.787731748226349*^9, 
   3.787731803191227*^9}, {3.7877322797218657`*^9, 3.787732279937621*^9}, {
   3.788084165728489*^9, 3.788084185302211*^9}, 3.7880843088554792`*^9, {
   3.788084355010277*^9, 3.78808435758412*^9}, {3.788085243782707*^9, 
   3.78808527148099*^9}, 3.7880853885108633`*^9, 3.78816926716786*^9, {
   3.78816930112619*^9, 3.788169303371582*^9}, {3.788169389780792*^9, 
   3.788169568115238*^9}, {3.78816999778589*^9, 3.788169997935399*^9}, {
   3.788170032160324*^9, 3.788170085231773*^9}, {3.788170334893281*^9, 
   3.788170334988888*^9}, {3.7881711752380943`*^9, 3.788171175537838*^9}, {
   3.7881775755221643`*^9, 3.788177575800221*^9}, 3.788258644440065*^9, 
   3.788258752672884*^9, 3.78825908356558*^9, {3.7941613819830437`*^9, 
   3.7941613833707523`*^9}, {3.7941614818578253`*^9, 3.794161551925791*^9}, {
   3.794161602460009*^9, 3.7941616025582457`*^9}, {3.794161669803911*^9, 
   3.794161669970359*^9}, {3.794161715367734*^9, 3.794161715630774*^9}, {
   3.794167374786256*^9, 3.794167374965788*^9}, {3.794167416118163*^9, 
   3.79416741644066*^9}, {3.831623121654829*^9, 3.83162316013892*^9}, {
   3.8316232270657253`*^9, 3.831623240487129*^9}, {3.831623357287985*^9, 
   3.8316233574066353`*^9}, {3.831629053545433*^9, 3.83162916962923*^9}, {
   3.831629201427888*^9, 3.831629205127573*^9}, {3.8316293943776493`*^9, 
   3.8316294214333763`*^9}, {3.831629489201898*^9, 3.831629503280161*^9}, {
   3.831629534615057*^9, 3.8316295347396927`*^9}, {3.8316296177944736`*^9, 
   3.831629619646019*^9}, {3.831629669337358*^9, 3.831629720383655*^9}, {
   3.831733802213484*^9, 3.8317338023553753`*^9}, 3.831733845212584*^9, {
   3.831804213279851*^9, 3.8318042161614532`*^9}, {3.8318042562650213`*^9, 
   3.8318042592264214`*^9}, {3.831804401271934*^9, 3.831804410637937*^9}, {
   3.8318044435984497`*^9, 3.831804472767847*^9}, {3.831804553740354*^9, 
   3.831804554082418*^9}, {3.831805505858904*^9, 3.83180550808479*^9}, {
   3.831805542113792*^9, 3.831805637683193*^9}, {3.831805802589304*^9, 
   3.8318058026529303`*^9}, {3.831805885912636*^9, 3.8318058862138977`*^9}, {
   3.83180601906439*^9, 3.831806019869945*^9}},
 CellLabel->
  "In[1782]:=",ExpressionUUID->"4f1ffb98-dbf8-43f1-97ea-ed0c6405aa74"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"de1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"X1", "[", "t", "]"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{"p", "^", "2"}], " ", 
         RowBox[{"t", "^", "p"}]}]}]}], ")"}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "\[Epsilon]", " ", 
         SuperscriptBox["\[Xi]1", "2"], " ", 
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{"2", "a1"}], ")"}]}], " ", 
         RowBox[{"t", "^", 
          RowBox[{"(", 
           RowBox[{"4", "\[Sigma]1"}], ")"}]}], " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"2", 
           RowBox[{"X1", "[", "t", "]"}]}], "]"}]}], "-", 
        RowBox[{"\[Epsilon]", " ", 
         RowBox[{"\[Xi]1", "^", 
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}]}], 
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{"-", "a1"}], ")"}]}], " ", 
         RowBox[{"t", "^", 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", "\[Sigma]1"}]}], ")"}]}], " ", 
         RowBox[{"Exp", "[", 
          RowBox[{"-", 
           RowBox[{"X1", "[", "t", "]"}]}], "]"}]}]}], ")"}]}]}], "\[Equal]", 
    "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coeffeq", " ", "=", " ", 
   RowBox[{"LogicalExpand", "[", 
    RowBox[{"Series", "[", 
     RowBox[{"de1", ",", 
      RowBox[{"{", 
       RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}]}], "]"}], "  ", "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.787730996731065*^9, 3.7877310289044437`*^9}, {
   3.787731070678384*^9, 3.7877311070370502`*^9}, {3.788084328320689*^9, 
   3.788084347636444*^9}, {3.788169576847014*^9, 3.788169600120635*^9}, {
   3.78816967170196*^9, 3.7881696823039293`*^9}, {3.788169717463262*^9, 
   3.78816975630901*^9}, {3.7881698061585484`*^9, 3.788169839605112*^9}, {
   3.788169884048563*^9, 3.788169897128367*^9}, {3.788258666495018*^9, 
   3.788258671264329*^9}, 3.7937902483610067`*^9, {3.794161352626338*^9, 
   3.794161372949588*^9}, {3.794161559452354*^9, 3.794161570974193*^9}, {
   3.831623169512128*^9, 3.831623175695388*^9}, {3.831623206723569*^9, 
   3.8316232074127007`*^9}, {3.831629152609277*^9, 3.831629159948491*^9}, {
   3.831629432314913*^9, 3.831629455765464*^9}, {3.831629514910858*^9, 
   3.831629553496656*^9}, {3.831629664099415*^9, 3.831629664801977*^9}, {
   3.831805504427135*^9, 3.831805521083112*^9}, {3.832916266597896*^9, 
   3.832916273846163*^9}},ExpressionUUID->"66639251-3470-4d2f-978c-\
2cd1b2b938fa"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.831806017455962*^9},
 CellLabel->
  "Out[5615]=",ExpressionUUID->"49e59b7c-2920-4afa-8b02-a6ec3a5bfc8b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"coeffeq", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "\[Rule]", "1"}], ",", 
       RowBox[{"a1", "\[Rule]", "0"}], ",", 
       RowBox[{"a2", "\[Rule]", "0"}]}], "}"}]}], ",", " ", 
    RowBox[{"Flatten", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"n0", ",", "n1"}], "]"}], ",", 
         RowBox[{"c2", "[", 
          RowBox[{"n0", ",", "n1"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"n1", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], "]"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.7877316911443443`*^9, 3.787731704447397*^9}, {
   3.788169943871805*^9, 3.788169964465197*^9}, {3.794161576248487*^9, 
   3.794161586992406*^9}, 3.794161707396092*^9, {3.831629180650229*^9, 
   3.831629184699135*^9}, {3.831629687748395*^9, 3.831629688918148*^9}, {
   3.831733814699173*^9, 3.831733818514008*^9}},
 CellLabel->
  "In[5611]:=",ExpressionUUID->"8066e149-0311-4d71-9a18-5acfb17bea49"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"0", ",", "4"}], "]"}], "\[Rule]", 
     FractionBox["1", 
      RowBox[{"1024", " ", 
       SuperscriptBox["\[Sigma]1", "8"]}]]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"1", ",", "4"}], "]"}], "\[Rule]", 
     FractionBox["1", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "6"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"2", ",", "4"}], "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"16", " ", "\[Sigma]1"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]1", "5"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"]}]]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"2", ",", "5"}], "]"}], "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         RowBox[{"4", " ", "\[Sigma]1"}], "+", 
         RowBox[{"164", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}], "+", 
         RowBox[{"1952", " ", 
          SuperscriptBox["\[Sigma]1", "3"]}], "+", 
         RowBox[{"70416", " ", 
          SuperscriptBox["\[Sigma]1", "4"]}], "+", 
         RowBox[{"785856", " ", 
          SuperscriptBox["\[Sigma]1", "5"]}], "+", 
         RowBox[{"2746816", " ", 
          SuperscriptBox["\[Sigma]1", "6"]}], "+", 
         RowBox[{"491520", " ", 
          SuperscriptBox["\[Sigma]1", "7"]}]}], 
        RowBox[{"5120", " ", 
         SuperscriptBox["\[Sigma]1", "10"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"]}]]}], "+", 
      FractionBox[
       RowBox[{"c1", "[", 
        RowBox[{"0", ",", "5"}], "]"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"6", " ", "\[Sigma]1"}], "-", 
          RowBox[{"16", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "-", 
      FractionBox[
       RowBox[{"c1", "[", 
        RowBox[{"1", ",", "5"}], "]"}], 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"8", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]}]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"3", ",", "4"}], "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{"16", " ", 
       RowBox[{"(", 
        RowBox[{"56", "+", 
         RowBox[{"1215", " ", "\[Sigma]1"}], "+", 
         RowBox[{"6000", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}], "+", 
         RowBox[{"3780", " ", 
          SuperscriptBox["\[Sigma]1", "3"]}], "-", 
         RowBox[{"4608", " ", 
          SuperscriptBox["\[Sigma]1", "4"]}], "-", 
         RowBox[{"4080", " ", 
          SuperscriptBox["\[Sigma]1", "5"]}], "+", 
         RowBox[{"768", " ", 
          SuperscriptBox["\[Sigma]1", "6"]}], "+", 
         RowBox[{"960", " ", 
          SuperscriptBox["\[Sigma]1", "7"]}]}], ")"}]}], 
      RowBox[{
       SuperscriptBox["\[Sigma]1", "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"9", "-", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"3", ",", "5"}], "]"}], "\[Rule]", 
     RowBox[{"-", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"640", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"8", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"3", "+", 
            RowBox[{"14", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          FractionBox["1", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "10"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"9", "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]], 
          RowBox[{"(", 
           RowBox[{"81", "+", 
            RowBox[{"1539", " ", "\[Sigma]1"}], "-", 
            RowBox[{"3879", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "-", 
            RowBox[{"217152", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "-", 
            RowBox[{"239528", " ", 
             SuperscriptBox["\[Sigma]1", "4"]}], "+", 
            RowBox[{"69715696", " ", 
             SuperscriptBox["\[Sigma]1", "5"]}], "+", 
            RowBox[{"1564352112", " ", 
             SuperscriptBox["\[Sigma]1", "6"]}], "+", 
            RowBox[{"17115175424", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "+", 
            RowBox[{"102317183488", " ", 
             SuperscriptBox["\[Sigma]1", "8"]}], "+", 
            RowBox[{"321396613376", " ", 
             SuperscriptBox["\[Sigma]1", "9"]}], "+", 
            RowBox[{"421196437248", " ", 
             SuperscriptBox["\[Sigma]1", "10"]}], "-", 
            RowBox[{"60685279232", " ", 
             SuperscriptBox["\[Sigma]1", "11"]}], "-", 
            RowBox[{"409879709696", " ", 
             SuperscriptBox["\[Sigma]1", "12"]}], "-", 
            RowBox[{"137110695936", " ", 
             SuperscriptBox["\[Sigma]1", "13"]}], "+", 
            RowBox[{"86822129664", " ", 
             SuperscriptBox["\[Sigma]1", "14"]}], "+", 
            RowBox[{"43159388160", " ", 
             SuperscriptBox["\[Sigma]1", "15"]}]}], ")"}]}], "+", 
         RowBox[{"5120", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"11", " ", "\[Sigma]1"}], "+", 
            RowBox[{"49", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
          RowBox[{"c1", "[", 
           RowBox[{"0", ",", "5"}], "]"}]}], "-", 
         RowBox[{"3200", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"12", " ", "\[Sigma]1"}], "+", 
            RowBox[{"52", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
          RowBox[{"c1", "[", 
           RowBox[{"1", ",", "5"}], "]"}]}]}], ")"}]}]}]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"4", ",", "4"}], "]"}], "\[Rule]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"512", " ", 
        SuperscriptBox["\[Sigma]1", "8"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "8"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"9", "-", 
           RowBox[{"13", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "81"}], "+", 
        RowBox[{"1296", " ", "\[Sigma]1"}], "-", 
        RowBox[{"8838", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"32544", " ", 
         SuperscriptBox["\[Sigma]1", "3"]}], "-", 
        RowBox[{"64753", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}], "+", 
        RowBox[{"3746176", " ", 
         SuperscriptBox["\[Sigma]1", "5"]}], "+", 
        RowBox[{"82698168", " ", 
         SuperscriptBox["\[Sigma]1", "6"]}], "+", 
        RowBox[{"580915136", " ", 
         SuperscriptBox["\[Sigma]1", "7"]}], "+", 
        RowBox[{"1539908624", " ", 
         SuperscriptBox["\[Sigma]1", "8"]}], "+", 
        RowBox[{"628432640", " ", 
         SuperscriptBox["\[Sigma]1", "9"]}], "-", 
        RowBox[{"3714542848", " ", 
         SuperscriptBox["\[Sigma]1", "10"]}], "-", 
        RowBox[{"4732880896", " ", 
         SuperscriptBox["\[Sigma]1", "11"]}], "+", 
        RowBox[{"2042732800", " ", 
         SuperscriptBox["\[Sigma]1", "12"]}], "+", 
        RowBox[{"5601058816", " ", 
         SuperscriptBox["\[Sigma]1", "13"]}], "+", 
        RowBox[{"560986112", " ", 
         SuperscriptBox["\[Sigma]1", "14"]}], "-", 
        RowBox[{"2436448256", " ", 
         SuperscriptBox["\[Sigma]1", "15"]}], "-", 
        RowBox[{"587206656", " ", 
         SuperscriptBox["\[Sigma]1", "16"]}], "+", 
        RowBox[{"352518144", " ", 
         SuperscriptBox["\[Sigma]1", "17"]}], "+", 
        RowBox[{"75497472", " ", 
         SuperscriptBox["\[Sigma]1", "18"]}]}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"5", ",", "3"}], "]"}], "\[Rule]", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "33750"}], "+", 
          RowBox[{"427500", " ", "\[Sigma]1"}], "-", 
          RowBox[{"1656075", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "-", 
          RowBox[{"1236800", " ", 
           SuperscriptBox["\[Sigma]1", "3"]}], "+", 
          RowBox[{"24069711", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}], "+", 
          RowBox[{"1782854", " ", 
           SuperscriptBox["\[Sigma]1", "5"]}], "+", 
          RowBox[{"769477472", " ", 
           SuperscriptBox["\[Sigma]1", "6"]}], "+", 
          RowBox[{"4359522192", " ", 
           SuperscriptBox["\[Sigma]1", "7"]}], "+", 
          RowBox[{"5957680528", " ", 
           SuperscriptBox["\[Sigma]1", "8"]}], "-", 
          RowBox[{"4800521952", " ", 
           SuperscriptBox["\[Sigma]1", "9"]}], "-", 
          RowBox[{"18546394752", " ", 
           SuperscriptBox["\[Sigma]1", "10"]}], "-", 
          RowBox[{"12064848384", " ", 
           SuperscriptBox["\[Sigma]1", "11"]}], "+", 
          RowBox[{"20768514304", " ", 
           SuperscriptBox["\[Sigma]1", "12"]}], "+", 
          RowBox[{"21427358208", " ", 
           SuperscriptBox["\[Sigma]1", "13"]}], "-", 
          RowBox[{"13468389376", " ", 
           SuperscriptBox["\[Sigma]1", "14"]}], "-", 
          RowBox[{"9653186560", " ", 
           SuperscriptBox["\[Sigma]1", "15"]}], "+", 
          RowBox[{"4871909376", " ", 
           SuperscriptBox["\[Sigma]1", "16"]}], "+", 
          RowBox[{"775020544", " ", 
           SuperscriptBox["\[Sigma]1", "17"]}], "-", 
          RowBox[{"554139648", " ", 
           SuperscriptBox["\[Sigma]1", "18"]}], "+", 
          RowBox[{"66060288", " ", 
           SuperscriptBox["\[Sigma]1", "19"]}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"32", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "10"], " ", 
          SuperscriptBox["\[Sigma]1", "6"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
          RowBox[{"(", 
           RowBox[{"3", "+", 
            RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"75", "-", 
             RowBox[{"50", " ", "\[Sigma]1"}], "-", 
             RowBox[{"87", " ", 
              SuperscriptBox["\[Sigma]1", "2"]}], "+", 
             RowBox[{"58", " ", 
              SuperscriptBox["\[Sigma]1", "3"]}], "+", 
             RowBox[{"12", " ", 
              SuperscriptBox["\[Sigma]1", "4"]}], "-", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]1", "5"]}]}], ")"}], "2"]}], ")"}]}], 
       ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"6", ",", "2"}], "]"}], "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"91125", "-", 
        RowBox[{"1014525", " ", "\[Sigma]1"}], "+", 
        RowBox[{"3165480", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"6109560", " ", 
         SuperscriptBox["\[Sigma]1", "3"]}], "-", 
        RowBox[{"62642160", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}], "+", 
        RowBox[{"110072400", " ", 
         SuperscriptBox["\[Sigma]1", "5"]}], "+", 
        RowBox[{"136673408", " ", 
         SuperscriptBox["\[Sigma]1", "6"]}], "-", 
        RowBox[{"1038794496", " ", 
         SuperscriptBox["\[Sigma]1", "7"]}], "+", 
        RowBox[{"1864247040", " ", 
         SuperscriptBox["\[Sigma]1", "8"]}], "-", 
        RowBox[{"1291600640", " ", 
         SuperscriptBox["\[Sigma]1", "9"]}], "-", 
        RowBox[{"296544256", " ", 
         SuperscriptBox["\[Sigma]1", "10"]}], "+", 
        RowBox[{"1068103680", " ", 
         SuperscriptBox["\[Sigma]1", "11"]}], "-", 
        RowBox[{"561500160", " ", 
         SuperscriptBox["\[Sigma]1", "12"]}], "-", 
        RowBox[{"11816960", " ", 
         SuperscriptBox["\[Sigma]1", "13"]}], "+", 
        RowBox[{"87785472", " ", 
         SuperscriptBox["\[Sigma]1", "14"]}], "-", 
        RowBox[{"18874368", " ", 
         SuperscriptBox["\[Sigma]1", "15"]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"16", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "12"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], " ", 
        SuperscriptBox["\[Sigma]1", "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"4", " ", "\[Sigma]1"}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"15", "+", 
           RowBox[{"4", " ", "\[Sigma]1"}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}], ")"}]}]}], 
    ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"7", ",", "1"}], "]"}], "\[Rule]", 
     FractionBox[
      RowBox[{"3", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "-", 
         RowBox[{"8", " ", "\[Sigma]1"}], "+", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "9"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "+", "\[Sigma]1", "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}]]}], ",", 
    RowBox[{
     RowBox[{"c1", "[", 
      RowBox[{"8", ",", "0"}], "]"}], "\[Rule]", 
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "16"]}]]}]}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.831623186967236*^9, {3.831623219246176*^9, 3.831623256422847*^9}, 
   3.831623325899002*^9, 3.831623403906719*^9, {3.831629185249669*^9, 
   3.831629213521789*^9}, 3.8316295611522818`*^9, {3.831629602101274*^9, 
   3.831629622396009*^9}, {3.8316296671575603`*^9, 3.8316297237000017`*^9}, 
   3.8316297876864862`*^9, {3.8317338264464006`*^9, 3.83173385943515*^9}, 
   3.831804241318735*^9, 3.831804295183223*^9, {3.8318044084705772`*^9, 
   3.8318044503402042`*^9}, 3.83180449319696*^9, 3.831804583032814*^9, {
   3.831805550375967*^9, 3.831805619588924*^9}, 3.831805662117239*^9, 
   3.831805702553617*^9, 3.8318058522629747`*^9},
 CellLabel->
  "Out[5611]=",ExpressionUUID->"da788ab1-672e-44df-9b2e-1fe50dcc0838"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Aux0", "[", "t_", "]"}], ":=", " ", 
  RowBox[{"\[Epsilon]", " ", 
   RowBox[{"\[Xi]1", "^", 
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}]}], 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"-", "a1"}], ")"}]}], " ", 
   RowBox[{"t", "^", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"2", "\[Sigma]1"}]}], ")"}]}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{"X1", "[", "t", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Aux1", "[", "t_", "]"}], ":=", 
  RowBox[{"\[Epsilon]", " ", 
   SuperscriptBox["\[Xi]1", "2"], " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"2", "a1"}], ")"}]}], " ", 
   RowBox[{"t", "^", 
    RowBox[{"(", 
     RowBox[{"4", "\[Sigma]1"}], ")"}]}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"2", 
     RowBox[{"X1", "[", "t", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Aux2", "[", "t_", "]"}], ":=", 
  RowBox[{"\[Epsilon]", " ", 
   SuperscriptBox["\[Xi]1", "1"], " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", "a1", ")"}]}], " ", 
   RowBox[{"t", "^", 
    RowBox[{"(", 
     RowBox[{"2", "\[Sigma]1"}], ")"}]}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"+", 
     RowBox[{"X1", "[", "t", "]"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.787731959528469*^9, 3.787731961186884*^9}, 
   3.78817370322003*^9, 3.7882590539273243`*^9, {3.794161784194721*^9, 
   3.79416181038885*^9}, {3.831623332556868*^9, 3.83162333551628*^9}, 
   3.831805653252349*^9, {3.832909372774562*^9, 3.832909378726631*^9}, {
   3.832909717509368*^9, 3.832909730283099*^9}},
 CellLabel->
  "In[1807]:=",ExpressionUUID->"842e62c6-1ac5-44d8-8863-ecad1fc5227b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Tau0", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Aux0", "[", "t", "]"}], "//", "Normal"}], "//", "Expand"}],
         ")"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{
          RowBox[{"t", "^", "p"}], "/", 
          RowBox[{"p", "^", "2"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}]}]}]}], ")"}], "//", "Exp"}], "//",
     "Expand"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tau1", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Aux1", "[", "t", "]"}], "//", "Normal"}], "//", "Expand"}],
         ")"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{
          RowBox[{"t", "^", "p"}], "/", 
          RowBox[{"p", "^", "2"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}]}]}]}], ")"}], "//", "Exp"}], "//",
     "Expand"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Tau2", "[", "t_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Aux2", "[", "t", "]"}], "//", "Normal"}], "//", "Expand"}],
         ")"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{
          RowBox[{"t", "^", "p"}], "/", 
          RowBox[{"p", "^", "2"}]}], "+", 
         RowBox[{
          RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
          RowBox[{"(", 
           RowBox[{"n", "+", "1"}], ")"}]}]}]}]}], ")"}], "//", "Exp"}], "//",
     "Expand"}]}], ";"}]}], "Input",
 CellChangeTimes->{
  3.787731973468512*^9, {3.7877320317796593`*^9, 3.787732033213541*^9}, 
   3.787732171980094*^9, 3.787732612768365*^9, 3.788086031468926*^9, {
   3.788258728448361*^9, 3.7882587372358313`*^9}, 3.788259013889655*^9, {
   3.794161817493279*^9, 3.7941618374475317`*^9}, 3.832909376544454*^9, {
   3.832909735806163*^9, 3.832909741742367*^9}},
 CellLabel->
  "In[1810]:=",ExpressionUUID->"e6474fd2-a9f4-4eba-a9e0-22b071d2bdc8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{
       RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", "0"}], "]"}], "/.",
      "totalcoeffs"}], " ", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "n"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.798705318048007*^9, 3.7987053586877117`*^9}, {
   3.831629813111846*^9, 3.831629838256013*^9}, 3.831804681205282*^9},
 CellLabel->
  "In[1790]:=",ExpressionUUID->"fa3b54d3-3458-41ec-b09c-d96b4cf8717d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["\[Epsilon]", "3"], " ", 
     SuperscriptBox["t", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"9", " ", 
     SuperscriptBox["\[Epsilon]", "6"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
     SuperscriptBox["t", "4"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"9", "-", 
        RowBox[{"40", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Epsilon]", "9"], " ", 
     RowBox[{"(", 
      RowBox[{"75", "+", 
       RowBox[{"5324", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "-", 
       RowBox[{"2160", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "+", 
       RowBox[{"576", " ", 
        SuperscriptBox["\[Sigma]1", "6"]}]}], ")"}], " ", 
     SuperscriptBox["t", "6"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"225", "-", 
        RowBox[{"136", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "t", "]"}], "9"],
    SeriesData[$CellContext`t, 0, {}, 0, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`t, 0, {
   1, 0, 3 $CellContext`\[Epsilon]^3 (1 - 4 $CellContext`\[Sigma]1^2)^(-2), 0,
     Rational[9, 8] $CellContext`\[Epsilon]^6 $CellContext`\[Sigma]1^(-2) (1 + 
     4 $CellContext`\[Sigma]1^2) (9 - 40 $CellContext`\[Sigma]1^2 + 
      16 $CellContext`\[Sigma]1^4)^(-2), 0, 
    Rational[1, 8] $CellContext`\[Epsilon]^9 $CellContext`\[Sigma]1^(-2) (1 - 
      4 $CellContext`\[Sigma]1^2)^(-4) (225 - 136 $CellContext`\[Sigma]1^2 + 
      16 $CellContext`\[Sigma]1^4)^(-2) (75 + 5324 $CellContext`\[Sigma]1^2 - 
     2160 $CellContext`\[Sigma]1^4 + 576 $CellContext`\[Sigma]1^6)}, 0, 9, 1],
  
  Editable->False]], "Output",
 CellChangeTimes->{
  3.798705320362411*^9, 3.79870535924443*^9, 3.831623354121131*^9, 
   3.831623435009068*^9, 3.8316297552839813`*^9, {3.831629808156952*^9, 
   3.831629839446725*^9}, {3.831631800081533*^9, 3.83163181241219*^9}, 
   3.8318043409091187`*^9, 3.8318046553485203`*^9, 3.831804689790504*^9, 
   3.831805719893384*^9, 3.8318060447071133`*^9, 3.832909246952169*^9},
 CellLabel->
  "Out[1790]=",ExpressionUUID->"3d9ef8a5-bf28-4e26-96f3-debf3c94d53a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{
       RowBox[{"Tau2", "[", "t", "]"}], ",", "\[Xi]1", ",", "0"}], "]"}], "/.",
      "totalcoeffs"}], " ", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.832909746585911*^9, 3.832909773327736*^9}},
 CellLabel->
  "In[1814]:=",ExpressionUUID->"1c33eaf7-890a-435c-ba06-7cc63b951946"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[Epsilon]", "2"], " ", "t"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Epsilon]", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"32", "+", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]]}], ")"}], " ", 
     SuperscriptBox["t", "2"]}], 
    RowBox[{"16", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Epsilon]", "5"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"128", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "13"}], "-", 
          RowBox[{"28", " ", "\[Sigma]1"}], "+", 
          RowBox[{"28", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], "+", 
       RowBox[{"3", " ", "\[Epsilon]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"4", " ", "\[Sigma]1"}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"32", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "-", 
          RowBox[{"64", " ", 
           SuperscriptBox["\[Sigma]1", "3"]}], "+", 
          RowBox[{"32", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["t", "3"]}], 
    RowBox[{"72", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Epsilon]", "7"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"3", " ", "\[Epsilon]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"6", "+", 
            RowBox[{"11", " ", "\[Sigma]1"}], "-", 
            RowBox[{"7", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"384", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "-", 
           RowBox[{"768", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "+", 
           RowBox[{"2432", " ", 
            SuperscriptBox["\[Sigma]1", "4"]}], "-", 
           RowBox[{"8192", " ", 
            SuperscriptBox["\[Sigma]1", "5"]}], "+", 
           RowBox[{"12288", " ", 
            SuperscriptBox["\[Sigma]1", "6"]}], "-", 
           RowBox[{"8192", " ", 
            SuperscriptBox["\[Sigma]1", "7"]}], "+", 
           RowBox[{"2048", " ", 
            SuperscriptBox["\[Sigma]1", "8"]}]}], ")"}]}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2619"}], "-", 
           RowBox[{"14778", " ", "\[Sigma]1"}], "-", 
           RowBox[{"136358", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "-", 
           RowBox[{"73056", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "+", 
           RowBox[{"718848", " ", 
            SuperscriptBox["\[Sigma]1", "4"]}], "-", 
           RowBox[{"159328", " ", 
            SuperscriptBox["\[Sigma]1", "5"]}], "-", 
           RowBox[{"873952", " ", 
            SuperscriptBox["\[Sigma]1", "6"]}], "+", 
           RowBox[{"450560", " ", 
            SuperscriptBox["\[Sigma]1", "7"]}], "+", 
           RowBox[{"317440", " ", 
            SuperscriptBox["\[Sigma]1", "8"]}], "-", 
           RowBox[{"286720", " ", 
            SuperscriptBox["\[Sigma]1", "9"]}], "+", 
           RowBox[{"57344", " ", 
            SuperscriptBox["\[Sigma]1", "10"]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["t", "4"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"9216", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "t", "]"}], "5"],
    SeriesData[$CellContext`t, 0, {}, 0, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`t, 0, {
   1, 2 $CellContext`\[Epsilon]^2 (1 - 2 $CellContext`\[Sigma]1)^(-2), 
    Rational[1, 16] $CellContext`\[Epsilon]^4 (
     32 + (-1 + $CellContext`\[Sigma]1)^(-2) $CellContext`\[Sigma]1^(-2)) (1 - 
      2 $CellContext`\[Sigma]1)^(-4), 
    Rational[1, 72] $CellContext`\[Epsilon]^5 (1 - 
      2 $CellContext`\[Sigma]1)^(-6) (3 - 
      2 $CellContext`\[Sigma]1)^(-2) (-1 + $CellContext`\[Sigma]1)^(-2) \
$CellContext`\[Sigma]1^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-2) (
     128 (-1 + $CellContext`\[Sigma]1)^2 $CellContext`\[Sigma]1^2 (-13 - 
       28 $CellContext`\[Sigma]1 + 28 $CellContext`\[Sigma]1^2) + 
     3 $CellContext`\[Epsilon] (3 + 4 $CellContext`\[Sigma]1 - 
        4 $CellContext`\[Sigma]1^2)^2 (3 + 32 $CellContext`\[Sigma]1^2 - 
       64 $CellContext`\[Sigma]1^3 + 32 $CellContext`\[Sigma]1^4)), 
    Rational[1, 9216] $CellContext`\[Epsilon]^7 (1 - 
      2 $CellContext`\[Sigma]1)^(-8) (3 - 
      2 $CellContext`\[Sigma]1)^(-2) (-2 + $CellContext`\[Sigma]1)^(-2) (-1 + \
$CellContext`\[Sigma]1)^(-4) $CellContext`\[Sigma]1^(-4) (
      1 + $CellContext`\[Sigma]1)^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-2) (
     3 $CellContext`\[Epsilon] (6 + 11 $CellContext`\[Sigma]1 - 
        7 $CellContext`\[Sigma]1^2 - 8 $CellContext`\[Sigma]1^3 + 
        4 $CellContext`\[Sigma]1^4)^2 (3 + 384 $CellContext`\[Sigma]1^2 - 
       768 $CellContext`\[Sigma]1^3 + 2432 $CellContext`\[Sigma]1^4 - 
       8192 $CellContext`\[Sigma]1^5 + 12288 $CellContext`\[Sigma]1^6 - 
       8192 $CellContext`\[Sigma]1^7 + 2048 $CellContext`\[Sigma]1^8) + 
     16 (-1 + $CellContext`\[Sigma]1)^2 $CellContext`\[Sigma]1^2 (-2619 - 
       14778 $CellContext`\[Sigma]1 - 136358 $CellContext`\[Sigma]1^2 - 
       73056 $CellContext`\[Sigma]1^3 + 718848 $CellContext`\[Sigma]1^4 - 
       159328 $CellContext`\[Sigma]1^5 - 873952 $CellContext`\[Sigma]1^6 + 
       450560 $CellContext`\[Sigma]1^7 + 317440 $CellContext`\[Sigma]1^8 - 
       286720 $CellContext`\[Sigma]1^9 + 57344 $CellContext`\[Sigma]1^10))}, 
   0, 5, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.832909764310021*^9, 3.832909781441581*^9}},
 CellLabel->
  "Out[1814]=",ExpressionUUID->"28d4a98a-4ef6-4cc7-b833-058d2a6a6e81"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{
       RowBox[{"X1", "[", "t", "]"}], ",", "\[Xi]1", ",", "0"}], "]"}], "/.", 
     "totalcoeffs"}], " ", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "n"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.832909648038313*^9, 3.832909654742899*^9}, {
  3.832909870692605*^9, 3.832909873192758*^9}},
 CellLabel->
  "In[1826]:=",ExpressionUUID->"5ea0f6dc-17de-4cc9-9369-25f8df02b942"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Epsilon]", "3"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"4", " ", "\[Sigma]1"}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "+", 
          RowBox[{"96", " ", 
           SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}]}], ")"}], " ", 
      SuperscriptBox["t", "2"]}], 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}], ")"}]}]]}], "+", 
   
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Epsilon]", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "243"}], "+", 
       RowBox[{"2430", " ", "\[Sigma]1"}], "-", 
       RowBox[{"6417", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "-", 
       RowBox[{"14076", " ", 
        SuperscriptBox["\[Sigma]1", "3"]}], "+", 
       RowBox[{"167664", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "+", 
       RowBox[{"153504", " ", 
        SuperscriptBox["\[Sigma]1", "5"]}], "-", 
       RowBox[{"205024", " ", 
        SuperscriptBox["\[Sigma]1", "6"]}], "+", 
       RowBox[{"722176", " ", 
        SuperscriptBox["\[Sigma]1", "7"]}], "-", 
       RowBox[{"2348544", " ", 
        SuperscriptBox["\[Sigma]1", "8"]}], "+", 
       RowBox[{"962560", " ", 
        SuperscriptBox["\[Sigma]1", "9"]}], "+", 
       RowBox[{"1345280", " ", 
        SuperscriptBox["\[Sigma]1", "10"]}], "-", 
       RowBox[{"783360", " ", 
        SuperscriptBox["\[Sigma]1", "11"]}]}], ")"}], " ", 
     SuperscriptBox["t", "4"]}], 
    RowBox[{"16", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
     SuperscriptBox["\[Sigma]1", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"9", "-", 
        RowBox[{"9", " ", "\[Sigma]1"}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "t", "]"}], "9"],
    SeriesData[$CellContext`t, 0, {}, 2, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`t, 0, {
   Rational[-1, 2] $CellContext`\[Epsilon]^3 (1 - 
      2 $CellContext`\[Sigma]1)^(-4) $CellContext`\[Sigma]1^(-2) (1 + 
      2 $CellContext`\[Sigma]1)^(-2) (1 - 4 $CellContext`\[Sigma]1 + 
     4 $CellContext`\[Sigma]1^2 + 96 $CellContext`\[Sigma]1^3), 0, 
    Rational[1, 16] $CellContext`\[Epsilon]^6 (1 - 
      2 $CellContext`\[Sigma]1)^(-8) $CellContext`\[Sigma]1^(-4) (1 + 
      2 $CellContext`\[Sigma]1)^(-4) (9 - 9 $CellContext`\[Sigma]1 - 
      4 $CellContext`\[Sigma]1^2 + 4 $CellContext`\[Sigma]1^3)^(-2) (-243 + 
     2430 $CellContext`\[Sigma]1 - 6417 $CellContext`\[Sigma]1^2 - 
     14076 $CellContext`\[Sigma]1^3 + 167664 $CellContext`\[Sigma]1^4 + 
     153504 $CellContext`\[Sigma]1^5 - 205024 $CellContext`\[Sigma]1^6 + 
     722176 $CellContext`\[Sigma]1^7 - 2348544 $CellContext`\[Sigma]1^8 + 
     962560 $CellContext`\[Sigma]1^9 + 1345280 $CellContext`\[Sigma]1^10 - 
     783360 $CellContext`\[Sigma]1^11)}, 2, 9, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.832909652404826*^9, 3.8329096554283323`*^9}, {
  3.832909871740212*^9, 3.832909873794558*^9}},
 CellLabel->
  "Out[1826]=",ExpressionUUID->"5b2a682b-5cb8-4369-99ba-062e71302624"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{"3", " ", 
      SuperscriptBox["\[Epsilon]", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "81"}], "+", 
        RowBox[{"1236", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "-", 
        RowBox[{"6512", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}], "+", 
        RowBox[{"3264", " ", 
         SuperscriptBox["\[Sigma]1", "6"]}]}], ")"}]}], 
     RowBox[{"64", " ", 
      SuperscriptBox["\[Sigma]1", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"9", "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]], "-", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[Epsilon]", "6"], " ", 
      RowBox[{"(", 
       RowBox[{"9", "-", 
        RowBox[{"138", " ", "\[Sigma]1"}], "-", 
        RowBox[{"2710", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"800", " ", 
         SuperscriptBox["\[Sigma]1", "3"]}], "+", 
        RowBox[{"11840", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}], "-", 
        RowBox[{"14688", " ", 
         SuperscriptBox["\[Sigma]1", "5"]}], "+", 
        RowBox[{"4896", " ", 
         SuperscriptBox["\[Sigma]1", "6"]}]}], ")"}]}], 
     RowBox[{"32", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]}], ")"}], "//", 
  "Factor"}]], "Input",
 CellChangeTimes->{{3.832909878888178*^9, 3.832909928424803*^9}, {
  3.83290997659604*^9, 3.8329100365606728`*^9}},
 CellLabel->
  "In[1841]:=",ExpressionUUID->"34a2efb7-fad5-4b94-b5e9-e24eca1dc7c5"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[Epsilon]", "6"], " ", 
    RowBox[{"(", 
     RowBox[{"243", "-", 
      RowBox[{"2430", " ", "\[Sigma]1"}], "+", 
      RowBox[{"6417", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}], "+", 
      RowBox[{"14076", " ", 
       SuperscriptBox["\[Sigma]1", "3"]}], "-", 
      RowBox[{"167664", " ", 
       SuperscriptBox["\[Sigma]1", "4"]}], "-", 
      RowBox[{"153504", " ", 
       SuperscriptBox["\[Sigma]1", "5"]}], "+", 
      RowBox[{"205024", " ", 
       SuperscriptBox["\[Sigma]1", "6"]}], "-", 
      RowBox[{"722176", " ", 
       SuperscriptBox["\[Sigma]1", "7"]}], "+", 
      RowBox[{"2348544", " ", 
       SuperscriptBox["\[Sigma]1", "8"]}], "-", 
      RowBox[{"962560", " ", 
       SuperscriptBox["\[Sigma]1", "9"]}], "-", 
      RowBox[{"1345280", " ", 
       SuperscriptBox["\[Sigma]1", "10"]}], "+", 
      RowBox[{"783360", " ", 
       SuperscriptBox["\[Sigma]1", "11"]}]}], ")"}]}], 
   RowBox[{"64", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "3"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.8329098811863728`*^9, 3.832909891942231*^9}, 
   3.8329099287865562`*^9, {3.83290997698807*^9, 3.832910036979054*^9}},
 CellLabel->
  "Out[1841]=",ExpressionUUID->"1765f5c1-0ed7-4227-bd54-8a3de9d62ef2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], "logt0"}], "-", "logt1"}], "//", 
  "Together"}]], "Input",
 CellChangeTimes->{{3.8329098453254423`*^9, 3.832909866285013*^9}, {
  3.832909957465357*^9, 3.8329100199536953`*^9}},
 CellLabel->
  "In[1839]:=",ExpressionUUID->"90126740-d0e7-492a-80a8-bb486c3d336d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"3", " ", 
         SuperscriptBox["\[Epsilon]", "3"]}], 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"]}]]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[Epsilon]", "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]]}], ")"}], 
    " ", 
    SuperscriptBox["t", "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["\[Epsilon]", "6"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "81"}], "+", 
          RowBox[{"1236", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "-", 
          RowBox[{"6512", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}], "+", 
          RowBox[{"3264", " ", 
           SuperscriptBox["\[Sigma]1", "6"]}]}], ")"}]}], 
       RowBox[{"64", " ", 
        SuperscriptBox["\[Sigma]1", "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"9", "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[Epsilon]", "6"], " ", 
        RowBox[{"(", 
         RowBox[{"9", "-", 
          RowBox[{"138", " ", "\[Sigma]1"}], "-", 
          RowBox[{"2710", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "+", 
          RowBox[{"800", " ", 
           SuperscriptBox["\[Sigma]1", "3"]}], "+", 
          RowBox[{"11840", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}], "-", 
          RowBox[{"14688", " ", 
           SuperscriptBox["\[Sigma]1", "5"]}], "+", 
          RowBox[{"4896", " ", 
           SuperscriptBox["\[Sigma]1", "6"]}]}], ")"}]}], 
       RowBox[{"32", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]}], ")"}], " ", 
    SuperscriptBox["t", "4"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "t", "]"}], "5"],
    SeriesData[$CellContext`t, 0, {}, 2, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`t, 0, {
   Rational[-3, 2] $CellContext`\[Epsilon]^3 (1 - 
       2 $CellContext`\[Sigma]1)^(-4) + 
    Rational[1, 8] $CellContext`\[Epsilon]^3 $CellContext`\[Sigma]1^(-2) (1 - 
       4 $CellContext`\[Sigma]1^2)^(-2) (-1 + 12 $CellContext`\[Sigma]1^2), 0,
     Rational[
      3, 64] $CellContext`\[Epsilon]^6 $CellContext`\[Sigma]1^(-4) (1 - 
       4 $CellContext`\[Sigma]1^2)^(-4) (9 - 
       4 $CellContext`\[Sigma]1^2)^(-2) (-81 + 1236 $CellContext`\[Sigma]1^2 - 
      6512 $CellContext`\[Sigma]1^4 + 3264 $CellContext`\[Sigma]1^6) + 
    Rational[-1, 32] $CellContext`\[Epsilon]^6 (1 - 
       2 $CellContext`\[Sigma]1)^(-8) (3 - 
       2 $CellContext`\[Sigma]1)^(-2) (-1 + $CellContext`\[Sigma]1)^(-2) \
$CellContext`\[Sigma]1^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-2) (9 - 
      138 $CellContext`\[Sigma]1 - 2710 $CellContext`\[Sigma]1^2 + 
      800 $CellContext`\[Sigma]1^3 + 11840 $CellContext`\[Sigma]1^4 - 
      14688 $CellContext`\[Sigma]1^5 + 4896 $CellContext`\[Sigma]1^6)}, 2, 5, 
   1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.832909854357432*^9, 3.8329098666100082`*^9}, {
  3.832909959822754*^9, 3.8329100205452843`*^9}},
 CellLabel->
  "Out[1839]=",ExpressionUUID->"33959dc8-cc31-4fb6-b213-629a4501c132"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"logt0", "=", 
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"Tau0", "[", "t", "]"}], "]"}], ",", "\[Xi]1", ",", "0"}], 
       "]"}], "/.", "totalcoeffs"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.832909682295794*^9, 3.832909694691217*^9}, {
  3.8329098126323977`*^9, 3.832909833542562*^9}},
 CellLabel->
  "In[1819]:=",ExpressionUUID->"8a37a4e5-2889-419a-993d-3bd2dc9aa90c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Epsilon]", "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"12", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
     SuperscriptBox["t", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["\[Epsilon]", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "81"}], "+", 
       RowBox[{"1236", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "-", 
       RowBox[{"6512", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "+", 
       RowBox[{"3264", " ", 
        SuperscriptBox["\[Sigma]1", "6"]}]}], ")"}], " ", 
     SuperscriptBox["t", "4"]}], 
    RowBox[{"32", " ", 
     SuperscriptBox["\[Sigma]1", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"9", "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "t", "]"}], "5"],
    SeriesData[$CellContext`t, 0, {}, 2, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`t, 0, {
   Rational[1, 4] $CellContext`\[Epsilon]^3 $CellContext`\[Sigma]1^(-2) (1 - 
      4 $CellContext`\[Sigma]1^2)^(-2) (-1 + 12 $CellContext`\[Sigma]1^2), 0, 
    Rational[3, 32] $CellContext`\[Epsilon]^6 $CellContext`\[Sigma]1^(-4) (1 - 
      4 $CellContext`\[Sigma]1^2)^(-4) (9 - 
      4 $CellContext`\[Sigma]1^2)^(-2) (-81 + 1236 $CellContext`\[Sigma]1^2 - 
     6512 $CellContext`\[Sigma]1^4 + 3264 $CellContext`\[Sigma]1^6)}, 2, 5, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.83290969198557*^9, 3.8329097098992043`*^9}, {
  3.832909822819435*^9, 3.832909845224633*^9}},
 CellLabel->
  "Out[1819]=",ExpressionUUID->"bd18c6ef-a749-4228-b32c-e0af32fc1a65"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"logt1", "=", 
  RowBox[{
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"Log", "[", 
         RowBox[{"Tau1", "[", "t", "]"}], "]"}], ",", "\[Xi]1", ",", "0"}], 
       "]"}], "/.", "totalcoeffs"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8329097918803673`*^9, 3.8329097964658203`*^9}, {
  3.8329098375442543`*^9, 3.83290984235678*^9}},
 CellLabel->
  "In[1820]:=",ExpressionUUID->"2aeed7d0-9f5e-474d-9e41-d95f3f57b6e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["\[Epsilon]", "3"], " ", 
     SuperscriptBox["t", "2"]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[Epsilon]", "6"], " ", 
     RowBox[{"(", 
      RowBox[{"9", "-", 
       RowBox[{"138", " ", "\[Sigma]1"}], "-", 
       RowBox[{"2710", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "+", 
       RowBox[{"800", " ", 
        SuperscriptBox["\[Sigma]1", "3"]}], "+", 
       RowBox[{"11840", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "-", 
       RowBox[{"14688", " ", 
        SuperscriptBox["\[Sigma]1", "5"]}], "+", 
       RowBox[{"4896", " ", 
        SuperscriptBox["\[Sigma]1", "6"]}]}], ")"}], " ", 
     SuperscriptBox["t", "4"]}], 
    RowBox[{"32", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "8"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "t", "]"}], "5"],
    SeriesData[$CellContext`t, 0, {}, 2, 5, 1],
    Editable->False]}],
  SeriesData[$CellContext`t, 0, {
   Rational[3, 2] $CellContext`\[Epsilon]^3 (1 - 
      2 $CellContext`\[Sigma]1)^(-4), 0, 
    Rational[1, 32] $CellContext`\[Epsilon]^6 (1 - 
      2 $CellContext`\[Sigma]1)^(-8) (3 - 
      2 $CellContext`\[Sigma]1)^(-2) (-1 + $CellContext`\[Sigma]1)^(-2) \
$CellContext`\[Sigma]1^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-2) (9 - 
     138 $CellContext`\[Sigma]1 - 2710 $CellContext`\[Sigma]1^2 + 
     800 $CellContext`\[Sigma]1^3 + 11840 $CellContext`\[Sigma]1^4 - 
     14688 $CellContext`\[Sigma]1^5 + 4896 $CellContext`\[Sigma]1^6)}, 2, 5, 
   1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.832909792702128*^9, 3.832909804278927*^9}, 
   3.8329098530180492`*^9},
 CellLabel->
  "Out[1820]=",ExpressionUUID->"7b25e4a4-de35-4da4-902f-e8f145c1edac"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"Tau1", "[", "t", "]"}], "]"}], ",", "\[Xi]1", ",", "0"}], 
      "]"}], "/.", "totalcoeffs"}], " ", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "4"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.832909252073312*^9, 3.832909253448474*^9}, {
   3.832909469315486*^9, 3.8329094718554688`*^9}, 3.832909615781622*^9},
 CellLabel->
  "In[1802]:=",ExpressionUUID->"03cbc898-30d3-41fb-bee3-21922daa7acb"],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{{3.832909356507916*^9, 3.832909404283896*^9}, 
   3.8329095596619997`*^9, 3.8329096395460443`*^9},
 CellLabel->
  "Out[1802]=",ExpressionUUID->"2247a750-d06d-4ef6-97af-27eb58439b64"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"9", " ", 
    SuperscriptBox["\[Epsilon]", "6"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
    SuperscriptBox["t", "4"]}], 
   RowBox[{"8", " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"9", "-", 
       RowBox[{"40", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "+", 
       RowBox[{"16", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], "//", 
  "Factor"}]], "Input",
 CellChangeTimes->{{3.832909444037848*^9, 3.83290944804655*^9}},
 CellLabel->
  "In[1800]:=",ExpressionUUID->"c3f41b33-0483-459a-8ffd-2548b006afa6"],

Cell[BoxData[
 FractionBox[
  RowBox[{"9", " ", 
   SuperscriptBox["t", "4"], " ", 
   SuperscriptBox["\[Epsilon]", "6"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}]}], 
  RowBox[{"8", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "3"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"3", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.8329094483469048`*^9},
 CellLabel->
  "Out[1800]=",ExpressionUUID->"6edfc9a6-54b0-4403-bc83-ea3366d44f4f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", "a1"], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
       SuperscriptBox["\[Epsilon]", "2"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["\[Sigma]1", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], ")"}], 
    RowBox[{"-", "1"}]], 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", "1"}], "]"}], "/.",
       "totalcoeffs"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831804760399878*^9, 3.8318047812799187`*^9}, {
  3.831805741005232*^9, 3.8318057509603653`*^9}},
 CellLabel->
  "In[5626]:=",ExpressionUUID->"718a806d-33ad-42df-abf0-f686349d16c9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["t", "2"], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", 
       RowBox[{"8", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"9", " ", 
     SuperscriptBox["t", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"5", "+", 
       RowBox[{"8", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "6"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"5", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "7"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 7, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 0, 3 $CellContext`t^2 (3 + 8 $CellContext`\[Sigma]1 + 
      4 $CellContext`\[Sigma]1^2)^(-2), 0, 0, 
    Rational[9, 8] $CellContext`t^4 (1 - 2 $CellContext`\[Sigma]1)^(-2) (
      1 + $CellContext`\[Sigma]1)^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-2) (3 + 
      2 $CellContext`\[Sigma]1)^(-2) (5 + 2 $CellContext`\[Sigma]1)^(-2) (5 + 
     8 $CellContext`\[Sigma]1 + 4 $CellContext`\[Sigma]1^2)}, 0, 7, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.831804769212144*^9, 3.831804788093457*^9}, {
   3.831805737529728*^9, 3.831805755770771*^9}, 3.831806059898855*^9},
 CellLabel->
  "Out[5626]=",ExpressionUUID->"64f8ec06-0dfb-425c-82b7-b6f5849e130c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["t", "2"], " ", 
       SuperscriptBox["\[Epsilon]", "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "+", 
         RowBox[{"8", " ", "\[Sigma]1"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox["t", "4"], " ", 
       RowBox[{"(", 
        RowBox[{"5", "+", 
         RowBox[{"8", " ", "\[Sigma]1"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
       SuperscriptBox["\[Epsilon]", "6"]}], 
      RowBox[{"8", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"5", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "\[Epsilon]", "]"}], "7"],
      SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 7, 1],
      Editable->False]}],
    SeriesData[$CellContext`\[Epsilon], 0, {
     1, 0, 0, 3 $CellContext`t^2 (3 + 8 $CellContext`\[Sigma]1 + 
        4 $CellContext`\[Sigma]1^2)^(-2), 0, 0, 
      Rational[9, 8] $CellContext`t^4 (1 - 2 $CellContext`\[Sigma]1)^(-2) (
        1 + $CellContext`\[Sigma]1)^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-2) (
        3 + 2 $CellContext`\[Sigma]1)^(-2) (5 + 
        2 $CellContext`\[Sigma]1)^(-2) (5 + 8 $CellContext`\[Sigma]1 + 
       4 $CellContext`\[Sigma]1^2)}, 0, 7, 1],
    Editable->False], "/.", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", "\[Rule]", 
     RowBox[{"\[Sigma]1", "-", "1"}]}], "}"}]}], "//", "Simplify"}]], "Input",\

 CellChangeTimes->{{3.8318048414870377`*^9, 3.831804905113164*^9}, {
  3.831805767354752*^9, 3.831805773216167*^9}, {3.8318060734675217`*^9, 
  3.831806076562942*^9}},
 CellLabel->
  "In[5627]:=",ExpressionUUID->"6d05dfa5-0efa-481e-afcd-6330d0a98de4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["t", "2"], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"9", " ", 
     SuperscriptBox["t", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "6"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"9", "-", 
        RowBox[{"40", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "7"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 7, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 0, 3 $CellContext`t^2 (1 - 4 $CellContext`\[Sigma]1^2)^(-2), 0, 0, 
    Rational[9, 8] $CellContext`t^4 $CellContext`\[Sigma]1^(-2) (1 + 
     4 $CellContext`\[Sigma]1^2) (9 - 40 $CellContext`\[Sigma]1^2 + 
      16 $CellContext`\[Sigma]1^4)^(-2)}, 0, 7, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.831804845770816*^9, 3.8318049054711246`*^9}, {
   3.831805769299816*^9, 3.831805773579378*^9}, 3.831806077015294*^9},
 CellLabel->
  "Out[5627]=",ExpressionUUID->"aec0c468-4988-4f56-bfe9-734682556455"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", "1", ")"}], 
    RowBox[{"-", "1"}]], 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", "2"}], "]"}], "/.",
       "totalcoeffs"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831804913596291*^9, 3.831804933465768*^9}, {
  3.831806088437325*^9, 3.8318060941990213`*^9}},
 CellLabel->
  "In[5628]:=",ExpressionUUID->"c6667524-76a2-4645-9251-bb0e2575e8b5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"4", "+", 
       RowBox[{"4", " ", "\[Sigma]1"}]}]], " ", 
     SuperscriptBox["\[Epsilon]", "7"]}], 
    RowBox[{"64", " ", 
     SuperscriptBox["\[Sigma]1", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 7, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   Rational[1, 64] 
    E^(2 $CellContext`a1) $CellContext`t^(4 + 
      4 $CellContext`\[Sigma]1) $CellContext`\[Sigma]1^(-4) (
      1 + $CellContext`\[Sigma]1)^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-6) (3 + 
      2 $CellContext`\[Sigma]1)^(-2)}, 7, 9, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.8318049198100863`*^9, 3.83180493383387*^9}, 
   3.831806111977379*^9},
 CellLabel->
  "Out[5628]=",ExpressionUUID->"a5cb703c-d3d9-4e73-9b64-533d74dfe2a4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"-", "a1"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", "\[Epsilon]"}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]], ")"}], 
    RowBox[{"-", "1"}]], 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", 
        RowBox[{"-", "1"}]}], "]"}], "/.", "totalcoeffs"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8318061237072153`*^9, 3.8318061444823313`*^9}},
 NumberMarks->False,
 CellLabel->
  "In[5631]:=",ExpressionUUID->"0ccbb477-4eb9-4e2d-843f-245d9b5e05b6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["t", "2"], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "-", 
       RowBox[{"8", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"9", " ", 
     SuperscriptBox["t", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"5", "-", 
       RowBox[{"8", " ", "\[Sigma]1"}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "6"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"5", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "8"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 8, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 0, 3 $CellContext`t^2 (3 - 8 $CellContext`\[Sigma]1 + 
      4 $CellContext`\[Sigma]1^2)^(-2), 0, 0, 
    Rational[9, 8] $CellContext`t^4 (1 - 2 $CellContext`\[Sigma]1)^(-2) (3 - 
      2 $CellContext`\[Sigma]1)^(-2) (5 - 
      2 $CellContext`\[Sigma]1)^(-2) (-1 + $CellContext`\[Sigma]1)^(-2) (1 + 
      2 $CellContext`\[Sigma]1)^(-2) (5 - 8 $CellContext`\[Sigma]1 + 
     4 $CellContext`\[Sigma]1^2)}, 0, 8, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.831806122646809*^9, 3.8318061589039993`*^9}},
 CellLabel->
  "Out[5631]=",ExpressionUUID->"73ae7fc3-56f0-4030-a343-61614c3a3c27"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["t", "2"], " ", 
       SuperscriptBox["\[Epsilon]", "3"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "-", 
         RowBox[{"8", " ", "\[Sigma]1"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{"9", " ", 
       SuperscriptBox["t", "4"], " ", 
       RowBox[{"(", 
        RowBox[{"5", "-", 
         RowBox[{"8", " ", "\[Sigma]1"}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
       SuperscriptBox["\[Epsilon]", "6"]}], 
      RowBox[{"8", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "\[Epsilon]", "]"}], "8"],
      SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 8, 1],
      Editable->False]}],
    SeriesData[$CellContext`\[Epsilon], 0, {
     1, 0, 0, 3 $CellContext`t^2 (3 - 8 $CellContext`\[Sigma]1 + 
        4 $CellContext`\[Sigma]1^2)^(-2), 0, 0, 
      Rational[9, 8] $CellContext`t^4 (1 - 2 $CellContext`\[Sigma]1)^(-2) (3 - 
        2 $CellContext`\[Sigma]1)^(-2) (5 - 
        2 $CellContext`\[Sigma]1)^(-2) (-1 + $CellContext`\[Sigma]1)^(-2) (1 + 
        2 $CellContext`\[Sigma]1)^(-2) (5 - 8 $CellContext`\[Sigma]1 + 
       4 $CellContext`\[Sigma]1^2)}, 0, 8, 1],
    Editable->False], "/.", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", "\[Rule]", 
     RowBox[{"\[Sigma]1", "+", "1"}]}], "}"}]}], "//", "Simplify"}]], "Input",\

 CellChangeTimes->{{3.831804805393837*^9, 3.831804822536806*^9}, 
   3.831806149980055*^9, {3.831806195072679*^9, 3.831806196987829*^9}},
 CellLabel->
  "In[5632]:=",ExpressionUUID->"becb22a7-df8a-4e66-bc0a-b8c696bbca81"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["t", "2"], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{"9", " ", 
     SuperscriptBox["t", "4"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "6"]}], 
    RowBox[{"8", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"9", "-", 
        RowBox[{"40", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "+", 
        RowBox[{"16", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "8"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 8, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 0, 3 $CellContext`t^2 (1 - 4 $CellContext`\[Sigma]1^2)^(-2), 0, 0, 
    Rational[9, 8] $CellContext`t^4 $CellContext`\[Sigma]1^(-2) (1 + 
     4 $CellContext`\[Sigma]1^2) (9 - 40 $CellContext`\[Sigma]1^2 + 
      16 $CellContext`\[Sigma]1^4)^(-2)}, 0, 8, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.831804812133037*^9, 3.8318048284675198`*^9}, 
   3.831806197534144*^9},
 CellLabel->
  "Out[5632]=",ExpressionUUID->"b0f383d9-8c82-4401-8fda-7eeab4218c22"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", "a1"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"4", "-", 
         RowBox[{"4", " ", "\[Sigma]1"}]}]], " ", 
       SuperscriptBox["\[Epsilon]", "5"]}], 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], ")"}], 
    RowBox[{"-", "1"}]], 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", 
        RowBox[{"-", "2"}]}], "]"}], "/.", "totalcoeffs"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"\[Epsilon]", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8318046972300673`*^9, 3.831804739601471*^9}, {
  3.8318062048623257`*^9, 3.831806234047407*^9}},
 CellLabel->
  "In[5634]:=",ExpressionUUID->"2e1241f3-9a3c-4586-ab16-6d8cd30c5cf9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["t", "2"], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"5", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 0, 3 $CellContext`t^2 (3 - 2 $CellContext`\[Sigma]1)^(-2) (5 - 
      2 $CellContext`\[Sigma]1)^(-2)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.831804703539257*^9, 3.8318047451478977`*^9}, {
  3.8318062238143*^9, 3.831806249554614*^9}},
 CellLabel->
  "Out[5634]=",ExpressionUUID->"42de29b0-dc1f-4af0-a601-5adf047b7755"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   InterpretationBox[
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"3", " ", 
       SuperscriptBox["t", "2"], " ", 
       SuperscriptBox["\[Epsilon]", "3"]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
      SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
      Editable->False]}],
    SeriesData[$CellContext`\[Epsilon], 0, {
     1, 0, 0, 3 $CellContext`t^2 (3 - 2 $CellContext`\[Sigma]1)^(-2) (5 - 
        2 $CellContext`\[Sigma]1)^(-2)}, 0, 4, 1],
    Editable->False], "/.", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", "\[Rule]", 
     RowBox[{"\[Sigma]1", "+", "2"}]}], "}"}]}], "//", "Simplify"}]], "Input",\

 CellChangeTimes->{{3.831806243737075*^9, 3.831806253158833*^9}},
 CellLabel->
  "In[5635]:=",ExpressionUUID->"37aded5a-08e0-4435-bba4-3f57f97445ce"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"3", " ", 
     SuperscriptBox["t", "2"], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 0, 3 $CellContext`t^2 (1 - 4 $CellContext`\[Sigma]1^2)^(-2)}, 0, 4, 
   1],
  Editable->False]], "Output",
 CellChangeTimes->{3.831806253649209*^9},
 CellLabel->
  "Out[5635]=",ExpressionUUID->"c56a42cc-62e4-4506-818f-f901a03f6c9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", "\[Epsilon]"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]], "1", " ", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"2", " ", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"4", "+", 
       RowBox[{"4", " ", "\[Sigma]1"}]}]], " ", 
     SuperscriptBox["\[Epsilon]", "7"]}], 
    RowBox[{"64", " ", 
     SuperscriptBox["\[Sigma]1", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "+", 
        RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      RowBox[{"2", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", "\[Sigma]1"}]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"2", "+", 
      RowBox[{"2", "\[Sigma]1"}]}], ")"}], "2"]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831806962867922*^9, 3.8318070257172937`*^9}},
 CellLabel->
  "In[6659]:=",ExpressionUUID->"466d5c14-38e6-4d8d-8f23-704111a0d678"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "a1"], " ", 
   SuperscriptBox["t", 
    RowBox[{"5", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
   SuperscriptBox["\[Epsilon]", "8"]}], 
  RowBox[{"16", " ", 
   SuperscriptBox["\[Sigma]1", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"3", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.831806979543152*^9, 3.83180702618554*^9}},
 CellLabel->
  "Out[6659]=",ExpressionUUID->"71463a9c-3d74-4845-aae7-765da6ebff6a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "a1"], " ", 
   SuperscriptBox["t", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], 
  RowBox[{"4", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]], "Input",
 CellLabel->
  "In[6657]:=",ExpressionUUID->"55e53add-ba06-47c8-93da-6e8aebd46e59"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", "a1"], " ", 
   SuperscriptBox["t", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], 
  RowBox[{"4", " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.831807016224999*^9},
 CellLabel->
  "Out[6657]=",ExpressionUUID->"f51da7d5-0ec5-4013-bcbf-2a1a0be9f930"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Tau0", "[", "t", "]"}], "+", 
   RowBox[{
    RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "6"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.831624005138565*^9, 3.831624042775221*^9}, {
  3.8316243499258547`*^9, 3.831624370880321*^9}, {3.831631790335561*^9, 
  3.831631790595674*^9}},
 CellLabel->
  "In[4894]:=",ExpressionUUID->"030717c7-7f6e-4592-985f-15e5f855f110"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]1"}]], " ", "\[Epsilon]"}], 
    RowBox[{"\[Xi]1", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"3", " ", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"3", " ", "\[Sigma]1"}]], " ", 
        SuperscriptBox["\[Xi]1", "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}], "+", 
       RowBox[{"t", " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Xi]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["t", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]1"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"3", " ", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "+", 
          RowBox[{"3", " ", "\[Sigma]1"}]}]], " ", 
        SuperscriptBox["\[Xi]1", "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"14", " ", "\[Sigma]1"}], "-", 
           RowBox[{"5", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}], "+", 
       RowBox[{"36", " ", 
        SuperscriptBox["t", "2"], " ", 
        SuperscriptBox["\[Sigma]1", "6"], " ", 
        RowBox[{"(", 
         RowBox[{"5", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          SuperscriptBox["\[Sigma]1", "2"]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"6", " ", "\[Sigma]1"}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"6", " ", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"6", " ", "\[Sigma]1"}]], " ", 
        SuperscriptBox["\[Xi]1", "6"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "3"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"24", " ", 
           SuperscriptBox["\[Sigma]1", "6"], " ", 
           RowBox[{"c1", "[", 
            RowBox[{"0", ",", "3"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "4"]}], 
    RowBox[{"48", " ", "\[Xi]1", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "3"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]1", "6"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"5", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "a1"}]], " ", 
      SuperscriptBox["t", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "\[Sigma]1"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"18", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"3", " ", "a1"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"3", "+", 
           RowBox[{"3", " ", "\[Sigma]1"}]}]], " ", 
         SuperscriptBox["\[Xi]1", "3"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
         SuperscriptBox["\[Sigma]1", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"6", "+", 
            RowBox[{"7", " ", "\[Sigma]1"}], "-", 
            RowBox[{"9", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"5", "+", 
           RowBox[{"27", " ", "\[Sigma]1"}], "+", 
           RowBox[{"11", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "+", 
           RowBox[{"5", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["t", "4"], " ", 
         SuperscriptBox["\[Sigma]1", "6"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"3", "+", 
            RowBox[{"7", " ", "\[Sigma]1"}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}]}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"13", "+", 
           RowBox[{"53", " ", "\[Sigma]1"}], "-", 
           RowBox[{"57", " ", 
            SuperscriptBox["\[Sigma]1", "2"]}], "+", 
           RowBox[{"15", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"6", " ", "a1"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"2", "+", 
           RowBox[{"6", " ", "\[Sigma]1"}]}]], " ", 
         SuperscriptBox["\[Xi]1", "6"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "5"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"18", "-", 
            RowBox[{"9", " ", "\[Sigma]1"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            SuperscriptBox["\[Sigma]1", "3"]}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"24", " ", 
            SuperscriptBox["\[Sigma]1", "6"], " ", 
            RowBox[{"c1", "[", 
             RowBox[{"0", ",", "3"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "5"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"48", " ", 
      SuperscriptBox["\[Xi]1", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "6"], " ", 
      SuperscriptBox["\[Sigma]1", "6"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"5", " ", "\[Sigma]1"}]}], ")"}]}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "6"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 6, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, E^(-$CellContext`a1) $CellContext`t^(
      1 - $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-1) (-1 + \
$CellContext`\[Sigma]1)^(-2), Rational[1, 4] 
    E^((-2) $CellContext`a1) $CellContext`t^(1 - 
      2 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-2) (-1 + $CellContext`\
\[Sigma]1)^(-4) $CellContext`\[Sigma]1^(-2) (
      1 + $CellContext`\[Sigma]1)^(-2) (
     2 E^(3 $CellContext`a1) $CellContext`t^(
        3 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^3 (-1 + $CellContext`\
\[Sigma]1)^4 + $CellContext`t $CellContext`\[Sigma]1^2 (
        1 + $CellContext`\[Sigma]1)^2), 
    Rational[1, 
      4] $CellContext`t^2 $CellContext`\[Sigma]1^(-2) (-1 + $CellContext`\
\[Sigma]1^2)^(-2) (1 + 3 $CellContext`\[Sigma]1^2), Rational[1, 48] 
    E^(-$CellContext`a1) $CellContext`t^(
      1 - $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-1) (-3 + \
$CellContext`\[Sigma]1)^(-2) $CellContext`\[Sigma]1^(-6) (1 + 
      5 $CellContext`\[Sigma]1)^(-2) (-1 + $CellContext`\[Sigma]1^2)^(-4) (
     3 E^(3 $CellContext`a1) $CellContext`t^(1 + 
        3 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^3 (-1 + $CellContext`\
\[Sigma]1)^4 $CellContext`\[Sigma]1^2 (3 + 14 $CellContext`\[Sigma]1 - 
        5 $CellContext`\[Sigma]1^2)^2 + 
     36 $CellContext`t^2 $CellContext`\[Sigma]1^6 (5 - 
       2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2) (1 + 
        6 $CellContext`\[Sigma]1 + 5 $CellContext`\[Sigma]1^2)^2 - 2 
     E^(6 $CellContext`a1) $CellContext`t^(
       6 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^6 (-3 + $CellContext`\
\[Sigma]1)^2 (-1 + $CellContext`\[Sigma]1^2)^4 (1 + 
      24 $CellContext`\[Sigma]1^6 $CellContext`c1[0, 3])), Rational[1, 48] 
    E^((-2) $CellContext`a1) $CellContext`t^((-2) $CellContext`\[Sigma]1) \
$CellContext`\[Xi]1^(-2) (-3 + $CellContext`\[Sigma]1)^(-2) (-2 + \
$CellContext`\[Sigma]1)^(-2) (-1 + $CellContext`\[Sigma]1)^(-6) $CellContext`\
\[Sigma]1^(-6) (1 + $CellContext`\[Sigma]1)^(-4) (
      3 + $CellContext`\[Sigma]1)^(-2) (1 + 2 $CellContext`\[Sigma]1)^(-2) (1 + 
      5 $CellContext`\[Sigma]1)^(-1) (
     18 E^(3 $CellContext`a1) $CellContext`t^(3 + 
        3 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^3 (-1 + $CellContext`\
\[Sigma]1)^4 $CellContext`\[Sigma]1^4 (6 + 7 $CellContext`\[Sigma]1 - 
        9 $CellContext`\[Sigma]1^2 + 2 $CellContext`\[Sigma]1^3)^2 (5 + 
       27 $CellContext`\[Sigma]1 + 11 $CellContext`\[Sigma]1^2 + 
       5 $CellContext`\[Sigma]1^3) + 
     3 $CellContext`t^4 $CellContext`\[Sigma]1^6 (
        1 + $CellContext`\[Sigma]1)^4 (3 + 7 $CellContext`\[Sigma]1 + 
        2 $CellContext`\[Sigma]1^2)^2 (13 + 53 $CellContext`\[Sigma]1 - 
       57 $CellContext`\[Sigma]1^2 + 15 $CellContext`\[Sigma]1^3) + 
     E^(6 $CellContext`a1) $CellContext`t^(2 + 
        6 $CellContext`\[Sigma]1) $CellContext`\[Xi]1^6 (-1 + $CellContext`\
\[Sigma]1)^5 (1 + $CellContext`\[Sigma]1)^4 (18 - 9 $CellContext`\[Sigma]1 - 
        2 $CellContext`\[Sigma]1^2 + $CellContext`\[Sigma]1^3)^2 (1 + 
       24 $CellContext`\[Sigma]1^6 $CellContext`c1[0, 3]))}, 0, 6, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.8316240076769533`*^9, 3.831624050472967*^9}, {
  3.831624352149906*^9, 3.8316243718624907`*^9}, {3.831631780989992*^9, 
  3.831631814971674*^9}},
 CellLabel->
  "Out[4894]=",ExpressionUUID->"60a59446-b6c8-431b-8dbc-f588cd80e67f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", "1"}], "]"}]], "Input",\

 CellChangeTimes->{{3.831623711420314*^9, 3.831623727745678*^9}, {
  3.831623863744171*^9, 3.831623896090625*^9}, {3.83162392933461*^9, 
  3.83162396059013*^9}, {3.83163182762401*^9, 3.831631839985327*^9}},
 CellLabel->
  "In[4897]:=",ExpressionUUID->"1dfaf145-508d-4978-a9f4-2f0c59e081a7"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"]}]], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"1", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], 
   RowBox[{"2", " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"24", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"21", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox["\[Sigma]1", "3"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", "\[Sigma]1", 
    " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"7", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"24", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"12", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox["\[Sigma]1", "3"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"17", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"24", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", "\[Sigma]1", 
    " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"12", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"3", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"3", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "3"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"5", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"3", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"127", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"16", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"16", " ", 
    SuperscriptBox["\[Sigma]1", "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["\[Sigma]1", "3"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"]}]], "+", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"8", " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"]}]], "-", 
  FractionBox[
   RowBox[{"13", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{"4", " ", "\[Sigma]1", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"]}]], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"], " ", "\[Sigma]1"}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "4"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"3", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", "a1"], " ", 
    SuperscriptBox["t", 
     RowBox[{"3", "+", "\[Sigma]1"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"2", " ", "\[Sigma]1"}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.831623717929202*^9, 3.8316237281133738`*^9}, {
  3.8316238641123743`*^9, 3.8316239610505943`*^9}, {3.831631830074682*^9, 
  3.8316318404290857`*^9}},
 CellLabel->
  "Out[4897]=",ExpressionUUID->"39d7f24c-18c8-43a8-9867-91139e0a9181"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{
      RowBox[{"Coefficient", "[", 
       RowBox[{
        RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", "0"}], "]"}], 
      " ", ",", "\[Xi]2", ",", "0"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Epsilon]", ",", "0", ",", 
      RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}], "//", "Simplify"}]], "Input",\

 CellChangeTimes->{3.798705961164599*^9, 3.7987059986343527`*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"d6904f44-abdf-4e41-b248-aa23c05b8300"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"t", " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["t", "2"], " ", 
     RowBox[{"(", 
      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"]}]}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "6"]}], 
    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"]}]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "7"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 7, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 0, ($CellContext`t $CellContext`\[Sigma]1^(-2)) \
$CellContext`\[Sigma]2^(-2), 0, 
    0, (((((((((
             Rational[
              1, 8] $CellContext`t^2) (-1 + $CellContext`\[Sigma]1)^(-2)) \
$CellContext`\[Sigma]1^(-4)) (
            1 + $CellContext`\[Sigma]1)^(-2)) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)) (-1 + $CellContext`\[Sigma]2)^(-2)) \
$CellContext`\[Sigma]2^(-4)) (
        1 + $CellContext`\[Sigma]2)^(-2)) ($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2)) ((
       3 $CellContext`\[Sigma]2^4) (-1 + $CellContext`\[Sigma]2^2)^2 - \
(($CellContext`\[Sigma]1^2 $CellContext`\[Sigma]2^2) (-1 + $CellContext`\
\[Sigma]2^2)^2) (4 + 
      3 $CellContext`\[Sigma]2^2) + $CellContext`\[Sigma]1^8 (3 - 
       3 $CellContext`\[Sigma]2^2 + 
       4 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^6 (-6 + 
       2 $CellContext`\[Sigma]2^2 + 4 $CellContext`\[Sigma]2^4 - 
       8 $CellContext`\[Sigma]2^6) + $CellContext`\[Sigma]1^4 (3 + 
       5 $CellContext`\[Sigma]2^2 - 12 $CellContext`\[Sigma]2^4 + 
       4 $CellContext`\[Sigma]2^6 + 4 $CellContext`\[Sigma]2^8))}, 0, 7, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.798705963388732*^9, 3.798705999201722*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"3ab0791d-1d03-4759-9b02-e77a9f6bfc7c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"B", "[", 
   RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_", ",", "t_"}], "]"}], ":=", 
  InterpretationBox[
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"t", " ", 
      SuperscriptBox["\[Epsilon]", "3"]}], 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["t", "2"], " ", 
      RowBox[{"(", 
       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"]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "6"]}], 
     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"]}]], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "7"],
     SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 7, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[Epsilon], 0, {
    1, 0, 0, ($CellContext`t $CellContext`\[Sigma]1^(-2)) $CellContext`\
\[Sigma]2^(-2), 0, 
     0, (((((((((
              Rational[
               1, 8] $CellContext`t^2) (-1 + $CellContext`\[Sigma]1)^(-2)) \
$CellContext`\[Sigma]1^(-4)) (
             1 + $CellContext`\[Sigma]1)^(-2)) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)) (-1 + $CellContext`\[Sigma]2)^(-2)) \
$CellContext`\[Sigma]2^(-4)) (
         1 + $CellContext`\[Sigma]2)^(-2)) ($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2)) ((
        3 $CellContext`\[Sigma]2^4) (-1 + $CellContext`\[Sigma]2^2)^2 - \
(($CellContext`\[Sigma]1^2 $CellContext`\[Sigma]2^2) (-1 + $CellContext`\
\[Sigma]2^2)^2) (4 + 
       3 $CellContext`\[Sigma]2^2) + $CellContext`\[Sigma]1^8 (3 - 
        3 $CellContext`\[Sigma]2^2 + 
        4 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^6 (-6 + 
        2 $CellContext`\[Sigma]2^2 + 4 $CellContext`\[Sigma]2^4 - 
        8 $CellContext`\[Sigma]2^6) + $CellContext`\[Sigma]1^4 (3 + 
        5 $CellContext`\[Sigma]2^2 - 12 $CellContext`\[Sigma]2^4 + 
        4 $CellContext`\[Sigma]2^6 + 4 $CellContext`\[Sigma]2^8))}, 0, 7, 1],
   Editable->False]}]], "Input",
 CellChangeTimes->{
  3.798705980352866*^9, {3.798706011048224*^9, 3.798706011985519*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"192ca81b-94f6-4d7c-995a-a25a6b8e2552"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7987060008416653`*^9, 
  3.79870601416287*^9}},ExpressionUUID->"6f7e0b36-4595-4378-a4b6-\
03a817519ec5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Tau0", "[", "t", "]"}], "-", 
   RowBox[{"B", "[", 
    RowBox[{"\[Sigma]1", ",", "\[Sigma]2", ",", "t"}], "]"}], "-", 
   RowBox[{
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "a1"}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"2", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
      SuperscriptBox["\[Epsilon]", "2"]}], 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], " ", 
    RowBox[{"\[Xi]1", "^", 
     RowBox[{"(", 
      RowBox[{"-", "2"}], ")"}]}], 
    RowBox[{"B", "[", 
     RowBox[{
      RowBox[{"\[Sigma]1", "-", "2"}], ",", "\[Sigma]2", ",", "t"}], 
     "]"}]}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.7987061775247707`*^9, 3.7987061852814198`*^9}, {
  3.798707130850247*^9, 3.798707131962593*^9}, {3.798707260865988*^9, 
  3.798707261151401*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"3307d783-6895-4ae4-9339-8e712c42ca5e"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]1"}]], " ", "\[Epsilon]"}], 
    RowBox[{"\[Xi]1", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    RowBox[{"\[Xi]2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", 
     RowBox[{"(", 
      RowBox[{"2", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}], "+", 
       SuperscriptBox["\[Sigma]1", "2"], "-", 
       RowBox[{"2", " ", "\[Sigma]2"}], "+", 
       SuperscriptBox["\[Sigma]2", "2"]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "3"]}], 
    RowBox[{"\[Xi]1", " ", "\[Xi]2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
      "2"]}]], "+", 
   RowBox[{
    FractionBox["1", "4"], " ", "t", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]]}], 
       RowBox[{
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"]}]], "+", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"-", "a1"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1"}]], " ", 
        RowBox[{"(", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          SuperscriptBox["\[Sigma]1", "2"]}], ")"}]}], 
       RowBox[{"\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        SuperscriptBox["\[Sigma]2", "2"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "-", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2"}]]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", "\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", "a2"], " ", 
        SuperscriptBox["t", "\[Sigma]2"], " ", "\[Xi]2"}], 
       RowBox[{
        SuperscriptBox["\[Sigma]2", "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}], ")"}], 
    " ", 
    SuperscriptBox["\[Epsilon]", "4"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "a1"}], "-", 
        RowBox[{"2", " ", "a2"}]}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"1", "-", "\[Sigma]1", "-", 
        RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"a1", "+", "a2"}], ")"}]}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], " ", 
         SuperscriptBox["\[Xi]1", "2"], " ", 
         SuperscriptBox["\[Xi]2", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"], " ", 
         SuperscriptBox["\[Sigma]2", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"4", "-", 
            RowBox[{"4", " ", "\[Sigma]1"}], "+", 
            SuperscriptBox["\[Sigma]1", "2"], "-", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", "+", "\[Sigma]2", "-", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"3", " ", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"1", "+", 
           RowBox[{"3", " ", "\[Sigma]2"}]}]], " ", 
         SuperscriptBox["\[Xi]2", "3"], " ", 
         SuperscriptBox["\[Sigma]1", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "\[Sigma]1"}], "-", 
            SuperscriptBox["\[Sigma]1", "2"], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], " ", 
             "\[Sigma]2"}]}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "\[Sigma]1"}], "+", 
           SuperscriptBox["\[Sigma]1", "2"], "+", 
           RowBox[{"2", " ", "\[Sigma]2"}], "+", 
           SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["t", "2"], " ", 
         SuperscriptBox["\[Sigma]1", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox["\[Sigma]2", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", "+", "\[Sigma]2", "-", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", "\[Sigma]1"}], "-", 
            SuperscriptBox["\[Sigma]1", "2"], "+", 
            RowBox[{"\[Sigma]2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "\[Sigma]2"}], ")"}]}]}], ")"}], "2"]}], "+", 
        
        RowBox[{"4", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "+", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"1", "+", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]1", 
         " ", "\[Xi]2", " ", 
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "2"], " ", 
         SuperscriptBox["\[Sigma]2", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"2", " ", "\[Sigma]2"}], "+", 
           SuperscriptBox["\[Sigma]2", "2"]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "3"], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", "\[Sigma]2"}], ")"}]}], "-", 
            RowBox[{"\[Sigma]2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], "-", 
            RowBox[{"\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               RowBox[{"4", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}]}], ")"}], "2"]}]}],
        ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "5"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"4", " ", "\[Xi]1", " ", 
      SuperscriptBox["\[Xi]2", "2"], " ", 
      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[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
       "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], ")"}]}], "+", 
   
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        RowBox[{"(", 
         RowBox[{"a1", "+", "a2"}], ")"}]}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"3", "-", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"3", " ", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"3", " ", "\[Sigma]2"}]], " ", 
         SuperscriptBox["\[Xi]2", "3"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
          "4"]}], "+", 
        RowBox[{"t", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         SuperscriptBox["\[Sigma]2", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", "+", "\[Sigma]2", "-", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "2"], "-", 
            RowBox[{"2", " ", "\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]2"}], ")"}]}], "+", 
            RowBox[{"\[Sigma]2", " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", "\[Sigma]2"}], ")"}]}]}], ")"}], "2"]}], "+", 
        
        RowBox[{"16", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "+", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]1", " ", 
         "\[Xi]2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
         SuperscriptBox["\[Sigma]2", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"4", "-", 
            RowBox[{"4", " ", "\[Sigma]1"}], "+", 
            SuperscriptBox["\[Sigma]1", "2"], "-", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "3"], " ", 
            RowBox[{"(", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], "-", 
           RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", 
            RowBox[{"(", 
             RowBox[{"4", "+", 
              RowBox[{"2", " ", "\[Sigma]2"}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              SuperscriptBox["\[Sigma]2", "3"]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"8", "-", 
              RowBox[{"4", " ", "\[Sigma]2"}], "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "+", 
              SuperscriptBox["\[Sigma]2", "4"]}], ")"}]}]}], ")"}]}]}], ")"}],
       " ", 
      SuperscriptBox["\[Epsilon]", "6"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"16", " ", 
      SuperscriptBox["\[Xi]1", "2"], " ", 
      SuperscriptBox["\[Xi]2", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"], " ", 
      SuperscriptBox["\[Sigma]2", "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
       "4"]}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "7"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 7, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 
   0, {((E^(-$CellContext`a1) $CellContext`t^(
        1 - $CellContext`\[Sigma]1))/$CellContext`\[Xi]1) (-1 + $CellContext`\
\[Sigma]1)^(-2), (((
       E^(-$CellContext`a2) $CellContext`t^(
         1 - $CellContext`\[Sigma]2))/$CellContext`\[Xi]2) ($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (-1 + $CellContext`\[Sigma]2)^(-2), \
(((((((E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
             2 - $CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2))/$CellContext`\[Xi]1)/$CellContext`\[Xi]2) (-1 + \
$CellContext`\[Sigma]1)^(-2)) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)) (-1 + $CellContext`\[Sigma]2)^(-2)) (-2 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (2 - 
     2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2 - 
     2 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]2^2), (
     Rational[1, 
       4] $CellContext`t) ((((
         E^((-2) $CellContext`a2) $CellContext`t^(1 - 
           2 $CellContext`\[Sigma]2)) $CellContext`\[Xi]2^(-2)) \
($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-4)) (-1 + $CellContext`\
\[Sigma]2)^(-4) + (((((((4 
             E^(-$CellContext`a1)) $CellContext`t^(
              1 - $CellContext`\[Sigma]1))/$CellContext`\[Xi]1) (-2 + \
$CellContext`\[Sigma]1)^(-2)) (-1 + $CellContext`\[Sigma]1)^(-2)) \
$CellContext`\[Sigma]1^(-2)) (2 - 
        2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2)) $CellContext`\
\[Sigma]2^(-2) + (((((
           E^((-2) $CellContext`a1 - $CellContext`a2) $CellContext`t^(2 - 
             2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
$CellContext`\[Xi]1^(-2))/$CellContext`\[Xi]2) (-1 + \
$CellContext`\[Sigma]1)^(-4)) (-1 + $CellContext`\[Sigma]2)^(-2)) (-2 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) + ((((
          E^$CellContext`a2 $CellContext`t^$CellContext`\[Sigma]2) \
$CellContext`\[Xi]2) $CellContext`\[Sigma]2^(-4)) (
         1 + $CellContext`\[Sigma]2)^(-2)) ($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2)), (((((((((((((((Rational[1, 4] 
                   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]1^(-4)) (
               1 + $CellContext`\[Sigma]1)^(-2)) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)) (-2 + $CellContext`\[Sigma]2)^(-2)) (-1 + \
$CellContext`\[Sigma]2)^(-4)) $CellContext`\[Sigma]2^(-4)) (
          1 + $CellContext`\[Sigma]2)^(-2)) (
         2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (-2 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) \
($CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) ((((((((
             E^(2 ($CellContext`a1 + $CellContext`a2)) $CellContext`t^(
               2 ($CellContext`\[Sigma]1 + $CellContext`\[Sigma]2))) \
$CellContext`\[Xi]1^2) $CellContext`\[Xi]2^2) (-1 + \
$CellContext`\[Sigma]1)^2) (-1 + $CellContext`\[Sigma]2)^4) $CellContext`\
\[Sigma]2^4) (4 - 
         4 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2 - $CellContext`\
\[Sigma]2^2)^2) (
        2 + $CellContext`\[Sigma]2 - $CellContext`\[Sigma]2^2)^2 + (((((((
             E^(3 $CellContext`a2) $CellContext`t^(1 + 
               3 $CellContext`\[Sigma]2)) $CellContext`\[Xi]2^3) \
$CellContext`\[Sigma]1^4) (
            1 + $CellContext`\[Sigma]1)^2) (-2 + $CellContext`\[Sigma]2)^2) \
(-1 + $CellContext`\[Sigma]2)^4) (
         2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]1^2 + (-2 + \
$CellContext`\[Sigma]2) $CellContext`\[Sigma]2)^2) (2 - 
       2 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2 + 
       2 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]2^2) + \
(((($CellContext`t^2 $CellContext`\[Sigma]1^4) (
           1 + $CellContext`\[Sigma]1)^2) $CellContext`\[Sigma]2^4) (
         2 + $CellContext`\[Sigma]2 - $CellContext`\[Sigma]2^2)^2) (
        2 $CellContext`\[Sigma]1 - $CellContext`\[Sigma]1^2 + $CellContext`\
\[Sigma]2 (
          2 + $CellContext`\[Sigma]2))^2 + (((((((((4 
               E^($CellContext`a1 + $CellContext`a2)) $CellContext`t^(
                1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) \
$CellContext`\[Xi]1) $CellContext`\[Xi]2) $CellContext`\[Sigma]1^2) (-1 + \
$CellContext`\[Sigma]1^2)^2) $CellContext`\[Sigma]2^2) (-1 + $CellContext`\
\[Sigma]2^2)^2) (2 - 
        2 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]2^2)) ($CellContext`\
\[Sigma]1^3 + $CellContext`\[Sigma]1^2 (-4 + $CellContext`\[Sigma]2) - \
$CellContext`\[Sigma]2 (-4 + $CellContext`\[Sigma]2^2) - \
$CellContext`\[Sigma]1 (-4 + 
         4 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]2^2))^2), \
((((((((((((((Rational[1, 16] 
                  E^((-2) ($CellContext`a1 + $CellContext`a2))) \
$CellContext`t^(3 - 
                   2 ($CellContext`\[Sigma]1 + $CellContext`\[Sigma]2))) \
$CellContext`\[Xi]1^(-2)) $CellContext`\[Xi]2^(-2)) (-2 + $CellContext`\
\[Sigma]1)^(-2)) (-1 + $CellContext`\[Sigma]1)^(-4)) \
$CellContext`\[Sigma]1^(-2)) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)) (-2 + $CellContext`\[Sigma]2)^(-2)) (-1 + \
$CellContext`\[Sigma]2)^(-4)) $CellContext`\[Sigma]2^(-4)) (
         1 + $CellContext`\[Sigma]2)^(-2)) (
        2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (-2 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4)) ((((((((
             E^(3 $CellContext`a2) $CellContext`t^(
               3 $CellContext`\[Sigma]2)) $CellContext`\[Xi]2^3) (-2 + \
$CellContext`\[Sigma]1)^2) $CellContext`\[Sigma]1^2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^2) (-2 + $CellContext`\[Sigma]2)^2) (-1 + \
$CellContext`\[Sigma]2)^4) (-2 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2)^4 + (((($CellContext`t (-2 + $CellContext`\[Sigma]1)^2) \
$CellContext`\[Sigma]1^2) $CellContext`\[Sigma]2^4) (
         2 + $CellContext`\[Sigma]2 - $CellContext`\[Sigma]2^2)^2) \
($CellContext`\[Sigma]1^2 - (2 $CellContext`\[Sigma]1) (
         1 + $CellContext`\[Sigma]2) + $CellContext`\[Sigma]2 (
          2 + $CellContext`\[Sigma]2))^2 + ((((((((16 
              E^($CellContext`a1 + $CellContext`a2)) \
$CellContext`t^($CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) \
$CellContext`\[Xi]1) $CellContext`\[Xi]2) (-1 + $CellContext`\[Sigma]1)^2) \
$CellContext`\[Sigma]2^2) (4 - 
          4 $CellContext`\[Sigma]1 + $CellContext`\[Sigma]1^2 - $CellContext`\
\[Sigma]2^2)^2) (-1 + $CellContext`\[Sigma]2^2)^2) ((
         2 (-2 + $CellContext`\[Sigma]2)^2) $CellContext`\[Sigma]2^2 - (
        4 $CellContext`\[Sigma]1^3) (2 - 
        2 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]2^2) + $CellContext`\
\[Sigma]1^4 (2 - 2 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]2^2) - ((
         2 $CellContext`\[Sigma]1) $CellContext`\[Sigma]2) (4 + 
        2 $CellContext`\[Sigma]2 - 
        4 $CellContext`\[Sigma]2^2 + $CellContext`\[Sigma]2^3) + \
$CellContext`\[Sigma]1^2 (8 - 4 $CellContext`\[Sigma]2 + 
         6 $CellContext`\[Sigma]2^2 - 
         4 $CellContext`\[Sigma]2^3 + $CellContext`\[Sigma]2^4)))}, 1, 7, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.798706174369996*^9, 3.798706185868515*^9}, 
   3.798707150848207*^9, 3.798707274142555*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"912ed001-60b0-4ec6-947f-450575f85b85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"Coefficient", "[", 
      RowBox[{
       RowBox[{"Tau0", "[", "t", "]"}], ",", "\[Xi]1", ",", "0"}], "]"}], ",",
      "\[Xi]2", ",", 
     RowBox[{"-", "1"}]}], "]"}], "//", "Simplify"}], "//", 
  "Expand"}]], "Input",
 CellChangeTimes->{{3.7987061906423388`*^9, 3.798706208506667*^9}, {
  3.798706307532489*^9, 3.798706317621566*^9}, {3.798707162594129*^9, 
  3.7987071800524263`*^9}, {3.798707303150207*^9, 3.798707306270925*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"a2e856d4-54b8-4598-b770-314afebcdb0e"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a2"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a2"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a2"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox["\[Sigma]2", "2"]}]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a2"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], 
   RowBox[{
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    "\[Sigma]2"}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a2"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
    SuperscriptBox["\[Epsilon]", "2"], " ", "\[Sigma]2"}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a2"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
    SuperscriptBox["\[Epsilon]", "2"], " ", 
    SuperscriptBox["\[Sigma]2", "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.798706203362771*^9, 3.7987062128961267`*^9}, {
   3.7987063134382057`*^9, 3.798706318065947*^9}, {3.798707168095282*^9, 
   3.798707180502748*^9}, 3.798707306779155*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"57ab4ec2-dc81-4d12-84ab-c87aade4f739"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "-", 
   FractionBox[
    RowBox[{"4", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "2"], " ", "\[Sigma]2"}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.7987073278928623`*^9, 3.7987073309567747`*^9}, 
   3.79870736367889*^9},
 CellLabel->"In[86]:=",ExpressionUUID->"25b81b4a-c221-4404-90a6-5ff0d39c9bcf"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "a2"}]], " ", 
   SuperscriptBox["t", 
    RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
   SuperscriptBox["\[Epsilon]", "2"]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.798707328476602*^9, 3.79870733123367*^9}, 
   3.798707364199839*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"e2ee2b61-ed38-42d5-be8c-59480b03754a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "5"]}], 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "5"]}], 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}]], "-", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "5"]}], 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     "\[Sigma]2"}]]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.798707346399775*^9, 3.798707368991765*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"6d2e6c31-dfac-4e01-bc09-28ddf61a0958"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "a2"}]], " ", 
   SuperscriptBox["t", 
    RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
   SuperscriptBox["\[Epsilon]", "5"], " ", 
   RowBox[{"(", 
    RowBox[{"2", "-", 
     RowBox[{"2", " ", "\[Sigma]2"}], "+", 
     SuperscriptBox["\[Sigma]2", "2"]}], ")"}]}], 
  RowBox[{
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]2", "2"]}]]], "Output",
 CellChangeTimes->{{3.798707349461781*^9, 3.7987073694718857`*^9}},
 CellLabel->"Out[87]=",ExpressionUUID->"b1ac687a-301c-4698-bf52-2951254b29a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", "a2"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], 
  RowBox[{"\[Xi]2", "^", 
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}]}], 
  RowBox[{"B", "[", 
   RowBox[{"\[Sigma]1", ",", 
    RowBox[{"\[Sigma]2", "-", "1"}], ",", "t"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7987072222446003`*^9, 3.798707223491844*^9}, {
  3.798707380630377*^9, 3.7987073972859583`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"141b289b-680d-452d-b5b7-4b5b2e07879d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    RowBox[{"\[Xi]2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]2"}]], " ", 
     SuperscriptBox["\[Epsilon]", "5"]}], 
    RowBox[{"\[Xi]2", " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "a2"}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"3", "-", "\[Sigma]2"}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Sigma]1", "8"], " ", 
         RowBox[{"(", 
          RowBox[{"3", "-", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"]}]}], 
          ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "6"}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"]}], "-", 
           RowBox[{"8", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "6"]}]}], 
          ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"3", "+", 
           RowBox[{"5", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}], "-", 
           RowBox[{"12", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "6"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "8"]}]}], 
          ")"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
          "2"], " ", 
         RowBox[{"(", 
          RowBox[{"4", "+", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}]}], ")"}],
          " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "2"]}], ")"}], 
          "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "4"]}]}], ")"}], 
      " ", 
      SuperscriptBox["\[Epsilon]", "8"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"8", " ", "\[Xi]2", " ", 
      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[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]2"}], ")"}], "6"], " ", 
      SuperscriptBox["\[Sigma]2", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
       "2"]}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 2, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 
   0, {(((E^(-$CellContext`a2) $CellContext`t^(
         1 - $CellContext`\[Sigma]2))/$CellContext`\[Xi]2) ($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (-1 + $CellContext`\[Sigma]2)^(-2), 
    0, 0, ((((
        E^(-$CellContext`a2) $CellContext`t^(
          2 - $CellContext`\[Sigma]2))/$CellContext`\[Xi]2) $CellContext`\
\[Sigma]1^(-2)) ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (-1 + \
$CellContext`\[Sigma]2)^(-4), 0, 
    0, ((((((((((((Rational[1, 8] 
                E^(-$CellContext`a2)) $CellContext`t^(
                 3 - $CellContext`\[Sigma]2))/$CellContext`\[Xi]2) (-1 + \
$CellContext`\[Sigma]1)^(-2)) $CellContext`\[Sigma]1^(-4)) (
             1 + $CellContext`\[Sigma]1)^(-2)) ($CellContext`\[Sigma]1^8 (3 - 
             3 (-1 + $CellContext`\[Sigma]2)^2 + 
             4 (-1 + $CellContext`\[Sigma]2)^4) + $CellContext`\[Sigma]1^6 \
(-6 + 2 (-1 + $CellContext`\[Sigma]2)^2 + 4 (-1 + $CellContext`\[Sigma]2)^4 - 
             8 (-1 + $CellContext`\[Sigma]2)^6) + $CellContext`\[Sigma]1^4 (3 + 
             5 (-1 + $CellContext`\[Sigma]2)^2 - 
             12 (-1 + $CellContext`\[Sigma]2)^4 + 
             4 (-1 + $CellContext`\[Sigma]2)^6 + 
             4 (-1 + $CellContext`\[Sigma]2)^8) - (($CellContext`\[Sigma]1^2 \
(-1 + (-1 + $CellContext`\[Sigma]2)^2)^2) (4 + 
             3 (-1 + $CellContext`\[Sigma]2)^2)) (-1 + \
$CellContext`\[Sigma]2)^2 + (
             3 (-1 + (-1 + $CellContext`\[Sigma]2)^2)^2) (-1 + $CellContext`\
\[Sigma]2)^4)) ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (
          1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (-2 + \
$CellContext`\[Sigma]2)^(-2)) (-1 + $CellContext`\[Sigma]2)^(-6)) \
$CellContext`\[Sigma]2^(-2)) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]2)^(-2)}, 2, 9, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.798707223811309*^9, 3.798707397668092*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"1a51fc1c-f5bb-4ff1-bae6-25d286d1fc2b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", "a1"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"2", "-", 
      RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"]}]], " ", 
  RowBox[{"\[Xi]1", "^", 
   RowBox[{"(", 
    RowBox[{"-", "2"}], ")"}]}], 
  RowBox[{"B", "[", 
   RowBox[{
    RowBox[{"\[Sigma]1", "-", "2"}], ",", "\[Sigma]2", ",", "t"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.798706243488043*^9, 3.7987062476756983`*^9}, {
  3.798706283985455*^9, 3.798706293294492*^9}, {3.798707195814816*^9, 
  3.798707243719998*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"23549428-2098-4625-9e9e-27536a0ef6e8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    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[{"3", "-", 
       RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
     SuperscriptBox["\[Epsilon]", "5"]}], 
    RowBox[{"4", " ", 
     SuperscriptBox["\[Xi]1", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", "2"}], " ", "a1"}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"4", "-", 
        RowBox[{"2", " ", "\[Sigma]1"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"3", " ", 
         SuperscriptBox["\[Sigma]2", "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}], "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[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[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "8"], " ", 
         RowBox[{"(", 
          RowBox[{"3", "-", 
           RowBox[{"3", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[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[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "2"}], "+", "\[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"]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "8"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"32", " ", 
      SuperscriptBox["\[Xi]1", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "3"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "6"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "2"}], "+", "\[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[{
         RowBox[{"-", "2"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
       "2"]}], ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 2, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 
   0, {(((Rational[1, 4] 
       E^((-2) $CellContext`a1)) $CellContext`t^(2 - 
        2 $CellContext`\[Sigma]1)) $CellContext`\[Xi]1^(-2)) (-1 + \
$CellContext`\[Sigma]1)^(-4), 0, 
    0, (((((Rational[1, 4] 
         E^((-2) $CellContext`a1)) $CellContext`t^(3 - 
          2 $CellContext`\[Sigma]1)) $CellContext`\[Xi]1^(-2)) (-2 + \
$CellContext`\[Sigma]1)^(-2)) (-1 + $CellContext`\[Sigma]1)^(-4)) \
$CellContext`\[Sigma]2^(-2), 0, 
    0, (((((((((((Rational[1, 32] 
               E^((-2) $CellContext`a1)) $CellContext`t^(4 - 
                2 $CellContext`\[Sigma]1)) $CellContext`\[Xi]1^(-2)) (-3 + \
$CellContext`\[Sigma]1)^(-2)) (-2 + $CellContext`\[Sigma]1)^(-4)) (-1 + \
$CellContext`\[Sigma]1)^(-6)) (-2 + $CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^(-2)) (-1 + $CellContext`\[Sigma]2)^(-2)) \
$CellContext`\[Sigma]2^(-4)) (
        1 + $CellContext`\[Sigma]2)^(-2)) (-2 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^(-2)) ((
       3 $CellContext`\[Sigma]2^4) (-1 + $CellContext`\[Sigma]2^2)^2 - (((-2 + \
$CellContext`\[Sigma]1)^2 $CellContext`\[Sigma]2^2) (-1 + $CellContext`\
\[Sigma]2^2)^2) (4 + 
      3 $CellContext`\[Sigma]2^2) + (-2 + $CellContext`\[Sigma]1)^8 (3 - 
       3 $CellContext`\[Sigma]2^2 + 
       4 $CellContext`\[Sigma]2^4) + (-2 + $CellContext`\[Sigma]1)^6 (-6 + 
       2 $CellContext`\[Sigma]2^2 + 4 $CellContext`\[Sigma]2^4 - 
       8 $CellContext`\[Sigma]2^6) + (-2 + $CellContext`\[Sigma]1)^4 (3 + 
       5 $CellContext`\[Sigma]2^2 - 12 $CellContext`\[Sigma]2^4 + 
       4 $CellContext`\[Sigma]2^6 + 4 $CellContext`\[Sigma]2^8))}, 2, 9, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.798706248037431*^9, 3.798706293625053*^9, {3.798707197619639*^9, 
   3.7987072440544147`*^9}},
 CellLabel->"Out[79]=",ExpressionUUID->"043a5734-6e5f-4ecd-874c-acd42d6c6c56"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"-", "a1"}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"2", "-", "\[Sigma]1"}]], " ", 
      SuperscriptBox["\[Epsilon]", "4"]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      SuperscriptBox["\[Sigma]2", "2"]}]]}], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]1"}]], " ", 
     SuperscriptBox["\[Epsilon]", "4"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]1", "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}]], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]1"}]], " ", 
     SuperscriptBox["\[Epsilon]", "4"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Sigma]1"}], "+", 
        SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}]], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a1"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"2", "-", "\[Sigma]1"}]], " ", 
     SuperscriptBox["\[Epsilon]", "4"], " ", "\[Sigma]1"}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", "\[Sigma]1"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Sigma]1"}], "+", 
        SuperscriptBox["\[Sigma]1", "2"]}], ")"}], "2"], " ", 
     SuperscriptBox["\[Sigma]2", "2"]}]]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.798706334682836*^9, 3.7987063360267076`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"4b23567e-abcc-43e1-a848-cc1bbd204b18"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "a1"}]], " ", 
   SuperscriptBox["t", 
    RowBox[{"2", "-", "\[Sigma]1"}]], " ", 
   SuperscriptBox["\[Epsilon]", "4"], " ", 
   RowBox[{"(", 
    RowBox[{"2", "-", 
     RowBox[{"2", " ", "\[Sigma]1"}], "+", 
     SuperscriptBox["\[Sigma]1", "2"]}], ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", "\[Sigma]1"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]1", "2"], " ", 
   SuperscriptBox["\[Sigma]2", "2"]}]]], "Output",
 CellChangeTimes->{3.798706336389024*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"517681ce-e0a4-4819-8731-79ea362aac81"]
}, Open  ]]
},
WindowSize->{1920, 1037},
WindowMargins->{{0, Automatic}, {Automatic, 18}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 35259, 869, 915, "Input",ExpressionUUID->"a55a72d0-c6df-4472-8db1-7f54caadc5ff"],
Cell[35820, 891, 4023, 84, 69, "Input",ExpressionUUID->"4f1ffb98-dbf8-43f1-97ea-ed0c6405aa74"],
Cell[CellGroupData[{
Cell[39868, 979, 2643, 64, 73, "Input",ExpressionUUID->"66639251-3470-4d2f-978c-2cd1b2b938fa"],
Cell[42514, 1045, 161, 3, 44, "Output",ExpressionUUID->"49e59b7c-2920-4afa-8b02-a6ec3a5bfc8b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42712, 1053, 1179, 30, 39, "Input",ExpressionUUID->"8066e149-0311-4d71-9a18-5acfb17bea49"],
Cell[43894, 1085, 16890, 443, 689, "Output",ExpressionUUID->"da788ab1-672e-44df-9b2e-1fe50dcc0838"]
}, Open  ]],
Cell[60799, 1531, 1688, 48, 98, "Input",ExpressionUUID->"842e62c6-1ac5-44d8-8863-ecad1fc5227b"],
Cell[62490, 1581, 2534, 77, 98, "Input",ExpressionUUID->"e6474fd2-a9f4-4eba-a9e0-22b071d2bdc8"],
Cell[CellGroupData[{
Cell[65049, 1662, 568, 15, 39, "Input",ExpressionUUID->"fa3b54d3-3458-41ec-b09c-d96b4cf8717d"],
Cell[65620, 1679, 3035, 78, 113, "Output",ExpressionUUID->"3d9ef8a5-bf28-4e26-96f3-debf3c94d53a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68692, 1762, 494, 14, 39, "Input",ExpressionUUID->"1c33eaf7-890a-435c-ba06-7cc63b951946"],
Cell[69189, 1778, 8296, 207, 188, "Output",ExpressionUUID->"28d4a98a-4ef6-4cc7-b833-058d2a6a6e81"]
}, Open  ]],
Cell[CellGroupData[{
Cell[77522, 1990, 541, 15, 39, "Input",ExpressionUUID->"5ea0f6dc-17de-4cc9-9369-25f8df02b942"],
Cell[78066, 2007, 3932, 100, 152, "Output",ExpressionUUID->"5b2a682b-5cb8-4369-99ba-062e71302624"]
}, Open  ]],
Cell[CellGroupData[{
Cell[82035, 2112, 2283, 66, 82, "Input",ExpressionUUID->"34a2efb7-fad5-4b94-b5e9-e24eca1dc7c5"],
Cell[84321, 2180, 1957, 55, 75, "Output",ExpressionUUID->"1765f5c1-0ed7-4227-bd54-8a3de9d62ef2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[86315, 2240, 336, 9, 63, "Input",ExpressionUUID->"90126740-d0e7-492a-80a8-bb486c3d336d"],
Cell[86654, 2251, 4563, 121, 80, "Output",ExpressionUUID->"33959dc8-cc31-4fb6-b213-629a4501c132"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91254, 2377, 620, 17, 39, "Input",ExpressionUUID->"8a37a4e5-2889-419a-993d-3bd2dc9aa90c"],
Cell[91877, 2396, 2223, 60, 80, "Output",ExpressionUUID->"bd18c6ef-a749-4228-b32c-e0af32fc1a65"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94137, 2461, 623, 17, 39, "Input",ExpressionUUID->"2aeed7d0-9f5e-474d-9e41-d95f3f57b6e8"],
Cell[94763, 2480, 2458, 67, 75, "Output",ExpressionUUID->"7b25e4a4-de35-4da4-902f-e8f145c1edac"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97258, 2552, 606, 16, 39, "Input",ExpressionUUID->"03cbc898-30d3-41fb-bee3-21922daa7acb"],
Cell[97867, 2570, 237, 4, 44, "Output",ExpressionUUID->"2247a750-d06d-4ef6-97af-27eb58439b64"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98141, 2579, 739, 22, 82, "Input",ExpressionUUID->"c3f41b33-0483-459a-8ffd-2548b006afa6"],
Cell[98883, 2603, 973, 31, 75, "Output",ExpressionUUID->"6edfc9a6-54b0-4403-bc83-ea3366d44f4f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99893, 2639, 1093, 32, 73, "Input",ExpressionUUID->"718a806d-33ad-42df-abf0-f686349d16c9"],
Cell[100989, 2673, 2197, 58, 80, "Output",ExpressionUUID->"64f8ec06-0dfb-425c-82b7-b6f5849e130c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[103223, 2736, 2496, 66, 82, "Input",ExpressionUUID->"6d05dfa5-0efa-481e-afcd-6330d0a98de4"],
Cell[105722, 2804, 1627, 43, 80, "Output",ExpressionUUID->"aec0c468-4988-4f56-bfe9-734682556455"]
}, Open  ]],
Cell[CellGroupData[{
Cell[107386, 2852, 651, 19, 39, "Input",ExpressionUUID->"c6667524-76a2-4645-9251-bb0e2575e8b5"],
Cell[108040, 2873, 1408, 39, 73, "Output",ExpressionUUID->"a5cb703c-d3d9-4e73-9b64-533d74dfe2a4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[109485, 2917, 999, 30, 73, "Input",ExpressionUUID->"0ccbb477-4eb9-4e2d-843f-245d9b5e05b6"],
Cell[110487, 2949, 2159, 59, 80, "Output",ExpressionUUID->"73ae7fc3-56f0-4030-a343-61614c3a3c27"]
}, Open  ]],
Cell[CellGroupData[{
Cell[112683, 3013, 2493, 66, 82, "Input",ExpressionUUID->"becb22a7-df8a-4e66-bc0a-b8c696bbca81"],
Cell[115179, 3081, 1581, 43, 80, "Output",ExpressionUUID->"b0f383d9-8c82-4401-8fda-7eeab4218c22"]
}, Open  ]],
Cell[CellGroupData[{
Cell[116797, 3129, 1386, 41, 73, "Input",ExpressionUUID->"2e1241f3-9a3c-4586-ab16-6d8cd30c5cf9"],
Cell[118186, 3172, 1015, 28, 73, "Output",ExpressionUUID->"42de29b0-dc1f-4af0-a601-5adf047b7755"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119238, 3205, 1166, 33, 74, "Input",ExpressionUUID->"37aded5a-08e0-4435-bba4-3f57f97445ce"],
Cell[120407, 3240, 787, 23, 78, "Output",ExpressionUUID->"c56a42cc-62e4-4506-818f-f901a03f6c9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121231, 3268, 1611, 51, 74, "Input",ExpressionUUID->"466d5c14-38e6-4d8d-8f23-704111a0d678"],
Cell[122845, 3321, 687, 20, 73, "Output",ExpressionUUID->"71463a9c-3d74-4845-aae7-765da6ebff6a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[123569, 3346, 499, 15, 74, "Input",ExpressionUUID->"55e53add-ba06-47c8-93da-6e8aebd46e59"],
Cell[124071, 3363, 542, 16, 73, "Output",ExpressionUUID->"f51da7d5-0ec5-4013-bcbf-2a1a0be9f930"]
}, Open  ]],
Cell[CellGroupData[{
Cell[124650, 3384, 428, 11, 39, "Input",ExpressionUUID->"030717c7-7f6e-4592-985f-15e5f855f110"],
Cell[125081, 3397, 12483, 316, 222, "Output",ExpressionUUID->"60a59446-b6c8-431b-8dbc-f588cd80e67f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[137601, 3718, 427, 9, 39, "Input",ExpressionUUID->"1dfaf145-508d-4978-a9f4-2f0c59e081a7"],
Cell[138031, 3729, 14610, 455, 390, "Output",ExpressionUUID->"39d7f24c-18c8-43a8-9867-91139e0a9181"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152678, 4189, 573, 15, 39, "Input",ExpressionUUID->"d6904f44-abdf-4e41-b248-aa23c05b8300"],
Cell[153254, 4206, 4508, 117, 75, "Output",ExpressionUUID->"3ab0791d-1d03-4759-9b02-e77a9f6bfc7c"]
}, Open  ]],
Cell[157777, 4326, 4746, 121, 111, "Input",ExpressionUUID->"192ca81b-94f6-4d7c-995a-a25a6b8e2552"],
Cell[162526, 4449, 153, 3, 39, "Input",ExpressionUUID->"6f7e0b36-4595-4378-a4b6-03a817519ec5"],
Cell[CellGroupData[{
Cell[162704, 4456, 1099, 31, 72, "Input",ExpressionUUID->"3307d783-6895-4ae4-9339-8e712c42ca5e"],
Cell[163806, 4489, 24758, 608, 286, "Output",ExpressionUUID->"912ed001-60b0-4ec6-947f-450575f85b85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188601, 5102, 607, 14, 38, "Input",ExpressionUUID->"a2e856d4-54b8-4598-b770-314afebcdb0e"],
Cell[189211, 5118, 4028, 125, 77, "Output",ExpressionUUID->"57ab4ec2-dc81-4d12-84ab-c87aade4f739"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193276, 5248, 2090, 64, 72, "Input",ExpressionUUID->"25b81b4a-c221-4404-90a6-5ff0d39c9bcf"],
Cell[195369, 5314, 624, 18, 77, "Output",ExpressionUUID->"e2ee2b61-ed38-42d5-be8c-59480b03754a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196030, 5337, 2199, 66, 72, "Input",ExpressionUUID->"6d2e6c31-dfac-4e01-bc09-28ddf61a0958"],
Cell[198232, 5405, 941, 27, 78, "Output",ExpressionUUID->"b1ac687a-301c-4698-bf52-2951254b29a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199210, 5437, 863, 25, 72, "Input",ExpressionUUID->"141b289b-680d-452d-b5b7-4b5b2e07879d"],
Cell[200076, 5464, 7886, 211, 147, "Output",ExpressionUUID->"1a51fc1c-f5bb-4ff1-bae6-25d286d1fc2b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[207999, 5680, 878, 26, 72, "Input",ExpressionUUID->"23549428-2098-4625-9e9e-27536a0ef6e8"],
Cell[208880, 5708, 6833, 183, 113, "Output",ExpressionUUID->"043a5734-6e5f-4ecd-874c-acd42d6c6c56"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215750, 5896, 2321, 69, 76, "Input",ExpressionUUID->"4b23567e-abcc-43e1-a848-cc1bbd204b18"],
Cell[218074, 5967, 813, 24, 78, "Output",ExpressionUUID->"517681ce-e0a4-4819-8731-79ea362aac81"]
}, Open  ]]
}
]
*)