(* 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[     46523,       1321]
NotebookOptionsPosition[     46126,       1307]
NotebookOutlinePosition[     46469,       1322]
CellTagsIndexPosition[     46426,       1319]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"halfres0adj", "=", 
   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"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7778388806571417`*^9, 3.7778388836610613`*^9}, 
   3.788689819179263*^9},ExpressionUUID->"01d7e759-ee6f-48a0-822e-\
57c168710100"],

Cell[BoxData[
 RowBox[{
  RowBox[{"remres0adj", "=", 
   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"}], "]"}]}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.777838904054558*^9, 3.7778389067273836`*^9}, 
   3.788689844985282*^9},ExpressionUUID->"d49eff40-9e88-4ac0-a92b-\
bffd892b5506"]
},
WindowSize->{1536, 781},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
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, 31804, 900, 621, "Input",ExpressionUUID->"01d7e759-ee6f-48a0-822e-57c168710100"],
Cell[32365, 922, 13757, 383, 297, "Input",ExpressionUUID->"d49eff40-9e88-4ac0-a92b-bffd892b5506"]
}
]
*)