A1_massive_q_experiments.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[    323257,       8035]
NotebookOptionsPosition[    314385,       7886]
NotebookOutlinePosition[    314780,       7902]
CellTagsIndexPosition[    314737,       7899]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"totalcoeffs", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0"}], "]"}], "\[Rule]", "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "3"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "4"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "4"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]]}],
         ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"2", "-", 
           RowBox[{"4", " ", "\[Sigma]1"}], "+", 
           RowBox[{"4", " ", "\[Sigma]2"}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "2"}], "+", 
           RowBox[{"4", " ", "\[Sigma]1"}], "-", 
           RowBox[{"4", " ", "\[Sigma]2"}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"1", "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "+", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"24", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
           RowBox[{"2", " ", "\[Sigma]2"}], "+", 
           SuperscriptBox["\[Sigma]2", "2"], "-", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "+", 
           RowBox[{"\[Sigma]1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "-", 
              RowBox[{"2", " ", "\[Sigma]2"}], "+", 
              RowBox[{"24", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{
           RowBox[{"-", "1"}], "-", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "-", 
           RowBox[{"2", " ", "\[Sigma]2"}], "-", 
           SuperscriptBox["\[Sigma]2", "2"], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "+", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              RowBox[{"24", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
           RowBox[{"\[Sigma]1", " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", 
              RowBox[{"2", " ", "\[Sigma]2"}], "-", 
              RowBox[{"24", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "3"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "3"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"8", "-", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "+", 
            RowBox[{"24", " ", "\[Sigma]2"}], "+", 
            RowBox[{"25", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"8", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"25", "+", 
               RowBox[{"24", " ", "\[Sigma]2"}]}], ")"}]}], "-", 
            RowBox[{"2", " ", "\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{"12", "+", 
               RowBox[{"25", " ", "\[Sigma]2"}], "+", 
               RowBox[{"12", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"8", "-", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]1", "3"]}], "+", 
           RowBox[{"24", " ", "\[Sigma]2"}], "+", 
           RowBox[{"25", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "+", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"25", "+", 
              RowBox[{"24", " ", "\[Sigma]2"}]}], ")"}]}], "-", 
           RowBox[{"2", " ", "\[Sigma]1", " ", 
            RowBox[{"(", 
             RowBox[{"12", "+", 
              RowBox[{"25", " ", "\[Sigma]2"}], "+", 
              RowBox[{"12", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"3", " ", 
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{"10", " ", 
                 SuperscriptBox["\[Sigma]1", "5"]}], "+", 
                RowBox[{"12", " ", "\[Sigma]2"}], "+", 
                RowBox[{"7", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                RowBox[{"12", " ", 
                 SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                RowBox[{"25", " ", 
                 SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                RowBox[{"10", " ", 
                 SuperscriptBox["\[Sigma]2", "5"]}], "-", 
                RowBox[{"25", " ", 
                 SuperscriptBox["\[Sigma]1", "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
                RowBox[{"4", " ", 
                 SuperscriptBox["\[Sigma]1", "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{"3", "+", 
                   RowBox[{"25", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"25", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 SuperscriptBox["\[Sigma]1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "7"}], "+", 
                   RowBox[{"36", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"150", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                   RowBox[{"100", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", "\[Sigma]1", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "6"}], "-", 
                   RowBox[{"7", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"18", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                   RowBox[{"50", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                   RowBox[{"25", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
               "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "2"]}], ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"3", " ", 
            RowBox[{"(", 
             RowBox[{"4", "+", 
              RowBox[{"10", " ", 
               SuperscriptBox["\[Sigma]1", "5"]}], "+", 
              RowBox[{"12", " ", "\[Sigma]2"}], "+", 
              RowBox[{"7", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "-", 
              RowBox[{"12", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "-", 
              RowBox[{"25", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}], "-", 
              RowBox[{"10", " ", 
               SuperscriptBox["\[Sigma]2", "5"]}], "-", 
              RowBox[{"25", " ", 
               SuperscriptBox["\[Sigma]1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"25", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"25", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "7"}], "+", 
                 RowBox[{"36", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"150", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"100", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6"}], "-", 
                 RowBox[{"7", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"18", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"50", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"25", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
           ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "6"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "6"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
              ")"}], "3"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             "3"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "8"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"4", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "8"]}]]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "5"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"5", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "10"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "5"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"5", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "10"]}]]}], ",", 
        
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "6"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "12"]}]]}], ",", 
        
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "6"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"6", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "12"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "4"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "5"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "4"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "5"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "5"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "7"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "5"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "7"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "32"}], "-", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "-", 
            RowBox[{"160", " ", "\[Sigma]2"}], "-", 
            RowBox[{"332", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "-", 
            RowBox[{"384", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "-", 
            RowBox[{"333", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}], "+", 
            RowBox[{"53", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}], "+", 
            RowBox[{"148", " ", 
             SuperscriptBox["\[Sigma]2", "6"]}], "+", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]2", "7"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "6"], " ", 
             RowBox[{"(", 
              RowBox[{"37", "+", 
               RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "5"], " ", 
             RowBox[{"(", 
              RowBox[{"53", "+", 
               RowBox[{"888", " ", "\[Sigma]2"}], "+", 
               RowBox[{"672", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "333"}], "+", 
               RowBox[{"265", " ", "\[Sigma]2"}], "+", 
               RowBox[{"2220", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1120", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "192"}], "-", 
               RowBox[{"666", " ", "\[Sigma]2"}], "+", 
               RowBox[{"265", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1480", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"560", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "166"}], "-", 
               RowBox[{"576", " ", "\[Sigma]2"}], "-", 
               RowBox[{"999", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"265", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"1110", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"336", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
            RowBox[{"\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{"160", "+", 
               RowBox[{"664", " ", "\[Sigma]2"}], "+", 
               RowBox[{"1152", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1332", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"265", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"888", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "-", 
               RowBox[{"224", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}], ")"}]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"32", "+", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "+", 
            RowBox[{"160", " ", "\[Sigma]2"}], "+", 
            RowBox[{"332", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"384", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "+", 
            RowBox[{"333", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}], "-", 
            RowBox[{"53", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}], "-", 
            RowBox[{"148", " ", 
             SuperscriptBox["\[Sigma]2", "6"]}], "-", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]2", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "6"], " ", 
             RowBox[{"(", 
              RowBox[{"37", "+", 
               RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "5"], " ", 
             RowBox[{"(", 
              RowBox[{"53", "+", 
               RowBox[{"888", " ", "\[Sigma]2"}], "+", 
               RowBox[{"672", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "333"}], "+", 
               RowBox[{"265", " ", "\[Sigma]2"}], "+", 
               RowBox[{"2220", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1120", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "192"}], "-", 
               RowBox[{"666", " ", "\[Sigma]2"}], "+", 
               RowBox[{"265", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1480", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"560", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "166"}], "-", 
               RowBox[{"576", " ", "\[Sigma]2"}], "-", 
               RowBox[{"999", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"265", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"1110", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"336", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
            RowBox[{"\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "160"}], "-", 
               RowBox[{"664", " ", "\[Sigma]2"}], "-", 
               RowBox[{"1152", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"1332", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"265", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"888", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"224", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"], " ", 
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}], ")"}]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "4"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"16", "-", 
              RowBox[{"128", " ", 
               SuperscriptBox["\[Sigma]1", "10"]}], "+", 
              RowBox[{"64", " ", "\[Sigma]2"}], "+", 
              RowBox[{"88", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              RowBox[{"32", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "-", 
              RowBox[{"31", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}], "+", 
              RowBox[{"860", " ", 
               SuperscriptBox["\[Sigma]2", "5"]}], "-", 
              RowBox[{"2050", " ", 
               SuperscriptBox["\[Sigma]2", "6"]}], "+", 
              RowBox[{"100", " ", 
               SuperscriptBox["\[Sigma]2", "7"]}], "+", 
              RowBox[{"1025", " ", 
               SuperscriptBox["\[Sigma]2", "8"]}], "-", 
              RowBox[{"120", " ", 
               SuperscriptBox["\[Sigma]2", "9"]}], "-", 
              RowBox[{"128", " ", 
               SuperscriptBox["\[Sigma]2", "10"]}], "+", 
              RowBox[{"40", " ", 
               SuperscriptBox["\[Sigma]1", "9"], " ", 
               RowBox[{"(", 
                RowBox[{"3", "+", 
                 RowBox[{"32", " ", "\[Sigma]2"}]}], ")"}]}], "-", 
              RowBox[{"5", " ", 
               SuperscriptBox["\[Sigma]1", "8"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "205"}], "+", 
                 RowBox[{"216", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"1152", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
              RowBox[{"20", " ", 
               SuperscriptBox["\[Sigma]1", "7"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "5"}], "-", 
                 RowBox[{"410", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"216", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"768", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "-", 
              RowBox[{"10", " ", 
               SuperscriptBox["\[Sigma]1", "6"], " ", 
               RowBox[{"(", 
                RowBox[{"205", "-", 
                 RowBox[{"70", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"2870", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"1008", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"2688", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "5"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "215"}], "+", 
                 RowBox[{"3075", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"525", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"14350", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"3780", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"8064", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "31"}], "+", 
                 RowBox[{"4300", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"30750", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"3500", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"71750", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{"15120", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "-", 
                 RowBox[{"26880", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "8"}], "+", 
                 RowBox[{"31", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"2150", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"10250", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"875", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{"14350", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"2520", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                 RowBox[{"3840", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"88", "+", 
                 RowBox[{"96", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"186", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"8600", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"30750", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"2100", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"28700", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "-", 
                 RowBox[{"4320", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}], "-", 
                 RowBox[{"5760", " ", 
                  SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "16"}], "-", 
                 RowBox[{"44", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"24", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"31", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"1075", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"3075", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "-", 
                 RowBox[{"175", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "-", 
                 RowBox[{"2050", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}], "+", 
                 RowBox[{"270", " ", 
                  SuperscriptBox["\[Sigma]2", "8"]}], "+", 
                 RowBox[{"320", " ", 
                  SuperscriptBox["\[Sigma]2", "9"]}]}], ")"}]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "4"}], "+", 
                 SuperscriptBox["\[Sigma]1", "2"], "-", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
                 SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 SuperscriptBox["\[Sigma]1", "2"], "-", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
                 SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "4"]}], ")"}]}], 
           ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "4"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"16", "-", 
            RowBox[{"128", " ", 
             SuperscriptBox["\[Sigma]1", "10"]}], "+", 
            RowBox[{"64", " ", "\[Sigma]2"}], "+", 
            RowBox[{"88", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "-", 
            RowBox[{"31", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}], "+", 
            RowBox[{"860", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}], "-", 
            RowBox[{"2050", " ", 
             SuperscriptBox["\[Sigma]2", "6"]}], "+", 
            RowBox[{"100", " ", 
             SuperscriptBox["\[Sigma]2", "7"]}], "+", 
            RowBox[{"1025", " ", 
             SuperscriptBox["\[Sigma]2", "8"]}], "-", 
            RowBox[{"120", " ", 
             SuperscriptBox["\[Sigma]2", "9"]}], "-", 
            RowBox[{"128", " ", 
             SuperscriptBox["\[Sigma]2", "10"]}], "+", 
            RowBox[{"40", " ", 
             SuperscriptBox["\[Sigma]1", "9"], " ", 
             RowBox[{"(", 
              RowBox[{"3", "+", 
               RowBox[{"32", " ", "\[Sigma]2"}]}], ")"}]}], "-", 
            RowBox[{"5", " ", 
             SuperscriptBox["\[Sigma]1", "8"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "205"}], "+", 
               RowBox[{"216", " ", "\[Sigma]2"}], "+", 
               RowBox[{"1152", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
            RowBox[{"20", " ", 
             SuperscriptBox["\[Sigma]1", "7"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "5"}], "-", 
               RowBox[{"410", " ", "\[Sigma]2"}], "+", 
               RowBox[{"216", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"768", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "-", 
            RowBox[{"10", " ", 
             SuperscriptBox["\[Sigma]1", "6"], " ", 
             RowBox[{"(", 
              RowBox[{"205", "-", 
               RowBox[{"70", " ", "\[Sigma]2"}], "-", 
               RowBox[{"2870", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1008", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"2688", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "5"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "215"}], "+", 
               RowBox[{"3075", " ", "\[Sigma]2"}], "-", 
               RowBox[{"525", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"14350", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"3780", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"8064", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "31"}], "+", 
               RowBox[{"4300", " ", "\[Sigma]2"}], "-", 
               RowBox[{"30750", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"3500", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"71750", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"15120", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "-", 
               RowBox[{"26880", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "8"}], "+", 
               RowBox[{"31", " ", "\[Sigma]2"}], "-", 
               RowBox[{"2150", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"10250", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"875", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"14350", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"2520", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "+", 
               RowBox[{"3840", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"88", "+", 
               RowBox[{"96", " ", "\[Sigma]2"}], "-", 
               RowBox[{"186", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"8600", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"30750", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"2100", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"28700", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "-", 
               RowBox[{"4320", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}], "-", 
               RowBox[{"5760", " ", 
                SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "+", 
            RowBox[{"4", " ", "\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "16"}], "-", 
               RowBox[{"44", " ", "\[Sigma]2"}], "-", 
               RowBox[{"24", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"31", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"1075", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"3075", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "-", 
               RowBox[{"175", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "-", 
               RowBox[{"2050", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}], "+", 
               RowBox[{"270", " ", 
                SuperscriptBox["\[Sigma]2", "8"]}], "+", 
               RowBox[{"320", " ", 
                SuperscriptBox["\[Sigma]2", "9"]}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "4"]}], ")"}]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "90"}], "+", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "-", 
            RowBox[{"285", " ", "\[Sigma]2"}], "-", 
            RowBox[{"160", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"362", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "+", 
            RowBox[{"502", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}], "+", 
            RowBox[{"163", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}], "-", 
            RowBox[{"76", " ", 
             SuperscriptBox["\[Sigma]2", "6"]}], "-", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]2", "7"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "6"], " ", 
             RowBox[{"(", 
              RowBox[{"19", "+", 
               RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "5"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "163"}], "+", 
               RowBox[{"456", " ", "\[Sigma]2"}], "+", 
               RowBox[{"672", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{"502", "+", 
               RowBox[{"815", " ", "\[Sigma]2"}], "-", 
               RowBox[{"1140", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"1120", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "181"}], "-", 
               RowBox[{"1004", " ", "\[Sigma]2"}], "-", 
               RowBox[{"815", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"760", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"560", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"80", "-", 
               RowBox[{"543", " ", "\[Sigma]2"}], "-", 
               RowBox[{"1506", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"815", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"570", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"336", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
            RowBox[{"\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{"285", "+", 
               RowBox[{"320", " ", "\[Sigma]2"}], "-", 
               RowBox[{"1086", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"2008", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"815", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"456", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"224", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "6"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"90", "-", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]1", "7"]}], "+", 
            RowBox[{"285", " ", "\[Sigma]2"}], "+", 
            RowBox[{"160", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "-", 
            RowBox[{"362", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "-", 
            RowBox[{"502", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}], "-", 
            RowBox[{"163", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}], "+", 
            RowBox[{"76", " ", 
             SuperscriptBox["\[Sigma]2", "6"]}], "+", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]2", "7"]}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "6"], " ", 
             RowBox[{"(", 
              RowBox[{"19", "+", 
               RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "5"], " ", 
             RowBox[{"(", 
              RowBox[{"163", "-", 
               RowBox[{"456", " ", "\[Sigma]2"}], "-", 
               RowBox[{"672", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "502"}], "-", 
               RowBox[{"815", " ", "\[Sigma]2"}], "+", 
               RowBox[{"1140", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1120", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "181"}], "-", 
               RowBox[{"1004", " ", "\[Sigma]2"}], "-", 
               RowBox[{"815", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"760", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"560", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"80", "-", 
               RowBox[{"543", " ", "\[Sigma]2"}], "-", 
               RowBox[{"1506", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"815", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"570", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"336", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
            RowBox[{"\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "285"}], "-", 
               RowBox[{"320", " ", "\[Sigma]2"}], "+", 
               RowBox[{"1086", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"2008", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"815", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"456", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "-", 
               RowBox[{"224", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "2"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "6"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"80", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "36"}], "+", 
                RowBox[{"18", " ", 
                 SuperscriptBox["\[Sigma]1", "9"]}], "-", 
                RowBox[{"168", " ", "\[Sigma]2"}], "-", 
                RowBox[{"253", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                RowBox[{"10", " ", 
                 SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                RowBox[{"376", " ", 
                 SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                RowBox[{"394", " ", 
                 SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                RowBox[{"168", " ", 
                 SuperscriptBox["\[Sigma]2", "6"]}], "-", 
                RowBox[{"60", " ", 
                 SuperscriptBox["\[Sigma]2", "7"]}], "-", 
                RowBox[{"81", " ", 
                 SuperscriptBox["\[Sigma]2", "8"]}], "-", 
                RowBox[{"18", " ", 
                 SuperscriptBox["\[Sigma]2", "9"]}], "-", 
                RowBox[{"81", " ", 
                 SuperscriptBox["\[Sigma]1", "8"], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
                RowBox[{"12", " ", 
                 SuperscriptBox["\[Sigma]1", "7"], " ", 
                 RowBox[{"(", 
                  RowBox[{"5", "+", 
                   RowBox[{"54", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"54", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
                RowBox[{"84", " ", 
                 SuperscriptBox["\[Sigma]1", "6"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "2"}], "+", 
                   RowBox[{"5", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"27", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                   RowBox[{"18", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[Sigma]1", "5"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "197"}], "-", 
                   RowBox[{"504", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"630", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                   RowBox[{"2268", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                   RowBox[{"1134", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["\[Sigma]1", "4"], " ", 
                 RowBox[{"(", 
                  RowBox[{"376", "+", 
                   RowBox[{"1970", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"2520", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                   RowBox[{"2100", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                   RowBox[{"5670", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                   RowBox[{"2268", " ", 
                    SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[Sigma]1", "3"], " ", 
                 RowBox[{"(", 
                  RowBox[{"5", "-", 
                   RowBox[{"752", " ", "\[Sigma]2"}], "-", 
                   RowBox[{"1970", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                   RowBox[{"1680", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                   RowBox[{"1050", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                   RowBox[{"2268", " ", 
                    SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                   RowBox[{"756", " ", 
                    SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "-", 
                RowBox[{
                 SuperscriptBox["\[Sigma]1", "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{"253", "+", 
                   RowBox[{"30", " ", "\[Sigma]2"}], "-", 
                   RowBox[{"2256", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                   RowBox[{"3940", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                   RowBox[{"2520", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                   RowBox[{"1260", " ", 
                    SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                   RowBox[{"2268", " ", 
                    SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                   RowBox[{"648", " ", 
                    SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", "\[Sigma]1", " ", 
                 RowBox[{"(", 
                  RowBox[{"84", "+", 
                   RowBox[{"253", " ", "\[Sigma]2"}], "+", 
                   RowBox[{"15", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                   RowBox[{"752", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                   RowBox[{"985", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                   RowBox[{"504", " ", 
                    SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                   RowBox[{"210", " ", 
                    SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                   RowBox[{"324", " ", 
                    SuperscriptBox["\[Sigma]2", "7"]}], "+", 
                   RowBox[{"81", " ", 
                    SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}]}], ")"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
               "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
               "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "6"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "2"]}], ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"80", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "36"}], "+", 
              RowBox[{"18", " ", 
               SuperscriptBox["\[Sigma]1", "9"]}], "-", 
              RowBox[{"168", " ", "\[Sigma]2"}], "-", 
              RowBox[{"253", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "-", 
              RowBox[{"10", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "+", 
              RowBox[{"376", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}], "+", 
              RowBox[{"394", " ", 
               SuperscriptBox["\[Sigma]2", "5"]}], "+", 
              RowBox[{"168", " ", 
               SuperscriptBox["\[Sigma]2", "6"]}], "-", 
              RowBox[{"60", " ", 
               SuperscriptBox["\[Sigma]2", "7"]}], "-", 
              RowBox[{"81", " ", 
               SuperscriptBox["\[Sigma]2", "8"]}], "-", 
              RowBox[{"18", " ", 
               SuperscriptBox["\[Sigma]2", "9"]}], "-", 
              RowBox[{"81", " ", 
               SuperscriptBox["\[Sigma]1", "8"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"2", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
              RowBox[{"12", " ", 
               SuperscriptBox["\[Sigma]1", "7"], " ", 
               RowBox[{"(", 
                RowBox[{"5", "+", 
                 RowBox[{"54", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"54", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
              RowBox[{"84", " ", 
               SuperscriptBox["\[Sigma]1", "6"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "2"}], "+", 
                 RowBox[{"5", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"27", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"18", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]1", "5"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "197"}], "-", 
                 RowBox[{"504", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"630", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"2268", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"1134", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{"376", "+", 
                 RowBox[{"1970", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"2520", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"2100", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"5670", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{"2268", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               RowBox[{"(", 
                RowBox[{"5", "-", 
                 RowBox[{"752", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"1970", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"1680", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"1050", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"2268", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"756", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "-", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"253", "+", 
                 RowBox[{"30", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"2256", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"3940", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"2520", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"1260", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"2268", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                 RowBox[{"648", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", "\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{"84", "+", 
                 RowBox[{"253", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"15", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"752", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"985", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{"504", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"210", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                 RowBox[{"324", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}], "+", 
                 RowBox[{"81", " ", 
                  SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}]}], ")"}]}], 
           ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "6"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             "5"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"4", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
              ")"}], "5"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"2016", "+", 
              RowBox[{"128", " ", 
               SuperscriptBox["\[Sigma]1", "10"]}], "+", 
              RowBox[{"9408", " ", "\[Sigma]2"}], "+", 
              RowBox[{"14384", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              RowBox[{"1136", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "-", 
              RowBox[{"21409", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}], "-", 
              RowBox[{"25004", " ", 
               SuperscriptBox["\[Sigma]2", "5"]}], "-", 
              RowBox[{"9150", " ", 
               SuperscriptBox["\[Sigma]2", "6"]}], "+", 
              RowBox[{"2940", " ", 
               SuperscriptBox["\[Sigma]2", "7"]}], "+", 
              RowBox[{"3655", " ", 
               SuperscriptBox["\[Sigma]2", "8"]}], "+", 
              RowBox[{"1160", " ", 
               SuperscriptBox["\[Sigma]2", "9"]}], "+", 
              RowBox[{"128", " ", 
               SuperscriptBox["\[Sigma]2", "10"]}], "-", 
              RowBox[{"40", " ", 
               SuperscriptBox["\[Sigma]1", "9"], " ", 
               RowBox[{"(", 
                RowBox[{"29", "+", 
                 RowBox[{"32", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
              RowBox[{"5", " ", 
               SuperscriptBox["\[Sigma]1", "8"], " ", 
               RowBox[{"(", 
                RowBox[{"731", "+", 
                 RowBox[{"2088", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"1152", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
              RowBox[{"20", " ", 
               SuperscriptBox["\[Sigma]1", "7"], " ", 
               RowBox[{"(", 
                RowBox[{"147", "+", 
                 RowBox[{"1462", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"2088", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"768", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
              RowBox[{"10", " ", 
               SuperscriptBox["\[Sigma]1", "6"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "915"}], "+", 
                 RowBox[{"2058", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"10234", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"9744", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"2688", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "5"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "6251"}], "-", 
                 RowBox[{"13725", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"15435", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"51170", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"36540", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"8064", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "21409"}], "-", 
                 RowBox[{"125020", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"137250", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"102900", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"255850", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"146160", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"26880", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               RowBox[{"(", 
                RowBox[{"284", "-", 
                 RowBox[{"21409", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"62510", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"45750", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"25725", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"51170", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"24360", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                 RowBox[{"3840", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"7192", "+", 
                 RowBox[{"1704", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"64227", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"125020", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"68625", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"30870", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"51170", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                 RowBox[{"20880", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}], "+", 
                 RowBox[{"2880", " ", 
                  SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "-", 
              RowBox[{"4", " ", "\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{"2352", "+", 
                 RowBox[{"7192", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"852", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"21409", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"31255", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{"13725", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{"5145", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "+", 
                 RowBox[{"7310", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}], "+", 
                 RowBox[{"2610", " ", 
                  SuperscriptBox["\[Sigma]2", "8"]}], "+", 
                 RowBox[{"320", " ", 
                  SuperscriptBox["\[Sigma]2", "9"]}]}], ")"}]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
               "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "8"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "2"]}], ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"4", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2016", "+", 
            RowBox[{"128", " ", 
             SuperscriptBox["\[Sigma]1", "10"]}], "+", 
            RowBox[{"9408", " ", "\[Sigma]2"}], "+", 
            RowBox[{"14384", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"1136", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "-", 
            RowBox[{"21409", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}], "-", 
            RowBox[{"25004", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}], "-", 
            RowBox[{"9150", " ", 
             SuperscriptBox["\[Sigma]2", "6"]}], "+", 
            RowBox[{"2940", " ", 
             SuperscriptBox["\[Sigma]2", "7"]}], "+", 
            RowBox[{"3655", " ", 
             SuperscriptBox["\[Sigma]2", "8"]}], "+", 
            RowBox[{"1160", " ", 
             SuperscriptBox["\[Sigma]2", "9"]}], "+", 
            RowBox[{"128", " ", 
             SuperscriptBox["\[Sigma]2", "10"]}], "-", 
            RowBox[{"40", " ", 
             SuperscriptBox["\[Sigma]1", "9"], " ", 
             RowBox[{"(", 
              RowBox[{"29", "+", 
               RowBox[{"32", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
            RowBox[{"5", " ", 
             SuperscriptBox["\[Sigma]1", "8"], " ", 
             RowBox[{"(", 
              RowBox[{"731", "+", 
               RowBox[{"2088", " ", "\[Sigma]2"}], "+", 
               RowBox[{"1152", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["\[Sigma]1", "7"], " ", 
             RowBox[{"(", 
              RowBox[{"147", "+", 
               RowBox[{"1462", " ", "\[Sigma]2"}], "+", 
               RowBox[{"2088", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"768", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
            RowBox[{"10", " ", 
             SuperscriptBox["\[Sigma]1", "6"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "915"}], "+", 
               RowBox[{"2058", " ", "\[Sigma]2"}], "+", 
               RowBox[{"10234", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"9744", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"2688", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "5"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "6251"}], "-", 
               RowBox[{"13725", " ", "\[Sigma]2"}], "+", 
               RowBox[{"15435", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"51170", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"36540", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"8064", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["\[Sigma]1", "4"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "21409"}], "-", 
               RowBox[{"125020", " ", "\[Sigma]2"}], "-", 
               RowBox[{"137250", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"102900", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"255850", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"146160", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"26880", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "3"], " ", 
             RowBox[{"(", 
              RowBox[{"284", "-", 
               RowBox[{"21409", " ", "\[Sigma]2"}], "-", 
               RowBox[{"62510", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"45750", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"25725", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"51170", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"24360", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "+", 
               RowBox[{"3840", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}], "+", 
            RowBox[{"2", " ", 
             SuperscriptBox["\[Sigma]1", "2"], " ", 
             RowBox[{"(", 
              RowBox[{"7192", "+", 
               RowBox[{"1704", " ", "\[Sigma]2"}], "-", 
               RowBox[{"64227", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"125020", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"68625", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"30870", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"51170", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "+", 
               RowBox[{"20880", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}], "+", 
               RowBox[{"2880", " ", 
                SuperscriptBox["\[Sigma]2", "8"]}]}], ")"}]}], "-", 
            RowBox[{"4", " ", "\[Sigma]1", " ", 
             RowBox[{"(", 
              RowBox[{"2352", "+", 
               RowBox[{"7192", " ", "\[Sigma]2"}], "+", 
               RowBox[{"852", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"21409", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"31255", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"13725", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"5145", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "+", 
               RowBox[{"7310", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}], "+", 
               RowBox[{"2610", " ", 
                SuperscriptBox["\[Sigma]2", "8"]}], "+", 
               RowBox[{"320", " ", 
                SuperscriptBox["\[Sigma]2", "9"]}]}], ")"}]}]}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "8"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"5", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"5", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "10"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"5", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"5", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "10"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"5", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
              ")"}], "7"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"5", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             "7"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"6", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"6", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "12"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"6", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"6", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "12"]}]]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "7"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"7", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "14"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "7"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"7", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "14"]}]]}], ",", 
        
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "6"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "9"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "6"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "9"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "5"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"12", " ", 
            RowBox[{"(", 
             RowBox[{"37", "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]1", "5"]}], "-", 
              RowBox[{"128", " ", "\[Sigma]2"}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              RowBox[{"64", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "-", 
              RowBox[{"5", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]2", "5"]}], "-", 
              RowBox[{"5", " ", 
               SuperscriptBox["\[Sigma]1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "+", 
                 RowBox[{"8", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "16"}], "+", 
                 RowBox[{"5", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"20", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"4", "+", 
                 RowBox[{"192", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"30", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"80", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{"32", "-", 
                 RowBox[{"2", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"48", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"10", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "5"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "4"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", 
               SuperscriptBox["\[Sigma]1", "2"], "-", 
               RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
               SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "5"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"12", " ", 
           RowBox[{"(", 
            RowBox[{"37", "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]1", "5"]}], "-", 
             RowBox[{"128", " ", "\[Sigma]2"}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["\[Sigma]2", "2"]}], "+", 
             RowBox[{"64", " ", 
              SuperscriptBox["\[Sigma]2", "3"]}], "-", 
             RowBox[{"5", " ", 
              SuperscriptBox["\[Sigma]2", "4"]}], "-", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]2", "5"]}], "-", 
             RowBox[{"5", " ", 
              SuperscriptBox["\[Sigma]1", "4"], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{"8", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["\[Sigma]1", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "16"}], "+", 
                RowBox[{"5", " ", "\[Sigma]2"}], "+", 
                RowBox[{"20", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox["\[Sigma]1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{"192", " ", "\[Sigma]2"}], "-", 
                RowBox[{"30", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                RowBox[{"80", " ", 
                 SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
             RowBox[{"4", " ", "\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{"32", "-", 
                RowBox[{"2", " ", "\[Sigma]2"}], "-", 
                RowBox[{"48", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                RowBox[{"5", " ", 
                 SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                RowBox[{"10", " ", 
                 SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "5"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "4"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", 
              SuperscriptBox["\[Sigma]1", "2"], "-", 
              RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
              SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "4"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"],
              " ", 
             RowBox[{"(", 
              RowBox[{"90", "+", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]1", "5"]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{"4", "-", 
                  RowBox[{"160", " ", "\[Sigma]2"}]}], ")"}]}], "-", 
               RowBox[{"105", " ", "\[Sigma]2"}], "-", 
               RowBox[{"140", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"187", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "+", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "187"}], "-", 
                  RowBox[{"16", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"320", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "140"}], "+", 
                  RowBox[{"561", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"24", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                  RowBox[{"320", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
               RowBox[{"\[Sigma]1", " ", 
                RowBox[{"(", 
                 RowBox[{"105", "+", 
                  RowBox[{"280", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"561", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                  RowBox[{"16", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"160", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
            "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
                "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
                "2"]}]], "8", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "3"],
              " ", 
             RowBox[{"(", 
              RowBox[{"108", "+", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]1", "7"]}], "+", 
               RowBox[{"1368", " ", "\[Sigma]2"}], "+", 
               RowBox[{"8571", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"5071", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"1571", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"1719", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "-", 
               RowBox[{"404", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "-", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "6"], " ", 
                RowBox[{"(", 
                 RowBox[{"101", "+", 
                  RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Sigma]1", "5"], " ", 
                RowBox[{"(", 
                 RowBox[{"573", "+", 
                  RowBox[{"808", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"224", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{"1571", "+", 
                  RowBox[{"8595", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"6060", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"1120", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "5071"}], "+", 
                  RowBox[{"6284", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"17190", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"8080", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"1120", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Sigma]1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2857"}], "-", 
                  RowBox[{"5071", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"3142", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"5730", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"2020", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                  RowBox[{"224", " ", 
                   SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
               RowBox[{"\[Sigma]1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1368"}], "-", 
                  RowBox[{"17142", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"15213", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"6284", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"8595", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                  RowBox[{"2424", " ", 
                   SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                  RowBox[{"224", " ", 
                   SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], ")"}]}]}],
            ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "6"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "4"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
                "4"], " ", 
               RowBox[{"(", 
                RowBox[{"90", "+", 
                 RowBox[{"32", " ", 
                  SuperscriptBox["\[Sigma]1", "5"]}], "+", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "4"], " ", 
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{"160", " ", "\[Sigma]2"}]}], ")"}]}], "-", 
                 RowBox[{"105", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"140", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"187", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{"32", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "187"}], "-", 
                    RowBox[{"16", " ", "\[Sigma]2"}], "+", 
                    RowBox[{"320", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "140"}], "+", 
                    RowBox[{"561", " ", "\[Sigma]2"}], "+", 
                    RowBox[{"24", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                    RowBox[{"320", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
                 RowBox[{"\[Sigma]1", " ", 
                  RowBox[{"(", 
                   RowBox[{"105", "+", 
                    RowBox[{"280", " ", "\[Sigma]2"}], "-", 
                    RowBox[{"561", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                    RowBox[{"16", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                    RowBox[{"160", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
              "+", 
              RowBox[{
               FractionBox["1", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
                  "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
                  "2"]}]], "8", " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
                "3"], " ", 
               RowBox[{"(", 
                RowBox[{"108", "+", 
                 RowBox[{"32", " ", 
                  SuperscriptBox["\[Sigma]1", "7"]}], "+", 
                 RowBox[{"1368", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"8571", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"5071", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"1571", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{"1719", " ", 
                  SuperscriptBox["\[Sigma]2", "5"]}], "-", 
                 RowBox[{"404", " ", 
                  SuperscriptBox["\[Sigma]2", "6"]}], "-", 
                 RowBox[{"32", " ", 
                  SuperscriptBox["\[Sigma]2", "7"]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Sigma]1", "6"], " ", 
                  RowBox[{"(", 
                   RowBox[{"101", "+", 
                    RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]1", "5"], " ", 
                  RowBox[{"(", 
                   RowBox[{"573", "+", 
                    RowBox[{"808", " ", "\[Sigma]2"}], "+", 
                    RowBox[{"224", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "4"], " ", 
                  RowBox[{"(", 
                   RowBox[{"1571", "+", 
                    RowBox[{"8595", " ", "\[Sigma]2"}], "+", 
                    RowBox[{"6060", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                    RowBox[{"1120", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "5071"}], "+", 
                    RowBox[{"6284", " ", "\[Sigma]2"}], "+", 
                    RowBox[{"17190", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                    RowBox[{"8080", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                    RowBox[{"1120", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "2857"}], "-", 
                    RowBox[{"5071", " ", "\[Sigma]2"}], "+", 
                    RowBox[{"3142", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                    RowBox[{"5730", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                    RowBox[{"2020", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                    RowBox[{"224", " ", 
                    SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
                 RowBox[{"\[Sigma]1", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "1368"}], "-", 
                    RowBox[{"17142", " ", "\[Sigma]2"}], "-", 
                    RowBox[{"15213", " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                    RowBox[{"6284", " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                    RowBox[{"8595", " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                    RowBox[{"2424", " ", 
                    SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                    RowBox[{"224", " ", 
                    SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], 
                ")"}]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
               "4"], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], " ", 
              
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"3", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
               "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "6"]}], ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "3"}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{"96", "+", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]1", "5"]}], "+", 
               RowBox[{"560", " ", "\[Sigma]2"}], "+", 
               RowBox[{"357", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"149", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"164", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{"41", "+", 
                  RowBox[{"40", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{"149", "+", 
                  RowBox[{"656", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"320", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "357"}], "+", 
                  RowBox[{"447", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"984", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"320", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
               RowBox[{"\[Sigma]1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "560"}], "-", 
                  RowBox[{"714", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"447", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"656", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"160", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
            "+", 
            RowBox[{
             FractionBox["1", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
                "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
                "2"]}]], "8", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
               ")"}], "3"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"],
              " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2016"}], "+", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]1", "7"]}], "-", 
               RowBox[{"672", " ", "\[Sigma]2"}], "+", 
               RowBox[{"4266", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1125", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"2084", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"33", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"180", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "-", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "6"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "45"}], "+", 
                  RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Sigma]1", "5"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "11"}], "-", 
                  RowBox[{"360", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"224", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2084"}], "+", 
                  RowBox[{"165", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"2700", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                  RowBox[{"1120", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1125"}], "+", 
                  RowBox[{"8336", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"330", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                  RowBox[{"3600", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"1120", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"4266", "+", 
                  RowBox[{"3375", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"12504", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"330", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"2700", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                  RowBox[{"672", " ", 
                   SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
               RowBox[{"\[Sigma]1", " ", 
                RowBox[{"(", 
                 RowBox[{"672", "-", 
                  RowBox[{"8532", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"3375", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"8336", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                  RowBox[{"165", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                  RowBox[{"1080", " ", 
                   SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                  RowBox[{"224", " ", 
                   SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], ")"}]}]}],
            ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"3", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "8"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"4", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"4", ",", "3"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"3", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
             RowBox[{"(", 
              RowBox[{"96", "+", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]1", "5"]}], "+", 
               RowBox[{"560", " ", "\[Sigma]2"}], "+", 
               RowBox[{"357", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "-", 
               RowBox[{"149", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"164", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "-", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{"41", "+", 
                  RowBox[{"40", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{"149", "+", 
                  RowBox[{"656", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"320", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "357"}], "+", 
                  RowBox[{"447", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"984", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"320", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
               RowBox[{"\[Sigma]1", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "560"}], "-", 
                  RowBox[{"714", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"447", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"656", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"160", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
            "-", 
            RowBox[{
             FractionBox["1", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
                "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
                "2"]}]], "8", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "2"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
               ")"}], "3"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"],
              " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2016"}], "+", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]1", "7"]}], "-", 
               RowBox[{"672", " ", "\[Sigma]2"}], "+", 
               RowBox[{"4266", " ", 
                SuperscriptBox["\[Sigma]2", "2"]}], "+", 
               RowBox[{"1125", " ", 
                SuperscriptBox["\[Sigma]2", "3"]}], "-", 
               RowBox[{"2084", " ", 
                SuperscriptBox["\[Sigma]2", "4"]}], "+", 
               RowBox[{"33", " ", 
                SuperscriptBox["\[Sigma]2", "5"]}], "+", 
               RowBox[{"180", " ", 
                SuperscriptBox["\[Sigma]2", "6"]}], "-", 
               RowBox[{"32", " ", 
                SuperscriptBox["\[Sigma]2", "7"]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox["\[Sigma]1", "6"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "45"}], "+", 
                  RowBox[{"56", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
               RowBox[{"3", " ", 
                SuperscriptBox["\[Sigma]1", "5"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "11"}], "-", 
                  RowBox[{"360", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"224", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "4"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "2084"}], "+", 
                  RowBox[{"165", " ", "\[Sigma]2"}], "+", 
                  RowBox[{"2700", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                  RowBox[{"1120", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "3"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1125"}], "+", 
                  RowBox[{"8336", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"330", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                  RowBox[{"3600", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"1120", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Sigma]1", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"4266", "+", 
                  RowBox[{"3375", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"12504", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"330", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                  RowBox[{"2700", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                  RowBox[{"672", " ", 
                   SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
               RowBox[{"\[Sigma]1", " ", 
                RowBox[{"(", 
                 RowBox[{"672", "-", 
                  RowBox[{"8532", " ", "\[Sigma]2"}], "-", 
                  RowBox[{"3375", " ", 
                   SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                  RowBox[{"8336", " ", 
                   SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                  RowBox[{"165", " ", 
                   SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                  RowBox[{"1080", " ", 
                   SuperscriptBox["\[Sigma]2", "5"]}], "+", 
                  RowBox[{"224", " ", 
                   SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}]}], ")"}]}]}],
            ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"3", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "3"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "8"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"4", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"5", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox[
          RowBox[{"12", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "108"}], "+", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]1", "5"]}], "+", 
             RowBox[{"36", " ", "\[Sigma]2"}], "+", 
             RowBox[{"138", " ", 
              SuperscriptBox["\[Sigma]2", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["\[Sigma]2", "3"]}], "-", 
             RowBox[{"35", " ", 
              SuperscriptBox["\[Sigma]2", "4"]}], "-", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]2", "5"]}], "-", 
             RowBox[{"5", " ", 
              SuperscriptBox["\[Sigma]1", "4"], " ", 
              RowBox[{"(", 
               RowBox[{"7", "+", 
                RowBox[{"8", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["\[Sigma]1", "3"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", 
                RowBox[{"35", " ", "\[Sigma]2"}], "+", 
                RowBox[{"20", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["\[Sigma]1", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "69"}], "-", 
                RowBox[{"6", " ", "\[Sigma]2"}], "+", 
                RowBox[{"105", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                RowBox[{"40", " ", 
                 SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
             RowBox[{"4", " ", "\[Sigma]1", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "9"}], "-", 
                RowBox[{"69", " ", "\[Sigma]2"}], "-", 
                RowBox[{"3", " ", 
                 SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                RowBox[{"35", " ", 
                 SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                RowBox[{"10", " ", 
                 SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             "5"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"5", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"12", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "108"}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]1", "5"]}], "+", 
              RowBox[{"36", " ", "\[Sigma]2"}], "+", 
              RowBox[{"138", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "-", 
              RowBox[{"35", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}], "-", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]2", "5"]}], "-", 
              RowBox[{"5", " ", 
               SuperscriptBox["\[Sigma]1", "4"], " ", 
               RowBox[{"(", 
                RowBox[{"7", "+", 
                 RowBox[{"8", " ", "\[Sigma]2"}]}], ")"}]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", 
                 RowBox[{"35", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"20", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "69"}], "-", 
                 RowBox[{"6", " ", "\[Sigma]2"}], "+", 
                 RowBox[{"105", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"40", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
              RowBox[{"4", " ", "\[Sigma]1", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "9"}], "-", 
                 RowBox[{"69", " ", "\[Sigma]2"}], "-", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"35", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"10", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}]}], ")"}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
              ")"}], "5"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"6", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["8", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             "9"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"6", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["8", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
              ")"}], "9"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"7", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"7", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
            "14"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"7", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"7", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "14"]}]]}]}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "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.788178074394517*^9, 3.788178078544711*^9}, {3.788180050663765*^9, 
   3.7881800511032677`*^9}, {3.788180725431921*^9, 3.788180783753996*^9}, {
   3.788181627312376*^9, 3.7881816276060467`*^9}, {3.788182197328084*^9, 
   3.788182198191853*^9}, {3.788231355228788*^9, 3.7882313798438063`*^9}, {
   3.788244023613415*^9, 3.788244045565969*^9}, {3.788244137453558*^9, 
   3.788244142359906*^9}, {3.78824441581288*^9, 3.788244416141677*^9}, {
   3.7882445067620583`*^9, 3.788244507082953*^9}, {3.788246194548237*^9, 
   3.7882462234804087`*^9}, {3.788246703689592*^9, 3.788246703949342*^9}, {
   3.7882548444564857`*^9, 3.78825484917128*^9}, {3.7882549220970783`*^9, 
   3.7882549224341717`*^9}, {3.788255606606288*^9, 3.788255607050189*^9}, {
   3.7885357562653103`*^9, 3.788535756703232*^9}},
 FontSize->9,
 CellLabel->
  "In[1511]:=",ExpressionUUID->"8dc3755c-8db1-4161-8dfd-f95bdceb67aa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "2"}], ";"}], "\[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", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "-", "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"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "totalcoeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X2", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c2", "[", 
        RowBox[{"n0", ",", "n1"}], "]"}], " ", 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "-", "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"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     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.788178648434408*^9, 
   3.7881786761901073`*^9}, {3.788178726778247*^9, 3.788178856855515*^9}, 
   3.788179889320025*^9, 3.788180001384444*^9, {3.7881800558166313`*^9, 
   3.7881800559629707`*^9}, {3.788180132791999*^9, 3.788180132963599*^9}, {
   3.788180551729815*^9, 3.788180551879518*^9}, {3.788180728273752*^9, 
   3.788180744857231*^9}, 3.78818078798318*^9, {3.788181499748509*^9, 
   3.788181499943974*^9}, 3.7881816792258244`*^9, {3.788200786531686*^9, 
   3.788200786697036*^9}, {3.7882440495326633`*^9, 3.788244057077777*^9}, {
   3.788244133599248*^9, 3.788244232358912*^9}, {3.788244392300264*^9, 
   3.7882444213387947`*^9}, {3.788246202515561*^9, 3.788246204068272*^9}, 
   3.7882466779246473`*^9, {3.7882469562486362`*^9, 3.788246956323206*^9}, 
   3.7882548598596783`*^9, 3.788255237789414*^9, 3.788255430917952*^9, 
   3.7885289423849087`*^9, 3.7885293185706263`*^9, 3.788535534611555*^9, 
   3.788535639584687*^9, {3.8438983150208063`*^9, 3.843898315081581*^9}, {
   3.843898360009926*^9, 3.8438983600941143`*^9}, {3.84389868741669*^9, 
   3.843898687440867*^9}},
 CellLabel->
  "In[1595]:=",ExpressionUUID->"c29c64e5-bbc3-4a71-ad48-b7eed81353e3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"(", 
  RowBox[{
   RowBox[{"X1", "[", "t", "]"}], "/.", 
   RowBox[{
    RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"p", "^", "2"}], " ", 
     RowBox[{"t", "^", "p"}]}]}]}], ")"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", " ", "\[Xi]1", " ", 
   RowBox[{"\[Xi]2", "^", 
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}]}], " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"a1", "-", "a2"}], ")"}]}], " ", 
   RowBox[{"t", "^", 
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"X1", "[", "t", "]"}], "-", 
     RowBox[{"X2", "[", "t", "]"}]}], "]"}]}], "+", 
  SuperscriptBox[
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "2"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[Epsilon]"}], " ", 
   RowBox[{"\[Xi]1", "^", 
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}]}], "\[Xi]2", " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], " ", 
   RowBox[{"t", "^", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"X1", "[", "t", "]"}]}], "+", 
     RowBox[{"X2", "[", "t", "]"}]}], "]"}]}], "+", 
  SuperscriptBox[
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "2"]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[Epsilon]", " ", "\[Xi]1", " ", 
      RowBox[{"\[Xi]2", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}], " ", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"a1", "-", "a2"}], ")"}]}], " ", 
      RowBox[{"t", "^", 
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], " ", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"X1", "[", "t", "]"}], "-", 
        RowBox[{"X2", "[", "t", "]"}]}], "]"}]}], "-", 
     RowBox[{"\[Epsilon]", " ", 
      RowBox[{"\[Xi]1", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}], "\[Xi]2", " ", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], " ", 
      RowBox[{"t", "^", 
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], " ", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"X1", "[", "t", "]"}]}], "+", 
        RowBox[{"X2", "[", "t", "]"}]}], "]"}]}]}], ")"}], "+", 
   SuperscriptBox[
    RowBox[{"O", "[", "\[Epsilon]", "]"}], "2"]}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.843898333852477*^9, 3.843898405762348*^9}},
 CellLabel->
  "In[1550]:=",ExpressionUUID->"34871172-0583-4059-a1e4-c6be780ed695"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]2", "]"}], "3"],
       SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1],
       Editable->False], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "3"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 3, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1]}, 0, 3, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "-", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
        "\[Xi]2"]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}], 
       "\[Xi]1"]}], ")"}], " ", "\[Epsilon]"}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "2"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {}, 3, 3, 1]}, 0, 3, 1], -
     E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]1/$CellContext`\[Xi]2 + 
    E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2}, 0, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.84389834216777*^9, 3.843898406314793*^9}},
 CellLabel->
  "Out[1550]=",ExpressionUUID->"28b8bbb3-5c50-4bd8-a8b9-a8ff3f02751c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"a1", "-", "a2"}]], " ", 
             SuperscriptBox["t", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]]}], "\[Xi]2"], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "2"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -1, 2, 1],
            Editable->False]}],
          
          SeriesData[$CellContext`\[Xi]2, 0, {
           E^($CellContext`a1 - $CellContext`a2) \
$CellContext`t^($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 2, 1],
          Editable->False], ")"}], " ", "\[Xi]1"}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "4"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, 1, 4, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 2, 1]}, 1, 4, 1],
      Editable->False], ")"}], " ", "\[Epsilon]"}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "2"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 2, 1]}, 1, 4, 1]}, 1, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.84389834216777*^9, 3.843898406320488*^9}},
 CellLabel->
  "Out[1551]=",ExpressionUUID->"b559ce02-2de5-4e73-ae99-2fa499d90bf8"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", 
            "\[Xi]2"}]}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "4"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 1, 4, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 
          0, {-E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
             1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 4, 1],
         Editable->False], "\[Xi]1"], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "2"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -1, 2, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 
         0, {-E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 4, 
         1]}, -1, 2, 1],
      Editable->False], ")"}], " ", "\[Epsilon]"}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "2"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 
       0, {-E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
          1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 4, 
       1]}, -1, 2, 1]}, 1, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.84389834216777*^9, 3.843898406326776*^9}},
 CellLabel->
  "Out[1552]=",ExpressionUUID->"d180c98b-fcb6-46ae-acfe-e0c5715a691a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          RowBox[{"-", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", 
            "\[Xi]2"}]}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "4"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 1, 4, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 
          0, {-E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
             1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 4, 1],
         Editable->False], "\[Xi]1"], "+", 
       RowBox[{
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"a1", "-", "a2"}]], " ", 
             SuperscriptBox["t", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]]}], "\[Xi]2"], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "2"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -1, 2, 1],
            Editable->False]}],
          
          SeriesData[$CellContext`\[Xi]2, 0, {
           E^($CellContext`a1 - $CellContext`a2) \
$CellContext`t^($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 2, 1],
          Editable->False], ")"}], " ", "\[Xi]1"}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "2"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -1, 2, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 
         0, {-E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 4, 1], 
        0, 
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 2, 1]}, -1, 2, 1],
      Editable->False], ")"}], " ", "\[Epsilon]"}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "2"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 2, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 
       0, {-E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
          1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 4, 1], 0, 
      
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 2, 1]}, -1, 2, 1]}, 1, 2, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.84389834216777*^9, 3.843898406332822*^9}},
 CellLabel->
  "Out[1553]=",ExpressionUUID->"ee752ac7-c0ad-465b-96e4-7b87a855210f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  InterpretationBox[
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
        SeriesData[$CellContext`\[Xi]2, 0, {}, 5, 5, 1],
        Editable->False], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "5"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 5, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {}, 5, 5, 1]}, 0, 5, 1],
      Editable->False], ")"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"a1", "-", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
         "\[Xi]2"]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}],
         "\[Xi]1"]}], ")"}], " ", "\[Epsilon]"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], " ", 
         SuperscriptBox["\[Xi]1", "2"]}], 
        RowBox[{
         SuperscriptBox["\[Xi]2", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"2", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], " ", 
         
         SuperscriptBox["\[Xi]2", "2"]}], 
        RowBox[{
         SuperscriptBox["\[Xi]1", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
       "+", 
       FractionBox[
        RowBox[{"t", " ", 
         RowBox[{"(", 
          RowBox[{"2", "-", 
           RowBox[{"4", " ", "\[Sigma]1"}], "+", 
           RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
          "2"]}]]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
     SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[Epsilon], 0, {
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {}, 5, 5, 1]}, 0, 5, 1], -
      E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]1/$CellContext`\[Xi]2 + 
     E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
        1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) $CellContext`\
\[Xi]1^(-1) $CellContext`\[Xi]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) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^(-2) - 2 
     E^(2 (-$CellContext`a1 + $CellContext`a2)) $CellContext`t^(
       2 (1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) $CellContext`\
\[Xi]1^(-2) $CellContext`\[Xi]2^2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) + \
$CellContext`t ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
        1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (2 - 
       4 $CellContext`\[Sigma]1 + 4 $CellContext`\[Sigma]2)}, 0, 3, 1],
   Editable->False], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.843898331431611*^9, 
  3.843898331444055*^9}},ExpressionUUID->"a27cdf79-1c9f-4aa2-9157-\
dd5532e6374d"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "DO", " ", "NOT", " ", "run", " ", "the", " ", "following", " ", "unless", 
   " ", "you", " ", "want", " ", "more", " ", 
   RowBox[{"coefficients", ":"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.788510976868928*^9, 
  3.788510993009926*^9}},ExpressionUUID->"364652e5-b261-489c-85e9-\
928281803b70"],

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[{"(", 
      RowBox[{
       RowBox[{"\[Epsilon]", " ", "\[Xi]1", " ", 
        RowBox[{"\[Xi]2", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], " ", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"a1", "-", "a2"}], ")"}]}], " ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"X1", "[", "t", "]"}], "-", 
          RowBox[{"X2", "[", "t", "]"}]}], "]"}]}], "-", 
       RowBox[{"\[Epsilon]", " ", 
        RowBox[{"\[Xi]1", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], "\[Xi]2", " ", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], " ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"X1", "[", "t", "]"}]}], "+", 
          RowBox[{"X2", "[", "t", "]"}]}], "]"}]}]}], ")"}]}], "\[Equal]", 
    "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"de2", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"X2", "[", "t", "]"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{"p", "^", "2"}], " ", 
         RowBox[{"t", "^", "p"}]}]}]}], ")"}], "+", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Epsilon]"}], " ", "\[Xi]1", " ", 
        RowBox[{"\[Xi]2", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], " ", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"a1", "-", "a2"}], ")"}]}], " ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"X1", "[", "t", "]"}], "-", 
          RowBox[{"X2", "[", "t", "]"}]}], "]"}]}], "+", 
       RowBox[{"\[Epsilon]", " ", 
        RowBox[{"\[Xi]1", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], "\[Xi]2", " ", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], " ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"X1", "[", "t", "]"}]}], "+", 
          RowBox[{"X2", "[", "t", "]"}]}], "]"}]}]}], ")"}]}], "\[Equal]", 
    "0"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"coeffeq", " ", "=", " ", 
   RowBox[{"LogicalExpand", "[", 
    RowBox[{
     RowBox[{"Series", "[", 
      RowBox[{"de1", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "&&", 
     " ", 
     RowBox[{"Series", "[", 
      RowBox[{"de2", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "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.788178954615168*^9, 
   3.788179002445869*^9}, {3.7881790865708838`*^9, 3.788179095724152*^9}, 
   3.788179152531671*^9, 3.788179373780313*^9, {3.7881794172811193`*^9, 
   3.7881794566928*^9}, {3.788179495220463*^9, 3.788179497726795*^9}, {
   3.788179950121262*^9, 3.78817995778484*^9}, {3.788180036358541*^9, 
   3.788180037368021*^9}, {3.7881807196040792`*^9, 3.788180719882133*^9}, {
   3.788180762662661*^9, 3.7881807661201572`*^9}, {3.788244239066579*^9, 
   3.788244276875588*^9}, {3.788244310967469*^9, 3.788244366562991*^9}, {
   3.788254895333688*^9, 3.7882548975968733`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"c4d2a61c-f6ea-4960-ba17-704ac9d89f52"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"coeffeq", ",", " ", 
    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.788231319222433*^9, 
  3.788231323067091*^9}, {3.7882442521150837`*^9, 3.7882442613768797`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"3fbb3427-41bf-4111-9050-cb05d00003c8"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "svars", 
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"", 2,
    8, 1, 16068145062469198207, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7882556016931067`*^9, 3.788535747302216*^9},
 CellLabel->
  "During evaluation of \
In[8]:=",ExpressionUUID->"b013e176-c568-4e00-b867-0ea8705c9def"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"**", "**"}], "**"}], "**"}], "**"}], "**"}], 
                    "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], 
                 "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], 
          "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], "**"}], 
  "******)"}]], "Input",
 CellChangeTimes->{{3.7885109959748297`*^9, 
  3.7885110007285957`*^9}},ExpressionUUID->"8e145426-5faa-4062-b594-\
62028cb7530e"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.788247394369541*^9, 3.7882473951680727`*^9}, 
   3.788247521965453*^9},ExpressionUUID->"a279a56b-58e5-42e4-a582-\
09447fb23c42"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7882475204224787`*^9, 
  3.788247520425817*^9}},ExpressionUUID->"94096419-b87a-48d6-9c3b-\
22d17837c9c7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(", 
  RowBox[{
   RowBox[{"X1", "[", "t", "]"}], "/.", 
   RowBox[{
    RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
    RowBox[{
     RowBox[{"p", "^", "2"}], " ", 
     RowBox[{"t", "^", "p"}]}]}]}], ")"}]], "Input",
 CellLabel->
  "In[1799]:=",ExpressionUUID->"e309d4ae-89bd-43be-8807-808cba281063"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
       SeriesData[$CellContext`\[Xi]2, 0, {}, 5, 5, 1],
       Editable->False], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "5"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 5, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {}, 5, 5, 1]}, 0, 5, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "-", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
        "\[Xi]2"]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}], 
       "\[Xi]1"]}], ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"a1", "-", "a2"}], ")"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]1", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{"t", " ", 
        RowBox[{"(", 
         RowBox[{"2", "-", 
          RowBox[{"4", " ", "\[Sigma]1"}], "+", 
          RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {}, 5, 5, 1]}, 0, 5, 1], -
     E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]1/$CellContext`\[Xi]2 + 
    E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]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) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) - 2 
    E^(2 (-$CellContext`a1 + $CellContext`a2)) $CellContext`t^(
      2 (1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)) $CellContext`\
\[Xi]1^(-2) $CellContext`\[Xi]2^2 (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) + \
$CellContext`t ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (2 - 
      4 $CellContext`\[Sigma]1 + 4 $CellContext`\[Sigma]2)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.843988025262177*^9},
 CellLabel->
  "Out[1799]=",ExpressionUUID->"a10ae3be-5da3-46dd-ab92-24d8c20b54eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Aux", "[", "t", "]"}], "+", 
   RowBox[{"Aux1", "[", "t", "]"}], "+", 
   SuperscriptBox[
    RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.843988002580717*^9, 3.843988043692424*^9}},
 CellLabel->
  "In[1801]:=",ExpressionUUID->"c0165c03-13d8-4173-a65b-16db3539882c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
           SuperscriptBox["t", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", 
           "\[Xi]2"}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "6"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 1, 6, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
             1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 6, 1],
         Editable->False], "\[Xi]1"], "+", 
       RowBox[{
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"a1", "-", "a2"}]], " ", 
             SuperscriptBox["t", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]]}], "\[Xi]2"], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "4"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -1, 4, 1],
            Editable->False]}],
          
          SeriesData[$CellContext`\[Xi]2, 0, {
           E^($CellContext`a1 - $CellContext`a2) \
$CellContext`t^($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 4, 1],
          Editable->False], ")"}], " ", "\[Xi]1"}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "4"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -1, 4, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 6, 1], 
        0, 
        SeriesData[$CellContext`\[Xi]2, 0, {
         E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 4, 1]}, -1, 4, 1],
      Editable->False], ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     InterpretationBox[
      RowBox[{
       FractionBox[
        InterpretationBox[
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], " ", "a1"}], "+", 
                 RowBox[{"2", " ", "a2"}]}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"2", "-", 
                 RowBox[{"2", " ", "\[Sigma]1"}], "+", 
                 RowBox[{"2", " ", "\[Sigma]2"}]}]]}], ")"}], " ", 
             SuperscriptBox["\[Xi]2", "2"]}], 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
             "2"]]}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "7"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 2, 7, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 
          0, {(-2) 
           E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(2 - 
             2 $CellContext`\[Sigma]1 + 2 $CellContext`\[Sigma]2) (
             1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 2, 7,
           1],
         Editable->False], 
        SuperscriptBox["\[Xi]1", "2"]], "+", 
       RowBox[{"(", 
        InterpretationBox[
         RowBox[{
          RowBox[{"2", " ", "t", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
             FractionBox["1", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
               "2"]]}], ")"}]}], "+", 
          InterpretationBox[
           SuperscriptBox[
            RowBox[{"O", "[", "\[Xi]2", "]"}], "5"],
           SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 5, 1],
           Editable->False]}],
         SeriesData[$CellContext`\[Xi]2, 0, {
          2 $CellContext`t (($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) + (
              1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2))}, 0, 
          5, 1],
         Editable->False], ")"}], "+", 
       RowBox[{
        RowBox[{"(", 
         InterpretationBox[
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["\[ExponentialE]", 
                 RowBox[{
                  RowBox[{"2", " ", "a1"}], "-", 
                  RowBox[{"2", " ", "a2"}]}]], " ", 
                SuperscriptBox["t", 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]]}], 
               ")"}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
              SuperscriptBox["\[Xi]2", "2"]}]]}], "+", 
           InterpretationBox[
            SuperscriptBox[
             RowBox[{"O", "[", "\[Xi]2", "]"}], "3"],
            SeriesData[$CellContext`\[Xi]2, 0, {}, -2, 3, 1],
            Editable->False]}],
          
          SeriesData[$CellContext`\[Xi]2, 
           0, {(-2) 
            E^(2 $CellContext`a1 - 2 $CellContext`a2) $CellContext`t^(
              2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)}, -2, 3, 1],
          Editable->False], ")"}], " ", 
        SuperscriptBox["\[Xi]1", "2"]}], "+", 
       InterpretationBox[
        SuperscriptBox[
         RowBox[{"O", "[", "\[Xi]1", "]"}], "3"],
        SeriesData[$CellContext`\[Xi]1, 0, {}, -2, 3, 1],
        Editable->False]}],
      SeriesData[$CellContext`\[Xi]1, 0, {
        SeriesData[$CellContext`\[Xi]2, 
         0, {(-2) 
          E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(2 - 
            2 $CellContext`\[Sigma]1 + 2 $CellContext`\[Sigma]2) (
            1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 2, 7, 
         1], 0, 
        SeriesData[$CellContext`\[Xi]2, 0, {
         2 $CellContext`t (($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) + (
             1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2))}, 0, 
         5, 1], 0, 
        SeriesData[$CellContext`\[Xi]2, 
         0, {(-2) 
          E^(2 $CellContext`a1 - 2 $CellContext`a2) $CellContext`t^(
            2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)}, -2, 3, 1]}, -2, 3, 1],
      Editable->False], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
          1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)}, 1, 6, 1], 0, 
      
      SeriesData[$CellContext`\[Xi]2, 0, {
       E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)}, -1, 4, 1]}, -1, 4, 1], 
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 
       0, {(-2) 
        E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(2 - 
          2 $CellContext`\[Sigma]1 + 2 $CellContext`\[Sigma]2) (
          1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 2, 7, 
       1], 0, 
      SeriesData[$CellContext`\[Xi]2, 0, {
       2 $CellContext`t (($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) + (
           1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2))}, 0, 5, 
       1], 0, 
      SeriesData[$CellContext`\[Xi]2, 
       0, {(-2) 
        E^(2 $CellContext`a1 - 2 $CellContext`a2) $CellContext`t^(
          2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) ($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)}, -2, 3, 1]}, -2, 3, 1]}, 1, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.843988004583503*^9, 3.84398804427861*^9}},
 CellLabel->
  "Out[1801]=",ExpressionUUID->"514c790b-99a1-4672-be82-6fe47b084c0c"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Aux", "[", "t_", "]"}], ":=", " ", 
  RowBox[{"\[Epsilon]", " ", 
   RowBox[{"\[Xi]1", "^", 
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}]}], "\[Xi]2", " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], " ", 
   RowBox[{"t", "^", 
    RowBox[{"(", 
     RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"X1", "[", "t", "]"}]}], "+", 
     RowBox[{"X2", "[", "t", "]"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Aux1", "[", "t_", "]"}], ":=", 
  RowBox[{"\[Epsilon]", " ", "\[Xi]1", " ", 
   RowBox[{"\[Xi]2", "^", 
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}]}], " ", 
   RowBox[{"E", "^", 
    RowBox[{"(", 
     RowBox[{"a1", "-", "a2"}], ")"}]}], " ", 
   RowBox[{"t", "^", 
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], " ", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"X1", "[", "t", "]"}], "-", 
     RowBox[{"X2", "[", "t", "]"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.787731959528469*^9, 3.787731961186884*^9}, 
   3.78817370322003*^9, {3.788180325747196*^9, 3.7881803285281878`*^9}, 
   3.788244436380787*^9, {3.788246499088982*^9, 3.788246499284326*^9}, {
   3.7882466077713127`*^9, 3.7882466083568687`*^9}, {3.7882475266786203`*^9, 
   3.788247539418923*^9}, {3.7882477461557913`*^9, 3.788247749568248*^9}, 
   3.7882527015621033`*^9, {3.788254499250012*^9, 3.788254500020238*^9}, {
   3.7882549412621803`*^9, 3.788254952761263*^9}, {3.788254990343275*^9, 
   3.788254992195218*^9}, {3.788255076074093*^9, 3.788255080577901*^9}, 
   3.788286109477075*^9, 3.78852763731621*^9, {3.788527820642222*^9, 
   3.788527839729661*^9}, {3.798777088110477*^9, 3.798777098949451*^9}},
 CellLabel->
  "In[1598]:=",ExpressionUUID->"d1a76ee1-9f7b-4aff-8b74-854b86ff0ca2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Tau", "[", "t_", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Aux", "[", "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"}]}], " ", ";"}]}], "Input",
 CellChangeTimes->{
  3.787731973468512*^9, {3.7877320317796593`*^9, 3.787732033213541*^9}, 
   3.787732171980094*^9, 3.787732612768365*^9, 3.788086031468926*^9, {
   3.788181007061015*^9, 3.788181008683489*^9}, {3.788234090938842*^9, 
   3.7882340923700247`*^9}, {3.788244521605668*^9, 3.788244521986537*^9}, {
   3.7882463380323687`*^9, 3.788246338571022*^9}, 3.788246450295991*^9, {
   3.788246733128443*^9, 3.7882467393446493`*^9}, 3.788246908546768*^9, 
   3.788246950726709*^9, {3.7882477062046137`*^9, 3.7882477104593697`*^9}, {
   3.788250382392253*^9, 3.7882503826776047`*^9}, {3.7882544747094393`*^9, 
   3.788254482040112*^9}, 3.7882545138672953`*^9, {3.788254961568083*^9, 
   3.788254965172591*^9}, {3.78825508670146*^9, 3.788255087406735*^9}, 
   3.788433609543124*^9, 3.78851048394346*^9, {3.798777106868555*^9, 
   3.798777111489039*^9}},
 CellLabel->
  "In[1600]:=",ExpressionUUID->"eef84576-c627-4435-a679-482dd78c4f6e"],

Cell[CellGroupData[{

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

 CellChangeTimes->{{3.787732003304735*^9, 3.7877320056715107`*^9}, {
   3.787732115417845*^9, 3.787732132487648*^9}, {3.787732215355342*^9, 
   3.787732236288653*^9}, {3.787732965730699*^9, 3.787732984649433*^9}, {
   3.787733129649123*^9, 3.787733134983838*^9}, {3.7880867062922983`*^9, 
   3.788086709943544*^9}, {3.78817761925078*^9, 3.7881776250134163`*^9}, {
   3.788181660423752*^9, 3.788181663169701*^9}, {3.788182267838776*^9, 
   3.788182269690392*^9}, {3.788244543328755*^9, 3.7882445772274847`*^9}, {
   3.788244732042323*^9, 3.788244758157152*^9}, {3.788244813389975*^9, 
   3.7882448335788517`*^9}, {3.788246249512376*^9, 3.788246275978881*^9}, {
   3.788246361955881*^9, 3.7882463863130617`*^9}, {3.788246464801614*^9, 
   3.788246477968588*^9}, {3.788246516361788*^9, 3.7882465445899878`*^9}, {
   3.78824662747987*^9, 3.7882466418532333`*^9}, {3.788246747977304*^9, 
   3.788246782778617*^9}, {3.788246918778763*^9, 3.788246942192934*^9}, {
   3.788247605330308*^9, 3.7882476972489357`*^9}, {3.788247828312455*^9, 
   3.788247837688077*^9}, {3.7882479287992687`*^9, 3.7882479419573298`*^9}, {
   3.788248126186964*^9, 3.7882481272674713`*^9}, {3.78824828517407*^9, 
   3.788248286258462*^9}, {3.7882484278387136`*^9, 3.788248434947979*^9}, {
   3.7882494316436987`*^9, 3.7882494648184767`*^9}, {3.788249534199171*^9, 
   3.788249570432887*^9}, 3.788249617551263*^9, {3.788250374789475*^9, 
   3.788250375038712*^9}, {3.788254535607074*^9, 3.7882545389358587`*^9}, {
   3.7882547348936987`*^9, 3.7882548142370462`*^9}, {3.788254977569347*^9, 
   3.788254981842887*^9}, {3.788255041929638*^9, 3.788255043883604*^9}, {
   3.78825510616965*^9, 3.788255183866106*^9}, 3.788255640820035*^9, {
   3.7882764125747147`*^9, 3.788276412795093*^9}, {3.788276496324469*^9, 
   3.788276502335393*^9}, {3.788510494828074*^9, 3.7885105471367283`*^9}, {
   3.788528284076715*^9, 3.7885283091775627`*^9}, {3.788535775399934*^9, 
   3.788535778639183*^9}},
 CellLabel->
  "In[1602]:=",ExpressionUUID->"302915dc-b954-49dd-8383-bfc6e4764e30"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"2", " ", "t", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 2 $CellContext`t ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.788245683181326*^9, {3.78824625636775*^9, 3.7882462766665173`*^9}, {
   3.788246364386903*^9, 3.7882463870448217`*^9}, {3.788246462802001*^9, 
   3.788246478476121*^9}, {3.788246514007072*^9, 3.7882465451077633`*^9}, {
   3.788246628369055*^9, 3.788246642463483*^9}, {3.788246749404907*^9, 
   3.788246783404717*^9}, {3.7882469166211977`*^9, 3.7882469425548162`*^9}, {
   3.7882476122432756`*^9, 3.7882477015272093`*^9}, 3.788247819154211*^9, 
   3.7882479079889593`*^9, 3.78824793986576*^9, 3.788248004106296*^9, 
   3.7882482567700777`*^9, 3.7882484044057903`*^9, 3.788248453525488*^9, {
   3.7882494236555843`*^9, 3.7882494655201387`*^9}, {3.7882495394944344`*^9, 
   3.788249570835944*^9}, 3.788249618272201*^9, 3.788254542847595*^9, {
   3.788254751625045*^9, 3.7882548149746437`*^9}, 3.788254982452614*^9, {
   3.788255034046967*^9, 3.788255045996643*^9}, {3.788255093630456*^9, 
   3.788255138673909*^9}, {3.788255175829916*^9, 3.788255184297831*^9}, 
   3.788255641717836*^9, 3.7882764226563473`*^9, 3.788276503123726*^9, 
   3.788286125657906*^9, 3.7884301595673323`*^9, 3.788433630088543*^9, {
   3.788510502966188*^9, 3.788510547739807*^9}, 3.7885266915221453`*^9, 
   3.7885277878655453`*^9, 3.788527850158173*^9, {3.7885282948139133`*^9, 
   3.7885283100075693`*^9}, 3.788535784368321*^9, 3.843898492715352*^9, 
   3.843898693412232*^9},
 CellLabel->
  "Out[1602]=",ExpressionUUID->"626bf4e6-215c-411b-88e9-2b9d1f7d50e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"Tau1", "[", "t", "]"}], ",", "\[Xi]1", ",", "0"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Epsilon]", ",", "0", ",", 
     RowBox[{"n", "+", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.843982518379705*^9},
 CellLabel->
  "In[1698]:=",ExpressionUUID->"91c83084-6dbd-4033-ae5b-14a889ecb42f"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"2", " ", "t", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 2 $CellContext`t (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.84398251901206*^9},
 CellLabel->
  "Out[1698]=",ExpressionUUID->"48a99dc1-7a5f-4001-ac21-347705d47643"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"this", " ", "is", " ", "the", " ", "conformal", " ", 
   RowBox[{"block", ":"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.788511013050844*^9, 
  3.788511019639469*^9}},ExpressionUUID->"c6cfefec-8026-45ec-a3dd-\
6744d1d79cf1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B", "[", 
   RowBox[{"\[Sigma]1_", ",", "\[Sigma]2_", ",", "t_"}], "]"}], ":=", 
  InterpretationBox[
   RowBox[{"1", "+", 
    FractionBox[
     RowBox[{"2", " ", "t", " ", 
      SuperscriptBox["\[Epsilon]", "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["t", "2"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]1", "2"]}], "-", 
        RowBox[{"4", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "4"]}], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
    "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["t", "3"], " ", 
      RowBox[{"(", 
       RowBox[{"12", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]1", "4"]}], "-", 
        RowBox[{"8", " ", 
         SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
        RowBox[{"5", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["\[Sigma]2", "4"]}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "5"}], "+", 
           RowBox[{"12", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
        RowBox[{"\[Sigma]1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"10", " ", "\[Sigma]2"}], "-", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "6"]}], 
     RowBox[{"3", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
    "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["t", "4"], " ", 
       RowBox[{"(", 
        RowBox[{"324", "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "8"]}], "-", 
         RowBox[{"32", " ", 
          SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "-", 
         RowBox[{"177", " ", 
          SuperscriptBox["\[Sigma]2", "2"]}], "+", 
         RowBox[{"243", " ", 
          SuperscriptBox["\[Sigma]2", "4"]}], "-", 
         RowBox[{"52", " ", 
          SuperscriptBox["\[Sigma]2", "6"]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]2", "8"]}], "-", 
         RowBox[{"8", " ", 
          SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "39"}], "+", 
            RowBox[{"28", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "6"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "13"}], "+", 
            RowBox[{"28", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2", " ", 
          RowBox[{"(", 
           RowBox[{"243", "-", 
            RowBox[{"260", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"56", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[Sigma]1", "4"], " ", 
          RowBox[{"(", 
           RowBox[{"243", "-", 
            RowBox[{"780", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "+", 
            RowBox[{"280", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["\[Sigma]1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "177"}], "+", 
            RowBox[{"1458", " ", 
             SuperscriptBox["\[Sigma]2", "2"]}], "-", 
            RowBox[{"780", " ", 
             SuperscriptBox["\[Sigma]2", "4"]}], "+", 
            RowBox[{"112", " ", 
             SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
         RowBox[{"\[Sigma]1", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"354", " ", "\[Sigma]2"}], "-", 
            RowBox[{"972", " ", 
             SuperscriptBox["\[Sigma]2", "3"]}], "+", 
            RowBox[{"312", " ", 
             SuperscriptBox["\[Sigma]2", "5"]}], "-", 
            RowBox[{"32", " ", 
             SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}]}], ")"}], " ", 
       SuperscriptBox["\[Epsilon]", "8"]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"6", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
       
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], 
      ")"}]}], "+", 
    InterpretationBox[
     SuperscriptBox[
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
     SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 9, 1],
     Editable->False]}],
   SeriesData[$CellContext`\[Epsilon], 0, {
    1, 0, (2 $CellContext`t) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2), 
     0, ((($CellContext`t^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2)) (
         1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (
        1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (1 + 
      2 $CellContext`\[Sigma]1^2 - (
       4 $CellContext`\[Sigma]1) $CellContext`\[Sigma]2 + 
      2 $CellContext`\[Sigma]2^2), 
     0, ((((((Rational[
            2, 3] $CellContext`t^3) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^(-2)) (1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (
          2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (
         1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (
        2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (12 + 
      2 $CellContext`\[Sigma]1^4 - (
       8 $CellContext`\[Sigma]1^3) $CellContext`\[Sigma]2 - 
      5 $CellContext`\[Sigma]2^2 + 
      2 $CellContext`\[Sigma]2^4 + $CellContext`\[Sigma]1^2 (-5 + 
        12 $CellContext`\[Sigma]2^2) + $CellContext`\[Sigma]1 (
        10 $CellContext`\[Sigma]2 - 8 $CellContext`\[Sigma]2^3)), 
     0, ((((((((
             Rational[
              1, 6] $CellContext`t^4) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^(-4)) (1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (
            2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (
           3 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2)) (
          1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (
         2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (
        3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)) (324 + 
      4 $CellContext`\[Sigma]1^8 - (
       32 $CellContext`\[Sigma]1^7) $CellContext`\[Sigma]2 - 
      177 $CellContext`\[Sigma]2^2 + 243 $CellContext`\[Sigma]2^4 - 
      52 $CellContext`\[Sigma]2^6 + 
      4 $CellContext`\[Sigma]2^8 - ((
        8 $CellContext`\[Sigma]1^5) $CellContext`\[Sigma]2) (-39 + 
       28 $CellContext`\[Sigma]2^2) + (4 $CellContext`\[Sigma]1^6) (-13 + 
        28 $CellContext`\[Sigma]2^2) - ((
        4 $CellContext`\[Sigma]1^3) $CellContext`\[Sigma]2) (243 - 
       260 $CellContext`\[Sigma]2^2 + 
       56 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^4 (243 - 
        780 $CellContext`\[Sigma]2^2 + 
        280 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^2 (-177 + 
        1458 $CellContext`\[Sigma]2^2 - 780 $CellContext`\[Sigma]2^4 + 
        112 $CellContext`\[Sigma]2^6) + $CellContext`\[Sigma]1 (
        354 $CellContext`\[Sigma]2 - 972 $CellContext`\[Sigma]2^3 + 
        312 $CellContext`\[Sigma]2^5 - 32 $CellContext`\[Sigma]2^7))}, 0, 9, 
    1],
   Editable->False]}]], "Input",
 CellChangeTimes->{{3.7885105541369534`*^9, 3.7885105720273523`*^9}, {
   3.788527552051729*^9, 3.788527575612028*^9}, 3.7885357977019253`*^9},
 CellLabel->"In[16]:=",ExpressionUUID->"9d63e846-7a34-4d47-94e7-7f9889c51aeb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "the", " ", "following", " ", "is", " ", "the", " ", "definition", " ", 
     "of", " ", "the", " ", "action", " ", "of", " ", "the", " ", "Weyl", " ",
      "group", " ", "on", " ", "the", " ", "tau", " ", "function"}], ",", " ", 
    RowBox[{
    "or", " ", "indeed", " ", "any", " ", "group", " ", "function"}]}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "notice", " ", "that", " ", "we", " ", "reflect", " ", "around", " ", 
     "0"}], ",", " ", 
    RowBox[{
     RowBox[{
     "so", " ", "we", " ", "need", " ", "to", " ", "act", " ", "as", " ", 
      "b1"}], "\[TwoWayRule]", 
     RowBox[{"b2", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
        "the", " ", "only", " ", "element", " ", "of", " ", "the", " ", 
         "Weyl", " ", "group"}], ")"}], ".", " ", "However"}]}]}], ",", " ", 
    RowBox[{"b", " ", "=", " ", 
     RowBox[{
      RowBox[{"\[Sigma]", " ", "-", " ", 
       RowBox[{
        RowBox[{"1", "/", "h_G"}], " ", "\[Rho]"}]}], " ", "=", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Sigma]1", "-", 
         RowBox[{"1", "/", "4"}]}], ",", " ", 
        RowBox[{"\[Sigma]2", "+", 
         RowBox[{"1", "/", "4"}]}]}], ")"}]}]}], ",", " ", 
    RowBox[{
    "se", " ", "we", " ", "need", " ", "to", " ", "take", " ", "into", " ", 
     "account", " ", "this", " ", "shift"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.788510647846127*^9, 3.788510667637209*^9}, {
  3.78851071322003*^9, 3.788510815117556*^9}, {3.7885110246695557`*^9, 
  3.788511034808894*^9}},ExpressionUUID->"f4c71df3-574f-4c4e-b3e3-\
711ac43e0907"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"NDef", "[", "f_", "]"}], ":=", 
  RowBox[{"f", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Sigma]1", "\[RuleDelayed]", "S1"}], ",", 
     RowBox[{"a1", "\[RuleDelayed]", " ", "A1"}], ",", 
     RowBox[{"\[Xi]1", "\[RuleDelayed]", " ", "\[CapitalXi]1"}], ",", 
     RowBox[{"\[Sigma]2", "\[RuleDelayed]", " ", "S2"}], ",", " ", 
     RowBox[{"a2", "\[RuleDelayed]", " ", "A2"}], ",", " ", 
     RowBox[{"\[Xi]2", "\[RuleDelayed]", " ", "\[CapitalXi]2"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r12", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]2", "+", 
       RowBox[{"1", "/", "2"}]}]}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", "a2"}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", "\[Xi]2"}], ",", " ", 
     RowBox[{"S2", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]1", "-", 
       RowBox[{"1", "/", "2"}]}]}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", "a1"}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", "\[Xi]1"}]}], 
    "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.788285790667341*^9, 3.788285798208009*^9}, {
   3.788285845160865*^9, 3.788285924267118*^9}, {3.788285997525024*^9, 
   3.7882860051073647`*^9}, {3.7882866828573847`*^9, 
   3.7882866935886917`*^9}, {3.788286734650152*^9, 3.788286764109394*^9}, {
   3.788430318175767*^9, 3.788430324205678*^9}, {3.788430534066073*^9, 
   3.7884305404005127`*^9}, {3.788430703285527*^9, 3.788430786094523*^9}, {
   3.788430845860507*^9, 3.788430849634632*^9}, {3.788430903256062*^9, 
   3.7884309128782*^9}, {3.7884310217835293`*^9, 3.788431029791355*^9}, {
   3.7884336286839533`*^9, 3.788433683621265*^9}, {3.7884337213849382`*^9, 
   3.788433773083647*^9}, {3.7884339789037*^9, 3.788434042799568*^9}, {
   3.788434118795451*^9, 3.788434133835668*^9}, {3.788434198819252*^9, 
   3.788434217020599*^9}, {3.7884343108511047`*^9, 3.78843433976291*^9}, {
   3.788434406361064*^9, 3.788434450325467*^9}, {3.78843522735728*^9, 
   3.788435328167762*^9}, {3.7884354486744347`*^9, 3.788435485454049*^9}, 
   3.7884355170336103`*^9, {3.788435616968505*^9, 3.788435624719552*^9}, {
   3.788435703170186*^9, 3.78843572789072*^9}, {3.788435758323998*^9, 
   3.788435758511833*^9}, {3.7884357904136953`*^9, 3.788435809266677*^9}, {
   3.788510643472283*^9, 3.788510645820384*^9}, {3.788510785404007*^9, 
   3.7885107907566977`*^9}, {3.788510827048319*^9, 3.788510841935019*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"4f8811b7-0caf-4a89-9716-9192abbb92a4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Tau", "[", "t", "]"}], "//", "r12"}], ")"}], "/", 
       RowBox[{"Tau", "[", "t", "]"}]}], "+", 
      RowBox[{
       RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "]"}]}], "//", 
   "Simplify"}], "//", "Apart"}]], "Input",
 CellChangeTimes->{{3.788285936128603*^9, 3.7882859448367777`*^9}, {
   3.788285985523097*^9, 3.78828599357792*^9}, {3.7882860642700977`*^9, 
   3.788286064352888*^9}, {3.7882860988485937`*^9, 3.78828610016192*^9}, {
   3.7882861961266737`*^9, 3.788286202015082*^9}, {3.788286575103117*^9, 
   3.78828657687854*^9}, {3.7882867016215677`*^9, 3.788286703549021*^9}, {
   3.788286837864496*^9, 3.788286838341442*^9}, {3.7882868879939404`*^9, 
   3.788286942299939*^9}, {3.788287798281123*^9, 3.7882878017159023`*^9}, {
   3.788430170723633*^9, 3.7884301783977633`*^9}, 3.788430546911792*^9, 
   3.788430599895645*^9, {3.788430798091077*^9, 3.788430826813106*^9}, {
   3.788430919343482*^9, 3.78843092601971*^9}, 3.788431056694031*^9, {
   3.788433803673472*^9, 3.7884338238369226`*^9}, {3.788434046234602*^9, 
   3.7884340585692053`*^9}, 3.788434089011527*^9, {3.788434344542636*^9, 
   3.7884343455799522`*^9}, {3.788434453659931*^9, 3.78843445450773*^9}, 
   3.788435565055853*^9, {3.788435793387891*^9, 3.788435838467952*^9}, {
   3.7885108469685793`*^9, 3.788510854638645*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"81bc5538-e1b3-4da9-b7cb-cc360a96bae6"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "-", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
        RowBox[{"\[Xi]2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}], 
       
       RowBox[{"\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    FractionBox["1", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", "a1"}], "-", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]1", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"]}]], 
      "+", 
      RowBox[{"4", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "-", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]]}],
         ")"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 
   0, {-E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]1 \
$CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) + 
    E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), 
    Rational[1, 2] (
     E^(2 $CellContext`a1 - 2 $CellContext`a2) $CellContext`t^(
        2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) $CellContext`\
\[Xi]1^2 $CellContext`\[Xi]2^(-2) ($CellContext`\[Sigma]1 - $CellContext`\
\[Sigma]2)^(-4) - 
     E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(2 - 
       2 $CellContext`\[Sigma]1 + 
       2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-2) \
$CellContext`\[Xi]2^2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4) + 
     4 $CellContext`t (($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) - \
(1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)))}, 1, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.78828598306736*^9, 3.788286007397575*^9}, 
   3.78828606521507*^9, 3.788286101898304*^9, 3.788286146289926*^9, {
   3.788286198118106*^9, 3.7882862026475*^9}, 3.7882865785443487`*^9, {
   3.78828669649114*^9, 3.788286704519206*^9}, {3.788286754566225*^9, 
   3.788286766590251*^9}, 3.7882868388916607`*^9, {3.788286891220686*^9, 
   3.78828694302885*^9}, 3.788287802783174*^9, {3.788430160323914*^9, 
   3.7884301804489517`*^9}, 3.788430327744363*^9, 3.7884305482114277`*^9, 
   3.788430600839797*^9, 3.788430711087998*^9, {3.788430765533691*^9, 
   3.788430852180428*^9}, {3.788430915914874*^9, 3.78843092710039*^9}, {
   3.788431024461782*^9, 3.788431062040493*^9}, 3.7884336896970463`*^9, 
   3.788433731969537*^9, {3.788433765211856*^9, 3.788433777348165*^9}, 
   3.7884338251689043`*^9, {3.788434048986484*^9, 3.788434090904811*^9}, {
   3.7884341237776937`*^9, 3.7884341395737267`*^9}, {3.788434201546721*^9, 
   3.788434219451902*^9}, 3.788434347675912*^9, 3.788434459358369*^9, {
   3.7884352731285973`*^9, 3.788435278416774*^9}, 3.7884353323731413`*^9, {
   3.788435467694169*^9, 3.788435487744609*^9}, 3.788435519624473*^9, 
   3.788435565787862*^9, 3.788435627075333*^9, {3.788435710335837*^9, 
   3.788435730785372*^9}, 3.788435761252616*^9, {3.788435815674617*^9, 
   3.788435839072871*^9}, 3.7885108573763037`*^9, 3.788526692247946*^9, 
   3.7885358131954803`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"8c07854e-e323-4906-b856-e843131c6113"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"X1", "[", "t", "]"}], "+", 
       RowBox[{
        RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "//", "Normal"}],
      ")"}], "//", "Simplify"}], ")"}], "+", 
  RowBox[{
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}]], "Input",
 CellChangeTimes->{{3.788286438819497*^9, 3.788286442016779*^9}, {
   3.7882869584484367`*^9, 3.7882870007915163`*^9}, {3.7882870517094707`*^9, 
   3.788287058516493*^9}, {3.7882871811466618`*^9, 3.788287204425617*^9}, {
   3.788287487700042*^9, 3.788287491425317*^9}, {3.788287534954834*^9, 
   3.788287565813859*^9}, {3.788287820759157*^9, 3.7882879292466993`*^9}, {
   3.788287968344386*^9, 3.788287977098633*^9}, {3.788288035876114*^9, 
   3.7882880446581078`*^9}, {3.7882880800081043`*^9, 3.788288091538768*^9}, {
   3.788430186903867*^9, 3.7884302073374*^9}, {3.788430338450858*^9, 
   3.7884303502027683`*^9}, 3.788430594700163*^9, {3.788430831088685*^9, 
   3.788430831233526*^9}, 3.788430930685122*^9, 3.788431058318767*^9, 
   3.7884310931849422`*^9, 3.788433709381167*^9, {3.788433831422187*^9, 
   3.7884338390679092`*^9}, {3.788434060301354*^9, 3.7884340955036592`*^9}, {
   3.788434243625494*^9, 3.788434258302724*^9}, {3.788435338001165*^9, 
   3.788435339704681*^9}, {3.788435542447113*^9, 3.788435554483732*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"cd974391-e6fc-4602-a47b-475ac322c607"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "-", "a2"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
        RowBox[{"\[Xi]2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}], 
       
       RowBox[{"\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", "a1"}], "-", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]1", "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"]}]], 
      "+", 
      FractionBox[
       RowBox[{"t", " ", 
        RowBox[{"(", 
         RowBox[{"2", "-", 
          RowBox[{"4", " ", "\[Sigma]1"}], "+", 
          RowBox[{"4", " ", "\[Sigma]2"}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 
   0, {-E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]1 \
$CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) + 
    E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), 
    Rational[1, 2] 
     E^(2 $CellContext`a1 - 2 $CellContext`a2) $CellContext`t^(
       2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)) \
$CellContext`\[Xi]1^2 $CellContext`\[Xi]2^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-4) + 
    Rational[-1, 2] 
     E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(2 - 
       2 $CellContext`\[Sigma]1 + 
       2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-2) \
$CellContext`\[Xi]2^2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4) + \
$CellContext`t ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (2 - 
      4 $CellContext`\[Sigma]1 + 4 $CellContext`\[Sigma]2)}, 1, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.788434069865657*^9, 3.7884340960810843`*^9}, 
   3.788434141428796*^9, {3.788434246808774*^9, 3.788434259695719*^9}, 
   3.788435340117818*^9, {3.788435523963839*^9, 3.788435567524542*^9}, 
   3.7884357324068832`*^9, 3.788435762923209*^9, 3.7885108605372953`*^9, 
   3.7885266928463917`*^9, 3.7885358183048697`*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"1cca65a5-c4a3-4b43-8ae9-f0bb50a1c111"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", 
     RowBox[{"Log", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Tau", "[", "t", "]"}], "//", "r12"}], ")"}], "/", 
        RowBox[{"Tau", "[", "t", "]"}]}], "+", 
       RowBox[{
        RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "4"}]}], "]"}]}], ")"}], 
   "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"X1", "[", "t", "]"}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "4"}]}], ")"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.78843114532524*^9, 3.788431170388365*^9}, {
   3.788435587912599*^9, 3.788435597243593*^9}, {3.788435684464361*^9, 
   3.788435685863783*^9}, {3.7884358267798157`*^9, 3.788435834075468*^9}, 
   3.788510891606328*^9, {3.7885117185209208`*^9, 3.788511719651307*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"8f8c82a0-02e0-423e-8a65-994023bf0528"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]2", "]"}], "15"],
       SeriesData[$CellContext`\[Xi]2, 0, {}, 15, 15, 1],
       Editable->False], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "15"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 15, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {}, 15, 15, 1]}, 0, 15, 1],
     Editable->False], ")"}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {}, 15, 15, 1]}, 0, 15, 1]}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.788431160225081*^9, 3.788431171157874*^9}, 
   3.788435597841611*^9, 3.7884356398486032`*^9, 3.7884356869835653`*^9, {
   3.788435720356408*^9, 3.7884357350285254`*^9}, 3.788435769852315*^9, {
   3.7884358302673264`*^9, 3.78843583473777*^9}, {3.7885108646255817`*^9, 
   3.78851089260909*^9}, 3.7885117207879267`*^9, 3.788526693192156*^9, 
   3.788535820786436*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"c1b9ec91-5442-41f9-ba8a-d55e0c96a90a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "we", " ", "see", " ", "that", " ", "this", " ", "is", " ", "the", " ", 
    "desired", " ", "result"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
   "note", " ", "the", " ", "nontrivial", " ", "action", " ", "of", " ", 
    "the", " ", "Weyl", " ", "group", " ", "on", " ", "the", " ", 
    RowBox[{"sigmas", ":"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "}"}], "//", "r12"}]}]], "Input",\

 CellChangeTimes->{{3.788510895097707*^9, 3.788510954482686*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"dff4a32a-bdbd-4893-af84-f675724b5d78"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], "+", "\[Sigma]2"}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], "+", "\[Sigma]1"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.7885109282169847`*^9, 3.788510946254581*^9}, 
   3.788526693241933*^9, 3.788535823218484*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"8eb39bbf-9c3d-446f-becc-da9f31eeb58d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "1"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", "z", "]"}], 
   RowBox[{"G", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "1"}], "]"}], 
   RowBox[{"G", "[", 
    RowBox[{"z", "+", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "2"}], "]"}], 
   RowBox[{"G", "[", 
    RowBox[{"z", "+", "2"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "+", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "3"}], "]"}], 
   RowBox[{"G", "[", 
    RowBox[{"z", "+", "3"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "1"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", "z", "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"z", "-", "1"}], "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "2"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"z", "-", "2"}], "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "3"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", 
   RowBox[{"z_", "-", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"G", "[", 
    RowBox[{"z", "-", "3"}], "]"}], "/", 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "4"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "1"}], "]"}], ":=", 
  RowBox[{"z", " ", 
   RowBox[{"\[CapitalGamma]", "[", "z", "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"z", "+", "1"}], ")"}], 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "1"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"z", "+", "2"}], ")"}], 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "2"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "+", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"z", "+", "3"}], ")"}], 
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "+", "3"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "1"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", "z", "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "1"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "2"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "1"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "2"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "3"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "2"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "3"}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]", "[", 
   RowBox[{"z_", "-", "4"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", 
    RowBox[{"z", "-", "3"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{"z", "-", "4"}], ")"}]}]}]}], "Input",
 CellChangeTimes->{3.788512386476428*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"a146f7e2-4f49-406f-a792-70830175fb04"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"RSolve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "[", "m", "]"}], ",", 
        RowBox[{"y", "[", "m", "]"}]}], "}"}], "==", 
      RowBox[{
       RowBox[{
        RowBox[{"MatrixPower", "[", 
         RowBox[{
          RowBox[{"(", "\[NoBreak]", GridBox[{
             {"0", "1"},
             {"1", "0"}
            }], "\[NoBreak]", ")"}], ",", "m"}], "]"}], ".", 
        RowBox[{"{", 
         RowBox[{"0", ",", "m"}], "}"}]}], "+", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"m", "-", "1"}], "]"}], ",", 
         RowBox[{"y", "[", 
          RowBox[{"m", "-", "1"}], "]"}]}], "}"}]}]}], ",", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "[", "0", "]"}], ",", 
        RowBox[{"y", "[", "0", "]"}]}], "}"}], "\[Equal]", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0"}], "}"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"x", "[", "m", "]"}], ",", 
     RowBox[{"y", "[", "m", "]"}]}], "}"}], ",", "m"}], "]"}]], "Input",
 CellChangeTimes->{{3.788538662933837*^9, 3.788538872718103*^9}, {
  3.7986234976675663`*^9, 3.798623499804482*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"7c5c0104-fc33-436c-9fc6-d26ddc96d108"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"x", "[", "m", "]"}], "\[Rule]", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{"1", "+", "m"}]], "+", 
        RowBox[{"2", " ", "m"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["m", "2"]}]}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{"y", "[", "m", "]"}], "\[Rule]", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "m"], "+", 
        RowBox[{"2", " ", "m"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["m", "2"]}]}], ")"}]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.788538689731216*^9, 3.788538733516972*^9}, 
   3.788538774440743*^9, {3.788538860644257*^9, 3.7885388742220592`*^9}, 
   3.798623501271563*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"e67ab44f-4b2f-49fb-943b-dfdcecfaf057"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", "\[VeryThinSpace]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], 
         RowBox[{"1", "+", "m"}]], "+", 
        RowBox[{"2", " ", "m"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["m", "2"]}]}], ")"}]}], ",", 
     RowBox[{
      FractionBox["1", "8"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}], "m"], "+", 
        RowBox[{"2", " ", "m"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["m", "2"]}]}], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.788539342696683*^9, 3.798623138385861*^9},
 CellLabel->"In[23]:=",ExpressionUUID->"8d7031e3-5ccf-4ad7-a45a-a72b53ff3617"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "20"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "20"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "30"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.788539343696599*^9, 3.798623139607432*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"dd8b6965-301f-43a0-a769-56948d3f3b08"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TauSol", "[", "t_", "]"}], "=", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"MemberQ", "[", " ", 
           RowBox[{
            RowBox[{"Table", "[", "\[VeryThinSpace]", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{
                 FractionBox["1", "8"], " ", 
                 RowBox[{"(", 
                  RowBox[{"1", "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], 
                    RowBox[{"1", "+", "m"}]], "+", 
                   RowBox[{"2", " ", "m"}], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["m", "2"]}]}], ")"}]}], ",", 
                RowBox[{
                 FractionBox["1", "8"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "1"}], "+", 
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "m"], "+", 
                   RowBox[{"2", " ", "m"}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["m", "2"]}]}], ")"}]}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"m", ",", "0", ",", "10"}], "}"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"n0", ",", "n1"}], "}"}]}], "]"}], ",", "1", ",", "0"}], 
         "]"}], 
        RowBox[{"\[Xi]1", "^", 
         RowBox[{"(", 
          RowBox[{"n1", "-", "n0"}], ")"}]}], 
        RowBox[{"\[Xi]2", "^", 
         RowBox[{"(", " ", 
          RowBox[{"n0", "-", "n1"}], ")"}]}], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"-", 
           FractionBox[
            RowBox[{"  ", 
             SuperscriptBox[
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], "]"}], "2"], " "}], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"\[CapitalGamma]", "[", 
               RowBox[{
                RowBox[{"-", "\[Sigma]1"}], "+", "\[Sigma]2"}], "]"}], 
              "2"]}]]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"n1", "-", "n0"}], ")"}]}], "  ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"+", "n0"}], 
            RowBox[{"(", 
             RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}]}], "+", 
           
           RowBox[{"n1", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}]}], ")"}]}], 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"n0", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "a1"}], "+", "a2"}], ")"}]}], "+", 
           RowBox[{"n1", 
            RowBox[{"(", 
             RowBox[{"a1", "-", "a2"}], ")"}]}]}], ")"}]}], 
        RowBox[{"\[Epsilon]", "^", 
         RowBox[{"(", 
          RowBox[{"n0", "+", "n1"}], ")"}]}], 
        RowBox[{
         RowBox[{"f", "[", 
          RowBox[{
           RowBox[{"\[Sigma]1", "-", "n0", "+", "n1"}], ",", 
           RowBox[{"\[Sigma]2", "+", "n0", "-", "n1"}]}], "]"}], "/", 
         RowBox[{"f", "[", 
          RowBox[{"\[Sigma]1", ",", "\[Sigma]2"}], "]"}]}], 
        RowBox[{"B", "[", 
         RowBox[{
          RowBox[{"\[Sigma]1", "-", "n0", "+", "n1"}], ",", 
          RowBox[{"\[Sigma]2", "+", "n0", "-", "n1"}], ",", "t"}], "]"}]}], "/.", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x_", ",", "y_"}], "]"}], "\[Rule]", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"G", "[", 
            RowBox[{"1", "+", "x", "-", "y"}], "]"}], 
           RowBox[{"G", "[", 
            RowBox[{"1", "-", "x", "+", "y"}], "]"}]}], ")"}]}]}]}], "//", 
      "Simplify"}], ",", 
     RowBox[{"{", 
      RowBox[{"n1", ",", "0", ",", "5"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n0", ",", "0", ",", "5"}], "}"}]}], "]"}], "+", 
   RowBox[{
    RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "9"}]}]}]], "Input",
 CellChangeTimes->{{3.78851239456913*^9, 3.788512466342394*^9}, {
   3.788512608984273*^9, 3.788512638578053*^9}, {3.788512713700886*^9, 
   3.78851271847959*^9}, {3.788512903795773*^9, 3.7885129604575872`*^9}, {
   3.788513093232586*^9, 3.7885131983387213`*^9}, {3.788513927426765*^9, 
   3.7885139527144203`*^9}, {3.788514245631995*^9, 3.78851425983388*^9}, {
   3.7885143100056267`*^9, 3.788514332915443*^9}, {3.788514436355936*^9, 
   3.788514485345141*^9}, {3.7885145387279043`*^9, 3.788514691307572*^9}, {
   3.788514738854745*^9, 3.788514750057806*^9}, {3.788514838049988*^9, 
   3.788514917491399*^9}, {3.788515188382804*^9, 3.788515222131794*^9}, {
   3.788526727366743*^9, 3.788526738742792*^9}, {3.788526775524938*^9, 
   3.788526863284569*^9}, {3.7885268949749727`*^9, 3.78852706413344*^9}, {
   3.788527308715053*^9, 3.788527334635167*^9}, {3.7885278882993717`*^9, 
   3.788527905960354*^9}, {3.788527953100911*^9, 3.788528040307682*^9}, {
   3.788528082474596*^9, 3.78852808702002*^9}, {3.788528172244886*^9, 
   3.788528178172646*^9}, {3.788528210081222*^9, 3.7885282166277847`*^9}, {
   3.788528455844673*^9, 3.7885284900265903`*^9}, {3.788528523190868*^9, 
   3.7885285238930798`*^9}, {3.788529444405808*^9, 3.788529557838776*^9}, 
   3.788529666238428*^9, {3.78852973925811*^9, 3.788529760256029*^9}, {
   3.788529794093288*^9, 3.788529795908704*^9}, {3.788529909604108*^9, 
   3.788529918771061*^9}, {3.788530139705401*^9, 3.788530157090828*^9}, {
   3.78853108592172*^9, 3.7885311597754717`*^9}, {3.7885312426411743`*^9, 
   3.7885312862539673`*^9}, {3.788531350896106*^9, 3.788531406777032*^9}, {
   3.7885315667582493`*^9, 3.788531635479562*^9}, {3.788531707380615*^9, 
   3.788531737511794*^9}, {3.788531774331349*^9, 3.788531828547709*^9}, {
   3.7885334422611322`*^9, 3.788533468128989*^9}, {3.788533693501851*^9, 
   3.788533710870062*^9}, {3.788533742405304*^9, 3.788533756848729*^9}, {
   3.788533790931625*^9, 3.78853379390482*^9}, {3.788533828445342*^9, 
   3.7885338295463467`*^9}, {3.788534028883979*^9, 3.788534070822216*^9}, {
   3.788534108488707*^9, 3.788534186545609*^9}, {3.7885342171420794`*^9, 
   3.7885342545641108`*^9}, {3.788534521616417*^9, 3.788534535992654*^9}, {
   3.788534603879384*^9, 3.788534605225507*^9}, {3.7885346602359667`*^9, 
   3.788534665216537*^9}, {3.788534763451084*^9, 3.78853485632014*^9}, {
   3.7885348958648443`*^9, 3.788534897027625*^9}, {3.788534952344689*^9, 
   3.7885349707115803`*^9}, {3.788535267259881*^9, 3.7885352710379553`*^9}, {
   3.7885353265946703`*^9, 3.7885353411589603`*^9}, 3.788539203806189*^9, {
   3.788539950428444*^9, 3.788539995225168*^9}, {3.788541137731944*^9, 
   3.78854114841092*^9}, {3.7885416816946487`*^9, 3.7885416982770853`*^9}, 
   3.788541741144*^9, {3.7885418327874413`*^9, 3.788541841628134*^9}, 
   3.788541880923357*^9, 3.788541959301756*^9, {3.788542204502742*^9, 
   3.788542267337202*^9}, {3.788542396666417*^9, 3.788542461424595*^9}, {
   3.7885424968832684`*^9, 3.7885424977582006`*^9}, 3.788542611346712*^9},
 CellLabel->
  "In[132]:=",ExpressionUUID->"e5083bc7-0fd5-48ec-a0ae-7a4117b53aa9"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", " ", 
     "\[Epsilon]"}], 
    RowBox[{"\[Xi]1", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"2", " ", "t", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
       
       RowBox[{"\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}], 
       
       RowBox[{"\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "3"]}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["t", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "-", 
       RowBox[{"4", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "4"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
       
       RowBox[{"\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", 
        " ", 
        RowBox[{"(", 
         RowBox[{"9", "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "+", 
          RowBox[{"8", " ", "\[Sigma]2"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]2", "2"]}], "-", 
          RowBox[{"4", " ", "\[Sigma]1", " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", "\[Sigma]2"}], ")"}]}]}], ")"}]}], 
       RowBox[{"\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "5"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"4", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["t", "3"], " ", 
        RowBox[{"(", 
         RowBox[{"12", "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
          RowBox[{"5", " ", 
           SuperscriptBox["\[Sigma]2", "2"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]2", "4"]}], "+", 
          RowBox[{
           SuperscriptBox["\[Sigma]1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "5"}], "+", 
             RowBox[{"12", " ", 
              SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
          RowBox[{"\[Sigma]1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"10", " ", "\[Sigma]2"}], "-", 
             RowBox[{"8", " ", 
              SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "6"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"3", "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1", 
        " ", 
        RowBox[{"(", 
         RowBox[{"9", "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "2"]}], "-", 
          RowBox[{"4", " ", "\[Sigma]1", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "2"}], "+", "\[Sigma]2"}], ")"}]}], "-", 
          RowBox[{"8", " ", "\[Sigma]2"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], 
       RowBox[{"\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], 
      "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"4", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", 
        " ", 
        RowBox[{"(", 
         RowBox[{"24", "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]1", "4"]}], "+", 
          RowBox[{"44", " ", "\[Sigma]2"}], "+", 
          RowBox[{"43", " ", 
           SuperscriptBox["\[Sigma]2", "2"]}], "+", 
          RowBox[{"16", " ", 
           SuperscriptBox["\[Sigma]2", "3"]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]2", "4"]}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Sigma]1", "3"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["\[Sigma]1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"43", "+", 
             RowBox[{"48", " ", "\[Sigma]2"}], "+", 
             RowBox[{"12", " ", 
              SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", "\[Sigma]1", " ", 
           RowBox[{"(", 
            RowBox[{"22", "+", 
             RowBox[{"43", " ", "\[Sigma]2"}], "+", 
             RowBox[{"24", " ", 
              SuperscriptBox["\[Sigma]2", "2"]}], "+", 
             RowBox[{"4", " ", 
              SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], ")"}]}], 
       RowBox[{"3", " ", "\[Xi]1", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"4", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "7"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"5", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "6"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"4", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], 
      "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["t", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"324", "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "8"]}], "-", 
           RowBox[{"32", " ", 
            SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "-", 
           RowBox[{"177", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"243", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}], "-", 
           RowBox[{"52", " ", 
            SuperscriptBox["\[Sigma]2", "6"]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]2", "8"]}], "-", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "39"}], "+", 
              RowBox[{"28", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "6"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "13"}], "+", 
              RowBox[{"28", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2", " ", 
            RowBox[{"(", 
             RowBox[{"243", "-", 
              RowBox[{"260", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              RowBox[{"56", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "4"], " ", 
            RowBox[{"(", 
             RowBox[{"243", "-", 
              RowBox[{"780", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              RowBox[{"280", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[Sigma]1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "177"}], "+", 
              RowBox[{"1458", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "-", 
              RowBox[{"780", " ", 
               SuperscriptBox["\[Sigma]2", "4"]}], "+", 
              RowBox[{"112", " ", 
               SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
           RowBox[{"\[Sigma]1", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"354", " ", "\[Sigma]2"}], "-", 
              RowBox[{"972", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "+", 
              RowBox[{"312", " ", 
               SuperscriptBox["\[Sigma]2", "5"]}], "-", 
              RowBox[{"32", " ", 
               SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}]}], ")"}]}], 
        ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"6", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
         " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
         " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"3", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], 
         " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], 
         " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], 
         " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], 
        ")"}]}]}], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "8"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), 
    2 $CellContext`t ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2), 
    E^($CellContext`a1 - $CellContext`a2) $CellContext`t^(
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1 $CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-4) (
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) + 
    2 E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), \
$CellContext`t^2 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (1 + 
     2 $CellContext`\[Sigma]1^2 - 
     4 $CellContext`\[Sigma]1 $CellContext`\[Sigma]2 + 
     2 $CellContext`\[Sigma]2^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 - \
$CellContext`\[Sigma]2)^(-4) (
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) + 
    E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4) (
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (9 + 
      2 $CellContext`\[Sigma]1^2 + 8 $CellContext`\[Sigma]2 + 
      2 $CellContext`\[Sigma]2^2 - 
      4 $CellContext`\[Sigma]1 (2 + $CellContext`\[Sigma]2)), 
    E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(4 - 
       2 $CellContext`\[Sigma]1 + 
       2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-2) \
$CellContext`\[Xi]2^2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-6) (
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4) (
       3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) + 
    Rational[2, 
       3] $CellContext`t^3 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (12 + 
      2 $CellContext`\[Sigma]1^4 - 
      8 $CellContext`\[Sigma]1^3 $CellContext`\[Sigma]2 - 
      5 $CellContext`\[Sigma]2^2 + 
      2 $CellContext`\[Sigma]2^4 + $CellContext`\[Sigma]1^2 (-5 + 
        12 $CellContext`\[Sigma]2^2) + $CellContext`\[Sigma]1 (
        10 $CellContext`\[Sigma]2 - 8 $CellContext`\[Sigma]2^3)), 
    E^($CellContext`a1 - $CellContext`a2) $CellContext`t^(
       3 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1 $CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-4) (
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-4) (
       2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       3 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (9 + 
      2 $CellContext`\[Sigma]1^2 - 
      4 $CellContext`\[Sigma]1 (-2 + $CellContext`\[Sigma]2) - 
      8 $CellContext`\[Sigma]2 + 2 $CellContext`\[Sigma]2^2) + 
    Rational[2, 3] 
     E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       4 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4) (
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       4 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (24 + 
      2 $CellContext`\[Sigma]1^4 + 44 $CellContext`\[Sigma]2 + 
      43 $CellContext`\[Sigma]2^2 + 16 $CellContext`\[Sigma]2^3 + 
      2 $CellContext`\[Sigma]2^4 - 
      8 $CellContext`\[Sigma]1^3 (
       2 + $CellContext`\[Sigma]2) + $CellContext`\[Sigma]1^2 (43 + 
        48 $CellContext`\[Sigma]2 + 12 $CellContext`\[Sigma]2^2) - 
      2 $CellContext`\[Sigma]1 (22 + 43 $CellContext`\[Sigma]2 + 
       24 $CellContext`\[Sigma]2^2 + 4 $CellContext`\[Sigma]2^3)), 
    2 E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(5 - 
       2 $CellContext`\[Sigma]1 + 
       2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-2) \
$CellContext`\[Xi]2^2 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-6) (
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4) (
       3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       4 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) + 
    Rational[1, 
       6] $CellContext`t^4 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-4) (
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       3 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
       3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (324 + 
      4 $CellContext`\[Sigma]1^8 - 
      32 $CellContext`\[Sigma]1^7 $CellContext`\[Sigma]2 - 
      177 $CellContext`\[Sigma]2^2 + 243 $CellContext`\[Sigma]2^4 - 
      52 $CellContext`\[Sigma]2^6 + 4 $CellContext`\[Sigma]2^8 - 
      8 $CellContext`\[Sigma]1^5 $CellContext`\[Sigma]2 (-39 + 
       28 $CellContext`\[Sigma]2^2) + 
      4 $CellContext`\[Sigma]1^6 (-13 + 28 $CellContext`\[Sigma]2^2) - 
      4 $CellContext`\[Sigma]1^3 $CellContext`\[Sigma]2 (243 - 
       260 $CellContext`\[Sigma]2^2 + 
       56 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^4 (243 - 
        780 $CellContext`\[Sigma]2^2 + 
        280 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^2 (-177 + 
        1458 $CellContext`\[Sigma]2^2 - 780 $CellContext`\[Sigma]2^4 + 
        112 $CellContext`\[Sigma]2^6) + $CellContext`\[Sigma]1 (
        354 $CellContext`\[Sigma]2 - 972 $CellContext`\[Sigma]2^3 + 
        312 $CellContext`\[Sigma]2^5 - 32 $CellContext`\[Sigma]2^7))}, 0, 9, 
   1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.788512623741815*^9, 3.788512640838723*^9}, 
   3.788512720898067*^9, 3.7885129180243397`*^9, 3.788512962283449*^9, {
   3.788513105422103*^9, 3.7885132003567953`*^9}, 3.788513962290204*^9, {
   3.7885142507844667`*^9, 3.788514262541416*^9}, {3.78851432423225*^9, 
   3.788514335221695*^9}, {3.7885144430387897`*^9, 3.788514488112114*^9}, {
   3.788514604407516*^9, 3.788514693510968*^9}, 3.788514753168991*^9, {
   3.788514878032152*^9, 3.788514887976129*^9}, 3.788514918785408*^9, 
   3.788515223537158*^9, 3.78852669378791*^9, {3.788526835784376*^9, 
   3.788526865779421*^9}, {3.788526928725526*^9, 3.788526987338419*^9}, {
   3.788527054032754*^9, 3.788527064759528*^9}, {3.788527315057972*^9, 
   3.7885273350088787`*^9}, 3.788527498529563*^9, {3.788527889191866*^9, 
   3.788527906527793*^9}, {3.7885279548251753`*^9, 3.788527969341668*^9}, {
   3.788528009658543*^9, 3.788528040627102*^9}, 3.788528087800805*^9, 
   3.788528178876327*^9, {3.7885282124984293`*^9, 3.788528217353504*^9}, 
   3.788528460511598*^9, 3.7885284908670473`*^9, 3.788528524516279*^9, {
   3.7885295519768963`*^9, 3.7885295585376587`*^9}, 3.7885296670358143`*^9, {
   3.7885297445939302`*^9, 3.7885297609896517`*^9}, 3.7885297965311537`*^9, {
   3.788529910128376*^9, 3.7885299192815533`*^9}, {3.7885301463276253`*^9, 
   3.7885301586920967`*^9}, 3.788531117070939*^9, {3.788531243704043*^9, 
   3.788531287144966*^9}, {3.788531351939383*^9, 3.788531379214862*^9}, 
   3.7885314096180267`*^9, {3.7885315711966953`*^9, 3.788531646246553*^9}, {
   3.788531720704751*^9, 3.788531748534832*^9}, {3.788531823451322*^9, 
   3.788531832543077*^9}, {3.7885334474535522`*^9, 3.788533471939986*^9}, {
   3.7885336984109*^9, 3.788533713969605*^9}, {3.7885337533130083`*^9, 
   3.788533759785912*^9}, 3.788533798479129*^9, 3.788533832457815*^9, {
   3.788534037441455*^9, 3.788534073583637*^9}, {3.7885341154638767`*^9, 
   3.788534189581418*^9}, {3.788534223286563*^9, 3.788534259461282*^9}, 
   3.788534536275763*^9, 3.7885346104371347`*^9, 3.788534669373722*^9, {
   3.788534766384184*^9, 3.788534859142357*^9}, 3.7885349032223682`*^9, {
   3.788534959480234*^9, 3.788534976678261*^9}, 3.788535276916636*^9, 
   3.788535348545095*^9, 3.788535836236787*^9, 3.788539758657391*^9, {
   3.78853997923565*^9, 3.788539996710595*^9}, 3.788541149429097*^9, 
   3.788541701896785*^9, 3.788541744419483*^9, 3.788541845433938*^9, 
   3.788541884781291*^9, 3.788541961664063*^9, {3.788542217900517*^9, 
   3.7885422721456957`*^9}, {3.788542486120858*^9, 3.7885425010577917`*^9}, 
   3.788542613991837*^9},
 CellLabel->
  "Out[132]=",ExpressionUUID->"fe1019f2-e20c-4fd3-b786-c93f760f1e5c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TauSol", "[", "t", "]"}], "-", 
   RowBox[{"Tau", "[", "t", "]"}]}], "//", "Simplify"}]], "Input",
 CellChangeTimes->{{3.7885287062254763`*^9, 3.788528712091317*^9}, 
   3.788542656302938*^9},
 CellLabel->
  "In[134]:=",ExpressionUUID->"c2691b50-c9d2-46d3-b34e-7e7e7fa3f19a"],

Cell[BoxData[
 InterpretationBox[
  SuperscriptBox[
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
  SeriesData[$CellContext`\[Epsilon], 0, {}, 9, 9, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.7885287160841722`*^9, 3.7885339119268084`*^9, 
  3.788533995074147*^9, 3.788535864681387*^9, 3.7885360068078957`*^9, 
  3.788542675239182*^9},
 CellLabel->
  "Out[134]=",ExpressionUUID->"ad3c4080-a3ce-4800-8c10-fc076dd1bc13"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "+", "m"}]], "+", 
      RowBox[{"2", " ", "m"}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["m", "2"]}]}], ")"}]}], "-", 
   RowBox[{
    FractionBox["1", "8"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "m"], "+", 
      RowBox[{"2", " ", "m"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["m", "2"]}]}], ")"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.798624077485632*^9, 3.798624082987268*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"edfdce1b-a0c9-440f-b9c3-d1166ad6a8bb"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"1", "+", "m"}]], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}]}], ")"}]}]], "Input",
 CellChangeTimes->{3.7986241177769136`*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"3c52b715-c812-4d5c-b1c6-8fa904db0a23"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"1", "+", "m"}]], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}]}], ")"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{"m", "\[Rule]", " ", 
    RowBox[{
     RowBox[{"2", "m"}], "-", "1"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.7986263129045677`*^9, 3.7986263254048223`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"a8df408e-a365-4278-b9f1-c62eb67702fa"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"2", " ", "m"}]], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "m"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       RowBox[{"2", " ", "m"}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.798626320288979*^9, 3.798626325752611*^9}},
 CellLabel->"Out[37]=",ExpressionUUID->"e6bd52e9-8c2f-47c0-a612-6ed9a32b03aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"2", " ", "m"}]], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", "m"}]}]], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", 
        RowBox[{"2", " ", "m"}]}], ")"}]}]}], ")"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[38]:=",ExpressionUUID->"f20ec945-3829-4031-b338-a479daff3e1f"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "m"}]}]], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"2", " ", "m"}]], " ", "m"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.798626327431758*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"7edc9a6f-64d1-420d-a11f-091faff6a16b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "+", 
        RowBox[{"2", " ", "m"}]}]], "+", 
      RowBox[{"4", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"2", " ", "m"}]], " ", "m"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", "1", ",", "20"}], "}"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[39]:=",ExpressionUUID->"51a51ccb-e7c0-4173-a19e-42284bc6f86b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17", ",", "18", ",", "19", ",", "20"}], "}"}]], "Output",\

 CellChangeTimes->{3.798626335997164*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"5608beca-1505-4a59-9bb8-fef220cd4fee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"2", "+", 
        RowBox[{"2", " ", "m"}]}]], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "m"}]}]], " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"2", " ", "m"}]}], ")"}]}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", "1", ",", "20"}], "}"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[36]:=",ExpressionUUID->"e49c6059-e0b8-4d9b-aff8-79bf22c2a262"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", 
   ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", 
   "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.798626322112962*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"1fbcecf1-e7ea-4202-9512-5619608989a7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"1", "+", "m"}]], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}]}], ")"}]}], "/.", 
  RowBox[{"{", 
   RowBox[{"m", "\[Rule]", " ", 
    RowBox[{"2", "m"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.798626289321413*^9, 3.798626298719302*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"1d6bc8d4-4b29-4646-ac92-df5781d7808b"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"-", "1"}], ")"}], 
     RowBox[{"1", "+", 
      RowBox[{"2", " ", "m"}]}]], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"2", " ", "m"}]], " ", "m"}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.798626299391629*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"188b53d7-b209-4ba0-82b7-828f4b4701ce"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", "m"}]}]], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"2", " ", "m"}]], " ", "m"}]}], ")"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[33]:=",ExpressionUUID->"4a097f21-1485-44b6-83cb-735d8a80aedd"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], 
    RowBox[{"2", " ", "m"}]], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"4", " ", "m"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.7986263009314327`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"5d440622-0059-462a-8a86-b21acd2a8330"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", "4"], "-", 
    RowBox[{
     FractionBox["1", "4"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"2", " ", "m"}]], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"4", " ", "m"}]}], ")"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", "1", ",", "20"}], "}"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[34]:=",ExpressionUUID->"ab1b31ac-4bed-45e0-a944-abfa8c52020a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "1"}], ",", 
   RowBox[{"-", "2"}], ",", 
   RowBox[{"-", "3"}], ",", 
   RowBox[{"-", "4"}], ",", 
   RowBox[{"-", "5"}], ",", 
   RowBox[{"-", "6"}], ",", 
   RowBox[{"-", "7"}], ",", 
   RowBox[{"-", "8"}], ",", 
   RowBox[{"-", "9"}], ",", 
   RowBox[{"-", "10"}], ",", 
   RowBox[{"-", "11"}], ",", 
   RowBox[{"-", "12"}], ",", 
   RowBox[{"-", "13"}], ",", 
   RowBox[{"-", "14"}], ",", 
   RowBox[{"-", "15"}], ",", 
   RowBox[{"-", "16"}], ",", 
   RowBox[{"-", "17"}], ",", 
   RowBox[{"-", "18"}], ",", 
   RowBox[{"-", "19"}], ",", 
   RowBox[{"-", "20"}]}], "}"}]], "Output",
 CellChangeTimes->{3.798626303558866*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"87694f3d-01bf-4177-b5f1-b62b7150d436"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"-", "1"}], ")"}], 
      RowBox[{"1", "+", "m"}]], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}]}], ")"}]}], 
  "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[31]:=",ExpressionUUID->"bd97edfd-1fa9-40e5-a37e-1ad2b375daa7"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], "-", 
  RowBox[{
   FractionBox["1", "4"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}], "m"], " ", 
   RowBox[{"(", 
    RowBox[{"1", "+", 
     RowBox[{"2", " ", "m"}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.79862623480552*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"3c3917fd-6e09-4249-97ea-fdca70a224a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{
    FractionBox["1", "4"], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"1", "+", "m"}]], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}], "m"], " ", "m"}]}], ")"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"m", ",", "1", ",", "20"}], "}"}]}], "]"}]], "Input",
 NumberMarks->False,
 CellLabel->"In[30]:=",ExpressionUUID->"e2af21c5-8896-4cb7-82b7-c331993ee607"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1", ",", 
   RowBox[{"-", "1"}], ",", "2", ",", 
   RowBox[{"-", "2"}], ",", "3", ",", 
   RowBox[{"-", "3"}], ",", "4", ",", 
   RowBox[{"-", "4"}], ",", "5", ",", 
   RowBox[{"-", "5"}], ",", "6", ",", 
   RowBox[{"-", "6"}], ",", "7", ",", 
   RowBox[{"-", "7"}], ",", "8", ",", 
   RowBox[{"-", "8"}], ",", "9", ",", 
   RowBox[{"-", "9"}], ",", "10", ",", 
   RowBox[{"-", "10"}]}], "}"}]], "Output",
 CellChangeTimes->{3.798624121316799*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"06c21178-f4c8-42bc-898f-9892064d5c4d"]
}, Open  ]],

Cell[CellGroupData[{

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

 CellChangeTimes->{{3.798777124372327*^9, 3.798777125462446*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"cdcde5bf-5dce-4e6c-a385-2491e09e8bad"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"2", " ", "t", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["t", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "-", 
       RowBox[{"4", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "4"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["t", "3"], " ", 
     RowBox[{"(", 
      RowBox[{"12", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "-", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2"}], "-", 
       RowBox[{"5", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "+", 
       RowBox[{
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "5"}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
       RowBox[{"\[Sigma]1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"10", " ", "\[Sigma]2"}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "6"]}], 
    RowBox[{"3", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["t", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"324", "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "8"]}], "-", 
        RowBox[{"32", " ", 
         SuperscriptBox["\[Sigma]1", "7"], " ", "\[Sigma]2"}], "-", 
        RowBox[{"177", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}], "+", 
        RowBox[{"243", " ", 
         SuperscriptBox["\[Sigma]2", "4"]}], "-", 
        RowBox[{"52", " ", 
         SuperscriptBox["\[Sigma]2", "6"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]2", "8"]}], "-", 
        RowBox[{"8", " ", 
         SuperscriptBox["\[Sigma]1", "5"], " ", "\[Sigma]2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "39"}], "+", 
           RowBox[{"28", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "6"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "13"}], "+", 
           RowBox[{"28", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2", " ", 
         RowBox[{"(", 
          RowBox[{"243", "-", 
           RowBox[{"260", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"56", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{"243", "-", 
           RowBox[{"780", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"280", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "177"}], "+", 
           RowBox[{"1458", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "-", 
           RowBox[{"780", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}], "+", 
           RowBox[{"112", " ", 
            SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "+", 
        RowBox[{"\[Sigma]1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"354", " ", "\[Sigma]2"}], "-", 
           RowBox[{"972", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "+", 
           RowBox[{"312", " ", 
            SuperscriptBox["\[Sigma]2", "5"]}], "-", 
           RowBox[{"32", " ", 
            SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "8"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"6", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], 
     ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 2 $CellContext`t ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2), 
    0, $CellContext`t^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (
      1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (1 + 
     2 $CellContext`\[Sigma]1^2 - 
     4 $CellContext`\[Sigma]1 $CellContext`\[Sigma]2 + 
     2 $CellContext`\[Sigma]2^2), 0, 
    Rational[2, 
      3] $CellContext`t^3 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (
      1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (12 + 
     2 $CellContext`\[Sigma]1^4 - 
     8 $CellContext`\[Sigma]1^3 $CellContext`\[Sigma]2 - 
     5 $CellContext`\[Sigma]2^2 + 
     2 $CellContext`\[Sigma]2^4 + $CellContext`\[Sigma]1^2 (-5 + 
       12 $CellContext`\[Sigma]2^2) + $CellContext`\[Sigma]1 (
       10 $CellContext`\[Sigma]2 - 8 $CellContext`\[Sigma]2^3)), 0, 
    Rational[1, 
      6] $CellContext`t^4 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-4) (
      1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      3 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (324 + 
     4 $CellContext`\[Sigma]1^8 - 
     32 $CellContext`\[Sigma]1^7 $CellContext`\[Sigma]2 - 
     177 $CellContext`\[Sigma]2^2 + 243 $CellContext`\[Sigma]2^4 - 
     52 $CellContext`\[Sigma]2^6 + 4 $CellContext`\[Sigma]2^8 - 
     8 $CellContext`\[Sigma]1^5 $CellContext`\[Sigma]2 (-39 + 
      28 $CellContext`\[Sigma]2^2) + 
     4 $CellContext`\[Sigma]1^6 (-13 + 28 $CellContext`\[Sigma]2^2) - 
     4 $CellContext`\[Sigma]1^3 $CellContext`\[Sigma]2 (243 - 
      260 $CellContext`\[Sigma]2^2 + 
      56 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^4 (243 - 
       780 $CellContext`\[Sigma]2^2 + 
       280 $CellContext`\[Sigma]2^4) + $CellContext`\[Sigma]1^2 (-177 + 
       1458 $CellContext`\[Sigma]2^2 - 780 $CellContext`\[Sigma]2^4 + 
       112 $CellContext`\[Sigma]2^6) + $CellContext`\[Sigma]1 (
       354 $CellContext`\[Sigma]2 - 972 $CellContext`\[Sigma]2^3 + 
       312 $CellContext`\[Sigma]2^5 - 32 $CellContext`\[Sigma]2^7))}, 0, 9, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.798777183506102*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"97d0c621-142a-4dc8-bd4d-e9f71aa689c1"]
}, Open  ]],

Cell[CellGroupData[{

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

 CellChangeTimes->{3.798777131111381*^9},
 CellLabel->"In[89]:=",ExpressionUUID->"4a0d8295-c621-4aa8-8747-24d959a20022"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{"2", " ", "t", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["t", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"3", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]1", "2"]}], "+", 
       RowBox[{"4", " ", "\[Sigma]2"}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "-", 
       RowBox[{"4", " ", "\[Sigma]1", " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]2"}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "4"]}], 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["t", "3"], " ", 
     RowBox[{"(", 
      RowBox[{"9", "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]1", "4"]}], "-", 
       RowBox[{"2", " ", "\[Sigma]2"}], "+", 
       RowBox[{"7", " ", 
        SuperscriptBox["\[Sigma]2", "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Sigma]2", "3"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]2", "4"]}], "-", 
       RowBox[{"8", " ", 
        SuperscriptBox["\[Sigma]1", "3"], " ", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[Sigma]2"}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["\[Sigma]1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"7", "+", 
          RowBox[{"24", " ", "\[Sigma]2"}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
       RowBox[{"2", " ", "\[Sigma]1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", 
          RowBox[{"7", " ", "\[Sigma]2"}], "+", 
          RowBox[{"12", " ", 
           SuperscriptBox["\[Sigma]2", "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}]}], ")"}], " ", 
     SuperscriptBox["\[Epsilon]", "6"]}], 
    RowBox[{"3", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["t", "4"], " ", 
      RowBox[{"(", 
       RowBox[{"342", "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "8"]}], "+", 
        RowBox[{"338", " ", "\[Sigma]2"}], "+", 
        RowBox[{"613", " ", 
         SuperscriptBox["\[Sigma]2", "2"]}], "+", 
        RowBox[{"156", " ", 
         SuperscriptBox["\[Sigma]2", "3"]}], "-", 
        RowBox[{"257", " ", 
         SuperscriptBox["\[Sigma]2", "4"]}], "-", 
        RowBox[{"88", " ", 
         SuperscriptBox["\[Sigma]2", "5"]}], "+", 
        RowBox[{"60", " ", 
         SuperscriptBox["\[Sigma]2", "6"]}], "+", 
        RowBox[{"32", " ", 
         SuperscriptBox["\[Sigma]2", "7"]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]2", "8"]}], "-", 
        RowBox[{"32", " ", 
         SuperscriptBox["\[Sigma]1", "7"], " ", 
         RowBox[{"(", 
          RowBox[{"1", "+", "\[Sigma]2"}], ")"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "6"], " ", 
         RowBox[{"(", 
          RowBox[{"15", "+", 
           RowBox[{"56", " ", "\[Sigma]2"}], "+", 
           RowBox[{"28", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}]}], ")"}]}], "-", 
        RowBox[{"8", " ", 
         SuperscriptBox["\[Sigma]1", "5"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "11"}], "+", 
           RowBox[{"45", " ", "\[Sigma]2"}], "+", 
           RowBox[{"84", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"28", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "257"}], "-", 
           RowBox[{"440", " ", "\[Sigma]2"}], "+", 
           RowBox[{"900", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"1120", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "+", 
           RowBox[{"280", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}]}], ")"}]}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["\[Sigma]1", "3"], " ", 
         RowBox[{"(", 
          RowBox[{"39", "-", 
           RowBox[{"257", " ", "\[Sigma]2"}], "-", 
           RowBox[{"220", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "+", 
           RowBox[{"300", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "+", 
           RowBox[{"280", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}], "+", 
           RowBox[{"56", " ", 
            SuperscriptBox["\[Sigma]2", "5"]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["\[Sigma]1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{"613", "+", 
           RowBox[{"468", " ", "\[Sigma]2"}], "-", 
           RowBox[{"1542", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "-", 
           RowBox[{"880", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "+", 
           RowBox[{"900", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}], "+", 
           RowBox[{"672", " ", 
            SuperscriptBox["\[Sigma]2", "5"]}], "+", 
           RowBox[{"112", " ", 
            SuperscriptBox["\[Sigma]2", "6"]}]}], ")"}]}], "-", 
        RowBox[{"2", " ", "\[Sigma]1", " ", 
         RowBox[{"(", 
          RowBox[{"169", "+", 
           RowBox[{"613", " ", "\[Sigma]2"}], "+", 
           RowBox[{"234", " ", 
            SuperscriptBox["\[Sigma]2", "2"]}], "-", 
           RowBox[{"514", " ", 
            SuperscriptBox["\[Sigma]2", "3"]}], "-", 
           RowBox[{"220", " ", 
            SuperscriptBox["\[Sigma]2", "4"]}], "+", 
           RowBox[{"180", " ", 
            SuperscriptBox["\[Sigma]2", "5"]}], "+", 
           RowBox[{"112", " ", 
            SuperscriptBox["\[Sigma]2", "6"]}], "+", 
           RowBox[{"16", " ", 
            SuperscriptBox["\[Sigma]2", "7"]}]}], ")"}]}]}], ")"}], " ", 
      SuperscriptBox["\[Epsilon]", "8"]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"6", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"3", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"4", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}], 
     ")"}]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "9"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 9, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, 0, 2 $CellContext`t (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), 
    0, $CellContext`t^2 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (3 + 
     2 $CellContext`\[Sigma]1^2 + 4 $CellContext`\[Sigma]2 + 
     2 $CellContext`\[Sigma]2^2 - 
     4 $CellContext`\[Sigma]1 (1 + $CellContext`\[Sigma]2)), 0, 
    Rational[2, 
      3] $CellContext`t^3 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (
      1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (9 + 
     2 $CellContext`\[Sigma]1^4 - 2 $CellContext`\[Sigma]2 + 
     7 $CellContext`\[Sigma]2^2 + 8 $CellContext`\[Sigma]2^3 + 
     2 $CellContext`\[Sigma]2^4 - 
     8 $CellContext`\[Sigma]1^3 (
      1 + $CellContext`\[Sigma]2) + $CellContext`\[Sigma]1^2 (7 + 
       24 $CellContext`\[Sigma]2 + 12 $CellContext`\[Sigma]2^2) - 
     2 $CellContext`\[Sigma]1 (-1 + 7 $CellContext`\[Sigma]2 + 
      12 $CellContext`\[Sigma]2^2 + 4 $CellContext`\[Sigma]2^3)), 0, 
    Rational[1, 
      6] $CellContext`t^4 ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) (
      1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      2 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4) (
      2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      3 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (
      4 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (342 + 
     4 $CellContext`\[Sigma]1^8 + 338 $CellContext`\[Sigma]2 + 
     613 $CellContext`\[Sigma]2^2 + 156 $CellContext`\[Sigma]2^3 - 
     257 $CellContext`\[Sigma]2^4 - 88 $CellContext`\[Sigma]2^5 + 
     60 $CellContext`\[Sigma]2^6 + 32 $CellContext`\[Sigma]2^7 + 
     4 $CellContext`\[Sigma]2^8 - 
     32 $CellContext`\[Sigma]1^7 (1 + $CellContext`\[Sigma]2) + 
     4 $CellContext`\[Sigma]1^6 (15 + 56 $CellContext`\[Sigma]2 + 
       28 $CellContext`\[Sigma]2^2) - 
     8 $CellContext`\[Sigma]1^5 (-11 + 45 $CellContext`\[Sigma]2 + 
      84 $CellContext`\[Sigma]2^2 + 
      28 $CellContext`\[Sigma]2^3) + $CellContext`\[Sigma]1^4 (-257 - 
       440 $CellContext`\[Sigma]2 + 900 $CellContext`\[Sigma]2^2 + 
       1120 $CellContext`\[Sigma]2^3 + 280 $CellContext`\[Sigma]2^4) - 
     4 $CellContext`\[Sigma]1^3 (39 - 257 $CellContext`\[Sigma]2 - 
      220 $CellContext`\[Sigma]2^2 + 300 $CellContext`\[Sigma]2^3 + 
      280 $CellContext`\[Sigma]2^4 + 
      56 $CellContext`\[Sigma]2^5) + $CellContext`\[Sigma]1^2 (613 + 
       468 $CellContext`\[Sigma]2 - 1542 $CellContext`\[Sigma]2^2 - 
       880 $CellContext`\[Sigma]2^3 + 900 $CellContext`\[Sigma]2^4 + 
       672 $CellContext`\[Sigma]2^5 + 112 $CellContext`\[Sigma]2^6) - 
     2 $CellContext`\[Sigma]1 (169 + 613 $CellContext`\[Sigma]2 + 
      234 $CellContext`\[Sigma]2^2 - 514 $CellContext`\[Sigma]2^3 - 
      220 $CellContext`\[Sigma]2^4 + 180 $CellContext`\[Sigma]2^5 + 
      112 $CellContext`\[Sigma]2^6 + 16 $CellContext`\[Sigma]2^7))}, 0, 9, 1],
  
  Editable->False]], "Output",
 CellChangeTimes->{3.7987771853424377`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"2338a48b-1262-4cbd-80e0-01db673c2a11"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Tau", "[", "t", "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "//", "r12"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.798777422592338*^9, 3.798777495271174*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"e45185b9-9281-4324-b892-08e77d56f616"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"a1", "-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1", " ", 
     "\[Epsilon]"}], 
    RowBox[{"\[Xi]2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"2", " ", "t", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]1 \
$CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2), 
    2 $CellContext`t (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.79877743088626*^9, {3.798777476500729*^9, 3.798777496140623*^9}},
 CellLabel->"Out[96]=",ExpressionUUID->"7775b5f5-cbc7-45dc-9218-f03daf70f809"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Tau1", "[", "t", "]"}], "+", 
   RowBox[{
    RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{3.7987774352523403`*^9, 3.798777527593886*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"83451be5-615e-4f29-b727-3cf56d979e1a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"1", "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"a1", "-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1", " ", 
     "\[Epsilon]"}], 
    RowBox[{"\[Xi]2", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
   FractionBox[
    RowBox[{"2", " ", "t", " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   1, E^($CellContext`a1 - $CellContext`a2) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]2) $CellContext`\[Xi]1 \
$CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2), 
    2 $CellContext`t (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.798777436204567*^9, 3.7987775287792587`*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"1c2bcce3-c3a8-4d55-860b-20aff64a51b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"Tau", "[", "t", "]"}], "]"}], "/.", 
     RowBox[{
      RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"t", "^", "p"}], " ", 
       RowBox[{"p", "^", "2"}]}]}]}], ")"}], "+", 
   RowBox[{
    RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "4"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{3.7987775899028387`*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"7f15143b-8d86-4366-a521-85d445d1a3dd"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", " ", 
     "\[Epsilon]"}], "\[Xi]1"], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "t"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
       
       RowBox[{"\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]], "+", 
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}], 
       
       RowBox[{"\[Xi]1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
        " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", "a1"}], "+", 
          RowBox[{"3", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"3", "-", 
          RowBox[{"3", " ", "\[Sigma]1"}], "+", 
          RowBox[{"3", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "3"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "3"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2, 
    2 $CellContext`t ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) - 
    2 E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(2 - 
      2 $CellContext`\[Sigma]1 + 
      2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-2) \
$CellContext`\[Xi]2^2 (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), 
    E^($CellContext`a1 - $CellContext`a2) $CellContext`t^(
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1 $CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-4) + 
    8 E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 (-1 + $CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) + 
    3 E^((-3) $CellContext`a1 + 3 $CellContext`a2) $CellContext`t^(3 - 
       3 $CellContext`\[Sigma]1 + 
       3 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-3) \
$CellContext`\[Xi]2^3 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4)}, 1, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{3.798777608737167*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"9c579187-9e76-4dd1-9015-2e6ae0f7fc9f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", 
       " ", "\[Epsilon]"}], "\[Xi]1"], 
     RowBox[{
      RowBox[{
       RowBox[{"Tau1", "[", "t", "]"}], "^", "2"}], "/", 
      RowBox[{
       RowBox[{"Tau", "[", "t", "]"}], "^", "2"}]}]}], ")"}], "+", 
   RowBox[{
    RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "4"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.7987776229616537`*^9, 3.798777637845433*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"7b32cd68-7de9-47ea-8652-447cacf9af63"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2", " ", 
     "\[Epsilon]"}], "\[Xi]1"], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "t"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "-", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "a1"}], "+", 
          RowBox[{"2", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", 
          RowBox[{"2", " ", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", "\[Xi]1"}], 
       
       RowBox[{"\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]], "+", 
      FractionBox[
       RowBox[{"8", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", "\[Xi]2"}], 
       
       RowBox[{"\[Xi]1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}], 
        " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{"3", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", "a1"}], "+", 
          RowBox[{"3", " ", "a2"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"3", "-", 
          RowBox[{"3", " ", "\[Sigma]1"}], "+", 
          RowBox[{"3", " ", "\[Sigma]2"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "3"]}], 
       RowBox[{
        SuperscriptBox["\[Xi]1", "3"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "4"]}]]}],
      ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "3"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2, 
    2 $CellContext`t ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) - 
    2 E^((-2) $CellContext`a1 + 2 $CellContext`a2) $CellContext`t^(2 - 
      2 $CellContext`\[Sigma]1 + 
      2 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-2) \
$CellContext`\[Xi]2^2 (
      1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), 
    E^($CellContext`a1 - $CellContext`a2) $CellContext`t^(
       1 + $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1 $CellContext`\[Xi]2^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-4) + 
    8 E^(-$CellContext`a1 + $CellContext`a2) $CellContext`t^(
       2 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2 (-1 + $CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) + 
    3 E^((-3) $CellContext`a1 + 3 $CellContext`a2) $CellContext`t^(3 - 
       3 $CellContext`\[Sigma]1 + 
       3 $CellContext`\[Sigma]2) $CellContext`\[Xi]1^(-3) \
$CellContext`\[Xi]2^3 (
       1 - $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-4)}, 1, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.798777630850065*^9, 3.798777639121023*^9}},
 CellLabel->
  "Out[102]=",ExpressionUUID->"520b0017-dd6f-4447-92e3-583d4509d4ff"]
}, Open  ]]
},
WindowSize->{1440., 777.75},
WindowMargins->{{0, Automatic}, {Automatic, 13.5}},
FrontEndVersion->"12.3 for Linux x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"1a07f026-e5e8-4017-97a0-708ecb7c3f25"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 138059, 3271, 1808, "Input",ExpressionUUID->"8dc3755c-8db1-4161-8dfd-f95bdceb67aa"],
Cell[138620, 3293, 5782, 147, 113, "Input",ExpressionUUID->"c29c64e5-bbc3-4a71-ad48-b7eed81353e3"],
Cell[CellGroupData[{
Cell[144427, 3444, 2783, 85, 92, "Input",ExpressionUUID->"34871172-0583-4059-a1e4-c6be780ed695"],
Cell[147213, 3531, 2069, 54, 54, "Output",ExpressionUUID->"28b8bbb3-5c50-4bd8-a8b9-a8ff3f02751c"],
Cell[149285, 3587, 1995, 50, 54, "Output",ExpressionUUID->"b559ce02-2de5-4e73-ae99-2fa499d90bf8"],
Cell[151283, 3639, 2064, 52, 54, "Output",ExpressionUUID->"d180c98b-fcb6-46ae-acfe-e0c5715a691a"],
Cell[153350, 3693, 3196, 78, 54, "Output",ExpressionUUID->"ee752ac7-c0ad-465b-96e4-7b87a855210f"]
}, Open  ]],
Cell[156561, 3774, 4643, 119, 73, InheritFromParent,ExpressionUUID->"a27cdf79-1c9f-4aa2-9157-dd5532e6374d"],
Cell[161207, 3895, 345, 8, 29, "Input",ExpressionUUID->"364652e5-b261-489c-85e9-928281803b70"],
Cell[161555, 3905, 4766, 124, 71, "Input",ExpressionUUID->"c4d2a61c-f6ea-4960-ba17-704ac9d89f52"],
Cell[CellGroupData[{
Cell[166346, 4033, 860, 21, 29, "Input",ExpressionUUID->"3fbb3427-41bf-4111-9050-cb05d00003c8"],
Cell[167209, 4056, 381, 9, 28, "Message",ExpressionUUID->"b013e176-c568-4e00-b867-0ea8705c9def"]
}, Open  ]],
Cell[167605, 4068, 1068, 35, 29, "Input",ExpressionUUID->"8e145426-5faa-4062-b594-62028cb7530e"],
Cell[168676, 4105, 177, 3, 29, "Input",ExpressionUUID->"a279a56b-58e5-42e4-a582-09447fb23c42"],
Cell[168856, 4110, 154, 3, 29, "Input",ExpressionUUID->"94096419-b87a-48d6-9c3b-22d17837c9c7"],
Cell[CellGroupData[{
Cell[169035, 4117, 327, 10, 29, "Input",ExpressionUUID->"e309d4ae-89bd-43be-8807-808cba281063"],
Cell[169365, 4129, 4487, 117, 54, "Output",ExpressionUUID->"a10ae3be-5da3-46dd-ab92-24d8c20b54eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[173889, 4251, 370, 10, 29, "Input",ExpressionUUID->"c0165c03-13d8-4173-a65b-16db3539882c"],
Cell[174262, 4263, 8930, 219, 131, "Output",ExpressionUUID->"514c790b-99a1-4672-be82-6fe47b084c0c"]
}, Open  ]],
Cell[183207, 4485, 1914, 46, 51, "Input",ExpressionUUID->"d1a76ee1-9f7b-4aff-8b74-854b86ff0ca2"],
Cell[185124, 4533, 2338, 61, 51, "Input",ExpressionUUID->"eef84576-c627-4435-a679-482dd78c4f6e"],
Cell[CellGroupData[{
Cell[187487, 4598, 2366, 39, 29, "Input",ExpressionUUID->"302915dc-b954-49dd-8383-bfc6e4764e30"],
Cell[189856, 4639, 2053, 39, 53, "Output",ExpressionUUID->"626bf4e6-215c-411b-88e9-2b9d1f7d50e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191946, 4683, 415, 11, 29, "Input",ExpressionUUID->"91c83084-6dbd-4033-ae5b-14a889ecb42f"],
Cell[192364, 4696, 738, 20, 53, "Output",ExpressionUUID->"48a99dc1-7a5f-4001-ac21-347705d47643"]
}, Open  ]],
Cell[193117, 4719, 267, 6, 29, "Input",ExpressionUUID->"c6cfefec-8026-45ec-a3dd-6744d1d79cf1"],
Cell[193387, 4727, 9639, 234, 99, "Input",ExpressionUUID->"9d63e846-7a34-4d47-94e7-7f9889c51aeb"],
Cell[203029, 4963, 1692, 43, 71, "Input",ExpressionUUID->"f4c71df3-574f-4c4e-b3e3-711ac43e0907"],
Cell[204724, 5008, 2657, 50, 51, "Input",ExpressionUUID->"4f8811b7-0caf-4a89-9716-9192abbb92a4"],
Cell[CellGroupData[{
Cell[207406, 5062, 1552, 29, 29, "Input",ExpressionUUID->"81bc5538-e1b3-4da9-b7cb-cc360a96bae6"],
Cell[208961, 5093, 5498, 128, 54, "Output",ExpressionUUID->"8c07854e-e323-4906-b856-e843131c6113"]
}, Open  ]],
Cell[CellGroupData[{
Cell[214496, 5226, 1469, 27, 29, "Input",ExpressionUUID->"cd974391-e6fc-4602-a47b-475ac322c607"],
Cell[215968, 5255, 4564, 116, 54, "Output",ExpressionUUID->"1cca65a5-c4a3-4b43-8ae9-f0bb50a1c111"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220569, 5376, 940, 25, 29, "Input",ExpressionUUID->"8f8c82a0-02e0-423e-8a65-994023bf0528"],
Cell[221512, 5403, 1450, 34, 36, "Output",ExpressionUUID->"c1b9ec91-5442-41f9-ba8a-d55e0c96a90a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222999, 5442, 679, 16, 71, "Input",ExpressionUUID->"dff4a32a-bdbd-4893-af84-f675724b5d78"],
Cell[223681, 5460, 399, 10, 47, "Output",ExpressionUUID->"8eb39bbf-9c3d-446f-becc-da9f31eeb58d"]
}, Open  ]],
Cell[224095, 5473, 3969, 123, 339, "Input",ExpressionUUID->"a146f7e2-4f49-406f-a792-70830175fb04"],
Cell[CellGroupData[{
Cell[228089, 5600, 1315, 39, 44, "Input",ExpressionUUID->"7c5c0104-fc33-436c-9fc6-d26ddc96d108"],
Cell[229407, 5641, 1398, 41, 48, "Output",ExpressionUUID->"e67ab44f-4b2f-49fb-943b-dfdcecfaf057"]
}, Open  ]],
Cell[CellGroupData[{
Cell[230842, 5687, 1285, 38, 45, "Input",ExpressionUUID->"8d7031e3-5ccf-4ad7-a45a-a72b53ff3617"],
Cell[232130, 5727, 854, 26, 33, "Output",ExpressionUUID->"dd8b6965-301f-43a0-a769-56948d3f3b08"]
}, Open  ]],
Cell[CellGroupData[{
Cell[233021, 5758, 7819, 171, 166, "Input",ExpressionUUID->"e5083bc7-0fd5-48ec-a0ae-7a4117b53aa9"],
Cell[240843, 5931, 25169, 581, 306, "Output",ExpressionUUID->"fe1019f2-e20c-4fd3-b786-c93f760f1e5c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[266049, 6517, 322, 8, 29, "Input",ExpressionUUID->"c2691b50-c9d2-46d3-b34e-7e7e7fa3f19a"],
Cell[266374, 6527, 432, 10, 33, "Output",ExpressionUUID->"ad3c4080-a3ce-4800-8c10-fc076dd1bc13"]
}, Open  ]],
Cell[266821, 6540, 1101, 34, 45, "Input",ExpressionUUID->"edfdce1b-a0c9-440f-b9c3-d1166ad6a8bb"],
Cell[267925, 6576, 462, 14, 44, "Input",ExpressionUUID->"3c52b715-c812-4d5c-b1c6-8fa904db0a23"],
Cell[CellGroupData[{
Cell[268412, 6594, 627, 19, 44, "Input",ExpressionUUID->"a8df408e-a365-4278-b9f1-c62eb67702fa"],
Cell[269042, 6615, 667, 21, 47, "Output",ExpressionUUID->"e6bd52e9-8c2f-47c0-a612-6ed9a32b03aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[269746, 6641, 674, 22, 44, "Input",ExpressionUUID->"f20ec945-3829-4031-b338-a479daff3e1f"],
Cell[270423, 6665, 515, 16, 47, "Output",ExpressionUUID->"7edc9a6f-64d1-420d-a11f-091faff6a16b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[270975, 6686, 635, 20, 44, "Input",ExpressionUUID->"51a51ccb-e7c0-4173-a19e-42284bc6f86b"],
Cell[271613, 6708, 398, 8, 33, "Output",ExpressionUUID->"5608beca-1505-4a59-9bb8-fef220cd4fee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[272048, 6721, 752, 24, 44, "Input",ExpressionUUID->"e49c6059-e0b8-4d9b-aff8-79bf22c2a262"],
Cell[272803, 6747, 400, 8, 33, "Output",ExpressionUUID->"1fbcecf1-e7ea-4202-9512-5619608989a7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[273240, 6760, 597, 18, 44, "Input",ExpressionUUID->"1d6bc8d4-4b29-4646-ac92-df5781d7808b"],
Cell[273840, 6780, 515, 16, 47, "Output",ExpressionUUID->"188b53d7-b209-4ba0-82b7-828f4b4701ce"]
}, Open  ]],
Cell[CellGroupData[{
Cell[274392, 6801, 545, 17, 44, "Input",ExpressionUUID->"4a097f21-1485-44b6-83cb-735d8a80aedd"],
Cell[274940, 6820, 420, 13, 47, "Output",ExpressionUUID->"5d440622-0059-462a-8a86-b21acd2a8330"]
}, Open  ]],
Cell[CellGroupData[{
Cell[275397, 6838, 532, 17, 44, "Input",ExpressionUUID->"ab1b31ac-4bed-45e0-a944-abfa8c52020a"],
Cell[275932, 6857, 765, 24, 33, "Output",ExpressionUUID->"87694f3d-01bf-4177-b5f1-b62b7150d436"]
}, Open  ]],
Cell[CellGroupData[{
Cell[276734, 6886, 492, 16, 44, "Input",ExpressionUUID->"bd97edfd-1fa9-40e5-a37e-1ad2b375daa7"],
Cell[277229, 6904, 392, 12, 47, "Output",ExpressionUUID->"3c3917fd-6e09-4249-97ea-fdca70a224a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[277658, 6921, 577, 18, 44, "Input",ExpressionUUID->"e2af21c5-8896-4cb7-82b7-c331993ee607"],
Cell[278238, 6941, 566, 14, 33, "Output",ExpressionUUID->"06c21178-f4c8-42bc-898f-9892064d5c4d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[278841, 6960, 473, 12, 29, "Input",ExpressionUUID->"cdcde5bf-5dce-4e6c-a385-2491e09e8bad"],
Cell[279317, 6974, 9061, 222, 102, "Output",ExpressionUUID->"97d0c621-142a-4dc8-bd4d-e9f71aa689c1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[288415, 7201, 455, 13, 29, "Input",ExpressionUUID->"4a0d8295-c621-4aa8-8747-24d959a20022"],
Cell[288873, 7216, 11590, 275, 125, "Output",ExpressionUUID->"2338a48b-1262-4cbd-80e0-01db673c2a11"]
}, Open  ]],
Cell[CellGroupData[{
Cell[300500, 7496, 352, 9, 29, "Input",ExpressionUUID->"e45185b9-9281-4324-b892-08e77d56f616"],
Cell[300855, 7507, 1359, 35, 53, "Output",ExpressionUUID->"7775b5f5-cbc7-45dc-9218-f03daf70f809"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302251, 7547, 323, 8, 29, "Input",ExpressionUUID->"83451be5-615e-4f29-b727-3cf56d979e1a"],
Cell[302577, 7557, 1335, 34, 53, "Output",ExpressionUUID->"1c2bcce3-c3a8-4d55-860b-20aff64a51b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[303949, 7596, 540, 17, 29, "Input",ExpressionUUID->"7f15143b-8d86-4366-a521-85d445d1a3dd"],
Cell[304492, 7615, 4520, 119, 54, "Output",ExpressionUUID->"9c579187-9e76-4dd1-9015-2e6ae0f7fc9f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309049, 7739, 773, 23, 50, "Input",ExpressionUUID->"7b32cd68-7de9-47ea-8652-447cacf9af63"],
Cell[309825, 7764, 4544, 119, 54, "Output",ExpressionUUID->"520b0017-dd6f-4447-92e3-583d4509d4ff"]
}, Open  ]]
}
]
*)