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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[   1302595,      34583]
NotebookOptionsPosition[   1258202,      33900]
NotebookOutlinePosition[   1258580,      33916]
CellTagsIndexPosition[   1258537,      33913]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Pseudodifferential calculus on cyclic projective \
modules over the NC torus and computation of the argument of the trace at \
which it equals the index of the Dirac operator after taking a limit",
 FontSize->24]], "Section",
 CellChangeTimes->{{3.750179981772973*^9, 3.7501800053560934`*^9}, {
  3.7501803584046144`*^9, 3.750180359214616*^9}, {3.750181139562345*^9, 
  3.7501811405493636`*^9}, {3.7502572685708904`*^9, 
  3.750257286983944*^9}},ExpressionUUID->"9db82461-7aec-4634-8d05-\
7c1a310fed20"],

Cell["\<\
In each section, we summarize the computations and explain each step in \
detail. We make use of some of the code from the notebook titled \
\[OpenCurlyDoubleQuote]scalarncgshort2.nb\[CloseCurlyDoubleQuote] included as \
an ancillary file with Connes and Moscovici\[CloseCurlyQuote]s arXiv preprint \
titled \[OpenCurlyDoubleQuote]Modular Curvature for Noncommutative Two-Tori.\
\[CloseCurlyDoubleQuote]\
\>", "Text",
 CellChangeTimes->{{3.750179802818083*^9, 3.7501798141961503`*^9}, {
  3.7501798494933243`*^9, 3.7501798743034477`*^9}, {3.7501800440812793`*^9, 
  3.750180050500316*^9}, {3.7501802499063115`*^9, 3.750180254588334*^9}, {
  3.750180404315843*^9, 3.75018040718286*^9}, {3.7501804417081738`*^9, 
  3.7501805028795333`*^9}, {3.7501812440568867`*^9, 3.7501812455249057`*^9}, {
  3.750181329897303*^9, 
  3.750181362880477*^9}},ExpressionUUID->"16611ee0-c12e-4940-bcd9-\
1444b7154940"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Setting up the differential calculus",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.7501800597613645`*^9, 
  3.7501800902775183`*^9}},ExpressionUUID->"1b3eb759-469f-49db-93b9-\
a5908c79fad2"],

Cell["(associativity)", "Text",
 CellChangeTimes->{{3.75018011922066*^9, 
  3.7501801869519916`*^9}},ExpressionUUID->"ee62daac-674e-4816-89ec-\
3a147e17915d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"m", "[", "b___", "]"}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"m", "[", 
   RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.690049316492878*^9, 3.690049399982028*^9}, {
  3.6906628581348267`*^9, 3.6906628645308857`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"f0b11829-006d-4e31-b478-86d32ef65cbb"],

Cell["(additivity)", "Text",
 CellChangeTimes->{{3.75018011922066*^9, 
  3.7501802137481213`*^9}},ExpressionUUID->"07281f15-fa42-4e17-a884-\
9eee45220d0d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"b1_", "+", "b2_"}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{"a", ",", "b1", ",", "c"}], "]"}], "+", 
   RowBox[{"m", "[", 
    RowBox[{"a", ",", "b2", ",", "c"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6900493800876207`*^9, 3.69004942280956*^9}, {
  3.690662865639802*^9, 3.690662875254161*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"bd269bc5-733c-4bd3-b026-c34ecb317453"],

Cell["(o[i]-independent expressions are not operators)", "Text",
 CellChangeTimes->{{3.75018011922066*^9, 3.7501801869519916`*^9}, {
  3.7501802199871635`*^9, 3.7501802405132627`*^9}, {3.7501814007746673`*^9, 
  3.7501814143187246`*^9}},ExpressionUUID->"d6e8e06a-6fde-4d9a-8209-\
1762458c3c6d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{"x_", "?", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"FreeQ", "[", 
       RowBox[{"#", ",", 
        RowBox[{"o", "[", "_", "]"}]}], "]"}], "&"}], ")"}]}], "]"}], ":=", 
  "x"}]], "Input",
 CellChangeTimes->{{3.6900498078503113`*^9, 3.69004981214917*^9}, {
   3.690659261214715*^9, 3.690659277537323*^9}, 3.6906628901630898`*^9},
 CellLabel->"In[3]:=",ExpressionUUID->"23e592db-2bb3-4b98-ac95-aa150a564e41"],

Cell["(o[i]-independent expressions are not operators)", "Text",
 CellChangeTimes->{{3.750181419999751*^9, 
  3.75018145138892*^9}},ExpressionUUID->"eed95235-7b4f-4d02-bb3d-\
e08739e81836"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"x_", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", 
         RowBox[{"o", "[", "_", "]"}]}], "]"}], "&"}], ")"}]}], ",", "b___"}],
    "]"}], ":=", 
  RowBox[{"x", " ", 
   RowBox[{"m", "[", 
    RowBox[{"a", ",", "b"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.690659614376678*^9, 3.690659644509507*^9}, 
   3.690659857722563*^9, {3.6906628901779423`*^9, 3.6906628901797857`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"32ec6f9c-9706-49b0-8f59-a593c6ddf890"],

Cell["(factor out o[i]-independent factors)", "Text",
 CellChangeTimes->{{3.7501817447703733`*^9, 
  3.750181766112486*^9}},ExpressionUUID->"f5a42438-febf-4ffe-8f5f-\
0d3f4d843beb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{"a___", ",", 
    RowBox[{
     RowBox[{"x__", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", 
           RowBox[{"o", "[", "_", "]"}]}], "]"}], "&&", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", 
           SubscriptBox["\[Delta]", "1"]}], "]"}], "&&", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", 
           SubscriptBox["\[Delta]", "2"]}], "]"}]}], "&"}], ")"}]}], "y_"}], 
    ",", "b___"}], "]"}], ":=", 
  RowBox[{"x", " ", 
   RowBox[{"m", "[", 
    RowBox[{"a", ",", "y", ",", "b"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.690659819569788*^9, 3.6906598702848682`*^9}, {
   3.690662890190576*^9, 3.6906628901919727`*^9}, 3.7522665473519707`*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"5b5e261e-04dc-4df5-a9d6-8cfcb4e90b33"],

Cell["(multiply out powers of sums)", "Text",
 CellChangeTimes->{{3.750181773339513*^9, 
  3.7501817833045597`*^9}},ExpressionUUID->"d74d5da6-4fda-42ea-a7d3-\
8df52bfd9130"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"b_Plus", "^", 
     RowBox[{"n_Integer", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"#", ">", "1"}], "&"}], ")"}]}]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"m", "[", 
   RowBox[{"a", ",", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{"b", ",", 
       RowBox[{"{", "n", "}"}]}], "]"}], "/.", 
     RowBox[{"List", "\[Rule]", "Sequence"}]}], ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.690659959013577*^9, 3.690659998067705*^9}, {
  3.6906628902016497`*^9, 3.690662890203004*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"3ef3f123-b5b4-4ce6-8c3d-5495f8a3ae1a"],

Cell["We define differentiation inside the products m", "Text",
 CellChangeTimes->{{3.7501818049696555`*^9, 
  3.7501818271797705`*^9}},ExpressionUUID->"2d2b8ad2-6487-4b1b-b3eb-\
f416daeecbd7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"d\[Xi]1", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", 
     SubscriptBox["\[Xi]", "1"]], 
    RowBox[{"(", 
     RowBox[{"stuff", "/.", 
      RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", 
   RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input",
 CellChangeTimes->{{3.690660525029675*^9, 3.6906605301569777`*^9}, {
   3.690660765162014*^9, 3.690660767795146*^9}, 3.690660834037431*^9, {
   3.6906608695513363`*^9, 3.690660913802153*^9}, {3.6906628902127333`*^9, 
   3.690662890213933*^9}, {3.690735255301898*^9, 3.690735262626821*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"81b508fb-c52f-4830-bcbb-5f21a64fadc6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"d\[Xi]2", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", 
     SubscriptBox["\[Xi]", "2"]], 
    RowBox[{"(", 
     RowBox[{"stuff", "/.", 
      RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", 
   RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input",
 CellChangeTimes->{{3.690660927360271*^9, 3.6906609722233477`*^9}, {
  3.6906628902229147`*^9, 3.6906628902240343`*^9}, {3.690735268838758*^9, 
  3.6907352725060873`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"9e5402b5-3537-4c41-874f-91afab10419d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"du", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "u"], 
    RowBox[{"(", 
     RowBox[{"stuff", "/.", 
      RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", 
   RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input",
 CellChangeTimes->{{3.690661037841215*^9, 3.690661062550478*^9}, {
  3.690662890231594*^9, 3.690662890232614*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"af5d3ef6-e6c8-4388-9967-75e9ea257363"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dv", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "v"], 
    RowBox[{"(", 
     RowBox[{"stuff", "/.", 
      RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", 
   RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input",
 CellChangeTimes->{{3.690661064533081*^9, 3.690661071020049*^9}, {
  3.690661145006913*^9, 3.690661150377142*^9}, {3.690662890239046*^9, 
  3.690662890240041*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"7c0c06c5-1122-4b7a-a4cc-467f3e6eecb6"],

Cell["We define the product of two symbols up to order two", "Text",
 CellChangeTimes->{{3.7501818525598874`*^9, 
  3.7501818594769135`*^9}},ExpressionUUID->"8503b803-c09c-4a36-9b03-\
219df307e54f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"pso2", "[", 
   RowBox[{"\[Rho]1_", ",", "\[Rho]2_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{"\[Rho]1", ",", "\[Rho]2"}], "]"}], "+", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"d\[Xi]1", "[", "\[Rho]1", "]"}], ",", 
     RowBox[{"du", "[", "\[Rho]2", "]"}]}], "]"}], "+", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"d\[Xi]2", "[", "\[Rho]1", "]"}], ",", 
     RowBox[{"dv", "[", "\[Rho]2", "]"}]}], "]"}], "+", 
   RowBox[{
    RowBox[{"1", "/", "2"}], " ", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"d\[Xi]1", "[", "\[Rho]1", "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"du", "[", "\[Rho]2", "]"}], "]"}]}], "]"}]}], "+", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"d\[Xi]1", "[", 
      RowBox[{"d\[Xi]2", "[", "\[Rho]1", "]"}], "]"}], ",", 
     RowBox[{"du", "[", 
      RowBox[{"dv", "[", "\[Rho]2", "]"}], "]"}]}], "]"}], "+", 
   RowBox[{
    RowBox[{"1", "/", "2"}], " ", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]2", "[", 
       RowBox[{"d\[Xi]2", "[", "\[Rho]1", "]"}], "]"}], ",", 
      RowBox[{"dv", "[", 
       RowBox[{"dv", "[", "\[Rho]2", "]"}], "]"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6906615251216288`*^9, 3.6906615445950603`*^9}, {
  3.690661977693227*^9, 3.690661977746978*^9}, {3.6906620824292088`*^9, 
  3.6906621016274767`*^9}, {3.690662161841043*^9, 3.6906621816767483`*^9}, {
  3.690662565754023*^9, 3.6906626069074097`*^9}, {3.690662784344434*^9, 
  3.6906628108872137`*^9}, {3.690662992291349*^9, 3.690663042522573*^9}, {
  3.690663231979401*^9, 3.69066327718338*^9}, {3.69066335742696*^9, 
  3.6906633875874*^9}, {3.6906635283875513`*^9, 3.690663639742208*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"0abe854e-979f-49b1-a985-93941b6567b4"],

Cell["\<\
We introduce operator variables k and e that depend on u and v. We also \
introduce shorthand variables se=\[Sigma](e) and sse=\[CapitalDelta](e). We \
can take derivatives of k, e, and 1/k.\
\>", "Text",
 CellChangeTimes->{{3.7501819282302403`*^9, 3.7501820227516837`*^9}, {
  3.7621905199105234`*^9, 3.76219052538767*^9}, {3.762190563746705*^9, 
  3.762190650098008*^9}, {3.762190756460166*^9, 3.762190769628458*^9}, {
  3.7621908330644608`*^9, 3.762190835432431*^9}, {3.762191764998684*^9, 
  3.7621917722583094`*^9}, {3.762213277595293*^9, 
  3.7622132949799056`*^9}},ExpressionUUID->"50d52f89-2315-45e8-995e-\
4d987dd533a1"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"m", "[", 
   RowBox[{"k", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, {
  3.690669133485731*^9, 3.690669136542921*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"91622c65-b8ee-48e8-a5a9-6f123e04c2cf"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["k", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065437818823`*^9, 3.7740274097448044`*^9, 
  3.7886892255016327`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"0f368809-3080-4b57-ae10-b700cfb6d1a2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"m", "[", 
   RowBox[{"k", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, {
  3.690669422351235*^9, 3.69066943317575*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"c1b4e7e9-059c-4578-bbce-557376dc80b7"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["k", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065440311747`*^9, 3.774027409801687*^9, 
  3.788689225585403*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"2b697e44-94f0-4cff-ac84-81fc7e3f443f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"091c3dc7-058c-44cb-b7ee-e37c8151aeb9"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["k", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"2", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065443744926`*^9, 3.7740274098415766`*^9, 
  3.7886892256731715`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"9661ebbc-114e-4210-a271-b776e2e505ee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"e271876b-6956-4574-bd5e-525f41f67dba"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["k", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006544810055*^9, 3.774027409883433*^9, 
  3.7886892257629323`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"23e3fbe7-cfd8-4240-b9ee-5a12f65ac049"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"e3e42bed-fd9f-4530-9d8b-23fdd0668145"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["k", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "2", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006544909438*^9, 3.7740274099313364`*^9, 
  3.788689225853689*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"d22c34ac-05c9-41e4-8943-46c6365d2a59"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"m", "[", 
   RowBox[{"e", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.703864178072955*^9, 3.703864179939955*^9}, {
  3.703864268558955*^9, 3.703864300532955*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"74cec73f-64eb-47f1-8efc-d6e3d7d64f00"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["e", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006545014744*^9, 3.774027409969236*^9, 
  3.788689225945444*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"e86dbe72-bc0e-4c98-a178-a762729a7436"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"m", "[", 
   RowBox[{"e", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.703864327579955*^9, 3.703864332298955*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"48bf5dd0-05a7-4bed-8a01-81a1d6fe25d1"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["e", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065451481256`*^9, 3.7740274100111237`*^9, 
  3.7886892260342073`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"913e493a-1ab3-4ad8-9c1a-a46802628124"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{"e", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7038643401229553`*^9, 3.703864349381955*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"9287a834-a33c-48d1-9352-cee78b77864a"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["e", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"2", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065453717237`*^9, 3.774027410053013*^9, 
  3.7886892261209745`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"f7ab5cd2-211b-4a95-8b83-37251c2b6261"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"e", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7038643554789553`*^9, 3.703864363081955*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"1fdefa6f-46e2-4786-be77-c406c2f503ab"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["e", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006545691451*^9, 3.77402741009387*^9, 
  3.788689226209738*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"ef1470db-6967-46ed-945c-0b7fc1655d67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"e", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7038643654439554`*^9, 3.703864371152955*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"3126c45c-9392-4d0b-8cc1-cfb556fc0c9c"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["e", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "2", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065459712057`*^9, 3.7740274101397786`*^9, 
  3.788689226297494*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"38161028-c3d5-4604-bc88-31a50d462d47"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"m", "[", 
   RowBox[{"kinv", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.703880580051668*^9, 3.7038805861980686`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"1adff0e6-3898-4733-9d41-8df79fef51d8"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["kinv", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065461921997`*^9, 3.774027410181636*^9, 
  3.788689226412165*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"78dfbbb0-94c2-4ce1-9e37-11137d6a8a9b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"m", "[", 
   RowBox[{"kinv", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7038805933428683`*^9, 3.7038806005812683`*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"045d3341-1743-419b-bb53-1311f022cec2"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["kinv", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065464255023`*^9, 3.7740274102235584`*^9, 
  3.7886892264959655`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"94c804dd-6c5b-4301-9704-6b5fcbf319ae"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.703880604418868*^9, 3.703880617164068*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"80ab7d05-3c63-4422-9c2c-275ae8286e4c"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["kinv", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"2", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065467172995`*^9, 3.7740274102654114`*^9, 
  3.788689226584735*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"e06970fd-b89b-4315-9aa5-3359ffe67cff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7038806432940683`*^9, 3.703880649830468*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"dc99d7ba-c78e-40d9-a6bc-fce3b8bd2378"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["kinv", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065469247828`*^9, 3.774027410308296*^9, 
  3.788689226672501*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"0d51862f-3c69-4be6-a2d6-dfa62d88dc06"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7038806522484684`*^9, 3.703880658847268*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"0efa99be-098c-44d9-9265-dabd7cc86edc"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["kinv", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "2", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006547030526*^9, 3.7740274103482246`*^9, 
  3.7886892267612658`*^9},
 CellLabel->"Out[26]=",ExpressionUUID->"1db87618-88ad-4449-939e-ce9ccc3e33eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"m", "[", 
   RowBox[{"se", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, {
  3.690669133485731*^9, 3.690669136542921*^9}, {3.7621916481051464`*^9, 
  3.7621916481709814`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"66c9a570-a888-4018-abfe-3ac5f70049bf"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["se", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065471209335`*^9, 3.774027410394103*^9, 
  3.788689226848032*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"3eac1e3e-65e8-43a4-ba63-a9dd2545068a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"m", "[", 
   RowBox[{"se", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, {
  3.690669422351235*^9, 3.69066943317575*^9}, {3.7621916497328043`*^9, 
  3.7621916497866287`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"2e276331-bd3c-4dc9-9628-2a7b7fda01d4"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["se", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065472175612`*^9, 3.7740274104419394`*^9, 
  3.788689226937789*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"4bc5db6b-f478-493d-bc7b-68d12b60b011"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}, {
  3.7621916511071205`*^9, 3.7621916547344046`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"13f7ec0b-0e24-4fc9-9bcd-e14e5a803946"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["se", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"2", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.77400654737407*^9, 3.774027410483827*^9, 
  3.788689227028554*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"1dbc0d43-dedd-4de2-b13c-8869b3e670b7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}, {
  3.762191656494746*^9, 3.7621916565825105`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"4bb3f349-ab98-4d04-86f3-77f6f525fa47"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["se", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065475250764`*^9, 3.7740274105616207`*^9, 
  3.7886892271163197`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"ea6853da-4764-47a8-8e34-adf8ed049b96"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}, {
  3.7621916585372734`*^9, 3.762191658586109*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"7491569a-1cb5-4a41-b9b2-860566606e15"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["se", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "2", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006547688795*^9, 3.774027410607498*^9, 
  3.78868922720408*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"07c27571-5251-49b3-b9ae-9ebc974ac689"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"m", "[", 
   RowBox[{"ssekksse", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, {
  3.690669133485731*^9, 3.690669136542921*^9}, {3.762191715048218*^9, 
  3.7621917179584646`*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"97dae85f-f619-4e78-a5c7-1181121b0b1a"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["ssekksse", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065479915934`*^9, 3.7740274106514235`*^9, 
  3.788689227293809*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"50c29a6b-67bf-4753-9ceb-3d612b176092"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"m", "[", 
   RowBox[{"ssekksse", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, {
  3.690669422351235*^9, 3.69066943317575*^9}, {3.762191727214674*^9, 
  3.762191729010909*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"72ea00e5-370c-442f-bae2-4f44c82b640a"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["ssekksse", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006548223339*^9, 3.7740274106922693`*^9, 
  3.788689227382603*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"85e66452-19ab-4ebb-ac96-07b0a24e9a6e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{"ssekksse", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}, {
  3.76219173142846*^9, 3.762191732754905*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"8bdb6621-bdbe-402f-8b39-b9230fccb028"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["ssekksse", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"2", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065484428387`*^9, 3.774027410736186*^9, 
  3.7886892274823303`*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"7019df04-2e35-4889-8cc3-25fd6289399c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"ssekksse", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}, {
  3.762191736383175*^9, 3.7621917377395935`*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"adb0fcbd-cc39-4c68-a67f-49147e336bc4"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["ssekksse", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006548638502*^9, 3.774027410777043*^9, 
  3.788689227567114*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"2c6f1fb0-8261-45ea-97ad-561e4a33e503"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"ssekksse", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}, {
  3.762191740248836*^9, 3.762191745240533*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"0cfa2561-1773-47c1-9dfc-68ffd854501f"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["ssekksse", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "2", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065489268856`*^9, 3.7740274108229513`*^9, 
  3.7886892276538773`*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"5b48c9fb-ec2c-4ea4-a81a-e78bf6b2ab05"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"m", "[", 
   RowBox[{"sekk", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, {
  3.690669133485731*^9, 3.690669136542921*^9}, {3.7621916709081798`*^9, 
  3.7621916721818123`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"8afe9c3c-a372-4e32-9078-15d82e28a25d"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["sekk", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065490723715`*^9, 3.7740274108638477`*^9, 
  3.788689227741643*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"a504017f-4cd0-4e8f-814b-8515aac87b02"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"m", "[", 
   RowBox[{"sekk", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, {
  3.690669422351235*^9, 3.69066943317575*^9}, {3.762191679915099*^9, 
  3.7621916803230085`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"d84d9780-a2ba-48af-8dfe-804b01e8a625"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["sekk", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065491995473`*^9, 3.774027410902738*^9, 
  3.78868922782838*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"c10bfd00-14b7-465a-bc70-47703cb0d88c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{"sekk", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}, {
  3.7621916840301003`*^9, 3.762191684436015*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"75c1ada7-6649-4e9e-9790-4412553113c0"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["sekk", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"2", ",", "0", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.774006549349556*^9, 3.77402741094659*^9, 
  3.7886892279141817`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"e7a1b064-7257-475c-b8bd-8120f9a5b717"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"du", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"sekk", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}, {
  3.762191686502493*^9, 3.762191686924391*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"709a699d-3187-45c0-8919-9c51bd5e26b3"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["sekk", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"1", ",", "1", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065494710045`*^9, 3.7740274109865165`*^9, 
  3.78868922800095*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"bdbad613-979c-4c58-b248-7dc17eff54bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dv", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{"sekk", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}, {
  3.762191688256804*^9, 3.762191688608893*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"cc7dcf89-5c24-4066-8a31-032aeb17a0b3"],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["sekk", 
   TagBox[
    RowBox[{"(", 
     RowBox[{"0", ",", "2", ",", "0"}], ")"}],
    Derivative],
   MultilineFunction->None], "[", 
  RowBox[{"u", ",", "v", ",", 
   RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output",
 CellChangeTimes->{3.7740065495962677`*^9, 3.7740274110323954`*^9, 
  3.788689228089714*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"b9bd2c5a-210b-4a98-91c6-24e4b0bfe334"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Reading in a classical manner",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.750257112596969*^9, 
  3.750257182980995*^9}},ExpressionUUID->"01a1336d-bcb5-4d03-93b7-\
9fe3aff6d500"],

Cell["\<\
We give a way to read the products in a classical manner, with a method for \
simplifying expressions in this form.\
\>", "Text",
 CellChangeTimes->{{3.7502572950724063`*^9, 
  3.7502573452042737`*^9}},ExpressionUUID->"39bf327d-3179-48d7-8048-\
86ecde796740"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"cancelling", "[", "b___", "]"}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.690049316492878*^9, 3.690049399982028*^9}, {
  3.6906628581348267`*^9, 3.6906628645308857`*^9}, {3.7044689338571987`*^9, 
  3.704468945064199*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"99fd3f8a-b958-485c-ac47-5e3311091275"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"b1_", "+", "b2_"}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"cancelling", "[", 
    RowBox[{"a", ",", "b1", ",", "c"}], "]"}], "+", 
   RowBox[{"cancelling", "[", 
    RowBox[{"a", ",", "b2", ",", "c"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6900493800876207`*^9, 3.69004942280956*^9}, {
  3.690662865639802*^9, 3.690662875254161*^9}, {3.704468950800199*^9, 
  3.704468959207199*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"5a0b3ce6-f2aa-46d6-b3b3-6f9e66a4cf2e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"-", "b_"}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], 
   RowBox[{"cancelling", "[", 
    RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7044816328579493`*^9, 3.704481663601023*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"5c58c4e9-7f2a-411f-9d72-af838d6e81a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", 
    FractionBox["1", "k"], ",", "k", ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7038844235026255`*^9, 3.703884464496725*^9}, {
  3.7038844995942345`*^9, 3.7038845110103755`*^9}, {3.7038845599492693`*^9, 
  3.703884566373912*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"111b0f83-a4ef-4b5c-bf15-9306abb42605"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", "k", ",", 
    FractionBox["1", "k"], ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.70388451475175*^9, 3.703884528211096*^9}, {
  3.703884571238398*^9, 3.7038845759578695`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"815281f8-31ae-4387-aa52-0642df2e7942"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", "e", ",", "e", ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"0abaa518-594d-4254-9b29-6177761b2f24"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", "e", ",", 
    SubscriptBox["e", "1"], ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{3.7272880119001493`*^9},
 CellLabel->"In[48]:=",ExpressionUUID->"acfc3ff2-4053-4cfe-8b83-c2f67992649e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", 
    SubscriptBox["e", "1"], ",", "e", ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7272880119001493`*^9, 3.7272880344422936`*^9}},
 CellLabel->"In[49]:=",ExpressionUUID->"6587af05-a5e9-4344-9c23-62a1c5e56600"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a__", ",", 
    SubscriptBox["e", "1"], ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7272880119001493`*^9, 3.7272880344422936`*^9}, {
  3.7272883587874765`*^9, 3.7272883599574842`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"396ad06a-fdf1-4250-9e09-7509419a2872"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", "se", ",", "se", ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "se", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}, {
  3.7621930237428575`*^9, 3.762193026295706*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"8d796328-467b-4421-ab69-4506af3f3b0f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{
    FractionBox["1", "k"], ",", "se", ",", "k", ",", "k", ",", "se", ",", 
    "k"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", "ssekksse", "]"}]}]], "Input",
 CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}, {
  3.7621930237428575`*^9, 3.762193026295706*^9}, {3.7621933528413963`*^9, 
  3.762193392826298*^9}, {3.762193973936123*^9, 3.7621939836785517`*^9}, {
  3.7621941451475844`*^9, 3.7621941561376543`*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"00c44b59-88d4-41ae-9dcd-d617302ce271"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"se", ",", "k", ",", "k"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", "sekk", "]"}]}]], "Input",
 CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}, {
  3.7621930237428575`*^9, 3.762193026295706*^9}, {3.7621933528413963`*^9, 
  3.762193392826298*^9}, {3.762193973936123*^9, 3.7621939991465654`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"7b70c316-7e9e-47e7-bf99-93b932ca7905"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", 
    RowBox[{"-", "1"}], ",", "b___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"-", "1"}], ")"}], 
   RowBox[{"cancelling", "[", 
    RowBox[{"a", ",", "b"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7272879064902735`*^9, 3.727287918939153*^9}, {
  3.7292262175886145`*^9, 3.7292262226532526`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"3507916f-5ca7-4a89-9ced-46249f72de58"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", "1", ",", "b___"}], "]"}], ":=", 
  RowBox[{"cancelling", "[", 
   RowBox[{"a", ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7272879064902735`*^9, 3.727287918939153*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"6bc3c611-4713-443f-b022-0d7df40fad86"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancelling", "[", 
   RowBox[{"a___", ",", "0", ",", "b___"}], "]"}], ":=", "0"}]], "Input",
 CellChangeTimes->{{3.7272879064902735`*^9, 3.727287918939153*^9}, {
  3.7292340666371613`*^9, 3.729234068540374*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"30289794-a5cf-4517-8881-4942df937198"],

Cell[BoxData[
 RowBox[{
  RowBox[{"cancel", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Simplify", "[", "stuff", "]"}], "/.", 
      RowBox[{"Dot", "\[Rule]", "cancelling"}]}], ")"}], "/.", 
    RowBox[{"cancelling", "\[Rule]", "Dot"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7044686500741987`*^9, 3.7044687100471992`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"34b05d8f-9a1c-40a3-9b2e-ca789fe0df6a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"read", "[", "stuff_", "]"}], ":=", 
  RowBox[{"cancel", "[", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"stuff", "/.", 
       RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"k", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "k"}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["k", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["k", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["k", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "1"], "2"], "[", "k", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["k", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["k", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "2"], "2"], "[", "k", "]"}]}], ",", 
       RowBox[{
        RowBox[{"e", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "e"}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["e", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "e", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["e", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "e", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["e", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", " ", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "1"], "2"], "[", "e", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["e", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "e", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["e", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "2"], "2"], "[", "e", "]"}]}], ",", 
       RowBox[{
        RowBox[{"kinv", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        SuperscriptBox["k", 
         RowBox[{"-", "1"}]]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kinv", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{"-", 
         RowBox[{
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]]}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kinv", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{"-", 
         RowBox[{
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]]}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kinv", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"2", 
          RowBox[{
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]], ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]], ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]]}]}], "-", 
         RowBox[{
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SuperscriptBox[
            SubscriptBox["\[Delta]", "1"], "2"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]]}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kinv", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]]}], "-", 
         RowBox[{
          RowBox[{
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]], ".", 
           SubscriptBox["\[Delta]", "1"]}], 
          RowBox[{
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]]}]}], "+", 
         RowBox[{
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]]}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kinv", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"2", 
          RowBox[{
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]], ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]], ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
           SuperscriptBox["k", 
            RowBox[{"-", "1"}]]}]}], "-", 
         RowBox[{
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]], ".", 
          RowBox[{
           SuperscriptBox[
            SubscriptBox["\[Delta]", "2"], "2"], "[", "k", "]"}], ".", 
          SuperscriptBox["k", 
           RowBox[{"-", "1"}]]}]}]}], ",", 
       RowBox[{
        RowBox[{"se", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "se"}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["se", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["se", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["se", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "1"], "2"], "[", "se", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["se", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["se", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "2"], "2"], "[", "se", "]"}]}], ",", 
       RowBox[{
        RowBox[{"ssekksse", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "ssekksse"}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["ssekksse", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["ssekksse", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["ssekksse", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "1"], "2"], "[", "ssekksse", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["ssekksse", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["ssekksse", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "2"], "2"], "[", "ssekksse", "]"}]}], ",", 
       RowBox[{
        RowBox[{"sekk", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "sekk"}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sekk", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sekk", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sekk", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "1"], "2"], "[", "sekk", "]"}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sekk", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sekk", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          SubscriptBox["\[Delta]", "2"], "2"], "[", "sekk", "]"}]}]}], 
      "}"}]}], ")"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.690665115173683*^9, 3.690665127603458*^9}, {
   3.6906677611411457`*^9, 3.690667800346139*^9}, {3.6906678911720057`*^9, 
   3.690667907768957*^9}, {3.6906683884828377`*^9, 3.690668432648012*^9}, {
   3.6906686445912743`*^9, 3.690668679273237*^9}, {3.690668718319725*^9, 
   3.690668783743629*^9}, {3.6906688877976103`*^9, 3.690668941501865*^9}, {
   3.6906690549088373`*^9, 3.690669055158558*^9}, {3.69066909520583*^9, 
   3.690669095489747*^9}, {3.6906691534155827`*^9, 3.690669154808935*^9}, 
   3.690669233507351*^9, 3.690669439320223*^9, {3.690669584994959*^9, 
   3.6906696206285477`*^9}, {3.703864421591955*^9, 3.703864640699955*^9}, {
   3.7038822952514687`*^9, 3.703882421804468*^9}, {3.7038835943747215`*^9, 
   3.7038837847567577`*^9}, {3.703883897525033*^9, 3.7038839265019307`*^9}, {
   3.7038839918014603`*^9, 3.703884004192699*^9}, {3.7038840993442135`*^9, 
   3.7038841694732256`*^9}, {3.7038846096752415`*^9, 3.70388463039811*^9}, {
   3.7044660587376404`*^9, 3.7044660990976763`*^9}, {3.704466153625128*^9, 
   3.7044661547332387`*^9}, {3.70446622545231*^9, 3.704466239628728*^9}, {
   3.7044687221801987`*^9, 3.7044687356801987`*^9}, {3.704468861603199*^9, 
   3.704468862394199*^9}, {3.7621918135189962`*^9, 3.7621919379190917`*^9}, {
   3.7621923310013113`*^9, 3.762192571737855*^9}, {3.7621926657136717`*^9, 
   3.7621927011938696`*^9}, {3.762194241965974*^9, 3.7621942434250717`*^9}, {
   3.77400640742092*^9, 3.7740064255548215`*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"9fdc53d8-f9eb-400d-b177-0f6429a25f55"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906696867641563`*^9, 3.690669706286137*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"cce67af6-162a-4d43-b8ad-3a492909436d"],

Cell[BoxData[
 RowBox[{"k", ".", "k"}]], "Output",
 CellChangeTimes->{3.774006551057708*^9, 3.7740274112717514`*^9, 
  3.7886892283570175`*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"38efac4b-1f44-43d3-b8dd-bdd3528dfdee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6906697228919077`*^9, 3.690669745584383*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"36067100-ee05-43ae-a5d3-c0350dfd43fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}]], "Output",
 CellChangeTimes->{3.7740065512444906`*^9, 3.7740274113106675`*^9, 
  3.788689228486655*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"27cf81c7-6fdc-4594-a0f8-ac21704f849c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"dv", "[", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.690670170124776*^9, 3.690670211401373*^9}, {
  3.6906706421271467`*^9, 3.690670653857843*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"a1a81dfe-dcd3-4e89-a224-685407f8ed2d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"k", ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.774006551411275*^9, 3.7740274113245783`*^9, 
  3.788689228607298*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"8e65aab5-ff96-481f-adf7-9130226df354"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"m", "[", 
   RowBox[{"se", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.762192608750961*^9, 3.762192618010214*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"6eb73b36-1f3a-4dc1-8dbb-c56db5eb4786"],

Cell[BoxData["se"], "Output",
 CellChangeTimes->{3.7740065515136127`*^9, 3.7740274113645067`*^9, 
  3.7886892287000484`*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"50b7598b-c6e3-4902-9964-b7bc502d58ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"m", "[", 
   RowBox[{"du", "[", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7621927070581636`*^9, 3.7621927151564665`*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"d51da206-9b27-453a-8b19-350ac4dd6e8d"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Delta]", "1"], "[", "se", "]"}]], "Output",
 CellChangeTimes->{3.774006551601845*^9, 3.77402741140237*^9, 
  3.7886892288038034`*^9},
 CellLabel->"Out[63]=",ExpressionUUID->"cd39eff4-a207-4b69-a9f7-97a853b357ab"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"m", "[", 
   RowBox[{"du", "[", 
    RowBox[{"dv", "[", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7621927198639116`*^9, 3.7621927281108713`*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"b470d256-2b1b-48ed-9d9d-0414e29fc1f8"],

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Delta]", "1"], " ", 
  RowBox[{
   SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}]], "Output",
 CellChangeTimes->{3.7740065517015715`*^9, 3.774027411416333*^9, 
  3.788689228891576*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"c468efb8-88d9-4dda-9e74-bc2f5054c029"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.762445739273079*^9}, {
  3.7624458650037017`*^9, 3.7624458667969027`*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"a46e4fd0-2a16-4c7a-8300-135bf7d29115"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   "se", ".", "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.774006551792879*^9, 3.7740274114582214`*^9, 
  3.7886892289793367`*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"14f46974-3040-4761-90b6-c84aaad7ce0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.7624457454645433`*^9}, {
  3.762445868122365*^9, 3.762445869370021*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"56fcd51f-9b69-43b9-9baf-205b979a7899"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   "se", ".", "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.7740065519154215`*^9, 3.774027411502104*^9, 
  3.7886892290710893`*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"beee2f70-74c5-452b-a053-9760c701a836"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"du", "[", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"kinv", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.762445754783579*^9}, {
  3.7624458716169977`*^9, 3.7624458728028*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"a0e22477-a073-4d95-a4d2-b62464fa88fa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}], 
  "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "se", ".", 
   "k"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", ".", 
   "se", ".", "k"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}]}], 
  "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".",
     "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", 
   "k", ".", "se", ".", "k"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", " ", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
      FractionBox["1", "k"], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
      FractionBox["1", "k"]}]}], ")"}], ".", "se", ".", "k", ".", "k", ".", 
   "se", ".", "k"}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}]}], 
  "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".",
     "k"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", "k"}]}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.774006552019377*^9, 3.7740274115809245`*^9, 
  3.7886892291678305`*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"427bb681-bcb4-4222-8eb1-8281736de3e9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"dv", "[", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"kinv", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.7624457618057876`*^9}, {
  3.762445874599989*^9, 3.762445875715007*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"9cf538e8-054f-493d-914e-8991a96c9119"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "se", ".",
    "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k", ".", 
   "se", ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", ".",
    "k", ".", "se", ".", "k"}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "k"], ".", 
      SubscriptBox["\[Delta]", "1"]}], " ", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
      FractionBox["1", "k"]}]}], ")"}], ".", "se", ".", "k", ".", "k", ".", 
   "se", ".", "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   "se", ".", "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], 
  "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
   "k"}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
   "se", ".", "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   "k"}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.774006552158186*^9, 3.7740274116377745`*^9, 
  3.7886892292715664`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"94a4974f-bd11-45e8-a175-d9c071d7015d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"dv", "[", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"kinv", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.7624457580667953`*^9}, {
  3.762445877489295*^9, 3.7624458789573746`*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"9c9fcd0c-1b59-4186-8257-7e55f64014f7"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}], 
  "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "se", ".", 
   "k"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", ".", 
   "se", ".", "k"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}]}], 
  "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".",
     "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", 
   "k", ".", "se", ".", "k"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"2", " ", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
      FractionBox["1", "k"], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
      FractionBox["1", "k"]}]}], ")"}], ".", "se", ".", "k", ".", "k", ".", 
   "se", ".", "k"}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}]}], 
  "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".",
     "k"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", "k"}]}], "-", 
  RowBox[{
   FractionBox["1", "k"], ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.774006552291646*^9, 3.7740274116936255`*^9, 
  3.788689229374284*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"dadc5327-dd19-41f9-b088-73cf5c296755"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.762445739273079*^9}, {
  3.7624457884824133`*^9, 3.762445809208006*^9}, {3.7624468892777047`*^9, 
  3.762446890527319*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"721b1ed3-f65c-4e31-8b21-d574977e916c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{"se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.774006552398332*^9, 3.774027411739504*^9, 
  3.788689229467043*^9},
 CellLabel->"Out[70]=",ExpressionUUID->"7558c564-01b2-48ed-b050-aa954bfbcb57"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.7624457454645433`*^9}, {
  3.7624457904601192`*^9, 3.762445811231542*^9}, {3.762446892320549*^9, 
  3.7624468937317452`*^9}},
 CellLabel->"In[71]:=",ExpressionUUID->"bd226353-8c48-4426-9c8a-bb0f680530d9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"se", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.7740065524913425`*^9, 3.774027411779398*^9, 
  3.7886892295537987`*^9},
 CellLabel->"Out[71]=",ExpressionUUID->"d0dc746e-990c-4cab-b79b-9d41a08de58b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"du", "[", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.762445754783579*^9}, {
  3.7624457925734963`*^9, 3.762445814143792*^9}, {3.762446895398286*^9, 
  3.7624468964943533`*^9}},
 CellLabel->"In[72]:=",ExpressionUUID->"e0c20d59-bcdd-4325-8142-bb080e71f95f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"se", ".", "k", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.774006552584906*^9, 3.774027411819255*^9, 
  3.788689229654541*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"016545d1-95fe-486f-bb63-5d539647a425"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"du", "[", 
   RowBox[{"dv", "[", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.7624457618057876`*^9}, {
  3.7624457949969797`*^9, 3.7624458176005383`*^9}, {3.7624468978487587`*^9, 
  3.7624469012107334`*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"3263ac1c-40a5-4a33-841f-0b2ff53f1015"],

Cell[BoxData[
 RowBox[{
  RowBox[{"se", ".", "k", ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", 
  RowBox[{"se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"se", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{"se", ".", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], 
  "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], " ", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", ".",
    "k"}]}]], "Output",
 CellChangeTimes->{3.774006552678485*^9, 3.774027411863138*^9, 
  3.788689229742296*^9},
 CellLabel->"Out[73]=",ExpressionUUID->"c5461feb-43a1-4efd-84fe-cfd89b853e95"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"dv", "[", 
   RowBox[{"dv", "[", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.762445642785284*^9, 3.7624457580667953`*^9}, {
  3.7624457968101687`*^9, 3.7624458203062925`*^9}, {3.762446902953092*^9, 
  3.762446904149889*^9}},
 CellLabel->"In[74]:=",ExpressionUUID->"355b8f8e-44ef-4473-a190-ca00cf08a34b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"se", ".", "k", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", 
   "k"}]}]], "Output",
 CellChangeTimes->{3.7740065527740965`*^9, 3.7740274119070463`*^9, 
  3.78868922983006*^9},
 CellLabel->"Out[74]=",ExpressionUUID->"4aa4d815-bcac-4cb7-b422-c98378262c77"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Total symbol of each Laplacian",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.750257393977063*^9, 3.7502574057747383`*^9}, {
  3.7502574881954527`*^9, 3.75025749199967*^9}, {3.750257761047058*^9, 
  3.7502577669033937`*^9}, {3.7502577993122473`*^9, 
  3.750257802483429*^9}},ExpressionUUID->"6b9f2e46-b9d1-4516-aac6-\
d3811d21837f"],

Cell["We define a \[Sigma]-connection and its inverse", "Text",
 CellChangeTimes->{{3.750257429658104*^9, 
  3.750257463943065*^9}},ExpressionUUID->"97d57b98-de8d-4756-a400-\
52fead155efc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sigma", "[", "stuff_", "]"}], ":=", 
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", "stuff", ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.703864936072955*^9, 3.703864942783955*^9}, {
  3.703865055473955*^9, 3.7038650945839553`*^9}, {3.7038651499685993`*^9, 
  3.7038651567139482`*^9}, {3.7038653231062202`*^9, 3.7038653330512085`*^9}, {
  3.7044623519432163`*^9, 3.704462359894216*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"be45ebb9-f9bd-49ff-9712-7aad68613d35"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sigmainv", "[", "stuff_", "]"}], ":=", 
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", " ", "stuff", ",", 
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.703865791330903*^9, 3.7038658305138206`*^9}, {
  3.703865893821151*^9, 3.7038659079895678`*^9}, {3.704462364534216*^9, 
  3.704462368534216*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"e2b4d932-14e5-487a-b1a4-f6f00bb9ec2b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"sigma", "[", 
   RowBox[{"e", "[", 
    RowBox[{"u", ",", "v", ",", 
     RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.703865182889182*^9, 3.703865219250453*^9}, {
  3.7038658510438733`*^9, 3.7038658527630453`*^9}, {3.703883883151596*^9, 
  3.7038838864719276`*^9}, {3.7038840201822977`*^9, 3.7038840209333725`*^9}, {
  3.7038842167589536`*^9, 3.7038842212694044`*^9}, {3.70388465509511*^9, 
  3.70388465594211*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"74a486cc-de17-4d2f-be7e-5fe29c51c20a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "k"], ".", "e", ".", "k"}]], "Output",
 CellChangeTimes->{3.774006552952425*^9, 3.774027411968856*^9, 
  3.7886892299377413`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"a9a18856-4c30-4e77-a8c8-d5b5edbc2b2f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aueo2", "=", 
  RowBox[{"pso2", "[", 
   RowBox[{
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"kinv", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"se", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
      RowBox[{"k", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"pso2", "[", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[Xi]", "1"], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Xi]", "2"]}]}], ",", 
      RowBox[{"pso2", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{"se", "[", 
          RowBox[{"u", ",", "v", ",", 
           RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
        RowBox[{"pso2", "[", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[Xi]", "1"], "-", 
           RowBox[{"\[ImaginaryI]", " ", 
            SubscriptBox["\[Xi]", "2"]}]}], ",", 
          RowBox[{"m", "[", 
           RowBox[{"k", "[", 
            RowBox[{"u", ",", "v", ",", 
             RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.690733220435198*^9, 3.690733226065104*^9}, {
   3.690733707291625*^9, 3.690733734121381*^9}, {3.6907339200067873`*^9, 
   3.690733960228714*^9}, {3.690734904330949*^9, 3.690734934626958*^9}, 
   3.690735035431769*^9, {3.690735242654223*^9, 3.690735247465468*^9}, {
   3.690735285745098*^9, 3.6907353002697783`*^9}, {3.690737419350707*^9, 
   3.690737420295974*^9}, 3.704463707605216*^9, {3.704463788103216*^9, 
   3.704463825500216*^9}, {3.704463905199216*^9, 3.704463991986216*^9}, {
   3.7044640370232162`*^9, 3.7044640386232157`*^9}, {3.704464079637216*^9, 
   3.7044641488686094`*^9}, 3.704464190255022*^9, {3.7044643388905993`*^9, 
   3.704464346548896*^9}, {3.7044644063514185`*^9, 3.704464515572339*^9}, {
   3.704464589950776*^9, 3.704464633680149*^9}, {3.7044648520909877`*^9, 
   3.704464856802459*^9}, {3.704464886891467*^9, 3.704464890859864*^9}, 
   3.7044659083606043`*^9, 3.7107234298950586`*^9, {3.76098533591053*^9, 
   3.7609853360541353`*^9}, {3.760985372338107*^9, 3.7609853827273436`*^9}, 
   3.7609859505008492`*^9, 3.7609859819437933`*^9, {3.760987187249933*^9, 
   3.7609872813732634`*^9}, {3.762192891956339*^9, 3.762192907411317*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"217c76c2-ccda-4808-b774-0a89e19fcab0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{
     SuperscriptBox["k", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "2", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["k", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], "+", 
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{
     SuperscriptBox["k", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"2", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{
     SuperscriptBox["se", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{
     SuperscriptBox["k", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["se", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["k", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}]}], "+", 
  RowBox[{"m", "[", 
   RowBox[{
    RowBox[{"kinv", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"se", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{"k", "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{
     SuperscriptBox["se", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
    RowBox[{
     SuperscriptBox["k", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"u", ",", "v", ",", 
      RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["k", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["k", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["k", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      SuperscriptBox["k", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"kinv", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output",
 CellChangeTimes->{3.7740065531110935`*^9, 3.774027412045682*^9, 
  3.7886892300504713`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"a3f3178a-c412-4c63-b261-4a2e5b5d245b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"aueo2adj", "=", 
  RowBox[{"pso2", "[", 
   RowBox[{
    RowBox[{"m", "[", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
    RowBox[{"pso2", "[", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[Xi]", "1"], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        SubscriptBox["\[Xi]", "2"]}]}], ",", 
      RowBox[{"pso2", "[", 
       RowBox[{
        RowBox[{"m", "[", 
         RowBox[{
          RowBox[{"se", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", 
        RowBox[{
         SubscriptBox["\[Xi]", "1"], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          SubscriptBox["\[Xi]", "2"]}]}]}], "]"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.711234235331548*^9, 3.7112343114132357`*^9}, {
   3.7112343486350746`*^9, 3.711234378322065*^9}, {3.7112344576953735`*^9, 
   3.7112344838099413`*^9}, {3.711234531686648*^9, 3.711234614226777*^9}, {
   3.7112347152218246`*^9, 3.7112347538320723`*^9}, {3.711234822909315*^9, 
   3.711234827183742*^9}, {3.7112350174898143`*^9, 3.711235028815995*^9}, {
   3.760988051917241*^9, 3.7609881066798277`*^9}, {3.7609881442513285`*^9, 
   3.7609881453294754`*^9}, 3.760988186611103*^9, {3.762192927875311*^9, 
   3.762192935834961*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"059cc991-175c-4781-8c46-ed14596d4728"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["k", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{
        SuperscriptBox["se", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{"k", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output",
 CellChangeTimes->{3.774006553249155*^9, 3.7740274121075153`*^9, 
  3.788689230149207*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"767ec6f2-aef0-41c5-9966-a102aa56a6dd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", "aueo2", "]"}]], "Input",
 CellLabel->"In[80]:=",ExpressionUUID->"e500d879-733c-4627-bf42-57b71e75eb61"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"ssekksse", " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"ssekksse", " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output",
 CellChangeTimes->{3.7740065533685675`*^9, 3.7740274121563873`*^9, 
  3.7886892302399654`*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"42cba123-436b-41d8-85da-885f14aefe03"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"read", "[", "aueo2adj", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.711234933919626*^9, 3.711234937913252*^9}, {
  3.760988298848996*^9, 3.760988303354947*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"787596a9-eba9-443c-abff-b8f19f15e5fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"sekk", " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{"se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{"se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"sekk", " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output",
 CellChangeTimes->{3.7740065534700108`*^9, 3.7740274122042603`*^9, 
  3.7886892303317194`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"54dafb2c-2f75-4df9-9eb9-c82ca7b46839"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CoefficientRules", "[", 
   RowBox[{
    RowBox[{"read", "[", "aueo2", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["\[Xi]", "1"], ",", 
      SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.690735704856639*^9, 3.690735711562557*^9}, {
   3.690735816016296*^9, 3.690735851994089*^9}, {3.690737433657516*^9, 
   3.690737442872324*^9}, 3.704463707650216*^9},
 CellLabel->"In[82]:=",ExpressionUUID->"29b58226-e82b-4e9f-bece-c2d33995f863"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", "ssekksse"}]},
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", "ssekksse"}]},
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
        RowBox[{
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}]}]},
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", 
       RowBox[{
        RowBox[{
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
        RowBox[{
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.774006553624967*^9, 3.7740274122540917`*^9, 
  3.7886892304254694`*^9},
 CellLabel->
  "Out[82]//TableForm=",ExpressionUUID->"21f88db5-83e0-4607-942e-\
fd519e52cee5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CoefficientRules", "[", 
   RowBox[{
    RowBox[{"read", "[", "aueo2adj", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      SubscriptBox["\[Xi]", "1"], ",", 
      SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}], "//", 
  "TableForm"}]], "Input",
 CellChangeTimes->{{3.690735704856639*^9, 3.690735711562557*^9}, {
   3.690735816016296*^9, 3.690735851994089*^9}, {3.690737433657516*^9, 
   3.690737442872324*^9}, 3.704463707650216*^9, {3.711234959300989*^9, 
   3.7112349594569902`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"76e391b2-b7de-4262-b201-1d3ab9910cbc"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", "sekk"}]},
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", 
       RowBox[{
        RowBox[{"se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"se", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "k"}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
          "k"}]}]}]}]},
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", "sekk"}]},
     {
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"se", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
        RowBox[{"se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
          "k"}]}], "+", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "k"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7740065539224925`*^9, 3.774027412323906*^9, 
  3.7886892305192184`*^9},
 CellLabel->
  "Out[83]//TableForm=",ExpressionUUID->"280d1cb6-988d-4f0e-8bbf-\
9831cae2f518"]
}, Open  ]],

Cell["The symbol of order two for the first Laplacian is", "Text",
 CellChangeTimes->{{3.750257496935952*^9, 
  3.7502575068325186`*^9}},ExpressionUUID->"5aaeec37-b014-4faa-a14b-\
b302d8071bf2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"ssekksse", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", 
     SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"ssekksse", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", 
     SubsuperscriptBox["\[Xi]", "2", "2"]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.690736925083602*^9, 3.6907369291862698`*^9}, {
   3.6907369786088877`*^9, 3.690736995468594*^9}, {3.7044673070014544`*^9, 
   3.704467318489603*^9}, 3.7044676682585764`*^9, {3.7609887931898837`*^9, 
   3.760988823687333*^9}, {3.762194128970357*^9, 3.762194184994897*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"edf0e4aa-7966-4a37-85a2-8a4b9ed6e75d"],

Cell["The symbol of order two for the second Laplacian is", "Text",
 CellChangeTimes->{{3.7502575118908076`*^9, 
  3.75025751944724*^9}},ExpressionUUID->"e571e048-a790-4395-b431-\
5be6763170f1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"padj", "[", "2", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"sekk", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", 
     SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"sekk", "[", 
       RowBox[{"u", ",", "v", ",", 
        RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", 
     SubsuperscriptBox["\[Xi]", "2", "2"]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7112355386427283`*^9, 3.7112355601555424`*^9}, {
  3.760989106521079*^9, 3.7609891264288735`*^9}, {3.7621942036996136`*^9, 
  3.762194213786833*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"7d19e6e6-677a-4f21-be5d-f1c69a7d07f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6907370130285883`*^9, 3.6907370164734364`*^9}, {
  3.690737348084467*^9, 3.690737350470932*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"24a03a81-8186-4992-ba10-351d0052e84a"],

Cell[BoxData[
 RowBox[{"ssekksse", " ", 
  RowBox[{"(", 
   RowBox[{
    SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
    SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.7740065543459997`*^9, 3.7740274123907614`*^9, 
  3.788689230632883*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"f3f2d2fe-51cd-4867-a057-6d0f01fcec32"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.711235573212993*^9, 3.711235573353396*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"c0e02d13-db27-4f53-9fda-226a1b0e533a"],

Cell[BoxData[
 RowBox[{"sekk", " ", 
  RowBox[{"(", 
   RowBox[{
    SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
    SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.774006554657569*^9, 3.774027412433612*^9, 
  3.78868923071669*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"2808abc0-f4a9-45c3-a896-aa32acfb36e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"aueo2", "-", 
    RowBox[{"p", "[", "2", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.69073735759613*^9, 3.6907373674870443`*^9}, {
   3.690737455242689*^9, 3.6907374834784203`*^9}, 3.7044637076682158`*^9},
 CellLabel->"In[88]:=",ExpressionUUID->"61f30d66-8b41-4478-9a65-4890a7d91f92"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "2"]}]}]], "Output",
 CellChangeTimes->{3.7740065549524612`*^9, 3.774027412484476*^9, 
  3.78868923080646*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"2523c82d-a6de-4a9b-8da0-84a1d3a7cc12"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"aueo2adj", "-", 
    RowBox[{"padj", "[", "2", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.711235596223436*^9, 3.7112356070656443`*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"fdce305e-02d4-4c13-b614-ff4fc6ba0281"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
    RowBox[{"se", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", 
    RowBox[{"se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "k"}]}], "+", 
    RowBox[{"se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}],
    ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Xi]", "1"]}], "+", 
    SubscriptBox["\[Xi]", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.7740065552374363`*^9, 3.77402741253135*^9, 
  3.7886892308971767`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"92d647d3-ba4c-407e-a7ee-decdc2066334"]
}, Open  ]],

Cell["The symbol of order one for the first Laplacian is", "Text",
 CellChangeTimes->{{3.7502576060961957`*^9, 
  3.750257617040822*^9}},ExpressionUUID->"b01dcde1-c4d1-4447-9516-\
15759a60dca1"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "1", "]"}], "=", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", 
          RowBox[{"m", "[", 
           RowBox[{
            RowBox[{"se", "[", 
             RowBox[{"u", ",", "v", ",", 
              RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
            RowBox[{"du", "[", 
             RowBox[{"k", "[", 
              RowBox[{"u", ",", "v", ",", 
               RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"m", "[", 
          RowBox[{
           RowBox[{"du", "[", 
            RowBox[{"se", "[", 
             RowBox[{"u", ",", "v", ",", 
              RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
           RowBox[{"k", "[", 
            RowBox[{"u", ",", "v", ",", 
             RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"m", "[", 
           RowBox[{
            RowBox[{"dv", "[", 
             RowBox[{"se", "[", 
              RowBox[{"u", ",", "v", ",", 
               RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
            RowBox[{"k", "[", 
             RowBox[{"u", ",", "v", ",", 
              RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]}], ")"}], 
       SubscriptBox["\[Xi]", "1"]}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", 
          RowBox[{"m", "[", 
           RowBox[{
            RowBox[{"se", "[", 
             RowBox[{"u", ",", "v", ",", 
              RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
            RowBox[{"dv", "[", 
             RowBox[{"k", "[", 
              RowBox[{"u", ",", "v", ",", 
               RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "+", 
         RowBox[{"m", "[", 
          RowBox[{
           RowBox[{"dv", "[", 
            RowBox[{"se", "[", 
             RowBox[{"u", ",", "v", ",", 
              RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
           RowBox[{"k", "[", 
            RowBox[{"u", ",", "v", ",", 
             RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"m", "[", 
           RowBox[{
            RowBox[{"du", "[", 
             RowBox[{"se", "[", 
              RowBox[{"u", ",", "v", ",", 
               RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
            RowBox[{"k", "[", 
             RowBox[{"u", ",", "v", ",", 
              RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]}], ")"}], 
       SubscriptBox["\[Xi]", "2"]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.690737543499743*^9, 3.6907375655898333`*^9}, {
   3.7044693678971987`*^9, 3.704469468461199*^9}, {3.704469573766199*^9, 
   3.704469592304199*^9}, {3.704469622428199*^9, 3.704469650913199*^9}, {
   3.704470965487199*^9, 3.704471147399199*^9}, {3.704471185994199*^9, 
   3.704471291154892*^9}, {3.7044820755422134`*^9, 3.704482077677427*^9}, {
   3.7107236748976297`*^9, 3.7107237229615374`*^9}, 3.7107237616497855`*^9, {
   3.710723797218014*^9, 3.7107238587005615`*^9}, {3.7609899634228215`*^9, 
   3.7609900111681595`*^9}, {3.7609900604912796`*^9, 
   3.7609900844432383`*^9}, {3.7609905975926657`*^9, 
   3.7609907178561087`*^9}, {3.760991988173484*^9, 3.7609920166353827`*^9}, {
   3.760992051564988*^9, 3.7609920534669356`*^9}, {3.7609920886398582`*^9, 
   3.760992111687235*^9}, {3.76219428158261*^9, 3.762194327351274*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"227b119a-3b7e-46e3-9dc5-004daba31959"],

Cell["The symbol of order one for the second Laplacian is", "Text",
 CellChangeTimes->{{3.750257619924987*^9, 
  3.7502576364869337`*^9}},ExpressionUUID->"ee63b7f7-9dea-43f1-b8df-\
0ee277db0c61"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"padj", "[", "1", "]"}], "=", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"se", "[", 
      RowBox[{"u", ",", "v", ",", 
       RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"du", "[", 
        RowBox[{"m", "[", 
         RowBox[{
          RowBox[{"se", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], 
       SubscriptBox["\[Xi]", "1"]}], "+", 
      RowBox[{
       RowBox[{"dv", "[", 
        RowBox[{"m", "[", 
         RowBox[{
          RowBox[{"se", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], 
       SubscriptBox["\[Xi]", "2"]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"du", "[", 
        RowBox[{"m", "[", 
         RowBox[{
          RowBox[{"se", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], 
       SubscriptBox["\[Xi]", "2"]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"dv", "[", 
        RowBox[{"m", "[", 
         RowBox[{
          RowBox[{"se", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], 
       SubscriptBox["\[Xi]", "1"]}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.711235664677185*^9, 3.7112356664868083`*^9}, {
   3.7112360080525427`*^9, 3.711236042481963*^9}, {3.711236080452607*^9, 
   3.7112360806398077`*^9}, {3.7112361136496196`*^9, 3.711236141636199*^9}, {
   3.7112361953785434`*^9, 3.7112363612076063`*^9}, {3.7112364473513584`*^9, 
   3.711236526927469*^9}, {3.7112365780489964`*^9, 3.7112365859114466`*^9}, {
   3.7112366357849665`*^9, 3.7112366390453873`*^9}, {3.711236684207677*^9, 
   3.71123669412934*^9}, 3.711236747341282*^9, {3.7112367986656103`*^9, 
   3.711236801317628*^9}, {3.7112368369326563`*^9, 3.7112368718456793`*^9}, 
   3.711236969393105*^9, {3.76099284688628*^9, 3.760993071533614*^9}, {
   3.7621943396193867`*^9, 3.762194367424611*^9}},
 CellLabel->"In[91]:=",ExpressionUUID->"b8a65004-2812-451c-9b92-3f36e0d8a349"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"p", "[", "1", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690737572474592*^9, 3.6907375788879642`*^9}},
 CellLabel->"In[92]:=",ExpressionUUID->"74369f2d-86ea-4704-aa9b-9073a3157a6d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Xi]", "1"], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "2"]}]}]], "Output",
 CellChangeTimes->{3.774006555625168*^9, 3.7740274126450477`*^9, 
  3.7886892310188947`*^9},
 CellLabel->"Out[92]=",ExpressionUUID->"ea16196c-0123-42cb-940b-431cc2ef2539"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"padj", "[", "1", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7112369749155407`*^9, 3.711236982325588*^9}},
 CellLabel->"In[93]:=",ExpressionUUID->"a28a33c8-9fe2-44df-8ac6-9ebe78506788"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
    RowBox[{"se", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", 
    RowBox[{"se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "k"}]}], "+", 
    RowBox[{"se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}],
    ")"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SubscriptBox["\[Xi]", "1"]}], "+", 
    SubscriptBox["\[Xi]", "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{3.774006555877288*^9, 3.7740274126919527`*^9, 
  3.788689231105651*^9},
 CellLabel->"Out[93]=",ExpressionUUID->"3d596e3a-7171-4395-af9a-1407aa618aa5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"aueo2", "-", 
    RowBox[{"p", "[", "2", "]"}], "-", 
    RowBox[{"p", "[", "1", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690737582076898*^9, 3.690737601272496*^9}, 
   3.704463707687216*^9},
 CellLabel->"In[94]:=",ExpressionUUID->"9333d8d0-0f41-4073-9b3b-0057f8ca99bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]], "Output",
 CellChangeTimes->{3.774006556103329*^9, 3.774027412742817*^9, 
  3.788689231193416*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"3fca54fe-5c23-4cf4-80ab-ad00097024d4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"aueo2adj", "-", 
    RowBox[{"padj", "[", "2", "]"}], "-", 
    RowBox[{"padj", "[", "1", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.711236990203638*^9, 3.711237000718106*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"723f1ca3-b4f3-4512-979d-43e44fa44b85"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.774006556378379*^9, 3.7740274127607374`*^9, 
  3.7886892312811813`*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"4c2ad9ac-063c-48c7-afd2-64e4c736e69f"]
}, Open  ]],

Cell["The symbol of order zero for the first Laplacian is", "Text",
 CellChangeTimes->{{3.7502576476565733`*^9, 
  3.750257661629372*^9}},ExpressionUUID->"e7d8ef48-47db-453e-9a22-\
2e24e82d6276"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"p", "[", "0", "]"}], "=", 
   RowBox[{"m", "[", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"kinv", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"se", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
       RowBox[{"k", "[", 
        RowBox[{"u", ",", "v", ",", 
         RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", 
     RowBox[{
      RowBox[{"m", "[", 
       RowBox[{
        RowBox[{"du", "[", 
         RowBox[{"se", "[", 
          RowBox[{"u", ",", "v", ",", 
           RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
        RowBox[{"du", "[", 
         RowBox[{"k", "[", 
          RowBox[{"u", ",", "v", ",", 
           RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}], "+", 
      RowBox[{"m", "[", 
       RowBox[{
        RowBox[{"se", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
        RowBox[{"du", "[", 
         RowBox[{"du", "[", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]}], "]"}], "+", 
      RowBox[{"m", "[", 
       RowBox[{
        RowBox[{"dv", "[", 
         RowBox[{"se", "[", 
          RowBox[{"u", ",", "v", ",", 
           RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
        RowBox[{"dv", "[", 
         RowBox[{"k", "[", 
          RowBox[{"u", ",", "v", ",", 
           RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}], "+", 
      RowBox[{"m", "[", 
       RowBox[{
        RowBox[{"se", "[", 
         RowBox[{"u", ",", "v", ",", 
          RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", 
        RowBox[{"dv", "[", 
         RowBox[{"dv", "[", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]}], "]"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"m", "[", 
        RowBox[{
         RowBox[{"dv", "[", 
          RowBox[{"se", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"du", "[", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "-", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"m", "[", 
        RowBox[{
         RowBox[{"du", "[", 
          RowBox[{"se", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", 
         RowBox[{"dv", "[", 
          RowBox[{"k", "[", 
           RowBox[{"u", ",", "v", ",", 
            RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}]}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQBmIQbduj9rG9/rXjpt6Xn0H0LvYfK3bOfO144m7IShC9
ykLkBYi2KvsPps/MeBe7C0jznBMoA9HN60zKdgPpPo8NNSDapde+BUTXXbPt
ANFVX1jj9wDppFM3k0G09aSKHBCd53uyGEQXnflVBaJXXVhfD6It4iJbQXRT
xukOEH1yYsZiEN2gfXcZiH7jbL4aRHftMNoAoivL7h0C0bM+b7sHokONb/xf
svS141HGUIalQPqGc4swiJ7FsFQMREu9mdbWxvrG8fz8fTNANIdNyxwQrTRV
fh6IvuWVdBdEb1BzuQeiD/Qz/brA/sbROsTvH4gGAC3pqok=
  "],
 CellLabel->"In[96]:=",ExpressionUUID->"d0a96e31-42c7-4c57-9984-17a5b8b55c57"],

Cell["The symbol of order zero for the second Laplacian is", "Text",
 CellChangeTimes->{{3.7502576644615345`*^9, 
  3.750257672203977*^9}},ExpressionUUID->"7edc2570-d318-43d5-9b95-\
4227bc4b9786"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"padj", "[", "0", "]"}], "=", "0"}], ";"}]], "Input",
 CellChangeTimes->{{3.7112818897307825`*^9, 3.711281930669119*^9}, {
   3.711282346518112*^9, 3.7112824225389194`*^9}, {3.7112824537549195`*^9, 
   3.7112824587313833`*^9}, {3.7112824943622403`*^9, 3.711282627322745*^9}, {
   3.7112826790686083`*^9, 3.7112826910495615`*^9}, {3.711282737241517*^9, 
   3.7112827898294535`*^9}, 3.7609930952521877`*^9, 3.760993322602394*^9},
 CellLabel->"In[97]:=",ExpressionUUID->"ca13f4c4-bb23-4d62-9115-0411b709aaf8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"p", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.69074166562519*^9, 3.690741671024407*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"ab98ac28-63d9-459d-a095-a24a806bc00b"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]], "Output",
 CellChangeTimes->{3.7740065567296453`*^9, 3.7740274128295527`*^9, 
  3.788689231388898*^9},
 CellLabel->"Out[98]=",ExpressionUUID->"5de9cf50-d1c3-461d-a611-f36ca8be3f3d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"padj", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7112828082219715`*^9, 3.711282813463605*^9}},
 CellLabel->"In[99]:=",ExpressionUUID->"f427bfef-68c7-46e0-a742-595262b366da"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7740065569743395`*^9, 3.774027412843548*^9, 
  3.788689231478622*^9},
 CellLabel->"Out[99]=",ExpressionUUID->"13fdb6b1-8d02-430a-b6e8-3d9355c4e086"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"aueo2", "-", 
    RowBox[{"p", "[", "2", "]"}], "-", 
    RowBox[{"p", "[", "1", "]"}], "-", 
    RowBox[{"p", "[", "0", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690741685328404*^9, 3.69074169512315*^9}, 
   3.704463707704216*^9},
 CellLabel->
  "In[100]:=",ExpressionUUID->"28261196-e9a2-488a-adf0-93a16e8ff5c6"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.774006557198824*^9, 3.7740274128575106`*^9, 
  3.788689231565424*^9},
 CellLabel->
  "Out[100]=",ExpressionUUID->"18758e93-8076-475d-8964-8b9f61a6d8c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read", "[", 
  RowBox[{"Simplify", "[", 
   RowBox[{"aueo2adj", "-", 
    RowBox[{"padj", "[", "2", "]"}], "-", 
    RowBox[{"padj", "[", "1", "]"}], "-", 
    RowBox[{"padj", "[", "0", "]"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7112828200780478`*^9, 3.7112828347889423`*^9}},
 CellLabel->
  "In[101]:=",ExpressionUUID->"90cad5ea-91eb-458f-b8d6-402ec89e546f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.774006557490614*^9, 3.7740274128744326`*^9, 
  3.7886892316521893`*^9},
 CellLabel->
  "Out[101]=",ExpressionUUID->"e257397a-4905-4013-83b7-89e3e2415dfc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["The resolvents",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.750257878896799*^9, 
  3.7502578816239552`*^9}},ExpressionUUID->"ec9c2115-10cb-44f9-b166-\
338960a98559"],

Cell["\<\
We now introduce two asymptotic resolvents with asymptotic parameter \
\[Lambda], one for each Laplacian. We use the operator symbol o[2] for k^2\
\>", "Text",
 CellChangeTimes->{{3.750257902740163*^9, 
  3.750257955630188*^9}},ExpressionUUID->"7c8cf8c5-0a8f-411d-89f8-\
9116c5e74c88"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"b", "[", "0", "]"}], "=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         SubscriptBox["\[Xi]", "1"], "2"], "+", 
        SuperscriptBox[
         SubscriptBox["\[Xi]", "2"], "2"]}], ")"}], 
      RowBox[{"o", "[", "2", "]"}]}], "-", "\[Lambda]"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.6907380257776203`*^9, 3.6907381066779957`*^9}, {
  3.6907382637084703`*^9, 3.690738271076701*^9}},
 CellLabel->
  "In[102]:=",ExpressionUUID->"3c378d72-92d9-4fbd-a885-2b1f80803164"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"-", "\[Lambda]"}], "+", 
   RowBox[{
    RowBox[{"o", "[", "2", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
      SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}]]], "Output",
 CellChangeTimes->{3.7740065576953363`*^9, 3.7740274128923845`*^9, 
  3.7886892317638597`*^9},
 CellLabel->
  "Out[102]=",ExpressionUUID->"00e53b6a-7462-4812-8330-1c98f6e0c5b3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"badj", "[", "0", "]"}], "=", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox[
         SubscriptBox["\[Xi]", "1"], "2"], "+", 
        SuperscriptBox[
         SubscriptBox["\[Xi]", "2"], "2"]}], ")"}], 
      RowBox[{"o", "[", "2", "]"}]}], "-", "\[Lambda]"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.711282964909376*^9, 3.711282967498993*^9}, 
   3.760994879315528*^9},
 CellLabel->
  "In[103]:=",ExpressionUUID->"951e5695-12e4-4bcf-82bb-ffd4599b921e"],

Cell[BoxData[
 FractionBox["1", 
  RowBox[{
   RowBox[{"-", "\[Lambda]"}], "+", 
   RowBox[{
    RowBox[{"o", "[", "2", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
      SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}]]], "Output",
 CellChangeTimes->{3.774006557931795*^9, 3.77402741291137*^9, 
  3.788689231844678*^9},
 CellLabel->
  "Out[103]=",ExpressionUUID->"9b31ecc4-8d36-438a-b015-a983c4d97c17"]
}, Open  ]],

Cell["\<\
What matters is that one never has to differentiate (with respect to u or v) \
the symbol o[2] which stands for \[CapitalDelta](ek^2e) in the first \
resolvent and \[Sigma](ek^2) in the second resolvent. The various terms that \
appear are listed below\
\>", "Text",
 CellChangeTimes->{{3.7502583110127864`*^9, 3.7502584532957664`*^9}, 
   3.7502590374176254`*^9, {3.7609949147836556`*^9, 3.760994925534916*^9}, {
   3.7609953845574226`*^9, 
   3.760995391839943*^9}},ExpressionUUID->"e1cf8f34-35d3-40c2-aadf-\
71c6b13eeb00"],

Cell["for the first resolvent:", "Text",
 CellChangeTimes->{{3.750259027254557*^9, 
  3.7502590755398827`*^9}},ExpressionUUID->"52cb0237-bdd6-4ea1-96fb-\
3eac9374aceb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]1", "[", 
  RowBox[{"b", "[", "0", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}},
 CellLabel->
  "In[104]:=",ExpressionUUID->"097bacb0-b62b-46fd-bd28-407788f66df4"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}], " ", 
    SubscriptBox["\[Xi]", "1"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.7740065581641626`*^9, 3.774027412929287*^9, 
  3.7886892319304457`*^9},
 CellLabel->
  "Out[104]=",ExpressionUUID->"1c117ecb-9f47-4b02-a1d3-4497990f6962"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]2", "[", 
  RowBox[{"b", "[", "0", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, 
   3.7502585972817683`*^9},
 CellLabel->
  "In[105]:=",ExpressionUUID->"0090239e-7c12-4cb2-aa42-38c3ecdbc6b0"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}], " ", 
    SubscriptBox["\[Xi]", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.774006558415824*^9, 3.7740274129452443`*^9, 
  3.7886892320181804`*^9},
 CellLabel->
  "Out[105]=",ExpressionUUID->"8a265111-a1b5-4f20-b403-d9f36d1db161"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]1", "[", 
  RowBox[{"d\[Xi]1", "[", 
   RowBox[{"b", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, {
   3.7502586175509057`*^9, 3.7502586202389317`*^9}},
 CellLabel->
  "In[106]:=",ExpressionUUID->"2584afab-c112-4b44-b370-840dedb64cf0"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"o", "[", "2", "]"}], "2"], " ", 
    SubsuperscriptBox["\[Xi]", "1", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.7740065586952195`*^9, 3.7740274129621987`*^9, 
  3.788689232105978*^9},
 CellLabel->
  "Out[106]=",ExpressionUUID->"66286572-ce4c-49ef-aae1-a52ff790bb67"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]1", "[", 
  RowBox[{"d\[Xi]2", "[", 
   RowBox[{"b", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, 
   3.7502585972817683`*^9, {3.7502586321180162`*^9, 3.750258636182043*^9}},
 CellLabel->
  "In[107]:=",ExpressionUUID->"f3fdaba7-a7b2-4f7e-aa3c-da7721544a8e"],

Cell[BoxData[
 FractionBox[
  RowBox[{"8", " ", 
   SuperscriptBox[
    RowBox[{"o", "[", "2", "]"}], "2"], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "\[Lambda]"}], "+", 
     RowBox[{
      RowBox[{"o", "[", "2", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
        SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
   "3"]]], "Output",
 CellChangeTimes->{3.7740065589012704`*^9, 3.7740274129811473`*^9, 
  3.788689232195739*^9},
 CellLabel->
  "Out[107]=",ExpressionUUID->"99514746-c42b-4e98-a3d1-ebbfcdc73593"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]2", "[", 
  RowBox[{"d\[Xi]2", "[", 
   RowBox[{"b", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, 
   3.7502585972817683`*^9, {3.7502586521401377`*^9, 3.750258654755164*^9}},
 CellLabel->
  "In[108]:=",ExpressionUUID->"28a696fa-e693-409d-9f13-5c82a9c3d053"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"o", "[", "2", "]"}], "2"], " ", 
    SubsuperscriptBox["\[Xi]", "2", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.7740065590530543`*^9, 3.7740274129971066`*^9, 
  3.7886892322844687`*^9},
 CellLabel->
  "Out[108]=",ExpressionUUID->"8a9c3a70-a5cb-4f05-b678-23cc532edccf"]
}, Open  ]],

Cell["and the second resolvent:", "Text",
 CellChangeTimes->{{3.7502590410276513`*^9, 
  3.7502590797759175`*^9}},ExpressionUUID->"5f6d402f-2306-4076-b567-\
ccb0246629ed"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]1", "[", 
  RowBox[{"badj", "[", "0", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258586420704*^9}},
 CellLabel->
  "In[109]:=",ExpressionUUID->"801c1baf-c469-4a9b-abfd-6ce0414eff2e"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}], " ", 
    SubscriptBox["\[Xi]", "1"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.774006559276883*^9, 3.774027413018049*^9, 
  3.7886892323722334`*^9},
 CellLabel->
  "Out[109]=",ExpressionUUID->"ba9c9e28-1d37-4a2d-8ca9-1034563a9653"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]2", "[", 
  RowBox[{"badj", "[", "0", "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258598569772*^9}},
 CellLabel->
  "In[110]:=",ExpressionUUID->"f68dff43-68c6-45ea-b9df-f00bf7c0cab9"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}], " ", 
    SubscriptBox["\[Xi]", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.774006559407091*^9, 3.7740274130439806`*^9, 
  3.788689232457038*^9},
 CellLabel->
  "Out[110]=",ExpressionUUID->"f21ee8d1-2e22-45bf-b457-5aa5e2f48d08"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]1", "[", 
  RowBox[{"d\[Xi]1", "[", 
   RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258586420704*^9}, {
   3.7502586255509715`*^9, 3.750258628746987*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"f7d9ecd9-ab4f-4258-8b7b-9464e5216a46"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"o", "[", "2", "]"}], "2"], " ", 
    SubsuperscriptBox["\[Xi]", "1", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.7740065596526175`*^9, 3.7740274130689144`*^9, 
  3.7886892325457697`*^9},
 CellLabel->
  "Out[111]=",ExpressionUUID->"db64ee30-3fc2-4138-b355-c79e3cc06d89"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]1", "[", 
  RowBox[{"d\[Xi]2", "[", 
   RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258598569772*^9}, {
   3.7502586420070763`*^9, 3.750258644892101*^9}},
 CellLabel->
  "In[112]:=",ExpressionUUID->"0e838f51-3a77-4008-a1e2-f5f3b16fa9dd"],

Cell[BoxData[
 FractionBox[
  RowBox[{"8", " ", 
   SuperscriptBox[
    RowBox[{"o", "[", "2", "]"}], "2"], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "\[Lambda]"}], "+", 
     RowBox[{
      RowBox[{"o", "[", "2", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
        SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
   "3"]]], "Output",
 CellChangeTimes->{3.7740065600086184`*^9, 3.7740274130908546`*^9, 
  3.7886892326335664`*^9},
 CellLabel->
  "Out[112]=",ExpressionUUID->"10b366f8-c561-471c-9cf8-f0986123731f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"d\[Xi]2", "[", 
  RowBox[{"d\[Xi]2", "[", 
   RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{
  3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258598569772*^9}, {
   3.7502586568271694`*^9, 3.750258659347192*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"359fa1ad-9d6b-4359-b1a2-a8100c7db83f"],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"o", "[", "2", "]"}], "2"], " ", 
    SubsuperscriptBox["\[Xi]", "2", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"o", "[", "2", "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Lambda]"}], "+", 
      RowBox[{
       RowBox[{"o", "[", "2", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
         SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
    "2"]]}]], "Output",
 CellChangeTimes->{3.774006560279713*^9, 3.7740274131118*^9, 
  3.788689232720334*^9},
 CellLabel->
  "Out[113]=",ExpressionUUID->"ae2da68b-7682-4e5a-bae0-2c0bfb59e202"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Reading in a classical manner",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.750258706860489*^9, 
  3.7502587123845263`*^9}},ExpressionUUID->"d9d1a2a8-b10b-4f96-98a1-\
c15314a6db56"],

Cell["We give a way to read the resolvents in a classical manner.", "Text",
 CellChangeTimes->{{3.750258740826725*^9, 
  3.7502588186362133`*^9}},ExpressionUUID->"d8b82475-78de-4262-9ea9-\
abf42942504c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"readresolvent", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"stuff", "/.", 
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         SuperscriptBox[
          RowBox[{"o", "[", "2", "]"}], "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "\[Lambda]"}], "+", 
            RowBox[{
             RowBox[{"o", "[", "2", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
               SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
          "3"]], "\[Rule]", 
        RowBox[{
         SuperscriptBox["ssekk", "2"], 
         SuperscriptBox["ssR", "3"], 
         SubscriptBox["sse", "1"]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"o", "[", "2", "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]"}], "+", 
           RowBox[{
            RowBox[{"o", "[", "2", "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
              SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]],
        "\[Rule]", 
       RowBox[{"ssekk", " ", 
        SuperscriptBox["ssR", "2"], " ", 
        SubscriptBox["sse", "1"]}]}], "}"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      FractionBox[
       RowBox[{"o", "[", "2", "]"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", 
          RowBox[{
           RowBox[{"o", "[", "2", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
             SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]], 
      "\[Rule]", 
      RowBox[{"ssekk", " ", 
       SuperscriptBox["ssR", "2"], 
       SubscriptBox["sse", "1"]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Lambda]"}], "+", 
        RowBox[{
         RowBox[{"o", "[", "2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
           SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}]], 
     "\[Rule]", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.690738695598979*^9, 3.690738798390274*^9}, {
   3.690739620783203*^9, 3.69073968268935*^9}, {3.690739848741856*^9, 
   3.6907398553603783`*^9}, {3.6929853930822983`*^9, 3.692985398339498*^9}, 
   3.692985460333898*^9, 3.692985496791098*^9, {3.692985533825498*^9, 
   3.692985549207098*^9}, {3.7049424956598263`*^9, 3.7049425175240126`*^9}, {
   3.7049425802392836`*^9, 3.704942584158675*^9}, {3.7266902361177034`*^9, 
   3.726690250592704*^9}, {3.7266903304827037`*^9, 3.7266903957967033`*^9}, {
   3.7266904283047037`*^9, 3.7266904283927035`*^9}, {3.7268946959439306`*^9, 
   3.7268947023200903`*^9}, {3.726894744928583*^9, 3.726894754193894*^9}, {
   3.726894797991233*^9, 3.7268948041476746`*^9}, {3.726894880979153*^9, 
   3.726894916944177*^9}, {3.7268955938748207`*^9, 3.726895610182295*^9}, 
   3.7268956996608*^9, 3.7292314828972254`*^9, {3.7323962249646573`*^9, 
   3.7323962269614573`*^9}, {3.7324042423559494`*^9, 
   3.7324042426367493`*^9}, {3.7324042822919493`*^9, 3.7324042841171494`*^9}, 
   3.7325497475995445`*^9, {3.7609959921685095`*^9, 3.76099600629774*^9}, {
   3.7609960939942384`*^9, 3.7609961000879717`*^9}, {3.762194495290456*^9, 
   3.762194523670911*^9}},
 CellLabel->
  "In[114]:=",ExpressionUUID->"900ca195-e488-4aef-a37c-32afbd51531f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"readresolventadj", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"stuff", "/.", 
      RowBox[{"{", 
       RowBox[{
        FractionBox[
         SuperscriptBox[
          RowBox[{"o", "[", "2", "]"}], "2"], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "\[Lambda]"}], "+", 
            RowBox[{
             RowBox[{"o", "[", "2", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
               SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], 
          "3"]], "\[Rule]", 
        RowBox[{
         SuperscriptBox["sekk", "2"], 
         SuperscriptBox["sR", "3"]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       FractionBox[
        RowBox[{"o", "[", "2", "]"}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "\[Lambda]"}], "+", 
           RowBox[{
            RowBox[{"o", "[", "2", "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
              SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]],
        "\[Rule]", 
       RowBox[{"sekk", " ", 
        SuperscriptBox["sR", "2"]}]}], "}"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      FractionBox[
       RowBox[{"o", "[", "2", "]"}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[Lambda]", "-", 
          RowBox[{
           RowBox[{"o", "[", "2", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
             SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]], 
      "\[Rule]", 
      RowBox[{"sekk", " ", 
       SuperscriptBox["sR", "2"]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Lambda]"}], "+", 
        RowBox[{
         RowBox[{"o", "[", "2", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SubsuperscriptBox["\[Xi]", "1", "2"], "+", 
           SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}]], 
     "\[Rule]", "sR"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.711282974238236*^9, 3.711282991913149*^9}, {
  3.711283027840002*^9, 3.7112830418488026`*^9}, {3.726685506674551*^9, 
  3.726685516363491*^9}, {3.732304079756332*^9, 3.7323040800163317`*^9}, {
  3.7323908910179768`*^9, 3.732390893248748*^9}, {3.760996017835912*^9, 
  3.7609960246078095`*^9}, {3.760996104413413*^9, 3.7609961093561974`*^9}, {
  3.7621945384932585`*^9, 3.762194551057972*^9}},
 CellLabel->
  "In[115]:=",ExpressionUUID->"5c9324ba-bb8c-410a-a1ea-474b0d4d5b55"],

Cell[BoxData[
 RowBox[{
  RowBox[{"readall", "[", "stuff_", "]"}], ":=", 
  RowBox[{"readresolvent", "[", 
   RowBox[{"read", "[", "stuff", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.690740596899273*^9, 3.690740643507107*^9}},
 CellLabel->
  "In[116]:=",ExpressionUUID->"7b0bf884-bc40-4c2d-849e-ef5eff3caa21"],

Cell[BoxData[
 RowBox[{
  RowBox[{"readalladj", "[", "stuff_", "]"}], ":=", 
  RowBox[{"readresolventadj", "[", 
   RowBox[{"read", "[", "stuff", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7112830486348023`*^9, 3.711283063501602*^9}},
 CellLabel->
  "In[117]:=",ExpressionUUID->"994f0e89-2f78-4534-b47e-924af4bc4e4a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"read3", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"readall", "[", "stuff", "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{"Dot", "\[Rule]", "cancelling"}], "}"}]}], ")"}], "/.", 
     RowBox[{"{", 
      RowBox[{"cancelling", "\[Rule]", "Dot"}], "}"}]}], ")"}], "/.", 
   RowBox[{"{", 
    RowBox[{"ssR", "\[Rule]", 
     SubscriptBox["ssb", "0"]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.690740650006363*^9, 3.690740675319536*^9}, {
   3.727287731566352*^9, 3.727287814964487*^9}, 3.7609963028498087`*^9, 
   3.7609963380855923`*^9, {3.7621945575971985`*^9, 3.7621945597155795`*^9}, {
   3.762198868237463*^9, 3.762198870416676*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"1818a57b-f09e-42fd-87a7-402f208d0222"],

Cell[BoxData[
 RowBox[{
  RowBox[{"read3adj", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{"readalladj", "[", "stuff", "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{"sR", "\[Rule]", 
     SubscriptBox["sb", "0"]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.7112830723936024`*^9, 3.7112831117836027`*^9}, {
   3.726895533197718*^9, 3.726895536957159*^9}, 3.7609963070286627`*^9, 
   3.7609963415702705`*^9, {3.762194562403208*^9, 3.7621945636417656`*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"176a942d-3a17-434e-8acd-4f8b6cfa54e0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Symbols of order -3",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.7502588548274508`*^9, 
  3.7502588871126657`*^9}},ExpressionUUID->"32fbfb42-c766-4ac4-bd47-\
66233a5d570c"],

Cell["For the first resolvent", "Text",
 CellChangeTimes->{{3.750258939947004*^9, 3.750258945706041*^9}, {
  3.750259118535163*^9, 3.7502591191611643`*^9}, {3.750259156231411*^9, 
  3.750259156934412*^9}, {3.7502592564850616`*^9, 
  3.7502592571520643`*^9}},ExpressionUUID->"b0e3bd9e-c009-4ed5-ab6b-\
2f843f05fe93"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"b", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"b", "[", "0", "]"}], ",", 
       RowBox[{"p", "[", "1", "]"}], ",", 
       RowBox[{"b", "[", "0", "]"}]}], "]"}]}], "-", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"b", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"p", "[", "2", "]"}], "]"}], ",", 
      RowBox[{"b", "[", "0", "]"}]}], "]"}], "-", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]2", "[", 
       RowBox[{"b", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"dv", "[", 
       RowBox[{"p", "[", "2", "]"}], "]"}], ",", 
      RowBox[{"b", "[", "0", "]"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.690740702880063*^9, 3.690740762758829*^9}, {
  3.6907408367151747`*^9, 3.6907408586757727`*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"cf58f439-6270-44a6-b53a-40e56b9df110"],

Cell["For the second resolvent", "Text",
 CellChangeTimes->{{3.750258949023054*^9, 3.7502589535130844`*^9}, {
  3.750259121788189*^9, 3.75025912258819*^9}, {3.7502591607714415`*^9, 
  3.7502591615024433`*^9}, {3.750259259864089*^9, 
  3.750259260591091*^9}},ExpressionUUID->"5b141905-8e84-4979-a79a-\
96825a76d32e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"badj", "[", "1", "]"}], "=", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"badj", "[", "0", "]"}], ",", 
       RowBox[{"padj", "[", "1", "]"}], ",", 
       RowBox[{"badj", "[", "0", "]"}]}], "]"}]}], "-", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"badj", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"padj", "[", "2", "]"}], "]"}], ",", 
      RowBox[{"badj", "[", "0", "]"}]}], "]"}], "-", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]2", "[", 
       RowBox[{"badj", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"dv", "[", 
       RowBox[{"padj", "[", "2", "]"}], "]"}], ",", 
      RowBox[{"badj", "[", "0", "]"}]}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7112831427028027`*^9, 3.7112831646208024`*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"28164ce9-3170-488c-8f71-54358c8c6195"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"readall", "[", 
  RowBox[{"b", "[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.690740876415843*^9, 3.690740881222558*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"b760e14a-69f8-426f-9698-0819b28bafa4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SuperscriptBox["ssR", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Xi]", "1"], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SuperscriptBox["ssR", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SuperscriptBox["ssR", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SuperscriptBox["ssR", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssR", " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}]}]], "Output",
 CellChangeTimes->{3.7740065614985495`*^9, 3.774027413295308*^9, 
  3.7886892329317694`*^9},
 CellLabel->
  "Out[122]=",ExpressionUUID->"f724fa43-ebd7-4547-ab06-18b80069a07a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"readalladj", "[", 
  RowBox[{"badj", "[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7112831712196026`*^9, 3.711283174901202*^9}},
 CellLabel->
  "In[123]:=",ExpressionUUID->"3bdd92e8-cbbf-4cc7-8496-5d03df46e9b1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Xi]", "1"], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"sR", ".", "se", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sR"}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"sR", ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sR"}]}], "+", 
    RowBox[{"sR", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "sR"}], 
    "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"sR", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
      "sR"}]}], "+", 
    RowBox[{"sR", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", "sR"}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{"sR", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "sR"}]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SuperscriptBox["sR", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "sR"}], " ", 
     SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SuperscriptBox["sR", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "sR"}], " ", 
     SubscriptBox["\[Xi]", "1"], " ", 
     SubscriptBox["\[Xi]", "2"]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SuperscriptBox["sR", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "sR"}], " ", 
     SubscriptBox["\[Xi]", "1"], " ", 
     SubscriptBox["\[Xi]", "2"]}], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SuperscriptBox["sR", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "sR"}], " ", 
     SubsuperscriptBox["\[Xi]", "2", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.774006561597028*^9, 3.7740274133611307`*^9, 
  3.788689233017553*^9},
 CellLabel->
  "Out[123]=",ExpressionUUID->"332e0717-03c1-4d0b-9153-1d7a351540d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read3", "[", 
  RowBox[{"b", "[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6907409053961487`*^9, 3.690740908269652*^9}},
 CellLabel->
  "In[124]:=",ExpressionUUID->"a7fe4dd0-69b5-4585-8419-d9d3a8973b13"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Xi]", "1"], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}]}]], "Output",
 CellChangeTimes->{3.7740065617919893`*^9, 3.774027413385068*^9, 
  3.788689233109296*^9},
 CellLabel->
  "Out[124]=",ExpressionUUID->"85b18604-7d68-4023-a08c-7078bc08c525"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read3adj", "[", 
  RowBox[{"badj", "[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.7112831796436024`*^9, 3.7112831827324023`*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"51ee5cb4-ea13-4e60-8025-0990a5fa2786"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["\[Xi]", "1"], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
     SubscriptBox["sb", "0"]}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{
      SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
      SubscriptBox["sb", "0"]}]}], "+", 
    RowBox[{
     SubscriptBox["sb", "0"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
     SubscriptBox["sb", "0"]}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{
      SubscriptBox["sb", "0"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
      SubscriptBox["sb", "0"]}]}], "+", 
    RowBox[{
     SubscriptBox["sb", "0"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", 
     SubscriptBox["sb", "0"]}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     RowBox[{
      SubscriptBox["sb", "0"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", 
      SubscriptBox["sb", "0"]}]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
      SubscriptBox["sb", "0"]}], " ", 
     SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
      SubscriptBox["sb", "0"]}], " ", 
     SubscriptBox["\[Xi]", "1"], " ", 
     SubscriptBox["\[Xi]", "2"]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
      SubscriptBox["sb", "0"]}], " ", 
     SubscriptBox["\[Xi]", "1"], " ", 
     SubscriptBox["\[Xi]", "2"]}], "+", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"sekk", " ", 
        SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
      SubscriptBox["sb", "0"]}], " ", 
     SubsuperscriptBox["\[Xi]", "2", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.774006562081744*^9, 3.7740274134100018`*^9, 
  3.78868923320205*^9},
 CellLabel->
  "Out[125]=",ExpressionUUID->"a8bf0ade-5695-4753-a430-1c8769177f0a"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Symbol of order -4",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.7502592835582294`*^9, 
  3.7502592911752853`*^9}},ExpressionUUID->"f30f0a2c-63ed-4f0b-ab15-\
c30b18be82b8"],

Cell[TextData[{
 "The relevant quantity is the following which needs to be multiplied on the \
right by -",
 Cell[BoxData[
  FormBox[
   SubscriptBox["ssb", "0"], TraditionalForm]],ExpressionUUID->
  "7155cc87-f03f-4df4-80ae-27061ca141c9"],
 " (-",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["b", "0"], "'"}], TraditionalForm]],ExpressionUUID->
  "83881c09-d58d-4f53-99fd-cf3663a43792"],
 " in the paper) or -",
 Cell[BoxData[
  FormBox[
   SubscriptBox["sb", "0"], TraditionalForm]],ExpressionUUID->
  "1cc0c41b-a061-4dd2-9137-34a5f3756928"],
 " (",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "74f39a8f-42b8-45a9-9b2d-c84170f3887d"],
 " in the paper)."
}], "Text",
 CellChangeTimes->{{3.7502593080603905`*^9, 3.7502594013080187`*^9}, {
  3.7609984038491735`*^9, 3.760998418865054*^9}, {3.762698848105191*^9, 
  3.7626990444401903`*^9}},ExpressionUUID->"e19a2f5c-eb79-41f5-a903-\
929ce92eadeb"],

Cell["For the first resolvent", "Text",
 CellChangeTimes->{{3.7502594390412617`*^9, 
  3.7502594435162945`*^9}},ExpressionUUID->"ac6635b0-7f25-458d-8564-\
cfb703b46df4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"minusresolventtimesb0inverse", "=", 
   RowBox[{
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"b", "[", "0", "]"}], ",", 
      RowBox[{"p", "[", "0", "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"b", "[", "1", "]"}], ",", 
      RowBox[{"p", "[", "1", "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"b", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"p", "[", "1", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]2", "[", 
       RowBox[{"b", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"dv", "[", 
       RowBox[{"p", "[", "1", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"b", "[", "1", "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"p", "[", "2", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]2", "[", 
       RowBox[{"b", "[", "1", "]"}], "]"}], ",", 
      RowBox[{"dv", "[", 
       RowBox[{"p", "[", "2", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"d\[Xi]1", "[", 
        RowBox[{"d\[Xi]1", "[", 
         RowBox[{"b", "[", "0", "]"}], "]"}], "]"}], ",", 
       RowBox[{"du", "[", 
        RowBox[{"du", "[", 
         RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"d\[Xi]2", "[", 
        RowBox[{"d\[Xi]2", "[", 
         RowBox[{"b", "[", "0", "]"}], "]"}], "]"}], ",", 
       RowBox[{"dv", "[", 
        RowBox[{"dv", "[", 
         RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"d\[Xi]2", "[", 
        RowBox[{"b", "[", "0", "]"}], "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"dv", "[", 
        RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.690741019289274*^9, 3.6907412490676727`*^9}, {
  3.690741592577096*^9, 3.690741609539744*^9}, {3.6907417515161047`*^9, 
  3.690741811785851*^9}, {3.6908254934932747`*^9, 3.690825531839592*^9}, {
  3.691348398886694*^9, 3.6913484105086937`*^9}, {3.691348464547094*^9, 
  3.691348466653094*^9}, {3.6913486343590937`*^9, 3.691348679848694*^9}, {
  3.692985713164098*^9, 3.692985724786098*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"5c3e5928-aa93-4ccb-9a10-48fbad8705ad"],

Cell["For the second resolvent", "Text",
 CellChangeTimes->{{3.7502594475033236`*^9, 
  3.7502594514013553`*^9}},ExpressionUUID->"0b1741cf-d051-486e-828f-\
b6733f695369"],

Cell[BoxData[
 RowBox[{
  RowBox[{"minusresolventtimesb0inverseadj", "=", 
   RowBox[{
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"badj", "[", "0", "]"}], ",", 
      RowBox[{"padj", "[", "0", "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"badj", "[", "1", "]"}], ",", 
      RowBox[{"padj", "[", "1", "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"badj", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"padj", "[", "1", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]2", "[", 
       RowBox[{"badj", "[", "0", "]"}], "]"}], ",", 
      RowBox[{"dv", "[", 
       RowBox[{"padj", "[", "1", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"badj", "[", "1", "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"padj", "[", "2", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]2", "[", 
       RowBox[{"badj", "[", "1", "]"}], "]"}], ",", 
      RowBox[{"dv", "[", 
       RowBox[{"padj", "[", "2", "]"}], "]"}]}], "]"}], "+", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"d\[Xi]1", "[", 
        RowBox[{"d\[Xi]1", "[", 
         RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}], ",", 
       RowBox[{"du", "[", 
        RowBox[{"du", "[", 
         RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"1", "/", "2"}], " ", 
     RowBox[{"m", "[", 
      RowBox[{
       RowBox[{"d\[Xi]2", "[", 
        RowBox[{"d\[Xi]2", "[", 
         RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}], ",", 
       RowBox[{"dv", "[", 
        RowBox[{"dv", "[", 
         RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", 
    RowBox[{"m", "[", 
     RowBox[{
      RowBox[{"d\[Xi]1", "[", 
       RowBox[{"d\[Xi]2", "[", 
        RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}], ",", 
      RowBox[{"du", "[", 
       RowBox[{"dv", "[", 
        RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7112832332296023`*^9, 3.7112832741016026`*^9}},
 CellLabel->
  "In[127]:=",ExpressionUUID->"aeada54a-1a78-41c5-87e5-cb51658c6681"],

Cell["Here is the expression readable in the classical manner", "Text",
 CellChangeTimes->{{3.7502594901236167`*^9, 
  3.7502595126187553`*^9}},ExpressionUUID->"db4eb7f3-6fac-4248-924a-\
9c1f6ab51744"],

Cell["For the first resolvent", "Text",
 CellChangeTimes->{{3.75025951440876*^9, 
  3.750259517798787*^9}},ExpressionUUID->"1591f840-725f-420a-8716-\
f739d856d21e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"read3", "[", 
  RowBox[{"Simplify", "[", "minusresolventtimesb0inverse", "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.690741613091055*^9, 3.6907416189487886`*^9}, {
   3.690741778936223*^9, 3.690741820356474*^9}, {3.6908255471064777`*^9, 
   3.6908255486112003`*^9}, {3.6908255890583057`*^9, 3.69082559365831*^9}, 
   3.691348416639494*^9, 3.691348679864294*^9, {3.692985736283298*^9, 
   3.692985741930498*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"0b7ba19d-058b-4851-a492-5d508fe999f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "6"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "6"]}]}]], "Output",
 CellChangeTimes->{3.774006566321628*^9, 3.774027416211509*^9, 
  3.788689234754865*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"fdabccc0-e9c1-4349-9c7c-ed102ba4e677"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "f6200ec3-a639-403c-a5b2-3007ff9ef6df"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"c1c0044d-6ac0-4fef-997e-\
993a4076b243"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}},
 CellLabel->
  "In[129]:=",ExpressionUUID->"5c50191b-a63b-4669-98f6-5923dae0de3a"],

Cell["\<\
-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^6-8 \
\\left(\\text{ssekk}^2
   \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^6-4 \
\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \
\\xi _1^5-4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \
\\xi _1^5-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \\xi _1^5-8 \
\\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2 \\xi _1^5-8 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^4-4 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^4-16 \
\\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^2 \\xi _1^4-8 \\left(\\text{ssekk}^2 \
\\text{ssb}_0^3 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^2 \\xi _1^4+4 \\left(\\text{ssekk}^2 \
\\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi
   _1^4+6 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _1^4+2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _1^4+4 \
\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _1^4+2 \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^4+2 i \
\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^4+4 \
\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \
\\xi _1^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _1^4+2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _1^4+4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _1^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _1^4+2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _1^4-8 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \
\\xi _1^3-8 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \
\\xi _1^3-16 \\left(\\text{ssekk}^2 \\text{ssb}_0^3
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1^3-16 \
\\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^3 \\xi _1^3+8 \\left(\\text{ssekk}^2 \
\\text{ssb}_0^3 \\text{sse}_1\\right).\\left(\\delta _1 \\delta
   _2(\\text{ssekksse})\\right) \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi
   _2 \\xi _1^3+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\
\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \
\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2 \\xi _1^3-2 i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \
\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \
\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 i \
\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \
\\left(\\text{ssekk}
   \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \
\\xi _2 \\xi _1^3+4 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \
\\xi _2 \\xi _1^3-2 i \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 i \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2 \\xi _1^3-2 i \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k \\xi _2 \\xi _1^3+2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _2 \\xi _1^3+2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k \\xi _2 \\xi _1^3+2 i \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k \\xi _2 \\xi _1^3-4 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\
\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^4 \\xi _1^2-8 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^4 \
\\xi _1^2-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^4 \\xi _1^2-16 \
\\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^4 \\xi _1^2+4 \\left(\\text{ssekk}^2 \
\\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi
   _2^2 \\xi _1^2+4 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \
\\text{sse}_1\\right).\\delta _2^2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+8 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+8 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssb}_0 \\text{sse}_1\
\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta
   _1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssb}_0 \\text{sse}_1\
\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta
   _2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 \\left(\\text{ssb}_0 \\text{sse}_1\
\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2-2 i \
\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 i \
\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 \
\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \
\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \
\\xi _2^2 \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \
\\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2-2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2^2 \\xi _1^2+2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2^2 \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2^2 \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2^2 \\xi _1^2-\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi \
_1^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2^2(\
\\text{ssekksse}) \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1^2(k) \\xi _1^2-6 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _1(k)
   \\xi _1^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1^2(\\text{se}).k \
\\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta _1(k) \\xi _1^2-2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\left(\\delta _1 \\delta
   _2(\\text{se})\\right).k \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_1(k).\\text{se}.\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta \
_1(\\text{se}).k \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta
   _2(\\text{se}).k \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_1(k).k.\\text{se}.\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \
_1(\\text{se}).k \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta
   _2(\\text{se}).k \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_1(\\text{se}).k.k.\\text{se}.\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta \
_1(\\text{se}).k \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta
   _2(\\text{se}).k \\xi _1^2-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \
\\xi _1^2-2
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \
\\xi _1^2-\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _1^2+i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _1^2-i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _1^2-\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \\xi _1^2+2 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _1^2+2 i \
\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _2(\\text{se}).k
   \\xi _1^2-4 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\text{se}.\\delta _1(k) \\xi _1^2-2
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _1(\\text{se}).k \\xi _1^2-2 i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _2(\\text{se}).k \\xi _1^2-2
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \\xi
   _1^2-\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _1^2-i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _1^2-2 i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _1^2-i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi
   _1^2+\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _1^2-4
   \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^5 \\xi _1-4
   \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^5 \\xi _1-8
   \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^5 \\xi _1-8 \\left(\\text{ssekk}^2
   \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\
\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^5 \
\\xi _1+8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3
   \\text{sse}_1\\right).\\left(\\delta _1 \\delta \
_2(\\text{ssekksse})\\right) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}) \\xi _2^3 \\xi _1-2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\
\\delta _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\
\\delta _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}) \\xi _2^3 \\xi _1-2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\
\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\
\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\
\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\
\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2^3 \\xi _1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2^3 \\xi _1+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2^3 \\xi _1-8 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\left(\\delta _1
   \\delta _2(k)\\right) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\
\\text{se}).\\delta _1(k) \\xi _2 \\xi _1-6 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _2(k) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1^2(\\text{se}).k \\xi _2 \\xi _1-6 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta
   _1(k) \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta _2(k) \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\left(\\delta _1 \
\\delta _2(\\text{se})\\right).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _2^2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_1(k).\\text{se}.\\delta _2(k) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_1(k).\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta
   _1(k).\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_2(k).\\text{se}.\\delta _1(k) \\xi _2 \\xi _1-2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_2(k).\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta
   _2(k).\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_1(k).k.\\text{se}.\\delta _2(k) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_1(k).k.\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta
   _1(k).k.\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_2(k).k.\\text{se}.\\delta _1(k) \\xi _2 \\xi _1-2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_2(k).k.\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta
   _2(k).k.\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_1(\\text{se}).k.k.\\text{se}.\\delta _2(k) \\xi _2 \\xi _1+2 i \
\\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_1(\\text{se}).k.k.\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _1(\\text{se}).k.k.\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_2(\\text{se}).k.k.\\text{se}.\\delta _1(k) \\xi _2 \\xi _1-2
   \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \
_1(\\text{se}).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \
_2(\\text{se}).k \\xi _2 \\xi _1+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \\xi _2 \\xi \
_1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\
\\delta
   _1(\\text{se}).k \\xi _2 \\xi _1+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _2(\\text{se}).k \\xi _2 \\xi _1+4 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_2(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \\xi _2 \\xi _1+2 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _2 \\xi \
_1+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\
\\delta
   _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2 \\xi _1+2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2 \\xi _1-4 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2 \\xi _1-2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2 \\xi _1+2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2 \\xi _1+2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
\\xi _2 \\xi _1-2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2 \\xi _1-2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2 \\xi _1-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\
\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi \
_2^6-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^6+4 \
\\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta \
_2^2(\\text{ssekksse}) \\xi _2^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^4+6 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^4+4 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta
   _2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^4-2 i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^4+2 \
\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^4+4 \
\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \
\\xi _2^4-2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^4+4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2^4-2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2^4-\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi \
_2^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2^2(\
\\text{ssekksse}) \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2^2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _2(k)
   \\xi _2^2-6 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta _2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\left(\\delta _1 \
\\delta _2(\\text{se})\\right).k \\xi _2^2-2 \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _2^2(\\text{se}).k \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_2(k).\\text{se}.\\delta _2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta \
_1(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta
   _2(\\text{se}).k \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_2(k).k.\\text{se}.\\delta _2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \
_1(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta
   _2(\\text{se}).k \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_2(\\text{se}).k.k.\\text{se}.\\delta _2(k) \\xi _2^2+2 i \
\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \
_1(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta
   _2(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \
\\xi _2^2-2
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \
\\xi _2^2-\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^2+i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^2-i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) \\xi _2^2-\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) \\xi _2^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_2(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \\xi _2^2-2 i \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _2^2+2 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _2(\\text{se}).k \\xi
   _2^2-4 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\text{se}.\\delta _2(k) \\xi _2^2+2 i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _1(\\text{se}).k \\xi _2^2-2
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _2(\\text{se}).k \\xi _2^2+2 i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \\xi
   _2^2+\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
\\xi _2^2+i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
\\xi _2^2-2
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
\\xi _2^2+i
   \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi
   _2^2-\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \\xi
   _2^2+\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1^2(k)+\
\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta
   _2^2(k)+\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _1(k)-i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta
   _1(\\text{se}).\\delta _2(k)+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\
\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).\\delta \
_1(k)+\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta _2(k)\
\>", "Output",
 CellChangeTimes->{3.7740065679620075`*^9, 3.774027417423267*^9, 
  3.7886892354839582`*^9},
 CellLabel->
  "Out[129]//TeXForm=",ExpressionUUID->"5fe1458d-5cc7-4d53-a26b-70db4c38318c"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.7502595780001736`*^9, 
  3.7502595925132675`*^9}},ExpressionUUID->"5ed89e10-f770-42da-8535-\
c91286b7b5d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"90457606-ebd7-43d8-83f5-ea9386e5df2e"],

Cell[BoxData["232"], "Output",
 CellChangeTimes->{3.774006568228563*^9, 3.7740274175569086`*^9, 
  3.788689235585675*^9},
 CellLabel->
  "Out[130]=",ExpressionUUID->"c7b94b32-53f6-44f0-8f9e-fb8a5a30c2bf"]
}, Open  ]],

Cell["For the second resolvent", "Text",
 CellChangeTimes->{{3.75025951440876*^9, 
  3.7502595470689707`*^9}},ExpressionUUID->"e3a3dd05-14df-4f0d-a3c0-\
2555742b15fe"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{"read3adj", "[", 
   RowBox[{"Simplify", "[", "minusresolventtimesb0inverseadj", "]"}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7112832823384027`*^9, 3.7112832929464025`*^9}, {
  3.7610011228194*^9, 3.761001125316723*^9}},
 CellLabel->
  "In[131]:=",ExpressionUUID->"c19fb80f-4663-4e37-a398-57f9c7797148"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"sekk", " ", 
       SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".",
     "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", 
    ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".",
     "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", 
    ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".",
     "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "5"], " ", 
   SubscriptBox["\[Xi]", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", 
    ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".",
     "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "4"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], " ", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], ")"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "3"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"6", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
   " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"16", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "1", "2"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", 
   SubscriptBox["\[Xi]", "1"], " ", 
   SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", 
  RowBox[{"4", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "6"]}], "-", 
  RowBox[{"8", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", 
   SubsuperscriptBox["\[Xi]", "2", "6"]}]}]], "Output",
 CellChangeTimes->{3.7740065801583376`*^9, 3.7740274233769684`*^9, 
  3.7886892408635674`*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"efc92aa0-9d5c-4855-bd7a-46ec29aaae9a"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "1beda4b3-c652-4c1f-b3f5-bf88db812b56"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"b313e1bb-6d3c-4c98-8aa5-\
294db8837b37"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"92ee9d98-28de-4d82-862b-5675f5daa70e"],

Cell["\<\
-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _1^6-8 \\left(\\text{sekk}^2 \
\\text{sb}_0^3\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^6-4 \\left(\
\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) \\xi _2 \\xi
   _1^5-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _2 \\xi _1^5-8 \\left(\\text{sekk}^2 \
\\text{sb}_0^3\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^5-8 \
\\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^5-8
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _2^2 \\xi _1^4-4 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) \\xi _2^2 \\xi _1^4-16 \\left(\\text{sekk}^2 \
\\text{sb}_0^3\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \
_1(\\text{sekk})
   \\xi _2^2 \\xi _1^4-8 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^4+4 \
\\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta
   _1^2(\\text{sekk}) \\xi _1^4+6 \\left(\\text{sekk} \\text{sb}_0^2\\right).\
\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^4+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _1^4+2 \
\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _1^4-2 i
   \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _1(\\text{sekk}) \\xi _1^4+2 \\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}) \\xi _1^4-2 i \\text{sb}_0.\\text{se}.\\delta \
_2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \
\\xi _1^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^4-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^4+2 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\
\\text{sekk}) \\xi _1^4-2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi
   _1^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^4-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^4+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^4-2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _1^4+2 \
\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}) \\xi _1^4-2 i \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _1^4+2 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\
\\delta _1(\\text{sekk}) \\xi _1^4-2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta
   _1(\\text{sekk}) \\xi _1^4+2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \
_1^4-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_1^4-8 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk})
   \\xi _2^3 \\xi _1^3-8 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _2^3 \\xi _1^3-16 \\left(\\text{sekk}^2
   \\text{sb}_0^3\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \
_2(\\text{sekk}) \\xi _2^3 \\xi _1^3-16 \\left(\\text{sekk}^2 \
\\text{sb}_0^3\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta
   _1(\\text{sekk}) \\xi _2^3 \\xi _1^3+8 \\left(\\text{sekk}^2 \
\\text{sb}_0^3\\right).\\left(\\delta _1 \\delta _2(\\text{sekk})\\right) \
\\xi _2 \\xi _1^3+4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+4 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 i
   \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \
\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i
   \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2
   \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta
   _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\
\\text{sekk}) \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\
\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk})
   \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\
\\delta _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1^3+2 \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\
\\delta _2(k) \\xi _2 \\xi _1^3+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta
   _1(k).k \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2 \\xi _1^3+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi \
_1^3-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\
\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2 \\xi _1^3+2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1^3-2 \
i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2 \\xi \
_1^3+2 i \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _2 \\xi
   _1^3+2 \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\
\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi \
_1^3-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi
   _1^3+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \
\\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2
   \\xi _1^3-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \
\\xi _1^3-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _2^4 \\xi _1^2-8 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^4 \\xi _1^2-8 \
\\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^4 \\xi _1^2-16
   \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4 \\xi _1^2+4 \
\\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _1^2(\\text{sekk}) \\xi \
_2^2 \\xi
   _1^2+4 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_2^2(\\text{sekk}) \\xi _2^2 \\xi _1^2+8 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi
   _2^2 \\xi _1^2+8 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \
\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i
   \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i
   \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2 \\xi \
_1^2-2 i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2 \\xi \
_1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2 \\xi \
_1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\
\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2 \\xi _1^2+2 i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2 \\xi \
_1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2 \\xi \
_1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\
\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2 \\xi _1^2+2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2 \\xi \
_1^2+2 \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \
\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i
   \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi \
_1^2+2 i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi \
_1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi \
_1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi
   _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2^2 \
\\xi _1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_2^2 \\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi
   _2^2 \\xi _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2^2 \
\\xi _1^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1^2(\\text{sekk}) \\xi _1^2-\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2^2(\\text{sekk}) \\xi _1^2-2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1^2(k) \\xi \
_1^2+2 i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\left(\\delta _1 \
\\delta _2(k)\\right) \\xi _1^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\
\\text{se}.\\delta _1(k).\\delta _1(k) \\xi _1^2+2 i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(k).\\delta _2(k) \\xi _1^2-2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(k).k \\xi _1^2+2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta _1(k) \\xi _1^2+2 \
i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \
\\delta _2(k)\\right).k \\xi _1^2-4 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _1(k) \
\\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.\\delta _2(k) \\xi _1^2-4 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).\\delta _1(k).k \
\\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).\\delta _2(k).k \\xi _1^2-2 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(\\text{se}).k.k \\xi _1^2+2 \
i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.\\delta _1(k) \\xi _1^2+2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).\\delta _1(k).k \
\\xi _1^2+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta \
_2(\\text{se})\\right).k.k \\xi _1^2-2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{se}).\\text{se}.k.\\delta _1(k) \\xi _1^2+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi \
_1^2-2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{se}).\\text{se}.\\delta _1(k).k \\xi _1^2+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\\delta _2(k).k \\xi \
_1^2-2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta \
_1(\\text{se}).k.k \\xi _1^2+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta _2(\\text{se}).k.k \\xi
   _1^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi _1^2-i \\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _1^2+i
   \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi _1^2-\\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \
_1^2-\\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^2-i \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \
\\xi _1^2+i \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta
   _1(\\text{sekk}) \\xi _1^2-\\text{sb}_0.\\text{se}.\\delta \
_2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \
_1^2-\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi
   _1^2-i \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi
   _1^2-\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \
_1^2-\\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^2+i
   \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _1^2-\\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^2+i
   \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \
_2(k).k \\xi _1^2+i \\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi
   _1^2+\\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^2+i \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \
_1(k).k \\xi
   _1^2+\\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \
_1^2-\\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^2+i
   \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _1^2-\\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta \
_1(k) \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \
_1(k).k \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \
_1^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _1^2+i \\text{sb}_0.\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _1^2+i \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _1^2+\\text{sb}_0.\\text{se}.k.\\delta
   _2(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_1^2-\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _1^2+i \\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_1^2-\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta
   _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi \
_1^2-\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta
   _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\
\\delta _1(k) \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^2+i \
\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi \
_1^2+\\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \
_1^2-\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \
_1^2+i \\text{sb}_0.\\text{se}.\\delta
   _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_1^2+i \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi
   _1^2+\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_1^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^5 \\xi _1-4 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) \\xi _2^5
   \\xi _1-8 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^5 \\xi _1-8 \
\\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^5 \\xi _1+8 \
\\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\left(\\delta _1 \\delta \
_2(\\text{sekk})\\right) \\xi _2^3 \\xi _1+4 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \
_2(\\text{sekk}) \\xi _2^3 \\xi _1+4 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi
   _2^3 \\xi _1+2 i \\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \
\\xi _2^3 \\xi _1+2 \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i
   \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1+2 \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2
   \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1+2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta
   _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\
\\text{sekk}) \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\
\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk})
   \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\
\\delta _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^3 \\xi _1+2 \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\
\\delta _2(k) \\xi _2^3 \\xi _1+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta
   _1(k).k \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^3 \\xi _1+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^3 \\xi \
_1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^3 \\xi _1+2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^3 \\xi _1-2 \
i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^3 \\xi \
_1+2 i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi
   _1+2 \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \
\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi \
_1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2
   i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \
i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \
_2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi
   _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2^3 \
\\xi _1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_2^3 \\xi _1-2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.k.\\delta _1^2(k) \\xi _2 \\xi _1-4 \\left(\
\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.k.\\left(\\delta _1 \\delta \
_2(k)\\right) \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\
\\text{se}.k.\\delta _2^2(k) \\xi _2 \\xi _1-4 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).\\delta _1(k) \\xi _2 \\xi \
_1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(k).\\delta _2(k) \\xi _2 \\xi _1-2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(k).k \\xi _2 \\xi _1-4 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta \
_1(k) \\xi _2 \\xi _1+4 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta _2(k) \\xi _2 \\xi \
_1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \
\\delta _2(k)\\right).k \\xi _2 \\xi _1+2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(k).k \\xi _2 \\xi _1-4 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.\\delta _1(k) \\xi _2 \\xi _1-4 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _2(k) \
\\xi _2 \\xi _1-4 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).\\delta _1(k).k \\xi \
_2 \\xi _1-4
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).\\delta _2(k).k \\xi _2 \\xi _1-2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(\\text{se}).k.k \\xi _2 \\xi \
_1-4
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.\\delta _1(k) \\xi _2 \\xi _1+4 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.\\delta _2(k) \\xi \
_2
   \\xi _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).\\delta _1(k).k \\xi _2 \\xi _1+4 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).\\delta _2(k).k
   \\xi _2 \\xi _1-4 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta \
_2(\\text{se})\\right).k.k \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta
   _2^2(\\text{se}).k.k \\xi _2 \\xi _1-2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.k.\\delta _1(k) \\xi \
_2 \\xi _1-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi _2 \\xi _1-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\
\\delta _1(k).k \\xi _2 \\xi _1-2 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\\delta _2(k).k \
\\xi _2 \\xi _1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{se}).\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1-2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta \
_2(\\text{se}).k.k \\xi _2 \\xi _1-2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.k.\\delta _1(k) \\xi \
_2 \\xi
   _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi _2 \\xi _1-2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.\
\\delta _1(k).k \\xi
   _2 \\xi _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\text{se}.\\delta _2(k).k \\xi _2 \\xi _1-2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta
   _1(\\text{se}).k.k \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta _2(\\text{se}).k.k \\xi \
_2 \\xi _1-2 i \\text{sb}_0.\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \
_2(k).k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.k.\\delta
   _2(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1+2 i \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.k.\\delta
   _2(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1+2 i \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \
_2(k).k \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \
_2(k).k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1+2 i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1+2 i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \
_2(k).k \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k \\xi _2 \\xi _1-2
   \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _2 \\xi _1+2 i \\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \\xi
   _1-2 i \\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k \\xi _2
   \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\
\\delta _2(k)
   \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1-2 \
\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta
   _2(k).k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta \
_2(k).k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1+2 \
i \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1+2 \
i \\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2 \\xi \
_1-2 \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1+2 i
   \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2 \\xi _1-2 \
i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\
\\delta _1(\\text{se}).k.k
   \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \
\\xi _1-2 \\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \
_2 \\xi _1+2 i \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \
\\xi _1-4
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) \\xi _2^6-8 \\left(\\text{sekk}^2 \
\\text{sb}_0^3\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^6+4 \\left(\
\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _2^2(\\text{sekk}) \\xi _2^4+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^4+6 \\left(\
\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 i
   \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _2(\\text{sekk}) \\xi _2^4+2 \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}) \\xi _2^4+2 i \\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \
\\xi _2^4+2 \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^4+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta _2(\
\\text{sekk}) \\xi _2^4+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta \
_2(\\text{sekk}) \\xi
   _2^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^4+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^4+2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^4+2 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi
   _2^4+2 i \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) \\xi _2^4+2 \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^4+2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\
\\delta _2(\\text{sekk}) \\xi _2^4+2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta
   _1(\\text{se}).k.k \\xi _2^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\
\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \
\\xi _2^4-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1^2(\\text{sekk}) \\xi _2^2-\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2^2(\\text{sekk}) \\xi _2^2-2 i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\left(\\delta _1 \
\\delta _2(k)\\right) \\xi
   _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_2^2(k) \\xi _2^2-2 i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).\\delta _2(k) \\xi _2^2-2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta _1(k) \\xi _2^2-4 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta \
_2(k) \\xi _2^2-2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta \
_2(k)\\right).k \\xi _2^2-2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(k).k \\xi _2^2-2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _2(k) \
\\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).\\delta _2(k).k \\xi _2^2-2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.\\delta _1(k) \
\\xi _2^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\
\\text{se}).k.\\delta _2(k) \\xi _2^2-2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).\\delta _1(k).k \
\\xi _2^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\
\\text{se}).\\delta _2(k).k \\xi _2^2-2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta _2(\\text{se})\
\\right).k.k \\xi _2^2-2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(\\text{se}).k.k \\xi _2^2-2 i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.k.\\delta _1(k) \
\\xi _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi _2^2-2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.\\delta _1(k).k \
\\xi _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\text{se}.\\delta _2(k).k \\xi _2^2-2 i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta _1(\\text{se}).k.k \
\\xi _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\delta _2(\\text{se}).k.k \\xi
   _2^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2+i
   \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi _2^2-\\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \
_2^2-\\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \
\\xi _2^2+i \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta
   _1(\\text{sekk}) \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta \
_2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \
_2^2-\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi
   _2^2-i \\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2+i \
\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) \\xi
   _2^2-\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \
_2^2+\\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2-i
   \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _2^2+\\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2-i
   \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \
_2(k).k \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi
   _2^2-\\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2-i \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \
_1(k).k \\xi
   _2^2-\\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \
_2^2+\\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2-i
   \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta \
_2(k) \\xi _2^2+\\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta \
_1(k) \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \
_1(k).k \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \
_2^2+\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2^2-i \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _2^2-\\text{sb}_0.\\text{se}.k.\\delta
   _2(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_2^2+\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _2^2-i \\text{sb}_0.\\text{se}.\\delta
   _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_2^2+\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta
   _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi \
_2^2+\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta
   _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\
\\delta _1(k) \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2-i \
\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi \
_2^2-\\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \
_2^2+\\text{sb}_0.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \
_2^2-i \\text{sb}_0.\\text{se}.\\delta
   _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_2^2-i \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi
   _2^2-\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \
_2^2\
\>", "Output",
 CellChangeTimes->{3.7740065831622744`*^9, 3.774027424712365*^9, 
  3.7886892423895006`*^9},
 CellLabel->
  "Out[132]//TeXForm=",ExpressionUUID->"cca0913e-5fac-4eda-9062-e0b8efd80e9c"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.7502595780001736`*^9, 
  3.7502595925132675`*^9}},ExpressionUUID->"1a405445-444c-46c2-a52c-\
5aecbd98fb8f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[133]:=",ExpressionUUID->"9dfaed75-9994-40bb-9204-38f17e591add"],

Cell[BoxData["395"], "Output",
 CellChangeTimes->{3.7740065833743443`*^9, 3.774027424820077*^9, 
  3.7886892425091677`*^9},
 CellLabel->
  "Out[133]=",ExpressionUUID->"59417186-7bbf-4d09-8ea3-042c566fd309"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Integration in the angular part",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.7502596106643887`*^9, 
  3.750259616437425*^9}},ExpressionUUID->"5a7936ef-a48b-4f1a-9817-\
9bc248e4f40f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"coeffs", "[", "stuff_", "]"}], ":=", 
   RowBox[{"CoefficientRules", "[", 
    RowBox[{
     RowBox[{"read3", "[", "stuff", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Xi]", "1"], ",", 
       SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.691255223061523*^9, 3.6912552342373524`*^9}, {
  3.691257548084325*^9, 3.691257620280662*^9}},
 CellLabel->
  "In[134]:=",ExpressionUUID->"22f2cbc4-a377-4bf1-b334-a5c906bcb4e4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"coeffsadj", "[", "stuff_", "]"}], ":=", 
   RowBox[{"CoefficientRules", "[", 
    RowBox[{
     RowBox[{"read3adj", "[", "stuff", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
       SubscriptBox["\[Xi]", "1"], ",", 
       SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7112833294192023`*^9, 3.711283347047202*^9}},
 CellLabel->
  "In[135]:=",ExpressionUUID->"efd9f152-c1ad-49b9-ac79-746ecf517d98"],

Cell[BoxData[
 RowBox[{
  RowBox[{"intangle", "[", 
   RowBox[{"{", 
    RowBox[{"n_", ",", "m_"}], "}"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"intangle", "[", 
    RowBox[{"{", 
     RowBox[{"n", ",", "m"}], "}"}], "]"}], "=", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", "\[Pi]"}]], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", 
      RowBox[{"2", "\[Pi]"}]], 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "n"], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"r", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ")"}], "m"], 
      RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.6912576300149994`*^9, 3.6912576347105694`*^9}, {
  3.6912576843338513`*^9, 3.691257716282447*^9}, {3.6912577499783287`*^9, 
  3.6912578652311287`*^9}},
 CellLabel->
  "In[136]:=",ExpressionUUID->"4b346834-4f11-49bd-b98d-093e3a8f6344"],

Cell[BoxData[
 RowBox[{
  RowBox[{"intterms", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], 
      RowBox[{"Length", "[", 
       RowBox[{"coeffs", "[", "stuff", "]"}], "]"}]], 
     RowBox[{
      RowBox[{"intangle", "[", 
       RowBox[{"First", "[", 
        RowBox[{"Part", "[", 
         RowBox[{
          RowBox[{"coeffs", "[", "stuff", "]"}], ",", "j"}], "]"}], "]"}], 
       "]"}], 
      RowBox[{"Last", "[", 
       RowBox[{"Part", "[", 
        RowBox[{
         RowBox[{"coeffs", "[", "stuff", "]"}], ",", "j"}], "]"}], "]"}]}]}], 
    "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.6912578894423285`*^9, 3.6912578927027283`*^9}, {
   3.6912581594794726`*^9, 3.691258160727545*^9}, {3.691258214583252*^9, 
   3.691258227469596*^9}, {3.6912585386390843`*^9, 3.6912586285753903`*^9}, {
   3.691347181094494*^9, 3.691347181749694*^9}, 3.691348423784294*^9, {
   3.691348583237894*^9, 3.691348583752694*^9}, {3.6929860941878157`*^9, 
   3.6929860976977034`*^9}, {3.7112833807276025`*^9, 3.711283380883602*^9}, {
   3.7275745164472857`*^9, 3.727574517055693*^9}},
 CellLabel->
  "In[137]:=",ExpressionUUID->"c4b6f968-4612-4ca1-8080-a4245f0fc18a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"inttermsadj", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], 
      RowBox[{"Length", "[", 
       RowBox[{"coeffsadj", "[", "stuff", "]"}], "]"}]], 
     RowBox[{
      RowBox[{"intangle", "[", 
       RowBox[{"First", "[", 
        RowBox[{"Part", "[", 
         RowBox[{
          RowBox[{"coeffsadj", "[", "stuff", "]"}], ",", "j"}], "]"}], "]"}], 
       "]"}], 
      RowBox[{"Last", "[", 
       RowBox[{"Part", "[", 
        RowBox[{
         RowBox[{"coeffsadj", "[", "stuff", "]"}], ",", "j"}], "]"}], 
       "]"}]}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.711283355486802*^9, 3.7112833821316023`*^9}},
 CellLabel->
  "In[138]:=",ExpressionUUID->"0fdb485d-4a77-4b07-a45d-90ed99003c48"],

Cell[TextData[{
 "For the first resolvent, we get the following inner integral times -",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "\[Pi]", " ", 
    SubscriptBox["ssb", "0"]}], TraditionalForm]],ExpressionUUID->
  "af40a18f-4278-4b0c-a12b-957ae833aa99"],
 " (-2\[Pi]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["b", "0"], "'"}], TraditionalForm]],ExpressionUUID->
  "beea6680-1f8f-4003-87de-313152578bc6"],
 " in the paper)"
}], "Text",
 CellChangeTimes->{{3.750259674544793*^9, 3.7502596823278503`*^9}, {
  3.762699164991191*^9, 3.7626991826621904`*^9}, {3.7626992150891905`*^9, 
  3.7626992578011904`*^9}},ExpressionUUID->"86a30b9a-5e1c-49d8-bc31-\
09564e9f0b65"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"minusinnerintegraltimesb0inverse", "=", 
  RowBox[{"intterms", "[", "minusresolventtimesb0inverse", "]"}]}]], "Input",
 CellChangeTimes->{{3.6912587651568103`*^9, 3.6912587694000645`*^9}, 
   3.691348426529894*^9, 3.691348679942294*^9, {3.691429171034709*^9, 
   3.6914291775197*^9}, {3.6929857560172977`*^9, 3.692985763021698*^9}, {
   3.6929858086204977`*^9, 3.6929858145172977`*^9}, {3.6929871872625923`*^9, 
   3.69298718950892*^9}, 3.76131739941798*^9},
 CellLabel->
  "In[139]:=",ExpressionUUID->"6f9b7a9a-6fd3-4b9b-9272-1679c7040ca9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["r", "2"]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["ssekk", "2"], " ", 
      SubsuperscriptBox["ssb", "0", "3"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
   RowBox[{
    SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ")"}], ".", 
   FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
   RowBox[{
    SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"3", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}]}], 
  "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".",
     "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["ssb", "0"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]}]], "Output",
 CellChangeTimes->{3.7740066391895027`*^9, 3.77402745357018*^9, 
  3.788689270163246*^9},
 CellLabel->
  "Out[139]=",ExpressionUUID->"e7f787b0-6192-4613-b955-f9bc566b132d"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "74a0a841-1a4a-49a0-b106-f944ba12a52d"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"62192b46-08c7-458f-8c7f-\
42a55c6a5273"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"0bd4207b-b4bd-487e-90f6-1f09cda88231"],

Cell["\<\
-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^6-2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\
\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) r^6-4 \\left(\\text{ssekk}^2 \\text{ssb}_0^3
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^6-4 \
\\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) r^6+2 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \
\\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) r^4+2
   \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2^2(\
\\text{ssekksse}) r^4+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^4+4 \
\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta
   _2(\\text{ssekksse}) r^4+2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse})
   r^4+2 \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) r^4+\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^4-i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) r^4+i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^4+\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) r^4+2 \\left(\\text{ssekk} \
\\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \
r^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \
r^4+\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) r^4-i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) r^4+i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) r^4+\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) r^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
r^4+\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
r^4+i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
r^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
r^4-i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
r^4+\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
r^4-\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \
r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \
_2^2(\\text{ssekksse}) r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1^2(k) r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2^2(k) \
r^2-3
   \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _1(k) r^2+i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _2(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1^2(\\text{se}).k \
r^2-i
   \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta _1(k) r^2-3 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta _2(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2^2(\\text{se}).k \
r^2-2
   \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_1(k).\\text{se}.\\delta _1(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta \
_1(\\text{se}).k r^2-i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta
   _2(\\text{se}).k r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \
_2(k).\\text{se}.\\delta _2(k) r^2+i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta \
_1(\\text{se}).k r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta \
_2(\\text{se}).k
   r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_1(k).k.\\text{se}.\\delta _1(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \
_1(\\text{se}).k r^2-i \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta
   _2(\\text{se}).k r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \
_2(k).k.\\text{se}.\\delta _2(k) r^2+i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \
_1(\\text{se}).k r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \
_2(\\text{se}).k
   r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_1(\\text{se}).k.k.\\text{se}.\\delta _1(k) r^2-\\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _1(\\text{se}).k.k.\\delta _1(\\text{se}).k r^2-i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_1(\\text{se}).k.k.\\delta _2(\\text{se}).k r^2-2 \\left(\\text{ssekk}
   \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_2(\\text{se}).k.k.\\text{se}.\\delta _2(k) r^2+i \\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _2(\\text{se}).k.k.\\delta _1(\\text{se}).k r^2-\\left(\\text{ssekk} \
\\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_2(\\text{se}).k.k.\\delta _2(\\text{se}).k r^2-2 \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \
r^2-2 \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \
r^2-\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) r^2+i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) r^2-i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_1(\\text{ssekksse}) r^2-\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \
_2(\\text{ssekksse}) r^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
r^2+\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k r^2+i \
\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _2(\\text{se}).k r^2+2
   \\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\
\\text{se}.\\delta _2(k) r^2-i \\left(\\text{ssekk} \\text{ssb}_0^2
   \\text{sse}_1\\right).\\frac{1}{k}.\\delta \
_2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
r^2+\\left(\\text{ssekk} \\text{ssb}_0^2 \
\\text{sse}_1\\right).\\frac{1}{k}.\\delta
   _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k r^2-2 \
\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
r^2-\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
r^2-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\text{se}.\\delta _1(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
r^2-2 \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\text{se}.\\delta _2(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
r^2+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\text{se}.\\delta _2(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \
r^2-\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \
r^2-\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
r^2+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _1(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
r^2-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\
\\delta _2(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \
r^2-\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \
r^2+\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1^2(k)+\
\\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2^2(k)+\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _1(k)-i \\left(\\text{ssb}_0
   \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).\\delta _2(k)+i \\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta
   _1(k)+\\left(\\text{ssb}_0 \
\\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).\\delta _2(k)\
\>", "Output",
 CellChangeTimes->{3.774006639491152*^9, 3.774027454506675*^9, 
  3.788689270420559*^9},
 CellLabel->
  "Out[140]//TeXForm=",ExpressionUUID->"174ef012-05d9-4c0b-8371-9c833e191594"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.7502597060000105`*^9, 
  3.75025971188905*^9}},ExpressionUUID->"5c21aab8-e17c-4acd-9752-\
217f68cbabc5"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"24ec4ade-deeb-47a7-9060-54937253084f"],

Cell[BoxData["82"], "Output",
 CellChangeTimes->{3.77400663952106*^9, 3.7740274546253586`*^9, 
  3.7886892705063295`*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"7cd7f0cf-cb4a-4c16-9cc5-9f8cd6e4c17a"]
}, Open  ]],

Cell[TextData[{
 "For the second resolvent, we get the following inner integral times -",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "\[Pi]", " ", 
    SubscriptBox["sb", "0"]}], TraditionalForm]],ExpressionUUID->
  "79a978ff-1fb6-42aa-bdea-a17fe9dbb9e8"],
 " (-",
 Cell[BoxData[
  FormBox[
   RowBox[{"2", "\[Pi]", " ", 
    SubscriptBox["b", "0"]}], TraditionalForm]],ExpressionUUID->
  "8a4c3f00-9c3a-46ff-84d6-9f02aae2ea20"],
 " in the paper):"
}], "Text",
 CellChangeTimes->{{3.7502596850238757`*^9, 3.750259693181921*^9}, {
  3.7626992639671907`*^9, 
  3.7626992910791917`*^9}},ExpressionUUID->"79a9bd33-d270-42bd-85d5-\
06a6d439f544"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"minusinnerintegraltimesb0inverseadj", "=", 
  RowBox[{
  "inttermsadj", "[", "minusresolventtimesb0inverseadj", "]"}]}]], "Input",
 CellChangeTimes->{{3.7112833948612022`*^9, 3.711283396530402*^9}, {
  3.7112836702792025`*^9, 3.7112836704508023`*^9}, {3.732551740140874*^9, 
  3.7325517504484634`*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"5d6395fe-8185-47fc-ae91-a6f1817c0b90"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["r", "2"]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}]}], 
  "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}]}], 
  "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["sekk", "2"], " ", 
      SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".",
     "k"}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".",
     "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", 
    SubscriptBox["sb", "0"], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"sekk", " ", 
      SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
    SubscriptBox["sb", "0"], ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    "k"}]}]}]], "Output",
 CellChangeTimes->{3.7740068535882435`*^9, 3.774027589600977*^9, 
  3.788689392738594*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"bab4f02a-9ce2-4046-ae00-bbaa0b9aa993"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "fa7a02ad-3776-4cc7-a6f7-138262df2925"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"71137d09-3b28-4e70-b9f4-\
31b7dbdefbbd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"38fcee3b-07af-4044-b995-a8e579600933"],

Cell["\<\
-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) r^6-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) r^6-4 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) r^6-4
   \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) r^6+2 \
\\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _1^2(\\text{sekk}) r^4+2 \
\\left(\\text{sekk}^2
   \\text{sb}_0^3\\right).\\delta _2^2(\\text{sekk}) r^4+4 \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) r^4+4 \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta \
_2(\\text{sekk}) r^4+\\text{sb}_0.\\text{se}.k.\\delta \
_1(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) r^4+i
   \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\
\\right).\\delta _2(\\text{sekk}) r^4-i \\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _1(\\text{sekk}) r^4+\\text{sb}_0.\\text{se}.k.\\delta \
_2(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \
r^4+\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) r^4+i \
\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) r^4-i \
\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}) r^4+\\text{sb}_0.\\text{se}.\\delta \
_2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \
r^4+\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta _1(\
\\text{sekk}) r^4+i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \
_2(\\text{sekk}) r^4-i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \
_2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) r^4+\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta
   _2(\\text{sekk}) r^4+\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) r^4+i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\
\\delta
   _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^4-i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) r^4+\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _2(\
\\text{sekk}) r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) r^4-i
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \
r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta
   _1(k).k r^4-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k r^4+i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \
r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) r^4+i \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \
r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k
   r^4+\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) r^4+i \
\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) r^4-i \
\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \
r^4+\\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}) r^4+\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk})
   r^4+i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^4-i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \
r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \
r^4+\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k r^4-i \
\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta
   _2(\\text{se}).k.k r^4+i \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\delta \
_2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \
r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \
r^4-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1^2(\\text{sekk}) \
r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta
   _2^2(\\text{sekk}) r^2-\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.k.\\delta _1^2(k) r^2-\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.k.\\delta _2^2(k) r^2-2 \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).\\delta _1(k) \
r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(k).k \
r^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta
   _2(k).\\delta _2(k) r^2-\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(k).k r^2-2 \\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _1(k) r^2-2
   \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_1(\\text{se}).\\delta _1(k).k r^2-\\left(\\text{sekk} \
\\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(\\text{se}).k.k r^2-2 \
\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.\\delta _2(k) \
r^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \
_2(\\text{se}).\\delta _2(k).k r^2-\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(\\text{se}).k.k r^2-\\left(\
\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{se}).\\text{se}.k.\\delta _1(k) r^2+i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.k.\\delta _2(k) \
r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_1(\\text{se}).\\text{se}.\\delta _1(k).k r^2+i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\\delta _2(k).k \
r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta \
_1(\\text{se}).k.k r^2+i \\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta _2(\\text{se}).k.k \
r^2-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\text{se}.k.\\delta _1(k) r^2-\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.k.\\delta _2(k) \
r^2-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\text{se}.\\delta _1(k).k r^2-\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.\\delta _2(k).k \
r^2-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \
_2(\\text{se}).\\delta _1(\\text{se}).k.k r^2-\\left(\\text{sekk}
   \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta _2(\\text{se}).k.k \
r^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \
_1(\\text{sekk}) r^2-i \\text{sb}_0.\\text{se}.k.\\delta
   _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) r^2+i \
\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \
r^2-\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta \
_2(\\text{sekk})
   r^2-\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta \
_1(\\text{sekk}) r^2-i \\text{sb}_0.\\text{se}.\\delta \
_1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^2+i \
\\text{sb}_0.\\text{se}.\\delta
   _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) r^2-\\text{sb}_0.\\text{se}.\
\\delta _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \
r^2-\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\delta
   _1(\\text{sekk}) r^2-i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\
\\text{sb}_0.\\delta _2(\\text{sekk}) r^2+i \\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk})
   r^2-\\text{sb}_0.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^2\
\>", "Output",
 CellChangeTimes->{3.7740068537652035`*^9, 3.7740275897545657`*^9, 
  3.788689392932046*^9},
 CellLabel->
  "Out[143]//TeXForm=",ExpressionUUID->"48241953-1712-4b38-8465-c81f4d33f940"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.7502597364232335`*^9, 
  3.750259740768261*^9}},ExpressionUUID->"641a9e89-f0dc-4e0c-a443-\
893f86e19831"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"f5e8f916-bfc6-447e-b7df-332dc3607594"],

Cell[BoxData["82"], "Output",
 CellChangeTimes->{3.7740068537851286`*^9, 3.7740275898114386`*^9, 
  3.788689393017847*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"ae530229-c3c5-42e2-94e9-c8c5507f5b85"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Preparation in canonical form",
 FontSize->18]], "Section",
 CellChangeTimes->{{3.750259845180939*^9, 
  3.750259849900956*^9}},ExpressionUUID->"5f24ded3-915c-464c-bf93-\
e9962dfda07c"],

Cell[TextData[{
 "One puts the terms in a canonical form before performing the integration in \
the variable \[OpenCurlyDoubleQuote]r.\[CloseCurlyDoubleQuote] We first \
define the rules which allow one to pass to the reduced terms. The first \
group corresponds to ensuring each leftmost ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "2aacc1b7-7135-4512-93a8-42bb9ada4c48"],
 " has an e to the right, moving powers of \[Sigma](e)k^2 or \
\[CapitalDelta](e)k^2 to the right if necessary. The second group corresponds \
to cancelling k\[CloseCurlyQuote]s and extra e\[CloseCurlyQuote]s. The third \
group corresponds to terms with all ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "45fccc2d-441c-440f-a66d-4bc1a62a05df"],
 " on the left. The fourth group corresponds to terms with ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["b", "0", "2"], TraditionalForm]],ExpressionUUID->
  "78027b2a-12c7-4eef-87d4-00d7aa0a663d"],
 " in the middle that require integration by parts, turning them into terms \
with ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "c0adf218-e3cd-427c-b221-27bea6de01c4"],
 " in the middle. The fifth group corresponds to terms with ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "9241b5a7-78be-4c38-88cc-c41d9e6bc9ee"],
 " in the middle."
}], "Text",
 CellChangeTimes->{{3.7502598826861725`*^9, 3.750260266939674*^9}, {
  3.7502608302453284`*^9, 3.7502608448844247`*^9}, {3.762782510643149*^9, 
  3.762782523956149*^9}},ExpressionUUID->"152761b5-fda0-42d6-88e4-\
6d7b8844df02"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox["ssekk", "2"], " ", 
     SubsuperscriptBox["ssb", "0", "3"], " ", 
     SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "3"], ",", "sse", ",", "k", ",", "k", ",", 
    "sse", ",", "k", ",", "k", ",", "sse", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7088200424180536`*^9, 3.708820116720854*^9}, {
   3.7088202735788536`*^9, 3.7088202970582533`*^9}, {3.7088908434237194`*^9, 
   3.7088908453737564`*^9}, {3.7268959209826527`*^9, 3.7268959378974867`*^9}, 
   3.7272899669928665`*^9, {3.7323979755374575`*^9, 3.7323979804826574`*^9}, {
   3.732551808680794*^9, 3.732551810107876*^9}, {3.762202106518174*^9, 
   3.7622021215050945`*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"92396485-cb57-403b-90d7-cc4f4f1d7357"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    RowBox[{"ssekk", " ", 
     SubsuperscriptBox["ssb", "0", "2"], " ", 
     SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "2"], ",", "sse", ",", "k", ",", "k", ",", 
    "sse", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, {
   3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 
   3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 
   3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, {
   3.7622021346519537`*^9, 3.7622021423593874`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"7273a0d8-e6ef-425f-9756-c8901a7de00b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{"a___", ",", 
    RowBox[{
     SubscriptBox["ssb", "0"], " ", 
     SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{"a", ",", 
    SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7275650962937*^9, 3.727565135138198*^9}, {
  3.7323979773470573`*^9, 3.732397983384227*^9}, {3.7377400799478073`*^9, 
  3.7377400843490324`*^9}, {3.7622021445425186`*^9, 3.762202148221736*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"340cd182-0bd5-4b83-b2f4-0cffc667f6fd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    RowBox[{
     SuperscriptBox["sekk", "2"], " ", 
     SubsuperscriptBox["sb", "0", "3"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "3"], ",", "se", ",", "k", ",", "k", ",", 
    "se", ",", "k", ",", "k", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7088200424180536`*^9, 3.708820116720854*^9}, {
   3.7088202735788536`*^9, 3.7088202970582533`*^9}, {3.7088908434237194`*^9, 
   3.7088908453737564`*^9}, {3.7268959209826527`*^9, 
   3.7268959378974867`*^9}, {3.7268963943083467`*^9, 3.726896399692086*^9}, 
   3.7272899493022394`*^9, {3.732397977971057*^9, 3.7323979852717543`*^9}, {
   3.7622021522399707`*^9, 3.762202168861517*^9}},
 CellLabel->
  "In[148]:=",ExpressionUUID->"03799854-0475-48a7-a4dc-d32bbdf25b51"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    RowBox[{"sekk", " ", 
     SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "2"], ",", "se", ",", "k", ",", "k", ",", 
    "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, {
   3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 
   3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, {
   3.726896396700341*^9, 3.726896398181196*^9}, 3.7272899551679144`*^9, {
   3.732397978844657*^9, 3.7323979872684774`*^9}, {3.762202154408149*^9, 
   3.7622021679090943`*^9}},
 CellLabel->
  "In[149]:=",ExpressionUUID->"30c19feb-3538-40c3-98c5-b8e55442e65b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{"a___", ",", "k", ",", 
    FractionBox["1", "k"], ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{"a", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.708821280137295*^9, 3.708821299072174*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"9dc57f18-5794-4030-808b-07de523b332d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{"a___", ",", 
    FractionBox["1", "k"], ",", "k", ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{"a", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.708821280137295*^9, 3.708821310770999*^9}},
 CellLabel->
  "In[151]:=",ExpressionUUID->"63025a1b-e7b9-4954-bc7d-6ce6c8b33f09"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{"a___", ",", "e", ",", "e", ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{"a", ",", "e", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"56bbc403-7a02-4474-9b7b-d650b5472404"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{"a___", ",", "se", ",", "se", ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{"a", ",", "se", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}, {
  3.7622020854714313`*^9, 3.762202089019923*^9}},
 CellLabel->
  "In[153]:=",ExpressionUUID->"48eb1050-94be-4f83-9316-51c29c9389db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{"a___", ",", "sse", ",", "sse", ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{"a", ",", "sse", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}, {
  3.762202087285589*^9, 3.762202090101033*^9}},
 CellLabel->
  "In[154]:=",ExpressionUUID->"0d9c7b38-0891-49b2-80fa-126c8820f2cc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{"a___", ",", "sse", ",", 
    FractionBox["1", "k"], ",", "se", ",", "k", ",", "c___"}], "]"}], ":=", 
  RowBox[{"M", "[", 
   RowBox[{"a", ",", "sse", ",", "c"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}, {
  3.762202087285589*^9, 3.762202090101033*^9}, {3.7622903189099703`*^9, 
  3.7622903251191297`*^9}},
 CellLabel->
  "In[155]:=",ExpressionUUID->"ebe773fa-718e-4430-a660-5d067bdcb1de"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubscriptBox["ssb", "0"], ",", 
    RowBox[{"c___", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", 
         SubscriptBox["ssb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", 
  RowBox[{"S", " ", 
   RowBox[{"M", "[", 
    RowBox[{
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", "c", ",", "sse"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, {
   3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 
   3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, {
   3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 
   3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, {
   3.45806770578125*^9, 3.458067714796875*^9}, 3.516878290765625*^9, {
   3.6929859272263675`*^9, 3.6929859272263675`*^9}, {3.733769325689432*^9, 
   3.733769348730673*^9}, 3.7337694807069044`*^9, {3.735020321396248*^9, 
   3.735020366464727*^9}, {3.762202217404767*^9, 3.7622022263648205`*^9}, {
   3.7622024234630013`*^9, 3.762202423671443*^9}, 3.7622032594238462`*^9},
 CellLabel->
  "In[156]:=",ExpressionUUID->"8e527702-882e-4dd6-a1a5-13587c21ae59"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "2"], ",", 
    RowBox[{"c___", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", 
         SubscriptBox["ssb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "2"], " ", 
   RowBox[{"M", "[", 
    RowBox[{
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", "c", ",", "sse"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, {
   3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 
   3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, {
   3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 
   3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, {
   3.458067019890625*^9, 3.458067023734375*^9}, {3.458067720015625*^9, 
   3.458067730859375*^9}, 3.516878304015625*^9, {3.6929859272263675`*^9, 
   3.6929859272263675`*^9}, 3.733769374470718*^9, {3.735020336824675*^9, 
   3.7350203398978806`*^9}, {3.762202218737206*^9, 3.762202227308296*^9}, {
   3.7622024220148716`*^9, 3.762202422235283*^9}, 3.7622032609557505`*^9},
 CellLabel->
  "In[157]:=",ExpressionUUID->"1b3f524f-f632-4541-a218-a8f30bde0e55"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "3"], ",", 
    RowBox[{"c___", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", 
         SubscriptBox["ssb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "3"], " ", 
   RowBox[{"M", "[", 
    RowBox[{
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", "c", ",", "sse"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, {
   3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 
   3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, {
   3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 
   3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, {
   3.458067067*^9, 3.458067071671875*^9}, {3.458067735234375*^9, 
   3.458067739828125*^9}, 3.4580677705*^9, {3.516878310953125*^9, 
   3.51687831465625*^9}, {3.6929859272419667`*^9, 3.6929859272419667`*^9}, {
   3.705032651912043*^9, 3.7050326982610435`*^9}, {3.705033648359043*^9, 
   3.7050336563740435`*^9}, {3.7087174460873194`*^9, 
   3.7087174482953196`*^9}, {3.708820376041054*^9, 3.708820377429454*^9}, 
   3.733769377809124*^9, {3.735020347261093*^9, 3.735020349663498*^9}, {
   3.762202219839261*^9, 3.762202228708555*^9}, {3.7622024207542715`*^9, 
   3.7622024209547405`*^9}, 3.7622032626641965`*^9},
 CellLabel->
  "In[158]:=",ExpressionUUID->"d152538e-5a91-4fff-aab7-7aed64d4bb4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubscriptBox["sb", "0"], ",", 
    RowBox[{"c___", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", 
         SubscriptBox["sb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", 
  RowBox[{"S", " ", 
   RowBox[{"M", "[", 
    RowBox[{
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", "c", ",", "se"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, {
   3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 
   3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, {
   3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 
   3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, {
   3.45806770578125*^9, 3.458067714796875*^9}, 3.516878290765625*^9, {
   3.6929859272263675`*^9, 3.6929859272263675`*^9}, {3.733769325689432*^9, 
   3.733769348730673*^9}, 3.7337694807069044`*^9, {3.735020321396248*^9, 
   3.735020366464727*^9}, {3.762202263708005*^9, 3.762202266675106*^9}, {
   3.762202410404905*^9, 3.7622024104557676`*^9}, 3.762203265183462*^9},
 CellLabel->
  "In[159]:=",ExpressionUUID->"a8960b26-ce89-428c-93d3-bf31aed94f9e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "2"], ",", 
    RowBox[{"c___", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", 
         SubscriptBox["sb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "2"], " ", 
   RowBox[{"M", "[", 
    RowBox[{
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", "c", ",", "se"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, {
   3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 
   3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, {
   3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 
   3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, {
   3.458067019890625*^9, 3.458067023734375*^9}, {3.458067720015625*^9, 
   3.458067730859375*^9}, 3.516878304015625*^9, {3.6929859272263675`*^9, 
   3.6929859272263675`*^9}, 3.733769374470718*^9, {3.735020336824675*^9, 
   3.7350203398978806`*^9}, {3.7622022702156105`*^9, 3.762202280054313*^9}, {
   3.7622024120415287`*^9, 3.7622024120913954`*^9}, 3.7622032668389945`*^9},
 CellLabel->
  "In[160]:=",ExpressionUUID->"623c1a22-6c25-430a-af95-780ad2f3a626"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "3"], ",", 
    RowBox[{"c___", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", 
         SubscriptBox["sb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "3"], " ", 
   RowBox[{"M", "[", 
    RowBox[{
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", 
     FractionBox["1", "k"], ",", "c", ",", "se"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, {
   3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 
   3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, {
   3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 
   3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, {
   3.458067067*^9, 3.458067071671875*^9}, {3.458067735234375*^9, 
   3.458067739828125*^9}, 3.4580677705*^9, {3.516878310953125*^9, 
   3.51687831465625*^9}, {3.6929859272419667`*^9, 3.6929859272419667`*^9}, {
   3.705032651912043*^9, 3.7050326982610435`*^9}, {3.705033648359043*^9, 
   3.7050336563740435`*^9}, {3.7087174460873194`*^9, 
   3.7087174482953196`*^9}, {3.708820376041054*^9, 3.708820377429454*^9}, 
   3.733769377809124*^9, {3.735020347261093*^9, 3.735020349663498*^9}, {
   3.762202274581972*^9, 3.7622022819273214`*^9}, {3.7622024134687157`*^9, 
   3.762202413504619*^9}, {3.762203268463699*^9, 3.7622032723822207`*^9}},
 CellLabel->
  "In[161]:=",ExpressionUUID->"f8dde16e-19b0-419f-ad9d-f869420e7d07"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "3"], ",", "a___", ",", 
    RowBox[{"ssekk", " ", 
     SubsuperscriptBox["ssb", "0", "2"], " ", 
     SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"dr", " ", "*", 
    RowBox[{"1", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["ssb", "0", "3"], ",", "a", ",", 
      SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}], "+", 
   RowBox[{"dS", " ", "*", 
    RowBox[{"S", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["ssb", "0", "3"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", 
      SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, {
   3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 
   3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 
   3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, {
   3.732398097419841*^9, 3.7323980979190216`*^9}, {3.732398128057062*^9, 
   3.7323981361999493`*^9}, {3.7324836954134874`*^9, 3.7324837001558957`*^9}, 
   3.7324837860232615`*^9, {3.7377398941534348`*^9, 3.7377398980244617`*^9}, {
   3.762202290549261*^9, 3.762202297759988*^9}, {3.788621875690573*^9, 
   3.788621879980081*^9}, 3.788623411359158*^9, 3.7886238867136216`*^9, 
   3.7886258205135355`*^9, 3.788630014676754*^9, {3.788631092090139*^9, 
   3.7886310941965084`*^9}, 3.7886311355120687`*^9, 3.788631403150653*^9, {
   3.7886314551975284`*^9, 3.7886314597523527`*^9}, {3.788631801076789*^9, 
   3.7886318257797565`*^9}, {3.7886319146382313`*^9, 
   3.7886319208745613`*^9}, {3.7886324618762436`*^9, 
   3.7886324705909505`*^9}, {3.788686465788254*^9, 3.788686483366851*^9}, {
   3.78868652981398*^9, 3.78868653152874*^9}, {3.7886870944313135`*^9, 
   3.7886871077512426`*^9}, 3.7886872389293127`*^9, 3.7886874668749466`*^9},
 CellLabel->
  "In[162]:=",ExpressionUUID->"36352f5b-41e6-466b-8dfe-ed6c2012706b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "2"], ",", "a___", ",", 
    RowBox[{"ssekk", " ", 
     SubsuperscriptBox["ssb", "0", "2"], " ", 
     SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"dr", " ", "*", 
    RowBox[{"1", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["ssb", "0", "2"], ",", "a", ",", 
      SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}], "+", 
   RowBox[{"dS", " ", "*", 
    RowBox[{"S", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["ssb", "0", "2"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", 
      SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, {
   3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 
   3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 
   3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, {
   3.732398097419841*^9, 3.7323980979190216`*^9}, {3.732398128057062*^9, 
   3.7323981361999493`*^9}, {3.7324836954134874`*^9, 3.7324837001558957`*^9}, 
   3.7324837860232615`*^9, {3.7377398941534348`*^9, 3.7377398980244617`*^9}, {
   3.762202290549261*^9, 3.762202297759988*^9}, {3.788621875690573*^9, 
   3.788621879980081*^9}, 3.788623411359158*^9, 3.7886238867136216`*^9, 
   3.7886258205135355`*^9, 3.788630014676754*^9, {3.788631092090139*^9, 
   3.7886310941965084`*^9}, 3.7886311355120687`*^9, 3.788631403150653*^9, {
   3.7886314551975284`*^9, 3.7886314597523527`*^9}, {3.788631801076789*^9, 
   3.7886318257797565`*^9}, {3.788631905462758*^9, 3.7886319117200317`*^9}, {
   3.788632463655488*^9, 3.78863247142472*^9}, {3.7886864726039133`*^9, 
   3.7886864858280067`*^9}, {3.7886865283595233`*^9, 
   3.7886865327942085`*^9}, {3.788687103549148*^9, 3.788687109583559*^9}, 
   3.788687468643523*^9},
 CellLabel->
  "In[163]:=",ExpressionUUID->"dca7519d-e383-4723-859d-0470023127c1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubscriptBox["ssb", "0"], ",", "a___", ",", 
    RowBox[{"ssekk", " ", 
     SubsuperscriptBox["ssb", "0", "2"], " ", 
     SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"dr", " ", "*", 
    RowBox[{"1", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubscriptBox["ssb", "0"], ",", "a", ",", 
      SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}], "+", 
   RowBox[{"dS", " ", "*", 
    RowBox[{"S", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubscriptBox["ssb", "0"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", 
      SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, {
   3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 
   3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 
   3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, {
   3.732398097419841*^9, 3.7323980979190216`*^9}, {3.732398128057062*^9, 
   3.7323981361999493`*^9}, {3.7324836954134874`*^9, 3.7324837001558957`*^9}, 
   3.7324837860232615`*^9, {3.7377398941534348`*^9, 3.7377398980244617`*^9}, {
   3.762202290549261*^9, 3.762202297759988*^9}, {3.788621875690573*^9, 
   3.788621879980081*^9}, 3.788623411359158*^9, 3.7886238867136216`*^9, 
   3.7886258205135355`*^9, 3.788630014676754*^9, {3.788631092090139*^9, 
   3.7886310941965084`*^9}, 3.7886311355120687`*^9, 3.788631403150653*^9, {
   3.7886314551975284`*^9, 3.7886314597523527`*^9}, {3.788631801076789*^9, 
   3.7886318257797565`*^9}, {3.788632464886198*^9, 3.788632472323318*^9}, {
   3.7886864771208134`*^9, 3.788686488819586*^9}, {3.7886865270684247`*^9, 
   3.7886865338337336`*^9}, {3.7886871056660767`*^9, 3.788687111749591*^9}, 
   3.788687470627819*^9},
 CellLabel->
  "In[164]:=",ExpressionUUID->"1476dae0-468c-4556-9af0-d214bafa2985"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "3"], ",", "a___", ",", 
    RowBox[{"sekk", " ", 
     SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"dr", " ", "*", 
    RowBox[{"1", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["sb", "0", "3"], ",", "a", ",", 
      SubscriptBox["sb", "0"], ",", "c"}], "]"}]}], "+", " ", 
   RowBox[{"dS", " ", "*", 
    RowBox[{"S", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["sb", "0", "3"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", 
      SubscriptBox["sb", "0"], ",", "c"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323982811027756`*^9, 3.732398407071123*^9}, 
   3.732398528515566*^9, {3.732398579542512*^9, 3.732398579885707*^9}, {
   3.7325507330632005`*^9, 3.7325507368754187`*^9}, 3.732550799755015*^9, {
   3.7325508332859325`*^9, 3.73255086750089*^9}, {3.762202298860072*^9, 
   3.7622023025821023`*^9}, 3.788621881496027*^9, 3.788623410460518*^9, 
   3.788623887796728*^9, 3.7886258221820755`*^9, 3.788630016379204*^9, {
   3.7886310973251452`*^9, 3.788631099529254*^9}, 3.7886311363558397`*^9, {
   3.7886314008109393`*^9, 3.788631401651658*^9}, {3.7886314575412836`*^9, 
   3.7886314588008943`*^9}, {3.788631794747707*^9, 3.7886318667412634`*^9}, {
   3.788631924516858*^9, 3.788631927562683*^9}, {3.7886324668260126`*^9, 
   3.7886324749433174`*^9}, {3.788685996870442*^9, 3.7886860057978487`*^9}, {
   3.7886865089563665`*^9, 3.788686517232998*^9}, {3.7886869776194167`*^9, 
   3.7886869805050535`*^9}, {3.788687114170903*^9, 3.788687125721422*^9}, 
   3.7886874729076777`*^9},
 CellLabel->
  "In[165]:=",ExpressionUUID->"87472b3c-bc0a-40c7-8844-a933de551262"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "2"], ",", "a___", ",", 
    RowBox[{"sekk", " ", 
     SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"dr", " ", "*", 
    RowBox[{"1", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["sb", "0", "2"], ",", "a", ",", 
      SubscriptBox["sb", "0"], ",", "c"}], "]"}]}], "+", " ", 
   RowBox[{"dS", " ", "*", 
    RowBox[{"S", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubsuperscriptBox["sb", "0", "2"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", 
      SubscriptBox["sb", "0"], ",", "c"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323982811027756`*^9, 3.732398407071123*^9}, 
   3.732398528515566*^9, {3.732398579542512*^9, 3.732398579885707*^9}, {
   3.7325507330632005`*^9, 3.7325507368754187`*^9}, 3.732550799755015*^9, {
   3.7325508332859325`*^9, 3.73255086750089*^9}, {3.762202298860072*^9, 
   3.7622023025821023`*^9}, 3.788621881496027*^9, 3.788623410460518*^9, 
   3.788623887796728*^9, 3.7886258221820755`*^9, 3.788630016379204*^9, {
   3.7886310973251452`*^9, 3.788631099529254*^9}, 3.7886311363558397`*^9, {
   3.7886314008109393`*^9, 3.788631401651658*^9}, {3.7886314575412836`*^9, 
   3.7886314588008943`*^9}, {3.788631794747707*^9, 3.7886318667412634`*^9}, {
   3.788631931621833*^9, 3.788631934694619*^9}, {3.7886324680547285`*^9, 
   3.7886324760134535`*^9}, {3.788685987901883*^9, 3.788686006865985*^9}, {
   3.788686512870204*^9, 3.78868651423273*^9}, 3.7886869826710153`*^9, {
   3.7886871171926193`*^9, 3.788687128597121*^9}, 3.78868747480641*^9},
 CellLabel->
  "In[166]:=",ExpressionUUID->"ad7a544c-a21d-4e68-9a34-3c0ca4e79336"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubscriptBox["sb", "0"], ",", "a___", ",", 
    RowBox[{"sekk", " ", 
     SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"dr", " ", "*", 
    RowBox[{"1", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubscriptBox["sb", "0"], ",", "a", ",", 
      SubscriptBox["sb", "0"], ",", "c"}], "]"}]}], "+", " ", 
   RowBox[{"dS", " ", "*", 
    RowBox[{"S", "/", "2"}], "*", " ", 
    RowBox[{"M", "[", 
     RowBox[{
      SubscriptBox["sb", "0"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", 
      SubscriptBox["sb", "0"], ",", "c"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323982811027756`*^9, 3.732398407071123*^9}, 
   3.732398528515566*^9, {3.732398579542512*^9, 3.732398579885707*^9}, {
   3.7325507330632005`*^9, 3.7325507368754187`*^9}, 3.732550799755015*^9, {
   3.7325508332859325`*^9, 3.73255086750089*^9}, {3.762202298860072*^9, 
   3.7622023025821023`*^9}, 3.788621881496027*^9, 3.788623410460518*^9, 
   3.788623887796728*^9, 3.7886258221820755`*^9, 3.788630016379204*^9, {
   3.7886310973251452`*^9, 3.788631099529254*^9}, 3.7886311363558397`*^9, {
   3.7886314008109393`*^9, 3.788631401651658*^9}, {3.7886314575412836`*^9, 
   3.7886314588008943`*^9}, {3.788631794747707*^9, 3.7886318667412634`*^9}, {
   3.788632468936371*^9, 3.788632477150415*^9}, {3.788686003213018*^9, 
   3.788686008452015*^9}, {3.7886865193104076`*^9, 3.788686519475972*^9}, 
   3.788686985088521*^9, {3.78868711930438*^9, 3.7886871461962852`*^9}, 
   3.788687476725977*^9},
 CellLabel->
  "In[167]:=",ExpressionUUID->"50b7e92d-6c2b-4446-9ef0-b91928fddaf6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubscriptBox["ssb", "0"], ",", "a___", ",", 
    SubscriptBox["ssb", "0"], ",", "c___"}], "]"}], ":=", 
  RowBox[{"S", " ", "R", " ", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", "sse"}], "]"}], "**", 
    RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, {
   3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 
   3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, {
   3.733769484638111*^9, 3.733769500534539*^9}, 3.7337695400962086`*^9, {
   3.7337695792990775`*^9, 3.733769598065911*^9}, {3.733769650731603*^9, 
   3.733769652806407*^9}, {3.7622023256893415`*^9, 3.762202329030406*^9}, {
   3.762202434184372*^9, 3.7622024367654457`*^9}, 3.762203092752104*^9, 
   3.762203741670833*^9},
 CellLabel->
  "In[168]:=",ExpressionUUID->"4cf5bab4-1631-408f-be97-48e2a0760f82"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "2"], ",", "a___", ",", 
    SubscriptBox["ssb", "0"], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "2"], " ", "R", " ", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", "sse"}], "]"}], "**", 
    RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, {
   3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 
   3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, {
   3.733769491268123*^9, 3.733769508989754*^9}, 3.7337695465234203`*^9, {
   3.733769676830449*^9, 3.7337696795760536`*^9}, {3.7622023316265087`*^9, 
   3.7622023356267757`*^9}, {3.762202440289027*^9, 3.7622024425420074`*^9}, 
   3.762203095299272*^9, 3.7622037212982864`*^9},
 CellLabel->
  "In[169]:=",ExpressionUUID->"4e85c209-baeb-411f-a9bb-90dd3bd16f27"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["ssb", "0", "3"], ",", "a___", ",", 
    SubscriptBox["ssb", "0"], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "3"], "R", " ", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", "sse"}], "]"}], "**", 
    RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, {
   3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 
   3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, {
   3.7337694938109274`*^9, 3.7337695159629664`*^9}, 3.7337695529038315`*^9, {
   3.733769682540059*^9, 3.7337696858004646`*^9}, {3.762202332775422*^9, 
   3.762202337646411*^9}, {3.762202444237474*^9, 3.762202444541661*^9}, 
   3.7622030966187477`*^9, 3.762203731439182*^9},
 CellLabel->
  "In[170]:=",ExpressionUUID->"7ca436ac-5b2c-4369-889f-50ac0e95665d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubscriptBox["sb", "0"], ",", "a___", ",", 
    SubscriptBox["sb", "0"], ",", "c___"}], "]"}], ":=", 
  RowBox[{"S", " ", "R", " ", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", "se"}], "]"}], "**", 
    RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, {
   3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 
   3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, {
   3.733769484638111*^9, 3.733769500534539*^9}, 3.7337695400962086`*^9, {
   3.7337695792990775`*^9, 3.733769598065911*^9}, {3.733769650731603*^9, 
   3.733769652806407*^9}, {3.7622023403182373`*^9, 3.7622023453837304`*^9}, {
   3.7622024463598003`*^9, 3.7622024464705043`*^9}, 3.762203099445225*^9},
 CellLabel->
  "In[171]:=",ExpressionUUID->"9da3b02e-d4f2-4629-ad59-ff049d69fdd7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "2"], ",", "a___", ",", 
    SubscriptBox["sb", "0"], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "2"], " ", "R", " ", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", "se"}], "]"}], "**", 
    RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, {
   3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 
   3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, {
   3.733769491268123*^9, 3.733769508989754*^9}, 3.7337695465234203`*^9, {
   3.733769676830449*^9, 3.7337696795760536`*^9}, {3.7622023409455585`*^9, 
   3.7622023475598793`*^9}, {3.7622024476284094`*^9, 3.762202447726184*^9}, 
   3.762203101559539*^9},
 CellLabel->
  "In[172]:=",ExpressionUUID->"8996aa3a-7a81-4d5e-8db6-c175557fb737"],

Cell[BoxData[
 RowBox[{
  RowBox[{"M", "[", 
   RowBox[{
    SubsuperscriptBox["sb", "0", "3"], ",", "a___", ",", 
    SubscriptBox["sb", "0"], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["S", "3"], "R", " ", 
   RowBox[{
    RowBox[{"M", "[", 
     RowBox[{
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", 
      FractionBox["1", "k"], ",", "a", ",", "se"}], "]"}], "**", 
    RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, {
   3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 
   3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, {
   3.7337694938109274`*^9, 3.7337695159629664`*^9}, 3.7337695529038315`*^9, {
   3.733769682540059*^9, 3.7337696858004646`*^9}, {3.7622023419708176`*^9, 
   3.762202352320192*^9}, {3.7622024492700224`*^9, 3.762202449374743*^9}, 
   3.762203103689845*^9},
 CellLabel->
  "In[173]:=",ExpressionUUID->"99855bb1-73ea-4600-b821-70945035d8a7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"action", "[", "stuff_", "]"}], ":=", 
  RowBox[{"stuff", "/.", 
   RowBox[{"Dot", "\[Rule]", "M"}]}]}]], "Input",
 CellChangeTimes->{{3.590123054074692*^9, 3.590123091288587*^9}, 
   3.6929859272575665`*^9, {3.7268978249902554`*^9, 3.7268978317155604`*^9}, {
   3.726897904988572*^9, 3.7268979092820063`*^9}, {3.727291123585079*^9, 
   3.7272911259250937`*^9}},
 CellLabel->
  "In[174]:=",ExpressionUUID->"3f4dca84-9dd0-43f2-8711-d680ea8ba3d1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"back", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"stuff", "/.", 
     RowBox[{"M", "\[Rule]", "cancelling"}]}], ")"}], "/.", 
   RowBox[{"cancelling", "\[Rule]", "Dot"}]}]}]], "Input",
 CellChangeTimes->{{3.590123646987019*^9, 3.59012368526357*^9}, 
   3.6929859272575665`*^9, {3.7272911285303106`*^9, 3.7272911426016006`*^9}},
 CellLabel->
  "In[175]:=",ExpressionUUID->"18a2f9dd-1d83-47ab-8c9c-483a750b2be6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"reorder", "[", "stuff_", "]"}], ":=", 
  RowBox[{"back", "[", 
   RowBox[{"action", "[", "stuff", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5901237001414337`*^9, 3.590123739463437*^9}, {
  3.7072370152738676`*^9, 3.7072370208898673`*^9}, {3.7272912150650654`*^9, 
  3.727291217108679*^9}},
 CellLabel->
  "In[176]:=",ExpressionUUID->"c84dcfb1-9769-4ec1-99b3-bf57c5811eac"],

Cell["We now show how this works:", "Text",
 CellChangeTimes->{{3.7502603012749014`*^9, 
  3.750260317245001*^9}},ExpressionUUID->"113227f8-d4fa-4980-ae1f-\
897c9e076fe4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"compare", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Extract", "[", 
        RowBox[{"stuff", ",", "a1"}], "]"}], ",", 
       RowBox[{"reorder", "[", 
        RowBox[{"Extract", "[", 
         RowBox[{"stuff", ",", "a1"}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a1", ",", "1", ",", 
       RowBox[{"Length", "[", "stuff", "]"}]}], "}"}]}], "]"}], "//", 
   "TableForm"}]}]], "Input",
 CellChangeTimes->{{3.5901242432704487`*^9, 3.59012435228183*^9}},
 CellLabel->
  "In[177]:=",ExpressionUUID->"750ff0ad-8d3f-4608-b832-75b8922fa424"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"compare", "[", "minusinnerintegraltimesb0inverse", "]"}]], "Input",
 CellChangeTimes->{{3.589862415999852*^9, 3.589862421701654*^9}, 
   3.5900653861387663`*^9, 3.590065493640295*^9, {3.590124398055291*^9, 
   3.590124399074926*^9}, {3.6929861285691137`*^9, 3.6929861313458247`*^9}},
 CellLabel->
  "In[178]:=",ExpressionUUID->"164d6f70-dcff-4e22-a0e1-10f5b6f97d52"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["ssekk", "2"], " ", 
         SubsuperscriptBox["ssb", "0", "3"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["ssekk", "2"], " ", 
         SubsuperscriptBox["ssb", "0", "3"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse",
             ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "3"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse",
             ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse",
             ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "3"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse",
             ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["ssekk", "2"], " ", 
         SubsuperscriptBox["ssb", "0", "3"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", "R", " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", "k", ".", "sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["ssekk", "2"], " ", 
         SubsuperscriptBox["ssb", "0", "3"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", "R", " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", "k", ".", "sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["ssb", "0"], " ", 
        SubscriptBox["sse", "1"]}], ")"}], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], 
     RowBox[{"S", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["ssb", "0"], " ", 
        SubscriptBox["sse", "1"]}], ")"}], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], 
     RowBox[{"S", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["ssb", "0"], " ", 
        SubscriptBox["sse", "1"]}], ")"}], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], 
     RowBox[{"S", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "S", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", "S", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["ssb", "0"], " ", 
        SubscriptBox["sse", "1"]}], ")"}], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], 
     RowBox[{"S", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", 
       ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "3"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".",
        "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", 
       ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
           ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
           ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
           ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
           ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "sse"}], ")"}], "**", 
          RowBox[{"(", 
           RowBox[{"sse", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
           ")"}]}]}]}], ")"}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
       FractionBox["1", "k"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "sse"}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}],
         ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}],
        "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{
         SubscriptBox["ssb", "0"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}], ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"sse", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.7740068553075047`*^9, 3.774027590324043*^9, 
  3.7886893935075397`*^9},
 CellLabel->
  "Out[178]//TableForm=",ExpressionUUID->"5d52be87-800a-485b-8c87-\
e0977f81e556"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"compare", "[", "minusinnerintegraltimesb0inverseadj", 
  "]"}]], "Input",
 CellChangeTimes->{{3.711285178214402*^9, 3.7112851846964025`*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"f7c28681-dc66-4fa8-8f86-dcfab8bde207"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", 
       "se"}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["sekk", "2"], " ", 
         SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       "k", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", 
       "se"}]}]},
    {
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["sekk", "2"], " ", 
         SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "4"], " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       "k", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       "k", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", 
       ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", 
       ".", "se"}]}]},
    {
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "3"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "3"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["sekk", "2"], " ", 
         SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", "R", " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".",
          "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["sekk", "2"], " ", 
         SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["r", "6"], " ", "R", " ", 
      SuperscriptBox["S", "3"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".",
          "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", 
       ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", 
       ".", "k", ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", 
       ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
       RowBox[{
        SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", 
       ".", "k", ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       "se"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
       ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", "se"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", "k", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
           ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
            "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".",
          "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".",
          "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".",
          "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".",
          "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], 
       "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
         "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], 
        ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
        RowBox[{
         FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
         SuperscriptBox["S", "2"], " ", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", 
            FractionBox["1", "k"], ".", "se", ".", 
            RowBox[{
             SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
            "k", ".", "se"}], ")"}], "**", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
       ".", 
       SubscriptBox["sb", "0"], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}], ")"}], "**", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "k"}], ")"}]}]}]},
    {
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "k"}], ")"}]}]}]},
    {
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{"\[ImaginaryI]", " ", 
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "k"}], ")"}]}]}]},
    {
     RowBox[{
      SuperscriptBox["r", "4"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"sekk", " ", 
         SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", 
       SubscriptBox["sb", "0"], ".", "se", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
       "k"}]}], 
     RowBox[{
      SuperscriptBox["r", "4"], " ", "R", " ", 
      SuperscriptBox["S", "2"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
        ")"}], "**", 
       RowBox[{"(", 
        RowBox[{"se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "k"}], ")"}]}]}]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[2.0999999999999996`]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.4]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.774006855546077*^9, 3.774027590545452*^9, 
  3.7886893937658477`*^9},
 CellLabel->
  "Out[179]//TableForm=",ExpressionUUID->"743729ea-6d97-4f00-9535-\
0c434df1deeb"]
}, Open  ]],

Cell["\<\
One in fact double checks that all similar terms are now in canonical form. \
There is one compare table each resolvent.\
\>", "Text",
 CellChangeTimes->{{3.7502603251380434`*^9, 
  3.75026038475142*^9}},ExpressionUUID->"8580e748-6ebd-4982-8982-\
9d00307d4f1a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"treatfine", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"reorder", "[", 
     RowBox[{"Extract", "[", 
      RowBox[{"stuff", ",", "a1"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"a1", ",", "1", ",", 
      RowBox[{"Length", "[", "stuff", "]"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5176578773199577`*^9, 3.517657992684556*^9}, 
   3.517658337694289*^9, {3.5179829043984556`*^9, 3.517982904988489*^9}, 
   3.51799403273196*^9, 3.517994094174474*^9, {3.59012641921729*^9, 
   3.590126451484502*^9}, {3.7281851505947676`*^9, 3.7281851814369674`*^9}},
 CellLabel->
  "In[180]:=",ExpressionUUID->"12191be3-53e9-40d4-882d-6f0cd947abb8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"treatfinehalf", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"treatfine", "[", "stuff", "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"FreeQ", "[", 
       RowBox[{"#", ",", "R"}], "]"}], "\[Equal]", "False"}], "&"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7278320760629616`*^9, 3.7278321635483227`*^9}, {
   3.7278321974941397`*^9, 3.727832199178951*^9}, {3.727832448204347*^9, 
   3.7278324551775923`*^9}, {3.7323988989661493`*^9, 3.7323989266873493`*^9}, 
   3.7323989625049496`*^9},
 CellLabel->
  "In[181]:=",ExpressionUUID->"51ac56b4-18a1-43af-9217-222bd2188706"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Integration in the radial part of the terms with ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],
  FontSize->18,ExpressionUUID->"132aa93b-0be4-459d-b880-97a0f3cbc5a9"],
 StyleBox[" in the middle",
  FontSize->18]
}], "Section",
 CellChangeTimes->{{3.7502607463798065`*^9, 3.7502608178572617`*^9}, {
  3.7502610530158386`*^9, 
  3.750261060398878*^9}},ExpressionUUID->"d48e7fda-35fa-47b1-a37a-\
f2f544cbb6b2"],

Cell[TextData[{
 "We now apply the rearrangement lemma to do the integration in the radial \
part for the terms with ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "5b09ce2b-ae19-460a-be7a-c24c21778a1c"],
 " in the middle. We reintroduce the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "bd3e99c6-a2c8-4c3d-bdcd-f94fc457d983"],
 " on the right and move it to the left."
}], "Text",
 CellChangeTimes->{{3.7502608611345425`*^9, 3.7502609216189375`*^9}, {
  3.7502610068465433`*^9, 3.7502610071665444`*^9}, {3.750261039522748*^9, 
  3.7502610441127787`*^9}, {3.7502613079555273`*^9, 
  3.750261316813594*^9}},ExpressionUUID->"e967a816-d639-40e0-b09f-\
5678a31bef85"],

Cell[BoxData[
 RowBox[{
  RowBox[{"treat1", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Total", "[", 
   RowBox[{"treatfinehalf", "[", "stuff", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7323993976367493`*^9, 3.732399419024349*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"fdf2b1c5-6cc7-4d7f-999e-58c9341e2a8c"],

Cell[TextData[{
 "We integrate by parts for terms with ",
 Cell[BoxData[
  FormBox[
   SubsuperscriptBox["b", "0", "2"], TraditionalForm]],ExpressionUUID->
  "bfb66e83-00fa-4b54-b76d-3049f9bed485"],
 " in the middle:"
}], "Text",
 CellChangeTimes->{{3.7502608611345425`*^9, 3.7502609216189375`*^9}, {
  3.7502610068465433`*^9, 3.7502610071665444`*^9}, {3.750261039522748*^9, 
  3.7502610441127787`*^9}, {3.7502613079555273`*^9, 3.750261316813594*^9}, {
  3.7627824363581495`*^9, 
  3.762782476621149*^9}},ExpressionUUID->"49e11686-1dbe-490d-b7da-\
e3525067d6e4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"treat2", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["r", 
           RowBox[{"-", "1"}]], " ", 
          RowBox[{
           SubscriptBox["\[PartialD]", "dr"], 
           RowBox[{
            SubscriptBox["\[PartialD]", "r"], "#"}]}]}], "-", 
         RowBox[{"2", "sseekk", " ", "S", 
          RowBox[{
           SubscriptBox["\[PartialD]", "dS"], 
           RowBox[{
            SubscriptBox["\[PartialD]", "S"], "#"}]}]}]}], ")"}], "+", 
       RowBox[{"(", 
        RowBox[{"#", "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"dr", "\[Rule]", "0"}], ",", 
           RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}], ")"}]}], ")"}], "&"}], "/@", 
    RowBox[{"treat1", "[", "stuff", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.732398978401349*^9, 3.7323989787133493`*^9}, {
   3.732399118770149*^9, 3.7323992643815494`*^9}, {3.7323993094031496`*^9, 
   3.7323993521783495`*^9}, 3.7323993958271494`*^9, {3.733771755676424*^9, 
   3.7337717574548273`*^9}, {3.733771826266548*^9, 3.7337718385281696`*^9}, {
   3.7337718811942444`*^9, 3.7337718814282446`*^9}, {3.7337720556763525`*^9, 
   3.7337720569243546`*^9}, {3.762202567444159*^9, 3.762202568642954*^9}, {
   3.7622028568037386`*^9, 3.7622028576864004`*^9}, {3.7622037782171693`*^9, 
   3.762203791071825*^9}, {3.7622039295307074`*^9, 3.762203930237838*^9}, {
   3.7622041728184853`*^9, 3.7622041731246433`*^9}, {3.7886220441322885`*^9, 
   3.7886220442140703`*^9}, {3.78862489841527*^9, 3.7886249040881376`*^9}, {
   3.788625813261928*^9, 3.7886258135272408`*^9}, {3.7886258962241554`*^9, 
   3.78862589698116*^9}, 3.7886296187571135`*^9, {3.788629733924258*^9, 
   3.7886297349345264`*^9}, {3.7886298097285957`*^9, 
   3.7886298333873777`*^9}, {3.78862996424955*^9, 3.788629970720275*^9}, {
   3.788630145245267*^9, 3.788630146149881*^9}, {3.7886302173046474`*^9, 
   3.788630234181532*^9}, {3.7886303230978546`*^9, 3.788630328203207*^9}, {
   3.7886304388644066`*^9, 3.788630460674135*^9}, {3.788630547807212*^9, 
   3.7886305507892513`*^9}, {3.788630853908846*^9, 3.7886308602927504`*^9}, {
   3.788631061089007*^9, 3.788631078700929*^9}, {3.7886311161977234`*^9, 
   3.788631117631898*^9}, {3.7886700036749277`*^9, 3.788670023979662*^9}, {
   3.78868591714353*^9, 3.7886859347942324`*^9}, {3.788686241159446*^9, 
   3.7886862412735877`*^9}, {3.78868655739086*^9, 3.7886865586243143`*^9}, 
   3.7886867507716722`*^9, 3.788686792053258*^9, {3.788686886026082*^9, 
   3.788686887965979*^9}, 3.7886870069493384`*^9, {3.7886875432288923`*^9, 
   3.7886875442222757`*^9}, {3.7886875764825926`*^9, 
   3.7886875821505356`*^9}, {3.7886877623633657`*^9, 3.7886877627648506`*^9}},
 CellLabel->
  "In[183]:=",ExpressionUUID->"f8b1d285-ff53-4185-9bc0-5f672ad7a128"],

Cell[BoxData[
 RowBox[{
  RowBox[{"treat2adj", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["r", 
           RowBox[{"-", "1"}]], " ", 
          RowBox[{
           SubscriptBox["\[PartialD]", "dr"], 
           RowBox[{
            SubscriptBox["\[PartialD]", "r"], "#"}]}]}], "-", 
         RowBox[{"2", "sekek", " ", "S", 
          RowBox[{
           SubscriptBox["\[PartialD]", "dS"], 
           RowBox[{
            SubscriptBox["\[PartialD]", "S"], "#"}]}]}]}], ")"}], "+", 
       RowBox[{"(", 
        RowBox[{"#", "/.", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"dr", "\[Rule]", "0"}], ",", 
           RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}], ")"}]}], ")"}], "&"}], "/@", 
    RowBox[{"treat1", "[", "stuff", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.732398978401349*^9, 3.7323989787133493`*^9}, {
   3.732399118770149*^9, 3.7323992643815494`*^9}, {3.7323993094031496`*^9, 
   3.7323993521783495`*^9}, 3.7323993958271494`*^9, {3.733771755676424*^9, 
   3.7337717574548273`*^9}, {3.733771826266548*^9, 3.7337718385281696`*^9}, {
   3.7337718811942444`*^9, 3.7337718814282446`*^9}, {3.7337720556763525`*^9, 
   3.7337720569243546`*^9}, {3.7622025826176014`*^9, 
   3.7622025850002813`*^9}, {3.762202860908801*^9, 3.762202861181039*^9}, {
   3.7622038187398396`*^9, 3.762203822926647*^9}, {3.762203932017082*^9, 
   3.7622039323571987`*^9}, {3.7622041700159655`*^9, 
   3.7622041700637946`*^9}, {3.788622035028624*^9, 3.7886220352051516`*^9}, {
   3.78862490030422*^9, 3.788624907395299*^9}, {3.7886258096885066`*^9, 
   3.788625811482709*^9}, {3.7886258982008715`*^9, 3.788625898927928*^9}, 
   3.7886296199210014`*^9, {3.7886297372433543`*^9, 3.7886297427895308`*^9}, {
   3.7886298359744387`*^9, 3.788629848818106*^9}, {3.788629965075342*^9, 
   3.7886299730331144`*^9}, 3.788630148679086*^9, {3.7886302190978537`*^9, 
   3.7886302379434757`*^9}, {3.788630323714205*^9, 3.788630329404995*^9}, {
   3.788630439984405*^9, 3.78863046211627*^9}, {3.788630549344082*^9, 
   3.7886305499195433`*^9}, 3.788630868106863*^9, {3.7886310622389336`*^9, 
   3.7886310773585176`*^9}, {3.7886311201162543`*^9, 3.788631122461982*^9}, {
   3.7886700064156046`*^9, 3.788670024796511*^9}, {3.7886859257406263`*^9, 
   3.788685938222749*^9}, {3.788686238131278*^9, 3.788686238511757*^9}, 
   3.788686566758417*^9, 3.7886867527003098`*^9, 3.788686793989255*^9, 
   3.788686893451785*^9, 3.7886870096118016`*^9, {3.7886875475492516`*^9, 
   3.7886875809272766`*^9}, {3.7886877648284283`*^9, 3.78868776495446*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"4528ea00-cdf5-4863-868f-c36799deffbf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"intbyparts", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", 
         RowBox[{"-", "1"}]], 
        RowBox[{
         SubscriptBox["\[PartialD]", "dr"], 
         RowBox[{
          SubscriptBox["\[PartialD]", "r"], "stuff"}]}]}], "-", 
       RowBox[{"2", "sseekk", " ", "S", 
        RowBox[{
         SubscriptBox["\[PartialD]", "dS"], 
         RowBox[{
          SubscriptBox["\[PartialD]", "S"], "stuff"}]}]}]}], ")"}], "+", 
     RowBox[{"(", 
      RowBox[{"stuff", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"dr", "\[Rule]", "0"}], ",", 
         RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}], ")"}]}], ")"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7886203741851797`*^9, 3.7886203836588554`*^9}, {
   3.7886211263546066`*^9, 3.7886211342006025`*^9}, {3.7886220372456975`*^9, 
   3.7886220373414745`*^9}, 3.788622243480448*^9, {3.788624909440797*^9, 
   3.788624912491645*^9}, {3.788625805586445*^9, 3.7886258079242315`*^9}, {
   3.788625899792655*^9, 3.788625900517679*^9}, 3.7886296215576344`*^9, 
   3.7886297487974715`*^9, {3.7886298398799996`*^9, 3.7886298495331955`*^9}, {
   3.7886299663998013`*^9, 3.7886299772787237`*^9}, 3.788630149832008*^9, {
   3.7886302507602177`*^9, 3.788630258953315*^9}, {3.788630325384773*^9, 
   3.7886303304621677`*^9}, {3.7886304418873215`*^9, 3.788630463017838*^9}, {
   3.7886305839012995`*^9, 3.788630584607413*^9}, {3.7886308985484905`*^9, 
   3.7886309010378356`*^9}, {3.7886310633868885`*^9, 
   3.7886310762794023`*^9}, {3.788670008367388*^9, 3.7886700178171635`*^9}, 
   3.7886700624378552`*^9, 3.7886859269238205`*^9, {3.7886862448250465`*^9, 
   3.7886862474839573`*^9}, 3.788686568765974*^9, 3.788686757196698*^9, 
   3.788686795450583*^9, 3.788686930178553*^9, 3.7886870126395307`*^9, {
   3.78868755035569*^9, 3.788687583992401*^9}, {3.7886877673092527`*^9, 
   3.7886877674843063`*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"e8aad569-8830-43d4-b82f-413aaa3e5f29"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"reorder", "[", 
  RowBox[{
   RowBox[{"-", "2"}], " ", 
   SuperscriptBox["r", "6"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
    RowBox[{"(", 
     RowBox[{"ssekk", " ", 
      SubsuperscriptBox["ssb", "0", "2"], " ", 
      SubscriptBox["sse", "1"]}], ")"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
  "]"}]], "Input",
 CellLabel->
  "In[186]:=",ExpressionUUID->"55865246-7c69-4b27-8ee1-f7dd5d3ad2d5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", 
  SuperscriptBox["r", "6"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], " ", "dr", " ", "R", " ", 
     SuperscriptBox["S", "2"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
       ")"}], "**", 
      RowBox[{"(", 
       RowBox[{"sse", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
    "+", 
    RowBox[{
     FractionBox["1", "2"], " ", "dS", " ", "R", " ", 
     SuperscriptBox["S", "3"], " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
       ")"}], "**", 
      RowBox[{"(", 
       RowBox[{"sse", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}],
    ")"}]}]], "Output",
 CellChangeTimes->{3.788687734157761*^9, 3.78868788293813*^9, 
  3.788689394000228*^9},
 CellLabel->
  "Out[186]=",ExpressionUUID->"f44142d7-59f0-4ce4-922e-ae47b8a5ad36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SuperscriptBox["r", 
   RowBox[{"-", "1"}]], " ", 
  RowBox[{
   SubscriptBox["\[PartialD]", "dr"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "r"], 
    RowBox[{"reorder", "[", 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.788620751852672*^9, 3.788620809850614*^9}, {
   3.7886208485352077`*^9, 3.7886208557469554`*^9}, 3.788626749384204*^9, 
   3.7886296337829475`*^9, 3.788629750000285*^9, {3.788630263723566*^9, 
   3.788630264083602*^9}, {3.788630342685495*^9, 3.7886303500139036`*^9}, 
   3.788630564336005*^9, 3.7886700319154806`*^9, 3.7886862644883494`*^9},
 CellLabel->
  "In[187]:=",ExpressionUUID->"60534634-f97f-4112-8f97-2de5359d74d0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "6"}], " ", 
  SuperscriptBox["r", "4"], " ", "R", " ", 
  SuperscriptBox["S", "2"], " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
    ")"}], "**", 
   RowBox[{"(", 
    RowBox[{"sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.7886877343508196`*^9, 3.788687782085514*^9, 
  3.788687883303854*^9, 3.7886893940889845`*^9},
 CellLabel->
  "Out[187]=",ExpressionUUID->"8ee26de0-a08b-49a6-acd8-c9c53c82c602"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], "sseekk", " ", "S", 
  RowBox[{
   SubscriptBox["\[PartialD]", "dS"], 
   RowBox[{
    SubscriptBox["\[PartialD]", "S"], 
    RowBox[{"reorder", "[", 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      SuperscriptBox["r", "6"], " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
       RowBox[{"(", 
        RowBox[{"ssekk", " ", 
         SubsuperscriptBox["ssb", "0", "2"], " ", 
         SubscriptBox["sse", "1"]}], ")"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{
  3.788620867284089*^9, {3.788622249854409*^9, 3.7886222635757*^9}, 
   3.7886267530524197`*^9, 3.788629634967744*^9, 3.788629756018218*^9, 
   3.7886301593904886`*^9, {3.7886302661510773`*^9, 3.7886302676351075`*^9}, 
   3.7886303511718082`*^9, {3.7886305592605724`*^9, 3.788630559396244*^9}, 
   3.788631182719911*^9, 3.7886700417741356`*^9, {3.788686269087285*^9, 
   3.788686273240576*^9}, 3.788686573087614*^9, 3.7886869350837665`*^9, 
   3.7886870284626923`*^9, {3.7886877736774716`*^9, 3.7886877737948875`*^9}},
 CellLabel->
  "In[188]:=",ExpressionUUID->"561fa427-08b2-40c8-a691-e50b7aaebae0"],

Cell[BoxData[
 RowBox[{"6", " ", 
  SuperscriptBox["r", "6"], " ", "R", " ", 
  SuperscriptBox["S", "3"], " ", "sseekk", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
    ")"}], "**", 
   RowBox[{"(", 
    RowBox[{"sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.7886877345493927`*^9, 3.788687782430575*^9, 
  3.7886878836126747`*^9, 3.788689394176751*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"2e1b51bb-e3ee-4cfe-a331-d21c62cb91a3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"reorder", "[", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    SuperscriptBox["r", "6"], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ssekk", " ", 
       SubsuperscriptBox["ssb", "0", "2"], " ", 
       SubscriptBox["sse", "1"]}], ")"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
     RowBox[{"(", 
      RowBox[{"ssekk", " ", 
       SubsuperscriptBox["ssb", "0", "2"], " ", 
       SubscriptBox["sse", "1"]}], ")"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "]"}], "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"dr", "\[Rule]", "0"}], ",", 
    RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}]], "Input",
 CellChangeTimes->{3.7886208872577295`*^9, 3.788631199120041*^9},
 CellLabel->
  "In[189]:=",ExpressionUUID->"cb382a6d-1688-47c2-9935-8e11c16fa827"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.7886877349478774`*^9, 3.7886877826089683`*^9, 
  3.788687884091525*^9, 3.788689394265512*^9},
 CellLabel->
  "Out[189]=",ExpressionUUID->"4cdd5b97-7160-40ef-885a-6b46e7a796fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"intbyparts", "[", 
  RowBox[{"reorder", "[", 
   RowBox[{
    RowBox[{"-", "2"}], " ", 
    SuperscriptBox["r", "6"], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"ssekk", " ", 
       SubsuperscriptBox["ssb", "0", "2"], " ", 
       SubscriptBox["sse", "1"]}], ")"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
     RowBox[{"(", 
      RowBox[{"ssekk", " ", 
       SubsuperscriptBox["ssb", "0", "2"], " ", 
       SubscriptBox["sse", "1"]}], ")"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "]"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.7886211021991444`*^9, 3.788621109340056*^9}},
 CellLabel->
  "In[190]:=",ExpressionUUID->"88016482-d741-40ea-9563-84c3419bb706"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "6"}], " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.7886877351453867`*^9, 3.788687782806651*^9, 
  3.7886878844845595`*^9, 3.78868939435228*^9},
 CellLabel->
  "Out[190]=",ExpressionUUID->"4ea1d2a2-b9a2-42f9-b2ba-b42a66d2598a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"treat2", "[", "minusinnerintegraltimesb0inverse", "]"}]], "Input",
 CellChangeTimes->{{3.7324811271974945`*^9, 3.7324811356405106`*^9}},
 CellLabel->
  "In[191]:=",ExpressionUUID->"75336748-17a6-46c1-bb4c-49af782964d6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}],
   "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", "sseekk", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], 
  "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     ")"}], "**", 
    RowBox[{"(", 
     RowBox[{"sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.7740068561828613`*^9, 3.774027590795781*^9, 
  3.7886893944669743`*^9},
 CellLabel->
  "Out[191]=",ExpressionUUID->"ea2ab05d-b7a7-4b24-b60c-9c7c0d1e8d71"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"treat2adj", "[", "minusinnerintegraltimesb0inverseadj", 
  "]"}]], "Input",
 CellChangeTimes->{{3.732481136904113*^9, 3.732481143814925*^9}, {
  3.762202586714655*^9, 3.762202587434729*^9}},
 CellLabel->
  "In[192]:=",ExpressionUUID->"67b0b224-ce5e-46d9-a17b-4103f659b025"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
     ")"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
     ")"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], 
  "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], 
  "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], 
     ")"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{"(", 
     RowBox[{"se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], 
     ")"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"2", " ", "\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"6", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", "sekek", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   SuperscriptBox["r", "4"], " ", "R", " ", 
   SuperscriptBox["S", "2"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], ")"}], "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"4", " ", 
   SuperscriptBox["r", "6"], " ", "R", " ", 
   SuperscriptBox["S", "3"], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], 
    "**", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}]], "Output",
 CellChangeTimes->{3.774006856426897*^9, 3.7740275909154935`*^9, 
  3.7886893946165733`*^9},
 CellLabel->
  "Out[192]=",ExpressionUUID->"a76c9c6b-54c2-4709-8c5d-03d8381d5c1b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"CoefficientRules", "[", 
   RowBox[{
    RowBox[{"treat2", "[", "minusinnerintegraltimesb0inverse", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 
   3.720468696854107*^9},
 CellLabel->
  "In[193]:=",ExpressionUUID->"9a8e4090-b842-44a5-9934-0b10e27c2a55"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{"3", " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", 
             "sse", ".", "k", ".", "k", ".", "sse", ".", 
             RowBox[{
              SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
             "sse"}], ")"}], "**", 
           RowBox[{"(", 
            RowBox[{"sse", ".", 
             RowBox[{
              SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
            ")"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", 
             "sse", ".", "k", ".", "k", ".", "sse", ".", 
             RowBox[{
              SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
             "sse"}], ")"}], "**", 
           RowBox[{"(", 
            RowBox[{"sse", ".", 
             RowBox[{
              SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
            ")"}]}]}], ")"}]}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["r", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "4"}], " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"4", " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", "sseekk", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
         ")"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
          ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
         ")"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
          ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}], 
       "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
           ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
          ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}],
       ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
         ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
          ")"}]}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], 
          ")"}]}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], 
         ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}], 
       "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", "k", ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], 
          ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}], 
       "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "sse"}], ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"sse", ".", "k", ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
          "sse"}], ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"sse", ".", "k", ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], 
      ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7740068572221107`*^9, 3.7740275910441494`*^9, 
  3.7886893947761617`*^9},
 CellLabel->
  "Out[193]=",ExpressionUUID->"964ed23b-193e-4ce9-8003-ad854e497a99"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"CoefficientRules", "[", 
   RowBox[{
    RowBox[{"treat2adj", "[", "minusinnerintegraltimesb0inverseadj", "]"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 
   3.720468696854107*^9, {3.7324895300935984`*^9, 3.7324895302339983`*^9}, {
   3.7622025893316555`*^9, 3.762202589477267*^9}},
 CellLabel->
  "In[194]:=",ExpressionUUID->"9b85c7f5-9ec4-4ef3-b7bc-a95d6b314471"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "6"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"3", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{"3", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
             ".", "k", ".", "k", ".", 
             RowBox[{
              SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
            ")"}], "**", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", 
             FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
             ".", "k", ".", "k", ".", 
             RowBox[{
              SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
            ")"}], "**", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ")"}]}]}], 
      ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["r", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"se", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], 
         ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], 
          ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
          "k"}], ")"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "k"}], ")"}]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"se", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], 
          ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], 
         ")"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{"(", 
          RowBox[{"se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "k"}], ")"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
         ")"}], "**", 
        RowBox[{"(", 
         RowBox[{"se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
          "k"}], ")"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"2", " ", "sekek", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}],
         "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
           ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
           ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}],
         "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
          "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
          "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
          "k", ".", "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
           ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", 
          ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
          "k", ".", "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ")"}]}]}], 
   ",", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", 
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}],
         "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", "k", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], 
          ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", "k", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}],
         "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
          "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
           "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
          "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
          "k", ".", "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", 
           FractionBox["1", "k"], ".", "se", ".", 
           RowBox[{
            SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
           "k", ".", "se"}], ")"}], "**", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", 
          FractionBox["1", "k"], ".", "se", ".", 
          RowBox[{
           SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
          "k", ".", "se"}], ")"}], "**", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ")"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.7740068581713037`*^9, 3.774027591169814*^9, 
  3.788689394928749*^9},
 CellLabel->
  "Out[194]=",ExpressionUUID->"92a70b2d-ed93-4cd9-b7ab-f9a2fe96be0f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"poww", "[", 
   RowBox[{"{", 
    RowBox[{"n_", ",", "m_"}], "}"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["r", 
    RowBox[{
     RowBox[{"-", "2"}], 
     RowBox[{"(", 
      RowBox[{"n", "+", "m", "-", "1"}], ")"}]}]], " ", "/", "2"}]}]], "Input",
 CellChangeTimes->{{3.516956074375*^9, 3.51695607621875*^9}, {
   3.5169561063125*^9, 3.516956181859375*^9}, {3.7324900409505568`*^9, 
   3.7324900411533566`*^9}, 3.732490709449501*^9, {3.7324908368301387`*^9, 
   3.7324908485129642`*^9}, 3.732491017207254*^9, {3.7324927030231037`*^9, 
   3.732492703491105*^9}, 3.732493393297078*^9, {3.732493578649971*^9, 
   3.7324935938374014`*^9}, {3.7324937549687667`*^9, 3.732493758171773*^9}, 
   3.732494225040928*^9, 3.7324942772972307`*^9, 3.732494442007168*^9, {
   3.7324946389390993`*^9, 3.7324946596391416`*^9}, {3.732494758691535*^9, 
   3.7324947589889355`*^9}, 3.7324949973050284`*^9, {3.7325544186223516`*^9, 
   3.732554427768874*^9}, {3.788689061567808*^9, 3.78868906174037*^9}},
 CellLabel->
  "In[195]:=",ExpressionUUID->"4ee7b7cd-cf4f-4273-aefd-69fb9d68338d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["D", "n_"], "[", 
   RowBox[{"NonCommutativeMultiply", "[", 
    RowBox[{"a_", ",", "b_"}], "]"}], "]"}], ":=", 
  RowBox[{"Dot", "[", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "n"], "[", "a", "]"}], ",", "b"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.73282608150974*^9, 3.7328261351388073`*^9}, {
  3.732826221925771*^9, 3.7328262618240533`*^9}, {3.733761857772077*^9, 
  3.7337618763361096`*^9}},
 CellLabel->
  "In[196]:=",ExpressionUUID->"ad9adc03-b14e-4cef-a97b-f47ab990a95a"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["D", "n_"], "[", 
   RowBox[{"a___", ",", 
    RowBox[{"b1_", "+", "b2_"}], ",", "c___"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    SubscriptBox["D", "n"], "[", 
    RowBox[{"a", ",", "b1", ",", "c"}], "]"}], "+", 
   RowBox[{
    SubscriptBox["D", "n"], "[", 
    RowBox[{"a", ",", "b2", ",", "c"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.6900493800876207`*^9, 3.69004942280956*^9}, {
  3.690662865639802*^9, 3.690662875254161*^9}, {3.7328333335721235`*^9, 
  3.7328333364143286`*^9}, {3.7328333915632358`*^9, 3.732833403005457*^9}, {
  3.7522555456395025`*^9, 3.752255568785391*^9}, {3.7522557288341675`*^9, 
  3.7522557338070726`*^9}, {3.7522585454476447`*^9, 3.752258556889022*^9}, {
  3.7522691166420345`*^9, 3.7522691266881943`*^9}, {3.752269607339723*^9, 
  3.752269619455323*^9}},
 CellLabel->
  "In[197]:=",ExpressionUUID->"c52f30d2-adc9-4211-923e-68daaf1f4796"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["D", "n_"], "[", 
   RowBox[{"x_", "?", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", "e"}], "]"}], "&&", 
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", "sse"}], "]"}], "&&", 
       RowBox[{"FreeQ", "[", 
        RowBox[{"#", ",", "se"}], "]"}]}], "&"}], ")"}]}], "]"}], ":=", 
  FractionBox["x", 
   RowBox[{"n", "+", "1"}]]}]], "Input",
 CellChangeTimes->{{3.6900498078503113`*^9, 3.69004981214917*^9}, {
   3.690659261214715*^9, 3.690659277537323*^9}, 3.6906628901630898`*^9, {
   3.732833337663331*^9, 3.7328333929546385`*^9}, {3.752252963886016*^9, 
   3.7522529661589713`*^9}, 3.7522546946662025`*^9, {3.7522557457548256`*^9, 
   3.7522557578366103`*^9}, {3.752262837524604*^9, 3.7522628387809362`*^9}, {
   3.7522691287306995`*^9, 3.7522691457532005`*^9}, {3.762202666911326*^9, 
   3.7622026771669235`*^9}},
 CellLabel->
  "In[198]:=",ExpressionUUID->"f9cb6374-05e8-40ba-99f4-9838e1272073"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["D", "n_"], "[", 
   RowBox[{"a___", ",", 
    RowBox[{"x_", "?", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"FreeQ", "[", 
         RowBox[{"#", ",", "e"}], "]"}], "&&", 
        RowBox[{"FreeQ", "[", 
         RowBox[{"#", ",", "sse"}], "]"}], "&&", 
        RowBox[{"FreeQ", "[", 
         RowBox[{"#", ",", "se"}], "]"}]}], "&"}], ")"}]}], ",", "b___"}], 
   "]"}], ":=", 
  RowBox[{"x", " ", 
   RowBox[{
    SubscriptBox["D", "n"], "[", 
    RowBox[{"a", ",", "b"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.690659614376678*^9, 3.690659644509507*^9}, 
   3.690659857722563*^9, {3.6906628901779423`*^9, 3.6906628901797857`*^9}, {
   3.7328333844160223`*^9, 3.732833406635466*^9}, 3.7522517753726864`*^9, {
   3.7522557828648987`*^9, 3.7522557902671986`*^9}, {3.7522585837735987`*^9, 
   3.7522585906632595`*^9}, {3.7522628271881447`*^9, 3.752262830769324*^9}, {
   3.7522691332606144`*^9, 3.7522691410517445`*^9}, {3.7522698223136997`*^9, 
   3.7522698313695083`*^9}, {3.7622026705665474`*^9, 3.7622026801289997`*^9}},
 CellLabel->
  "In[199]:=",ExpressionUUID->"a339e19b-406d-4492-89ec-de49df9f5830"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SubscriptBox["D", "n_"], "[", 
   RowBox[{"a___", ",", 
    RowBox[{
     RowBox[{"x__", "?", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", "e"}], "]"}], "&&", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", "sse"}], "]"}], "&&", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", "se"}], "]"}], "&&", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", 
           SubscriptBox["\[Delta]", "1"]}], "]"}], "&&", 
         RowBox[{"FreeQ", "[", 
          RowBox[{"#", ",", 
           SubscriptBox["\[Delta]", "2"]}], "]"}]}], "&"}], ")"}]}], "y_"}], 
    ",", "b___"}], "]"}], ":=", 
  RowBox[{"x", " ", 
   RowBox[{
    SubscriptBox["D", "n"], "[", 
    RowBox[{"a", ",", "y", ",", "b"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.690659819569788*^9, 3.6906598702848682`*^9}, {
   3.690662890190576*^9, 3.6906628901919727`*^9}, {3.732833386481226*^9, 
   3.732833409478671*^9}, 3.752251776275982*^9, {3.7522557924471703`*^9, 
   3.7522557997817216`*^9}, {3.7522585853613815`*^9, 3.752258593697481*^9}, {
   3.7522628338902407`*^9, 3.7522628359382577`*^9}, {3.7522663264086943`*^9, 
   3.7522663406855145`*^9}, {3.7522691641290197`*^9, 
   3.7522691718842764`*^9}, {3.752269842101804*^9, 3.7522698471762314`*^9}, {
   3.762202682315156*^9, 3.7622026868131037`*^9}},
 CellLabel->
  "In[200]:=",ExpressionUUID->"2239389a-501b-4986-8be9-5801baa59d72"],

Cell[BoxData[
 RowBox[{
  RowBox[{"transfo", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Expand", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "1"}], 
       RowBox[{"Length", "[", 
        RowBox[{"CoefficientRules", "[", 
         RowBox[{"stuff", ",", 
          RowBox[{"{", 
           RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], 
      RowBox[{"sse", " ", 
       RowBox[{
        SubscriptBox["D", 
         RowBox[{"First", "[", 
          RowBox[{"First", "[", 
           RowBox[{"Part", "[", 
            RowBox[{
             RowBox[{"CoefficientRules", "[", 
              RowBox[{"stuff", ",", 
               RowBox[{"{", 
                RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], 
           "]"}], "]"}]], " ", "[", 
        RowBox[{
         RowBox[{"poww", "[", 
          RowBox[{"First", "[", 
           RowBox[{"Part", "[", 
            RowBox[{
             RowBox[{"CoefficientRules", "[", 
              RowBox[{"stuff", ",", 
               RowBox[{"{", 
                RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], 
           "]"}], "]"}], 
         RowBox[{"Last", "[", 
          RowBox[{"Part", "[", 
           RowBox[{
            RowBox[{"CoefficientRules", "[", 
             RowBox[{"stuff", ",", 
              RowBox[{"{", 
               RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], 
          "]"}]}], "]"}]}]}], "]"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"sse", " ", "sseekk"}], "\[Rule]", "ssekksse"}], 
    "}"}]}]}]], "Input",
 CellChangeTimes->{{3.7324907169621143`*^9, 3.7324907279215364`*^9}, {
   3.732490853444573*^9, 3.732490853491373*^9}, {3.732493261027597*^9, 
   3.7324932612459974`*^9}, 3.732493339575175*^9, 3.7324934002948914`*^9, {
   3.7324935753865647`*^9, 3.7324936089192314`*^9}, {3.732493655033723*^9, 
   3.732493655189723*^9}, 3.7324937650311856`*^9, {3.732494069652487*^9, 
   3.7324940731714935`*^9}, {3.7324947631299434`*^9, 3.732494763504344*^9}, {
   3.7324948121990385`*^9, 3.7324948265740695`*^9}, {3.7324948957146196`*^9, 
   3.732494906369839*^9}, {3.732495026340283*^9, 3.7324950293082886`*^9}, {
   3.7328211272383947`*^9, 3.732821193016735*^9}, {3.7328233687103157`*^9, 
   3.7328234028056955`*^9}, {3.7328234813953795`*^9, 
   3.7328234851191864`*^9}, {3.7328357723632917`*^9, 3.7328357809139085`*^9}, 
   3.7328358690443*^9, {3.7337620183899593`*^9, 3.733762042975602*^9}, 
   3.733762106015313*^9, 3.733762159024206*^9, 3.7337682284147053`*^9, 
   3.733768263873567*^9, 3.7337696232443547`*^9, {3.733769799945865*^9, 
   3.733769820943502*^9}, 3.7337708654140606`*^9, {3.7337719040638847`*^9, 
   3.7337719049998865`*^9}, {3.733771962575389*^9, 3.7337719652273936`*^9}, {
   3.7337720653951693`*^9, 3.7337720655667696`*^9}, 3.7622023964512315`*^9, {
   3.762203129635497*^9, 3.762203133706614*^9}, {3.7622044346645546`*^9, 
   3.7622044822932873`*^9}, {3.7622045593133836`*^9, 3.762204580629442*^9}, {
   3.762283149679826*^9, 3.762283151035241*^9}},
 CellLabel->
  "In[201]:=",ExpressionUUID->"649fc8ec-b7ea-4bcf-ac54-cff8c2d5d499"],

Cell[BoxData[
 RowBox[{
  RowBox[{"transfoadj", "[", "stuff_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Expand", "[", 
    RowBox[{"Simplify", "[", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "1"}], 
       RowBox[{"Length", "[", 
        RowBox[{"CoefficientRules", "[", 
         RowBox[{"stuff", ",", 
          RowBox[{"{", 
           RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], 
      RowBox[{"se", " ", 
       RowBox[{
        SubscriptBox["D", 
         RowBox[{"First", "[", 
          RowBox[{"First", "[", 
           RowBox[{"Part", "[", 
            RowBox[{
             RowBox[{"CoefficientRules", "[", 
              RowBox[{"stuff", ",", 
               RowBox[{"{", 
                RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], 
           "]"}], "]"}]], " ", "[", 
        RowBox[{
         RowBox[{"poww", "[", 
          RowBox[{"First", "[", 
           RowBox[{"Part", "[", 
            RowBox[{
             RowBox[{"CoefficientRules", "[", 
              RowBox[{"stuff", ",", 
               RowBox[{"{", 
                RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], 
           "]"}], "]"}], 
         RowBox[{"Last", "[", 
          RowBox[{"Part", "[", 
           RowBox[{
            RowBox[{"CoefficientRules", "[", 
             RowBox[{"stuff", ",", 
              RowBox[{"{", 
               RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], 
          "]"}]}], "]"}]}]}], "]"}], "]"}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"se", " ", "sekek"}], "\[Rule]", "sekkse"}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.7324907169621143`*^9, 3.7324907279215364`*^9}, {
   3.732490853444573*^9, 3.732490853491373*^9}, {3.732493261027597*^9, 
   3.7324932612459974`*^9}, 3.732493339575175*^9, 3.7324934002948914`*^9, {
   3.7324935753865647`*^9, 3.7324936089192314`*^9}, {3.732493655033723*^9, 
   3.732493655189723*^9}, 3.7324937650311856`*^9, {3.732494069652487*^9, 
   3.7324940731714935`*^9}, {3.7324947631299434`*^9, 3.732494763504344*^9}, {
   3.7324948121990385`*^9, 3.7324948265740695`*^9}, {3.7324948957146196`*^9, 
   3.732494906369839*^9}, {3.732495026340283*^9, 3.7324950293082886`*^9}, {
   3.7328211272383947`*^9, 3.732821193016735*^9}, {3.7328233687103157`*^9, 
   3.7328234028056955`*^9}, {3.7328234813953795`*^9, 
   3.7328234851191864`*^9}, {3.7328357723632917`*^9, 3.7328357809139085`*^9}, 
   3.7328358690443*^9, {3.7337620183899593`*^9, 3.733762042975602*^9}, 
   3.733762106015313*^9, 3.733762159024206*^9, 3.7337682284147053`*^9, 
   3.733768263873567*^9, 3.7337696232443547`*^9, {3.733769799945865*^9, 
   3.733769820943502*^9}, 3.7337708654140606`*^9, {3.7337719040638847`*^9, 
   3.7337719049998865`*^9}, {3.733771962575389*^9, 3.7337719652273936`*^9}, {
   3.7337720653951693`*^9, 3.7337720655667696`*^9}, 3.7622023964512315`*^9, {
   3.7622031238419847`*^9, 3.762203136613846*^9}, {3.7622044854448247`*^9, 
   3.762204515386826*^9}, {3.7622045641793756`*^9, 3.762204581757426*^9}, {
   3.7622833079209046`*^9, 3.762283308049548*^9}},
 CellLabel->
  "In[202]:=",ExpressionUUID->"9e7a289d-57f3-4dc3-af64-150382f5bc9e"],

Cell["For the integral of the terms for the first resolvent we get", "Text",
 CellChangeTimes->{{3.750260979751354*^9, 
  3.7502610012175097`*^9}},ExpressionUUID->"8711eba4-fcac-4424-a28a-\
71613f2df864"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"halfres0", "=", 
  RowBox[{"transfo", "[", 
   RowBox[{"treat2", "[", "minusinnerintegraltimesb0inverse", "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7324927852334766`*^9, 3.732492824998158*^9}, {
  3.732550304801742*^9, 3.7325503050825424`*^9}},
 CellLabel->
  "In[203]:=",ExpressionUUID->"33705973-439e-486b-8c51-edcf04c38beb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"2", " ", "ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"2", " ", "ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"3", " ", "ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", 
  RowBox[{"3", " ", "ssekksse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"2", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"2", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], 
    ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
      "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", "k", ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], 
     "]"}], ".", "sse", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
    "k"}]}]}]], "Output",
 CellChangeTimes->{3.7740068594428797`*^9, 3.7740275914241323`*^9, 
  3.788689395222953*^9},
 CellLabel->
  "Out[203]=",ExpressionUUID->"9a62db39-5147-45c7-b48c-31065ec1cc8a"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "cef072a3-f357-4764-9f20-9617d29fd07e"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"3a688fdd-e5f5-4510-aeee-\
a4b7f1042373"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.733772384922531*^9, 3.7337723883077374`*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"f9bb640e-9bae-4f98-aa77-c874368b4d70"],

Cell["\<\
\\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
text{se}.\\delta _1(k).\\text{sse}\\right).\\text{sse}.\\delta \
_1(\\text{ssekksse})+\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.\\text{se}.\\delta _2(k).\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})+\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.\\delta _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_1(\\text{ssekksse})-\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.\\delta _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})+\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.\\delta _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_1(\\text{ssekksse})+\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.\\delta _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})-2 \\text{ssekksse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta \
_1(k).\\text{sse}\\right).\\text{sse}.\\delta _1(\\text{ssekksse})-2 \
\\text{ssekksse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta \
_2(k).\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})-\\text{ssekksse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_1(\\text{ssekksse})+i \\text{ssekksse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})-i \\text{ssekksse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_1(\\text{ssekksse})-\\text{ssekksse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})-\\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \
_1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta
   _1(\\text{ssekksse})-\\text{sse} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta
   _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})+\\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\text{se}.\\delta \
_1(k).\\text{sse}\\right).\\text{sse}.\\delta
   _1(\\text{ssekksse})+\\text{sse} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\text{se}.\\delta
   _2(k).\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})+\\frac{1}{2} \\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta
   _1(\\text{ssekksse})-\\frac{1}{2} i \\text{sse} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta
   _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})+\\frac{1}{2} i \\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta
   _1(\\text{ssekksse})+\\frac{1}{2} \\text{sse} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta
   _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})+3 \\text{ssekksse}
   D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \
_1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta
   _1(\\text{ssekksse})+3 \\text{ssekksse} \
D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta
   _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})-2 \\text{sse}
   D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{\
sse}.\\delta
   _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \
_1(\\text{ssekksse})-2 \\text{sse}
   D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{\
sse}.\\delta
   _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \
_2(\\text{ssekksse})-\\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
text{se}.\\delta
   _1(k).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \
_1(k)-\\frac{1}{2} \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
text{se}.\\delta
   _1(k).\\text{sse}\\right).\\text{sse}.k.\\delta \
_1(\\text{se}).k-\\frac{1}{2} i \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
text{se}.\\delta
   _1(k).\\text{sse}\\right).\\text{sse}.k.\\delta \
_2(\\text{se}).k-\\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
text{se}.\\delta
   _2(k).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \
_2(k)+\\frac{1}{2} i \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
text{se}.\\delta
   _2(k).\\text{sse}\\right).\\text{sse}.k.\\delta \
_1(\\text{se}).k-\\frac{1}{2} \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
text{se}.\\delta
   _2(k).\\text{sse}\\right).\\text{sse}.k.\\delta \
_2(\\text{se}).k-\\frac{1}{2} \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
delta
   _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \
_1(k)+\\frac{1}{2} i \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
delta
   _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \
_2(k)-\\frac{1}{2} i \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
delta
   _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \
_1(k)-\\frac{1}{2} \\text{sse} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\
delta
   _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \
_2(k)+\\text{sse} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta
   _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \
_1(k)+\\frac{1}{2} \\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \
_1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta
   _1(\\text{se}).k+\\frac{1}{2} i \\text{sse} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta
   _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta \
_2(\\text{se}).k+\\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \
_2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta
   _2(k)-\\frac{1}{2} i \\text{sse} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta
   _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta \
_1(\\text{se}).k+\\frac{1}{2} \\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \
_2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta \
_2(\\text{se}).k\
\>", "Output",
 CellChangeTimes->{3.774006860017994*^9, 3.774027591530846*^9, 
  3.7886893953465924`*^9},
 CellLabel->
  "Out[204]//TeXForm=",ExpressionUUID->"a89e2581-a433-41ce-b4ea-e39144169e11"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.75026108883307*^9, 
  3.750261093124098*^9}},ExpressionUUID->"95623328-a120-4415-a866-\
18a4525289bb"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[205]:=",ExpressionUUID->"657c2f4e-80d8-4b84-89bc-6d75c645b723"],

Cell[BoxData["40"], "Output",
 CellChangeTimes->{3.7740068605378447`*^9, 3.774027591593647*^9, 
  3.788689395435385*^9},
 CellLabel->
  "Out[205]=",ExpressionUUID->"faad87dd-e312-4fa6-9e1d-589c3afabcb7"]
}, Open  ]],

Cell["\<\
For the integral of the terms for the second resolvent we get\
\>", "Text",
 CellChangeTimes->{{3.750260979751354*^9, 3.7502610012175097`*^9}, {
  3.75026118079967*^9, 
  3.7502611822146916`*^9}},ExpressionUUID->"c3933f4d-e2b8-4e02-895b-\
91b79f9768c0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"halfres0adj", "=", 
  RowBox[{"transfoadj", "[", 
   RowBox[{"treat2adj", "[", "minusinnerintegraltimesb0inverseadj", "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7324927852334766`*^9, 3.732492834918176*^9}, {
  3.7325503079247475`*^9, 3.7325503081753483`*^9}, {3.762202984447565*^9, 
  3.7622029846101627`*^9}, {3.762203148818272*^9, 3.762203149124406*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"f4e68284-e33a-48ec-b758-bda9cbcd957c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "1"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
     "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
      ".", "se"}], "]"}], ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"3", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{"3", " ", "sekkse", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", 
  RowBox[{"2", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "3"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
      "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", "k", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    RowBox[{
     SubscriptBox["D", "2"], "[", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], 
    ".", "se", ".", 
    RowBox[{
     SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
    "k"}]}]}]], "Output",
 CellChangeTimes->{3.774006861370559*^9, 3.77402759173131*^9, 
  3.7886893955720205`*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"70e2e7f9-7ea2-4163-82fd-ef8418b9c35d"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "45156c86-ed04-4ed1-ab3e-f6610655eeb7"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"a0009353-ae06-4c08-8fbf-\
41cf7715c417"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.733772384922531*^9, 3.7337723883077374`*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"9fd34e99-b9f9-4b79-b5ee-03d7de2ff267"],

Cell["\<\
\\frac{1}{2} \\text{se} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\\\
delta _1(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
\\delta _1(k).\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
\\delta _2(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
\\delta _2(k).\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _1(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _1(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _2(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _2(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \
_1(\\text{sekk})+\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \
_2(\\text{sekk})-\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \
_1(\\text{sekk})+\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\
delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \
_2(\\text{sekk})-\\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\text{se}\\right).\\delta \
_1(\\text{sekk})-i \\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\text{se}\\right).\\delta \
_2(\\text{sekk})+i \\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\text{se}\\right).\\delta \
_1(\\text{sekk})-\\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\text{se}\\right).\\delta \
_2(\\text{sekk})-\\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\text{se}\\right).\\delta \
_1(\\text{sekk})-i \\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\text{se}\\right).\\delta \
_2(\\text{sekk})+i \\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\text{se}\\right).\\delta \
_1(\\text{sekk})-\\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\text{se}\\right).\\delta \
_2(\\text{sekk})-\\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\delta _1(\\text{sekk})-\\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\delta _2(\\text{sekk})-\\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \
_1(\\text{sekk})-i \\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \
_2(\\text{sekk})+i \\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \
_1(\\text{sekk})-\\text{sekkse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \
_2(\\text{sekk})+\\frac{1}{2} \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \
_1(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \
_1(k).\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \
_2(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \
_2(k).\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \
\\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(\\text{se}).k.k.\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \
\\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \
\\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(\\text{se}).k.k.\\text{se}\\right).\\delta _2(\\text{sekk})+3 \\text{sekkse}
   D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\delta _1(\\text{sekk})+3 \\text{sekkse}
   D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\delta _2(\\text{sekk})-2 \\text{se}
   D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\delta _1(\\text{sekk})-2
   \\text{se} \
D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\delta
   _2(\\text{sekk})+\\frac{1}{2} \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta
   _1(k)-\\frac{1}{2} i \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta
   _2(k)+\\frac{1}{2} \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _1(k).k-\\frac{1}{2} i \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _2(k).k+\\frac{1}{2} i \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta
   _1(k)+\\frac{1}{2} \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta
   _2(k)+\\frac{1}{2} i \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _1(k).k+\\frac{1}{2} \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _2(k).k+\\frac{1}{2} \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _1(\\text{se}).k.k-\\frac{1}{2} i \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _2(\\text{se}).k.k+\\frac{1}{2} i \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _1(\\text{se}).k.k+\\frac{1}{2} \\text{se} \
D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\
frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta
   _2(\\text{se}).k.k\
\>", "Output",
 CellChangeTimes->{3.7740068622566566`*^9, 3.7740275919167824`*^9, 
  3.788689395716646*^9},
 CellLabel->
  "Out[207]//TeXForm=",ExpressionUUID->"4c7c902e-085a-4e82-91db-45ef5479adca"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.750261202645831*^9, 
  3.7502612081208715`*^9}},ExpressionUUID->"03e789ae-e360-47d7-9278-\
d11d3e6bd28e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[208]:=",ExpressionUUID->"88936b24-f3ee-4653-811d-67569142f307"],

Cell[BoxData["54"], "Output",
 CellChangeTimes->{3.774006862697606*^9, 3.774027591975625*^9, 
  3.7886893958093863`*^9},
 CellLabel->
  "Out[208]=",ExpressionUUID->"fc4d2efe-e721-449a-b44b-4fd03ee3b46c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 StyleBox["Integration in the radial part of the terms with all ",
  FontSize->18],
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],
  FontSize->18,ExpressionUUID->"35619e41-a8b5-45f5-96ff-4968c7f7d77e"],
 StyleBox[" on the left",
  FontSize->18]
}], "Section",
 CellChangeTimes->{{3.7502612365490675`*^9, 3.750261265487251*^9}, {
  3.7502613472817965`*^9, 
  3.750261347321797*^9}},ExpressionUUID->"62cbd880-38a5-44df-86e6-\
66b9d3cd08ca"],

Cell[TextData[{
 "We now apply the rearrangement lemma to do the integration in the radial \
part for the terms with all ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "5c684fcc-4377-462b-89a6-067f2c1c64f1"],
 " on the left. We reintroduce the ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID->
  "3ec33cfd-9968-497f-9b37-fc42660a00d6"],
 " on the right but do not move it to the left."
}], "Text",
 CellChangeTimes->{{3.7502613317406936`*^9, 
  3.750261379548998*^9}},ExpressionUUID->"b773581b-2591-4c33-a394-\
a4a94f70b9d1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"treatfinerem", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"treatfine", "[", "stuff", "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"FreeQ", "[", 
       RowBox[{"#", ",", "R"}], "]"}], "\[Equal]", "True"}], "&"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.727834552696624*^9, 3.72783458336642*^9}, {
   3.727990599091962*^9, 3.7279906028137693`*^9}, {3.7291897939140368`*^9, 
   3.7291897991713715`*^9}, {3.7323989206501493`*^9, 3.7323989299165497`*^9}, 
   3.7323989641741495`*^9},
 CellLabel->
  "In[209]:=",ExpressionUUID->"2ab7bccc-0e78-48b5-b443-b4a77dd0fca5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"treattwo", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Total", "[", 
   RowBox[{"treatfinerem", "[", "stuff", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7325550301061835`*^9, 3.7325550432559357`*^9}},
 CellLabel->
  "In[210]:=",ExpressionUUID->"9b291168-758a-4189-aec0-cae1eae29ca0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"CoefficientRules", "[", 
   RowBox[{
    RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverse", "]"}], ",", 
    RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 
   3.720468696854107*^9, {3.7325550585168085`*^9, 3.7325550635380955`*^9}},
 CellLabel->
  "In[211]:=",ExpressionUUID->"8e2b588e-8012-4914-81b7-e3015e0e85a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"{", "3", "}"}], "\[Rule]", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", "k", ".", "k", ".", "sse", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".",
         "sse"}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", "k", ".", "k", ".", "sse", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".",
         "sse"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"{", "2", "}"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["r", "2"]}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".",
         "sse"}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".",
         "sse"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", "se", ".", 
         RowBox[{
          SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", 
         "sse"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", "se", ".", 
         RowBox[{
          SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", 
         "sse"}]}], "+", 
       RowBox[{"3", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", 
        ".", "sse"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", 
       RowBox[{"3", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", 
        ".", "sse"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se",
          ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        FractionBox["1", "k"], ".", "se", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se",
          ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        FractionBox["1", "k"], ".", "se", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        FractionBox["1", "k"], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
        ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        FractionBox["1", "k"], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
        ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "-", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        FractionBox["1", "k"], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
         ".", 
         FractionBox["1", "k"], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         "sse"}]}], "-", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", 
        ".", 
        FractionBox["1", "k"], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
        "sse"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"{", "1", "}"}], "\[Rule]", 
    RowBox[{
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}],
      "+", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
      RowBox[{
       SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}],
      "+", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "-", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{
       FractionBox["1", "k"], ".", 
       FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
       RowBox[{
        SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", 
     RowBox[{
      FractionBox["1", "k"], ".", 
      FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
      RowBox[{
       SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.774006863485112*^9, 3.774027592100326*^9, 
  3.788689395966976*^9},
 CellLabel->
  "Out[211]=",ExpressionUUID->"ef775c29-3493-4772-bced-54839f5083ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"CoefficientRules", "[", 
   RowBox[{
    RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverseadj", "]"}], 
    ",", 
    RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 
   3.720468696854107*^9, {3.7324895300935984`*^9, 3.7324895302339983`*^9}, {
   3.732555067050297*^9, 3.7325550703664865`*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"bbce8eaa-6747-4042-9b2d-038e9acb139d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"{", "3", "}"}], "\[Rule]", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "4"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        "k", ".", "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", 
        "se"}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        "k", ".", "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", 
        "se"}]}], ")"}]}]}], ",", 
   RowBox[{
    RowBox[{"{", "2", "}"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["r", "2"]}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", 
        "se"}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", 
        "se"}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", 
        "se"}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        "k", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", 
        "se"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", 
        ".", "se"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", 
        ".", "se"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
         "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", 
        ".", "k", ".", "se"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
         "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
        RowBox[{
         SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", 
        ".", "k", ".", "se"}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k",
         ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
         "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
        "se"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
         "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
        ".", "se"}], "-", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}]}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
         "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k",
         ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
         "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
        "se"}], "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", 
         FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
         RowBox[{
          SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k",
          ".", "se"}]}], "+", 
       RowBox[{
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", 
        FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
        RowBox[{
         SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
        ".", "se"}]}], ")"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{3.7740068638870716`*^9, 3.7740275922040153`*^9, 
  3.7886893961245427`*^9},
 CellLabel->
  "Out[212]=",ExpressionUUID->"21acfb67-661b-4db6-9683-94638d368254"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"powwrem", "[", 
   RowBox[{"{", "n_", "}"}], "]"}], ":=", 
  RowBox[{
   SuperscriptBox["r", 
    RowBox[{
     RowBox[{"-", "2"}], 
     RowBox[{"(", 
      RowBox[{"n", "-", "1"}], ")"}]}]], " ", "/", "2"}]}]], "Input",
 CellChangeTimes->{{3.732555366658433*^9, 3.7325553804992247`*^9}, {
  3.7886896482481475`*^9, 3.788689648653097*^9}},
 CellLabel->
  "In[222]:=",ExpressionUUID->"f273023f-dd2e-4643-a78a-195b5ea52832"],

Cell[BoxData[
 RowBox[{
  RowBox[{"transforem", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], 
      RowBox[{"Length", "[", 
       RowBox[{"CoefficientRules", "[", 
        RowBox[{"stuff", ",", 
         RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], 
     RowBox[{"sse", " ", 
      RowBox[{
       SubscriptBox["D", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"First", "[", 
          RowBox[{"First", "[", 
           RowBox[{"Part", "[", 
            RowBox[{
             RowBox[{"CoefficientRules", "[", 
              RowBox[{"stuff", ",", 
               RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], 
          "]"}]}]], " ", "[", 
       RowBox[{
        RowBox[{"powwrem", "[", 
         RowBox[{"First", "[", 
          RowBox[{"Part", "[", 
           RowBox[{
            RowBox[{"CoefficientRules", "[", 
             RowBox[{"stuff", ",", 
              RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], 
         "]"}], 
        RowBox[{"Last", "[", 
         RowBox[{"Part", "[", 
          RowBox[{
           RowBox[{"CoefficientRules", "[", 
            RowBox[{"stuff", ",", 
             RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}]}], 
       "]"}]}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.732554978152212*^9, 3.7325550029896326`*^9}, {
   3.7325550841392736`*^9, 3.73255511203887*^9}, {3.732555210214485*^9, 
   3.7325552180169315`*^9}, {3.7325553944990253`*^9, 
   3.7325553990742874`*^9}, {3.7337664589197807`*^9, 
   3.7337665543047495`*^9}, {3.7337676539962206`*^9, 
   3.7337676562523494`*^9}, {3.733767747996597*^9, 3.7337677481376047`*^9}, {
   3.733767803070747*^9, 3.7337678333314776`*^9}, {3.7337678633401937`*^9, 
   3.7337678647412744`*^9}, {3.73468434595815*^9, 3.7346843916849566`*^9}, {
   3.7350205541174564`*^9, 3.7350206491528234`*^9}, 3.7622023922045503`*^9, {
   3.762203165403922*^9, 3.7622031659693823`*^9}},
 CellLabel->
  "In[223]:=",ExpressionUUID->"979cb5a1-b591-4e89-936e-8246eff8a2b1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"transforemadj", "[", "stuff_", "]"}], ":=", 
  RowBox[{"Expand", "[", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], 
      RowBox[{"Length", "[", 
       RowBox[{"CoefficientRules", "[", 
        RowBox[{"stuff", ",", 
         RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], 
     RowBox[{"se", " ", 
      RowBox[{
       SubscriptBox["D", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         RowBox[{"First", "[", 
          RowBox[{"First", "[", 
           RowBox[{"Part", "[", 
            RowBox[{
             RowBox[{"CoefficientRules", "[", 
              RowBox[{"stuff", ",", 
               RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], 
          "]"}]}]], " ", "[", 
       RowBox[{
        RowBox[{"powwrem", "[", 
         RowBox[{"First", "[", 
          RowBox[{"Part", "[", 
           RowBox[{
            RowBox[{"CoefficientRules", "[", 
             RowBox[{"stuff", ",", 
              RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], 
         "]"}], 
        RowBox[{"Last", "[", 
         RowBox[{"Part", "[", 
          RowBox[{
           RowBox[{"CoefficientRules", "[", 
            RowBox[{"stuff", ",", 
             RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}]}], 
       "]"}]}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.732554978152212*^9, 3.7325550029896326`*^9}, {
   3.7325550841392736`*^9, 3.73255511203887*^9}, {3.732555210214485*^9, 
   3.7325552180169315`*^9}, {3.7325553944990253`*^9, 
   3.7325553990742874`*^9}, {3.7337664589197807`*^9, 
   3.7337665543047495`*^9}, {3.7337676539962206`*^9, 
   3.7337676562523494`*^9}, {3.733767747996597*^9, 3.7337677481376047`*^9}, {
   3.733767803070747*^9, 3.7337678333314776`*^9}, {3.7337678633401937`*^9, 
   3.7337678647412744`*^9}, {3.73468434595815*^9, 3.7346843916849566`*^9}, {
   3.7350205541174564`*^9, 3.7350206491528234`*^9}, 3.7622023922045503`*^9, {
   3.762203159798914*^9, 3.7622031678832664`*^9}},
 CellLabel->
  "In[224]:=",ExpressionUUID->"e377dbd9-4e3e-406e-944c-bb8ce67bf356"],

Cell["For the integral of the terms for the first resolvent we get", "Text",
 CellChangeTimes->{{3.750260979751354*^9, 
  3.7502610012175097`*^9}},ExpressionUUID->"08570202-5575-4968-8781-\
8d9adfdda434"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"remres0", "=", 
  RowBox[{"transforem", "[", 
   RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverse", "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.73255516187272*^9, 3.732555179460726*^9}},
 CellLabel->
  "In[225]:=",ExpressionUUID->"69782674-7c56-4e3b-94cf-8bf48eda30ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "0"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "0"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "0"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "0"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "0"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "0"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", 
     "sse"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", 
     "sse"}], "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}], 
    "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}], 
    "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", 
     ".", "sse"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["3", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", 
     ".", "sse"}], "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "sse", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     FractionBox["1", "k"], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}],
     "]"}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "2"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", 
     "sse"}], "]"}]}], "+", 
  RowBox[{"sse", " ", 
   RowBox[{
    SubscriptBox["D", "2"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", 
     "k", ".", "k", ".", "sse", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", 
     "sse"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.7740068648042374`*^9, 3.7740275924503584`*^9, 
  3.788689396340966*^9, 3.7886896645855045`*^9},
 CellLabel->
  "Out[225]=",ExpressionUUID->"abb2cd51-d247-48e0-8988-02596c34c426"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "77e6c5a2-8689-4c2f-9e93-fc91be9a98e6"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"b5077878-be83-4957-abb9-\
3ab21c0facb6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.733772319808017*^9, 3.7337723378572483`*^9}},
 CellLabel->
  "In[226]:=",ExpressionUUID->"5b6f71f7-3aea-456f-8a14-0c6a85c0731e"],

Cell["\<\
\\frac{1}{2} \\text{sse} \
D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta _1^2(k).\
\\text{sse}\\right)+\\frac{1}{2} \\text{sse} \
D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta
   _2^2(k).\\text{sse}\\right)+\\frac{1}{2} \\text{sse} \
D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\delta \
_1(\\text{se}).\\delta _1(k).\\text{sse}\\right)-\\frac{1}{2} i \\text{sse}
   D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\delta \
_1(\\text{se}).\\delta _2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse} \
D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\delta \
_2(\\text{se}).\\delta
   _1(k).\\text{sse}\\right)+\\frac{1}{2} \\text{sse} D_0\\left(\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.\\delta _2(\\text{se}).\\delta \
_2(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta \
_1^2(\\text{ssekksse}).\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta _2^2(\\text{ssekksse}).\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\text{se}.\\delta _1^2(k).\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\text{se}.\\delta _2^2(k).\\text{sse}\\right)-\\frac{3}{2} \
\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\delta _1(\\text{se}).\\delta \
_1(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\delta _1(\\text{se}).\\delta \
_2(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\delta _1^2(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \
i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\delta _2(\\text{se}).\\delta \
_1(k).\\text{sse}\\right)-\\frac{3}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\delta _2(\\text{se}).\\delta \
_2(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.k.\\delta _2^2(\\text{se}).k.\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta _1(k).\\text{se}.\\delta \
_1(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta _1(k).\\delta \
_1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta _1(k).\\delta \
_2(\\text{se}).k.\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta _2(k).\\text{se}.\\delta \
_2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta _2(k).\\delta \
_1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\delta _2(k).\\delta \
_2(\\text{se}).k.\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\text{se}.\\delta \
_1(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\text{se}.\\delta \
_2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\text{se}.\\delta \
_1(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right)-\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\text{se}.\\delta \
_2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right)+\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta \
_1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_1(k).\\text{sse}\\right)+\\frac{1}{2} \\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta \
_1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right)+\\frac{1}{2} i
   \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\text{sse}.k.k.\\text{sse}.\\frac{1}{k}.\\delta \
_1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right)+\\text{sse}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\
k.k.\\text{sse}.\\frac{1}{k}.\\delta \
_2(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \
_2(k).\\text{sse}\\right)-\\frac{1}{2} i
   \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\text{sse}.k.k.\\text{sse}.\\frac{1}{k}.\\delta \
_2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_1(\\text{se}).k.\\text{sse}\\right)+\\frac{1}{2}
   \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\text{sse}.k.k.\\text{sse}.\\frac{1}{k}.\\delta \
_2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \
_2(\\text{se}).k.\\text{sse}\\right)+\\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{sse}.\\delta \
_1^2(\\text{ssekksse}).\\text{sse}\\right)+\\text{sse}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{sse}.\\delta \
_2^2(\\text{ssekksse}).\\text{sse}\\right)\
\>", "Output",
 CellChangeTimes->{3.774006864955098*^9, 3.7740275926089315`*^9, 
  3.788689396457652*^9, 3.788689664692232*^9},
 CellLabel->
  "Out[226]//TeXForm=",ExpressionUUID->"9e6a32d5-576c-4784-b94f-5dc77509cccf"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.7502614162212305`*^9, 
  3.750261422414281*^9}},ExpressionUUID->"4b9b1541-ea3e-428b-a3cd-\
759ebfd88296"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"b80029a0-c6a0-44d3-8320-91b02f41c5c7"],

Cell[BoxData["42"], "Output",
 CellChangeTimes->{3.7740068650789595`*^9, 3.774027592663784*^9, 
  3.7886893965474124`*^9, 3.788689664724145*^9},
 CellLabel->
  "Out[227]=",ExpressionUUID->"6bc50a18-e3c0-47ea-9383-10740e63d882"]
}, Open  ]],

Cell["\<\
For the integral of the terms for the second resolvent we get\
\>", "Text",
 CellChangeTimes->{{3.750260979751354*^9, 3.7502610012175097`*^9}, {
  3.75026118079967*^9, 
  3.7502611822146916`*^9}},ExpressionUUID->"d77d1a2c-ff78-4164-8e72-\
42ca426008ab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"remres0adj", "=", 
  RowBox[{"transforemadj", "[", 
   RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverseadj", "]"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.732555181767858*^9, 3.7325551969337254`*^9}, {
  3.7622043508456364`*^9, 3.7622043510540323`*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"c6b8377c-8554-456c-ad3d-43f80c41fbea"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    FractionBox["1", "2"]}], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", 
     "se"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", 
     "se"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "se"}], 
    "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "se"}], 
    "]"}]}], "-", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", ".",
      "se"}], "]"}]}], "-", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", ".",
      "se"}], "]"}]}], "-", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "-", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
    "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", 
     ".", "k", ".", "se"}], "]"}]}], "-", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "-", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
    "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", 
     ".", "k", ".", "se"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
    "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
    "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", "se"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", "se"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", 
     ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], 
  "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], 
    "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], 
    "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", "se"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "se", " ", 
   RowBox[{
    SubscriptBox["D", "1"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", 
     RowBox[{
      SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", 
     ".", "se"}], "]"}]}], "+", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "2"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     "k", ".", "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", 
     "se"}], "]"}]}], "+", 
  RowBox[{"se", " ", 
   RowBox[{
    SubscriptBox["D", "2"], "[", 
    RowBox[{
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", 
     FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", 
     "k", ".", "k", ".", 
     RowBox[{
      SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", 
     "se"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.774006865699882*^9, 3.774027592735594*^9, 
  3.788689396652135*^9, 3.7886896647730155`*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"f3d483b3-2365-43d0-9e9b-281d2b8b801e"]
}, Open  ]],

Cell[TextData[{
 "with ",
 Cell[BoxData[
  FormBox[
   StyleBox[
    RowBox[{"L", 
     StyleBox[
      AdjustmentBox["A",
       BoxBaselineShift->-0.4,
       BoxMargins->{{-0.5, -0.3}, {0, 0}}],
      FontSize->Smaller], "T", 
     AdjustmentBox["E",
      BoxBaselineShift->0.5,
      BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}],
    SingleLetterItalics->False], TraditionalForm]],ExpressionUUID->
  "90a03e39-b392-4df2-859c-3de0a1e9072c"],
 " Code"
}], "Text",
 CellChangeTimes->{{3.750259696234947*^9, 
  3.7502597030239873`*^9}},ExpressionUUID->"d4a6aa4d-8cf1-408e-a4fe-\
2f8ec8cfa713"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TeXForm", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.733772319808017*^9, 3.7337723378572483`*^9}},
 CellLabel->
  "In[229]:=",ExpressionUUID->"5fa1b32a-18ce-4949-9b40-aa99e6d6b84f"],

Cell["\<\
-\\frac{1}{2} \\text{se} \
D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\
\\delta _1^2(\\text{sekk}).\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _2^2(\\text{sekk}).\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.k.\\delta _1^2(k).\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.k.\\delta _2^2(k).\\text{se}\\right)-\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _1(k).\\delta _1(k).\\text{se}\\right)-\\frac{1}{2} \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _1^2(k).k.\\text{se}\\right)-\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _2(k).\\delta _2(k).\\text{se}\\right)-\\frac{1}{2} \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _2^2(k).k.\\text{se}\\right)-\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _1(\\text{se}).k.\\delta \
_1(k).\\text{se}\\right)-\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _1(\\text{se}).\\delta \
_1(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _1^2(\\text{se}).k.k.\\text{se}\\right)-\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _2(\\text{se}).k.\\delta \
_2(k).\\text{se}\\right)-\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _2(\\text{se}).\\delta \
_2(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\text{se}.\\delta _2^2(\\text{se}).k.k.\\text{se}\\right)-\\frac{1}{2} \
\\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _1(\\text{se}).\\text{se}.k.\\delta \
_1(k).\\text{se}\\right)+\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _1(\\text{se}).\\text{se}.k.\\delta \
_2(k).\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _1(\\text{se}).\\text{se}.\\delta \
_1(k).k.\\text{se}\\right)+\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _1(\\text{se}).\\text{se}.\\delta \
_2(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _1(\\text{se}).\\delta \
_1(\\text{se}).k.k.\\text{se}\\right)+\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _1(\\text{se}).\\delta \
_2(\\text{se}).k.k.\\text{se}\\right)-\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _2(\\text{se}).\\text{se}.k.\\delta \
_1(k).\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _2(\\text{se}).\\text{se}.k.\\delta \
_2(k).\\text{se}\\right)-\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _2(\\text{se}).\\text{se}.\\delta \
_1(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _2(\\text{se}).\\text{se}.\\delta \
_2(k).k.\\text{se}\\right)-\\frac{1}{2} i \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _2(\\text{se}).\\delta \
_1(\\text{se}).k.k.\\text{se}\\right)-\\frac{1}{2} \\text{se}
   D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\
k.\\delta _2(\\text{se}).\\delta \
_2(\\text{se}).k.k.\\text{se}\\right)+\\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \
_1^2(\\text{sekk}).\\text{se}\\right)+\\text{se}
   D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\
\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \
_2^2(\\text{sekk}).\\text{se}\\right)\
\>", "Output",
 CellChangeTimes->{3.774006866368987*^9, 3.7740275928103924`*^9, 
  3.7886893967588477`*^9, 3.7886896648397927`*^9},
 CellLabel->
  "Out[229]//TeXForm=",ExpressionUUID->"6f876ac0-a2ff-40b7-b43c-2d42e56ca5fa"]
}, Open  ]],

Cell["and the following number of terms:", "Text",
 CellChangeTimes->{{3.7502614162212305`*^9, 
  3.750261422414281*^9}},ExpressionUUID->"bda2b982-d4a7-4508-826f-\
7c40f4abb7b6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Length", "[", "%%", "]"}]], "Input",
 CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}},
 CellLabel->
  "In[230]:=",ExpressionUUID->"3ea26f06-0ec4-4a62-b3b9-653ca6b045a7"],

Cell[BoxData["28"], "Output",
 CellChangeTimes->{3.7740068675510807`*^9, 3.774027592882236*^9, 
  3.788689396846613*^9, 3.7886896648926992`*^9},
 CellLabel->
  "Out[230]=",ExpressionUUID->"2c582314-1312-4ade-a158-9fa66989685e"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1520, 781},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
TaggingRules->{"Salvaged" -> True},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 527, 8, 95, "Section",ExpressionUUID->"9db82461-7aec-4634-8d05-7c1a310fed20"],
Cell[1110, 32, 907, 15, 56, "Text",ExpressionUUID->"16611ee0-c12e-4940-bcd9-1444b7154940"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2054, 52, 220, 4, 54, "Section",ExpressionUUID->"1b3eb759-469f-49db-93b9-a5908c79fad2"],
Cell[2277, 58, 158, 3, 34, "Text",ExpressionUUID->"ee62daac-674e-4816-89ec-3a147e17915d"],
Cell[2438, 63, 410, 9, 28, "Input",ExpressionUUID->"f0b11829-006d-4e31-b478-86d32ef65cbb"],
Cell[2851, 74, 155, 3, 34, "Text",ExpressionUUID->"07281f15-fa42-4e17-a884-9eee45220d0d"],
Cell[3009, 79, 494, 12, 28, "Input",ExpressionUUID->"bd269bc5-733c-4bd3-b026-c34ecb317453"],
Cell[3506, 93, 294, 4, 34, "Text",ExpressionUUID->"d6e8e06a-6fde-4d9a-8209-1762458c3c6d"],
Cell[3803, 99, 469, 12, 28, "Input",ExpressionUUID->"23e592db-2bb3-4b98-ac95-aa150a564e41"],
Cell[4275, 113, 189, 3, 34, "Text",ExpressionUUID->"eed95235-7b4f-4d02-bb3d-e08739e81836"],
Cell[4467, 118, 594, 16, 28, "Input",ExpressionUUID->"32ec6f9c-9706-49b0-8f59-a593c6ddf890"],
Cell[5064, 136, 181, 3, 34, "Text",ExpressionUUID->"f5a42438-febf-4ffe-8f5f-0d3f4d843beb"],
Cell[5248, 141, 895, 24, 28, "Input",ExpressionUUID->"5b5e261e-04dc-4df5-a9d6-8cfcb4e90b33"],
Cell[6146, 167, 173, 3, 34, "Text",ExpressionUUID->"d74d5da6-4fda-42ea-a7d3-8df52bfd9130"],
Cell[6322, 172, 676, 18, 28, "Input",ExpressionUUID->"3ef3f123-b5b4-4ce6-8c3d-5495f8a3ae1a"],
Cell[7001, 192, 193, 3, 34, "Text",ExpressionUUID->"2d2b8ad2-6487-4b1b-b3eb-f416daeecbd7"],
Cell[7197, 197, 686, 15, 32, "Input",ExpressionUUID->"81b508fb-c52f-4830-bcbb-5f21a64fadc6"],
Cell[7886, 214, 568, 14, 32, "Input",ExpressionUUID->"9e5402b5-3537-4c41-874f-91afab10419d"],
Cell[8457, 230, 477, 12, 28, "Input",ExpressionUUID->"af5d3ef6-e6c8-4388-9967-75e9ea257363"],
Cell[8937, 244, 527, 13, 28, "Input",ExpressionUUID->"7c0c06c5-1122-4b7a-a4cc-467f3e6eecb6"],
Cell[9467, 259, 198, 3, 34, "Text",ExpressionUUID->"8503b803-c09c-4a36-9b03-219df307e54f"],
Cell[9668, 264, 1835, 44, 28, "Input",ExpressionUUID->"0abe854e-979f-49b1-a985-93941b6567b4"],
Cell[11506, 310, 639, 11, 34, "Text",ExpressionUUID->"50d52f89-2315-45e8-995e-4d987dd533a1"],
Cell[CellGroupData[{
Cell[12170, 325, 374, 8, 28, "Input",ExpressionUUID->"91622c65-b8ee-48e8-a5a9-6f123e04c2cf"],
Cell[12547, 335, 432, 12, 32, "Output",ExpressionUUID->"0f368809-3080-4b57-ae10-b700cfb6d1a2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13016, 352, 373, 8, 28, "Input",ExpressionUUID->"c1b4e7e9-059c-4578-bbce-557376dc80b7"],
Cell[13392, 362, 428, 12, 32, "Output",ExpressionUUID->"2b697e44-94f0-4cff-ac84-81fc7e3f443f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13857, 379, 356, 8, 28, "Input",ExpressionUUID->"091c3dc7-058c-44cb-b7ee-e37c8151aeb9"],
Cell[14216, 389, 432, 12, 32, "Output",ExpressionUUID->"9661ebbc-114e-4210-a271-b776e2e505ee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14685, 406, 356, 8, 28, "Input",ExpressionUUID->"e271876b-6956-4574-bd5e-525f41f67dba"],
Cell[15044, 416, 428, 12, 32, "Output",ExpressionUUID->"23e3fbe7-cfd8-4240-b9ee-5a12f65ac049"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15509, 433, 356, 8, 28, "Input",ExpressionUUID->"e3e42bed-fd9f-4530-9d8b-23fdd0668145"],
Cell[15868, 443, 428, 12, 32, "Output",ExpressionUUID->"d22c34ac-05c9-41e4-8943-46c6365d2a59"]
}, Open  ]],
Cell[CellGroupData[{
Cell[16333, 460, 372, 8, 28, "Input",ExpressionUUID->"74cec73f-64eb-47f1-8efc-d6e3d7d64f00"],
Cell[16708, 470, 426, 12, 32, "Output",ExpressionUUID->"e86dbe72-bc0e-4c98-a178-a762729a7436"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17171, 487, 323, 7, 28, "Input",ExpressionUUID->"48bf5dd0-05a7-4bed-8a01-81a1d6fe25d1"],
Cell[17497, 496, 432, 12, 32, "Output",ExpressionUUID->"913e493a-1ab3-4ad8-9c1a-a46802628124"]
}, Open  ]],
Cell[CellGroupData[{
Cell[17966, 513, 358, 8, 28, "Input",ExpressionUUID->"9287a834-a33c-48d1-9352-cee78b77864a"],
Cell[18327, 523, 430, 12, 32, "Output",ExpressionUUID->"f7ab5cd2-211b-4a95-8b83-37251c2b6261"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18794, 540, 358, 8, 28, "Input",ExpressionUUID->"1fdefa6f-46e2-4786-be77-c406c2f503ab"],
Cell[19155, 550, 425, 12, 32, "Output",ExpressionUUID->"ef1470db-6967-46ed-945c-0b7fc1655d67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19617, 567, 358, 8, 28, "Input",ExpressionUUID->"3126c45c-9392-4d0b-8cc1-cfb556fc0c9c"],
Cell[19978, 577, 430, 12, 32, "Output",ExpressionUUID->"38161028-c3d5-4604-bc88-31a50d462d47"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20445, 594, 328, 7, 28, "Input",ExpressionUUID->"1adff0e6-3898-4733-9d41-8df79fef51d8"],
Cell[20776, 603, 431, 12, 32, "Output",ExpressionUUID->"78dfbbb0-94c2-4ce1-9e37-11137d6a8a9b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21244, 620, 330, 7, 28, "Input",ExpressionUUID->"045d3341-1743-419b-bb53-1311f022cec2"],
Cell[21577, 629, 435, 12, 32, "Output",ExpressionUUID->"94c804dd-6c5b-4301-9704-6b5fcbf319ae"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22049, 646, 359, 8, 28, "Input",ExpressionUUID->"80ab7d05-3c63-4422-9c2c-275ae8286e4c"],
Cell[22411, 656, 433, 12, 32, "Output",ExpressionUUID->"e06970fd-b89b-4315-9aa5-3359ffe67cff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22881, 673, 361, 8, 28, "Input",ExpressionUUID->"dc99d7ba-c78e-40d9-a6bc-fce3b8bd2378"],
Cell[23245, 683, 431, 12, 32, "Output",ExpressionUUID->"0d51862f-3c69-4be6-a2d6-dfa62d88dc06"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23713, 700, 361, 8, 28, "Input",ExpressionUUID->"0efa99be-098c-44d9-9265-dabd7cc86edc"],
Cell[24077, 710, 433, 12, 32, "Output",ExpressionUUID->"1db87618-88ad-4449-939e-ce9ccc3e33eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24547, 727, 428, 9, 28, "Input",ExpressionUUID->"66c9a570-a888-4018-abfe-3ac5f70049bf"],
Cell[24978, 738, 429, 12, 32, "Output",ExpressionUUID->"3eac1e3e-65e8-43a4-ba63-a9dd2545068a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25444, 755, 427, 9, 28, "Input",ExpressionUUID->"2e276331-bd3c-4dc9-9628-2a7b7fda01d4"],
Cell[25874, 766, 431, 12, 32, "Output",ExpressionUUID->"4bc5db6b-f478-493d-bc7b-68d12b60b011"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26342, 783, 410, 9, 28, "Input",ExpressionUUID->"13f7ec0b-0e24-4fc9-9bcd-e14e5a803946"],
Cell[26755, 794, 426, 12, 32, "Output",ExpressionUUID->"1dbc0d43-dedd-4de2-b13c-8869b3e670b7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27218, 811, 408, 9, 28, "Input",ExpressionUUID->"4bb3f349-ab98-4d04-86f3-77f6f525fa47"],
Cell[27629, 822, 433, 12, 32, "Output",ExpressionUUID->"ea6853da-4764-47a8-8e34-adf8ed049b96"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28099, 839, 408, 9, 28, "Input",ExpressionUUID->"7491569a-1cb5-4a41-b9b2-860566606e15"],
Cell[28510, 850, 426, 12, 32, "Output",ExpressionUUID->"07c27571-5251-49b3-b9ae-9ebc974ac689"]
}, Open  ]],
Cell[CellGroupData[{
Cell[28973, 867, 432, 9, 28, "Input",ExpressionUUID->"97dae85f-f619-4e78-a5c7-1181121b0b1a"],
Cell[29408, 878, 437, 12, 32, "Output",ExpressionUUID->"50c29a6b-67bf-4753-9ceb-3d612b176092"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29882, 895, 429, 9, 28, "Input",ExpressionUUID->"72ea00e5-370c-442f-bae2-4f44c82b640a"],
Cell[30314, 906, 435, 12, 32, "Output",ExpressionUUID->"85e66452-19ab-4ebb-ac96-07b0a24e9a6e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30786, 923, 411, 9, 28, "Input",ExpressionUUID->"8bdb6621-bdbe-402f-8b39-b9230fccb028"],
Cell[31200, 934, 437, 12, 32, "Output",ExpressionUUID->"7019df04-2e35-4889-8cc3-25fd6289399c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31674, 951, 414, 9, 28, "Input",ExpressionUUID->"adb0fcbd-cc39-4c68-a67f-49147e336bc4"],
Cell[32091, 962, 433, 12, 32, "Output",ExpressionUUID->"2c6f1fb0-8261-45ea-97ad-561e4a33e503"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32561, 979, 412, 9, 28, "Input",ExpressionUUID->"0cfa2561-1773-47c1-9dfc-68ffd854501f"],
Cell[32976, 990, 439, 12, 32, "Output",ExpressionUUID->"5b48c9fb-ec2c-4ea4-a81a-e78bf6b2ab05"]
}, Open  ]],
Cell[CellGroupData[{
Cell[33452, 1007, 430, 9, 28, "Input",ExpressionUUID->"8afe9c3c-a372-4e32-9078-15d82e28a25d"],
Cell[33885, 1018, 433, 12, 32, "Output",ExpressionUUID->"a504017f-4cd0-4e8f-814b-8515aac87b02"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34355, 1035, 427, 9, 28, "Input",ExpressionUUID->"d84d9780-a2ba-48af-8dfe-804b01e8a625"],
Cell[34785, 1046, 430, 12, 32, "Output",ExpressionUUID->"c10bfd00-14b7-465a-bc70-47703cb0d88c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[35252, 1063, 410, 9, 28, "Input",ExpressionUUID->"75c1ada7-6649-4e9e-9790-4412553113c0"],
Cell[35665, 1074, 430, 12, 32, "Output",ExpressionUUID->"e7a1b064-7257-475c-b8bd-8120f9a5b717"]
}, Open  ]],
Cell[CellGroupData[{
Cell[36132, 1091, 408, 9, 28, "Input",ExpressionUUID->"709a699d-3187-45c0-8919-9c51bd5e26b3"],
Cell[36543, 1102, 432, 12, 32, "Output",ExpressionUUID->"bdbad613-979c-4c58-b248-7dc17eff54bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37012, 1119, 408, 9, 28, "Input",ExpressionUUID->"cc7dcf89-5c24-4066-8a31-032aeb17a0b3"],
Cell[37423, 1130, 433, 12, 32, "Output",ExpressionUUID->"b9bd2c5a-210b-4a98-91c6-24e4b0bfe334"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[37905, 1148, 209, 4, 54, "Section",ExpressionUUID->"01a1336d-bcb5-4d03-93b7-9fe3aff6d500"],
Cell[38117, 1154, 269, 6, 34, "Text",ExpressionUUID->"39bf327d-3179-48d7-8048-86ecde796740"],
Cell[38389, 1162, 489, 10, 28, "Input",ExpressionUUID->"99fd3f8a-b958-485c-ac47-5e3311091275"],
Cell[38881, 1174, 571, 13, 28, "Input",ExpressionUUID->"5a0b3ce6-f2aa-46d6-b3b3-6f9e66a4cf2e"],
Cell[39455, 1189, 430, 11, 28, "Input",ExpressionUUID->"5c58c4e9-7f2a-411f-9d72-af838d6e81a4"],
Cell[39888, 1202, 472, 10, 45, "Input",ExpressionUUID->"111b0f83-a4ef-4b5c-bf15-9306abb42605"],
Cell[40363, 1214, 416, 9, 45, "Input",ExpressionUUID->"815281f8-31ae-4387-aa52-0642df2e7942"],
Cell[40782, 1225, 353, 7, 28, "Input",ExpressionUUID->"0abaa518-594d-4254-9b29-6177761b2f24"],
Cell[41138, 1234, 355, 8, 28, "Input",ExpressionUUID->"acfc3ff2-4053-4cfe-8b83-c2f67992649e"],
Cell[41496, 1244, 381, 8, 28, "Input",ExpressionUUID->"6587af05-a5e9-4344-9c23-62a1c5e56600"],
Cell[41880, 1254, 423, 9, 28, "Input",ExpressionUUID->"396ad06a-fdf1-4250-9e09-7509419a2872"],
Cell[42306, 1265, 407, 8, 28, "Input",ExpressionUUID->"8d796328-467b-4421-ab69-4506af3f3b0f"],
Cell[42716, 1275, 573, 11, 45, "Input",ExpressionUUID->"00c44b59-88d4-41ae-9dcd-d617302ce271"],
Cell[43292, 1288, 457, 8, 28, "Input",ExpressionUUID->"7b70c316-7e9e-47e7-bf99-93b932ca7905"],
Cell[43752, 1298, 472, 12, 28, "Input",ExpressionUUID->"3507916f-5ca7-4a89-9ced-46249f72de58"],
Cell[44227, 1312, 335, 7, 28, "Input",ExpressionUUID->"6bc3c611-4713-443f-b022-0d7df40fad86"],
Cell[44565, 1321, 325, 6, 28, "Input",ExpressionUUID->"30289794-a5cf-4517-8881-4942df937198"],
Cell[44893, 1329, 478, 11, 28, "Input",ExpressionUUID->"34b05d8f-9a1c-40a3-9b2e-ca789fe0df6a"],
Cell[45374, 1342, 18562, 519, 213, "Input",ExpressionUUID->"9fdc53d8-f9eb-400d-b177-0f6429a25f55"],
Cell[CellGroupData[{
Cell[63961, 1865, 452, 11, 28, "Input",ExpressionUUID->"cce67af6-162a-4d43-b8ad-3a492909436d"],
Cell[64416, 1878, 222, 4, 32, "Output",ExpressionUUID->"38efac4b-1f44-43d3-b8dd-bdd3528dfdee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64675, 1887, 489, 12, 28, "Input",ExpressionUUID->"36067100-ee05-43ae-a5d3-c0350dfd43fd"],
Cell[65167, 1901, 388, 10, 32, "Output",ExpressionUUID->"27cf81c7-6fdc-4594-a0f8-ac21704f849c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65592, 1916, 579, 15, 28, "Input",ExpressionUUID->"a1a81dfe-dcd3-4e89-a224-685407f8ed2d"],
Cell[66174, 1933, 866, 27, 32, "Output",ExpressionUUID->"8e65aab5-ff96-481f-adf7-9130226df354"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67077, 1965, 326, 7, 28, "Input",ExpressionUUID->"6eb73b36-1f3a-4dc1-8dbb-c56db5eb4786"],
Cell[67406, 1974, 203, 3, 32, "Output",ExpressionUUID->"50b7598b-c6e3-4902-9964-b7bc502d58ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67646, 1982, 363, 8, 28, "Input",ExpressionUUID->"d51da206-9b27-453a-8b19-350ac4dd6e8d"],
Cell[68012, 1992, 254, 5, 32, "Output",ExpressionUUID->"cd39eff4-a207-4b69-a9f7-97a853b357ab"]
}, Open  ]],
Cell[CellGroupData[{
Cell[68303, 2002, 400, 10, 28, "Input",ExpressionUUID->"b470d256-2b1b-48ed-9d9d-0414e29fc1f8"],
Cell[68706, 2014, 308, 7, 32, "Output",ExpressionUUID->"c468efb8-88d9-4dda-9e74-bc2f5054c029"]
}, Open  ]],
Cell[CellGroupData[{
Cell[69051, 2026, 989, 25, 28, "Input",ExpressionUUID->"a46e4fd0-2a16-4c7a-8300-135bf7d29115"],
Cell[70043, 2053, 1201, 33, 49, "Output",ExpressionUUID->"14f46974-3040-4761-90b6-c84aaad7ce0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[71281, 2091, 987, 25, 28, "Input",ExpressionUUID->"56fcd51f-9b69-43b9-9baf-205b979a7899"],
Cell[72271, 2118, 1201, 33, 49, "Output",ExpressionUUID->"beee2f70-74c5-452b-a053-9760c701a836"]
}, Open  ]],
Cell[CellGroupData[{
Cell[73509, 2156, 1038, 27, 28, "Input",ExpressionUUID->"a0e22477-a073-4d95-a4d2-b62464fa88fa"],
Cell[74550, 2185, 5590, 163, 158, "Output",ExpressionUUID->"427bb681-bcb4-4222-8eb1-8281736de3e9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[80177, 2353, 1040, 27, 28, "Input",ExpressionUUID->"9cf538e8-054f-493d-914e-8991a96c9119"],
Cell[81220, 2382, 9346, 276, 230, "Output",ExpressionUUID->"94a4974f-bd11-45e8-a175-d9c071d7015d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90603, 2663, 1042, 27, 28, "Input",ExpressionUUID->"9c9fcd0c-1b59-4186-8257-7e55f64014f7"],
Cell[91648, 2692, 5588, 163, 158, "Output",ExpressionUUID->"dadc5327-dd19-41f9-b088-73cf5c296755"]
}, Open  ]],
Cell[CellGroupData[{
Cell[97273, 2860, 701, 17, 28, "Input",ExpressionUUID->"721b1ed3-f65c-4e31-8b21-d574977e916c"],
Cell[97977, 2879, 514, 14, 32, "Output",ExpressionUUID->"7558c564-01b2-48ed-b050-aa954bfbcb57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98528, 2898, 703, 17, 28, "Input",ExpressionUUID->"bd226353-8c48-4426-9c8a-bb0f680530d9"],
Cell[99234, 2917, 518, 14, 32, "Output",ExpressionUUID->"d0dc746e-990c-4cab-b79b-9d41a08de58b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99789, 2936, 745, 19, 28, "Input",ExpressionUUID->"e0c20d59-bcdd-4325-8142-bb080e71f95f"],
Cell[100537, 2957, 1120, 32, 34, "Output",ExpressionUUID->"016545d1-95fe-486f-bb63-5d539647a425"]
}, Open  ]],
Cell[CellGroupData[{
Cell[101694, 2994, 751, 19, 28, "Input",ExpressionUUID->"3263ac1c-40a5-4a33-841f-0b2ff53f1015"],
Cell[102448, 3015, 1756, 54, 32, "Output",ExpressionUUID->"c5461feb-43a1-4efd-84fe-cfd89b853e95"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104241, 3074, 747, 19, 28, "Input",ExpressionUUID->"355b8f8e-44ef-4473-a190-ca00cf08a34b"],
Cell[104991, 3095, 1123, 32, 34, "Output",ExpressionUUID->"4aa4d815-bcac-4cb7-b422-c98378262c77"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[106163, 3133, 361, 6, 54, "Section",ExpressionUUID->"6b9f2e46-b9d1-4516-aac6-d3811d21837f"],
Cell[106527, 3141, 189, 3, 34, "Text",ExpressionUUID->"97d57b98-de8d-4756-a400-52fead155efc"],
Cell[106719, 3146, 702, 15, 28, "Input",ExpressionUUID->"be45ebb9-f9bd-49ff-9712-7aad68613d35"],
Cell[107424, 3163, 607, 14, 28, "Input",ExpressionUUID->"e2b4d932-14e5-487a-b1a4-f6f00bb9ec2b"],
Cell[CellGroupData[{
Cell[108056, 3181, 583, 11, 28, "Input",ExpressionUUID->"74a486cc-de17-4d2f-be7e-5fe29c51c20a"],
Cell[108642, 3194, 251, 5, 49, "Output",ExpressionUUID->"a9a18856-4c30-4e77-a8c8-d5b5edbc2b2f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[108930, 3204, 2640, 57, 28, "Input",ExpressionUUID->"217c76c2-ccda-4808-b774-0a89e19fcab0"],
Cell[111573, 3263, 21216, 621, 441, "Output",ExpressionUUID->"a3f3178a-c412-4c63-b261-4a2e5b5d245b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[132826, 3889, 1689, 40, 28, "Input",ExpressionUUID->"059cc991-175c-4781-8c46-ed14596d4728"],
Cell[134518, 3931, 10059, 293, 197, "Output",ExpressionUUID->"767ec6f2-aef0-41c5-9966-a102aa56a6dd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144614, 4229, 140, 2, 28, "Input",ExpressionUUID->"e500d879-733c-4627-bf42-57b71e75eb61"],
Cell[144757, 4233, 2972, 78, 85, "Output",ExpressionUUID->"42cba123-436b-41d8-85da-885f14aefe03"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147766, 4316, 291, 5, 28, "Input",ExpressionUUID->"787596a9-eba9-443c-abff-b8f19f15e5fc"],
Cell[148060, 4323, 2426, 72, 53, "Output",ExpressionUUID->"54dafb2c-2f75-4df9-9eb9-c82ca7b46839"]
}, Open  ]],
Cell[CellGroupData[{
Cell[150523, 4400, 543, 13, 28, "Input",ExpressionUUID->"29b58226-e82b-4e9f-bece-c2d33995f863"],
Cell[151069, 4415, 3919, 106, 140, "Output",ExpressionUUID->"21f88db5-83e0-4607-942e-fd519e52cee5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[155025, 4526, 598, 14, 28, "Input",ExpressionUUID->"76e391b2-b7de-4262-b201-1d3ab9910cbc"],
Cell[155626, 4542, 2863, 83, 96, "Output",ExpressionUUID->"280d1cb6-988d-4f0e-8bbf-9831cae2f518"]
}, Open  ]],
Cell[158504, 4628, 194, 3, 34, "Text",ExpressionUUID->"5aaeec37-b014-4faa-a14b-b302d8071bf2"],
Cell[158701, 4633, 905, 21, 30, "Input",ExpressionUUID->"edf0e4aa-7966-4a37-85a2-8a4b9ed6e75d"],
Cell[159609, 4656, 194, 3, 34, "Text",ExpressionUUID->"e571e048-a790-4395-b431-5be6763170f1"],
Cell[159806, 4661, 778, 20, 30, "Input",ExpressionUUID->"7d19e6e6-677a-4f21-be5d-f1c69a7d07f3"],
Cell[CellGroupData[{
Cell[160609, 4685, 319, 6, 28, "Input",ExpressionUUID->"24a03a81-8186-4992-ba10-351d0052e84a"],
Cell[160931, 4693, 352, 8, 36, "Output",ExpressionUUID->"f3f2d2fe-51cd-4867-a057-6d0f01fcec32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161320, 4706, 269, 5, 28, "Input",ExpressionUUID->"c0e02d13-db27-4f53-9fda-226a1b0e533a"],
Cell[161592, 4713, 343, 8, 36, "Output",ExpressionUUID->"2808abc0-f4a9-45c3-a896-aa32acfb36e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161972, 4726, 372, 7, 28, "Input",ExpressionUUID->"61f30d66-8b41-4478-9a65-4890a7d91f92"],
Cell[162347, 4735, 2813, 74, 85, "Output",ExpressionUUID->"2523c82d-a6de-4a9b-8da0-84a1d3a7cc12"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165197, 4814, 303, 6, 28, "Input",ExpressionUUID->"fdce305e-02d4-4c13-b614-ff4fc6ba0281"],
Cell[165503, 4822, 1223, 35, 32, "Output",ExpressionUUID->"92d647d3-ba4c-407e-a7ee-decdc2066334"]
}, Open  ]],
Cell[166741, 4860, 194, 3, 34, "Text",ExpressionUUID->"b01dcde1-c4d1-4447-9516-15759a60dca1"],
Cell[166938, 4865, 4104, 99, 67, "Input",ExpressionUUID->"227b119a-3b7e-46e3-9dc5-004daba31959"],
Cell[171045, 4966, 195, 3, 34, "Text",ExpressionUUID->"ee63b7f7-9dea-43f1-b8df-0ee277db0c61"],
Cell[171243, 4971, 3190, 76, 48, "Input",ExpressionUUID->"b8a65004-2812-451c-9b92-3f36e0d8a349"],
Cell[CellGroupData[{
Cell[174458, 5051, 268, 5, 28, "Input",ExpressionUUID->"74369f2d-86ea-4704-aa9b-9073a3157a6d"],
Cell[174729, 5058, 1418, 38, 49, "Output",ExpressionUUID->"ea16196c-0123-42cb-940b-431cc2ef2539"]
}, Open  ]],
Cell[CellGroupData[{
Cell[176184, 5101, 271, 5, 28, "Input",ExpressionUUID->"a28a33c8-9fe2-44df-8ac6-9ebe78506788"],
Cell[176458, 5108, 1222, 35, 32, "Output",ExpressionUUID->"3d596e3a-7171-4395-af9a-1407aa618aa5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[177717, 5148, 361, 8, 28, "Input",ExpressionUUID->"9333d8d0-0f41-4073-9b3b-0057f8ca99bb"],
Cell[178081, 5158, 1482, 38, 49, "Output",ExpressionUUID->"3fca54fe-5c23-4cf4-80ab-ad00097024d4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179600, 5201, 344, 7, 28, "Input",ExpressionUUID->"723f1ca3-b4f3-4512-979d-43e44fa44b85"],
Cell[179947, 5210, 200, 3, 32, "Output",ExpressionUUID->"4c2ad9ac-063c-48c7-afd2-64e4c736e69f"]
}, Open  ]],
Cell[180162, 5216, 195, 3, 34, "Text",ExpressionUUID->"e7d8ef48-47db-453e-9a22-2e24e82d6276"],
Cell[180360, 5221, 3449, 92, 67, "Input",ExpressionUUID->"d0a96e31-42c7-4c57-9984-17a5b8b55c57"],
Cell[183812, 5315, 196, 3, 34, "Text",ExpressionUUID->"7edc2570-d318-43d5-9b95-4227bc4b9786"],
Cell[184011, 5320, 552, 9, 28, "Input",ExpressionUUID->"ca13f4c4-bb23-4d62-9115-0411b709aaf8"],
Cell[CellGroupData[{
Cell[184588, 5333, 265, 5, 28, "Input",ExpressionUUID->"ab98ac28-63d9-459d-a095-a24a806bc00b"],
Cell[184856, 5340, 1486, 38, 49, "Output",ExpressionUUID->"5de9cf50-d1c3-461d-a611-f36ca8be3f3d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186379, 5383, 271, 5, 28, "Input",ExpressionUUID->"f427bfef-68c7-46e0-a742-595262b366da"],
Cell[186653, 5390, 198, 3, 32, "Output",ExpressionUUID->"13fdb6b1-8d02-430a-b6e8-3d9355c4e086"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186888, 5398, 404, 10, 28, "Input",ExpressionUUID->"28261196-e9a2-488a-adf0-93a16e8ff5c6"],
Cell[187295, 5410, 202, 4, 32, "Output",ExpressionUUID->"18758e93-8076-475d-8964-8b9f61a6d8c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[187534, 5419, 395, 9, 28, "Input",ExpressionUUID->"90cad5ea-91eb-458f-b8d6-402ec89e546f"],
Cell[187932, 5430, 204, 4, 32, "Output",ExpressionUUID->"e257397a-4905-4013-83b7-89e3e2415dfc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[188185, 5440, 196, 4, 54, "Section",ExpressionUUID->"ec9c2115-10cb-44f9-b166-338960a98559"],
Cell[188384, 5446, 295, 6, 34, "Text",ExpressionUUID->"7c8cf8c5-0a8f-411d-89f8-9116c5e74c88"],
Cell[CellGroupData[{
Cell[188704, 5456, 595, 17, 32, "Input",ExpressionUUID->"3c378d72-92d9-4fbd-a885-2b1f80803164"],
Cell[189302, 5475, 461, 13, 54, "Output",ExpressionUUID->"00e53b6a-7462-4812-8330-1c98f6e0c5b3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[189800, 5493, 569, 17, 32, "Input",ExpressionUUID->"951e5695-12e4-4bcf-82bb-ffd4599b921e"],
Cell[190372, 5512, 454, 13, 54, "Output",ExpressionUUID->"9b31ecc4-8d36-438a-b015-a983c4d97c17"]
}, Open  ]],
Cell[190841, 5528, 535, 10, 34, "Text",ExpressionUUID->"e1cf8f34-35d3-40c2-aadf-71c6b13eeb00"],
Cell[191379, 5540, 168, 3, 34, "Text",ExpressionUUID->"52cb0237-bdd6-4ea1-96fb-3eac9374aceb"],
Cell[CellGroupData[{
Cell[191572, 5547, 264, 6, 28, "Input",ExpressionUUID->"097bacb0-b62b-46fd-bd28-407788f66df4"],
Cell[191839, 5555, 648, 20, 55, "Output",ExpressionUUID->"1c117ecb-9f47-4b02-a1d3-4497990f6962"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192524, 5580, 292, 7, 28, "Input",ExpressionUUID->"0090239e-7c12-4cb2-aa42-38c3ecdbc6b0"],
Cell[192819, 5589, 648, 20, 55, "Output",ExpressionUUID->"8a265111-a1b5-4f20-b403-d9f36d1db161"]
}, Open  ]],
Cell[CellGroupData[{
Cell[193504, 5614, 353, 8, 28, "Input",ExpressionUUID->"2584afab-c112-4b44-b370-840dedb64cf0"],
Cell[193860, 5624, 1074, 34, 56, "Output",ExpressionUUID->"66286572-ce4c-49ef-aae1-a52ff790bb67"]
}, Open  ]],
Cell[CellGroupData[{
Cell[194971, 5663, 375, 8, 28, "Input",ExpressionUUID->"f3fdaba7-a7b2-4f7e-aa3c-da7721544a8e"],
Cell[195349, 5673, 679, 21, 57, "Output",ExpressionUUID->"99514746-c42b-4e98-a3d1-ebbfcdc73593"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196065, 5699, 375, 8, 28, "Input",ExpressionUUID->"28a696fa-e693-409d-9f13-5c82a9c3d053"],
Cell[196443, 5709, 1076, 34, 56, "Output",ExpressionUUID->"8a9c3a70-a5cb-4f05-b678-23cc532edccf"]
}, Open  ]],
Cell[197534, 5746, 171, 3, 34, "Text",ExpressionUUID->"5f6d402f-2306-4076-b567-ccb0246629ed"],
Cell[CellGroupData[{
Cell[197730, 5753, 267, 6, 28, "Input",ExpressionUUID->"801c1baf-c469-4a9b-abfd-6ce0414eff2e"],
Cell[198000, 5761, 646, 20, 55, "Output",ExpressionUUID->"ba9c9e28-1d37-4a2d-8ca9-1034563a9653"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198683, 5786, 267, 6, 28, "Input",ExpressionUUID->"f68dff43-68c6-45ea-b9df-f00bf7c0cab9"],
Cell[198953, 5794, 646, 20, 55, "Output",ExpressionUUID->"f21ee8d1-2e22-45bf-b457-5aa5e2f48d08"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199636, 5819, 354, 8, 28, "Input",ExpressionUUID->"f7d9ecd9-ab4f-4258-8b7b-9464e5216a46"],
Cell[199993, 5829, 1076, 34, 56, "Output",ExpressionUUID->"db64ee30-3fc2-4138-b355-c79e3cc06d89"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201106, 5868, 354, 8, 28, "Input",ExpressionUUID->"0e838f51-3a77-4008-a1e2-f5f3b16fa9dd"],
Cell[201463, 5878, 681, 21, 57, "Output",ExpressionUUID->"10b366f8-c561-471c-9cf8-f0986123731f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202181, 5904, 354, 8, 28, "Input",ExpressionUUID->"359fa1ad-9d6b-4359-b1a2-a8100c7db83f"],
Cell[202538, 5914, 1068, 34, 56, "Output",ExpressionUUID->"ae2da68b-7682-4e5a-bae0-2c0bfb59e202"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[203655, 5954, 211, 4, 54, "Section",ExpressionUUID->"d9d1a2a8-b10b-4f96-98a1-c15314a6db56"],
Cell[203869, 5960, 203, 3, 34, "Text",ExpressionUUID->"d8b82475-78de-4262-9ea9-abf42942504c"],
Cell[204075, 5965, 3727, 95, 53, "Input",ExpressionUUID->"900ca195-e488-4aef-a37c-32afbd51531f"],
Cell[207805, 6062, 2768, 79, 53, "Input",ExpressionUUID->"5c9324ba-bb8c-410a-a1ea-474b0d4d5b55"],
Cell[210576, 6143, 314, 7, 28, "Input",ExpressionUUID->"7b0bf884-bc40-4c2d-849e-ef5eff3caa21"],
Cell[210893, 6152, 322, 7, 28, "Input",ExpressionUUID->"994f0e89-2f78-4534-b47e-924af4bc4e4a"],
Cell[211218, 6161, 837, 21, 28, "Input",ExpressionUUID->"1818a57b-f09e-42fd-87a7-402f208d0222"],
Cell[212058, 6184, 541, 12, 28, "Input",ExpressionUUID->"176a942d-3a17-434e-8acd-4f8b6cfa54e0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[212636, 6201, 203, 4, 54, "Section",ExpressionUUID->"32fbfb42-c766-4ac4-bd47-66233a5d570c"],
Cell[212842, 6207, 315, 5, 34, "Text",ExpressionUUID->"b0e3bd9e-c009-4ed5-ab6b-2f843f05fe93"],
Cell[213160, 6214, 989, 28, 28, "Input",ExpressionUUID->"cf58f439-6270-44a6-b53a-40e56b9df110"],
Cell[214152, 6244, 315, 5, 34, "Text",ExpressionUUID->"5b141905-8e84-4979-a79a-96825a76d32e"],
Cell[214470, 6251, 970, 27, 28, "Input",ExpressionUUID->"28164ce9-3170-488c-8f71-54358c8c6195"],
Cell[CellGroupData[{
Cell[215465, 6282, 237, 5, 28, "Input",ExpressionUUID->"b760e14a-69f8-426f-9698-0819b28bafa4"],
Cell[215705, 6289, 3973, 120, 109, "Output",ExpressionUUID->"f724fa43-ebd7-4547-ab06-18b80069a07a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[219715, 6414, 245, 5, 28, "Input",ExpressionUUID->"3bdd92e8-cbbf-4cc7-8496-5d03df46e9b1"],
Cell[219963, 6421, 2592, 72, 59, "Output",ExpressionUUID->"332e0717-03c1-4d0b-9153-1d7a351540d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222592, 6498, 237, 5, 28, "Input",ExpressionUUID->"a7fe4dd0-69b5-4585-8419-d9d3a8973b13"],
Cell[222832, 6505, 4367, 134, 109, "Output",ExpressionUUID->"85b18604-7d68-4023-a08c-7078bc08c525"]
}, Open  ]],
Cell[CellGroupData[{
Cell[227236, 6644, 245, 5, 28, "Input",ExpressionUUID->"51ee5cb4-ea13-4e60-8025-0990a5fa2786"],
Cell[227484, 6651, 3021, 86, 59, "Output",ExpressionUUID->"a8bf0ade-5695-4753-a430-1c8769177f0a"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[230554, 6743, 202, 4, 54, "Section",ExpressionUUID->"f30f0a2c-63ed-4f0b-ab15-c30b18be82b8"],
Cell[230759, 6749, 953, 28, 34, "Text",ExpressionUUID->"e19a2f5c-eb79-41f5-a903-929ce92eadeb"],
Cell[231715, 6779, 169, 3, 34, "Text",ExpressionUUID->"ac6635b0-7f25-458d-8564-cfb703b46df4"],
Cell[231887, 6784, 2621, 72, 48, "Input",ExpressionUUID->"5c3e5928-aa93-4ccb-9a10-48fbad8705ad"],
Cell[234511, 6858, 170, 3, 34, "Text",ExpressionUUID->"0b1741cf-d051-486e-828f-b6733f695369"],
Cell[234684, 6863, 2335, 67, 48, "Input",ExpressionUUID->"aeada54a-1a78-41c5-87e5-cb51658c6681"],
Cell[237022, 6932, 201, 3, 34, "Text",ExpressionUUID->"db4eb7f3-6fac-4248-924a-9c1f6ab51744"],
Cell[237226, 6937, 164, 3, 34, "Text",ExpressionUUID->"1591f840-725f-420a-8716-f739d856d21e"],
Cell[CellGroupData[{
Cell[237415, 6944, 523, 10, 28, "Input",ExpressionUUID->"0b7ba19d-058b-4851-a492-5d508fe999f0"],
Cell[237941, 6956, 125214, 3512, 2872, "Output",ExpressionUUID->"fdabccc0-e9c1-4349-9c7c-ed102ba4e677"]
}, Open  ]],
Cell[363170, 10471, 589, 20, 36, "Text",ExpressionUUID->"c1c0044d-6ac0-4fef-997e-993a4076b243"],
Cell[CellGroupData[{
Cell[363784, 10495, 213, 4, 28, "Input",ExpressionUUID->"5c50191b-a63b-4669-98f6-5923dae0de3a"],
Cell[364000, 10501, 42627, 693, 3278, "Output",ExpressionUUID->"5fe1458d-5cc7-4d53-a26b-70db4c38318c"]
}, Open  ]],
Cell[406642, 11197, 180, 3, 34, "Text",ExpressionUUID->"5ed89e10-f770-42da-8535-c91286b7b5d7"],
Cell[CellGroupData[{
Cell[406847, 11204, 211, 4, 28, "Input",ExpressionUUID->"90457606-ebd7-43d8-83f5-ea9386e5df2e"],
Cell[407061, 11210, 204, 4, 32, "Output",ExpressionUUID->"c7b94b32-53f6-44f0-8f9e-fb8a5a30c2bf"]
}, Open  ]],
Cell[407280, 11217, 167, 3, 34, "Text",ExpressionUUID->"e3a3dd05-14df-4f0d-a3c0-2555742b15fe"],
Cell[CellGroupData[{
Cell[407472, 11224, 363, 8, 28, "Input",ExpressionUUID->"c19fb80f-4663-4e37-a398-57f9c7797148"],
Cell[407838, 11234, 155160, 4304, 1938, "Output",ExpressionUUID->"efc92aa0-9d5c-4855-bd7a-46ec29aaae9a"]
}, Open  ]],
Cell[563013, 15541, 589, 20, 36, "Text",ExpressionUUID->"b313e1bb-6d3c-4c98-8aa5-294db8837b37"],
Cell[CellGroupData[{
Cell[563627, 15565, 213, 4, 28, "Input",ExpressionUUID->"92ee9d98-28de-4d82-862b-5675f5daa70e"],
Cell[563843, 15571, 47400, 757, 3630, "Output",ExpressionUUID->"cca0913e-5fac-4eda-9062-e0b8efd80e9c"]
}, Open  ]],
Cell[611258, 16331, 180, 3, 34, "Text",ExpressionUUID->"1a405445-444c-46c2-a52c-5aecbd98fb8f"],
Cell[CellGroupData[{
Cell[611463, 16338, 211, 4, 28, "Input",ExpressionUUID->"9dfaed75-9994-40bb-9204-38f17e591add"],
Cell[611677, 16344, 206, 4, 32, "Output",ExpressionUUID->"59417186-7bbf-4d09-8ea3-042c566fd309"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[611932, 16354, 213, 4, 54, "Section",ExpressionUUID->"5a7936ef-a48b-4f1a-9817-9bc248e4f40f"],
Cell[612148, 16360, 530, 14, 28, "Input",ExpressionUUID->"22f2cbc4-a377-4bf1-b334-a5c906bcb4e4"],
Cell[612681, 16376, 487, 13, 28, "Input",ExpressionUUID->"efd9f152-c1ad-49b9-ac79-746ecf517d98"],
Cell[613171, 16391, 989, 29, 47, "Input",ExpressionUUID->"4b346834-4f11-49bd-b98d-093e3a8f6344"],
Cell[614163, 16422, 1273, 30, 61, "Input",ExpressionUUID->"c4b6f968-4612-4ca1-8080-a4245f0fc18a"],
Cell[615439, 16454, 858, 24, 61, "Input",ExpressionUUID->"0fdb485d-4a77-4b07-a45d-90ed99003c48"],
Cell[616300, 16480, 679, 18, 34, "Text",ExpressionUUID->"86a30b9a-5e1c-49d8-bc31-09564e9f0b65"],
Cell[CellGroupData[{
Cell[617004, 16502, 565, 9, 28, "Input",ExpressionUUID->"6f9b7a9a-6fd3-4b9b-9272-1679c7040ca9"],
Cell[617572, 16513, 39283, 1134, 837, "Output",ExpressionUUID->"e7f787b0-6192-4613-b955-f9bc566b132d"]
}, Open  ]],
Cell[656870, 17650, 589, 20, 36, "Text",ExpressionUUID->"62192b46-08c7-458f-8c7f-42a55c6a5273"],
Cell[CellGroupData[{
Cell[657484, 17674, 213, 4, 28, "Input",ExpressionUUID->"0bd4207b-b4bd-487e-90f6-1f09cda88231"],
Cell[657700, 17680, 13364, 223, 1086, "Output",ExpressionUUID->"174ef012-05d9-4c0b-8371-9c833e191594"]
}, Open  ]],
Cell[671079, 17906, 177, 3, 34, "Text",ExpressionUUID->"5c21aab8-e17c-4acd-9752-217f68cbabc5"],
Cell[CellGroupData[{
Cell[671281, 17913, 211, 4, 28, "Input",ExpressionUUID->"24ec4ade-deeb-47a7-9060-54937253084f"],
Cell[671495, 17919, 204, 4, 32, "Output",ExpressionUUID->"7cd7f0cf-cb4a-4c16-9cc5-9f8cd6e4c17a"]
}, Open  ]],
Cell[671714, 17926, 640, 18, 34, "Text",ExpressionUUID->"79a9bd33-d270-42bd-85d5-06a6d439f544"],
Cell[CellGroupData[{
Cell[672379, 17948, 409, 8, 28, "Input",ExpressionUUID->"5d6395fe-8185-47fc-ae91-a6f1817c0b90"],
Cell[672791, 17958, 28880, 860, 404, "Output",ExpressionUUID->"bab4f02a-9ce2-4046-ae00-bbaa0b9aa993"]
}, Open  ]],
Cell[701686, 18821, 589, 20, 36, "Text",ExpressionUUID->"71137d09-3b28-4e70-b9f4-31b7dbdefbbd"],
Cell[CellGroupData[{
Cell[702300, 18845, 213, 4, 28, "Input",ExpressionUUID->"38fcee3b-07af-4044-b995-a8e579600933"],
Cell[702516, 18851, 9047, 150, 718, "Output",ExpressionUUID->"48241953-1712-4b38-8465-c81f4d33f940"]
}, Open  ]],
Cell[711578, 19004, 178, 3, 34, "Text",ExpressionUUID->"641a9e89-f0dc-4e0c-a443-893f86e19831"],
Cell[CellGroupData[{
Cell[711781, 19011, 211, 4, 28, "Input",ExpressionUUID->"f5e8f916-bfc6-447e-b7df-332dc3607594"],
Cell[711995, 19017, 205, 4, 32, "Output",ExpressionUUID->"ae530229-c3c5-42e2-94e9-c8c5507f5b85"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[712249, 19027, 209, 4, 54, "Section",ExpressionUUID->"5f24ded3-915c-464c-bf93-e9962dfda07c"],
Cell[712461, 19033, 1686, 38, 78, "Text",ExpressionUUID->"152761b5-fda0-42d6-88e4-6d7b8844df02"],
Cell[714150, 19073, 893, 19, 32, "Input",ExpressionUUID->"92396485-cb57-403b-90d7-cc4f4f1d7357"],
Cell[715046, 19094, 774, 17, 32, "Input",ExpressionUUID->"7273a0d8-e6ef-425f-9756-c8901a7de00b"],
Cell[715823, 19113, 596, 14, 28, "Input",ExpressionUUID->"340cd182-0bd5-4b83-b2f4-0cffc667f6fd"],
Cell[716422, 19129, 839, 18, 32, "Input",ExpressionUUID->"03799854-0475-48a7-a4dc-d32bbdf25b51"],
Cell[717264, 19149, 771, 17, 32, "Input",ExpressionUUID->"30c19feb-3538-40c3-98c5-b8e55442e65b"],
Cell[718038, 19168, 352, 9, 45, "Input",ExpressionUUID->"9dc57f18-5794-4030-808b-07de523b332d"],
Cell[718393, 19179, 352, 9, 45, "Input",ExpressionUUID->"63025a1b-e7b9-4954-bc7d-6ce6c8b33f09"],
Cell[718748, 19190, 340, 8, 28, "Input",ExpressionUUID->"56bbc403-7a02-4474-9b7b-d650b5472404"],
Cell[719091, 19200, 394, 9, 28, "Input",ExpressionUUID->"48eb1050-94be-4f83-9316-51c29c9389db"],
Cell[719488, 19211, 395, 9, 28, "Input",ExpressionUUID->"0d9c7b38-0891-49b2-80fa-126c8820f2cc"],
Cell[719886, 19222, 490, 11, 45, "Input",ExpressionUUID->"ebe773fa-718e-4430-a660-5d067bdcb1de"],
Cell[720379, 19235, 1252, 27, 45, "Input",ExpressionUUID->"8e527702-882e-4dd6-a1a5-13587c21ae59"],
Cell[721634, 19264, 1354, 30, 45, "Input",ExpressionUUID->"1b3f524f-f632-4541-a218-a8f30bde0e55"],
Cell[722991, 19296, 1664, 36, 45, "Input",ExpressionUUID->"d152538e-5a91-4fff-aab7-7aed64d4bb4e"],
Cell[724658, 19334, 1245, 27, 45, "Input",ExpressionUUID->"a8960b26-ce89-428c-93d3-bf31aed94f9e"],
Cell[725906, 19363, 1355, 30, 45, "Input",ExpressionUUID->"623c1a22-6c25-430a-af95-780ad2f3a626"],
Cell[727264, 19395, 1685, 36, 45, "Input",ExpressionUUID->"f8dde16e-19b0-419f-ad9d-f869420e7d07"],
Cell[728952, 19433, 2119, 41, 45, "Input",ExpressionUUID->"36352f5b-41e6-466b-8dfe-ed6c2012706b"],
Cell[731074, 19476, 2092, 41, 45, "Input",ExpressionUUID->"dca7519d-e383-4723-859d-0470023127c1"],
Cell[733169, 19519, 2011, 40, 45, "Input",ExpressionUUID->"1476dae0-468c-4556-9af0-d214bafa2985"],
Cell[735183, 19561, 1825, 37, 45, "Input",ExpressionUUID->"87472b3c-bc0a-40c7-8844-a933de551262"],
Cell[737011, 19600, 1789, 36, 45, "Input",ExpressionUUID->"ad7a544c-a21d-4e68-9a34-3c0ca4e79336"],
Cell[738803, 19638, 1710, 36, 45, "Input",ExpressionUUID->"50b7e92d-6c2b-4446-9ef0-b91928fddaf6"],
Cell[740516, 19676, 1091, 24, 45, "Input",ExpressionUUID->"4cf5bab4-1631-408f-be97-48e2a0760f82"],
Cell[741610, 19702, 1150, 26, 45, "Input",ExpressionUUID->"4e85c209-baeb-411f-a9bb-90dd3bd16f27"],
Cell[742763, 19730, 1213, 28, 45, "Input",ExpressionUUID->"7ca436ac-5b2c-4369-889f-50ac0e95665d"],
Cell[743979, 19760, 1066, 23, 45, "Input",ExpressionUUID->"9da3b02e-d4f2-4629-ad59-ff049d69fdd7"],
Cell[745048, 19785, 1123, 26, 45, "Input",ExpressionUUID->"8996aa3a-7a81-4d5e-8db6-c175557fb737"],
Cell[746174, 19813, 1190, 28, 45, "Input",ExpressionUUID->"99855bb1-73ea-4600-b821-70945035d8a7"],
Cell[747367, 19843, 479, 10, 28, "Input",ExpressionUUID->"3f4dca84-9dd0-43f2-8711-d680ea8ba3d1"],
Cell[747849, 19855, 472, 11, 28, "Input",ExpressionUUID->"18a2f9dd-1d83-47ab-8c9c-483a750b2be6"],
Cell[748324, 19868, 413, 9, 28, "Input",ExpressionUUID->"c84dcfb1-9769-4ec1-99b3-bf57c5811eac"],
Cell[748740, 19879, 171, 3, 34, "Text",ExpressionUUID->"113227f8-d4fa-4980-ae1f-897c9e076fe4"],
Cell[748914, 19884, 679, 19, 28, "Input",ExpressionUUID->"750ff0ad-8d3f-4608-b832-75b8922fa424"],
Cell[CellGroupData[{
Cell[749618, 19907, 390, 6, 28, "Input",ExpressionUUID->"164d6f70-dcff-4e22-a0e1-10f5b6f97d52"],
Cell[750011, 19915, 99460, 2787, 2160, "Output",ExpressionUUID->"5d52be87-800a-485b-8c87-e0977f81e556"]
}, Open  ]],
Cell[CellGroupData[{
Cell[849508, 22707, 248, 5, 28, "Input",ExpressionUUID->"f7c28681-dc66-4fa8-8f86-dcfab8bde207"],
Cell[849759, 22714, 90708, 2589, 2160, "Output",ExpressionUUID->"743729ea-6d97-4f00-9535-0c434df1deeb"]
}, Open  ]],
Cell[940482, 25306, 271, 6, 34, "Text",ExpressionUUID->"8580e748-6ebd-4982-8982-9d00307d4f1a"],
Cell[940756, 25314, 726, 16, 28, "Input",ExpressionUUID->"12191be3-53e9-40d4-882d-6f0cd947abb8"],
Cell[941485, 25332, 654, 16, 28, "Input",ExpressionUUID->"51ac56b4-18a1-43af-9217-222bd2188706"]
}, Open  ]],
Cell[CellGroupData[{
Cell[942176, 25353, 479, 13, 54, "Section",ExpressionUUID->"d48e7fda-35fa-47b1-a37a-f2f544cbb6b2"],
Cell[942658, 25368, 757, 18, 34, "Text",ExpressionUUID->"e967a816-d639-40e0-b09f-5678a31bef85"],
Cell[943418, 25388, 316, 7, 28, "Input",ExpressionUUID->"fdf2b1c5-6cc7-4d7f-999e-58c9341e2a8c"],
Cell[943737, 25397, 562, 13, 34, "Text",ExpressionUUID->"49e11686-1dbe-490d-b7da-e3525067d6e4"],
Cell[944302, 25412, 2926, 56, 32, "Input",ExpressionUUID->"f8b1d285-ff53-4185-9bc0-5f672ad7a128"],
Cell[947231, 25470, 2768, 54, 32, "Input",ExpressionUUID->"4528ea00-cdf5-4863-868f-c36799deffbf"],
Cell[950002, 25526, 2101, 45, 32, "Input",ExpressionUUID->"e8aad569-8830-43d4-b82f-413aaa3e5f29"],
Cell[CellGroupData[{
Cell[952128, 25575, 667, 20, 32, "Input",ExpressionUUID->"55865246-7c69-4b27-8ee1-f7dd5d3ad2d5"],
Cell[952798, 25597, 1773, 53, 49, "Output",ExpressionUUID->"f44142d7-59f0-4ce4-922e-ae47b8a5ad36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[954608, 25655, 1255, 32, 32, "Input",ExpressionUUID->"60534634-f97f-4112-8f97-2de5359d74d0"],
Cell[955866, 25689, 870, 25, 49, "Output",ExpressionUUID->"8ee26de0-a08b-49a6-acd8-c9c53c82c602"]
}, Open  ]],
Cell[CellGroupData[{
Cell[956773, 25719, 1420, 34, 32, "Input",ExpressionUUID->"561fa427-08b2-40c8-a691-e50b7aaebae0"],
Cell[958196, 25755, 935, 26, 49, "Output",ExpressionUUID->"2e1b51bb-e3ee-4cfe-a331-d21c62cb91a3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[959168, 25786, 881, 25, 32, "Input",ExpressionUUID->"cb382a6d-1688-47c2-9935-8e11c16fa827"],
Cell[960052, 25813, 226, 4, 32, "Output",ExpressionUUID->"4cdd5b97-7160-40ef-885a-6b46e7a796fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[960315, 25822, 788, 22, 32, "Input",ExpressionUUID->"88016482-d741-40ea-9563-84c3419bb706"],
Cell[961106, 25846, 1640, 48, 49, "Output",ExpressionUUID->"4ea1d2a2-b9a2-42f9-b2ba-b42a66d2598a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[962783, 25899, 243, 4, 28, "Input",ExpressionUUID->"75336748-17a6-46c1-bb4c-49af782964d6"],
Cell[963029, 25905, 25225, 753, 678, "Output",ExpressionUUID->"ea2ab05d-b7a7-4b24-b60c-9c7c0d1e8d71"]
}, Open  ]],
Cell[CellGroupData[{
Cell[988291, 26663, 297, 6, 28, "Input",ExpressionUUID->"67b0b224-ce5e-46d9-a17b-4103f659b025"],
Cell[988591, 26671, 31442, 921, 641, "Output",ExpressionUUID->"a76c9c6b-54c2-4709-8c5d-03d8381d5c1b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1020070, 27597, 424, 10, 28, "Input",ExpressionUUID->"9a8e4090-b842-44a5-9934-0b10e27c2a55"],
Cell[1020497, 27609, 26548, 726, 678, "Output",ExpressionUUID->"964ed23b-193e-4ce9-8003-ad854e497a99"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1047082, 28340, 537, 12, 28, "Input",ExpressionUUID->"9b85c7f5-9ec4-4ef3-b7bc-a95d6b314471"],
Cell[1047622, 28354, 31892, 854, 678, "Output",ExpressionUUID->"92a70b2d-ed93-4cd9-b7ab-f9a2fe96be0f"]
}, Open  ]],
Cell[1079529, 29211, 1107, 22, 31, "Input",ExpressionUUID->"4ee7b7cd-cf4f-4273-aefd-69fb9d68338d"],
Cell[1080639, 29235, 540, 14, 31, "Input",ExpressionUUID->"ad9adc03-b14e-4cef-a97b-f47ab990a95a"],
Cell[1081182, 29251, 926, 21, 31, "Input",ExpressionUUID->"c52f30d2-adc9-4211-923e-68daaf1f4796"],
Cell[1082111, 29274, 1018, 24, 43, "Input",ExpressionUUID->"f9cb6374-05e8-40ba-99f4-9838e1272073"],
Cell[1083132, 29300, 1183, 28, 31, "Input",ExpressionUUID->"a339e19b-406d-4492-89ec-de49df9f5830"],
Cell[1084318, 29330, 1488, 36, 31, "Input",ExpressionUUID->"2239389a-501b-4986-8be9-5801baa59d72"],
Cell[1085809, 29368, 3162, 69, 106, "Input",ExpressionUUID->"649fc8ec-b7ea-4bcf-ac54-cff8c2d5d499"],
Cell[1088974, 29439, 3157, 68, 106, "Input",ExpressionUUID->"9e7a289d-57f3-4dc3-af64-150382f5bc9e"],
Cell[1092134, 29509, 204, 3, 34, "Text",ExpressionUUID->"8711eba4-fcac-4424-a28a-71613f2df864"],
Cell[CellGroupData[{
Cell[1092363, 29516, 361, 8, 28, "Input",ExpressionUUID->"33705973-439e-486b-8c51-edcf04c38beb"],
Cell[1092727, 29526, 22651, 650, 625, "Output",ExpressionUUID->"9a62db39-5147-45c7-b48c-31065ec1cc8a"]
}, Open  ]],
Cell[1115393, 30179, 589, 20, 36, "Text",ExpressionUUID->"3a688fdd-e5f5-4510-aeee-a4b7f1042373"],
Cell[CellGroupData[{
Cell[1116007, 30203, 211, 4, 28, "Input",ExpressionUUID->"f9bb640e-9bae-4f98-aa77-c874368b4d70"],
Cell[1116221, 30209, 8904, 162, 814, "Output",ExpressionUUID->"a89e2581-a433-41ce-b4ea-e39144169e11"]
}, Open  ]],
Cell[1125140, 30374, 175, 3, 34, "Text",ExpressionUUID->"95623328-a120-4415-a866-18a4525289bb"],
Cell[CellGroupData[{
Cell[1125340, 30381, 211, 4, 28, "Input",ExpressionUUID->"657c2f4e-80d8-4b84-89bc-6d75c645b723"],
Cell[1125554, 30387, 203, 4, 32, "Output",ExpressionUUID->"faad87dd-e312-4fa6-9e1d-589c3afabcb7"]
}, Open  ]],
Cell[1125772, 30394, 263, 6, 34, "Text",ExpressionUUID->"c3933f4d-e2b8-4e02-895b-91b79f9768c0"],
Cell[CellGroupData[{
Cell[1126060, 30404, 472, 9, 28, "Input",ExpressionUUID->"f4e68284-e33a-48ec-b758-bda9cbcd957c"],
Cell[1126535, 30415, 29949, 899, 625, "Output",ExpressionUUID->"70e2e7f9-7ea2-4163-82fd-ef8418b9c35d"]
}, Open  ]],
Cell[1156499, 31317, 589, 20, 36, "Text",ExpressionUUID->"a0009353-ae06-4c08-8fbf-41cf7715c417"],
Cell[CellGroupData[{
Cell[1157113, 31341, 211, 4, 28, "Input",ExpressionUUID->"9fd34e99-b9f9-4b79-b5ee-03d7de2ff267"],
Cell[1157327, 31347, 10818, 185, 910, "Output",ExpressionUUID->"4c7c902e-085a-4e82-91db-45ef5479adca"]
}, Open  ]],
Cell[1168160, 31535, 178, 3, 34, "Text",ExpressionUUID->"03e789ae-e360-47d7-9278-d11d3e6bd28e"],
Cell[CellGroupData[{
Cell[1168363, 31542, 211, 4, 28, "Input",ExpressionUUID->"88936b24-f3ee-4653-811d-67569142f307"],
Cell[1168577, 31548, 203, 4, 32, "Output",ExpressionUUID->"fc4d2efe-e721-449a-b44b-4fd03ee3b46c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[1168829, 31558, 479, 13, 54, "Section",ExpressionUUID->"62cbd880-38a5-44df-86e6-66b9d3cd08ca"],
Cell[1169311, 31573, 612, 16, 34, "Text",ExpressionUUID->"b773581b-2591-4c33-a394-a4a94f70b9d1"],
Cell[1169926, 31591, 649, 16, 28, "Input",ExpressionUUID->"2ab7bccc-0e78-48b5-b443-b4a77dd0fca5"],
Cell[1170578, 31609, 319, 7, 28, "Input",ExpressionUUID->"9b291168-758a-4189-aec0-cae1eae29ca0"],
Cell[CellGroupData[{
Cell[1170922, 31620, 450, 9, 28, "Input",ExpressionUUID->"8e2b588e-8012-4914-81b7-e3015e0e85a0"],
Cell[1171375, 31631, 19004, 491, 448, "Output",ExpressionUUID->"ef775c29-3493-4772-bced-54839f5083ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1190416, 32127, 510, 11, 28, "Input",ExpressionUUID->"bbce8eaa-6747-4042-9b2d-038e9acb139d"],
Cell[1190929, 32140, 11687, 295, 267, "Output",ExpressionUUID->"21acfb67-661b-4db6-9683-94638d368254"]
}, Open  ]],
Cell[1202631, 32438, 458, 13, 31, "Input",ExpressionUUID->"f273023f-dd2e-4643-a78a-195b5ea52832"],
Cell[1203092, 32453, 2128, 52, 83, "Input",ExpressionUUID->"979cb5a1-b591-4e89-936e-8246eff8a2b1"],
Cell[1205223, 32507, 2130, 52, 83, "Input",ExpressionUUID->"e377dbd9-4e3e-406e-944c-bb8ce67bf356"],
Cell[1207356, 32561, 204, 3, 34, "Text",ExpressionUUID->"08570202-5575-4968-8781-8d9adfdda434"],
Cell[CellGroupData[{
Cell[1207585, 32568, 311, 7, 28, "Input",ExpressionUUID->"69782674-7c56-4e3b-94cf-8bf48eda30ce"],
Cell[1207899, 32577, 20652, 595, 481, "Output",ExpressionUUID->"abb2cd51-d247-48e0-8988-02596c34c426"]
}, Open  ]],
Cell[1228566, 33175, 589, 20, 36, "Text",ExpressionUUID->"b5077878-be83-4957-abb9-3ab21c0facb6"],
Cell[CellGroupData[{
Cell[1229180, 33199, 211, 4, 28, "Input",ExpressionUUID->"5b6f71f7-3aea-456f-8a14-0c6a85c0731e"],
Cell[1229394, 33205, 7991, 130, 670, "Output",ExpressionUUID->"9e6a32d5-576c-4784-b94f-5dc77509cccf"]
}, Open  ]],
Cell[1237400, 33338, 178, 3, 34, "Text",ExpressionUUID->"4b9b1541-ea3e-428b-a3cd-759ebfd88296"],
Cell[CellGroupData[{
Cell[1237603, 33345, 211, 4, 28, "Input",ExpressionUUID->"b80029a0-c6a0-44d3-8320-91b02f41c5c7"],
Cell[1237817, 33351, 227, 4, 32, "Output",ExpressionUUID->"6bc50a18-e3c0-47ea-9383-10740e63d882"]
}, Open  ]],
Cell[1238059, 33358, 263, 6, 34, "Text",ExpressionUUID->"d77d1a2c-ff78-4164-8e72-42ca426008ab"],
Cell[CellGroupData[{
Cell[1238347, 33368, 376, 8, 28, "Input",ExpressionUUID->"c6b8377c-8554-456c-ad3d-43f80c41fbea"],
Cell[1238726, 33378, 12998, 382, 265, "Output",ExpressionUUID->"f3d483b3-2365-43d0-9e9b-281d2b8b801e"]
}, Open  ]],
Cell[1251739, 33763, 589, 20, 36, "Text",ExpressionUUID->"d4a6aa4d-8cf1-408e-a4fe-2f8ec8cfa713"],
Cell[CellGroupData[{
Cell[1252353, 33787, 211, 4, 28, "Input",ExpressionUUID->"5fa1b32a-18ce-4949-9b40-aa99e6d6b84f"],
Cell[1252567, 33793, 4948, 83, 478, "Output",ExpressionUUID->"6f876ac0-a2ff-40b7-b43c-2d42e56ca5fa"]
}, Open  ]],
Cell[1257530, 33879, 178, 3, 34, "Text",ExpressionUUID->"bda2b982-d4a7-4508-826f-7c40f4abb7b6"],
Cell[CellGroupData[{
Cell[1257733, 33886, 211, 4, 28, "Input",ExpressionUUID->"3ea26f06-0ec4-4a62-b3b9-653ca6b045a7"],
Cell[1257947, 33892, 227, 4, 32, "Output",ExpressionUUID->"2c582314-1312-4ade-a158-9fa66989685e"]
}, Open  ]]
}, Open  ]]
}
]
*)