B3.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[    200183,       5224]
NotebookOptionsPosition[    195472,       5142]
NotebookOutlinePosition[    195838,       5158]
CellTagsIndexPosition[    195795,       5155]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"totalcoeffs", " ", "=", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Sigma]3", "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["4", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], "+", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], 
             "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "\[Sigma]1"}], "+", 
            RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
           "2"]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
           "2"]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"1", "-", "\[Sigma]1", "-", 
            RowBox[{"2", " ", "\[Sigma]2"}], "+", "\[Sigma]3"}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
             ")"}]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"8", " ", 
            SuperscriptBox["\[Sigma]3", "4"]}]], "+", 
          RowBox[{"c2", "[", 
           RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["\[Sigma]2", "2"]}], "-", 
             RowBox[{"6", " ", "\[Sigma]2", " ", "\[Sigma]3"}], "-", 
             RowBox[{"9", " ", 
              SuperscriptBox["\[Sigma]3", "2"]}]}], ")"}], " ", 
           RowBox[{"c2", "[", 
            RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}]}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{
          FractionBox["2", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
          RowBox[{"c2", "[", 
           RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]2", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[Sigma]2", "2"], "-", 
            RowBox[{"3", " ", "\[Sigma]2", " ", "\[Sigma]3"}], "+", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]3", "2"]}]}], 
           RowBox[{"2", " ", "\[Sigma]2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "6"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "6"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "\[Sigma]1"}], "+", 
            RowBox[{"2", " ", "\[Sigma]2"}], "+", "\[Sigma]3"}], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[Sigma]1", "2"]}], "+", 
            RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]3"}], "+", 
            RowBox[{"7", " ", 
             SuperscriptBox["\[Sigma]3", "2"]}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "2", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "2", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "3", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"3", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "3", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "6"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "3", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}],
             "2"], " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"1", "-", "\[Sigma]1", "-", 
            RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}],
             " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"2", " ", "\[Sigma]1"}], "-", 
            SuperscriptBox["\[Sigma]1", "2"], "+", 
            RowBox[{"2", " ", "\[Sigma]3"}], "-", 
            RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]3"}], "+", 
            RowBox[{"7", " ", 
             SuperscriptBox["\[Sigma]3", "2"]}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"1", "-", 
            RowBox[{"4", " ", "\[Sigma]1"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "-", "\[Sigma]2", "+", 
            RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "-", 
            "\[Sigma]3", "+", 
            RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]3"}], "+", 
            RowBox[{"2", " ", "\[Sigma]2", " ", "\[Sigma]3"}], "-", 
            RowBox[{
            "4", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", "\[Sigma]3"}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
             ")"}]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
               ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
               ")"}], "2"]}]]}], "+", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]], "+", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "6"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"3", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "6"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"3", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Sigma]3", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "2", ",", "2"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["\[Sigma]2", "5"], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]2", "4"], " ", "\[Sigma]3"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[Sigma]2", "3"], " ", 
             SuperscriptBox["\[Sigma]3", "2"]}], "-", 
            RowBox[{"20", " ", 
             SuperscriptBox["\[Sigma]2", "2"], " ", 
             SuperscriptBox["\[Sigma]3", "3"]}], "-", 
            RowBox[{"63", " ", "\[Sigma]2", " ", 
             SuperscriptBox["\[Sigma]3", "4"]}], "-", 
            RowBox[{"16", " ", 
             SuperscriptBox["\[Sigma]3", "5"]}]}], 
           RowBox[{"8", " ", "\[Sigma]2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"], " ", 
            SuperscriptBox["\[Sigma]3", "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Sigma]2", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "3"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "3", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]2", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "3"], " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "0", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "8"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "0", ",", "4", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "8"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[Sigma]2", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{
           FractionBox["1", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"]], 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "a1"}], "-", "a2"}]], " ", 
            SuperscriptBox["t", 
             RowBox[{
              RowBox[{"-", "\[Sigma]1"}], "-", "\[Sigma]2"}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"a1", "+", "a2"}]], " ", 
                 SuperscriptBox["t", 
                  RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}]]}], 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[Sigma]2", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
                 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], 
              "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"a1", "+", "a2"}]], " ", 
                 SuperscriptBox["t", 
                  RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}]], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"-", 
                    SuperscriptBox["\[Sigma]1", "4"]}], " ", 
                    SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Sigma]1", "3"], " ", 
                    SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                   RowBox[{
                    SuperscriptBox["\[Sigma]1", "2"], " ", 
                    SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["\[Sigma]1", "4"], " ", 
                    SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2", " ", 
                    SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[Sigma]1", "2"], " ", 
                    SuperscriptBox["\[Sigma]2", "2"], " ", 
                    SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                   RowBox[{"2", " ", "\[Sigma]1", " ", 
                    SuperscriptBox["\[Sigma]2", "3"], " ", 
                    SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                   RowBox[{"3", " ", 
                    SuperscriptBox["\[Sigma]2", "4"], " ", 
                    SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Sigma]1", "2"], " ", 
                    SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                   RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", 
                    SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                   RowBox[{"5", " ", 
                    SuperscriptBox["\[Sigma]2", "2"], " ", 
                    SuperscriptBox["\[Sigma]3", "4"]}], "+", 
                   RowBox[{"4", " ", 
                    SuperscriptBox["\[Sigma]3", "6"]}]}], ")"}]}], ")"}], "/", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
                 
                 SuperscriptBox["\[Sigma]3", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "\[Sigma]1"}], "+", "\[Sigma]3"}], ")"}], 
                  "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
                 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], 
                  "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"(", 
                   RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}], 
                ")"}]}]}], ")"}]}]}]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "2"], " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "-", 
              RowBox[{"3", " ", 
               SuperscriptBox["\[Sigma]1", "3"], " ", 
               SuperscriptBox["\[Sigma]3", "2"]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]2", " ", 
               SuperscriptBox["\[Sigma]3", "2"]}], "+", 
              RowBox[{"\[Sigma]1", " ", 
               SuperscriptBox["\[Sigma]2", "2"], " ", 
               SuperscriptBox["\[Sigma]3", "2"]}], "-", 
              RowBox[{"3", " ", 
               SuperscriptBox["\[Sigma]2", "3"], " ", 
               SuperscriptBox["\[Sigma]3", "2"]}], "+", 
              RowBox[{"8", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", 
               SuperscriptBox["\[Sigma]3", "3"]}], "+", 
              RowBox[{"9", " ", "\[Sigma]1", " ", 
               SuperscriptBox["\[Sigma]3", "4"]}], "+", 
              RowBox[{"9", " ", "\[Sigma]2", " ", 
               SuperscriptBox["\[Sigma]3", "4"]}], "+", 
              RowBox[{"8", " ", 
               SuperscriptBox["\[Sigma]3", "5"]}]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
              SuperscriptBox["\[Sigma]3", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}], 
             ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "1", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "1", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "1", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "2", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "2", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "2", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], 
            "4"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "2", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[Sigma]1", "3"], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]2"}], "+", 
              RowBox[{"6", " ", "\[Sigma]1", " ", 
               SuperscriptBox["\[Sigma]2", "2"]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["\[Sigma]2", "3"]}], "+", 
              RowBox[{
               SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]3"}], "-", 
              RowBox[{
              "4", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", "\[Sigma]3"}], 
              "+", 
              RowBox[{"6", " ", 
               SuperscriptBox["\[Sigma]2", "2"], " ", "\[Sigma]3"}], "+", 
              RowBox[{"\[Sigma]1", " ", 
               SuperscriptBox["\[Sigma]3", "2"]}], "-", 
              RowBox[{"4", " ", "\[Sigma]2", " ", 
               SuperscriptBox["\[Sigma]3", "2"]}], "+", 
              SuperscriptBox["\[Sigma]3", "3"]}], ")"}], "/", 
            RowBox[{"(", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "3"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}], 
             ")"}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "2", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "4"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "3", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "3", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "3", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "3", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "3", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "3", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"0", ",", "4", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "4", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "8"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"0", ",", "4", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "1", ",", "2"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]3"}], ")"}],
             "2"], " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox["\[Sigma]2", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
              ")"}], "2"]]}], 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"a1", "-", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]]}], 
              RowBox[{"2", " ", 
               SuperscriptBox["\[Sigma]2", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], 
            "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"4", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "4"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"6", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 SuperscriptBox["\[Sigma]2", "4"], "+", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"12", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"18", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"12", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]1", "4"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"6", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"4", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]2", "3"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "3"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]2", "4"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "+", 
                 RowBox[{"10", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                 RowBox[{"2", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "+", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Sigma]3", "6"]}]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                 ")"}], "2"], " ", 
               SuperscriptBox["\[Sigma]3", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
                "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
                 ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], "2"],
                " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}], 
              ")"}]}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "2", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}], 
              ")"}], "2"]]}], 
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"a1", "-", "a2"}]], " ", 
          SuperscriptBox["t", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]2"}]], " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{"4", " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
              SuperscriptBox["t", 
               RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
                ")"}], "2"]}]], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "a1"}], "+", "a2"}]], " ", 
               SuperscriptBox["t", 
                RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]2"}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"4", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "4"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"6", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  SuperscriptBox["\[Sigma]2", "3"]}], "-", 
                 SuperscriptBox["\[Sigma]2", "4"], "+", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "-", 
                 RowBox[{
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "4"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"12", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"18", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"12", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]1", "4"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"6", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]1", "3"], " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"4", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[Sigma]2", "3"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]2", "3"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "+", 
                 RowBox[{"3", " ", 
                  SuperscriptBox["\[Sigma]2", "4"], " ", 
                  SuperscriptBox["\[Sigma]3", "2"]}], "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "+", 
                 RowBox[{"10", " ", "\[Sigma]1", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Sigma]1", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                 RowBox[{"2", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "+", 
                 RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "-", 
                 RowBox[{"5", " ", 
                  SuperscriptBox["\[Sigma]2", "2"], " ", 
                  SuperscriptBox["\[Sigma]3", "4"]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["\[Sigma]3", "6"]}]}], ")"}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
                 ")"}], "2"], " ", 
               SuperscriptBox["\[Sigma]3", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
                "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
                 ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], "2"],
                " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}], 
              ")"}]}]}], ")"}]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "0", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "0", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "0", ",", "3", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "1", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{"1", "-", 
            RowBox[{"4", " ", "\[Sigma]1"}], "+", 
            RowBox[{"6", " ", 
             SuperscriptBox["\[Sigma]1", "2"]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["\[Sigma]1", "3"]}], "-", "\[Sigma]2", "+", 
            RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]2"}], "+", 
            "\[Sigma]3", "-", 
            RowBox[{"2", " ", "\[Sigma]1", " ", "\[Sigma]3"}], "-", 
            RowBox[{"2", " ", "\[Sigma]2", " ", "\[Sigma]3"}], "+", 
            RowBox[{
            "4", " ", "\[Sigma]1", " ", "\[Sigma]2", " ", "\[Sigma]3"}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]2", "-", "\[Sigma]3"}], ")"}],
             " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["1", 
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
               ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", "1"}], "+", "\[Sigma]2", "-", "\[Sigma]3"}], 
               ")"}], "2"], " ", 
             SuperscriptBox["\[Sigma]3", "2"]}]]}], "+", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "-", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "-", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"]}]], "+", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "-", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "1", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           RowBox[{
            RowBox[{"-", "1"}], "+", 
            RowBox[{"2", " ", "\[Sigma]2"}], "-", 
            SuperscriptBox["\[Sigma]2", "2"], "+", 
            RowBox[{"2", " ", "\[Sigma]3"}], "-", 
            RowBox[{"2", " ", "\[Sigma]2", " ", "\[Sigma]3"}], "+", 
            RowBox[{"7", " ", 
             SuperscriptBox["\[Sigma]3", "2"]}]}], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "-", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["2", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
           " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
            ")"}]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "1", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["2", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
             ")"}]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "2", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "2", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "2", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "2", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "1"}], "-", "\[Sigma]1", "+", 
             RowBox[{"2", " ", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], "2"], 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "\[Sigma]1"}], "+", "\[Sigma]2"}], ")"}], "2"], 
           " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"1", "+", "\[Sigma]1", "-", 
              RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], ")"}], 
            "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "2", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "-", "\[Sigma]1", "+", 
              RowBox[{"2", " ", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], 
            "2"], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "\[Sigma]1"}], "+", "\[Sigma]2"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", "\[Sigma]1", "-", 
               RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], ")"}], 
             "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "2", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"1", ",", "3", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"1", ",", "3", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"1", ",", "3", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "0", ",", "0", ",", "2"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2", "+", 
              "\[Sigma]3"}], ")"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"2", " ", "\[Sigma]1"}], "+", "\[Sigma]2", "-", 
               "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"2", "-", 
              RowBox[{"2", " ", "\[Sigma]1"}], "-", "\[Sigma]2", "+", 
              "\[Sigma]3"}], ")"}], "2"], 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"2", " ", "\[Sigma]1"}], "+", "\[Sigma]2", "-", 
               "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox["\[Sigma]3", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "-", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], 
            " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]}], 
        ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "0", ",", "1", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "4"]}]], "-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"2", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "4"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
              ")"}], "4"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "1", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]2", "+", "\[Sigma]3"}], 
              ")"}], "2"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "1", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"2", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"2", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"2", ",", "2", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"3", ",", "0", ",", "0", ",", "1"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         FractionBox["1", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}],
             "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}],
             "2"]}]]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"3", ",", "0", ",", "1", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"3", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"3", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"3", ",", "1", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}], ",", 
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"4", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "8"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c2", "[", 
          RowBox[{"4", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{"4", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
              ")"}], "8"]}]]}]}], ",", 
        RowBox[{
         RowBox[{"c3", "[", 
          RowBox[{"4", ",", "0", ",", "0", ",", "0"}], "]"}], "\[Rule]", 
         "0"}]}], "}"}]}], "}"}], "]"}]}], ";"}]], "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.7882556796954937`*^9, 
   3.7882556856210413`*^9}, {3.788256006063395*^9, 3.788256006391952*^9}, {
   3.788256100879374*^9, 3.7882561012659283`*^9}, {3.78825657540466*^9, 
   3.7882565758608627`*^9}},
 FontSize->9,
 CellLabel->
  "In[715]:=",ExpressionUUID->"8dc3755c-8db1-4161-8dfd-f95bdceb67aa"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{"B3", " ", "is", " ", "non"}], "-", 
    RowBox[{"simply", " ", "laced"}]}], ",", " ", 
   RowBox[{"therefore", " ", "the", " ", "coroots", " ", "are", " ", "used"}],
    ",", " ", 
   RowBox[{"and", " ", "minus", " ", "the", " ", "cohighest", " ", "root"}]}],
   "*)"}]], "Input",
 CellChangeTimes->{{3.787733754039486*^9, 3.787733767106595*^9}, {
  3.78825569703691*^9, 
  3.788255733289324*^9}},ExpressionUUID->"50ce8ef6-9c89-4d4e-a07d-\
0d024edd2e9e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", "=", "4"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X1", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c1", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], " ", 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "\[Sigma]3"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"a2", "-", "a3"}], ")"}]}], "+", 
          RowBox[{"2", " ", "n3", " ", "a3"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2", "+", "n3"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{"n1", "-", "n0"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n2", "-", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]3", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n2"}], "+", 
          RowBox[{"2", "n3"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]3", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "totalcoeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X2", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c2", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], " ", 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], "+", 
          RowBox[{"2", "n3", " ", "\[Sigma]3"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"a2", "-", "a3"}], ")"}]}], "+", 
          RowBox[{"2", "n3", " ", "a3"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2", "+", "n3"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{"n1", "-", "n0"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n2", "-", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]3", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n2"}], "+", 
          RowBox[{"2", "n3"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]3", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "totalcoeffs"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X3", "[", "t_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"c3", "[", 
        RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], " ", 
       RowBox[{"t", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], "+", 
          RowBox[{"2", "n3", " ", "\[Sigma]3"}]}], ")"}]}], 
       RowBox[{"E", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"n0", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "a1"}], "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n1", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "a2"}], ")"}]}], "+", 
          RowBox[{"n2", 
           RowBox[{"(", 
            RowBox[{"a2", "-", "a3"}], ")"}]}], "+", 
          RowBox[{"2", "n3", " ", "a3"}]}], ")"}]}], 
       RowBox[{"\[Epsilon]", "^", 
        RowBox[{"(", 
         RowBox[{"n0", "+", "n1", "+", "n2", "+", "n3"}], ")"}]}], 
       RowBox[{"\[Xi]1", "^", 
        RowBox[{"(", 
         RowBox[{"n1", "-", "n0"}], ")"}]}], 
       RowBox[{"\[Xi]2", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n0"}], "+", "n2", "-", "n1"}], ")"}]}], 
       RowBox[{"\[Xi]3", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "n2"}], "+", 
          RowBox[{"2", "n3"}]}], ")"}]}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{"n", "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]1", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]2", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"O", "[", "\[Xi]3", "]"}], "^", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", "n"}], "+", "1"}], ")"}]}]}], "/.", 
   "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.788255962805978*^9, {
   3.7882560105631657`*^9, 3.788256010688857*^9}, {3.788256139354658*^9, 
   3.788256139499679*^9}, {3.7942073896931887`*^9, 3.7942073914840927`*^9}},
 CellLabel->
  "In[720]:=",ExpressionUUID->"c29c64e5-bbc3-4a71-ad48-b7eed81353e3"],

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"}], ")"}]}], 
        RowBox[{"\[Xi]2", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], 
        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[{"\[Epsilon]", " ", "\[Xi]2", " ", 
        RowBox[{"\[Xi]3", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], " ", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"a2", "-", "a3"}], ")"}]}], " ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"X2", "[", "t", "]"}], "-", 
          RowBox[{"X3", "[", "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", "]"}]}], "]"}]}], "-", 
       RowBox[{"\[Epsilon]", " ", 
        RowBox[{"\[Xi]1", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], 
        RowBox[{"\[Xi]2", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], 
        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[{"de3", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"X3", "[", "t", "]"}], "/.", 
       RowBox[{
        RowBox[{"t", "^", "p_"}], "\[RuleDelayed]", 
        RowBox[{
         RowBox[{"p", "^", "2"}], " ", 
         RowBox[{"t", "^", "p"}]}]}]}], ")"}], " ", "+", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "\[Epsilon]", " ", 
        RowBox[{"\[Xi]3", "^", "2"}], "  ", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"2", "a3"}], ")"}]}], " ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{"2", " ", "\[Sigma]3"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{"2", 
          RowBox[{"X3", "[", "t", "]"}]}], "]"}]}], "-", 
       RowBox[{"\[Epsilon]", " ", "\[Xi]2", " ", 
        RowBox[{"\[Xi]3", "^", 
         RowBox[{"(", 
          RowBox[{"-", "1"}], ")"}]}], " ", 
        RowBox[{"E", "^", 
         RowBox[{"(", 
          RowBox[{"a2", "-", "a3"}], ")"}]}], " ", 
        RowBox[{"t", "^", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}], " ", 
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{"X2", "[", "t", "]"}], "-", 
          RowBox[{"X3", "[", "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[{"{", 
        RowBox[{"\[Xi]3", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "&&", 
     " ", 
     RowBox[{"Series", "[", 
      RowBox[{"de2", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]3", ",", "0", ",", "n"}], "}"}]}], "]"}], " ", "&&", 
     RowBox[{"Series", "[", 
      RowBox[{"de3", ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]1", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]2", ",", "0", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Xi]3", ",", "0", ",", "n"}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.787730996731065*^9, 3.7877310289044437`*^9}, {
  3.787731070678384*^9, 3.7877311070370502`*^9}, {3.788084328320689*^9, 
  3.788084347636444*^9}, {3.788255745232634*^9, 3.7882557500795794`*^9}, {
  3.78825712795953*^9, 
  3.7882571381666193`*^9}},ExpressionUUID->"c4d2a61c-f6ea-4960-ba17-\
704ac9d89f52"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{"coeffeq", ",", " ", 
   RowBox[{"Flatten", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"c1", "[", 
         RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], ",", 
        RowBox[{"c2", "[", 
         RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}], ",", 
        RowBox[{"c3", "[", 
         RowBox[{"n0", ",", "n1", ",", "n2", ",", "n3"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n0", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n1", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n2", ",", "0", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"n3", ",", "0", ",", "n"}], "}"}]}], "]"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7877316911443443`*^9, 3.787731704447397*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"3fbb3427-41bf-4111-9050-cb05d00003c8"],

Cell[BoxData[
 TemplateBox[{
  "Solve","svars",
   "\"Equations may not give solutions for all \\\"solve\\\" variables.\"",2,
   42,3,16066312106740309815,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.788085256344805*^9, 3.788086624091546*^9, 
  3.7882559997974033`*^9, 3.7882560946674013`*^9, 3.7882565703141336`*^9},
 CellLabel->
  "During evaluation of \
In[42]:=",ExpressionUUID->"ac208b98-024f-4e74-9ef2-252237ddfe44"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Aux", "[", "t_", "]"}], ":=", 
  RowBox[{"\[Epsilon]", " ", 
   RowBox[{"\[Xi]1", "^", 
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}]}], 
   RowBox[{"\[Xi]2", "^", 
    RowBox[{"(", 
     RowBox[{"-", "1"}], ")"}]}], 
   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", "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.787731959528469*^9, 3.787731961186884*^9}, {
  3.788255997402367*^9, 3.788255997438775*^9}},
 CellLabel->"In[32]:=",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"}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.787731973468512*^9, {3.7877320317796593`*^9, 3.787732033213541*^9}, 
   3.787732171980094*^9, 3.787732612768365*^9, 3.788086031468926*^9, {
   3.788255757292665*^9, 3.788255772461473*^9}, 3.7884313374725523`*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"eef84576-c627-4435-a679-482dd78c4f6e"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.78773199487142*^9, 3.787731995009061*^9}, {
   3.787732176679099*^9, 3.7877321770785007`*^9}, {3.787732619037053*^9, 
   3.7877326193826523`*^9}, {3.788086260705515*^9, 3.788086265049882*^9}, {
   3.78808665950428*^9, 3.788086659707831*^9}, {3.7882561154750338`*^9, 
   3.788256115587593*^9}, {3.788256593289671*^9, 3.788256594942819*^9}, 
   3.7884313409238462`*^9},ExpressionUUID->"fb1b4b9a-36c8-4d4f-9519-\
68bb33900e35"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{
   RowBox[{"Tau", "[", "t", "]"}], ",", "t", ",", "1"}], "]"}]], "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}},
 CellLabel->"In[34]:=",ExpressionUUID->"302915dc-b954-49dd-8383-bfc6e4764e30"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[Epsilon]", "5"], " ", 
    SuperscriptBox["\[Sigma]1", "4"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[Epsilon]", "5"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox["\[Sigma]2", "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[Epsilon]", "5"], " ", 
    SuperscriptBox["\[Sigma]2", "4"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[Epsilon]", "5"], " ", 
    SuperscriptBox["\[Sigma]1", "2"], " ", 
    SuperscriptBox["\[Sigma]3", "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[Epsilon]", "5"], " ", 
    SuperscriptBox["\[Sigma]2", "2"], " ", 
    SuperscriptBox["\[Sigma]3", "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{"4", " ", 
    SuperscriptBox["\[Epsilon]", "5"], " ", 
    SuperscriptBox["\[Sigma]3", "4"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{{3.787732001498274*^9, 3.7877320060726213`*^9}, {
   3.787732120156046*^9, 3.78773213306284*^9}, 3.7877321797028313`*^9, {
   3.787732226863447*^9, 3.787732236755885*^9}, {3.787732974890799*^9, 
   3.787732986194108*^9}, 3.7877331359435*^9, 3.788086268227735*^9, 
   3.788086642750429*^9, {3.788086701927763*^9, 3.788086710848383*^9}, 
   3.788256131946938*^9, 3.7882566371395903`*^9, {3.788431379242668*^9, 
   3.788431393565189*^9}, 3.788436032175845*^9, 3.7884638326985817`*^9, 
   3.78862228206645*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"61819784-1e4f-4d90-96e6-ef50ad49dfe2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.788087115422196*^9, 3.7880871166934834`*^9}, {
   3.7882566408259573`*^9, 3.788256640923871*^9}, 3.7884313987433043`*^9},
 NumberMarks->False,
 CellLabel->"In[9]:=",ExpressionUUID->"d44ee183-676a-4d45-9407-f3763235344b"],

Cell[BoxData[
 FractionBox[
  RowBox[{"4", " ", 
   SuperscriptBox["\[Epsilon]", "5"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["\[Sigma]1", "4"], "+", 
     SuperscriptBox["\[Sigma]2", "4"], "-", 
     RowBox[{
      SuperscriptBox["\[Sigma]2", "2"], " ", 
      SuperscriptBox["\[Sigma]3", "2"]}], "+", 
     SuperscriptBox["\[Sigma]3", "4"], "-", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[Sigma]2", "2"], "+", 
        SuperscriptBox["\[Sigma]3", "2"]}], ")"}]}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], "-", 
      SuperscriptBox["\[Sigma]2", "2"]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Sigma]1", "2"], "-", 
      SuperscriptBox["\[Sigma]3", "2"]}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["\[Sigma]2", "2"], "-", 
      SuperscriptBox["\[Sigma]3", "2"]}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{3.788086713569556*^9, 3.78808711749601*^9, 
  3.788256642818676*^9, 3.788431399404274*^9, 3.7884360323547688`*^9, 
  3.7884638329595127`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"1732799e-9f03-4d45-ac16-02148e49a59f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "this", " ", "is", " ", "the", " ", "expected", " ", "result", " ", 
    "according", " ", "to", " ", "\"\<ABCD of Instantons\>\""}], ":"}], "   ",
   "*)"}]], "Input",
 CellChangeTimes->{{3.788256718452623*^9, 
  3.788256740747114*^9}},ExpressionUUID->"b51ad8a6-54ca-4bc2-b01a-\
f755a09500af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"Product", " ", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[NotEqual]", "j"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"s", "[", "i", "]"}], "^", "2"}], "-", 
            RowBox[{
             RowBox[{"s", "[", "j", "]"}], "^", "2"}]}], ")"}], "^", "2"}], 
         ",", "1"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", 
  "Together"}]], "Input",
 CellChangeTimes->{{3.7880869452223883`*^9, 3.788087004848576*^9}, {
  3.788087068401514*^9, 3.788087095855772*^9}, {3.788089809152966*^9, 
  3.7880898223614264`*^9}, {3.7882566501410637`*^9, 3.7882566518832483`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"b4e83150-5f23-4422-9e2e-4d7b4ea550bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"s", "[", "1", "]"}], "4"], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"s", "[", "1", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"s", "[", "2", "]"}], "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"s", "[", "2", "]"}], "4"], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"s", "[", "1", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"s", "[", "3", "]"}], "2"]}], "-", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"s", "[", "2", "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"s", "[", "3", "]"}], "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"s", "[", "3", "]"}], "4"]}], ")"}]}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"s", "[", "1", "]"}], "2"], "-", 
       SuperscriptBox[
        RowBox[{"s", "[", "2", "]"}], "2"]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"s", "[", "1", "]"}], "2"], "-", 
       SuperscriptBox[
        RowBox[{"s", "[", "3", "]"}], "2"]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"s", "[", "2", "]"}], "2"], "-", 
       SuperscriptBox[
        RowBox[{"s", "[", "3", "]"}], "2"]}], ")"}], "2"]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{{3.788086998447201*^9, 3.788087005226049*^9}, {
   3.7880870747814217`*^9, 3.788087096398737*^9}, 3.78825665238225*^9, 
   3.788431401573504*^9, 3.788463833072638*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"f3a36017-81eb-4eb3-9c4d-e1a6fe06be59"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  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"}], ",", 
      RowBox[{"\[Sigma]3", "\[Rule]", "S3"}], ",", 
      RowBox[{"a3", "\[Rule]", "A3"}], ",", 
      RowBox[{"\[Xi]3", "\[Rule]", "\[CapitalXi]3"}]}], "}"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r12", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]2", "+", 
       RowBox[{"1", "/", "5"}]}]}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", "a2"}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", "\[Xi]2"}], ",", " ", 
     RowBox[{"S2", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]1", "-", 
       RowBox[{"1", "/", "5"}]}]}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", "a1"}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", "\[Xi]1"}], ",", 
     RowBox[{"S3", "\[RuleDelayed]", "\[Sigma]3"}], ",", 
     RowBox[{"A3", "\[RuleDelayed]", " ", "a3"}], ",", 
     RowBox[{"\[CapitalXi]3", "\[RuleDelayed]", " ", "\[Xi]3"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r23", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", "\[Sigma]1"}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", "a1"}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", "\[Xi]1"}], " ", ",", 
     " ", 
     RowBox[{"S2", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]3", "+", 
       RowBox[{"1", "/", "5"}]}]}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", "a3"}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", "\[Xi]3"}], ",", 
     RowBox[{"S3", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]2", "-", 
       RowBox[{"1", "/", "5"}]}]}], ",", 
     RowBox[{"A3", "\[RuleDelayed]", " ", "a2"}], ",", 
     RowBox[{"\[CapitalXi]3", "\[RuleDelayed]", " ", "\[Xi]2"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r13", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]3", "+", 
       RowBox[{"2", "/", "5"}]}]}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", "a3"}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", "\[Xi]3"}], " ", ",", 
     " ", 
     RowBox[{"S2", "\[RuleDelayed]", "\[Sigma]2"}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", "a2"}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", "\[Xi]2"}], ",", 
     RowBox[{"S3", "\[RuleDelayed]", 
      RowBox[{"\[Sigma]1", "-", 
       RowBox[{"2", "/", "5"}]}]}], ",", 
     RowBox[{"A3", "\[RuleDelayed]", " ", "a1"}], ",", 
     RowBox[{"\[CapitalXi]3", "\[RuleDelayed]", " ", "\[Xi]1"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r1", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"-", "\[Sigma]1"}], "+", "1"}]}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", 
      RowBox[{"-", "a1"}]}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", 
      RowBox[{"\[Xi]1", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}], ",", " ", 
     RowBox[{"S2", "\[RuleDelayed]", "\[Sigma]2"}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", "a2"}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", "\[Xi]2"}], ",", 
     RowBox[{"S3", "\[RuleDelayed]", "\[Sigma]3"}], ",", 
     RowBox[{"A3", "\[RuleDelayed]", " ", "a3"}], ",", 
     RowBox[{"\[CapitalXi]3", "\[RuleDelayed]", " ", "\[Xi]3"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r2", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", "\[Sigma]1"}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", "a1"}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", "\[Xi]1"}], ",", " ", 
     RowBox[{"S2", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"-", "\[Sigma]2"}], "+", 
       RowBox[{"3", "/", "5"}]}]}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", 
      RowBox[{"-", "a2"}]}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", 
      RowBox[{"\[Xi]2", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}], ",", 
     RowBox[{"S3", "\[RuleDelayed]", "\[Sigma]3"}], ",", 
     RowBox[{"A3", "\[RuleDelayed]", " ", "a3"}], ",", 
     RowBox[{"\[CapitalXi]3", "\[RuleDelayed]", " ", "\[Xi]3"}]}], 
    "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r3", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", "\[Sigma]1"}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", "a1"}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", "\[Xi]1"}], ",", " ", 
     RowBox[{"S2", "\[RuleDelayed]", "\[Sigma]2"}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", "a2"}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", "\[Xi]2"}], ",", 
     RowBox[{"S3", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"-", "\[Sigma]3"}], "+", 
       RowBox[{"1", "/", "5"}]}]}], ",", 
     RowBox[{"A3", "\[RuleDelayed]", " ", 
      RowBox[{"-", "a3"}]}], ",", 
     RowBox[{"\[CapitalXi]3", "\[RuleDelayed]", " ", 
      RowBox[{"\[Xi]3", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}]}], "}"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r0", "[", "f_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"f", "//", "NDef"}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"S1", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"-", "\[Sigma]2"}], "+", "1"}]}], ",", 
     RowBox[{"A1", "\[RuleDelayed]", " ", 
      RowBox[{"-", "a2"}]}], ",", 
     RowBox[{"\[CapitalXi]1", "\[RuleDelayed]", " ", 
      RowBox[{"\[Xi]2", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}], ",", " ", 
     RowBox[{"S2", "\[RuleDelayed]", 
      RowBox[{
       RowBox[{"-", "\[Sigma]1"}], "+", "1"}]}], ",", 
     RowBox[{"A2", "\[RuleDelayed]", " ", 
      RowBox[{"-", "a1"}]}], ",", 
     RowBox[{"\[CapitalXi]2", "\[RuleDelayed]", " ", 
      RowBox[{"\[Xi]1", "^", 
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}]}]}], ",", 
     RowBox[{"S3", "\[RuleDelayed]", "\[Sigma]3"}], ",", 
     RowBox[{"A3", "\[RuleDelayed]", " ", "a3"}], ",", 
     RowBox[{"\[CapitalXi]3", "\[RuleDelayed]", " ", "\[Xi]3"}]}], 
    "}"}]}]}]}], "Input",
 CellChangeTimes->{{3.7884629466554317`*^9, 3.788462952363064*^9}, {
   3.7884633805173893`*^9, 3.788463382527944*^9}, {3.7884636041258163`*^9, 
   3.788463743147869*^9}, {3.7884642037696533`*^9, 3.788464217917207*^9}, 
   3.788464281329164*^9, {3.788492342194478*^9, 3.7884923591607037`*^9}, {
   3.7884923944752693`*^9, 3.788492552138906*^9}, {3.788493039250778*^9, 
   3.78849304225624*^9}, {3.788622667927204*^9, 3.788622713433173*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"58d3ea80-1a6d-4f69-86a7-722f4b4145fa"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Tau", "[", "t", "]"}], "//", "r1"}], ")"}], "/", 
       RowBox[{"Tau", "[", "t", "]"}]}], "+", 
      RowBox[{
       RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "4"}]}], "]"}]}], "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"X1", "[", "t", "]"}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "4"}]}], ")"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.788463764908175*^9, 3.78846376504491*^9}, {
   3.7884640355694933`*^9, 3.788464062879333*^9}, {3.788465128685841*^9, 
   3.788465129825321*^9}, {3.788622736717436*^9, 3.788622738117248*^9}, 
   3.788622786940427*^9, {3.788622841521282*^9, 3.7886228855114202`*^9}, {
   3.788623118270883*^9, 3.788623122507998*^9}, {3.7886243219358883`*^9, 
   3.7886243227257643`*^9}, 3.7886246645236*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"a27be0fa-8f83-4b16-8cb0-832739f3caa4"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1],
          Editable->False], "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]2", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 9, 1],
          Editable->False]}],
        SeriesData[$CellContext`\[Xi]2, 0, {
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1],
        Editable->False], ")"}], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "9"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 9, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {
         SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     Editable->False], ")"}], "-", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"6", " ", "a3"}]], " ", 
    SuperscriptBox["t", 
     RowBox[{"6", " ", "\[Sigma]3"}]], " ", 
    SuperscriptBox["\[Xi]3", "6"], " ", 
    RowBox[{"c1", "[", 
     RowBox[{"0", ",", "0", ",", "0", ",", "3"}], "]"}], " ", 
    SuperscriptBox["\[Epsilon]", "3"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "4"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 0, 4, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
    SeriesData[$CellContext`\[Xi]1, 0, {
      SeriesData[$CellContext`\[Xi]2, 0, {
        SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     0, 0, -E^(6 $CellContext`a3) $CellContext`t^(
      6 $CellContext`\[Sigma]3) $CellContext`\[Xi]3^6 $CellContext`c1[
     0, 0, 0, 3]}, 0, 4, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.788463840228684*^9, {3.788464046792428*^9, 3.788464070237006*^9}, 
   3.7884651400522633`*^9, 3.788622746140574*^9, 3.788622821117867*^9, {
   3.7886228591665277`*^9, 3.788622897796953*^9}, {3.788624652074926*^9, 
   3.788624679217093*^9}},
 CellLabel->"Out[91]=",ExpressionUUID->"9e98e367-6bb5-4ee0-8f7b-9463234bd5f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"Log", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Tau", "[", "t", "]"}], "//", "r13"}], "//", "r2"}], "//", 
         "r1"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"Tau", "[", "t", "]"}], ")"}], 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Tau", "[", "t", "]"}], "//", "r1"}], ")"}]}], ")"}]}], 
      "+", 
      RowBox[{
       RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "]"}]}], "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"X2", "[", "t", "]"}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], ")"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.788623092544982*^9, 3.788623136731995*^9}, {
  3.788623529272955*^9, 3.788623531994882*^9}, {3.7886235897612762`*^9, 
  3.7886236049084997`*^9}, {3.788624734297077*^9, 3.788624735140465*^9}, {
  3.7886248208528*^9, 3.78862482634797*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"f4c32078-41a9-4fc5-8f5c-ca39d5c8fa1c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1],
          Editable->False], "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]2", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 9, 1],
          Editable->False]}],
        SeriesData[$CellContext`\[Xi]2, 0, {
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1],
        Editable->False], ")"}], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "9"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 9, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {
         SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     Editable->False], ")"}], "+", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "a1"}], "-", "a3"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{
       RowBox[{"-", "\[Sigma]1"}], "-", "\[Sigma]3"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "+", "a2", "+", 
          RowBox[{"2", " ", "a3"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]1", "+", "\[Sigma]2", "+", 
          RowBox[{"2", " ", "\[Sigma]3"}]}]], " ", "\[Xi]1", " ", "\[Xi]2", 
        " ", 
        SuperscriptBox["\[Xi]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
         "2"]}], "+", 
       RowBox[{"2", " ", "t", " ", 
        SuperscriptBox["\[Sigma]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]}], ")"}], 
     " ", 
     SuperscriptBox["\[Epsilon]", "2"]}], 
    RowBox[{"2", " ", "\[Xi]1", " ", "\[Xi]3", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], "2"],
      " ", 
     SuperscriptBox["\[Sigma]3", "2"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], "2"],
      " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "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, {
        SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     0, Rational[1, 2] 
    E^(-$CellContext`a1 - $CellContext`a3) $CellContext`t^(-$CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]3) $CellContext`\[Xi]1^(-1) $CellContext`\
\[Xi]3^(-1) (-1 + $CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) \
$CellContext`\[Sigma]3^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]3)^(-2) ($CellContext`\[Sigma]2 + $CellContext`\[Sigma]3)^(-2) (
     E^($CellContext`a1 + $CellContext`a2 + 
        2 $CellContext`a3) $CellContext`t^($CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2 + 
        2 $CellContext`\[Sigma]3) $CellContext`\[Xi]1 $CellContext`\[Xi]2 \
$CellContext`\[Xi]3^2 (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]2)^2 (-1 + $CellContext`\[Sigma]1 + \
$CellContext`\[Sigma]3)^2 + 
     2 $CellContext`t $CellContext`\[Sigma]3^2 ($CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^2)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{
  3.788623523356226*^9, {3.788623587984372*^9, 3.788623617905188*^9}, 
   3.788624750371522*^9, 3.788624841358687*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"1f828c27-cd67-47a9-87a4-775a5468dd5e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"Log", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Tau", "[", "t", "]"}], "//", "r13"}], "//", "r2"}], ")"}], 
      "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Tau", "[", "t", "]"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"Tau", "[", "t", "]"}], "//", "r1"}], ")"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "]"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.7886236667533293`*^9, 3.7886236682559233`*^9}, {
   3.7886240421709757`*^9, 3.78862404247729*^9}, 3.788624098451776*^9, 
   3.788624339263379*^9, 3.788629245425283*^9},
 CellLabel->
  "In[169]:=",ExpressionUUID->"13053cf6-8fae-474c-b575-68a79cea4926"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", "a2"}]], " ", 
     SuperscriptBox["t", 
      RowBox[{"-", "\[Sigma]2"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", "a1"], " ", 
         SuperscriptBox["t", "\[Sigma]1"], " ", "\[Xi]1"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"-", "a1"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"1", "-", "\[Sigma]1"}]]}], 
        RowBox[{"\[Xi]1", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
          "2"]}]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"2", " ", "a2"}], "-", "a3"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{
           RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}]], " ", 
         SuperscriptBox["\[Xi]2", "2"]}], 
        RowBox[{"\[Xi]3", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ")"}], 
     " ", "\[Epsilon]"}], "\[Xi]2"], "+", 
   RowBox[{
    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[{"-", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{"a1", "+", "a2"}], ")"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], 
           ")"}]}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "4"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"2", " ", "a2"}], "-", 
          RowBox[{"2", " ", "a3"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}]], " ", "\[Xi]1"}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]3"}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", 
          RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], ")"}]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], 
         ")"}]}]]}], ")"}], " ", 
    SuperscriptBox["\[Epsilon]", "2"]}], "+", 
   InterpretationBox[
    SuperscriptBox[
     RowBox[{"O", "[", "\[Epsilon]", "]"}], "3"],
    SeriesData[$CellContext`\[Epsilon], 0, {}, 1, 3, 1],
    Editable->False]}],
  SeriesData[$CellContext`\[Epsilon], 0, {
   E^(-$CellContext`a2) $CellContext`t^(-$CellContext`\[Sigma]2) \
$CellContext`\[Xi]2^(-1) (
     E^$CellContext`a1 $CellContext`t^$CellContext`\[Sigma]1 $CellContext`\
\[Xi]1 ($CellContext`\[Sigma]1 - $CellContext`\[Sigma]2)^(-2) + 
     E^(-$CellContext`a1) $CellContext`t^(
        1 - $CellContext`\[Sigma]1) $CellContext`\[Xi]1^(-1) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) - 
     E^(2 $CellContext`a2 - $CellContext`a3) $CellContext`t^(
       2 $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3) \
$CellContext`\[Xi]2^2 $CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-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 + $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)^(-4) + 
    Rational[1, 2] 
     E^(2 $CellContext`a2 - 2 $CellContext`a3) $CellContext`t^(
       2 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
$CellContext`\[Xi]2^2 $CellContext`\[Xi]3^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-4) + 
    E^($CellContext`a1 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]3) $CellContext`\[Xi]1 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]3)^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) + 
    E^(-$CellContext`a1 - $CellContext`a3) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]3) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]3^(-1) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) (-1 + $CellContext`\[Sigma]1 + 
      2 $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)/(-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]3)}, 1, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.788623658399848*^9, 3.788623681385748*^9}, 
   3.78862408578589*^9, 3.788624699815353*^9, 3.788629260904294*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"9e6cd2c8-f334-4cd5-9ba6-d81eddf3f75b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"X2", "[", "t", "]"}], "+", 
     RowBox[{
      RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "//", "Normal"}], 
   ")"}], "+", 
  RowBox[{
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}]], "Input",
 CellChangeTimes->{{3.7884638983169317`*^9, 3.788463961012343*^9}, 
   3.788465199336973*^9, {3.788465242732292*^9, 3.7884652592229347`*^9}, 
   3.788622905728548*^9, {3.788623650747252*^9, 3.78862365222261*^9}, {
   3.788624100398672*^9, 3.7886241340005627`*^9}, 3.788629216308961*^9},
 CellLabel->
  "In[168]:=",ExpressionUUID->"d6a7ee7d-7bc5-4565-b407-dd90fcd29fe2"],

Cell[BoxData[
 InterpretationBox[
  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"}]]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a2", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}]], " ", "\[Xi]2"}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ")"}], 
    " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "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"}]}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "4"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"a2", "-", "a3"}], ")"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}]], " ", "\[Xi]1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], ")"}]}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]3"}]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]1", "-", 
          RowBox[{"2", " ", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}]], 
      "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a2", "+", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}]], " ", "\[Xi]2", " ", 
        "\[Xi]3"}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "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) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) - 
    E^($CellContext`a2 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]2 - $CellContext`\[Sigma]3) $CellContext`\[Xi]2 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2), 
    Rational[-1, 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)^(-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) + 
    Rational[1, 2] 
     E^(2 ($CellContext`a2 - $CellContext`a3)) $CellContext`t^(
       2 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
$CellContext`\[Xi]2^2 $CellContext`\[Xi]3^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-4) - 
    E^($CellContext`a1 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]3) $CellContext`\[Xi]1 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]3)^(-1) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) (-$CellContext`\[Sigma]1 + 
     2 $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3) - 
    E^(-$CellContext`a1 - $CellContext`a3) $CellContext`t^(
      1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]3) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]3^(-1) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]3)^(-1) (1 - $CellContext`\[Sigma]1 - 
     2 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]3) + 
    Rational[-1, 2] 
     E^($CellContext`a2 + $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]2 + $CellContext`\[Sigma]3) $CellContext`\[Xi]2 $CellContext`\[Xi]3 \
$CellContext`\[Sigma]3^(-2) ($CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^(-2)}, 1, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.788463913538548*^9, 3.788463963150745*^9}, 
   3.7884652036617002`*^9, {3.788465245701598*^9, 3.7884652622019*^9}, 
   3.7886229081675167`*^9, 3.788623660612013*^9, {3.788624103903019*^9, 
   3.788624136524733*^9}, 3.788629219371258*^9},
 CellLabel->
  "Out[168]=",ExpressionUUID->"dcdc10bb-9a2b-4619-bf8f-76fb42944eb4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"++", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"a1", "-", "a3"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}]], " ", "\[Xi]1"}], 
      RowBox[{"\[Xi]3", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ")"}], 
   "-", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"+", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"a1", "-", "a3"}]], " ", 
         SuperscriptBox["t", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}]], " ", "\[Xi]1", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Sigma]1"}], "+", 
           RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], ")"}]}], 
        RowBox[{"\[Xi]3", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}]}], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"a2", "+", "a3"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}]], " ", "\[Xi]2", " ", 
       "\[Xi]3"}], 
      RowBox[{"2", " ", 
       SuperscriptBox["\[Sigma]3", "2"], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], ")"}]}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.788623765496786*^9, 3.7886237741357803`*^9}, {
  3.788623927114655*^9, 3.788623955232915*^9}, {3.788624006934009*^9, 
  3.788624009575416*^9}},ExpressionUUID->"8dffb17d-23f8-4709-9c60-\
c0498bb8acba"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"-", "a3"}]], " ", 
   SuperscriptBox["t", 
    RowBox[{"-", "\[Sigma]3"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"a2", "+", 
        RowBox[{"2", " ", "a3"}]}]], " ", 
      SuperscriptBox["t", 
       RowBox[{"\[Sigma]2", "+", 
        RowBox[{"2", " ", "\[Sigma]3"}]}]], " ", "\[Xi]2", " ", 
      SuperscriptBox["\[Xi]3", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["\[ExponentialE]", "a1"], " ", 
      SuperscriptBox["t", "\[Sigma]1"], " ", "\[Xi]1", " ", 
      SuperscriptBox["\[Sigma]3", "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]}], ")"}]}], 
  RowBox[{"2", " ", "\[Xi]3", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
   SuperscriptBox["\[Sigma]3", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.788623770715787*^9, 3.788623774656445*^9}},
 CellLabel->"Out[69]=",ExpressionUUID->"f5c72d24-aec8-4ac2-9a91-684a9b8481d1"]
}, Open  ]],

Cell[BoxData["r1"], "Input",
 CellChangeTimes->{{3.7886243530440273`*^9, 
  3.7886243532663307`*^9}},ExpressionUUID->"8766835c-0554-43f0-a7b4-\
6f2fe812aede"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], "//", "r13"}], "//", 
  "r2"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQAWIQvclS9t9ryzeOQstdON4AaYcSDVEQvTdEzAtE2+R+
9wfRFSZJMSBa5ahyAog+mOKVCKIZz5dlgGi7vDdVIDr6ruoMEL2mVHMbiNbo
S7wGonMMAh+CaKep6x7+BNIPPB49AdHn/k0T+QWkTb50S4Nob+ZJ6iCa6VaW
JoheFvzbEkT/e2fjAKIP/ltQDqLXPI2qANH3PmQcAdGRohNPgegArTWXQPQf
KY0bIDoqQvgriP6xqeI3iH5w9GCBpdUbx29mxoUgumOvXTmI3t+zBUzvucs6
DUSbXvg1HUTPDp/2F0S7fdjBYAWk38Q0KYPooAmnwDQAXdypgw==
  "],
 CellLabel->"In[80]:=",ExpressionUUID->"34080d51-055e-4825-87fa-fc75a08075de"],

Cell[BoxData[
 RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}]], "Output",
 CellChangeTimes->{{3.7884947956447163`*^9, 3.788494812195981*^9}, {
   3.788622723621097*^9, 3.78862273001055*^9}, {3.788622779519701*^9, 
   3.7886227823463593`*^9}, {3.788623025626047*^9, 3.788623040321781*^9}, {
   3.788623854298444*^9, 3.78862387839858*^9}, 3.7886241591214323`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"1f6f5624-f431-4542-9b48-1f490e3871da"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ",", 
    RowBox[{"(", 
     RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], ",", 
    RowBox[{"(", 
     RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], ",", 
    RowBox[{"2", " ", "\[Sigma]3"}]}], "}"}], "//", "r12"}]], "Input",
 CellChangeTimes->{{3.788624179853417*^9, 3.788624217913261*^9}, {
   3.788624282063409*^9, 3.78862429687603*^9}, {3.788624777658543*^9, 
   3.788624816555016*^9}, {3.788624875687723*^9, 3.788624915035499*^9}, 
   3.788625196500368*^9, {3.788625240862196*^9, 3.788625295881435*^9}, {
   3.788625342259117*^9, 3.788625342408245*^9}, {3.7886260908293247`*^9, 
   3.7886261109687634`*^9}, {3.788626252131075*^9, 3.788626349364094*^9}, 
   3.7886264234512568`*^9, {3.788626454306925*^9, 3.788626562832819*^9}, 
   3.788626664685157*^9, {3.78862775392387*^9, 3.788627754209014*^9}, 
   3.788627791134783*^9, 3.788629188171342*^9, {3.7886298664132557`*^9, 
   3.7886298666360903`*^9}},
 CellLabel->
  "In[170]:=",ExpressionUUID->"46004df0-4858-4c02-bcb0-fe149cfe5d68"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]2"}], ",", 
   RowBox[{
    FractionBox["2", "5"], "-", "\[Sigma]1", "+", "\[Sigma]2"}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "5"]}], "+", "\[Sigma]1", "-", "\[Sigma]3"}], ",", 
   RowBox[{"2", " ", "\[Sigma]3"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.788624178372107*^9, 3.788624218528419*^9}, {
   3.788624282620982*^9, 3.788624297614498*^9}, {3.788624783875106*^9, 
   3.7886248171084137`*^9}, {3.788624886110072*^9, 3.788624915463263*^9}, 
   3.788625196972921*^9, {3.7886252416004972`*^9, 3.788625296240119*^9}, 
   3.788625342752831*^9, {3.788626091935833*^9, 3.788626111806176*^9}, {
   3.78862624682655*^9, 3.788626349906354*^9}, 3.788626424493032*^9, {
   3.788626454989456*^9, 3.7886264686631813`*^9}, {3.78862651240728*^9, 
   3.7886265640516663`*^9}, 3.7886266653602333`*^9, 3.788627754809657*^9, 
   3.7886277917199306`*^9, 3.788629188731214*^9, 3.7886298670014877`*^9},
 CellLabel->
  "Out[170]=",ExpressionUUID->"0bee5f2f-7628-4e65-b7c0-8645a29c03a5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "-", 
     RowBox[{"1", "/", "2"}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "b"}], "-", 
     RowBox[{"10", "/", "2"}]}]}], ",", "a"}], "]"}]], "Input",
 CellChangeTimes->{{3.788465628287023*^9, 3.7884656586133833`*^9}, {
  3.7884656895812387`*^9, 3.788465731116356*^9}, {3.7884657895683603`*^9, 
  3.788465793697301*^9}, {3.788492379873426*^9, 3.7884923836542377`*^9}, {
  3.788492463938768*^9, 3.788492468809739*^9}, {3.7884925019300003`*^9, 
  3.788492504151719*^9}, {3.78862250668876*^9, 3.788622544273641*^9}, {
  3.788622656829584*^9, 3.7886226619166822`*^9}, {3.788622706052557*^9, 
  3.788622707166914*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"ec12fa35-c204-47f5-ba86-79aaaff98130"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"a", "\[Rule]", 
    RowBox[{
     FractionBox["1", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "9"}], "-", 
       RowBox[{"2", " ", "b"}]}], ")"}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{
  3.788465659219617*^9, {3.788465695464138*^9, 3.788465731803317*^9}, 
   3.788465794715888*^9, 3.7884923847957172`*^9, 3.788492469382605*^9, 
   3.788492504710047*^9, {3.788622518267056*^9, 3.788622545281209*^9}, 
   3.7886226623846197`*^9, 3.788622708215085*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"171d0244-0584-4235-8589-d6915948a5d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", "b", ",", "c"}], "}"}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}], ".", 
    RowBox[{"{", 
     RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], 
   RowBox[{"{", 
    RowBox[{"1", ",", "1", ",", "0"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.788465757462195*^9, 3.788465774920355*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"fc6999e0-8140-4e81-be53-1a66c081579f"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "b"}], ",", 
   RowBox[{"-", "a"}], ",", "c"}], "}"}]], "Output",
 CellChangeTimes->{3.788465775542713*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"c88f7a13-88e8-4064-9644-4edb7ee651a4"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.788492103193993*^9, 
  3.788492104333439*^9}},ExpressionUUID->"bd654334-fa7b-44b5-ba6d-\
3ffb912a6df9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"X1", "[", "t", "]"}], "+", 
  RowBox[{
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X2", "[", "t", "]"}], "+", 
  RowBox[{
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"X3", "[", "t", "]"}], "+", 
  RowBox[{
   RowBox[{"O", "[", "\[Epsilon]", "]"}], "^", "3"}]}]}], "Input",
 CellChangeTimes->{{3.794206656640604*^9, 3.794206683480124*^9}, {
  3.794207396352079*^9, 3.7942073984508142`*^9}},
 CellLabel->
  "In[724]:=",ExpressionUUID->"43dcf5e7-e166-4ac7-8a92-7f6baf105f2c"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1],
          Editable->False], "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]2", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 9, 1],
          Editable->False]}],
        SeriesData[$CellContext`\[Xi]2, 0, {
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1],
        Editable->False], ")"}], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "9"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 9, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {
         SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     Editable->False], ")"}], "+", 
   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"}]]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"]}]]}], ")"}], " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"a1", "-", "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"}]}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "4"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]3"}]]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
         "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}]], " ", "\[Xi]1"}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}], "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, {
        SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 
     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) + 
    E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2^(-1) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2), 
    Rational[1, 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)^(-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) + 
    E^(-$CellContext`a1 - $CellContext`a3) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]3) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]3)^(-2) - 
    E^($CellContext`a1 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]3) $CellContext`\[Xi]1 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]3)^(-2) (-$CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^(-2)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.794206671367518*^9, 3.794206687663188*^9}, 
   3.794207455993142*^9},
 CellLabel->
  "Out[724]=",ExpressionUUID->"bd2e0511-871f-449d-a0a8-201b96c4ce7b"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1],
          Editable->False], "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]2", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 9, 1],
          Editable->False]}],
        SeriesData[$CellContext`\[Xi]2, 0, {
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1],
        Editable->False], ")"}], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "9"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 9, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {
         SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     Editable->False], ")"}], "+", 
   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"}]]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a2", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}]], " ", "\[Xi]2"}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]]}], ")"}], 
    " ", "\[Epsilon]"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"a1", "-", "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"}]}]]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]1", "2"], " ", 
        SuperscriptBox["\[Xi]2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "4"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"a2", "-", "a3"}], ")"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}]], " ", "\[Xi]1", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "\[Sigma]1"}], "+", 
          RowBox[{"2", " ", "\[Sigma]2"}], "-", "\[Sigma]3"}], ")"}]}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]3"}]], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", "\[Sigma]1", "-", 
          RowBox[{"2", " ", "\[Sigma]2"}], "+", "\[Sigma]3"}], ")"}]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}]}]], 
      "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a2", "+", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}]], " ", "\[Xi]2", " ", 
        "\[Xi]3"}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "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, {
        SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 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) + 
    E^(-$CellContext`a1 - $CellContext`a2) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]2) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]2^(-1) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) - 
    E^($CellContext`a2 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]2 - $CellContext`\[Sigma]3) $CellContext`\[Xi]2 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2), 
    Rational[-1, 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)^(-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) + 
    Rational[1, 2] 
     E^(2 ($CellContext`a2 - $CellContext`a3)) $CellContext`t^(
       2 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
$CellContext`\[Xi]2^2 $CellContext`\[Xi]3^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-4) - 
    E^($CellContext`a1 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]3) $CellContext`\[Xi]1 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]3)^(-1) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) (-$CellContext`\[Sigma]1 + 
     2 $CellContext`\[Sigma]2 - $CellContext`\[Sigma]3) - 
    E^(-$CellContext`a1 - $CellContext`a3) $CellContext`t^(
      1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]3) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]3^(-1) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) (-1 + $CellContext`\[Sigma]1 + $CellContext`\
\[Sigma]3)^(-1) (1 - $CellContext`\[Sigma]1 - 
     2 $CellContext`\[Sigma]2 + $CellContext`\[Sigma]3) + 
    Rational[-1, 2] 
     E^($CellContext`a2 + $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]2 + $CellContext`\[Sigma]3) $CellContext`\[Xi]2 $CellContext`\[Xi]3 \
$CellContext`\[Sigma]3^(-2) ($CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^(-2)}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.794206671367518*^9, 3.794206687663188*^9}, 
   3.794207459895074*^9},
 CellLabel->
  "Out[725]=",ExpressionUUID->"bc637718-58fa-44f0-aade-221bcfd0eb40"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{
   RowBox[{"(", 
    InterpretationBox[
     RowBox[{
      RowBox[{"(", 
       InterpretationBox[
        RowBox[{
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]3", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1],
          Editable->False], "+", 
         InterpretationBox[
          SuperscriptBox[
           RowBox[{"O", "[", "\[Xi]2", "]"}], "9"],
          SeriesData[$CellContext`\[Xi]2, 0, {}, 0, 9, 1],
          Editable->False]}],
        SeriesData[$CellContext`\[Xi]2, 0, {
          SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1],
        Editable->False], ")"}], "+", 
      InterpretationBox[
       SuperscriptBox[
        RowBox[{"O", "[", "\[Xi]1", "]"}], "9"],
       SeriesData[$CellContext`\[Xi]1, 0, {}, 0, 9, 1],
       Editable->False]}],
     SeriesData[$CellContext`\[Xi]1, 0, {
       SeriesData[$CellContext`\[Xi]2, 0, {
         SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     Editable->False], ")"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a2", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}]], " ", "\[Xi]2"}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", "\[Sigma]3"}]], " ", 
        SuperscriptBox["\[Xi]3", "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Sigma]3", "2"]}]]}], ")"}], " ", "\[Epsilon]"}], 
   "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"a1", "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}]], " ", "\[Xi]1"}], 
       RowBox[{"\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]2"}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]1", "-", "\[Sigma]3"}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"a2", "-", "a3"}], ")"}]}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}]}]], " ", 
        SuperscriptBox["\[Xi]2", "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["\[Xi]3", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "4"]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "a1"}], "-", "a3"}]], " ", 
        SuperscriptBox["t", 
         RowBox[{"1", "-", "\[Sigma]1", "-", "\[Sigma]3"}]]}], 
       RowBox[{"\[Xi]1", " ", "\[Xi]3", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]2"}], ")"}], 
         "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "\[Sigma]1", "+", "\[Sigma]3"}], ")"}], 
         "2"]}]], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"a2", "+", "a3"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}]], " ", "\[Xi]2", " ", 
       "\[Xi]3", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["4", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "-", "\[Sigma]3"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], "+", 
         
         FractionBox["1", 
          RowBox[{"2", " ", 
           SuperscriptBox["\[Sigma]3", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Sigma]2", "+", "\[Sigma]3"}], ")"}], "2"]}]]}], 
        ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"4", " ", "a3"}]], " ", 
       SuperscriptBox["t", 
        RowBox[{"4", " ", "\[Sigma]3"}]], " ", 
       SuperscriptBox["\[Xi]3", "4"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          RowBox[{"8", " ", 
           SuperscriptBox["\[Sigma]3", "4"]}]], "+", 
         RowBox[{"c2", "[", 
          RowBox[{"0", ",", "0", ",", "0", ",", "2"}], "]"}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[Sigma]2", "2"]}], "-", 
            RowBox[{"6", " ", "\[Sigma]2", " ", "\[Sigma]3"}], "-", 
            RowBox[{"9", " ", 
             SuperscriptBox["\[Sigma]3", "2"]}]}], ")"}], " ", 
          RowBox[{"c2", "[", 
           RowBox[{"0", ",", "0", ",", "1", ",", "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, {
        SeriesData[$CellContext`\[Xi]3, 0, {}, 9, 9, 1]}, 0, 9, 1]}, 0, 9, 1],
     E^($CellContext`a2 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]2 - $CellContext`\[Sigma]3) $CellContext`\[Xi]2 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-2) + 
    Rational[-1, 2] 
     E^(2 $CellContext`a3) $CellContext`t^(
       2 $CellContext`\[Sigma]3) $CellContext`\[Xi]3^2 \
$CellContext`\[Sigma]3^(-2), 
    E^($CellContext`a1 - $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]1 - $CellContext`\[Sigma]3) $CellContext`\[Xi]1 \
$CellContext`\[Xi]3^(-1) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]2)^(-2) ($CellContext`\[Sigma]1 - \
$CellContext`\[Sigma]3)^(-2) + 
    Rational[-1, 2] 
     E^(2 ($CellContext`a2 - $CellContext`a3)) $CellContext`t^(
       2 ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)) \
$CellContext`\[Xi]2^2 $CellContext`\[Xi]3^(-2) ($CellContext`\[Sigma]2 - \
$CellContext`\[Sigma]3)^(-4) + 
    E^(-$CellContext`a1 - $CellContext`a3) $CellContext`t^(
       1 - $CellContext`\[Sigma]1 - $CellContext`\[Sigma]3) \
$CellContext`\[Xi]1^(-1) $CellContext`\[Xi]3^(-1) (-1 + \
$CellContext`\[Sigma]1 + $CellContext`\[Sigma]2)^(-2) (-1 + $CellContext`\
\[Sigma]1 + $CellContext`\[Sigma]3)^(-2) + 
    E^($CellContext`a2 + $CellContext`a3) $CellContext`t^($CellContext`\
\[Sigma]2 + $CellContext`\[Sigma]3) $CellContext`\[Xi]2 $CellContext`\[Xi]3 \
((-4) ($CellContext`\[Sigma]2 - $CellContext`\[Sigma]3)^(-2) ($CellContext`\
\[Sigma]2 + $CellContext`\[Sigma]3)^(-2) + 
      Rational[1, 
         2] $CellContext`\[Sigma]3^(-2) ($CellContext`\[Sigma]2 + \
$CellContext`\[Sigma]3)^(-2)) + 
    E^(4 $CellContext`a3) $CellContext`t^(
       4 $CellContext`\[Sigma]3) $CellContext`\[Xi]3^4 (
      Rational[1, 8] $CellContext`\[Sigma]3^(-4) + $CellContext`c2[
       0, 0, 0, 2] - (-$CellContext`\[Sigma]2^2 - 
       6 $CellContext`\[Sigma]2 $CellContext`\[Sigma]3 - 
       9 $CellContext`\[Sigma]3^2) $CellContext`c2[0, 0, 1, 2])}, 0, 3, 1],
  Editable->False]], "Output",
 CellChangeTimes->{{3.794206671367518*^9, 3.794206687663188*^9}, 
   3.7942074639035683`*^9},
 CellLabel->
  "Out[726]=",ExpressionUUID->"a8cbe5dc-669d-4dc0-96ba-b424d021fe39"]
}, Open  ]]
},
WindowSize->{1920, 1037},
WindowMargins->{{0, Automatic}, {Automatic, 18}},
Magnification:>1.25 Inherited,
FrontEndVersion->"12.0 for Linux x86 (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 96501, 2462, 2332, "Input",ExpressionUUID->"8dc3755c-8db1-4161-8dfd-f95bdceb67aa"],
Cell[97062, 2484, 520, 13, 39, "Input",ExpressionUUID->"50ce8ef6-9c89-4d4e-a07d-0d024edd2e9e"],
Cell[97585, 2499, 8802, 252, 359, "Input",ExpressionUUID->"c29c64e5-bbc3-4a71-ad48-b7eed81353e3"],
Cell[106390, 2753, 6504, 186, 185, "Input",ExpressionUUID->"c4d2a61c-f6ea-4960-ba17-704ac9d89f52"],
Cell[CellGroupData[{
Cell[112919, 2943, 963, 24, 39, "Input",ExpressionUUID->"3fbb3427-41bf-4111-9050-cb05d00003c8"],
Cell[113885, 2969, 449, 10, 28, "Message",ExpressionUUID->"ac208b98-024f-4e74-9ef2-252237ddfe44"]
}, Open  ]],
Cell[114349, 2982, 829, 24, 39, "Input",ExpressionUUID->"d1a76ee1-9f7b-4aff-8b74-854b86ff0ca2"],
Cell[115181, 3008, 1009, 28, 39, "Input",ExpressionUUID->"eef84576-c627-4435-a679-482dd78c4f6e"],
Cell[116193, 3038, 473, 7, 39, "Input",ExpressionUUID->"fb1b4b9a-36c8-4d4f-9519-68bb33900e35"],
Cell[CellGroupData[{
Cell[116691, 3049, 519, 9, 39, "Input",ExpressionUUID->"302915dc-b954-49dd-8383-bfc6e4764e30"],
Cell[117213, 3060, 5375, 151, 195, "Output",ExpressionUUID->"61819784-1e4f-4d90-96e6-ef50ad49dfe2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[122625, 3216, 308, 5, 39, "Input",ExpressionUUID->"d44ee183-676a-4d45-9407-f3763235344b"],
Cell[122936, 3223, 1306, 37, 80, "Output",ExpressionUUID->"1732799e-9f03-4d45-ac16-02148e49a59f"]
}, Open  ]],
Cell[124257, 3263, 350, 9, 39, "Input",ExpressionUUID->"b51ad8a6-54ca-4bc2-b01a-f755a09500af"],
Cell[CellGroupData[{
Cell[124632, 3276, 993, 26, 39, "Input",ExpressionUUID->"b4e83150-5f23-4422-9e2e-4d7b4ea550bb"],
Cell[125628, 3304, 1772, 54, 48, "Output",ExpressionUUID->"f3a36017-81eb-4eb3-9c4d-e1a6fe06be59"]
}, Open  ]],
Cell[127415, 3361, 7677, 188, 272, "Input",ExpressionUUID->"58d3ea80-1a6d-4f69-86a7-722f4b4145fa"],
Cell[CellGroupData[{
Cell[135117, 3553, 1025, 25, 39, "Input",ExpressionUUID->"a27be0fa-8f83-4b16-8cb0-832739f3caa4"],
Cell[136145, 3580, 2330, 58, 48, "Output",ExpressionUUID->"9e98e367-6bb5-4ee0-8f7b-9463234bd5f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138512, 3643, 1150, 34, 39, "Input",ExpressionUUID->"f4c32078-41a9-4fc5-8f5c-ca39d5c8fa1c"],
Cell[139665, 3679, 4321, 111, 75, "Output",ExpressionUUID->"1f828c27-cd67-47a9-87a4-775a5468dd5e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144023, 3795, 849, 25, 39, "Input",ExpressionUUID->"13053cf6-8fae-474c-b575-68a79cea4926"],
Cell[144875, 3822, 7377, 188, 147, "Output",ExpressionUUID->"9e6cd2c8-f334-4cd5-9ba6-d81eddf3f75b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[152289, 4015, 661, 16, 39, "Input",ExpressionUUID->"d6a7ee7d-7bc5-4565-b407-dd90fcd29fe2"],
Cell[152953, 4033, 8417, 210, 166, "Output",ExpressionUUID->"dcdc10bb-9a2b-4619-bf8f-76fb42944eb4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161407, 4248, 2067, 58, 74, "Input",ExpressionUUID->"8dffb17d-23f8-4709-9c60-c0498bb8acba"],
Cell[163477, 4308, 1560, 42, 75, "Output",ExpressionUUID->"f5c72d24-aec8-4ac2-9a91-684a9b8481d1"]
}, Open  ]],
Cell[165052, 4353, 158, 3, 39, "Input",ExpressionUUID->"8766835c-0554-43f0-a7b4-6f2fe812aede"],
Cell[CellGroupData[{
Cell[165235, 4360, 610, 13, 39, "Input",ExpressionUUID->"34080d51-055e-4825-87fa-fc75a08075de"],
Cell[165848, 4375, 433, 6, 44, "Output",ExpressionUUID->"1f6f5624-f431-4542-9b48-1f490e3871da"]
}, Open  ]],
Cell[CellGroupData[{
Cell[166318, 4386, 1100, 21, 39, "Input",ExpressionUUID->"46004df0-4858-4c02-bcb0-fe149cfe5d68"],
Cell[167421, 4409, 1079, 20, 63, "Output",ExpressionUUID->"0bee5f2f-7628-4e65-b7c0-8645a29c03a5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[168537, 4434, 778, 16, 39, "Input",ExpressionUUID->"ec12fa35-c204-47f5-ba86-79aaaff98130"],
Cell[169318, 4452, 620, 15, 63, "Output",ExpressionUUID->"171d0244-0584-4235-8589-d6915948a5d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[169975, 4472, 478, 14, 39, "Input",ExpressionUUID->"fc6999e0-8140-4e81-be53-1a66c081579f"],
Cell[170456, 4488, 246, 7, 44, "Output",ExpressionUUID->"c88f7a13-88e8-4064-9644-4edb7ee651a4"]
}, Open  ]],
Cell[170717, 4498, 152, 3, 39, "Input",ExpressionUUID->"bd654334-fa7b-44b5-ba6d-3ffb912a6df9"],
Cell[CellGroupData[{
Cell[170894, 4505, 621, 16, 98, "Input",ExpressionUUID->"43dcf5e7-e166-4ac7-8a92-7f6baf105f2c"],
Cell[171518, 4523, 6571, 170, 134, "Output",ExpressionUUID->"bd2e0511-871f-449d-a0a8-201b96c4ce7b"],
Cell[178092, 4695, 9461, 239, 166, "Output",ExpressionUUID->"bc637718-58fa-44f0-aade-221bcfd0eb40"],
Cell[187556, 4936, 7900, 203, 189, "Output",ExpressionUUID->"a8cbe5dc-669d-4dc0-96ba-b424d021fe39"]
}, Open  ]]
}
]
*)