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

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

(* CreatedBy='Mathematica 11.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     46911,       1296]
NotebookOptionsPosition[     46514,       1282]
NotebookOutlinePosition[     46857,       1297]
CellTagsIndexPosition[     46814,       1294]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"halfres0", "=", 
   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"}]}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.777838796092219*^9, 3.77783879985316*^9}, 
   3.7886895904546614`*^9},ExpressionUUID->"4a19c575-12e7-44d6-9515-\
25249f35aae3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"remres0", "=", 
   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"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7778388275521*^9, 3.777838831210312*^9}, 
   3.7886896245176086`*^9, {3.7886896931621284`*^9, 
   3.788689693680731*^9}},ExpressionUUID->"adef589b-8ae8-467d-abc6-\
6ede58ad19c4"]
},
WindowSize->{1536, 781},
WindowMargins->{{17, Automatic}, {Automatic, 31}},
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[558, 20, 24049, 661, 621, "Input",ExpressionUUID->"4a19c575-12e7-44d6-9515-25249f35aae3"],
Cell[24610, 683, 21900, 597, 513, "Input",ExpressionUUID->"adef589b-8ae8-467d-abc6-6ede58ad19c4"]
}
]
*)