(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 1302595, 34583] NotebookOptionsPosition[ 1258202, 33900] NotebookOutlinePosition[ 1258580, 33916] CellTagsIndexPosition[ 1258537, 33913] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[TextData[StyleBox["Pseudodifferential calculus on cyclic projective \ modules over the NC torus and computation of the argument of the trace at \ which it equals the index of the Dirac operator after taking a limit", FontSize->24]], "Section", CellChangeTimes->{{3.750179981772973*^9, 3.7501800053560934`*^9}, { 3.7501803584046144`*^9, 3.750180359214616*^9}, {3.750181139562345*^9, 3.7501811405493636`*^9}, {3.7502572685708904`*^9, 3.750257286983944*^9}},ExpressionUUID->"9db82461-7aec-4634-8d05-\ 7c1a310fed20"], Cell["\<\ In each section, we summarize the computations and explain each step in \ detail. We make use of some of the code from the notebook titled \ \[OpenCurlyDoubleQuote]scalarncgshort2.nb\[CloseCurlyDoubleQuote] included as \ an ancillary file with Connes and Moscovici\[CloseCurlyQuote]s arXiv preprint \ titled \[OpenCurlyDoubleQuote]Modular Curvature for Noncommutative Two-Tori.\ \[CloseCurlyDoubleQuote]\ \>", "Text", CellChangeTimes->{{3.750179802818083*^9, 3.7501798141961503`*^9}, { 3.7501798494933243`*^9, 3.7501798743034477`*^9}, {3.7501800440812793`*^9, 3.750180050500316*^9}, {3.7501802499063115`*^9, 3.750180254588334*^9}, { 3.750180404315843*^9, 3.75018040718286*^9}, {3.7501804417081738`*^9, 3.7501805028795333`*^9}, {3.7501812440568867`*^9, 3.7501812455249057`*^9}, { 3.750181329897303*^9, 3.750181362880477*^9}},ExpressionUUID->"16611ee0-c12e-4940-bcd9-\ 1444b7154940"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Setting up the differential calculus", FontSize->18]], "Section", CellChangeTimes->{{3.7501800597613645`*^9, 3.7501800902775183`*^9}},ExpressionUUID->"1b3eb759-469f-49db-93b9-\ a5908c79fad2"], Cell["(associativity)", "Text", CellChangeTimes->{{3.75018011922066*^9, 3.7501801869519916`*^9}},ExpressionUUID->"ee62daac-674e-4816-89ec-\ 3a147e17915d"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"a___", ",", RowBox[{"m", "[", "b___", "]"}], ",", "c___"}], "]"}], ":=", RowBox[{"m", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.690049316492878*^9, 3.690049399982028*^9}, { 3.6906628581348267`*^9, 3.6906628645308857`*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"f0b11829-006d-4e31-b478-86d32ef65cbb"], Cell["(additivity)", "Text", CellChangeTimes->{{3.75018011922066*^9, 3.7501802137481213`*^9}},ExpressionUUID->"07281f15-fa42-4e17-a884-\ 9eee45220d0d"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"a___", ",", RowBox[{"b1_", "+", "b2_"}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"m", "[", RowBox[{"a", ",", "b1", ",", "c"}], "]"}], "+", RowBox[{"m", "[", RowBox[{"a", ",", "b2", ",", "c"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6900493800876207`*^9, 3.69004942280956*^9}, { 3.690662865639802*^9, 3.690662875254161*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"bd269bc5-733c-4bd3-b026-c34ecb317453"], Cell["(o[i]-independent expressions are not operators)", "Text", CellChangeTimes->{{3.75018011922066*^9, 3.7501801869519916`*^9}, { 3.7501802199871635`*^9, 3.7501802405132627`*^9}, {3.7501814007746673`*^9, 3.7501814143187246`*^9}},ExpressionUUID->"d6e8e06a-6fde-4d9a-8209-\ 1762458c3c6d"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"x_", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", RowBox[{"o", "[", "_", "]"}]}], "]"}], "&"}], ")"}]}], "]"}], ":=", "x"}]], "Input", CellChangeTimes->{{3.6900498078503113`*^9, 3.69004981214917*^9}, { 3.690659261214715*^9, 3.690659277537323*^9}, 3.6906628901630898`*^9}, CellLabel->"In[3]:=",ExpressionUUID->"23e592db-2bb3-4b98-ac95-aa150a564e41"], Cell["(o[i]-independent expressions are not operators)", "Text", CellChangeTimes->{{3.750181419999751*^9, 3.75018145138892*^9}},ExpressionUUID->"eed95235-7b4f-4d02-bb3d-\ e08739e81836"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"a___", ",", RowBox[{"x_", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", RowBox[{"o", "[", "_", "]"}]}], "]"}], "&"}], ")"}]}], ",", "b___"}], "]"}], ":=", RowBox[{"x", " ", RowBox[{"m", "[", RowBox[{"a", ",", "b"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.690659614376678*^9, 3.690659644509507*^9}, 3.690659857722563*^9, {3.6906628901779423`*^9, 3.6906628901797857`*^9}}, CellLabel->"In[4]:=",ExpressionUUID->"32ec6f9c-9706-49b0-8f59-a593c6ddf890"], Cell["(factor out o[i]-independent factors)", "Text", CellChangeTimes->{{3.7501817447703733`*^9, 3.750181766112486*^9}},ExpressionUUID->"f5a42438-febf-4ffe-8f5f-\ 0d3f4d843beb"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"a___", ",", RowBox[{ RowBox[{"x__", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", RowBox[{"o", "[", "_", "]"}]}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["\[Delta]", "1"]}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["\[Delta]", "2"]}], "]"}]}], "&"}], ")"}]}], "y_"}], ",", "b___"}], "]"}], ":=", RowBox[{"x", " ", RowBox[{"m", "[", RowBox[{"a", ",", "y", ",", "b"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.690659819569788*^9, 3.6906598702848682`*^9}, { 3.690662890190576*^9, 3.6906628901919727`*^9}, 3.7522665473519707`*^9}, CellLabel->"In[5]:=",ExpressionUUID->"5b5e261e-04dc-4df5-a9d6-8cfcb4e90b33"], Cell["(multiply out powers of sums)", "Text", CellChangeTimes->{{3.750181773339513*^9, 3.7501817833045597`*^9}},ExpressionUUID->"d74d5da6-4fda-42ea-a7d3-\ 8df52bfd9130"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{"a___", ",", RowBox[{"b_Plus", "^", RowBox[{"n_Integer", "?", RowBox[{"(", RowBox[{ RowBox[{"#", ">", "1"}], "&"}], ")"}]}]}], ",", "c___"}], "]"}], ":=", RowBox[{"m", "[", RowBox[{"a", ",", RowBox[{ RowBox[{"Table", "[", RowBox[{"b", ",", RowBox[{"{", "n", "}"}]}], "]"}], "/.", RowBox[{"List", "\[Rule]", "Sequence"}]}], ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.690659959013577*^9, 3.690659998067705*^9}, { 3.6906628902016497`*^9, 3.690662890203004*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"3ef3f123-b5b4-4ce6-8c3d-5495f8a3ae1a"], Cell["We define differentiation inside the products m", "Text", CellChangeTimes->{{3.7501818049696555`*^9, 3.7501818271797705`*^9}},ExpressionUUID->"2d2b8ad2-6487-4b1b-b3eb-\ f416daeecbd7"], Cell[BoxData[ RowBox[{ RowBox[{"d\[Xi]1", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["\[Xi]", "1"]], RowBox[{"(", RowBox[{"stuff", "/.", RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input", CellChangeTimes->{{3.690660525029675*^9, 3.6906605301569777`*^9}, { 3.690660765162014*^9, 3.690660767795146*^9}, 3.690660834037431*^9, { 3.6906608695513363`*^9, 3.690660913802153*^9}, {3.6906628902127333`*^9, 3.690662890213933*^9}, {3.690735255301898*^9, 3.690735262626821*^9}}, CellLabel->"In[7]:=",ExpressionUUID->"81b508fb-c52f-4830-bcbb-5f21a64fadc6"], Cell[BoxData[ RowBox[{ RowBox[{"d\[Xi]2", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", SubscriptBox["\[Xi]", "2"]], RowBox[{"(", RowBox[{"stuff", "/.", RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input", CellChangeTimes->{{3.690660927360271*^9, 3.6906609722233477`*^9}, { 3.6906628902229147`*^9, 3.6906628902240343`*^9}, {3.690735268838758*^9, 3.6907352725060873`*^9}}, CellLabel->"In[8]:=",ExpressionUUID->"9e5402b5-3537-4c41-874f-91afab10419d"], Cell[BoxData[ RowBox[{ RowBox[{"du", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "u"], RowBox[{"(", RowBox[{"stuff", "/.", RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input", CellChangeTimes->{{3.690661037841215*^9, 3.690661062550478*^9}, { 3.690662890231594*^9, 3.690662890232614*^9}}, CellLabel->"In[9]:=",ExpressionUUID->"af5d3ef6-e6c8-4388-9967-75e9ea257363"], Cell[BoxData[ RowBox[{ RowBox[{"dv", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["\[PartialD]", "v"], RowBox[{"(", RowBox[{"stuff", "/.", RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}]}], "/.", RowBox[{"Dot", "\[Rule]", "m"}]}]}]], "Input", CellChangeTimes->{{3.690661064533081*^9, 3.690661071020049*^9}, { 3.690661145006913*^9, 3.690661150377142*^9}, {3.690662890239046*^9, 3.690662890240041*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"7c0c06c5-1122-4b7a-a4cc-467f3e6eecb6"], Cell["We define the product of two symbols up to order two", "Text", CellChangeTimes->{{3.7501818525598874`*^9, 3.7501818594769135`*^9}},ExpressionUUID->"8503b803-c09c-4a36-9b03-\ 219df307e54f"], Cell[BoxData[ RowBox[{ RowBox[{"pso2", "[", RowBox[{"\[Rho]1_", ",", "\[Rho]2_"}], "]"}], ":=", RowBox[{ RowBox[{"m", "[", RowBox[{"\[Rho]1", ",", "\[Rho]2"}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", "\[Rho]1", "]"}], ",", RowBox[{"du", "[", "\[Rho]2", "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", "\[Rho]1", "]"}], ",", RowBox[{"dv", "[", "\[Rho]2", "]"}]}], "]"}], "+", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]1", "[", "\[Rho]1", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"du", "[", "\[Rho]2", "]"}], "]"}]}], "]"}]}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]2", "[", "\[Rho]1", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"dv", "[", "\[Rho]2", "]"}], "]"}]}], "]"}], "+", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"d\[Xi]2", "[", "\[Rho]1", "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"dv", "[", "\[Rho]2", "]"}], "]"}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.6906615251216288`*^9, 3.6906615445950603`*^9}, { 3.690661977693227*^9, 3.690661977746978*^9}, {3.6906620824292088`*^9, 3.6906621016274767`*^9}, {3.690662161841043*^9, 3.6906621816767483`*^9}, { 3.690662565754023*^9, 3.6906626069074097`*^9}, {3.690662784344434*^9, 3.6906628108872137`*^9}, {3.690662992291349*^9, 3.690663042522573*^9}, { 3.690663231979401*^9, 3.69066327718338*^9}, {3.69066335742696*^9, 3.6906633875874*^9}, {3.6906635283875513`*^9, 3.690663639742208*^9}}, CellLabel->"In[11]:=",ExpressionUUID->"0abe854e-979f-49b1-a985-93941b6567b4"], Cell["\<\ We introduce operator variables k and e that depend on u and v. We also \ introduce shorthand variables se=\[Sigma](e) and sse=\[CapitalDelta](e). We \ can take derivatives of k, e, and 1/k.\ \>", "Text", CellChangeTimes->{{3.7501819282302403`*^9, 3.7501820227516837`*^9}, { 3.7621905199105234`*^9, 3.76219052538767*^9}, {3.762190563746705*^9, 3.762190650098008*^9}, {3.762190756460166*^9, 3.762190769628458*^9}, { 3.7621908330644608`*^9, 3.762190835432431*^9}, {3.762191764998684*^9, 3.7621917722583094`*^9}, {3.762213277595293*^9, 3.7622132949799056`*^9}},ExpressionUUID->"50d52f89-2315-45e8-995e-\ 4d987dd533a1"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, { 3.690669133485731*^9, 3.690669136542921*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"91622c65-b8ee-48e8-a5a9-6f123e04c2cf"], Cell[BoxData[ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065437818823`*^9, 3.7740274097448044`*^9, 3.7886892255016327`*^9}, CellLabel->"Out[12]=",ExpressionUUID->"0f368809-3080-4b57-ae10-b700cfb6d1a2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, { 3.690669422351235*^9, 3.69066943317575*^9}}, CellLabel->"In[13]:=",ExpressionUUID->"c1b4e7e9-059c-4578-bbce-557376dc80b7"], Cell[BoxData[ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065440311747`*^9, 3.774027409801687*^9, 3.788689225585403*^9}, CellLabel->"Out[13]=",ExpressionUUID->"2b697e44-94f0-4cff-ac84-81fc7e3f443f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}}, CellLabel->"In[14]:=",ExpressionUUID->"091c3dc7-058c-44cb-b7ee-e37c8151aeb9"], Cell[BoxData[ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065443744926`*^9, 3.7740274098415766`*^9, 3.7886892256731715`*^9}, CellLabel->"Out[14]=",ExpressionUUID->"9661ebbc-114e-4210-a271-b776e2e505ee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}}, CellLabel->"In[15]:=",ExpressionUUID->"e271876b-6956-4574-bd5e-525f41f67dba"], Cell[BoxData[ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006544810055*^9, 3.774027409883433*^9, 3.7886892257629323`*^9}, CellLabel->"Out[15]=",ExpressionUUID->"23e3fbe7-cfd8-4240-b9ee-5a12f65ac049"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}}, CellLabel->"In[16]:=",ExpressionUUID->"e3e42bed-fd9f-4530-9d8b-23fdd0668145"], Cell[BoxData[ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006544909438*^9, 3.7740274099313364`*^9, 3.788689225853689*^9}, CellLabel->"Out[16]=",ExpressionUUID->"d22c34ac-05c9-41e4-8943-46c6365d2a59"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"e", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.703864178072955*^9, 3.703864179939955*^9}, { 3.703864268558955*^9, 3.703864300532955*^9}}, CellLabel->"In[17]:=",ExpressionUUID->"74cec73f-64eb-47f1-8efc-d6e3d7d64f00"], Cell[BoxData[ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006545014744*^9, 3.774027409969236*^9, 3.788689225945444*^9}, CellLabel->"Out[17]=",ExpressionUUID->"e86dbe72-bc0e-4c98-a178-a762729a7436"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"e", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.703864327579955*^9, 3.703864332298955*^9}}, CellLabel->"In[18]:=",ExpressionUUID->"48bf5dd0-05a7-4bed-8a01-81a1d6fe25d1"], Cell[BoxData[ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065451481256`*^9, 3.7740274100111237`*^9, 3.7886892260342073`*^9}, CellLabel->"Out[18]=",ExpressionUUID->"913e493a-1ab3-4ad8-9c1a-a46802628124"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"e", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7038643401229553`*^9, 3.703864349381955*^9}}, CellLabel->"In[19]:=",ExpressionUUID->"9287a834-a33c-48d1-9352-cee78b77864a"], Cell[BoxData[ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065453717237`*^9, 3.774027410053013*^9, 3.7886892261209745`*^9}, CellLabel->"Out[19]=",ExpressionUUID->"f7ab5cd2-211b-4a95-8b83-37251c2b6261"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"e", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7038643554789553`*^9, 3.703864363081955*^9}}, CellLabel->"In[20]:=",ExpressionUUID->"1fdefa6f-46e2-4786-be77-c406c2f503ab"], Cell[BoxData[ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006545691451*^9, 3.77402741009387*^9, 3.788689226209738*^9}, CellLabel->"Out[20]=",ExpressionUUID->"ef1470db-6967-46ed-945c-0b7fc1655d67"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"e", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7038643654439554`*^9, 3.703864371152955*^9}}, CellLabel->"In[21]:=",ExpressionUUID->"3126c45c-9392-4d0b-8cc1-cfb556fc0c9c"], Cell[BoxData[ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065459712057`*^9, 3.7740274101397786`*^9, 3.788689226297494*^9}, CellLabel->"Out[21]=",ExpressionUUID->"38161028-c3d5-4604-bc88-31a50d462d47"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.703880580051668*^9, 3.7038805861980686`*^9}}, CellLabel->"In[22]:=",ExpressionUUID->"1adff0e6-3898-4733-9d41-8df79fef51d8"], Cell[BoxData[ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065461921997`*^9, 3.774027410181636*^9, 3.788689226412165*^9}, CellLabel->"Out[22]=",ExpressionUUID->"78dfbbb0-94c2-4ce1-9e37-11137d6a8a9b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7038805933428683`*^9, 3.7038806005812683`*^9}}, CellLabel->"In[23]:=",ExpressionUUID->"045d3341-1743-419b-bb53-1311f022cec2"], Cell[BoxData[ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065464255023`*^9, 3.7740274102235584`*^9, 3.7886892264959655`*^9}, CellLabel->"Out[23]=",ExpressionUUID->"94c804dd-6c5b-4301-9704-6b5fcbf319ae"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.703880604418868*^9, 3.703880617164068*^9}}, CellLabel->"In[24]:=",ExpressionUUID->"80ab7d05-3c63-4422-9c2c-275ae8286e4c"], Cell[BoxData[ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065467172995`*^9, 3.7740274102654114`*^9, 3.788689226584735*^9}, CellLabel->"Out[24]=",ExpressionUUID->"e06970fd-b89b-4315-9aa5-3359ffe67cff"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7038806432940683`*^9, 3.703880649830468*^9}}, CellLabel->"In[25]:=",ExpressionUUID->"dc99d7ba-c78e-40d9-a6bc-fce3b8bd2378"], Cell[BoxData[ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065469247828`*^9, 3.774027410308296*^9, 3.788689226672501*^9}, CellLabel->"Out[25]=",ExpressionUUID->"0d51862f-3c69-4be6-a2d6-dfa62d88dc06"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7038806522484684`*^9, 3.703880658847268*^9}}, CellLabel->"In[26]:=",ExpressionUUID->"0efa99be-098c-44d9-9265-dabd7cc86edc"], Cell[BoxData[ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006547030526*^9, 3.7740274103482246`*^9, 3.7886892267612658`*^9}, CellLabel->"Out[26]=",ExpressionUUID->"1db87618-88ad-4449-939e-ce9ccc3e33eb"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, { 3.690669133485731*^9, 3.690669136542921*^9}, {3.7621916481051464`*^9, 3.7621916481709814`*^9}}, CellLabel->"In[27]:=",ExpressionUUID->"66c9a570-a888-4018-abfe-3ac5f70049bf"], Cell[BoxData[ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065471209335`*^9, 3.774027410394103*^9, 3.788689226848032*^9}, CellLabel->"Out[27]=",ExpressionUUID->"3eac1e3e-65e8-43a4-ba63-a9dd2545068a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, { 3.690669422351235*^9, 3.69066943317575*^9}, {3.7621916497328043`*^9, 3.7621916497866287`*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"2e276331-bd3c-4dc9-9628-2a7b7fda01d4"], Cell[BoxData[ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065472175612`*^9, 3.7740274104419394`*^9, 3.788689226937789*^9}, CellLabel->"Out[28]=",ExpressionUUID->"4bc5db6b-f478-493d-bc7b-68d12b60b011"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}, { 3.7621916511071205`*^9, 3.7621916547344046`*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"13f7ec0b-0e24-4fc9-9bcd-e14e5a803946"], Cell[BoxData[ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.77400654737407*^9, 3.774027410483827*^9, 3.788689227028554*^9}, CellLabel->"Out[29]=",ExpressionUUID->"1dbc0d43-dedd-4de2-b13c-8869b3e670b7"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}, { 3.762191656494746*^9, 3.7621916565825105`*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"4bb3f349-ab98-4d04-86f3-77f6f525fa47"], Cell[BoxData[ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065475250764`*^9, 3.7740274105616207`*^9, 3.7886892271163197`*^9}, CellLabel->"Out[30]=",ExpressionUUID->"ea6853da-4764-47a8-8e34-adf8ed049b96"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}, { 3.7621916585372734`*^9, 3.762191658586109*^9}}, CellLabel->"In[31]:=",ExpressionUUID->"7491569a-1cb5-4a41-b9b2-860566606e15"], Cell[BoxData[ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006547688795*^9, 3.774027410607498*^9, 3.78868922720408*^9}, CellLabel->"Out[31]=",ExpressionUUID->"07c27571-5251-49b3-b9ae-9ebc974ac689"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, { 3.690669133485731*^9, 3.690669136542921*^9}, {3.762191715048218*^9, 3.7621917179584646`*^9}}, CellLabel->"In[32]:=",ExpressionUUID->"97dae85f-f619-4e78-a5c7-1181121b0b1a"], Cell[BoxData[ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065479915934`*^9, 3.7740274106514235`*^9, 3.788689227293809*^9}, CellLabel->"Out[32]=",ExpressionUUID->"50c29a6b-67bf-4753-9ceb-3d612b176092"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, { 3.690669422351235*^9, 3.69066943317575*^9}, {3.762191727214674*^9, 3.762191729010909*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"72ea00e5-370c-442f-bae2-4f44c82b640a"], Cell[BoxData[ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006548223339*^9, 3.7740274106922693`*^9, 3.788689227382603*^9}, CellLabel->"Out[33]=",ExpressionUUID->"85e66452-19ab-4ebb-ac96-07b0a24e9a6e"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}, { 3.76219173142846*^9, 3.762191732754905*^9}}, CellLabel->"In[34]:=",ExpressionUUID->"8bdb6621-bdbe-402f-8b39-b9230fccb028"], Cell[BoxData[ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065484428387`*^9, 3.774027410736186*^9, 3.7886892274823303`*^9}, CellLabel->"Out[34]=",ExpressionUUID->"7019df04-2e35-4889-8cc3-25fd6289399c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}, { 3.762191736383175*^9, 3.7621917377395935`*^9}}, CellLabel->"In[35]:=",ExpressionUUID->"adb0fcbd-cc39-4c68-a67f-49147e336bc4"], Cell[BoxData[ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006548638502*^9, 3.774027410777043*^9, 3.788689227567114*^9}, CellLabel->"Out[35]=",ExpressionUUID->"2c6f1fb0-8261-45ea-97ad-561e4a33e503"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}, { 3.762191740248836*^9, 3.762191745240533*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"0cfa2561-1773-47c1-9dfc-68ffd854501f"], Cell[BoxData[ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065489268856`*^9, 3.7740274108229513`*^9, 3.7886892276538773`*^9}, CellLabel->"Out[36]=",ExpressionUUID->"5b48c9fb-ec2c-4ea4-a81a-e78bf6b2ab05"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906689895625896`*^9, 3.690669000666802*^9}, { 3.690669133485731*^9, 3.690669136542921*^9}, {3.7621916709081798`*^9, 3.7621916721818123`*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"8afe9c3c-a372-4e32-9078-15d82e28a25d"], Cell[BoxData[ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065490723715`*^9, 3.7740274108638477`*^9, 3.788689227741643*^9}, CellLabel->"Out[37]=",ExpressionUUID->"a504017f-4cd0-4e8f-814b-8515aac87b02"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906690700716133`*^9, 3.690669071829707*^9}, { 3.690669422351235*^9, 3.69066943317575*^9}, {3.762191679915099*^9, 3.7621916803230085`*^9}}, CellLabel->"In[38]:=",ExpressionUUID->"d84d9780-a2ba-48af-8dfe-804b01e8a625"], Cell[BoxData[ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065491995473`*^9, 3.774027410902738*^9, 3.78868922782838*^9}, CellLabel->"Out[38]=",ExpressionUUID->"c10bfd00-14b7-465a-bc70-47703cb0d88c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669445306819*^9, 3.690669460079101*^9}, { 3.7621916840301003`*^9, 3.762191684436015*^9}}, CellLabel->"In[39]:=",ExpressionUUID->"75c1ada7-6649-4e9e-9790-4412553113c0"], Cell[BoxData[ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.774006549349556*^9, 3.77402741094659*^9, 3.7886892279141817`*^9}, CellLabel->"Out[39]=",ExpressionUUID->"e7a1b064-7257-475c-b8bd-8120f9a5b717"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669589434595*^9, 3.690669596696786*^9}, { 3.762191686502493*^9, 3.762191686924391*^9}}, CellLabel->"In[40]:=",ExpressionUUID->"709a699d-3187-45c0-8919-9c51bd5e26b3"], Cell[BoxData[ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065494710045`*^9, 3.7740274109865165`*^9, 3.78868922800095*^9}, CellLabel->"Out[40]=",ExpressionUUID->"bdbad613-979c-4c58-b248-7dc17eff54bc"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690669608285184*^9, 3.690669614194174*^9}, { 3.762191688256804*^9, 3.762191688608893*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"cc7dcf89-5c24-4066-8a31-032aeb17a0b3"], Cell[BoxData[ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]], "Output", CellChangeTimes->{3.7740065495962677`*^9, 3.7740274110323954`*^9, 3.788689228089714*^9}, CellLabel->"Out[41]=",ExpressionUUID->"b9bd2c5a-210b-4a98-91c6-24e4b0bfe334"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Reading in a classical manner", FontSize->18]], "Section", CellChangeTimes->{{3.750257112596969*^9, 3.750257182980995*^9}},ExpressionUUID->"01a1336d-bcb5-4d03-93b7-\ 9fe3aff6d500"], Cell["\<\ We give a way to read the products in a classical manner, with a method for \ simplifying expressions in this form.\ \>", "Text", CellChangeTimes->{{3.7502572950724063`*^9, 3.7502573452042737`*^9}},ExpressionUUID->"39bf327d-3179-48d7-8048-\ 86ecde796740"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", RowBox[{"cancelling", "[", "b___", "]"}], ",", "c___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.690049316492878*^9, 3.690049399982028*^9}, { 3.6906628581348267`*^9, 3.6906628645308857`*^9}, {3.7044689338571987`*^9, 3.704468945064199*^9}}, CellLabel->"In[42]:=",ExpressionUUID->"99fd3f8a-b958-485c-ac47-5e3311091275"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", RowBox[{"b1_", "+", "b2_"}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a", ",", "b1", ",", "c"}], "]"}], "+", RowBox[{"cancelling", "[", RowBox[{"a", ",", "b2", ",", "c"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6900493800876207`*^9, 3.69004942280956*^9}, { 3.690662865639802*^9, 3.690662875254161*^9}, {3.704468950800199*^9, 3.704468959207199*^9}}, CellLabel->"In[43]:=",ExpressionUUID->"5a0b3ce6-f2aa-46d6-b3b3-6f9e66a4cf2e"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", RowBox[{"-", "b_"}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"cancelling", "[", RowBox[{"a", ",", "b", ",", "c"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7044816328579493`*^9, 3.704481663601023*^9}}, CellLabel->"In[44]:=",ExpressionUUID->"5c58c4e9-7f2a-411f-9d72-af838d6e81a4"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", FractionBox["1", "k"], ",", "k", ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.7038844235026255`*^9, 3.703884464496725*^9}, { 3.7038844995942345`*^9, 3.7038845110103755`*^9}, {3.7038845599492693`*^9, 3.703884566373912*^9}}, CellLabel->"In[45]:=",ExpressionUUID->"111b0f83-a4ef-4b5c-bf15-9306abb42605"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", "k", ",", FractionBox["1", "k"], ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.70388451475175*^9, 3.703884528211096*^9}, { 3.703884571238398*^9, 3.7038845759578695`*^9}}, CellLabel->"In[46]:=",ExpressionUUID->"815281f8-31ae-4387-aa52-0642df2e7942"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", "e", ",", "e", ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"0abaa518-594d-4254-9b29-6177761b2f24"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", "e", ",", SubscriptBox["e", "1"], ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{3.7272880119001493`*^9}, CellLabel->"In[48]:=",ExpressionUUID->"acfc3ff2-4053-4cfe-8b83-c2f67992649e"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", SubscriptBox["e", "1"], ",", "e", ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.7272880119001493`*^9, 3.7272880344422936`*^9}}, CellLabel->"In[49]:=",ExpressionUUID->"6587af05-a5e9-4344-9c23-62a1c5e56600"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a__", ",", SubscriptBox["e", "1"], ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "e", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.7272880119001493`*^9, 3.7272880344422936`*^9}, { 3.7272883587874765`*^9, 3.7272883599574842`*^9}}, CellLabel->"In[50]:=",ExpressionUUID->"396ad06a-fdf1-4250-9e09-7509419a2872"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", "se", ",", "se", ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "se", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}, { 3.7621930237428575`*^9, 3.762193026295706*^9}}, CellLabel->"In[51]:=",ExpressionUUID->"8d796328-467b-4421-ab69-4506af3f3b0f"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{ FractionBox["1", "k"], ",", "se", ",", "k", ",", "k", ",", "se", ",", "k"}], "]"}], ":=", RowBox[{"cancelling", "[", "ssekksse", "]"}]}]], "Input", CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}, { 3.7621930237428575`*^9, 3.762193026295706*^9}, {3.7621933528413963`*^9, 3.762193392826298*^9}, {3.762193973936123*^9, 3.7621939836785517`*^9}, { 3.7621941451475844`*^9, 3.7621941561376543`*^9}}, CellLabel->"In[52]:=",ExpressionUUID->"00c44b59-88d4-41ae-9dcd-d617302ce271"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"se", ",", "k", ",", "k"}], "]"}], ":=", RowBox[{"cancelling", "[", "sekk", "]"}]}]], "Input", CellChangeTimes->{{3.711235314747223*^9, 3.711235326151042*^9}, { 3.7621930237428575`*^9, 3.762193026295706*^9}, {3.7621933528413963`*^9, 3.762193392826298*^9}, {3.762193973936123*^9, 3.7621939991465654`*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"7b70c316-7e9e-47e7-bf99-93b932ca7905"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", RowBox[{"-", "1"}], ",", "b___"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"cancelling", "[", RowBox[{"a", ",", "b"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.7272879064902735`*^9, 3.727287918939153*^9}, { 3.7292262175886145`*^9, 3.7292262226532526`*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"3507916f-5ca7-4a89-9ced-46249f72de58"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", "1", ",", "b___"}], "]"}], ":=", RowBox[{"cancelling", "[", RowBox[{"a", ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.7272879064902735`*^9, 3.727287918939153*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"6bc3c611-4713-443f-b022-0d7df40fad86"], Cell[BoxData[ RowBox[{ RowBox[{"cancelling", "[", RowBox[{"a___", ",", "0", ",", "b___"}], "]"}], ":=", "0"}]], "Input", CellChangeTimes->{{3.7272879064902735`*^9, 3.727287918939153*^9}, { 3.7292340666371613`*^9, 3.729234068540374*^9}}, CellLabel->"In[56]:=",ExpressionUUID->"30289794-a5cf-4517-8881-4942df937198"], Cell[BoxData[ RowBox[{ RowBox[{"cancel", "[", "stuff_", "]"}], ":=", RowBox[{"Simplify", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Simplify", "[", "stuff", "]"}], "/.", RowBox[{"Dot", "\[Rule]", "cancelling"}]}], ")"}], "/.", RowBox[{"cancelling", "\[Rule]", "Dot"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7044686500741987`*^9, 3.7044687100471992`*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"34b05d8f-9a1c-40a3-9b2e-ca789fe0df6a"], Cell[BoxData[ RowBox[{ RowBox[{"read", "[", "stuff_", "]"}], ":=", RowBox[{"cancel", "[", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{"stuff", "/.", RowBox[{"m", "\[Rule]", "Dot"}]}], ")"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "k"}], ",", RowBox[{ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "1"], "2"], "[", "k", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "2"], "2"], "[", "k", "]"}]}], ",", RowBox[{ RowBox[{"e", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "e"}], ",", RowBox[{ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "e", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "e", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", " ", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "1"], "2"], "[", "e", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "e", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["e", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "2"], "2"], "[", "e", "]"}]}], ",", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", SuperscriptBox["k", RowBox[{"-", "1"}]]}], ",", RowBox[{ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{"-", RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{"-", RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"2", RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}], "-", RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "1"], "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}], "-", RowBox[{ RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", SubscriptBox["\[Delta]", "1"]}], RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}], "+", RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["kinv", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ RowBox[{"2", RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}], "-", RowBox[{ SuperscriptBox["k", RowBox[{"-", "1"}]], ".", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "2"], "2"], "[", "k", "]"}], ".", SuperscriptBox["k", RowBox[{"-", "1"}]]}]}]}], ",", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "se"}], ",", RowBox[{ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "1"], "2"], "[", "se", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "2"], "2"], "[", "se", "]"}]}], ",", RowBox[{ RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "ssekksse"}], ",", RowBox[{ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "1"], "2"], "[", "ssekksse", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["ssekksse", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "2"], "2"], "[", "ssekksse", "]"}]}], ",", RowBox[{ RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", "sekk"}], ",", RowBox[{ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "1"], "2"], "[", "sekk", "]"}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SubscriptBox["\[Delta]", "1"], RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ",", RowBox[{ RowBox[{ SuperscriptBox["sekk", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "\[Rule]", RowBox[{ SuperscriptBox[ SubscriptBox["\[Delta]", "2"], "2"], "[", "sekk", "]"}]}]}], "}"}]}], ")"}], "]"}]}]], "Input", CellChangeTimes->{{3.690665115173683*^9, 3.690665127603458*^9}, { 3.6906677611411457`*^9, 3.690667800346139*^9}, {3.6906678911720057`*^9, 3.690667907768957*^9}, {3.6906683884828377`*^9, 3.690668432648012*^9}, { 3.6906686445912743`*^9, 3.690668679273237*^9}, {3.690668718319725*^9, 3.690668783743629*^9}, {3.6906688877976103`*^9, 3.690668941501865*^9}, { 3.6906690549088373`*^9, 3.690669055158558*^9}, {3.69066909520583*^9, 3.690669095489747*^9}, {3.6906691534155827`*^9, 3.690669154808935*^9}, 3.690669233507351*^9, 3.690669439320223*^9, {3.690669584994959*^9, 3.6906696206285477`*^9}, {3.703864421591955*^9, 3.703864640699955*^9}, { 3.7038822952514687`*^9, 3.703882421804468*^9}, {3.7038835943747215`*^9, 3.7038837847567577`*^9}, {3.703883897525033*^9, 3.7038839265019307`*^9}, { 3.7038839918014603`*^9, 3.703884004192699*^9}, {3.7038840993442135`*^9, 3.7038841694732256`*^9}, {3.7038846096752415`*^9, 3.70388463039811*^9}, { 3.7044660587376404`*^9, 3.7044660990976763`*^9}, {3.704466153625128*^9, 3.7044661547332387`*^9}, {3.70446622545231*^9, 3.704466239628728*^9}, { 3.7044687221801987`*^9, 3.7044687356801987`*^9}, {3.704468861603199*^9, 3.704468862394199*^9}, {3.7621918135189962`*^9, 3.7621919379190917`*^9}, { 3.7621923310013113`*^9, 3.762192571737855*^9}, {3.7621926657136717`*^9, 3.7621927011938696`*^9}, {3.762194241965974*^9, 3.7621942434250717`*^9}, { 3.77400640742092*^9, 3.7740064255548215`*^9}}, CellLabel->"In[58]:=",ExpressionUUID->"9fdc53d8-f9eb-400d-b177-0f6429a25f55"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906696867641563`*^9, 3.690669706286137*^9}}, CellLabel->"In[59]:=",ExpressionUUID->"cce67af6-162a-4d43-b8ad-3a492909436d"], Cell[BoxData[ RowBox[{"k", ".", "k"}]], "Output", CellChangeTimes->{3.774006551057708*^9, 3.7740274112717514`*^9, 3.7886892283570175`*^9}, CellLabel->"Out[59]=",ExpressionUUID->"38efac4b-1f44-43d3-b8dd-bdd3528dfdee"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6906697228919077`*^9, 3.690669745584383*^9}}, CellLabel->"In[60]:=",ExpressionUUID->"36067100-ee05-43ae-a5d3-c0350dfd43fd"], Cell[BoxData[ RowBox[{ RowBox[{"k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}]], "Output", CellChangeTimes->{3.7740065512444906`*^9, 3.7740274113106675`*^9, 3.788689228486655*^9}, CellLabel->"Out[60]=",ExpressionUUID->"27cf81c7-6fdc-4594-a0f8-ac21704f849c"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690670170124776*^9, 3.690670211401373*^9}, { 3.6906706421271467`*^9, 3.690670653857843*^9}}, CellLabel->"In[61]:=",ExpressionUUID->"a1a81dfe-dcd3-4e89-a224-685407f8ed2d"], Cell[BoxData[ RowBox[{ RowBox[{"k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}]}]], "Output", CellChangeTimes->{3.774006551411275*^9, 3.7740274113245783`*^9, 3.788689228607298*^9}, CellLabel->"Out[61]=",ExpressionUUID->"8e65aab5-ff96-481f-adf7-9130226df354"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762192608750961*^9, 3.762192618010214*^9}}, CellLabel->"In[62]:=",ExpressionUUID->"6eb73b36-1f3a-4dc1-8dbb-c56db5eb4786"], Cell[BoxData["se"], "Output", CellChangeTimes->{3.7740065515136127`*^9, 3.7740274113645067`*^9, 3.7886892287000484`*^9}, CellLabel->"Out[62]=",ExpressionUUID->"50b7598b-c6e3-4902-9964-b7bc502d58ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"m", "[", RowBox[{"du", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7621927070581636`*^9, 3.7621927151564665`*^9}}, CellLabel->"In[63]:=",ExpressionUUID->"d51da206-9b27-453a-8b19-350ac4dd6e8d"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}]], "Output", CellChangeTimes->{3.774006551601845*^9, 3.77402741140237*^9, 3.7886892288038034`*^9}, CellLabel->"Out[63]=",ExpressionUUID->"cd39eff4-a207-4b69-a9f7-97a853b357ab"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"m", "[", RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7621927198639116`*^9, 3.7621927281108713`*^9}}, CellLabel->"In[64]:=",ExpressionUUID->"b470d256-2b1b-48ed-9d9d-0414e29fc1f8"], Cell[BoxData[ RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}]], "Output", CellChangeTimes->{3.7740065517015715`*^9, 3.774027411416333*^9, 3.788689228891576*^9}, CellLabel->"Out[64]=",ExpressionUUID->"c468efb8-88d9-4dda-9e74-bc2f5054c029"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.762445739273079*^9}, { 3.7624458650037017`*^9, 3.7624458667969027`*^9}}, CellLabel->"In[65]:=",ExpressionUUID->"a46e4fd0-2a16-4c7a-8300-135bf7d29115"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}]}]], "Output", CellChangeTimes->{3.774006551792879*^9, 3.7740274114582214`*^9, 3.7886892289793367`*^9}, CellLabel->"Out[65]=",ExpressionUUID->"14f46974-3040-4761-90b6-c84aaad7ce0a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.7624457454645433`*^9}, { 3.762445868122365*^9, 3.762445869370021*^9}}, CellLabel->"In[66]:=",ExpressionUUID->"56fcd51f-9b69-43b9-9baf-205b979a7899"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}]}]], "Output", CellChangeTimes->{3.7740065519154215`*^9, 3.774027411502104*^9, 3.7886892290710893`*^9}, CellLabel->"Out[66]=",ExpressionUUID->"beee2f70-74c5-452b-a053-9760c701a836"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.762445754783579*^9}, { 3.7624458716169977`*^9, 3.7624458728028*^9}}, CellLabel->"In[67]:=",ExpressionUUID->"a0e22477-a073-4d95-a4d2-b62464fa88fa"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"]}]}], ")"}], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}]}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}]}]], "Output", CellChangeTimes->{3.774006552019377*^9, 3.7740274115809245`*^9, 3.7886892291678305`*^9}, CellLabel->"Out[67]=",ExpressionUUID->"427bb681-bcb4-4222-8eb1-8281736de3e9"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.7624457618057876`*^9}, { 3.762445874599989*^9, 3.762445875715007*^9}}, CellLabel->"In[68]:=",ExpressionUUID->"9cf538e8-054f-493d-914e-8991a96c9119"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", ".", "k", ".", "se", ".", "k"}], "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", SubscriptBox["\[Delta]", "1"]}], " ", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"]}]}], ")"}], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}]}]], "Output", CellChangeTimes->{3.774006552158186*^9, 3.7740274116377745`*^9, 3.7886892292715664`*^9}, CellLabel->"Out[68]=",ExpressionUUID->"94a4974f-bd11-45e8-a175-d9c071d7015d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.7624457580667953`*^9}, { 3.762445877489295*^9, 3.7624458789573746`*^9}}, CellLabel->"In[69]:=",ExpressionUUID->"9c9fcd0c-1b59-4186-8257-7e55f64014f7"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "se", ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"]}]}], ")"}], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", "k"}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", "k"}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", "k"}]}], "-", RowBox[{ FractionBox["1", "k"], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k"}]}]], "Output", CellChangeTimes->{3.774006552291646*^9, 3.7740274116936255`*^9, 3.788689229374284*^9}, CellLabel->"Out[69]=",ExpressionUUID->"dadc5327-dd19-41f9-b088-73cf5c296755"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.762445739273079*^9}, { 3.7624457884824133`*^9, 3.762445809208006*^9}, {3.7624468892777047`*^9, 3.762446890527319*^9}}, CellLabel->"In[70]:=",ExpressionUUID->"721b1ed3-f65c-4e31-8b21-d574977e916c"], Cell[BoxData[ RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}]], "Output", CellChangeTimes->{3.774006552398332*^9, 3.774027411739504*^9, 3.788689229467043*^9}, CellLabel->"Out[70]=",ExpressionUUID->"7558c564-01b2-48ed-b050-aa954bfbcb57"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.7624457454645433`*^9}, { 3.7624457904601192`*^9, 3.762445811231542*^9}, {3.762446892320549*^9, 3.7624468937317452`*^9}}, CellLabel->"In[71]:=",ExpressionUUID->"bd226353-8c48-4426-9c8a-bb0f680530d9"], Cell[BoxData[ RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}]], "Output", CellChangeTimes->{3.7740065524913425`*^9, 3.774027411779398*^9, 3.7886892295537987`*^9}, CellLabel->"Out[71]=",ExpressionUUID->"d0dc746e-990c-4cab-b79b-9d41a08de58b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.762445754783579*^9}, { 3.7624457925734963`*^9, 3.762445814143792*^9}, {3.762446895398286*^9, 3.7624468964943533`*^9}}, CellLabel->"In[72]:=",ExpressionUUID->"e0c20d59-bcdd-4325-8142-bb080e71f95f"], Cell[BoxData[ RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}]], "Output", CellChangeTimes->{3.774006552584906*^9, 3.774027411819255*^9, 3.788689229654541*^9}, CellLabel->"Out[72]=",ExpressionUUID->"016545d1-95fe-486f-bb63-5d539647a425"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.7624457618057876`*^9}, { 3.7624457949969797`*^9, 3.7624458176005383`*^9}, {3.7624468978487587`*^9, 3.7624469012107334`*^9}}, CellLabel->"In[73]:=",ExpressionUUID->"3263ac1c-40a5-4a33-841f-0b2ff53f1015"], Cell[BoxData[ RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{"se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", ".", "k"}]}]], "Output", CellChangeTimes->{3.774006552678485*^9, 3.774027411863138*^9, 3.788689229742296*^9}, CellLabel->"Out[73]=",ExpressionUUID->"c5461feb-43a1-4efd-84fe-cfd89b853e95"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.762445642785284*^9, 3.7624457580667953`*^9}, { 3.7624457968101687`*^9, 3.7624458203062925`*^9}, {3.762446902953092*^9, 3.762446904149889*^9}}, CellLabel->"In[74]:=",ExpressionUUID->"355b8f8e-44ef-4473-a190-ca00cf08a34b"], Cell[BoxData[ RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{"2", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{ RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}]], "Output", CellChangeTimes->{3.7740065527740965`*^9, 3.7740274119070463`*^9, 3.78868922983006*^9}, CellLabel->"Out[74]=",ExpressionUUID->"4aa4d815-bcac-4cb7-b422-c98378262c77"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Total symbol of each Laplacian", FontSize->18]], "Section", CellChangeTimes->{{3.750257393977063*^9, 3.7502574057747383`*^9}, { 3.7502574881954527`*^9, 3.75025749199967*^9}, {3.750257761047058*^9, 3.7502577669033937`*^9}, {3.7502577993122473`*^9, 3.750257802483429*^9}},ExpressionUUID->"6b9f2e46-b9d1-4516-aac6-\ d3811d21837f"], Cell["We define a \[Sigma]-connection and its inverse", "Text", CellChangeTimes->{{3.750257429658104*^9, 3.750257463943065*^9}},ExpressionUUID->"97d57b98-de8d-4756-a400-\ 52fead155efc"], Cell[BoxData[ RowBox[{ RowBox[{"sigma", "[", "stuff_", "]"}], ":=", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", "stuff", ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.703864936072955*^9, 3.703864942783955*^9}, { 3.703865055473955*^9, 3.7038650945839553`*^9}, {3.7038651499685993`*^9, 3.7038651567139482`*^9}, {3.7038653231062202`*^9, 3.7038653330512085`*^9}, { 3.7044623519432163`*^9, 3.704462359894216*^9}}, CellLabel->"In[75]:=",ExpressionUUID->"be45ebb9-f9bd-49ff-9712-7aad68613d35"], Cell[BoxData[ RowBox[{ RowBox[{"sigmainv", "[", "stuff_", "]"}], ":=", RowBox[{"m", "[", RowBox[{ RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", " ", "stuff", ",", RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.703865791330903*^9, 3.7038658305138206`*^9}, { 3.703865893821151*^9, 3.7038659079895678`*^9}, {3.704462364534216*^9, 3.704462368534216*^9}}, CellLabel->"In[76]:=",ExpressionUUID->"e2b4d932-14e5-487a-b1a4-f6f00bb9ec2b"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"sigma", "[", RowBox[{"e", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.703865182889182*^9, 3.703865219250453*^9}, { 3.7038658510438733`*^9, 3.7038658527630453`*^9}, {3.703883883151596*^9, 3.7038838864719276`*^9}, {3.7038840201822977`*^9, 3.7038840209333725`*^9}, { 3.7038842167589536`*^9, 3.7038842212694044`*^9}, {3.70388465509511*^9, 3.70388465594211*^9}}, CellLabel->"In[77]:=",ExpressionUUID->"74a486cc-de17-4d2f-be7e-5fe29c51c20a"], Cell[BoxData[ RowBox[{ FractionBox["1", "k"], ".", "e", ".", "k"}]], "Output", CellChangeTimes->{3.774006552952425*^9, 3.774027411968856*^9, 3.7886892299377413`*^9}, CellLabel->"Out[77]=",ExpressionUUID->"a9a18856-4c30-4e77-a8c8-d5b5edbc2b2f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aueo2", "=", RowBox[{"pso2", "[", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", RowBox[{"pso2", "[", RowBox[{ RowBox[{ SubscriptBox["\[Xi]", "1"], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ",", RowBox[{"pso2", "[", RowBox[{ RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"pso2", "[", RowBox[{ RowBox[{ SubscriptBox["\[Xi]", "1"], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ",", RowBox[{"m", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.690733220435198*^9, 3.690733226065104*^9}, { 3.690733707291625*^9, 3.690733734121381*^9}, {3.6907339200067873`*^9, 3.690733960228714*^9}, {3.690734904330949*^9, 3.690734934626958*^9}, 3.690735035431769*^9, {3.690735242654223*^9, 3.690735247465468*^9}, { 3.690735285745098*^9, 3.6907353002697783`*^9}, {3.690737419350707*^9, 3.690737420295974*^9}, 3.704463707605216*^9, {3.704463788103216*^9, 3.704463825500216*^9}, {3.704463905199216*^9, 3.704463991986216*^9}, { 3.7044640370232162`*^9, 3.7044640386232157`*^9}, {3.704464079637216*^9, 3.7044641488686094`*^9}, 3.704464190255022*^9, {3.7044643388905993`*^9, 3.704464346548896*^9}, {3.7044644063514185`*^9, 3.704464515572339*^9}, { 3.704464589950776*^9, 3.704464633680149*^9}, {3.7044648520909877`*^9, 3.704464856802459*^9}, {3.704464886891467*^9, 3.704464890859864*^9}, 3.7044659083606043`*^9, 3.7107234298950586`*^9, {3.76098533591053*^9, 3.7609853360541353`*^9}, {3.760985372338107*^9, 3.7609853827273436`*^9}, 3.7609859505008492`*^9, 3.7609859819437933`*^9, {3.760987187249933*^9, 3.7609872813732634`*^9}, {3.762192891956339*^9, 3.762192907411317*^9}}, CellLabel->"In[78]:=",ExpressionUUID->"217c76c2-ccda-4808-b774-0a89e19fcab0"], Cell[BoxData[ RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "2", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"2", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}]}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output", CellChangeTimes->{3.7740065531110935`*^9, 3.774027412045682*^9, 3.7886892300504713`*^9}, CellLabel->"Out[78]=",ExpressionUUID->"a3f3178a-c412-4c63-b261-4a2e5b5d245b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"aueo2adj", "=", RowBox[{"pso2", "[", RowBox[{ RowBox[{"m", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"pso2", "[", RowBox[{ RowBox[{ SubscriptBox["\[Xi]", "1"], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ",", RowBox[{"pso2", "[", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", RowBox[{ SubscriptBox["\[Xi]", "1"], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}]}], "]"}]}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.711234235331548*^9, 3.7112343114132357`*^9}, { 3.7112343486350746`*^9, 3.711234378322065*^9}, {3.7112344576953735`*^9, 3.7112344838099413`*^9}, {3.711234531686648*^9, 3.711234614226777*^9}, { 3.7112347152218246`*^9, 3.7112347538320723`*^9}, {3.711234822909315*^9, 3.711234827183742*^9}, {3.7112350174898143`*^9, 3.711235028815995*^9}, { 3.760988051917241*^9, 3.7609881066798277`*^9}, {3.7609881442513285`*^9, 3.7609881453294754`*^9}, 3.760988186611103*^9, {3.762192927875311*^9, 3.762192935834961*^9}}, CellLabel->"In[79]:=",ExpressionUUID->"059cc991-175c-4781-8c46-ed14596d4728"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"0", ",", "1", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"(", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["k", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ SuperscriptBox["se", TagBox[ RowBox[{"(", RowBox[{"1", ",", "0", ",", "0"}], ")"}], Derivative], MultilineFunction->None], "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}], ")"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output", CellChangeTimes->{3.774006553249155*^9, 3.7740274121075153`*^9, 3.788689230149207*^9}, CellLabel->"Out[79]=",ExpressionUUID->"767ec6f2-aef0-41c5-9966-a102aa56a6dd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", "aueo2", "]"}]], "Input", CellLabel->"In[80]:=",ExpressionUUID->"e500d879-733c-4627-bf42-57b71e75eb61"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"ssekksse", " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"ssekksse", " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output", CellChangeTimes->{3.7740065533685675`*^9, 3.7740274121563873`*^9, 3.7886892302399654`*^9}, CellLabel->"Out[80]=",ExpressionUUID->"42cba123-436b-41d8-85da-885f14aefe03"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{"read", "[", "aueo2adj", "]"}], "]"}]], "Input", CellChangeTimes->{{3.711234933919626*^9, 3.711234937913252*^9}, { 3.760988298848996*^9, 3.760988303354947*^9}}, CellLabel->"In[81]:=",ExpressionUUID->"787596a9-eba9-443c-abff-b8f19f15e5fc"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"sekk", " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"sekk", " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}]], "Output", CellChangeTimes->{3.7740065534700108`*^9, 3.7740274122042603`*^9, 3.7886892303317194`*^9}, CellLabel->"Out[81]=",ExpressionUUID->"54dafb2c-2f75-4df9-9eb9-c82ca7b46839"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"read", "[", "aueo2", "]"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["\[Xi]", "1"], ",", SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}], "//", "TableForm"}]], "Input", CellChangeTimes->{{3.690735704856639*^9, 3.690735711562557*^9}, { 3.690735816016296*^9, 3.690735851994089*^9}, {3.690737433657516*^9, 3.690737442872324*^9}, 3.704463707650216*^9}, CellLabel->"In[82]:=",ExpressionUUID->"29b58226-e82b-4e9f-bece-c2d33995f863"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", "ssekksse"}]}, { RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}]}]}]}, { RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", "ssekksse"}]}, { RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}]}]}, { RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "\[Rule]", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.774006553624967*^9, 3.7740274122540917`*^9, 3.7886892304254694`*^9}, CellLabel-> "Out[82]//TableForm=",ExpressionUUID->"21f88db5-83e0-4607-942e-\ fd519e52cee5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"read", "[", "aueo2adj", "]"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["\[Xi]", "1"], ",", SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}], "//", "TableForm"}]], "Input", CellChangeTimes->{{3.690735704856639*^9, 3.690735711562557*^9}, { 3.690735816016296*^9, 3.690735851994089*^9}, {3.690737433657516*^9, 3.690737442872324*^9}, 3.704463707650216*^9, {3.711234959300989*^9, 3.7112349594569902`*^9}}, CellLabel->"In[83]:=",ExpressionUUID->"76e391b2-b7de-4262-b201-1d3ab9910cbc"], Cell[BoxData[ TagBox[ TagBox[GridBox[{ { RowBox[{ RowBox[{"{", RowBox[{"2", ",", "0"}], "}"}], "\[Rule]", "sekk"}]}, { RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}]}]}]}, { RowBox[{ RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}], "\[Rule]", "sekk"}]}, { RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}], "\[Rule]", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Column], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7740065539224925`*^9, 3.774027412323906*^9, 3.7886892305192184`*^9}, CellLabel-> "Out[83]//TableForm=",ExpressionUUID->"280d1cb6-988d-4f0e-8bbf-\ 9831cae2f518"] }, Open ]], Cell["The symbol of order two for the first Laplacian is", "Text", CellChangeTimes->{{3.750257496935952*^9, 3.7502575068325186`*^9}},ExpressionUUID->"5aaeec37-b014-4faa-a14b-\ b302d8071bf2"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"p", "[", "2", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"m", "[", RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{"ssekksse", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.690736925083602*^9, 3.6907369291862698`*^9}, { 3.6907369786088877`*^9, 3.690736995468594*^9}, {3.7044673070014544`*^9, 3.704467318489603*^9}, 3.7044676682585764`*^9, {3.7609887931898837`*^9, 3.760988823687333*^9}, {3.762194128970357*^9, 3.762194184994897*^9}}, CellLabel->"In[84]:=",ExpressionUUID->"edf0e4aa-7966-4a37-85a2-8a4b9ed6e75d"], Cell["The symbol of order two for the second Laplacian is", "Text", CellChangeTimes->{{3.7502575118908076`*^9, 3.75025751944724*^9}},ExpressionUUID->"e571e048-a790-4395-b431-\ 5be6763170f1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"padj", "[", "2", "]"}], "=", RowBox[{ RowBox[{ RowBox[{"m", "[", RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{"m", "[", RowBox[{"sekk", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7112355386427283`*^9, 3.7112355601555424`*^9}, { 3.760989106521079*^9, 3.7609891264288735`*^9}, {3.7621942036996136`*^9, 3.762194213786833*^9}}, CellLabel->"In[85]:=",ExpressionUUID->"7d19e6e6-677a-4f21-be5d-f1c69a7d07f3"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6907370130285883`*^9, 3.6907370164734364`*^9}, { 3.690737348084467*^9, 3.690737350470932*^9}}, CellLabel->"In[86]:=",ExpressionUUID->"24a03a81-8186-4992-ba10-351d0052e84a"], Cell[BoxData[ RowBox[{"ssekksse", " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]], "Output", CellChangeTimes->{3.7740065543459997`*^9, 3.7740274123907614`*^9, 3.788689230632883*^9}, CellLabel->"Out[86]=",ExpressionUUID->"f3f2d2fe-51cd-4867-a057-6d0f01fcec32"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.711235573212993*^9, 3.711235573353396*^9}}, CellLabel->"In[87]:=",ExpressionUUID->"c0e02d13-db27-4f53-9fda-226a1b0e533a"], Cell[BoxData[ RowBox[{"sekk", " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]], "Output", CellChangeTimes->{3.774006554657569*^9, 3.774027412433612*^9, 3.78868923071669*^9}, CellLabel->"Out[87]=",ExpressionUUID->"2808abc0-f4a9-45c3-a896-aa32acfb36e2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"aueo2", "-", RowBox[{"p", "[", "2", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.69073735759613*^9, 3.6907373674870443`*^9}, { 3.690737455242689*^9, 3.6907374834784203`*^9}, 3.7044637076682158`*^9}, CellLabel->"In[88]:=",ExpressionUUID->"61f30d66-8b41-4478-9a65-4890a7d91f92"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}]}]], "Output", CellChangeTimes->{3.7740065549524612`*^9, 3.774027412484476*^9, 3.78868923080646*^9}, CellLabel->"Out[88]=",ExpressionUUID->"2523c82d-a6de-4a9b-8da0-84a1d3a7cc12"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"aueo2adj", "-", RowBox[{"padj", "[", "2", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.711235596223436*^9, 3.7112356070656443`*^9}}, CellLabel->"In[89]:=",ExpressionUUID->"fdce305e-02d4-4c13-b614-ff4fc6ba0281"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", SubscriptBox["\[Xi]", "2"]}], ")"}]}]], "Output", CellChangeTimes->{3.7740065552374363`*^9, 3.77402741253135*^9, 3.7886892308971767`*^9}, CellLabel->"Out[89]=",ExpressionUUID->"92d647d3-ba4c-407e-a7ee-decdc2066334"] }, Open ]], Cell["The symbol of order one for the first Laplacian is", "Text", CellChangeTimes->{{3.7502576060961957`*^9, 3.750257617040822*^9}},ExpressionUUID->"b01dcde1-c4d1-4447-9516-\ 15759a60dca1"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"p", "[", "1", "]"}], "=", RowBox[{"m", "[", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"du", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"du", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"dv", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]}], ")"}], SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"dv", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"du", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}]}]}], ")"}], SubscriptBox["\[Xi]", "2"]}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.690737543499743*^9, 3.6907375655898333`*^9}, { 3.7044693678971987`*^9, 3.704469468461199*^9}, {3.704469573766199*^9, 3.704469592304199*^9}, {3.704469622428199*^9, 3.704469650913199*^9}, { 3.704470965487199*^9, 3.704471147399199*^9}, {3.704471185994199*^9, 3.704471291154892*^9}, {3.7044820755422134`*^9, 3.704482077677427*^9}, { 3.7107236748976297`*^9, 3.7107237229615374`*^9}, 3.7107237616497855`*^9, { 3.710723797218014*^9, 3.7107238587005615`*^9}, {3.7609899634228215`*^9, 3.7609900111681595`*^9}, {3.7609900604912796`*^9, 3.7609900844432383`*^9}, {3.7609905975926657`*^9, 3.7609907178561087`*^9}, {3.760991988173484*^9, 3.7609920166353827`*^9}, { 3.760992051564988*^9, 3.7609920534669356`*^9}, {3.7609920886398582`*^9, 3.760992111687235*^9}, {3.76219428158261*^9, 3.762194327351274*^9}}, CellLabel->"In[90]:=",ExpressionUUID->"227b119a-3b7e-46e3-9dc5-004daba31959"], Cell["The symbol of order one for the second Laplacian is", "Text", CellChangeTimes->{{3.750257619924987*^9, 3.7502576364869337`*^9}},ExpressionUUID->"ee63b7f7-9dea-43f1-b8df-\ 0ee277db0c61"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"padj", "[", "1", "]"}], "=", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"du", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"dv", "[", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], "]"}], SubscriptBox["\[Xi]", "1"]}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.711235664677185*^9, 3.7112356664868083`*^9}, { 3.7112360080525427`*^9, 3.711236042481963*^9}, {3.711236080452607*^9, 3.7112360806398077`*^9}, {3.7112361136496196`*^9, 3.711236141636199*^9}, { 3.7112361953785434`*^9, 3.7112363612076063`*^9}, {3.7112364473513584`*^9, 3.711236526927469*^9}, {3.7112365780489964`*^9, 3.7112365859114466`*^9}, { 3.7112366357849665`*^9, 3.7112366390453873`*^9}, {3.711236684207677*^9, 3.71123669412934*^9}, 3.711236747341282*^9, {3.7112367986656103`*^9, 3.711236801317628*^9}, {3.7112368369326563`*^9, 3.7112368718456793`*^9}, 3.711236969393105*^9, {3.76099284688628*^9, 3.760993071533614*^9}, { 3.7621943396193867`*^9, 3.762194367424611*^9}}, CellLabel->"In[91]:=",ExpressionUUID->"b8a65004-2812-451c-9b92-3f36e0d8a349"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"p", "[", "1", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690737572474592*^9, 3.6907375788879642`*^9}}, CellLabel->"In[92]:=",ExpressionUUID->"74369f2d-86ea-4704-aa9b-9073a3157a6d"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Xi]", "1"], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "2"]}]}]], "Output", CellChangeTimes->{3.774006555625168*^9, 3.7740274126450477`*^9, 3.7886892310188947`*^9}, CellLabel->"Out[92]=",ExpressionUUID->"ea16196c-0123-42cb-940b-431cc2ef2539"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"padj", "[", "1", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7112369749155407`*^9, 3.711236982325588*^9}}, CellLabel->"In[93]:=",ExpressionUUID->"a28a33c8-9fe2-44df-8ac6-9ebe78506788"], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], ")"}], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SubscriptBox["\[Xi]", "1"]}], "+", SubscriptBox["\[Xi]", "2"]}], ")"}]}]], "Output", CellChangeTimes->{3.774006555877288*^9, 3.7740274126919527`*^9, 3.788689231105651*^9}, CellLabel->"Out[93]=",ExpressionUUID->"3d596e3a-7171-4395-af9a-1407aa618aa5"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"aueo2", "-", RowBox[{"p", "[", "2", "]"}], "-", RowBox[{"p", "[", "1", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690737582076898*^9, 3.690737601272496*^9}, 3.704463707687216*^9}, CellLabel->"In[94]:=",ExpressionUUID->"9333d8d0-0f41-4073-9b3b-0057f8ca99bb"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]], "Output", CellChangeTimes->{3.774006556103329*^9, 3.774027412742817*^9, 3.788689231193416*^9}, CellLabel->"Out[94]=",ExpressionUUID->"3fca54fe-5c23-4cf4-80ab-ad00097024d4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"aueo2adj", "-", RowBox[{"padj", "[", "2", "]"}], "-", RowBox[{"padj", "[", "1", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.711236990203638*^9, 3.711237000718106*^9}}, CellLabel->"In[95]:=",ExpressionUUID->"723f1ca3-b4f3-4512-979d-43e44fa44b85"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.774006556378379*^9, 3.7740274127607374`*^9, 3.7886892312811813`*^9}, CellLabel->"Out[95]=",ExpressionUUID->"4c2ad9ac-063c-48c7-afd2-64e4c736e69f"] }, Open ]], Cell["The symbol of order zero for the first Laplacian is", "Text", CellChangeTimes->{{3.7502576476565733`*^9, 3.750257661629372*^9}},ExpressionUUID->"e7d8ef48-47db-453e-9a22-\ 2e24e82d6276"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"p", "[", "0", "]"}], "=", RowBox[{"m", "[", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"kinv", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}]}], "]"}], ",", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"du", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"dv", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], "]"}]}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"dv", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"m", "[", RowBox[{ RowBox[{"du", "[", RowBox[{"se", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"k", "[", RowBox[{"u", ",", "v", ",", RowBox[{"o", "[", "1", "]"}]}], "]"}], "]"}]}], "]"}]}]}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmViYGAQBmIQbduj9rG9/rXjpt6Xn0H0LvYfK3bOfO144m7IShC9 ykLkBYi2KvsPps/MeBe7C0jznBMoA9HN60zKdgPpPo8NNSDapde+BUTXXbPt ANFVX1jj9wDppFM3k0G09aSKHBCd53uyGEQXnflVBaJXXVhfD6It4iJbQXRT xukOEH1yYsZiEN2gfXcZiH7jbL4aRHftMNoAoivL7h0C0bM+b7sHokONb/xf svS141HGUIalQPqGc4swiJ7FsFQMREu9mdbWxvrG8fz8fTNANIdNyxwQrTRV fh6IvuWVdBdEb1BzuQeiD/Qz/brA/sbROsTvH4gGAC3pqok= "], CellLabel->"In[96]:=",ExpressionUUID->"d0a96e31-42c7-4c57-9984-17a5b8b55c57"], Cell["The symbol of order zero for the second Laplacian is", "Text", CellChangeTimes->{{3.7502576644615345`*^9, 3.750257672203977*^9}},ExpressionUUID->"7edc2570-d318-43d5-9b95-\ 4227bc4b9786"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"padj", "[", "0", "]"}], "=", "0"}], ";"}]], "Input", CellChangeTimes->{{3.7112818897307825`*^9, 3.711281930669119*^9}, { 3.711282346518112*^9, 3.7112824225389194`*^9}, {3.7112824537549195`*^9, 3.7112824587313833`*^9}, {3.7112824943622403`*^9, 3.711282627322745*^9}, { 3.7112826790686083`*^9, 3.7112826910495615`*^9}, {3.711282737241517*^9, 3.7112827898294535`*^9}, 3.7609930952521877`*^9, 3.760993322602394*^9}, CellLabel->"In[97]:=",ExpressionUUID->"ca13f4c4-bb23-4d62-9115-0411b709aaf8"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"p", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.69074166562519*^9, 3.690741671024407*^9}}, CellLabel->"In[98]:=",ExpressionUUID->"ab98ac28-63d9-459d-a095-a24a806bc00b"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]], "Output", CellChangeTimes->{3.7740065567296453`*^9, 3.7740274128295527`*^9, 3.788689231388898*^9}, CellLabel->"Out[98]=",ExpressionUUID->"5de9cf50-d1c3-461d-a611-f36ca8be3f3d"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"padj", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7112828082219715`*^9, 3.711282813463605*^9}}, CellLabel->"In[99]:=",ExpressionUUID->"f427bfef-68c7-46e0-a742-595262b366da"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7740065569743395`*^9, 3.774027412843548*^9, 3.788689231478622*^9}, CellLabel->"Out[99]=",ExpressionUUID->"13fdb6b1-8d02-430a-b6e8-3d9355c4e086"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"aueo2", "-", RowBox[{"p", "[", "2", "]"}], "-", RowBox[{"p", "[", "1", "]"}], "-", RowBox[{"p", "[", "0", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.690741685328404*^9, 3.69074169512315*^9}, 3.704463707704216*^9}, CellLabel-> "In[100]:=",ExpressionUUID->"28261196-e9a2-488a-adf0-93a16e8ff5c6"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.774006557198824*^9, 3.7740274128575106`*^9, 3.788689231565424*^9}, CellLabel-> "Out[100]=",ExpressionUUID->"18758e93-8076-475d-8964-8b9f61a6d8c4"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read", "[", RowBox[{"Simplify", "[", RowBox[{"aueo2adj", "-", RowBox[{"padj", "[", "2", "]"}], "-", RowBox[{"padj", "[", "1", "]"}], "-", RowBox[{"padj", "[", "0", "]"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7112828200780478`*^9, 3.7112828347889423`*^9}}, CellLabel-> "In[101]:=",ExpressionUUID->"90cad5ea-91eb-458f-b8d6-402ec89e546f"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.774006557490614*^9, 3.7740274128744326`*^9, 3.7886892316521893`*^9}, CellLabel-> "Out[101]=",ExpressionUUID->"e257397a-4905-4013-83b7-89e3e2415dfc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["The resolvents", FontSize->18]], "Section", CellChangeTimes->{{3.750257878896799*^9, 3.7502578816239552`*^9}},ExpressionUUID->"ec9c2115-10cb-44f9-b166-\ 338960a98559"], Cell["\<\ We now introduce two asymptotic resolvents with asymptotic parameter \ \[Lambda], one for each Laplacian. We use the operator symbol o[2] for k^2\ \>", "Text", CellChangeTimes->{{3.750257902740163*^9, 3.750257955630188*^9}},ExpressionUUID->"7c8cf8c5-0a8f-411d-89f8-\ 9116c5e74c88"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"b", "[", "0", "]"}], "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[Xi]", "1"], "2"], "+", SuperscriptBox[ SubscriptBox["\[Xi]", "2"], "2"]}], ")"}], RowBox[{"o", "[", "2", "]"}]}], "-", "\[Lambda]"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.6907380257776203`*^9, 3.6907381066779957`*^9}, { 3.6907382637084703`*^9, 3.690738271076701*^9}}, CellLabel-> "In[102]:=",ExpressionUUID->"3c378d72-92d9-4fbd-a885-2b1f80803164"], Cell[BoxData[ FractionBox["1", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}]]], "Output", CellChangeTimes->{3.7740065576953363`*^9, 3.7740274128923845`*^9, 3.7886892317638597`*^9}, CellLabel-> "Out[102]=",ExpressionUUID->"00e53b6a-7462-4812-8330-1c98f6e0c5b3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"badj", "[", "0", "]"}], "=", RowBox[{"1", "/", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox[ SubscriptBox["\[Xi]", "1"], "2"], "+", SuperscriptBox[ SubscriptBox["\[Xi]", "2"], "2"]}], ")"}], RowBox[{"o", "[", "2", "]"}]}], "-", "\[Lambda]"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.711282964909376*^9, 3.711282967498993*^9}, 3.760994879315528*^9}, CellLabel-> "In[103]:=",ExpressionUUID->"951e5695-12e4-4bcf-82bb-ffd4599b921e"], Cell[BoxData[ FractionBox["1", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}]]], "Output", CellChangeTimes->{3.774006557931795*^9, 3.77402741291137*^9, 3.788689231844678*^9}, CellLabel-> "Out[103]=",ExpressionUUID->"9b31ecc4-8d36-438a-b015-a983c4d97c17"] }, Open ]], Cell["\<\ What matters is that one never has to differentiate (with respect to u or v) \ the symbol o[2] which stands for \[CapitalDelta](ek^2e) in the first \ resolvent and \[Sigma](ek^2) in the second resolvent. The various terms that \ appear are listed below\ \>", "Text", CellChangeTimes->{{3.7502583110127864`*^9, 3.7502584532957664`*^9}, 3.7502590374176254`*^9, {3.7609949147836556`*^9, 3.760994925534916*^9}, { 3.7609953845574226`*^9, 3.760995391839943*^9}},ExpressionUUID->"e1cf8f34-35d3-40c2-aadf-\ 71c6b13eeb00"], Cell["for the first resolvent:", "Text", CellChangeTimes->{{3.750259027254557*^9, 3.7502590755398827`*^9}},ExpressionUUID->"52cb0237-bdd6-4ea1-96fb-\ 3eac9374aceb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]1", "[", RowBox[{"b", "[", "0", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}}, CellLabel-> "In[104]:=",ExpressionUUID->"097bacb0-b62b-46fd-bd28-407788f66df4"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}], " ", SubscriptBox["\[Xi]", "1"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.7740065581641626`*^9, 3.774027412929287*^9, 3.7886892319304457`*^9}, CellLabel-> "Out[104]=",ExpressionUUID->"1c117ecb-9f47-4b02-a1d3-4497990f6962"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "0", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, 3.7502585972817683`*^9}, CellLabel-> "In[105]:=",ExpressionUUID->"0090239e-7c12-4cb2-aa42-38c3ecdbc6b0"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}], " ", SubscriptBox["\[Xi]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.774006558415824*^9, 3.7740274129452443`*^9, 3.7886892320181804`*^9}, CellLabel-> "Out[105]=",ExpressionUUID->"8a265111-a1b5-4f20-b403-d9f36d1db161"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]1", "[", RowBox[{"b", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, { 3.7502586175509057`*^9, 3.7502586202389317`*^9}}, CellLabel-> "In[106]:=",ExpressionUUID->"2584afab-c112-4b44-b370-840dedb64cf0"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.7740065586952195`*^9, 3.7740274129621987`*^9, 3.788689232105978*^9}, CellLabel-> "Out[106]=",ExpressionUUID->"66286572-ce4c-49ef-aae1-a52ff790bb67"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, 3.7502585972817683`*^9, {3.7502586321180162`*^9, 3.750258636182043*^9}}, CellLabel-> "In[107]:=",ExpressionUUID->"f3fdaba7-a7b2-4f7e-aa3c-da7721544a8e"], Cell[BoxData[ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]]], "Output", CellChangeTimes->{3.7740065589012704`*^9, 3.7740274129811473`*^9, 3.788689232195739*^9}, CellLabel-> "Out[107]=",ExpressionUUID->"99514746-c42b-4e98-a3d1-ebbfcdc73593"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]2", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258565358571*^9}, 3.7502585972817683`*^9, {3.7502586521401377`*^9, 3.750258654755164*^9}}, CellLabel-> "In[108]:=",ExpressionUUID->"28a696fa-e693-409d-9f13-5c82a9c3d053"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.7740065590530543`*^9, 3.7740274129971066`*^9, 3.7886892322844687`*^9}, CellLabel-> "Out[108]=",ExpressionUUID->"8a9c3a70-a5cb-4f05-b678-23cc532edccf"] }, Open ]], Cell["and the second resolvent:", "Text", CellChangeTimes->{{3.7502590410276513`*^9, 3.7502590797759175`*^9}},ExpressionUUID->"5f6d402f-2306-4076-b567-\ ccb0246629ed"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]1", "[", RowBox[{"badj", "[", "0", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258586420704*^9}}, CellLabel-> "In[109]:=",ExpressionUUID->"801c1baf-c469-4a9b-abfd-6ce0414eff2e"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}], " ", SubscriptBox["\[Xi]", "1"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.774006559276883*^9, 3.774027413018049*^9, 3.7886892323722334`*^9}, CellLabel-> "Out[109]=",ExpressionUUID->"ba9c9e28-1d37-4a2d-8ca9-1034563a9653"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "0", "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258598569772*^9}}, CellLabel-> "In[110]:=",ExpressionUUID->"f68dff43-68c6-45ea-b9df-f00bf7c0cab9"], Cell[BoxData[ RowBox[{"-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}], " ", SubscriptBox["\[Xi]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.774006559407091*^9, 3.7740274130439806`*^9, 3.788689232457038*^9}, CellLabel-> "Out[110]=",ExpressionUUID->"f21ee8d1-2e22-45bf-b457-5aa5e2f48d08"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]1", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258586420704*^9}, { 3.7502586255509715`*^9, 3.750258628746987*^9}}, CellLabel-> "In[111]:=",ExpressionUUID->"f7d9ecd9-ab4f-4258-8b7b-9464e5216a46"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.7740065596526175`*^9, 3.7740274130689144`*^9, 3.7886892325457697`*^9}, CellLabel-> "Out[111]=",ExpressionUUID->"db64ee30-3fc2-4138-b355-c79e3cc06d89"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258598569772*^9}, { 3.7502586420070763`*^9, 3.750258644892101*^9}}, CellLabel-> "In[112]:=",ExpressionUUID->"0e838f51-3a77-4008-a1e2-f5f3b16fa9dd"], Cell[BoxData[ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]]], "Output", CellChangeTimes->{3.7740065600086184`*^9, 3.7740274130908546`*^9, 3.7886892326335664`*^9}, CellLabel-> "Out[112]=",ExpressionUUID->"10b366f8-c561-471c-9cf8-f0986123731f"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"d\[Xi]2", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{ 3.7502585277242937`*^9, {3.750258559946538*^9, 3.750258598569772*^9}, { 3.7502586568271694`*^9, 3.750258659347192*^9}}, CellLabel-> "In[113]:=",ExpressionUUID->"359fa1ad-9d6b-4359-b1a2-a8100c7db83f"], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"8", " ", SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "-", FractionBox[ RowBox[{"2", " ", RowBox[{"o", "[", "2", "]"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]]}]], "Output", CellChangeTimes->{3.774006560279713*^9, 3.7740274131118*^9, 3.788689232720334*^9}, CellLabel-> "Out[113]=",ExpressionUUID->"ae2da68b-7682-4e5a-bae0-2c0bfb59e202"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Reading in a classical manner", FontSize->18]], "Section", CellChangeTimes->{{3.750258706860489*^9, 3.7502587123845263`*^9}},ExpressionUUID->"d9d1a2a8-b10b-4f96-98a1-\ c15314a6db56"], Cell["We give a way to read the resolvents in a classical manner.", "Text", CellChangeTimes->{{3.750258740826725*^9, 3.7502588186362133`*^9}},ExpressionUUID->"d8b82475-78de-4262-9ea9-\ abf42942504c"], Cell[BoxData[ RowBox[{ RowBox[{"readresolvent", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"stuff", "/.", RowBox[{"{", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "\[Rule]", RowBox[{ SuperscriptBox["ssekk", "2"], SuperscriptBox["ssR", "3"], SubscriptBox["sse", "1"]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"o", "[", "2", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]], "\[Rule]", RowBox[{"ssekk", " ", SuperscriptBox["ssR", "2"], " ", SubscriptBox["sse", "1"]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"o", "[", "2", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Lambda]", "-", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]], "\[Rule]", RowBox[{"ssekk", " ", SuperscriptBox["ssR", "2"], SubscriptBox["sse", "1"]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ FractionBox["1", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}]], "\[Rule]", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.690738695598979*^9, 3.690738798390274*^9}, { 3.690739620783203*^9, 3.69073968268935*^9}, {3.690739848741856*^9, 3.6907398553603783`*^9}, {3.6929853930822983`*^9, 3.692985398339498*^9}, 3.692985460333898*^9, 3.692985496791098*^9, {3.692985533825498*^9, 3.692985549207098*^9}, {3.7049424956598263`*^9, 3.7049425175240126`*^9}, { 3.7049425802392836`*^9, 3.704942584158675*^9}, {3.7266902361177034`*^9, 3.726690250592704*^9}, {3.7266903304827037`*^9, 3.7266903957967033`*^9}, { 3.7266904283047037`*^9, 3.7266904283927035`*^9}, {3.7268946959439306`*^9, 3.7268947023200903`*^9}, {3.726894744928583*^9, 3.726894754193894*^9}, { 3.726894797991233*^9, 3.7268948041476746`*^9}, {3.726894880979153*^9, 3.726894916944177*^9}, {3.7268955938748207`*^9, 3.726895610182295*^9}, 3.7268956996608*^9, 3.7292314828972254`*^9, {3.7323962249646573`*^9, 3.7323962269614573`*^9}, {3.7324042423559494`*^9, 3.7324042426367493`*^9}, {3.7324042822919493`*^9, 3.7324042841171494`*^9}, 3.7325497475995445`*^9, {3.7609959921685095`*^9, 3.76099600629774*^9}, { 3.7609960939942384`*^9, 3.7609961000879717`*^9}, {3.762194495290456*^9, 3.762194523670911*^9}}, CellLabel-> "In[114]:=",ExpressionUUID->"900ca195-e488-4aef-a37c-32afbd51531f"], Cell[BoxData[ RowBox[{ RowBox[{"readresolventadj", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"stuff", "/.", RowBox[{"{", RowBox[{ FractionBox[ SuperscriptBox[ RowBox[{"o", "[", "2", "]"}], "2"], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "3"]], "\[Rule]", RowBox[{ SuperscriptBox["sekk", "2"], SuperscriptBox["sR", "3"]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"o", "[", "2", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]], "\[Rule]", RowBox[{"sekk", " ", SuperscriptBox["sR", "2"]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"o", "[", "2", "]"}], SuperscriptBox[ RowBox[{"(", RowBox[{"\[Lambda]", "-", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}], "2"]], "\[Rule]", RowBox[{"sekk", " ", SuperscriptBox["sR", "2"]}]}], "}"}]}], "/.", RowBox[{"{", RowBox[{ FractionBox["1", RowBox[{"(", RowBox[{ RowBox[{"-", "\[Lambda]"}], "+", RowBox[{ RowBox[{"o", "[", "2", "]"}], " ", RowBox[{"(", RowBox[{ SubsuperscriptBox["\[Xi]", "1", "2"], "+", SubsuperscriptBox["\[Xi]", "2", "2"]}], ")"}]}]}], ")"}]], "\[Rule]", "sR"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.711282974238236*^9, 3.711282991913149*^9}, { 3.711283027840002*^9, 3.7112830418488026`*^9}, {3.726685506674551*^9, 3.726685516363491*^9}, {3.732304079756332*^9, 3.7323040800163317`*^9}, { 3.7323908910179768`*^9, 3.732390893248748*^9}, {3.760996017835912*^9, 3.7609960246078095`*^9}, {3.760996104413413*^9, 3.7609961093561974`*^9}, { 3.7621945384932585`*^9, 3.762194551057972*^9}}, CellLabel-> "In[115]:=",ExpressionUUID->"5c9324ba-bb8c-410a-a1ea-474b0d4d5b55"], Cell[BoxData[ RowBox[{ RowBox[{"readall", "[", "stuff_", "]"}], ":=", RowBox[{"readresolvent", "[", RowBox[{"read", "[", "stuff", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.690740596899273*^9, 3.690740643507107*^9}}, CellLabel-> "In[116]:=",ExpressionUUID->"7b0bf884-bc40-4c2d-849e-ef5eff3caa21"], Cell[BoxData[ RowBox[{ RowBox[{"readalladj", "[", "stuff_", "]"}], ":=", RowBox[{"readresolventadj", "[", RowBox[{"read", "[", "stuff", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7112830486348023`*^9, 3.711283063501602*^9}}, CellLabel-> "In[117]:=",ExpressionUUID->"994f0e89-2f78-4534-b47e-924af4bc4e4a"], Cell[BoxData[ RowBox[{ RowBox[{"read3", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"readall", "[", "stuff", "]"}], "/.", RowBox[{"{", RowBox[{"Dot", "\[Rule]", "cancelling"}], "}"}]}], ")"}], "/.", RowBox[{"{", RowBox[{"cancelling", "\[Rule]", "Dot"}], "}"}]}], ")"}], "/.", RowBox[{"{", RowBox[{"ssR", "\[Rule]", SubscriptBox["ssb", "0"]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.690740650006363*^9, 3.690740675319536*^9}, { 3.727287731566352*^9, 3.727287814964487*^9}, 3.7609963028498087`*^9, 3.7609963380855923`*^9, {3.7621945575971985`*^9, 3.7621945597155795`*^9}, { 3.762198868237463*^9, 3.762198870416676*^9}}, CellLabel-> "In[118]:=",ExpressionUUID->"1818a57b-f09e-42fd-87a7-402f208d0222"], Cell[BoxData[ RowBox[{ RowBox[{"read3adj", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{"readalladj", "[", "stuff", "]"}], "/.", RowBox[{"{", RowBox[{"sR", "\[Rule]", SubscriptBox["sb", "0"]}], "}"}]}]}]], "Input", CellChangeTimes->{{3.7112830723936024`*^9, 3.7112831117836027`*^9}, { 3.726895533197718*^9, 3.726895536957159*^9}, 3.7609963070286627`*^9, 3.7609963415702705`*^9, {3.762194562403208*^9, 3.7621945636417656`*^9}}, CellLabel-> "In[119]:=",ExpressionUUID->"176a942d-3a17-434e-8acd-4f8b6cfa54e0"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Symbols of order -3", FontSize->18]], "Section", CellChangeTimes->{{3.7502588548274508`*^9, 3.7502588871126657`*^9}},ExpressionUUID->"32fbfb42-c766-4ac4-bd47-\ 66233a5d570c"], Cell["For the first resolvent", "Text", CellChangeTimes->{{3.750258939947004*^9, 3.750258945706041*^9}, { 3.750259118535163*^9, 3.7502591191611643`*^9}, {3.750259156231411*^9, 3.750259156934412*^9}, {3.7502592564850616`*^9, 3.7502592571520643`*^9}},ExpressionUUID->"b0e3bd9e-c009-4ed5-ab6b-\ 2f843f05fe93"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"b", "[", "1", "]"}], "=", RowBox[{ RowBox[{"-", RowBox[{"m", "[", RowBox[{ RowBox[{"b", "[", "0", "]"}], ",", RowBox[{"p", "[", "1", "]"}], ",", RowBox[{"b", "[", "0", "]"}]}], "]"}]}], "-", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"b", "[", "0", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"p", "[", "2", "]"}], "]"}], ",", RowBox[{"b", "[", "0", "]"}]}], "]"}], "-", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "0", "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"p", "[", "2", "]"}], "]"}], ",", RowBox[{"b", "[", "0", "]"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.690740702880063*^9, 3.690740762758829*^9}, { 3.6907408367151747`*^9, 3.6907408586757727`*^9}}, CellLabel-> "In[120]:=",ExpressionUUID->"cf58f439-6270-44a6-b53a-40e56b9df110"], Cell["For the second resolvent", "Text", CellChangeTimes->{{3.750258949023054*^9, 3.7502589535130844`*^9}, { 3.750259121788189*^9, 3.75025912258819*^9}, {3.7502591607714415`*^9, 3.7502591615024433`*^9}, {3.750259259864089*^9, 3.750259260591091*^9}},ExpressionUUID->"5b141905-8e84-4979-a79a-\ 96825a76d32e"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"badj", "[", "1", "]"}], "=", RowBox[{ RowBox[{"-", RowBox[{"m", "[", RowBox[{ RowBox[{"badj", "[", "0", "]"}], ",", RowBox[{"padj", "[", "1", "]"}], ",", RowBox[{"badj", "[", "0", "]"}]}], "]"}]}], "-", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"padj", "[", "2", "]"}], "]"}], ",", RowBox[{"badj", "[", "0", "]"}]}], "]"}], "-", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"padj", "[", "2", "]"}], "]"}], ",", RowBox[{"badj", "[", "0", "]"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7112831427028027`*^9, 3.7112831646208024`*^9}}, CellLabel-> "In[121]:=",ExpressionUUID->"28164ce9-3170-488c-8f71-54358c8c6195"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"readall", "[", RowBox[{"b", "[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.690740876415843*^9, 3.690740881222558*^9}}, CellLabel-> "In[122]:=",ExpressionUUID->"b760e14a-69f8-426f-9698-0819b28bafa4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SuperscriptBox["ssR", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Xi]", "1"], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SuperscriptBox["ssR", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SuperscriptBox["ssR", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SuperscriptBox["ssR", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssR", " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}]}]], "Output", CellChangeTimes->{3.7740065614985495`*^9, 3.774027413295308*^9, 3.7886892329317694`*^9}, CellLabel-> "Out[122]=",ExpressionUUID->"f724fa43-ebd7-4547-ab06-18b80069a07a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"readalladj", "[", RowBox[{"badj", "[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7112831712196026`*^9, 3.711283174901202*^9}}, CellLabel-> "In[123]:=",ExpressionUUID->"3bdd92e8-cbbf-4cc7-8496-5d03df46e9b1"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SubscriptBox["\[Xi]", "1"], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{"sR", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sR"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"sR", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sR"}]}], "+", RowBox[{"sR", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "sR"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"sR", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "sR"}]}], "+", RowBox[{"sR", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "sR"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{"sR", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "sR"}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SuperscriptBox["sR", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "sR"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SuperscriptBox["sR", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "sR"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SuperscriptBox["sR", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "sR"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SuperscriptBox["sR", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "sR"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.774006561597028*^9, 3.7740274133611307`*^9, 3.788689233017553*^9}, CellLabel-> "Out[123]=",ExpressionUUID->"332e0717-03c1-4d0b-9153-1d7a351540d2"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read3", "[", RowBox[{"b", "[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.6907409053961487`*^9, 3.690740908269652*^9}}, CellLabel-> "In[124]:=",ExpressionUUID->"a7fe4dd0-69b5-4585-8419-d9d3a8973b13"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", RowBox[{"(", RowBox[{ SubscriptBox["\[Xi]", "1"], "-", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}]}]], "Output", CellChangeTimes->{3.7740065617919893`*^9, 3.774027413385068*^9, 3.788689233109296*^9}, CellLabel-> "Out[124]=",ExpressionUUID->"85b18604-7d68-4023-a08c-7078bc08c525"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read3adj", "[", RowBox[{"badj", "[", "1", "]"}], "]"}]], "Input", CellChangeTimes->{{3.7112831796436024`*^9, 3.7112831827324023`*^9}}, CellLabel-> "In[125]:=",ExpressionUUID->"51ee5cb4-ea13-4e60-8025-0990a5fa2786"], Cell[BoxData[ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{ SubscriptBox["\[Xi]", "1"], "+", RowBox[{"\[ImaginaryI]", " ", SubscriptBox["\[Xi]", "2"]}]}], ")"}]}], " ", RowBox[{"(", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"]}]}], "+", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"]}]}], "+", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"]}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}]}], ")"}]}]], "Output", CellChangeTimes->{3.774006562081744*^9, 3.7740274134100018`*^9, 3.78868923320205*^9}, CellLabel-> "Out[125]=",ExpressionUUID->"a8bf0ade-5695-4753-a430-1c8769177f0a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Symbol of order -4", FontSize->18]], "Section", CellChangeTimes->{{3.7502592835582294`*^9, 3.7502592911752853`*^9}},ExpressionUUID->"f30f0a2c-63ed-4f0b-ab15-\ c30b18be82b8"], Cell[TextData[{ "The relevant quantity is the following which needs to be multiplied on the \ right by -", Cell[BoxData[ FormBox[ SubscriptBox["ssb", "0"], TraditionalForm]],ExpressionUUID-> "7155cc87-f03f-4df4-80ae-27061ca141c9"], " (-", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["b", "0"], "'"}], TraditionalForm]],ExpressionUUID-> "83881c09-d58d-4f53-99fd-cf3663a43792"], " in the paper) or -", Cell[BoxData[ FormBox[ SubscriptBox["sb", "0"], TraditionalForm]],ExpressionUUID-> "1cc0c41b-a061-4dd2-9137-34a5f3756928"], " (", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "74f39a8f-42b8-45a9-9b2d-c84170f3887d"], " in the paper)." }], "Text", CellChangeTimes->{{3.7502593080603905`*^9, 3.7502594013080187`*^9}, { 3.7609984038491735`*^9, 3.760998418865054*^9}, {3.762698848105191*^9, 3.7626990444401903`*^9}},ExpressionUUID->"e19a2f5c-eb79-41f5-a903-\ 929ce92eadeb"], Cell["For the first resolvent", "Text", CellChangeTimes->{{3.7502594390412617`*^9, 3.7502594435162945`*^9}},ExpressionUUID->"ac6635b0-7f25-458d-8564-\ cfb703b46df4"], Cell[BoxData[ RowBox[{ RowBox[{"minusresolventtimesb0inverse", "=", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"b", "[", "0", "]"}], ",", RowBox[{"p", "[", "0", "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"b", "[", "1", "]"}], ",", RowBox[{"p", "[", "1", "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"b", "[", "0", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"p", "[", "1", "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "0", "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"p", "[", "1", "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"b", "[", "1", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"p", "[", "2", "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "1", "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"p", "[", "2", "]"}], "]"}]}], "]"}], "+", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]1", "[", RowBox[{"b", "[", "0", "]"}], "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "0", "]"}], "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"b", "[", "0", "]"}], "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"p", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.690741019289274*^9, 3.6907412490676727`*^9}, { 3.690741592577096*^9, 3.690741609539744*^9}, {3.6907417515161047`*^9, 3.690741811785851*^9}, {3.6908254934932747`*^9, 3.690825531839592*^9}, { 3.691348398886694*^9, 3.6913484105086937`*^9}, {3.691348464547094*^9, 3.691348466653094*^9}, {3.6913486343590937`*^9, 3.691348679848694*^9}, { 3.692985713164098*^9, 3.692985724786098*^9}}, CellLabel-> "In[126]:=",ExpressionUUID->"5c3e5928-aa93-4ccb-9a10-48fbad8705ad"], Cell["For the second resolvent", "Text", CellChangeTimes->{{3.7502594475033236`*^9, 3.7502594514013553`*^9}},ExpressionUUID->"0b1741cf-d051-486e-828f-\ b6733f695369"], Cell[BoxData[ RowBox[{ RowBox[{"minusresolventtimesb0inverseadj", "=", RowBox[{ RowBox[{"m", "[", RowBox[{ RowBox[{"badj", "[", "0", "]"}], ",", RowBox[{"padj", "[", "0", "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"badj", "[", "1", "]"}], ",", RowBox[{"padj", "[", "1", "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"padj", "[", "1", "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"padj", "[", "1", "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"badj", "[", "1", "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"padj", "[", "2", "]"}], "]"}]}], "]"}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "1", "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"padj", "[", "2", "]"}], "]"}]}], "]"}], "+", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]1", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"du", "[", RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", RowBox[{ RowBox[{"1", "/", "2"}], " ", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]2", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}], ",", RowBox[{"dv", "[", RowBox[{"dv", "[", RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}], "+", RowBox[{"m", "[", RowBox[{ RowBox[{"d\[Xi]1", "[", RowBox[{"d\[Xi]2", "[", RowBox[{"badj", "[", "0", "]"}], "]"}], "]"}], ",", RowBox[{"du", "[", RowBox[{"dv", "[", RowBox[{"padj", "[", "2", "]"}], "]"}], "]"}]}], "]"}]}]}], ";"}]], "Input", CellChangeTimes->{{3.7112832332296023`*^9, 3.7112832741016026`*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"aeada54a-1a78-41c5-87e5-cb51658c6681"], Cell["Here is the expression readable in the classical manner", "Text", CellChangeTimes->{{3.7502594901236167`*^9, 3.7502595126187553`*^9}},ExpressionUUID->"db4eb7f3-6fac-4248-924a-\ 9c1f6ab51744"], Cell["For the first resolvent", "Text", CellChangeTimes->{{3.75025951440876*^9, 3.750259517798787*^9}},ExpressionUUID->"1591f840-725f-420a-8716-\ f739d856d21e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"read3", "[", RowBox[{"Simplify", "[", "minusresolventtimesb0inverse", "]"}], "]"}]], "Input", CellChangeTimes->{{3.690741613091055*^9, 3.6907416189487886`*^9}, { 3.690741778936223*^9, 3.690741820356474*^9}, {3.6908255471064777`*^9, 3.6908255486112003`*^9}, {3.6908255890583057`*^9, 3.69082559365831*^9}, 3.691348416639494*^9, 3.691348679864294*^9, {3.692985736283298*^9, 3.692985741930498*^9}}, CellLabel-> "In[128]:=",ExpressionUUID->"0b7ba19d-058b-4851-a492-5d508fe999f0"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "6"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "6"]}]}]], "Output", CellChangeTimes->{3.774006566321628*^9, 3.774027416211509*^9, 3.788689234754865*^9}, CellLabel-> "Out[128]=",ExpressionUUID->"fdabccc0-e9c1-4349-9c7c-ed102ba4e677"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "f6200ec3-a639-403c-a5b2-3007ff9ef6df"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"c1c0044d-6ac0-4fef-997e-\ 993a4076b243"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}}, CellLabel-> "In[129]:=",ExpressionUUID->"5c50191b-a63b-4669-98f6-5923dae0de3a"], Cell["\<\ -4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^6-8 \ \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^6-4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \ \\xi _1^5-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \ \\xi _1^5-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \\xi _1^5-8 \ \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2 \\xi _1^5-8 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^4-4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^4-16 \ \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^4-8 \\left(\\text{ssekk}^2 \ \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^4+4 \\left(\\text{ssekk}^2 \ \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi _1^4+6 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _1^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _1^4+4 \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _1^4+2 \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^4+2 i \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _1^4+4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \ \\xi _1^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _1^4+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _1^4+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _1^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _1^4+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _1^4-8 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \ \\xi _1^3-8 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \ \\xi _1^3-16 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1^3-16 \ \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^3 \\xi _1^3+8 \\left(\\text{ssekk}^2 \ \\text{ssb}_0^3 \\text{sse}_1\\right).\\left(\\delta _1 \\delta _2(\\text{ssekksse})\\right) \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\ \\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2 \\xi _1^3-2 i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 i \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \ \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \ \\xi _2 \\xi _1^3-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2 \\xi _1^3+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2 \\xi _1^3-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k \\xi _2 \\xi _1^3+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k \\xi _2 \\xi _1^3+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _2 \\xi _1^3+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k \\xi _2 \\xi _1^3+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k \\xi _2 \\xi _1^3-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\ \\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^4 \\xi _1^2-8 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^4 \ \\xi _1^2-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^4 \\xi _1^2-16 \ \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^4 \\xi _1^2+4 \\left(\\text{ssekk}^2 \ \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \ \\text{sse}_1\\right).\\delta _2^2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+8 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+8 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssb}_0 \\text{sse}_1\ \\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssb}_0 \\text{sse}_1\ \\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 \\left(\\text{ssb}_0 \\text{sse}_1\ \\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2-2 i \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 i \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \ \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \ \\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2-2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2^2 \\xi _1^2+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2^2 \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2^2 \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2^2 \\xi _1^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2^2 \\xi _1^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi \ _1^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2^2(\ \\text{ssekksse}) \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1^2(k) \\xi _1^2-6 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1^2(\\text{se}).k \ \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _1(k) \\xi _1^2-2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\left(\\delta _1 \\delta _2(\\text{se})\\right).k \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _1(k).\\text{se}.\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta \ _1(\\text{se}).k \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta _2(\\text{se}).k \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _1(k).k.\\text{se}.\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \ _1(\\text{se}).k \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta _2(\\text{se}).k \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _1(\\text{se}).k.k.\\text{se}.\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta \ _1(\\text{se}).k \\xi _1^2-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta _2(\\text{se}).k \\xi _1^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \ \\xi _1^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \ \\xi _1^2-\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _1^2+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _1^2-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _1^2-\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _1^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \\xi _1^2+2 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _1^2+2 i \ \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k \\xi _1^2-4 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\text{se}.\\delta _1(k) \\xi _1^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _1(\\text{se}).k \\xi _1^2-2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k \\xi _1^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \\xi _1^2-\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _1^2-i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _1^2-2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _1^2-i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _1^2+\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _1^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^5 \\xi _1-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^5 \\xi _1-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^5 \\xi _1-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\ \\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^5 \ \\xi _1+8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\left(\\delta _1 \\delta \ _2(\\text{ssekksse})\\right) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \\xi _1-2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\ \\delta _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\ \\delta _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \\xi _1-2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\ \\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\ \\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\ \\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^3 \\xi _1+2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\ \\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2^3 \\xi _1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2^3 \\xi _1+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _2^3 \\xi _1+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2^3 \\xi _1+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2^3 \\xi _1-8 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\left(\\delta _1 \\delta _2(k)\\right) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\ \\text{se}).\\delta _1(k) \\xi _2 \\xi _1-6 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _2(k) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1^2(\\text{se}).k \\xi _2 \\xi _1-6 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _1(k) \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _2(k) \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\left(\\delta _1 \ \\delta _2(\\text{se})\\right).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2^2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _1(k).\\text{se}.\\delta _2(k) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _1(k).\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _2(k).\\text{se}.\\delta _1(k) \\xi _2 \\xi _1-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _2(k).\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _1(k).k.\\text{se}.\\delta _2(k) \\xi _2 \\xi _1+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _1(k).k.\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _2(k).k.\\text{se}.\\delta _1(k) \\xi _2 \\xi _1-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _2(k).k.\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _1(\\text{se}).k.k.\\text{se}.\\delta _2(k) \\xi _2 \\xi _1+2 i \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _1(\\text{se}).k.k.\\delta _1(\\text{se}).k \\xi _2 \\xi _1-2 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _2(\\text{se}).k.k.\\text{se}.\\delta _1(k) \\xi _2 \\xi _1-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \ _1(\\text{se}).k \\xi _2 \\xi _1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \ _2(\\text{se}).k \\xi _2 \\xi _1+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \\xi _2 \\xi \ _1-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _1(\\text{se}).k \\xi _2 \\xi _1+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k \\xi _2 \\xi _1+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _2(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \\xi _2 \\xi _1+2 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _2 \\xi \ _1+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k \\xi _2 \\xi _1-4 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2 \\xi _1+2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2 \\xi _1-4 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2 \\xi _1-2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2 \\xi _1+2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2 \\xi _1+2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ \\xi _2 \\xi _1-2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2 \\xi _1-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2 \\xi _1-2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2 \\xi _1-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\ \\delta _2(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi \ _2^6-8 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^6+4 \ \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta \ _2^2(\\text{ssekksse}) \\xi _2^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \\xi _2^4+6 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^4+4 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^4-2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^4+2 \ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \\xi _2^4+4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \ \\xi _2^4-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^4+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2^4-2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2^4-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \\xi \ _2^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2^2(\ \\text{ssekksse}) \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2^2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _2(k) \\xi _2^2-6 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\left(\\delta _1 \ \\delta _2(\\text{se})\\right).k \\xi _2^2-2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2^2(\\text{se}).k \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _2(k).\\text{se}.\\delta _2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta \ _1(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta _2(\\text{se}).k \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _2(k).k.\\text{se}.\\delta _2(k) \\xi _2^2+2 i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \ _1(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta _2(\\text{se}).k \\xi _2^2-4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _2(\\text{se}).k.k.\\text{se}.\\delta _2(k) \\xi _2^2+2 i \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \ _1(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta _2(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \ \\xi _2^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \ \\xi _2^2-\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^2+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^2-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) \\xi _2^2-\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) \\xi _2^2+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _2(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \\xi _2^2-2 i \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _2^2+2 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k \\xi _2^2-4 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\text{se}.\\delta _2(k) \\xi _2^2+2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _1(\\text{se}).k \\xi _2^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k \\xi _2^2+2 i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \\xi _2^2+\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ \\xi _2^2+i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ \\xi _2^2-2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ \\xi _2^2+i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \\xi _2^2-\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \\xi _2^2+\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1^2(k)+\ \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2^2(k)+\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _1(k)-i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).\\delta _2(k)+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\ \\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).\\delta \ _1(k)+\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _2(k)\ \>", "Output", CellChangeTimes->{3.7740065679620075`*^9, 3.774027417423267*^9, 3.7886892354839582`*^9}, CellLabel-> "Out[129]//TeXForm=",ExpressionUUID->"5fe1458d-5cc7-4d53-a26b-70db4c38318c"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.7502595780001736`*^9, 3.7502595925132675`*^9}},ExpressionUUID->"5ed89e10-f770-42da-8535-\ c91286b7b5d7"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[130]:=",ExpressionUUID->"90457606-ebd7-43d8-83f5-ea9386e5df2e"], Cell[BoxData["232"], "Output", CellChangeTimes->{3.774006568228563*^9, 3.7740274175569086`*^9, 3.788689235585675*^9}, CellLabel-> "Out[130]=",ExpressionUUID->"c7b94b32-53f6-44f0-8f9e-fb8a5a30c2bf"] }, Open ]], Cell["For the second resolvent", "Text", CellChangeTimes->{{3.75025951440876*^9, 3.7502595470689707`*^9}},ExpressionUUID->"e3a3dd05-14df-4f0d-a3c0-\ 2555742b15fe"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Expand", "[", RowBox[{"read3adj", "[", RowBox[{"Simplify", "[", "minusresolventtimesb0inverseadj", "]"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7112832823384027`*^9, 3.7112832929464025`*^9}, { 3.7610011228194*^9, 3.761001125316723*^9}}, CellLabel-> "In[131]:=",ExpressionUUID->"c19fb80f-4663-4e37-a398-57f9c7797148"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "4"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "6"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "5"], " ", SubscriptBox["\[Xi]", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}]}], ")"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{ RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "4"], " ", SubsuperscriptBox["\[Xi]", "2", "2"]}], "+", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["\[Delta]", "1"], " ", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], ")"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "3"], " ", SubsuperscriptBox["\[Xi]", "2", "3"]}], "+", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"6", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"16", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "1", "2"], " ", SubsuperscriptBox["\[Xi]", "2", "4"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], " ", SubscriptBox["\[Xi]", "1"], " ", SubsuperscriptBox["\[Xi]", "2", "5"]}], "-", RowBox[{"4", " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "6"]}], "-", RowBox[{"8", " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], " ", SubsuperscriptBox["\[Xi]", "2", "6"]}]}]], "Output", CellChangeTimes->{3.7740065801583376`*^9, 3.7740274233769684`*^9, 3.7886892408635674`*^9}, CellLabel-> "Out[131]=",ExpressionUUID->"efc92aa0-9d5c-4855-bd7a-46ec29aaae9a"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "1beda4b3-c652-4c1f-b3f5-bf88db812b56"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"b313e1bb-6d3c-4c98-8aa5-\ 294db8837b37"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}}, CellLabel-> "In[132]:=",ExpressionUUID->"92ee9d98-28de-4d82-862b-5675f5daa70e"], Cell["\<\ -4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _1^6-8 \\left(\\text{sekk}^2 \ \\text{sb}_0^3\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^6-4 \\left(\ \\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) \\xi _2 \\xi _1^5-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _2 \\xi _1^5-8 \\left(\\text{sekk}^2 \ \\text{sb}_0^3\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^5-8 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^5-8 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _2^2 \\xi _1^4-4 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) \\xi _2^2 \\xi _1^4-16 \\left(\\text{sekk}^2 \ \\text{sb}_0^3\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _2^2 \\xi _1^4-8 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^4+4 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _1^2(\\text{sekk}) \\xi _1^4+6 \\left(\\text{sekk} \\text{sb}_0^2\\right).\ \\delta _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^4+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _1^4+2 \ \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _1^4-2 i \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _1(\\text{sekk}) \\xi _1^4+2 \\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _1^4-2 i \\text{sb}_0.\\text{se}.\\delta \ _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \ \\xi _1^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^4-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\ \\text{sekk}) \\xi _1^4-2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _1^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^4-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^4+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^4-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _1^4+2 \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _1^4-2 i \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _1^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\ \\delta _1(\\text{sekk}) \\xi _1^4-2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^4+2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \ _1^4-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _1^4-8 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) \\xi _2^3 \\xi _1^3-8 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _2^3 \\xi _1^3-16 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \ _2(\\text{sekk}) \\xi _2^3 \\xi _1^3-16 \\left(\\text{sekk}^2 \ \\text{sb}_0^3\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1^3+8 \\left(\\text{sekk}^2 \ \\text{sb}_0^3\\right).\\left(\\delta _1 \\delta _2(\\text{sekk})\\right) \ \\xi _2 \\xi _1^3+4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+4 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \ \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\ \\text{sekk}) \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\ \\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\ \\delta _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1^3+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\ \\delta _2(k) \\xi _2 \\xi _1^3+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2 \\xi _1^3+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi \ _1^3-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\ \\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1^3-2 \ i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2 \\xi \ _1^3+2 i \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _2 \\xi _1^3-2 i \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi _1^3+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\ \\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2 \\xi \ _1^3-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2 \\xi _1^3+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \ \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _2 \\xi _1^3+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1^3-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \ \\xi _1^3-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _2^4 \\xi _1^2-8 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^4 \\xi _1^2-8 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^4 \\xi _1^2-16 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4 \\xi _1^2+4 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _1^2(\\text{sekk}) \\xi \ _2^2 \\xi _1^2+4 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _2^2(\\text{sekk}) \\xi _2^2 \\xi _1^2+8 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+8 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \ \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2 \\xi \ _1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2 \\xi \ _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2 \\xi \ _1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\ \\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2 \\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2 \\xi \ _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2 \\xi \ _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\ \\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2 \\xi _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2 \\xi \ _1^2+2 \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 i \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2-2 i \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi \ _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi \ _1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2 \\xi \ _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2 \\xi _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2^2 \ \\xi _1^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _2^2 \\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2^2 \\xi _1^2+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2^2 \ \\xi _1^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1^2(\\text{sekk}) \\xi _1^2-\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2^2(\\text{sekk}) \\xi _1^2-2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1^2(k) \\xi \ _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\left(\\delta _1 \ \\delta _2(k)\\right) \\xi _1^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\ \\text{se}.\\delta _1(k).\\delta _1(k) \\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(k).\\delta _2(k) \\xi _1^2-2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(k).k \\xi _1^2+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta _1(k) \\xi _1^2+2 \ i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \ \\delta _2(k)\\right).k \\xi _1^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _1(k) \ \\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.\\delta _2(k) \\xi _1^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).\\delta _1(k).k \ \\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).\\delta _2(k).k \\xi _1^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(\\text{se}).k.k \\xi _1^2+2 \ i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.\\delta _1(k) \\xi _1^2+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).\\delta _1(k).k \ \\xi _1^2+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta \ _2(\\text{se})\\right).k.k \\xi _1^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{se}).\\text{se}.k.\\delta _1(k) \\xi _1^2+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi \ _1^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{se}).\\text{se}.\\delta _1(k).k \\xi _1^2+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\\delta _2(k).k \\xi \ _1^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta \ _1(\\text{se}).k.k \\xi _1^2+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta _2(\\text{se}).k.k \\xi _1^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _1^2-i \\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _1^2+i \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _1^2-\\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \ _1^2-\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^2-i \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \ \\xi _1^2+i \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _1^2-\\text{sb}_0.\\text{se}.\\delta \ _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \ _1^2-\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _1^2-i \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _1^2-\\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \ _1^2-\\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^2+i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _1^2-\\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^2+i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \ _2(k).k \\xi _1^2+i \\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^2+\\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^2+i \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \ _1(k).k \\xi _1^2+\\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \ _1^2-\\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^2+i \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _1^2-\\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta \ _1(k) \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \ _1(k).k \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \ _1^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _1^2+i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _1^2+i \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _1^2+\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _1^2-\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _1^2+i \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _1^2-\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi \ _1^2-\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\ \\delta _1(k) \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _1^2+i \ \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi \ _1^2+\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \ _1^2-\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \ _1^2+i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _1^2+i \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _1^2+\\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _1^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^5 \\xi _1-4 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) \\xi _2^5 \\xi _1-8 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^5 \\xi _1-8 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^5 \\xi _1+8 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\left(\\delta _1 \\delta \ _2(\\text{sekk})\\right) \\xi _2^3 \\xi _1+4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta \ _2(\\text{sekk}) \\xi _2^3 \\xi _1+4 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \ \\xi _2^3 \\xi _1+2 \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1+2 \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\ \\text{sekk}) \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\ \\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\ \\delta _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^3 \\xi _1+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\ \\delta _2(k) \\xi _2^3 \\xi _1+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^3 \\xi _1+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^3 \\xi \ _1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^3 \\xi _1-2 \ i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^3 \\xi \ _1+2 i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1+2 \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \ \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi \ _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^3 \\xi _1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^3 \\xi _1+2 \ i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \ _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2^3 \\xi _1+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2^3 \ \\xi _1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _2^3 \\xi _1-2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1^2(k) \\xi _2 \\xi _1-4 \\left(\ \\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\left(\\delta _1 \\delta \ _2(k)\\right) \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\ \\text{se}.k.\\delta _2^2(k) \\xi _2 \\xi _1-4 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).\\delta _1(k) \\xi _2 \\xi \ _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(k).\\delta _2(k) \\xi _2 \\xi _1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(k).k \\xi _2 \\xi _1-4 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta \ _1(k) \\xi _2 \\xi _1+4 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta _2(k) \\xi _2 \\xi \ _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \ \\delta _2(k)\\right).k \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(k).k \\xi _2 \\xi _1-4 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.\\delta _1(k) \\xi _2 \\xi _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _2(k) \ \\xi _2 \\xi _1-4 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).\\delta _1(k).k \\xi \ _2 \\xi _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).\\delta _2(k).k \\xi _2 \\xi _1-2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(\\text{se}).k.k \\xi _2 \\xi \ _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.\\delta _1(k) \\xi _2 \\xi _1+4 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.\\delta _2(k) \\xi \ _2 \\xi _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).\\delta _1(k).k \\xi _2 \\xi _1+4 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).\\delta _2(k).k \\xi _2 \\xi _1-4 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta \ _2(\\text{se})\\right).k.k \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(\\text{se}).k.k \\xi _2 \\xi _1-2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.k.\\delta _1(k) \\xi \ _2 \\xi _1-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi _2 \\xi _1-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\ \\delta _1(k).k \\xi _2 \\xi _1-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\\delta _2(k).k \ \\xi _2 \\xi _1-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{se}).\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta \ _2(\\text{se}).k.k \\xi _2 \\xi _1-2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.k.\\delta _1(k) \\xi \ _2 \\xi _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi _2 \\xi _1-2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.\ \\delta _1(k).k \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\text{se}.\\delta _2(k).k \\xi _2 \\xi _1-2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta _2(\\text{se}).k.k \\xi \ _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \ _2(k).k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1+2 i \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1+2 i \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \ _2(k).k \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \ _2(k).k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1+2 i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1+2 i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \ _2(k).k \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _2 \\xi _1+2 i \\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\ \\delta _2(k) \\xi _2 \\xi _1-2 i \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1-2 \ \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta \ _2(k).k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2 \\xi _1+2 \ i \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2 \\xi _1+2 \ i \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2 \\xi \ _1-2 \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2 \\xi _1+2 i \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2 \\xi _1-2 \ i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\ \\delta _1(\\text{se}).k.k \\xi _2 \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \ \\xi _1-2 \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \ _2 \\xi _1+2 i \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2 \ \\xi _1-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) \\xi _2^6-8 \\left(\\text{sekk}^2 \ \\text{sb}_0^3\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^6+4 \\left(\ \\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _2^2(\\text{sekk}) \\xi _2^4+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^4+6 \\left(\ \\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _2(\\text{sekk}) \\xi _2^4+2 \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^4+2 i \\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \ \\xi _2^4+2 \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^4+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta _2(\ \\text{sekk}) \\xi _2^4+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta \ _2(\\text{sekk}) \\xi _2^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^4+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^4+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^4+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^4+2 i \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) \\xi _2^4+2 \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \\xi _2^4+2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^4+2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\ \\delta _2(\\text{sekk}) \\xi _2^4+2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2^4+2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\ \\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \ \\xi _2^4-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1^2(\\text{sekk}) \\xi _2^2-\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2^2(\\text{sekk}) \\xi _2^2-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\left(\\delta _1 \ \\delta _2(k)\\right) \\xi _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _2^2(k) \\xi _2^2-2 i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).\\delta _2(k) \\xi _2^2-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta _1(k) \\xi _2^2-4 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta \ _2(k) \\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta \ _2(k)\\right).k \\xi _2^2-2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(k).k \\xi _2^2-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _2(k) \ \\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).\\delta _2(k).k \\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.\\delta _1(k) \ \\xi _2^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\ \\text{se}).k.\\delta _2(k) \\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).\\delta _1(k).k \ \\xi _2^2-4 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\ \\text{se}).\\delta _2(k).k \\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\left(\\delta _1 \\delta _2(\\text{se})\ \\right).k.k \\xi _2^2-2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(\\text{se}).k.k \\xi _2^2-2 i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.k.\\delta _1(k) \ \\xi _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\text{se}.k.\\delta _2(k) \\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.\\delta _1(k).k \ \\xi _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\text{se}.\\delta _2(k).k \\xi _2^2-2 i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta _1(\\text{se}).k.k \ \\xi _2^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\delta _2(\\text{se}).k.k \\xi _2^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2+i \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _2^2-\\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \ _2^2-\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \ \\xi _2^2+i \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta \ _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \ _2^2-\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _2^2-i \\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi _2^2+i \ \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \\xi \ _2^2+\\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _2^2+\\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \ _2(k).k \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2-\\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2-i \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \ _1(k).k \\xi _2^2-\\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \ _2^2+\\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2-i \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.k.\\delta \ _2(k) \\xi _2^2+\\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta \ _1(k) \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \ _1(k).k \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \ _2^2+\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _2^2-i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2^2-i \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _2^2-\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _2^2+\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _2^2-i \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _2^2+\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _1(k) \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi \ _2^2+\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\ \\delta _1(k) \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.k.\\delta _2(k) \\xi _2^2-i \ \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(k).k \\xi \ _2^2-\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(k).k \\xi \ _2^2+\\text{sb}_0.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi \ _2^2-i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _2^2-i \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \\xi _2^2-\\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \\xi \ _2^2\ \>", "Output", CellChangeTimes->{3.7740065831622744`*^9, 3.774027424712365*^9, 3.7886892423895006`*^9}, CellLabel-> "Out[132]//TeXForm=",ExpressionUUID->"cca0913e-5fac-4eda-9062-e0b8efd80e9c"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.7502595780001736`*^9, 3.7502595925132675`*^9}},ExpressionUUID->"1a405445-444c-46c2-a52c-\ 5aecbd98fb8f"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[133]:=",ExpressionUUID->"9dfaed75-9994-40bb-9204-38f17e591add"], Cell[BoxData["395"], "Output", CellChangeTimes->{3.7740065833743443`*^9, 3.774027424820077*^9, 3.7886892425091677`*^9}, CellLabel-> "Out[133]=",ExpressionUUID->"59417186-7bbf-4d09-8ea3-042c566fd309"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Integration in the angular part", FontSize->18]], "Section", CellChangeTimes->{{3.7502596106643887`*^9, 3.750259616437425*^9}},ExpressionUUID->"5a7936ef-a48b-4f1a-9817-\ 9bc248e4f40f"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"coeffs", "[", "stuff_", "]"}], ":=", RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"read3", "[", "stuff", "]"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["\[Xi]", "1"], ",", SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.691255223061523*^9, 3.6912552342373524`*^9}, { 3.691257548084325*^9, 3.691257620280662*^9}}, CellLabel-> "In[134]:=",ExpressionUUID->"22f2cbc4-a377-4bf1-b334-a5c906bcb4e4"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"coeffsadj", "[", "stuff_", "]"}], ":=", RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"read3adj", "[", "stuff", "]"}], ",", RowBox[{"{", RowBox[{ SubscriptBox["\[Xi]", "1"], ",", SubscriptBox["\[Xi]", "2"]}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.7112833294192023`*^9, 3.711283347047202*^9}}, CellLabel-> "In[135]:=",ExpressionUUID->"efd9f152-c1ad-49b9-ac79-746ecf517d98"], Cell[BoxData[ RowBox[{ RowBox[{"intangle", "[", RowBox[{"{", RowBox[{"n_", ",", "m_"}], "}"}], "]"}], ":=", RowBox[{ RowBox[{"intangle", "[", RowBox[{"{", RowBox[{"n", ",", "m"}], "}"}], "]"}], "=", RowBox[{ FractionBox["1", RowBox[{"2", "\[Pi]"}]], RowBox[{ SubsuperscriptBox["\[Integral]", "0", RowBox[{"2", "\[Pi]"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"r", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], ")"}], "n"], SuperscriptBox[ RowBox[{"(", RowBox[{"r", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}], ")"}], "m"], RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}]}]}]], "Input", CellChangeTimes->{{3.6912576300149994`*^9, 3.6912576347105694`*^9}, { 3.6912576843338513`*^9, 3.691257716282447*^9}, {3.6912577499783287`*^9, 3.6912578652311287`*^9}}, CellLabel-> "In[136]:=",ExpressionUUID->"4b346834-4f11-49bd-b98d-093e3a8f6344"], Cell[BoxData[ RowBox[{ RowBox[{"intterms", "[", "stuff_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"Length", "[", RowBox[{"coeffs", "[", "stuff", "]"}], "]"}]], RowBox[{ RowBox[{"intangle", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"coeffs", "[", "stuff", "]"}], ",", "j"}], "]"}], "]"}], "]"}], RowBox[{"Last", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"coeffs", "[", "stuff", "]"}], ",", "j"}], "]"}], "]"}]}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.6912578894423285`*^9, 3.6912578927027283`*^9}, { 3.6912581594794726`*^9, 3.691258160727545*^9}, {3.691258214583252*^9, 3.691258227469596*^9}, {3.6912585386390843`*^9, 3.6912586285753903`*^9}, { 3.691347181094494*^9, 3.691347181749694*^9}, 3.691348423784294*^9, { 3.691348583237894*^9, 3.691348583752694*^9}, {3.6929860941878157`*^9, 3.6929860976977034`*^9}, {3.7112833807276025`*^9, 3.711283380883602*^9}, { 3.7275745164472857`*^9, 3.727574517055693*^9}}, CellLabel-> "In[137]:=",ExpressionUUID->"c4b6f968-4612-4ca1-8080-a4245f0fc18a"], Cell[BoxData[ RowBox[{ RowBox[{"inttermsadj", "[", "stuff_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"Length", "[", RowBox[{"coeffsadj", "[", "stuff", "]"}], "]"}]], RowBox[{ RowBox[{"intangle", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"coeffsadj", "[", "stuff", "]"}], ",", "j"}], "]"}], "]"}], "]"}], RowBox[{"Last", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"coeffsadj", "[", "stuff", "]"}], ",", "j"}], "]"}], "]"}]}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.711283355486802*^9, 3.7112833821316023`*^9}}, CellLabel-> "In[138]:=",ExpressionUUID->"0fdb485d-4a77-4b07-a45d-90ed99003c48"], Cell[TextData[{ "For the first resolvent, we get the following inner integral times -", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Pi]", " ", SubscriptBox["ssb", "0"]}], TraditionalForm]],ExpressionUUID-> "af40a18f-4278-4b0c-a12b-957ae833aa99"], " (-2\[Pi]", Cell[BoxData[ FormBox[ RowBox[{ SubscriptBox["b", "0"], "'"}], TraditionalForm]],ExpressionUUID-> "beea6680-1f8f-4003-87de-313152578bc6"], " in the paper)" }], "Text", CellChangeTimes->{{3.750259674544793*^9, 3.7502596823278503`*^9}, { 3.762699164991191*^9, 3.7626991826621904`*^9}, {3.7626992150891905`*^9, 3.7626992578011904`*^9}},ExpressionUUID->"86a30b9a-5e1c-49d8-bc31-\ 09564e9f0b65"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"minusinnerintegraltimesb0inverse", "=", RowBox[{"intterms", "[", "minusresolventtimesb0inverse", "]"}]}]], "Input", CellChangeTimes->{{3.6912587651568103`*^9, 3.6912587694000645`*^9}, 3.691348426529894*^9, 3.691348679942294*^9, {3.691429171034709*^9, 3.6914291775197*^9}, {3.6929857560172977`*^9, 3.692985763021698*^9}, { 3.6929858086204977`*^9, 3.6929858145172977`*^9}, {3.6929871872625923`*^9, 3.69298718950892*^9}, 3.76131739941798*^9}, CellLabel-> "In[139]:=",ExpressionUUID->"6f9b7a9a-6fd3-4b9b-9272-1679c7040ca9"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"3", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{"3", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}]}]], "Output", CellChangeTimes->{3.7740066391895027`*^9, 3.77402745357018*^9, 3.788689270163246*^9}, CellLabel-> "Out[139]=",ExpressionUUID->"e7f787b0-6192-4613-b955-f9bc566b132d"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "74a0a841-1a4a-49a0-b106-f944ba12a52d"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"62192b46-08c7-458f-8c7f-\ 42a55c6a5273"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}}, CellLabel-> "In[140]:=",ExpressionUUID->"0bd4207b-b4bd-487e-90f6-1f09cda88231"], Cell["\<\ -2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}).\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^6-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\ \\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) r^6-4 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^6-4 \ \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) r^6+2 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \ \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) r^4+2 \\left(\\text{ssekk}^2 \\text{ssb}_0^3 \\text{sse}_1\\right).\\delta _2^2(\ \\text{ssekksse}) r^4+4 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^4+4 \ \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) r^4+2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) r^4+2 \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) r^4+\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^4-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) r^4+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) r^4+\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) r^4+2 \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \ r^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \ r^4+\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) r^4-i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) r^4+i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) r^4+\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) r^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ r^4+\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ r^4+i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ r^4+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ r^4-i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ r^4+\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}).\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ r^4-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta _1^2(\\text{ssekksse}) \ r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\delta \ _2^2(\\text{ssekksse}) r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1^2(k) r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2^2(k) \ r^2-3 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _1(k) r^2+i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _2(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1^2(\\text{se}).k \ r^2-i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _1(k) r^2-3 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _2(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2^2(\\text{se}).k \ r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _1(k).\\text{se}.\\delta _1(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta \ _1(\\text{se}).k r^2-i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\delta _2(\\text{se}).k r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta \ _2(k).\\text{se}.\\delta _2(k) r^2+i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta \ _1(\\text{se}).k r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\delta \ _2(\\text{se}).k r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _1(k).k.\\text{se}.\\delta _1(k) r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \ _1(\\text{se}).k r^2-i \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta _2(\\text{se}).k r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta \ _2(k).k.\\text{se}.\\delta _2(k) r^2+i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \ _1(\\text{se}).k r^2-\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \ _2(\\text{se}).k r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _1(\\text{se}).k.k.\\text{se}.\\delta _1(k) r^2-\\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta _1(\\text{se}).k r^2-i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _1(\\text{se}).k.k.\\delta _2(\\text{se}).k r^2-2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _2(\\text{se}).k.k.\\text{se}.\\delta _2(k) r^2+i \\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta _1(\\text{se}).k r^2-\\left(\\text{ssekk} \ \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _2(\\text{se}).k.k.\\delta _2(\\text{se}).k r^2-2 \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _1(\\text{ssekksse}) \ r^2-2 \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta _2(\\text{ssekksse}) \ r^2-\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) r^2+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) r^2-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _1(\\text{ssekksse}) r^2-\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\delta \ _2(\\text{ssekksse}) r^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ r^2+\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k r^2+i \ \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _1(k).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k r^2+2 \\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\ \\text{se}.\\delta _2(k) r^2-i \\left(\\text{ssekk} \\text{ssb}_0^2 \\text{sse}_1\\right).\\frac{1}{k}.\\delta \ _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ r^2+\\left(\\text{ssekk} \\text{ssb}_0^2 \ \\text{sse}_1\\right).\\frac{1}{k}.\\delta _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k r^2-2 \ \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ r^2-\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ r^2-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\text{se}.\\delta _1(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ r^2-2 \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\text{se}.\\delta _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ r^2+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\text{se}.\\delta _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _1(\\text{se}).k \ r^2-\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta _2(\\text{se}).k \ r^2-\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ r^2+i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _1(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ r^2-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\ \\delta _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1(k) \ r^2-\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _2(k) \ r^2+\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta _1^2(k)+\ \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2^2(k)+\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _1(k)-i \\left(\\text{ssb}_0 \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).\\delta _2(k)+i \\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _1(k)+\\left(\\text{ssb}_0 \ \\text{sse}_1\\right).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).\\delta _2(k)\ \>", "Output", CellChangeTimes->{3.774006639491152*^9, 3.774027454506675*^9, 3.788689270420559*^9}, CellLabel-> "Out[140]//TeXForm=",ExpressionUUID->"174ef012-05d9-4c0b-8371-9c833e191594"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.7502597060000105`*^9, 3.75025971188905*^9}},ExpressionUUID->"5c21aab8-e17c-4acd-9752-\ 217f68cbabc5"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[141]:=",ExpressionUUID->"24ec4ade-deeb-47a7-9060-54937253084f"], Cell[BoxData["82"], "Output", CellChangeTimes->{3.77400663952106*^9, 3.7740274546253586`*^9, 3.7886892705063295`*^9}, CellLabel-> "Out[141]=",ExpressionUUID->"7cd7f0cf-cb4a-4c16-9cc5-9f8cd6e4c17a"] }, Open ]], Cell[TextData[{ "For the second resolvent, we get the following inner integral times -", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Pi]", " ", SubscriptBox["sb", "0"]}], TraditionalForm]],ExpressionUUID-> "79a978ff-1fb6-42aa-bdea-a17fe9dbb9e8"], " (-", Cell[BoxData[ FormBox[ RowBox[{"2", "\[Pi]", " ", SubscriptBox["b", "0"]}], TraditionalForm]],ExpressionUUID-> "8a4c3f00-9c3a-46ff-84d6-9f02aae2ea20"], " in the paper):" }], "Text", CellChangeTimes->{{3.7502596850238757`*^9, 3.750259693181921*^9}, { 3.7626992639671907`*^9, 3.7626992910791917`*^9}},ExpressionUUID->"79a9bd33-d270-42bd-85d5-\ 06a6d439f544"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"minusinnerintegraltimesb0inverseadj", "=", RowBox[{ "inttermsadj", "[", "minusresolventtimesb0inverseadj", "]"}]}]], "Input", CellChangeTimes->{{3.7112833948612022`*^9, 3.711283396530402*^9}, { 3.7112836702792025`*^9, 3.7112836704508023`*^9}, {3.732551740140874*^9, 3.7325517504484634`*^9}}, CellLabel-> "In[142]:=",ExpressionUUID->"5d6395fe-8185-47fc-ae91-a6f1817c0b90"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}]}]], "Output", CellChangeTimes->{3.7740068535882435`*^9, 3.774027589600977*^9, 3.788689392738594*^9}, CellLabel-> "Out[142]=",ExpressionUUID->"bab4f02a-9ce2-4046-ae00-bbaa0b9aa993"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "fa7a02ad-3776-4cc7-a6f7-138262df2925"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"71137d09-3b28-4e70-b9f4-\ 31b7dbdefbbd"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.7337724102725754`*^9, 3.7337724130649805`*^9}}, CellLabel-> "In[143]:=",ExpressionUUID->"38fcee3b-07af-4044-b995-a8e579600933"], Cell["\<\ -2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) r^6-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) r^6-4 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) r^6-4 \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\delta _2(\\text{sekk}) r^6+2 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _1^2(\\text{sekk}) r^4+2 \ \\left(\\text{sekk}^2 \\text{sb}_0^3\\right).\\delta _2^2(\\text{sekk}) r^4+4 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\delta _1(\\text{sekk}) r^4+4 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\delta \ _2(\\text{sekk}) r^4+\\text{sb}_0.\\text{se}.k.\\delta \ _1(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) r^4+i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\left(\\text{sekk} \\text{sb}_0^2\ \\right).\\delta _2(\\text{sekk}) r^4-i \\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) r^4+\\text{sb}_0.\\text{se}.k.\\delta \ _2(k).\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \ r^4+\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) r^4+i \ \\text{sb}_0.\\text{se}.\\delta _1(k).k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) r^4-i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}) r^4+\\text{sb}_0.\\text{se}.\\delta \ _2(k).k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) \ r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta _1(\ \\text{sekk}) r^4+i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \ _2(\\text{sekk}) r^4-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.k.\\delta \ _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) r^4+\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta _2(\\text{sekk}) r^4+\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) r^4+i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\ \\delta _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^4-i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _2(\ \\text{sekk}) r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) r^4-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) \ r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k r^4-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k r^4+i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _1(k) \ r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.k.\\delta _2(k) r^4+i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(k).k \ r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(k).k r^4+\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) r^4+i \ \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}) r^4-i \ \\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta _1(\\text{sekk}) \ r^4+\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k.\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}) r^4+\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) r^4+i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^4-i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) \ r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) \ r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k r^4-i \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k r^4+i \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\delta \ _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k \ r^4+\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{sekk}).\\text{sb}_0.\\text{se}.\\delta _2(\\text{se}).k.k \ r^4-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1^2(\\text{sekk}) \ r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2^2(\\text{sekk}) r^2-\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.k.\\delta _1^2(k) r^2-\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.k.\\delta _2^2(k) r^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1(k).\\delta _1(k) \ r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(k).k \ r^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(k).\\delta _2(k) r^2-\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(k).k r^2-2 \\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1(\\text{se}).k.\\delta _1(k) r^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _1(\\text{se}).\\delta _1(k).k r^2-\\left(\\text{sekk} \ \\text{sb}_0^2\\right).\\text{se}.\\delta _1^2(\\text{se}).k.k r^2-2 \ \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2(\\text{se}).k.\\delta _2(k) \ r^2-2 \\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta \ _2(\\text{se}).\\delta _2(k).k r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\text{se}.\\delta _2^2(\\text{se}).k.k r^2-\\left(\ \\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{se}).\\text{se}.k.\\delta _1(k) r^2+i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.k.\\delta _2(k) \ r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _1(\\text{se}).\\text{se}.\\delta _1(k).k r^2+i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\text{se}.\\delta _2(k).k \ r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta \ _1(\\text{se}).k.k r^2+i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _1(\\text{se}).\\delta _2(\\text{se}).k.k \ r^2-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\text{se}.k.\\delta _1(k) r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.k.\\delta _2(k) \ r^2-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\text{se}.\\delta _1(k).k r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\text{se}.\\delta _2(k).k \ r^2-i \\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta \ _2(\\text{se}).\\delta _1(\\text{se}).k.k r^2-\\left(\\text{sekk} \\text{sb}_0^2\\right).\\delta _2(\\text{se}).\\delta _2(\\text{se}).k.k \ r^2-\\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta \ _1(\\text{sekk}) r^2-i \\text{sb}_0.\\text{se}.k.\\delta _1(k).\\text{sb}_0.\\delta _2(\\text{sekk}) r^2+i \ \\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta _1(\\text{sekk}) \ r^2-\\text{sb}_0.\\text{se}.k.\\delta _2(k).\\text{sb}_0.\\delta \ _2(\\text{sekk}) r^2-\\text{sb}_0.\\text{se}.\\delta _1(k).k.\\text{sb}_0.\\delta \ _1(\\text{sekk}) r^2-i \\text{sb}_0.\\text{se}.\\delta \ _1(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^2+i \ \\text{sb}_0.\\text{se}.\\delta _2(k).k.\\text{sb}_0.\\delta _1(\\text{sekk}) r^2-\\text{sb}_0.\\text{se}.\ \\delta _2(k).k.\\text{sb}_0.\\delta _2(\\text{sekk}) \ r^2-\\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) r^2-i \\text{sb}_0.\\text{se}.\\delta _1(\\text{se}).k.k.\ \\text{sb}_0.\\delta _2(\\text{sekk}) r^2+i \\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _1(\\text{sekk}) r^2-\\text{sb}_0.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{sb}_0.\\delta _2(\\text{sekk}) r^2\ \>", "Output", CellChangeTimes->{3.7740068537652035`*^9, 3.7740275897545657`*^9, 3.788689392932046*^9}, CellLabel-> "Out[143]//TeXForm=",ExpressionUUID->"48241953-1712-4b38-8465-c81f4d33f940"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.7502597364232335`*^9, 3.750259740768261*^9}},ExpressionUUID->"641a9e89-f0dc-4e0c-a443-\ 893f86e19831"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[144]:=",ExpressionUUID->"f5e8f916-bfc6-447e-b7df-332dc3607594"], Cell[BoxData["82"], "Output", CellChangeTimes->{3.7740068537851286`*^9, 3.7740275898114386`*^9, 3.788689393017847*^9}, CellLabel-> "Out[144]=",ExpressionUUID->"ae530229-c3c5-42e2-94e9-c8c5507f5b85"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[StyleBox["Preparation in canonical form", FontSize->18]], "Section", CellChangeTimes->{{3.750259845180939*^9, 3.750259849900956*^9}},ExpressionUUID->"5f24ded3-915c-464c-bf93-\ e9962dfda07c"], Cell[TextData[{ "One puts the terms in a canonical form before performing the integration in \ the variable \[OpenCurlyDoubleQuote]r.\[CloseCurlyDoubleQuote] We first \ define the rules which allow one to pass to the reduced terms. The first \ group corresponds to ensuring each leftmost ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "2aacc1b7-7135-4512-93a8-42bb9ada4c48"], " has an e to the right, moving powers of \[Sigma](e)k^2 or \ \[CapitalDelta](e)k^2 to the right if necessary. The second group corresponds \ to cancelling k\[CloseCurlyQuote]s and extra e\[CloseCurlyQuote]s. The third \ group corresponds to terms with all ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "45fccc2d-441c-440f-a66d-4bc1a62a05df"], " on the left. The fourth group corresponds to terms with ", Cell[BoxData[ FormBox[ SubsuperscriptBox["b", "0", "2"], TraditionalForm]],ExpressionUUID-> "78027b2a-12c7-4eef-87d4-00d7aa0a663d"], " in the middle that require integration by parts, turning them into terms \ with ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "c0adf218-e3cd-427c-b221-27bea6de01c4"], " in the middle. The fifth group corresponds to terms with ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "9241b5a7-78be-4c38-88cc-c41d9e6bc9ee"], " in the middle." }], "Text", CellChangeTimes->{{3.7502598826861725`*^9, 3.750260266939674*^9}, { 3.7502608302453284`*^9, 3.7502608448844247`*^9}, {3.762782510643149*^9, 3.762782523956149*^9}},ExpressionUUID->"152761b5-fda0-42d6-88e4-\ 6d7b8844df02"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "3"], ",", "sse", ",", "k", ",", "k", ",", "sse", ",", "k", ",", "k", ",", "sse", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.7088200424180536`*^9, 3.708820116720854*^9}, { 3.7088202735788536`*^9, 3.7088202970582533`*^9}, {3.7088908434237194`*^9, 3.7088908453737564`*^9}, {3.7268959209826527`*^9, 3.7268959378974867`*^9}, 3.7272899669928665`*^9, {3.7323979755374575`*^9, 3.7323979804826574`*^9}, { 3.732551808680794*^9, 3.732551810107876*^9}, {3.762202106518174*^9, 3.7622021215050945`*^9}}, CellLabel-> "In[145]:=",ExpressionUUID->"92396485-cb57-403b-90d7-cc4f4f1d7357"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "2"], ",", "sse", ",", "k", ",", "k", ",", "sse", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, { 3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, { 3.7622021346519537`*^9, 3.7622021423593874`*^9}}, CellLabel-> "In[146]:=",ExpressionUUID->"7273a0d8-e6ef-425f-9756-c8901a7de00b"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{"a___", ",", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{"a", ",", SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.7275650962937*^9, 3.727565135138198*^9}, { 3.7323979773470573`*^9, 3.732397983384227*^9}, {3.7377400799478073`*^9, 3.7377400843490324`*^9}, {3.7622021445425186`*^9, 3.762202148221736*^9}}, CellLabel-> "In[147]:=",ExpressionUUID->"340cd182-0bd5-4b83-b2f4-0cffc667f6fd"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "3"], ",", "se", ",", "k", ",", "k", ",", "se", ",", "k", ",", "k", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.7088200424180536`*^9, 3.708820116720854*^9}, { 3.7088202735788536`*^9, 3.7088202970582533`*^9}, {3.7088908434237194`*^9, 3.7088908453737564`*^9}, {3.7268959209826527`*^9, 3.7268959378974867`*^9}, {3.7268963943083467`*^9, 3.726896399692086*^9}, 3.7272899493022394`*^9, {3.732397977971057*^9, 3.7323979852717543`*^9}, { 3.7622021522399707`*^9, 3.762202168861517*^9}}, CellLabel-> "In[148]:=",ExpressionUUID->"03799854-0475-48a7-a4dc-d32bbdf25b51"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "2"], ",", "se", ",", "k", ",", "k", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, { 3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, { 3.726896396700341*^9, 3.726896398181196*^9}, 3.7272899551679144`*^9, { 3.732397978844657*^9, 3.7323979872684774`*^9}, {3.762202154408149*^9, 3.7622021679090943`*^9}}, CellLabel-> "In[149]:=",ExpressionUUID->"30c19feb-3538-40c3-98c5-b8e55442e65b"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{"a___", ",", "k", ",", FractionBox["1", "k"], ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{"a", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.708821280137295*^9, 3.708821299072174*^9}}, CellLabel-> "In[150]:=",ExpressionUUID->"9dc57f18-5794-4030-808b-07de523b332d"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{"a___", ",", FractionBox["1", "k"], ",", "k", ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{"a", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.708821280137295*^9, 3.708821310770999*^9}}, CellLabel-> "In[151]:=",ExpressionUUID->"63025a1b-e7b9-4954-bc7d-6ce6c8b33f09"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{"a___", ",", "e", ",", "e", ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{"a", ",", "e", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}}, CellLabel-> "In[152]:=",ExpressionUUID->"56bbc403-7a02-4474-9b7b-d650b5472404"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{"a___", ",", "se", ",", "se", ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{"a", ",", "se", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}, { 3.7622020854714313`*^9, 3.762202089019923*^9}}, CellLabel-> "In[153]:=",ExpressionUUID->"48eb1050-94be-4f83-9316-51c29c9389db"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{"a___", ",", "sse", ",", "sse", ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{"a", ",", "sse", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}, { 3.762202087285589*^9, 3.762202090101033*^9}}, CellLabel-> "In[154]:=",ExpressionUUID->"0d9c7b38-0891-49b2-80fa-126c8820f2cc"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{"a___", ",", "sse", ",", FractionBox["1", "k"], ",", "se", ",", "k", ",", "c___"}], "]"}], ":=", RowBox[{"M", "[", RowBox[{"a", ",", "sse", ",", "c"}], "]"}]}]], "Input", CellChangeTimes->{{3.70871623860732*^9, 3.7087162504203196`*^9}, { 3.762202087285589*^9, 3.762202090101033*^9}, {3.7622903189099703`*^9, 3.7622903251191297`*^9}}, CellLabel-> "In[155]:=",ExpressionUUID->"ebe773fa-718e-4430-a660-5d067bdcb1de"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubscriptBox["ssb", "0"], ",", RowBox[{"c___", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["ssb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", RowBox[{"S", " ", RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "c", ",", "sse"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, { 3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, { 3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, { 3.45806770578125*^9, 3.458067714796875*^9}, 3.516878290765625*^9, { 3.6929859272263675`*^9, 3.6929859272263675`*^9}, {3.733769325689432*^9, 3.733769348730673*^9}, 3.7337694807069044`*^9, {3.735020321396248*^9, 3.735020366464727*^9}, {3.762202217404767*^9, 3.7622022263648205`*^9}, { 3.7622024234630013`*^9, 3.762202423671443*^9}, 3.7622032594238462`*^9}, CellLabel-> "In[156]:=",ExpressionUUID->"8e527702-882e-4dd6-a1a5-13587c21ae59"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "2"], ",", RowBox[{"c___", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["ssb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "2"], " ", RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "c", ",", "sse"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, { 3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, { 3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, { 3.458067019890625*^9, 3.458067023734375*^9}, {3.458067720015625*^9, 3.458067730859375*^9}, 3.516878304015625*^9, {3.6929859272263675`*^9, 3.6929859272263675`*^9}, 3.733769374470718*^9, {3.735020336824675*^9, 3.7350203398978806`*^9}, {3.762202218737206*^9, 3.762202227308296*^9}, { 3.7622024220148716`*^9, 3.762202422235283*^9}, 3.7622032609557505`*^9}, CellLabel-> "In[157]:=",ExpressionUUID->"1b3f524f-f632-4541-a218-a8f30bde0e55"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "3"], ",", RowBox[{"c___", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["ssb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "3"], " ", RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "c", ",", "sse"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, { 3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, { 3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, { 3.458067067*^9, 3.458067071671875*^9}, {3.458067735234375*^9, 3.458067739828125*^9}, 3.4580677705*^9, {3.516878310953125*^9, 3.51687831465625*^9}, {3.6929859272419667`*^9, 3.6929859272419667`*^9}, { 3.705032651912043*^9, 3.7050326982610435`*^9}, {3.705033648359043*^9, 3.7050336563740435`*^9}, {3.7087174460873194`*^9, 3.7087174482953196`*^9}, {3.708820376041054*^9, 3.708820377429454*^9}, 3.733769377809124*^9, {3.735020347261093*^9, 3.735020349663498*^9}, { 3.762202219839261*^9, 3.762202228708555*^9}, {3.7622024207542715`*^9, 3.7622024209547405`*^9}, 3.7622032626641965`*^9}, CellLabel-> "In[158]:=",ExpressionUUID->"d152538e-5a91-4fff-aab7-7aed64d4bb4e"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubscriptBox["sb", "0"], ",", RowBox[{"c___", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["sb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", RowBox[{"S", " ", RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "c", ",", "se"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, { 3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, { 3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, { 3.45806770578125*^9, 3.458067714796875*^9}, 3.516878290765625*^9, { 3.6929859272263675`*^9, 3.6929859272263675`*^9}, {3.733769325689432*^9, 3.733769348730673*^9}, 3.7337694807069044`*^9, {3.735020321396248*^9, 3.735020366464727*^9}, {3.762202263708005*^9, 3.762202266675106*^9}, { 3.762202410404905*^9, 3.7622024104557676`*^9}, 3.762203265183462*^9}, CellLabel-> "In[159]:=",ExpressionUUID->"a8960b26-ce89-428c-93d3-bf31aed94f9e"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "2"], ",", RowBox[{"c___", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["sb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "2"], " ", RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "c", ",", "se"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, { 3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, { 3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, { 3.458067019890625*^9, 3.458067023734375*^9}, {3.458067720015625*^9, 3.458067730859375*^9}, 3.516878304015625*^9, {3.6929859272263675`*^9, 3.6929859272263675`*^9}, 3.733769374470718*^9, {3.735020336824675*^9, 3.7350203398978806`*^9}, {3.7622022702156105`*^9, 3.762202280054313*^9}, { 3.7622024120415287`*^9, 3.7622024120913954`*^9}, 3.7622032668389945`*^9}, CellLabel-> "In[160]:=",ExpressionUUID->"623c1a22-6c25-430a-af95-780ad2f3a626"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "3"], ",", RowBox[{"c___", "?", RowBox[{"(", RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["sb", "0"]}], "]"}], "&"}], ")"}]}]}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "3"], " ", RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "c", ",", "se"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.45805953565625*^9, 3.45805955815625*^9}, { 3.45805959034375*^9, 3.458059626296875*^9}, {3.458059836015625*^9, 3.458059843265625*^9}, {3.45806129196875*^9, 3.458061295765625*^9}, { 3.45806181090625*^9, 3.45806181534375*^9}, {3.458066911171875*^9, 3.45806692028125*^9}, {3.4580669741875*^9, 3.45806697921875*^9}, { 3.458067067*^9, 3.458067071671875*^9}, {3.458067735234375*^9, 3.458067739828125*^9}, 3.4580677705*^9, {3.516878310953125*^9, 3.51687831465625*^9}, {3.6929859272419667`*^9, 3.6929859272419667`*^9}, { 3.705032651912043*^9, 3.7050326982610435`*^9}, {3.705033648359043*^9, 3.7050336563740435`*^9}, {3.7087174460873194`*^9, 3.7087174482953196`*^9}, {3.708820376041054*^9, 3.708820377429454*^9}, 3.733769377809124*^9, {3.735020347261093*^9, 3.735020349663498*^9}, { 3.762202274581972*^9, 3.7622022819273214`*^9}, {3.7622024134687157`*^9, 3.762202413504619*^9}, {3.762203268463699*^9, 3.7622032723822207`*^9}}, CellLabel-> "In[161]:=",ExpressionUUID->"f8dde16e-19b0-419f-ad9d-f869420e7d07"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "3"], ",", "a___", ",", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"dr", " ", "*", RowBox[{"1", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "3"], ",", "a", ",", SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}], "+", RowBox[{"dS", " ", "*", RowBox[{"S", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "3"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, { 3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, { 3.732398097419841*^9, 3.7323980979190216`*^9}, {3.732398128057062*^9, 3.7323981361999493`*^9}, {3.7324836954134874`*^9, 3.7324837001558957`*^9}, 3.7324837860232615`*^9, {3.7377398941534348`*^9, 3.7377398980244617`*^9}, { 3.762202290549261*^9, 3.762202297759988*^9}, {3.788621875690573*^9, 3.788621879980081*^9}, 3.788623411359158*^9, 3.7886238867136216`*^9, 3.7886258205135355`*^9, 3.788630014676754*^9, {3.788631092090139*^9, 3.7886310941965084`*^9}, 3.7886311355120687`*^9, 3.788631403150653*^9, { 3.7886314551975284`*^9, 3.7886314597523527`*^9}, {3.788631801076789*^9, 3.7886318257797565`*^9}, {3.7886319146382313`*^9, 3.7886319208745613`*^9}, {3.7886324618762436`*^9, 3.7886324705909505`*^9}, {3.788686465788254*^9, 3.788686483366851*^9}, { 3.78868652981398*^9, 3.78868653152874*^9}, {3.7886870944313135`*^9, 3.7886871077512426`*^9}, 3.7886872389293127`*^9, 3.7886874668749466`*^9}, CellLabel-> "In[162]:=",ExpressionUUID->"36352f5b-41e6-466b-8dfe-ed6c2012706b"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "2"], ",", "a___", ",", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"dr", " ", "*", RowBox[{"1", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "2"], ",", "a", ",", SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}], "+", RowBox[{"dS", " ", "*", RowBox[{"S", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "2"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, { 3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, { 3.732398097419841*^9, 3.7323980979190216`*^9}, {3.732398128057062*^9, 3.7323981361999493`*^9}, {3.7324836954134874`*^9, 3.7324837001558957`*^9}, 3.7324837860232615`*^9, {3.7377398941534348`*^9, 3.7377398980244617`*^9}, { 3.762202290549261*^9, 3.762202297759988*^9}, {3.788621875690573*^9, 3.788621879980081*^9}, 3.788623411359158*^9, 3.7886238867136216`*^9, 3.7886258205135355`*^9, 3.788630014676754*^9, {3.788631092090139*^9, 3.7886310941965084`*^9}, 3.7886311355120687`*^9, 3.788631403150653*^9, { 3.7886314551975284`*^9, 3.7886314597523527`*^9}, {3.788631801076789*^9, 3.7886318257797565`*^9}, {3.788631905462758*^9, 3.7886319117200317`*^9}, { 3.788632463655488*^9, 3.78863247142472*^9}, {3.7886864726039133`*^9, 3.7886864858280067`*^9}, {3.7886865283595233`*^9, 3.7886865327942085`*^9}, {3.788687103549148*^9, 3.788687109583559*^9}, 3.788687468643523*^9}, CellLabel-> "In[163]:=",ExpressionUUID->"dca7519d-e383-4723-859d-0470023127c1"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubscriptBox["ssb", "0"], ",", "a___", ",", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"dr", " ", "*", RowBox[{"1", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubscriptBox["ssb", "0"], ",", "a", ",", SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}], "+", RowBox[{"dS", " ", "*", RowBox[{"S", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubscriptBox["ssb", "0"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", SubscriptBox["ssb", "0"], ",", "sse", ",", "c"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7088201239124537`*^9, 3.708820127282054*^9}, { 3.708820415415454*^9, 3.7088204231062536`*^9}, {3.708890849102228*^9, 3.708890850537456*^9}, {3.7268963133580055`*^9, 3.726896315453629*^9}, 3.7272899790206203`*^9, {3.732397976520257*^9, 3.732397981839857*^9}, { 3.732398097419841*^9, 3.7323980979190216`*^9}, {3.732398128057062*^9, 3.7323981361999493`*^9}, {3.7324836954134874`*^9, 3.7324837001558957`*^9}, 3.7324837860232615`*^9, {3.7377398941534348`*^9, 3.7377398980244617`*^9}, { 3.762202290549261*^9, 3.762202297759988*^9}, {3.788621875690573*^9, 3.788621879980081*^9}, 3.788623411359158*^9, 3.7886238867136216`*^9, 3.7886258205135355`*^9, 3.788630014676754*^9, {3.788631092090139*^9, 3.7886310941965084`*^9}, 3.7886311355120687`*^9, 3.788631403150653*^9, { 3.7886314551975284`*^9, 3.7886314597523527`*^9}, {3.788631801076789*^9, 3.7886318257797565`*^9}, {3.788632464886198*^9, 3.788632472323318*^9}, { 3.7886864771208134`*^9, 3.788686488819586*^9}, {3.7886865270684247`*^9, 3.7886865338337336`*^9}, {3.7886871056660767`*^9, 3.788687111749591*^9}, 3.788687470627819*^9}, CellLabel-> "In[164]:=",ExpressionUUID->"1476dae0-468c-4556-9af0-d214bafa2985"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "3"], ",", "a___", ",", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"dr", " ", "*", RowBox[{"1", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "3"], ",", "a", ",", SubscriptBox["sb", "0"], ",", "c"}], "]"}]}], "+", " ", RowBox[{"dS", " ", "*", RowBox[{"S", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "3"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", SubscriptBox["sb", "0"], ",", "c"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323982811027756`*^9, 3.732398407071123*^9}, 3.732398528515566*^9, {3.732398579542512*^9, 3.732398579885707*^9}, { 3.7325507330632005`*^9, 3.7325507368754187`*^9}, 3.732550799755015*^9, { 3.7325508332859325`*^9, 3.73255086750089*^9}, {3.762202298860072*^9, 3.7622023025821023`*^9}, 3.788621881496027*^9, 3.788623410460518*^9, 3.788623887796728*^9, 3.7886258221820755`*^9, 3.788630016379204*^9, { 3.7886310973251452`*^9, 3.788631099529254*^9}, 3.7886311363558397`*^9, { 3.7886314008109393`*^9, 3.788631401651658*^9}, {3.7886314575412836`*^9, 3.7886314588008943`*^9}, {3.788631794747707*^9, 3.7886318667412634`*^9}, { 3.788631924516858*^9, 3.788631927562683*^9}, {3.7886324668260126`*^9, 3.7886324749433174`*^9}, {3.788685996870442*^9, 3.7886860057978487`*^9}, { 3.7886865089563665`*^9, 3.788686517232998*^9}, {3.7886869776194167`*^9, 3.7886869805050535`*^9}, {3.788687114170903*^9, 3.788687125721422*^9}, 3.7886874729076777`*^9}, CellLabel-> "In[165]:=",ExpressionUUID->"87472b3c-bc0a-40c7-8844-a933de551262"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "2"], ",", "a___", ",", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"dr", " ", "*", RowBox[{"1", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "2"], ",", "a", ",", SubscriptBox["sb", "0"], ",", "c"}], "]"}]}], "+", " ", RowBox[{"dS", " ", "*", RowBox[{"S", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "2"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", SubscriptBox["sb", "0"], ",", "c"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323982811027756`*^9, 3.732398407071123*^9}, 3.732398528515566*^9, {3.732398579542512*^9, 3.732398579885707*^9}, { 3.7325507330632005`*^9, 3.7325507368754187`*^9}, 3.732550799755015*^9, { 3.7325508332859325`*^9, 3.73255086750089*^9}, {3.762202298860072*^9, 3.7622023025821023`*^9}, 3.788621881496027*^9, 3.788623410460518*^9, 3.788623887796728*^9, 3.7886258221820755`*^9, 3.788630016379204*^9, { 3.7886310973251452`*^9, 3.788631099529254*^9}, 3.7886311363558397`*^9, { 3.7886314008109393`*^9, 3.788631401651658*^9}, {3.7886314575412836`*^9, 3.7886314588008943`*^9}, {3.788631794747707*^9, 3.7886318667412634`*^9}, { 3.788631931621833*^9, 3.788631934694619*^9}, {3.7886324680547285`*^9, 3.7886324760134535`*^9}, {3.788685987901883*^9, 3.788686006865985*^9}, { 3.788686512870204*^9, 3.78868651423273*^9}, 3.7886869826710153`*^9, { 3.7886871171926193`*^9, 3.788687128597121*^9}, 3.78868747480641*^9}, CellLabel-> "In[166]:=",ExpressionUUID->"ad7a544c-a21d-4e68-9a34-3c0ca4e79336"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubscriptBox["sb", "0"], ",", "a___", ",", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{"dr", " ", "*", RowBox[{"1", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubscriptBox["sb", "0"], ",", "a", ",", SubscriptBox["sb", "0"], ",", "c"}], "]"}]}], "+", " ", RowBox[{"dS", " ", "*", RowBox[{"S", "/", "2"}], "*", " ", RowBox[{"M", "[", RowBox[{ SubscriptBox["sb", "0"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", SubscriptBox["sb", "0"], ",", "c"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323982811027756`*^9, 3.732398407071123*^9}, 3.732398528515566*^9, {3.732398579542512*^9, 3.732398579885707*^9}, { 3.7325507330632005`*^9, 3.7325507368754187`*^9}, 3.732550799755015*^9, { 3.7325508332859325`*^9, 3.73255086750089*^9}, {3.762202298860072*^9, 3.7622023025821023`*^9}, 3.788621881496027*^9, 3.788623410460518*^9, 3.788623887796728*^9, 3.7886258221820755`*^9, 3.788630016379204*^9, { 3.7886310973251452`*^9, 3.788631099529254*^9}, 3.7886311363558397`*^9, { 3.7886314008109393`*^9, 3.788631401651658*^9}, {3.7886314575412836`*^9, 3.7886314588008943`*^9}, {3.788631794747707*^9, 3.7886318667412634`*^9}, { 3.788632468936371*^9, 3.788632477150415*^9}, {3.788686003213018*^9, 3.788686008452015*^9}, {3.7886865193104076`*^9, 3.788686519475972*^9}, 3.788686985088521*^9, {3.78868711930438*^9, 3.7886871461962852`*^9}, 3.788687476725977*^9}, CellLabel-> "In[167]:=",ExpressionUUID->"50b7e92d-6c2b-4446-9ef0-b91928fddaf6"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubscriptBox["ssb", "0"], ",", "a___", ",", SubscriptBox["ssb", "0"], ",", "c___"}], "]"}], ":=", RowBox[{"S", " ", "R", " ", RowBox[{ RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", "sse"}], "]"}], "**", RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, { 3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, { 3.733769484638111*^9, 3.733769500534539*^9}, 3.7337695400962086`*^9, { 3.7337695792990775`*^9, 3.733769598065911*^9}, {3.733769650731603*^9, 3.733769652806407*^9}, {3.7622023256893415`*^9, 3.762202329030406*^9}, { 3.762202434184372*^9, 3.7622024367654457`*^9}, 3.762203092752104*^9, 3.762203741670833*^9}, CellLabel-> "In[168]:=",ExpressionUUID->"4cf5bab4-1631-408f-be97-48e2a0760f82"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "2"], ",", "a___", ",", SubscriptBox["ssb", "0"], ",", "c___"}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "2"], " ", "R", " ", RowBox[{ RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", "sse"}], "]"}], "**", RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, { 3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, { 3.733769491268123*^9, 3.733769508989754*^9}, 3.7337695465234203`*^9, { 3.733769676830449*^9, 3.7337696795760536`*^9}, {3.7622023316265087`*^9, 3.7622023356267757`*^9}, {3.762202440289027*^9, 3.7622024425420074`*^9}, 3.762203095299272*^9, 3.7622037212982864`*^9}, CellLabel-> "In[169]:=",ExpressionUUID->"4e85c209-baeb-411f-a9bb-90dd3bd16f27"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["ssb", "0", "3"], ",", "a___", ",", SubscriptBox["ssb", "0"], ",", "c___"}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "3"], "R", " ", RowBox[{ RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", "sse"}], "]"}], "**", RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, { 3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, { 3.7337694938109274`*^9, 3.7337695159629664`*^9}, 3.7337695529038315`*^9, { 3.733769682540059*^9, 3.7337696858004646`*^9}, {3.762202332775422*^9, 3.762202337646411*^9}, {3.762202444237474*^9, 3.762202444541661*^9}, 3.7622030966187477`*^9, 3.762203731439182*^9}, CellLabel-> "In[170]:=",ExpressionUUID->"7ca436ac-5b2c-4369-889f-50ac0e95665d"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubscriptBox["sb", "0"], ",", "a___", ",", SubscriptBox["sb", "0"], ",", "c___"}], "]"}], ":=", RowBox[{"S", " ", "R", " ", RowBox[{ RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", "se"}], "]"}], "**", RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, { 3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, { 3.733769484638111*^9, 3.733769500534539*^9}, 3.7337695400962086`*^9, { 3.7337695792990775`*^9, 3.733769598065911*^9}, {3.733769650731603*^9, 3.733769652806407*^9}, {3.7622023403182373`*^9, 3.7622023453837304`*^9}, { 3.7622024463598003`*^9, 3.7622024464705043`*^9}, 3.762203099445225*^9}, CellLabel-> "In[171]:=",ExpressionUUID->"9da3b02e-d4f2-4629-ad59-ff049d69fdd7"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "2"], ",", "a___", ",", SubscriptBox["sb", "0"], ",", "c___"}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "2"], " ", "R", " ", RowBox[{ RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", "se"}], "]"}], "**", RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, { 3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, { 3.733769491268123*^9, 3.733769508989754*^9}, 3.7337695465234203`*^9, { 3.733769676830449*^9, 3.7337696795760536`*^9}, {3.7622023409455585`*^9, 3.7622023475598793`*^9}, {3.7622024476284094`*^9, 3.762202447726184*^9}, 3.762203101559539*^9}, CellLabel-> "In[172]:=",ExpressionUUID->"8996aa3a-7a81-4d5e-8db6-c175557fb737"], Cell[BoxData[ RowBox[{ RowBox[{"M", "[", RowBox[{ SubsuperscriptBox["sb", "0", "3"], ",", "a___", ",", SubscriptBox["sb", "0"], ",", "c___"}], "]"}], ":=", RowBox[{ SuperscriptBox["S", "3"], "R", " ", RowBox[{ RowBox[{"M", "[", RowBox[{ FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", FractionBox["1", "k"], ",", "a", ",", "se"}], "]"}], "**", RowBox[{"M", "[", "c", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.7323984148398232`*^9, 3.732398426836069*^9}, { 3.7323985835516663`*^9, 3.732398596343584*^9}, {3.732398639742506*^9, 3.7323986407253*^9}, {3.7324839275853157`*^9, 3.7324839452983475`*^9}, { 3.7337694938109274`*^9, 3.7337695159629664`*^9}, 3.7337695529038315`*^9, { 3.733769682540059*^9, 3.7337696858004646`*^9}, {3.7622023419708176`*^9, 3.762202352320192*^9}, {3.7622024492700224`*^9, 3.762202449374743*^9}, 3.762203103689845*^9}, CellLabel-> "In[173]:=",ExpressionUUID->"99855bb1-73ea-4600-b821-70945035d8a7"], Cell[BoxData[ RowBox[{ RowBox[{"action", "[", "stuff_", "]"}], ":=", RowBox[{"stuff", "/.", RowBox[{"Dot", "\[Rule]", "M"}]}]}]], "Input", CellChangeTimes->{{3.590123054074692*^9, 3.590123091288587*^9}, 3.6929859272575665`*^9, {3.7268978249902554`*^9, 3.7268978317155604`*^9}, { 3.726897904988572*^9, 3.7268979092820063`*^9}, {3.727291123585079*^9, 3.7272911259250937`*^9}}, CellLabel-> "In[174]:=",ExpressionUUID->"3f4dca84-9dd0-43f2-8711-d680ea8ba3d1"], Cell[BoxData[ RowBox[{ RowBox[{"back", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"stuff", "/.", RowBox[{"M", "\[Rule]", "cancelling"}]}], ")"}], "/.", RowBox[{"cancelling", "\[Rule]", "Dot"}]}]}]], "Input", CellChangeTimes->{{3.590123646987019*^9, 3.59012368526357*^9}, 3.6929859272575665`*^9, {3.7272911285303106`*^9, 3.7272911426016006`*^9}}, CellLabel-> "In[175]:=",ExpressionUUID->"18a2f9dd-1d83-47ab-8c9c-483a750b2be6"], Cell[BoxData[ RowBox[{ RowBox[{"reorder", "[", "stuff_", "]"}], ":=", RowBox[{"back", "[", RowBox[{"action", "[", "stuff", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.5901237001414337`*^9, 3.590123739463437*^9}, { 3.7072370152738676`*^9, 3.7072370208898673`*^9}, {3.7272912150650654`*^9, 3.727291217108679*^9}}, CellLabel-> "In[176]:=",ExpressionUUID->"c84dcfb1-9769-4ec1-99b3-bf57c5811eac"], Cell["We now show how this works:", "Text", CellChangeTimes->{{3.7502603012749014`*^9, 3.750260317245001*^9}},ExpressionUUID->"113227f8-d4fa-4980-ae1f-\ 897c9e076fe4"], Cell[BoxData[ RowBox[{ RowBox[{"compare", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Extract", "[", RowBox[{"stuff", ",", "a1"}], "]"}], ",", RowBox[{"reorder", "[", RowBox[{"Extract", "[", RowBox[{"stuff", ",", "a1"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"a1", ",", "1", ",", RowBox[{"Length", "[", "stuff", "]"}]}], "}"}]}], "]"}], "//", "TableForm"}]}]], "Input", CellChangeTimes->{{3.5901242432704487`*^9, 3.59012435228183*^9}}, CellLabel-> "In[177]:=",ExpressionUUID->"750ff0ad-8d3f-4608-b832-75b8922fa424"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"compare", "[", "minusinnerintegraltimesb0inverse", "]"}]], "Input", CellChangeTimes->{{3.589862415999852*^9, 3.589862421701654*^9}, 3.5900653861387663`*^9, 3.590065493640295*^9, {3.590124398055291*^9, 3.590124399074926*^9}, {3.6929861285691137`*^9, 3.6929861313458247`*^9}}, CellLabel-> "In[178]:=",ExpressionUUID->"164d6f70-dcff-4e22-a0e1-10f5b6f97d52"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", "sse"}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["S", "3"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", "sse"}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["S", "3"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", "sse"}]}]}, { RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["ssekk", "2"], " ", SubsuperscriptBox["ssb", "0", "3"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}], RowBox[{"S", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}], RowBox[{"S", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], RowBox[{"S", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "S", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", "S", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], RowBox[{"S", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{ SubscriptBox["ssb", "0"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.7740068553075047`*^9, 3.774027590324043*^9, 3.7886893935075397`*^9}, CellLabel-> "Out[178]//TableForm=",ExpressionUUID->"5d52be87-800a-485b-8c87-\ e0977f81e556"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"compare", "[", "minusinnerintegraltimesb0inverseadj", "]"}]], "Input", CellChangeTimes->{{3.711285178214402*^9, 3.7112851846964025`*^9}}, CellLabel-> "In[179]:=",ExpressionUUID->"f7c28681-dc66-4fa8-8f86-dcfab8bde207"], Cell[BoxData[ TagBox[GridBox[{ { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", "se"}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["S", "3"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", "se"}]}]}, { RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}]}]}], RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", SuperscriptBox["S", "3"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{ SuperscriptBox["sekk", "2"], " ", SubsuperscriptBox["sb", "0", "3"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "4"}], " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", SuperscriptBox["S", "2"], " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}], ")"}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", SubscriptBox["sb", "0"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}]}, { RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}]}, { RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}]}, { RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{ RowBox[{"(", RowBox[{"sekk", " ", SubsuperscriptBox["sb", "0", "2"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", SubscriptBox["sb", "0"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}]} }, GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[2.0999999999999996`]}, Offset[0.27999999999999997`]}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}}], Function[BoxForm`e$, TableForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.774006855546077*^9, 3.774027590545452*^9, 3.7886893937658477`*^9}, CellLabel-> "Out[179]//TableForm=",ExpressionUUID->"743729ea-6d97-4f00-9535-\ 0c434df1deeb"] }, Open ]], Cell["\<\ One in fact double checks that all similar terms are now in canonical form. \ There is one compare table each resolvent.\ \>", "Text", CellChangeTimes->{{3.7502603251380434`*^9, 3.75026038475142*^9}},ExpressionUUID->"8580e748-6ebd-4982-8982-\ 9d00307d4f1a"], Cell[BoxData[ RowBox[{ RowBox[{"treatfine", "[", "stuff_", "]"}], ":=", RowBox[{"Table", "[", RowBox[{ RowBox[{"reorder", "[", RowBox[{"Extract", "[", RowBox[{"stuff", ",", "a1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"a1", ",", "1", ",", RowBox[{"Length", "[", "stuff", "]"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5176578773199577`*^9, 3.517657992684556*^9}, 3.517658337694289*^9, {3.5179829043984556`*^9, 3.517982904988489*^9}, 3.51799403273196*^9, 3.517994094174474*^9, {3.59012641921729*^9, 3.590126451484502*^9}, {3.7281851505947676`*^9, 3.7281851814369674`*^9}}, CellLabel-> "In[180]:=",ExpressionUUID->"12191be3-53e9-40d4-882d-6f0cd947abb8"], Cell[BoxData[ RowBox[{ RowBox[{"treatfinehalf", "[", "stuff_", "]"}], ":=", RowBox[{"Select", "[", RowBox[{ RowBox[{"treatfine", "[", "stuff", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", "R"}], "]"}], "\[Equal]", "False"}], "&"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.7278320760629616`*^9, 3.7278321635483227`*^9}, { 3.7278321974941397`*^9, 3.727832199178951*^9}, {3.727832448204347*^9, 3.7278324551775923`*^9}, {3.7323988989661493`*^9, 3.7323989266873493`*^9}, 3.7323989625049496`*^9}, CellLabel-> "In[181]:=",ExpressionUUID->"51ac56b4-18a1-43af-9217-222bd2188706"] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Integration in the radial part of the terms with ", FontSize->18], Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]], FontSize->18,ExpressionUUID->"132aa93b-0be4-459d-b880-97a0f3cbc5a9"], StyleBox[" in the middle", FontSize->18] }], "Section", CellChangeTimes->{{3.7502607463798065`*^9, 3.7502608178572617`*^9}, { 3.7502610530158386`*^9, 3.750261060398878*^9}},ExpressionUUID->"d48e7fda-35fa-47b1-a37a-\ f2f544cbb6b2"], Cell[TextData[{ "We now apply the rearrangement lemma to do the integration in the radial \ part for the terms with ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "5b09ce2b-ae19-460a-be7a-c24c21778a1c"], " in the middle. We reintroduce the ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "bd3e99c6-a2c8-4c3d-bdcd-f94fc457d983"], " on the right and move it to the left." }], "Text", CellChangeTimes->{{3.7502608611345425`*^9, 3.7502609216189375`*^9}, { 3.7502610068465433`*^9, 3.7502610071665444`*^9}, {3.750261039522748*^9, 3.7502610441127787`*^9}, {3.7502613079555273`*^9, 3.750261316813594*^9}},ExpressionUUID->"e967a816-d639-40e0-b09f-\ 5678a31bef85"], Cell[BoxData[ RowBox[{ RowBox[{"treat1", "[", "stuff_", "]"}], ":=", RowBox[{"Total", "[", RowBox[{"treatfinehalf", "[", "stuff", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7323993976367493`*^9, 3.732399419024349*^9}}, CellLabel-> "In[182]:=",ExpressionUUID->"fdf2b1c5-6cc7-4d7f-999e-58c9341e2a8c"], Cell[TextData[{ "We integrate by parts for terms with ", Cell[BoxData[ FormBox[ SubsuperscriptBox["b", "0", "2"], TraditionalForm]],ExpressionUUID-> "bfb66e83-00fa-4b54-b76d-3049f9bed485"], " in the middle:" }], "Text", CellChangeTimes->{{3.7502608611345425`*^9, 3.7502609216189375`*^9}, { 3.7502610068465433`*^9, 3.7502610071665444`*^9}, {3.750261039522748*^9, 3.7502610441127787`*^9}, {3.7502613079555273`*^9, 3.750261316813594*^9}, { 3.7627824363581495`*^9, 3.762782476621149*^9}},ExpressionUUID->"49e11686-1dbe-490d-b7da-\ e3525067d6e4"], Cell[BoxData[ RowBox[{ RowBox[{"treat2", "[", "stuff_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["r", RowBox[{"-", "1"}]], " ", RowBox[{ SubscriptBox["\[PartialD]", "dr"], RowBox[{ SubscriptBox["\[PartialD]", "r"], "#"}]}]}], "-", RowBox[{"2", "sseekk", " ", "S", RowBox[{ SubscriptBox["\[PartialD]", "dS"], RowBox[{ SubscriptBox["\[PartialD]", "S"], "#"}]}]}]}], ")"}], "+", RowBox[{"(", RowBox[{"#", "/.", RowBox[{"{", RowBox[{ RowBox[{"dr", "\[Rule]", "0"}], ",", RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}], ")"}]}], ")"}], "&"}], "/@", RowBox[{"treat1", "[", "stuff", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.732398978401349*^9, 3.7323989787133493`*^9}, { 3.732399118770149*^9, 3.7323992643815494`*^9}, {3.7323993094031496`*^9, 3.7323993521783495`*^9}, 3.7323993958271494`*^9, {3.733771755676424*^9, 3.7337717574548273`*^9}, {3.733771826266548*^9, 3.7337718385281696`*^9}, { 3.7337718811942444`*^9, 3.7337718814282446`*^9}, {3.7337720556763525`*^9, 3.7337720569243546`*^9}, {3.762202567444159*^9, 3.762202568642954*^9}, { 3.7622028568037386`*^9, 3.7622028576864004`*^9}, {3.7622037782171693`*^9, 3.762203791071825*^9}, {3.7622039295307074`*^9, 3.762203930237838*^9}, { 3.7622041728184853`*^9, 3.7622041731246433`*^9}, {3.7886220441322885`*^9, 3.7886220442140703`*^9}, {3.78862489841527*^9, 3.7886249040881376`*^9}, { 3.788625813261928*^9, 3.7886258135272408`*^9}, {3.7886258962241554`*^9, 3.78862589698116*^9}, 3.7886296187571135`*^9, {3.788629733924258*^9, 3.7886297349345264`*^9}, {3.7886298097285957`*^9, 3.7886298333873777`*^9}, {3.78862996424955*^9, 3.788629970720275*^9}, { 3.788630145245267*^9, 3.788630146149881*^9}, {3.7886302173046474`*^9, 3.788630234181532*^9}, {3.7886303230978546`*^9, 3.788630328203207*^9}, { 3.7886304388644066`*^9, 3.788630460674135*^9}, {3.788630547807212*^9, 3.7886305507892513`*^9}, {3.788630853908846*^9, 3.7886308602927504`*^9}, { 3.788631061089007*^9, 3.788631078700929*^9}, {3.7886311161977234`*^9, 3.788631117631898*^9}, {3.7886700036749277`*^9, 3.788670023979662*^9}, { 3.78868591714353*^9, 3.7886859347942324`*^9}, {3.788686241159446*^9, 3.7886862412735877`*^9}, {3.78868655739086*^9, 3.7886865586243143`*^9}, 3.7886867507716722`*^9, 3.788686792053258*^9, {3.788686886026082*^9, 3.788686887965979*^9}, 3.7886870069493384`*^9, {3.7886875432288923`*^9, 3.7886875442222757`*^9}, {3.7886875764825926`*^9, 3.7886875821505356`*^9}, {3.7886877623633657`*^9, 3.7886877627648506`*^9}}, CellLabel-> "In[183]:=",ExpressionUUID->"f8b1d285-ff53-4185-9bc0-5f672ad7a128"], Cell[BoxData[ RowBox[{ RowBox[{"treat2adj", "[", "stuff_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["r", RowBox[{"-", "1"}]], " ", RowBox[{ SubscriptBox["\[PartialD]", "dr"], RowBox[{ SubscriptBox["\[PartialD]", "r"], "#"}]}]}], "-", RowBox[{"2", "sekek", " ", "S", RowBox[{ SubscriptBox["\[PartialD]", "dS"], RowBox[{ SubscriptBox["\[PartialD]", "S"], "#"}]}]}]}], ")"}], "+", RowBox[{"(", RowBox[{"#", "/.", RowBox[{"{", RowBox[{ RowBox[{"dr", "\[Rule]", "0"}], ",", RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}], ")"}]}], ")"}], "&"}], "/@", RowBox[{"treat1", "[", "stuff", "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.732398978401349*^9, 3.7323989787133493`*^9}, { 3.732399118770149*^9, 3.7323992643815494`*^9}, {3.7323993094031496`*^9, 3.7323993521783495`*^9}, 3.7323993958271494`*^9, {3.733771755676424*^9, 3.7337717574548273`*^9}, {3.733771826266548*^9, 3.7337718385281696`*^9}, { 3.7337718811942444`*^9, 3.7337718814282446`*^9}, {3.7337720556763525`*^9, 3.7337720569243546`*^9}, {3.7622025826176014`*^9, 3.7622025850002813`*^9}, {3.762202860908801*^9, 3.762202861181039*^9}, { 3.7622038187398396`*^9, 3.762203822926647*^9}, {3.762203932017082*^9, 3.7622039323571987`*^9}, {3.7622041700159655`*^9, 3.7622041700637946`*^9}, {3.788622035028624*^9, 3.7886220352051516`*^9}, { 3.78862490030422*^9, 3.788624907395299*^9}, {3.7886258096885066`*^9, 3.788625811482709*^9}, {3.7886258982008715`*^9, 3.788625898927928*^9}, 3.7886296199210014`*^9, {3.7886297372433543`*^9, 3.7886297427895308`*^9}, { 3.7886298359744387`*^9, 3.788629848818106*^9}, {3.788629965075342*^9, 3.7886299730331144`*^9}, 3.788630148679086*^9, {3.7886302190978537`*^9, 3.7886302379434757`*^9}, {3.788630323714205*^9, 3.788630329404995*^9}, { 3.788630439984405*^9, 3.78863046211627*^9}, {3.788630549344082*^9, 3.7886305499195433`*^9}, 3.788630868106863*^9, {3.7886310622389336`*^9, 3.7886310773585176`*^9}, {3.7886311201162543`*^9, 3.788631122461982*^9}, { 3.7886700064156046`*^9, 3.788670024796511*^9}, {3.7886859257406263`*^9, 3.788685938222749*^9}, {3.788686238131278*^9, 3.788686238511757*^9}, 3.788686566758417*^9, 3.7886867527003098`*^9, 3.788686793989255*^9, 3.788686893451785*^9, 3.7886870096118016`*^9, {3.7886875475492516`*^9, 3.7886875809272766`*^9}, {3.7886877648284283`*^9, 3.78868776495446*^9}}, CellLabel-> "In[184]:=",ExpressionUUID->"4528ea00-cdf5-4863-868f-c36799deffbf"], Cell[BoxData[ RowBox[{ RowBox[{"intbyparts", "[", "stuff_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ SuperscriptBox["r", RowBox[{"-", "1"}]], RowBox[{ SubscriptBox["\[PartialD]", "dr"], RowBox[{ SubscriptBox["\[PartialD]", "r"], "stuff"}]}]}], "-", RowBox[{"2", "sseekk", " ", "S", RowBox[{ SubscriptBox["\[PartialD]", "dS"], RowBox[{ SubscriptBox["\[PartialD]", "S"], "stuff"}]}]}]}], ")"}], "+", RowBox[{"(", RowBox[{"stuff", "/.", RowBox[{"{", RowBox[{ RowBox[{"dr", "\[Rule]", "0"}], ",", RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}], ")"}]}], ")"}], "]"}]}]], "Input", CellChangeTimes->{{3.7886203741851797`*^9, 3.7886203836588554`*^9}, { 3.7886211263546066`*^9, 3.7886211342006025`*^9}, {3.7886220372456975`*^9, 3.7886220373414745`*^9}, 3.788622243480448*^9, {3.788624909440797*^9, 3.788624912491645*^9}, {3.788625805586445*^9, 3.7886258079242315`*^9}, { 3.788625899792655*^9, 3.788625900517679*^9}, 3.7886296215576344`*^9, 3.7886297487974715`*^9, {3.7886298398799996`*^9, 3.7886298495331955`*^9}, { 3.7886299663998013`*^9, 3.7886299772787237`*^9}, 3.788630149832008*^9, { 3.7886302507602177`*^9, 3.788630258953315*^9}, {3.788630325384773*^9, 3.7886303304621677`*^9}, {3.7886304418873215`*^9, 3.788630463017838*^9}, { 3.7886305839012995`*^9, 3.788630584607413*^9}, {3.7886308985484905`*^9, 3.7886309010378356`*^9}, {3.7886310633868885`*^9, 3.7886310762794023`*^9}, {3.788670008367388*^9, 3.7886700178171635`*^9}, 3.7886700624378552`*^9, 3.7886859269238205`*^9, {3.7886862448250465`*^9, 3.7886862474839573`*^9}, 3.788686568765974*^9, 3.788686757196698*^9, 3.788686795450583*^9, 3.788686930178553*^9, 3.7886870126395307`*^9, { 3.78868755035569*^9, 3.788687583992401*^9}, {3.7886877673092527`*^9, 3.7886877674843063`*^9}}, CellLabel-> "In[185]:=",ExpressionUUID->"e8aad569-8830-43d4-b82f-413aaa3e5f29"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"reorder", "[", RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "]"}]], "Input", CellLabel-> "In[186]:=",ExpressionUUID->"55865246-7c69-4b27-8ee1-f7dd5d3ad2d5"], Cell[BoxData[ RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "dr", " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "dS", " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}], ")"}]}]], "Output", CellChangeTimes->{3.788687734157761*^9, 3.78868788293813*^9, 3.788689394000228*^9}, CellLabel-> "Out[186]=",ExpressionUUID->"f44142d7-59f0-4ce4-922e-ae47b8a5ad36"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox["r", RowBox[{"-", "1"}]], " ", RowBox[{ SubscriptBox["\[PartialD]", "dr"], RowBox[{ SubscriptBox["\[PartialD]", "r"], RowBox[{"reorder", "[", RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.788620751852672*^9, 3.788620809850614*^9}, { 3.7886208485352077`*^9, 3.7886208557469554`*^9}, 3.788626749384204*^9, 3.7886296337829475`*^9, 3.788629750000285*^9, {3.788630263723566*^9, 3.788630264083602*^9}, {3.788630342685495*^9, 3.7886303500139036`*^9}, 3.788630564336005*^9, 3.7886700319154806`*^9, 3.7886862644883494`*^9}, CellLabel-> "In[187]:=",ExpressionUUID->"60534634-f97f-4112-8f97-2de5359d74d0"], Cell[BoxData[ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.7886877343508196`*^9, 3.788687782085514*^9, 3.788687883303854*^9, 3.7886893940889845`*^9}, CellLabel-> "Out[187]=",ExpressionUUID->"8ee26de0-a08b-49a6-acd8-c9c53c82c602"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"-", "2"}], "sseekk", " ", "S", RowBox[{ SubscriptBox["\[PartialD]", "dS"], RowBox[{ SubscriptBox["\[PartialD]", "S"], RowBox[{"reorder", "[", RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "]"}]}]}]}]], "Input", CellChangeTimes->{ 3.788620867284089*^9, {3.788622249854409*^9, 3.7886222635757*^9}, 3.7886267530524197`*^9, 3.788629634967744*^9, 3.788629756018218*^9, 3.7886301593904886`*^9, {3.7886302661510773`*^9, 3.7886302676351075`*^9}, 3.7886303511718082`*^9, {3.7886305592605724`*^9, 3.788630559396244*^9}, 3.788631182719911*^9, 3.7886700417741356`*^9, {3.788686269087285*^9, 3.788686273240576*^9}, 3.788686573087614*^9, 3.7886869350837665`*^9, 3.7886870284626923`*^9, {3.7886877736774716`*^9, 3.7886877737948875`*^9}}, CellLabel-> "In[188]:=",ExpressionUUID->"561fa427-08b2-40c8-a691-e50b7aaebae0"], Cell[BoxData[ RowBox[{"6", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]], "Output", CellChangeTimes->{3.7886877345493927`*^9, 3.788687782430575*^9, 3.7886878836126747`*^9, 3.788689394176751*^9}, CellLabel-> "Out[188]=",ExpressionUUID->"2e1b51bb-e3ee-4cfe-a331-d21c62cb91a3"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"reorder", "[", RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"dr", "\[Rule]", "0"}], ",", RowBox[{"dS", "\[Rule]", "0"}]}], "}"}]}]], "Input", CellChangeTimes->{3.7886208872577295`*^9, 3.788631199120041*^9}, CellLabel-> "In[189]:=",ExpressionUUID->"cb382a6d-1688-47c2-9935-8e11c16fa827"], Cell[BoxData["0"], "Output", CellChangeTimes->{3.7886877349478774`*^9, 3.7886877826089683`*^9, 3.788687884091525*^9, 3.788689394265512*^9}, CellLabel-> "Out[189]=",ExpressionUUID->"4cdd5b97-7160-40ef-885a-6b46e7a796fd"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"intbyparts", "[", RowBox[{"reorder", "[", RowBox[{ RowBox[{"-", "2"}], " ", SuperscriptBox["r", "6"], " ", RowBox[{ RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", RowBox[{"(", RowBox[{"ssekk", " ", SubsuperscriptBox["ssb", "0", "2"], " ", SubscriptBox["sse", "1"]}], ")"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.7886211021991444`*^9, 3.788621109340056*^9}}, CellLabel-> "In[190]:=",ExpressionUUID->"88016482-d741-40ea-9563-84c3419bb706"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", "6"}], " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"6", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.7886877351453867`*^9, 3.788687782806651*^9, 3.7886878844845595`*^9, 3.78868939435228*^9}, CellLabel-> "Out[190]=",ExpressionUUID->"4ea1d2a2-b9a2-42f9-b2ba-b42a66d2598a"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"treat2", "[", "minusinnerintegraltimesb0inverse", "]"}]], "Input", CellChangeTimes->{{3.7324811271974945`*^9, 3.7324811356405106`*^9}}, CellLabel-> "In[191]:=",ExpressionUUID->"75336748-17a6-46c1-bb4c-49af782964d6"], Cell[BoxData[ RowBox[{ RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{"6", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"6", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}]}]], "Output", CellChangeTimes->{3.7740068561828613`*^9, 3.774027590795781*^9, 3.7886893944669743`*^9}, CellLabel-> "Out[191]=",ExpressionUUID->"ea2ab05d-b7a7-4b24-b60c-9c7c0d1e8d71"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"treat2adj", "[", "minusinnerintegraltimesb0inverseadj", "]"}]], "Input", CellChangeTimes->{{3.732481136904113*^9, 3.732481143814925*^9}, { 3.762202586714655*^9, 3.762202587434729*^9}}, CellLabel-> "In[192]:=",ExpressionUUID->"67b0b224-ce5e-46d9-a17b-4103f659b025"], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "2"], " ", "R", " ", "S", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"6", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"6", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ SuperscriptBox["r", "4"], " ", "R", " ", SuperscriptBox["S", "2"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"4", " ", SuperscriptBox["r", "6"], " ", "R", " ", SuperscriptBox["S", "3"], " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}]}]], "Output", CellChangeTimes->{3.774006856426897*^9, 3.7740275909154935`*^9, 3.7886893946165733`*^9}, CellLabel-> "Out[192]=",ExpressionUUID->"a76c9c6b-54c2-4709-8c5d-03d8381d5c1b"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"treat2", "[", "minusinnerintegraltimesb0inverse", "]"}], ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 3.720468696854107*^9}, CellLabel-> "In[193]:=",ExpressionUUID->"9a8e4090-b842-44a5-9934-0b10e27c2a55"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", RowBox[{"2", " ", SuperscriptBox["r", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"3", " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "4"}], " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"4", " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", "sseekk", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "-", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], ")"}], "**", RowBox[{"(", RowBox[{"sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], ")"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.7740068572221107`*^9, 3.7740275910441494`*^9, 3.7886893947761617`*^9}, CellLabel-> "Out[193]=",ExpressionUUID->"964ed23b-193e-4ce9-8003-ad854e497a99"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"treat2adj", "[", "minusinnerintegraltimesb0inverseadj", "]"}], ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 3.720468696854107*^9, {3.7324895300935984`*^9, 3.7324895302339983`*^9}, { 3.7622025893316555`*^9, 3.762202589477267*^9}}, CellLabel-> "In[194]:=",ExpressionUUID->"9b85c7f5-9ec4-4ef3-b7bc-a95d6b314471"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], "\[Rule]", RowBox[{"2", " ", SuperscriptBox["r", "6"], " ", RowBox[{"(", RowBox[{ RowBox[{"3", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"3", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ")"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1"}], "}"}], "\[Rule]", RowBox[{ SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "2"}], " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}], ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}], ")"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{"(", RowBox[{"se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}], ")"}]}], "-", RowBox[{"2", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"2", " ", "\[ImaginaryI]", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "sekek", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], "\[Rule]", RowBox[{ SuperscriptBox["r", "2"], " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ RowBox[{"(", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], ")"}], "**", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], ")"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.7740068581713037`*^9, 3.774027591169814*^9, 3.788689394928749*^9}, CellLabel-> "Out[194]=",ExpressionUUID->"92a70b2d-ed93-4cd9-b7ab-f9a2fe96be0f"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"poww", "[", RowBox[{"{", RowBox[{"n_", ",", "m_"}], "}"}], "]"}], ":=", RowBox[{ SuperscriptBox["r", RowBox[{ RowBox[{"-", "2"}], RowBox[{"(", RowBox[{"n", "+", "m", "-", "1"}], ")"}]}]], " ", "/", "2"}]}]], "Input", CellChangeTimes->{{3.516956074375*^9, 3.51695607621875*^9}, { 3.5169561063125*^9, 3.516956181859375*^9}, {3.7324900409505568`*^9, 3.7324900411533566`*^9}, 3.732490709449501*^9, {3.7324908368301387`*^9, 3.7324908485129642`*^9}, 3.732491017207254*^9, {3.7324927030231037`*^9, 3.732492703491105*^9}, 3.732493393297078*^9, {3.732493578649971*^9, 3.7324935938374014`*^9}, {3.7324937549687667`*^9, 3.732493758171773*^9}, 3.732494225040928*^9, 3.7324942772972307`*^9, 3.732494442007168*^9, { 3.7324946389390993`*^9, 3.7324946596391416`*^9}, {3.732494758691535*^9, 3.7324947589889355`*^9}, 3.7324949973050284`*^9, {3.7325544186223516`*^9, 3.732554427768874*^9}, {3.788689061567808*^9, 3.78868906174037*^9}}, CellLabel-> "In[195]:=",ExpressionUUID->"4ee7b7cd-cf4f-4273-aefd-69fb9d68338d"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["D", "n_"], "[", RowBox[{"NonCommutativeMultiply", "[", RowBox[{"a_", ",", "b_"}], "]"}], "]"}], ":=", RowBox[{"Dot", "[", RowBox[{ RowBox[{ SubscriptBox["D", "n"], "[", "a", "]"}], ",", "b"}], "]"}]}]], "Input", CellChangeTimes->{{3.73282608150974*^9, 3.7328261351388073`*^9}, { 3.732826221925771*^9, 3.7328262618240533`*^9}, {3.733761857772077*^9, 3.7337618763361096`*^9}}, CellLabel-> "In[196]:=",ExpressionUUID->"ad9adc03-b14e-4cef-a97b-f47ab990a95a"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["D", "n_"], "[", RowBox[{"a___", ",", RowBox[{"b1_", "+", "b2_"}], ",", "c___"}], "]"}], ":=", RowBox[{ RowBox[{ SubscriptBox["D", "n"], "[", RowBox[{"a", ",", "b1", ",", "c"}], "]"}], "+", RowBox[{ SubscriptBox["D", "n"], "[", RowBox[{"a", ",", "b2", ",", "c"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.6900493800876207`*^9, 3.69004942280956*^9}, { 3.690662865639802*^9, 3.690662875254161*^9}, {3.7328333335721235`*^9, 3.7328333364143286`*^9}, {3.7328333915632358`*^9, 3.732833403005457*^9}, { 3.7522555456395025`*^9, 3.752255568785391*^9}, {3.7522557288341675`*^9, 3.7522557338070726`*^9}, {3.7522585454476447`*^9, 3.752258556889022*^9}, { 3.7522691166420345`*^9, 3.7522691266881943`*^9}, {3.752269607339723*^9, 3.752269619455323*^9}}, CellLabel-> "In[197]:=",ExpressionUUID->"c52f30d2-adc9-4211-923e-68daaf1f4796"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["D", "n_"], "[", RowBox[{"x_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", "e"}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", "sse"}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", "se"}], "]"}]}], "&"}], ")"}]}], "]"}], ":=", FractionBox["x", RowBox[{"n", "+", "1"}]]}]], "Input", CellChangeTimes->{{3.6900498078503113`*^9, 3.69004981214917*^9}, { 3.690659261214715*^9, 3.690659277537323*^9}, 3.6906628901630898`*^9, { 3.732833337663331*^9, 3.7328333929546385`*^9}, {3.752252963886016*^9, 3.7522529661589713`*^9}, 3.7522546946662025`*^9, {3.7522557457548256`*^9, 3.7522557578366103`*^9}, {3.752262837524604*^9, 3.7522628387809362`*^9}, { 3.7522691287306995`*^9, 3.7522691457532005`*^9}, {3.762202666911326*^9, 3.7622026771669235`*^9}}, CellLabel-> "In[198]:=",ExpressionUUID->"f9cb6374-05e8-40ba-99f4-9838e1272073"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["D", "n_"], "[", RowBox[{"a___", ",", RowBox[{"x_", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", "e"}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", "sse"}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", "se"}], "]"}]}], "&"}], ")"}]}], ",", "b___"}], "]"}], ":=", RowBox[{"x", " ", RowBox[{ SubscriptBox["D", "n"], "[", RowBox[{"a", ",", "b"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.690659614376678*^9, 3.690659644509507*^9}, 3.690659857722563*^9, {3.6906628901779423`*^9, 3.6906628901797857`*^9}, { 3.7328333844160223`*^9, 3.732833406635466*^9}, 3.7522517753726864`*^9, { 3.7522557828648987`*^9, 3.7522557902671986`*^9}, {3.7522585837735987`*^9, 3.7522585906632595`*^9}, {3.7522628271881447`*^9, 3.752262830769324*^9}, { 3.7522691332606144`*^9, 3.7522691410517445`*^9}, {3.7522698223136997`*^9, 3.7522698313695083`*^9}, {3.7622026705665474`*^9, 3.7622026801289997`*^9}}, CellLabel-> "In[199]:=",ExpressionUUID->"a339e19b-406d-4492-89ec-de49df9f5830"], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["D", "n_"], "[", RowBox[{"a___", ",", RowBox[{ RowBox[{"x__", "?", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", "e"}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", "sse"}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", "se"}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["\[Delta]", "1"]}], "]"}], "&&", RowBox[{"FreeQ", "[", RowBox[{"#", ",", SubscriptBox["\[Delta]", "2"]}], "]"}]}], "&"}], ")"}]}], "y_"}], ",", "b___"}], "]"}], ":=", RowBox[{"x", " ", RowBox[{ SubscriptBox["D", "n"], "[", RowBox[{"a", ",", "y", ",", "b"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.690659819569788*^9, 3.6906598702848682`*^9}, { 3.690662890190576*^9, 3.6906628901919727`*^9}, {3.732833386481226*^9, 3.732833409478671*^9}, 3.752251776275982*^9, {3.7522557924471703`*^9, 3.7522557997817216`*^9}, {3.7522585853613815`*^9, 3.752258593697481*^9}, { 3.7522628338902407`*^9, 3.7522628359382577`*^9}, {3.7522663264086943`*^9, 3.7522663406855145`*^9}, {3.7522691641290197`*^9, 3.7522691718842764`*^9}, {3.752269842101804*^9, 3.7522698471762314`*^9}, { 3.762202682315156*^9, 3.7622026868131037`*^9}}, CellLabel-> "In[200]:=",ExpressionUUID->"2239389a-501b-4986-8be9-5801baa59d72"], Cell[BoxData[ RowBox[{ RowBox[{"transfo", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"Length", "[", RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", RowBox[{"First", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}]], " ", "[", RowBox[{ RowBox[{"poww", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}], RowBox[{"Last", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], "]"}]}], "]"}]}]}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"sse", " ", "sseekk"}], "\[Rule]", "ssekksse"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.7324907169621143`*^9, 3.7324907279215364`*^9}, { 3.732490853444573*^9, 3.732490853491373*^9}, {3.732493261027597*^9, 3.7324932612459974`*^9}, 3.732493339575175*^9, 3.7324934002948914`*^9, { 3.7324935753865647`*^9, 3.7324936089192314`*^9}, {3.732493655033723*^9, 3.732493655189723*^9}, 3.7324937650311856`*^9, {3.732494069652487*^9, 3.7324940731714935`*^9}, {3.7324947631299434`*^9, 3.732494763504344*^9}, { 3.7324948121990385`*^9, 3.7324948265740695`*^9}, {3.7324948957146196`*^9, 3.732494906369839*^9}, {3.732495026340283*^9, 3.7324950293082886`*^9}, { 3.7328211272383947`*^9, 3.732821193016735*^9}, {3.7328233687103157`*^9, 3.7328234028056955`*^9}, {3.7328234813953795`*^9, 3.7328234851191864`*^9}, {3.7328357723632917`*^9, 3.7328357809139085`*^9}, 3.7328358690443*^9, {3.7337620183899593`*^9, 3.733762042975602*^9}, 3.733762106015313*^9, 3.733762159024206*^9, 3.7337682284147053`*^9, 3.733768263873567*^9, 3.7337696232443547`*^9, {3.733769799945865*^9, 3.733769820943502*^9}, 3.7337708654140606`*^9, {3.7337719040638847`*^9, 3.7337719049998865`*^9}, {3.733771962575389*^9, 3.7337719652273936`*^9}, { 3.7337720653951693`*^9, 3.7337720655667696`*^9}, 3.7622023964512315`*^9, { 3.762203129635497*^9, 3.762203133706614*^9}, {3.7622044346645546`*^9, 3.7622044822932873`*^9}, {3.7622045593133836`*^9, 3.762204580629442*^9}, { 3.762283149679826*^9, 3.762283151035241*^9}}, CellLabel-> "In[201]:=",ExpressionUUID->"649fc8ec-b7ea-4bcf-ac54-cff8c2d5d499"], Cell[BoxData[ RowBox[{ RowBox[{"transfoadj", "[", "stuff_", "]"}], ":=", RowBox[{ RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"Length", "[", RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], "]"}]], RowBox[{"se", " ", RowBox[{ SubscriptBox["D", RowBox[{"First", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}]], " ", "[", RowBox[{ RowBox[{"poww", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}], RowBox[{"Last", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", RowBox[{"S", ",", "R"}], "}"}]}], "]"}], ",", "j"}], "]"}], "]"}]}], "]"}]}]}], "]"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"se", " ", "sekek"}], "\[Rule]", "sekkse"}], "}"}]}]}]], "Input", CellChangeTimes->{{3.7324907169621143`*^9, 3.7324907279215364`*^9}, { 3.732490853444573*^9, 3.732490853491373*^9}, {3.732493261027597*^9, 3.7324932612459974`*^9}, 3.732493339575175*^9, 3.7324934002948914`*^9, { 3.7324935753865647`*^9, 3.7324936089192314`*^9}, {3.732493655033723*^9, 3.732493655189723*^9}, 3.7324937650311856`*^9, {3.732494069652487*^9, 3.7324940731714935`*^9}, {3.7324947631299434`*^9, 3.732494763504344*^9}, { 3.7324948121990385`*^9, 3.7324948265740695`*^9}, {3.7324948957146196`*^9, 3.732494906369839*^9}, {3.732495026340283*^9, 3.7324950293082886`*^9}, { 3.7328211272383947`*^9, 3.732821193016735*^9}, {3.7328233687103157`*^9, 3.7328234028056955`*^9}, {3.7328234813953795`*^9, 3.7328234851191864`*^9}, {3.7328357723632917`*^9, 3.7328357809139085`*^9}, 3.7328358690443*^9, {3.7337620183899593`*^9, 3.733762042975602*^9}, 3.733762106015313*^9, 3.733762159024206*^9, 3.7337682284147053`*^9, 3.733768263873567*^9, 3.7337696232443547`*^9, {3.733769799945865*^9, 3.733769820943502*^9}, 3.7337708654140606`*^9, {3.7337719040638847`*^9, 3.7337719049998865`*^9}, {3.733771962575389*^9, 3.7337719652273936`*^9}, { 3.7337720653951693`*^9, 3.7337720655667696`*^9}, 3.7622023964512315`*^9, { 3.7622031238419847`*^9, 3.762203136613846*^9}, {3.7622044854448247`*^9, 3.762204515386826*^9}, {3.7622045641793756`*^9, 3.762204581757426*^9}, { 3.7622833079209046`*^9, 3.762283308049548*^9}}, CellLabel-> "In[202]:=",ExpressionUUID->"9e7a289d-57f3-4dc3-af64-150382f5bc9e"], Cell["For the integral of the terms for the first resolvent we get", "Text", CellChangeTimes->{{3.750260979751354*^9, 3.7502610012175097`*^9}},ExpressionUUID->"8711eba4-fcac-4424-a28a-\ 71613f2df864"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"halfres0", "=", RowBox[{"transfo", "[", RowBox[{"treat2", "[", "minusinnerintegraltimesb0inverse", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7324927852334766`*^9, 3.732492824998158*^9}, { 3.732550304801742*^9, 3.7325503050825424`*^9}}, CellLabel-> "In[203]:=",ExpressionUUID->"33705973-439e-486b-8c51-edcf04c38beb"], Cell[BoxData[ RowBox[{ RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"2", " ", "ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"2", " ", "ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", "ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", "ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"3", " ", "ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "+", RowBox[{"3", " ", "ssekksse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"2", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"2", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}]}]}], "-", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{"sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k"}]}]}]], "Output", CellChangeTimes->{3.7740068594428797`*^9, 3.7740275914241323`*^9, 3.788689395222953*^9}, CellLabel-> "Out[203]=",ExpressionUUID->"9a62db39-5147-45c7-b48c-31065ec1cc8a"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "cef072a3-f357-4764-9f20-9617d29fd07e"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"3a688fdd-e5f5-4510-aeee-\ a4b7f1042373"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.733772384922531*^9, 3.7337723883077374`*^9}}, CellLabel-> "In[204]:=",ExpressionUUID->"f9bb640e-9bae-4f98-aa77-c874368b4d70"], Cell["\<\ \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ text{se}.\\delta _1(k).\\text{sse}\\right).\\text{sse}.\\delta \ _1(\\text{ssekksse})+\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.\\text{se}.\\delta _2(k).\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})+\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.\\delta _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _1(\\text{ssekksse})-\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.\\delta _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})+\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.\\delta _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _1(\\text{ssekksse})+\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.\\delta _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})-2 \\text{ssekksse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta \ _1(k).\\text{sse}\\right).\\text{sse}.\\delta _1(\\text{ssekksse})-2 \ \\text{ssekksse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta \ _2(k).\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})-\\text{ssekksse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _1(\\text{ssekksse})+i \\text{ssekksse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})-i \\text{ssekksse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _1(\\text{ssekksse})-\\text{ssekksse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})-\\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \ _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta _1(\\text{ssekksse})-\\text{sse} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})+\\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\text{se}.\\delta \ _1(k).\\text{sse}\\right).\\text{sse}.\\delta _1(\\text{ssekksse})+\\text{sse} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\text{se}.\\delta _2(k).\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})+\\frac{1}{2} \\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta _1(\\text{ssekksse})-\\frac{1}{2} i \\text{sse} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})+\\frac{1}{2} i \\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta _1(\\text{ssekksse})+\\frac{1}{2} \\text{sse} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.\\delta _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})+3 \\text{ssekksse} D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \ _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta _1(\\text{ssekksse})+3 \\text{ssekksse} \ D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})-2 \\text{sse} D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{\ sse}.\\delta _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \ _1(\\text{ssekksse})-2 \\text{sse} D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{\ sse}.\\delta _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.\\delta \ _2(\\text{ssekksse})-\\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ text{se}.\\delta _1(k).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \ _1(k)-\\frac{1}{2} \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ text{se}.\\delta _1(k).\\text{sse}\\right).\\text{sse}.k.\\delta \ _1(\\text{se}).k-\\frac{1}{2} i \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ text{se}.\\delta _1(k).\\text{sse}\\right).\\text{sse}.k.\\delta \ _2(\\text{se}).k-\\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ text{se}.\\delta _2(k).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \ _2(k)+\\frac{1}{2} i \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ text{se}.\\delta _2(k).\\text{sse}\\right).\\text{sse}.k.\\delta \ _1(\\text{se}).k-\\frac{1}{2} \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ text{se}.\\delta _2(k).\\text{sse}\\right).\\text{sse}.k.\\delta \ _2(\\text{se}).k-\\frac{1}{2} \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ delta _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \ _1(k)+\\frac{1}{2} i \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ delta _1(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \ _2(k)-\\frac{1}{2} i \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ delta _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \ _1(k)-\\frac{1}{2} \\text{sse} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\\ delta _2(\\text{se}).k.\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \ _2(k)+\\text{sse} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta \ _1(k)+\\frac{1}{2} \\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \ _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta _1(\\text{se}).k+\\frac{1}{2} i \\text{sse} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta _1(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta \ _2(\\text{se}).k+\\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \ _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\text{se}.\\delta _2(k)-\\frac{1}{2} i \\text{sse} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta \ _1(\\text{se}).k+\\frac{1}{2} \\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.\\delta \ _2(\\text{ssekksse}).\\text{sse}\\right).\\text{sse}.k.\\delta \ _2(\\text{se}).k\ \>", "Output", CellChangeTimes->{3.774006860017994*^9, 3.774027591530846*^9, 3.7886893953465924`*^9}, CellLabel-> "Out[204]//TeXForm=",ExpressionUUID->"a89e2581-a433-41ce-b4ea-e39144169e11"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.75026108883307*^9, 3.750261093124098*^9}},ExpressionUUID->"95623328-a120-4415-a866-\ 18a4525289bb"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[205]:=",ExpressionUUID->"657c2f4e-80d8-4b84-89bc-6d75c645b723"], Cell[BoxData["40"], "Output", CellChangeTimes->{3.7740068605378447`*^9, 3.774027591593647*^9, 3.788689395435385*^9}, CellLabel-> "Out[205]=",ExpressionUUID->"faad87dd-e312-4fa6-9e1d-589c3afabcb7"] }, Open ]], Cell["\<\ For the integral of the terms for the second resolvent we get\ \>", "Text", CellChangeTimes->{{3.750260979751354*^9, 3.7502610012175097`*^9}, { 3.75026118079967*^9, 3.7502611822146916`*^9}},ExpressionUUID->"c3933f4d-e2b8-4e02-895b-\ 91b79f9768c0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"halfres0adj", "=", RowBox[{"transfoadj", "[", RowBox[{"treat2adj", "[", "minusinnerintegraltimesb0inverseadj", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7324927852334766`*^9, 3.732492834918176*^9}, { 3.7325503079247475`*^9, 3.7325503081753483`*^9}, {3.762202984447565*^9, 3.7622029846101627`*^9}, {3.762203148818272*^9, 3.762203149124406*^9}}, CellLabel-> "In[206]:=",ExpressionUUID->"f4e68284-e33a-48ec-b758-bda9cbcd957c"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"\[ImaginaryI]", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{"3", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "+", RowBox[{"3", " ", "sekkse", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}]}]}], "-", RowBox[{"2", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "3"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}]}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k"}]}]}]], "Output", CellChangeTimes->{3.774006861370559*^9, 3.77402759173131*^9, 3.7886893955720205`*^9}, CellLabel-> "Out[206]=",ExpressionUUID->"70e2e7f9-7ea2-4163-82fd-ef8418b9c35d"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "45156c86-ed04-4ed1-ab3e-f6610655eeb7"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"a0009353-ae06-4c08-8fbf-\ 41cf7715c417"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.733772384922531*^9, 3.7337723883077374`*^9}}, CellLabel-> "In[207]:=",ExpressionUUID->"9fd34e99-b9f9-4b79-b5ee-03d7de2ff267"], Cell["\<\ \\frac{1}{2} \\text{se} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\\\ delta _1(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ \\delta _1(k).\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ \\delta _2(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ \\delta _2(k).\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _1(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _1(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _2(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _2(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \ _1(\\text{sekk})+\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \ _2(\\text{sekk})-\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \ _1(\\text{sekk})+\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.\\\ delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \ _2(\\text{sekk})-\\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\text{se}\\right).\\delta \ _1(\\text{sekk})-i \\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.\\delta _1(k).\\text{se}\\right).\\delta \ _2(\\text{sekk})+i \\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\text{se}\\right).\\delta \ _1(\\text{sekk})-\\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.\\delta _2(k).\\text{se}\\right).\\delta \ _2(\\text{sekk})-\\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\text{se}\\right).\\delta \ _1(\\text{sekk})-i \\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\text{se}\\right).\\delta \ _2(\\text{sekk})+i \\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\text{se}\\right).\\delta \ _1(\\text{sekk})-\\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\text{se}\\right).\\delta \ _2(\\text{sekk})-\\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\delta _1(\\text{sekk})-\\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\delta _2(\\text{sekk})-\\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \ _1(\\text{sekk})-i \\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _1(\\text{se}).k.k.\\text{se}\\right).\\delta \ _2(\\text{sekk})+i \\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \ _1(\\text{sekk})-\\text{sekkse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.\\delta _2(\\text{se}).k.k.\\text{se}\\right).\\delta \ _2(\\text{sekk})+\\frac{1}{2} \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \ _1(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \ _1(k).\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \ _2(k).\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.\\delta \ _2(k).\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).k.\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} i \ \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(\\text{se}).k.k.\\text{se}\\right).\\delta _2(\\text{sekk})-\\frac{1}{2} i \ \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{se}\\right).\\delta _1(\\text{sekk})+\\frac{1}{2} \ \\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(\\text{se}).k.k.\\text{se}\\right).\\delta _2(\\text{sekk})+3 \\text{sekkse} D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\delta _1(\\text{sekk})+3 \\text{sekkse} D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\delta _2(\\text{sekk})-2 \\text{se} D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\delta _1(\\text{sekk})-2 \\text{se} \ D_3\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\delta _2(\\text{sekk})+\\frac{1}{2} \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta _1(k)-\\frac{1}{2} i \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta _2(k)+\\frac{1}{2} \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _1(k).k-\\frac{1}{2} i \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _2(k).k+\\frac{1}{2} i \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta _1(k)+\\frac{1}{2} \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\text{se}.k.\\delta _2(k)+\\frac{1}{2} i \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _1(k).k+\\frac{1}{2} \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _2(k).k+\\frac{1}{2} \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _1(\\text{se}).k.k-\\frac{1}{2} i \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _2(\\text{se}).k.k+\\frac{1}{2} i \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _1(\\text{se}).k.k+\\frac{1}{2} \\text{se} \ D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\\ frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{sekk}).\\text{se}\\right).\\text{se}.\\delta _2(\\text{se}).k.k\ \>", "Output", CellChangeTimes->{3.7740068622566566`*^9, 3.7740275919167824`*^9, 3.788689395716646*^9}, CellLabel-> "Out[207]//TeXForm=",ExpressionUUID->"4c7c902e-085a-4e82-91db-45ef5479adca"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.750261202645831*^9, 3.7502612081208715`*^9}},ExpressionUUID->"03e789ae-e360-47d7-9278-\ d11d3e6bd28e"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[208]:=",ExpressionUUID->"88936b24-f3ee-4653-811d-67569142f307"], Cell[BoxData["54"], "Output", CellChangeTimes->{3.774006862697606*^9, 3.774027591975625*^9, 3.7886893958093863`*^9}, CellLabel-> "Out[208]=",ExpressionUUID->"fc4d2efe-e721-449a-b44b-4fd03ee3b46c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["Integration in the radial part of the terms with all ", FontSize->18], Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]], FontSize->18,ExpressionUUID->"35619e41-a8b5-45f5-96ff-4968c7f7d77e"], StyleBox[" on the left", FontSize->18] }], "Section", CellChangeTimes->{{3.7502612365490675`*^9, 3.750261265487251*^9}, { 3.7502613472817965`*^9, 3.750261347321797*^9}},ExpressionUUID->"62cbd880-38a5-44df-86e6-\ 66b9d3cd08ca"], Cell[TextData[{ "We now apply the rearrangement lemma to do the integration in the radial \ part for the terms with all ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "5c684fcc-4377-462b-89a6-067f2c1c64f1"], " on the left. We reintroduce the ", Cell[BoxData[ FormBox[ SubscriptBox["b", "0"], TraditionalForm]],ExpressionUUID-> "3ec33cfd-9968-497f-9b37-fc42660a00d6"], " on the right but do not move it to the left." }], "Text", CellChangeTimes->{{3.7502613317406936`*^9, 3.750261379548998*^9}},ExpressionUUID->"b773581b-2591-4c33-a394-\ a4a94f70b9d1"], Cell[BoxData[ RowBox[{ RowBox[{"treatfinerem", "[", "stuff_", "]"}], ":=", RowBox[{"Select", "[", RowBox[{ RowBox[{"treatfine", "[", "stuff", "]"}], ",", RowBox[{ RowBox[{ RowBox[{"FreeQ", "[", RowBox[{"#", ",", "R"}], "]"}], "\[Equal]", "True"}], "&"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.727834552696624*^9, 3.72783458336642*^9}, { 3.727990599091962*^9, 3.7279906028137693`*^9}, {3.7291897939140368`*^9, 3.7291897991713715`*^9}, {3.7323989206501493`*^9, 3.7323989299165497`*^9}, 3.7323989641741495`*^9}, CellLabel-> "In[209]:=",ExpressionUUID->"2ab7bccc-0e78-48b5-b443-b4a77dd0fca5"], Cell[BoxData[ RowBox[{ RowBox[{"treattwo", "[", "stuff_", "]"}], ":=", RowBox[{"Total", "[", RowBox[{"treatfinerem", "[", "stuff", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.7325550301061835`*^9, 3.7325550432559357`*^9}}, CellLabel-> "In[210]:=",ExpressionUUID->"9b291168-758a-4189-aec0-cae1eae29ca0"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverse", "]"}], ",", RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 3.720468696854107*^9, {3.7325550585168085`*^9, 3.7325550635380955`*^9}}, CellLabel-> "In[211]:=",ExpressionUUID->"8e2b588e-8012-4914-81b7-e3015e0e85a0"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", "sse"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{"3", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{"3", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "-", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "-", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], "-", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", "1", "}"}], "\[Rule]", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.774006863485112*^9, 3.774027592100326*^9, 3.788689395966976*^9}, CellLabel-> "Out[211]=",ExpressionUUID->"ef775c29-3493-4772-bced-54839f5083ea"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Simplify", "[", RowBox[{"CoefficientRules", "[", RowBox[{ RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverseadj", "]"}], ",", RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.6914330532037125`*^9, 3.6914330914047127`*^9}, 3.720468696854107*^9, {3.7324895300935984`*^9, 3.7324895302339983`*^9}, { 3.732555067050297*^9, 3.7325550703664865`*^9}}, CellLabel-> "In[212]:=",ExpressionUUID->"bbce8eaa-6747-4042-9b2d-038e9acb139d"], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"{", "3", "}"}], "\[Rule]", RowBox[{"2", " ", SuperscriptBox["r", "4"], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", "se"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", "se"}]}], ")"}]}]}], ",", RowBox[{ RowBox[{"{", "2", "}"}], "\[Rule]", RowBox[{ RowBox[{"-", SuperscriptBox["r", "2"]}], " ", RowBox[{"(", RowBox[{ RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", "se"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", "se"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "se"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "se"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}], "+", RowBox[{"2", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "-", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}], "+", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}]}], ")"}]}]}]}], "}"}]], "Output", CellChangeTimes->{3.7740068638870716`*^9, 3.7740275922040153`*^9, 3.7886893961245427`*^9}, CellLabel-> "Out[212]=",ExpressionUUID->"21acfb67-661b-4db6-9683-94638d368254"] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"powwrem", "[", RowBox[{"{", "n_", "}"}], "]"}], ":=", RowBox[{ SuperscriptBox["r", RowBox[{ RowBox[{"-", "2"}], RowBox[{"(", RowBox[{"n", "-", "1"}], ")"}]}]], " ", "/", "2"}]}]], "Input", CellChangeTimes->{{3.732555366658433*^9, 3.7325553804992247`*^9}, { 3.7886896482481475`*^9, 3.788689648653097*^9}}, CellLabel-> "In[222]:=",ExpressionUUID->"f273023f-dd2e-4643-a78a-195b5ea52832"], Cell[BoxData[ RowBox[{ RowBox[{"transforem", "[", "stuff_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"Length", "[", RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"First", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}]}]], " ", "[", RowBox[{ RowBox[{"powwrem", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}], RowBox[{"Last", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}]}], "]"}]}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.732554978152212*^9, 3.7325550029896326`*^9}, { 3.7325550841392736`*^9, 3.73255511203887*^9}, {3.732555210214485*^9, 3.7325552180169315`*^9}, {3.7325553944990253`*^9, 3.7325553990742874`*^9}, {3.7337664589197807`*^9, 3.7337665543047495`*^9}, {3.7337676539962206`*^9, 3.7337676562523494`*^9}, {3.733767747996597*^9, 3.7337677481376047`*^9}, { 3.733767803070747*^9, 3.7337678333314776`*^9}, {3.7337678633401937`*^9, 3.7337678647412744`*^9}, {3.73468434595815*^9, 3.7346843916849566`*^9}, { 3.7350205541174564`*^9, 3.7350206491528234`*^9}, 3.7622023922045503`*^9, { 3.762203165403922*^9, 3.7622031659693823`*^9}}, CellLabel-> "In[223]:=",ExpressionUUID->"979cb5a1-b591-4e89-936e-8246eff8a2b1"], Cell[BoxData[ RowBox[{ RowBox[{"transforemadj", "[", "stuff_", "]"}], ":=", RowBox[{"Expand", "[", RowBox[{"Simplify", "[", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"j", "=", "1"}], RowBox[{"Length", "[", RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], "]"}]], RowBox[{"se", " ", RowBox[{ SubscriptBox["D", RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"First", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}]}]], " ", "[", RowBox[{ RowBox[{"powwrem", "[", RowBox[{"First", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}], "]"}], RowBox[{"Last", "[", RowBox[{"Part", "[", RowBox[{ RowBox[{"CoefficientRules", "[", RowBox[{"stuff", ",", RowBox[{"{", "S", "}"}]}], "]"}], ",", "j"}], "]"}], "]"}]}], "]"}]}]}], "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.732554978152212*^9, 3.7325550029896326`*^9}, { 3.7325550841392736`*^9, 3.73255511203887*^9}, {3.732555210214485*^9, 3.7325552180169315`*^9}, {3.7325553944990253`*^9, 3.7325553990742874`*^9}, {3.7337664589197807`*^9, 3.7337665543047495`*^9}, {3.7337676539962206`*^9, 3.7337676562523494`*^9}, {3.733767747996597*^9, 3.7337677481376047`*^9}, { 3.733767803070747*^9, 3.7337678333314776`*^9}, {3.7337678633401937`*^9, 3.7337678647412744`*^9}, {3.73468434595815*^9, 3.7346843916849566`*^9}, { 3.7350205541174564`*^9, 3.7350206491528234`*^9}, 3.7622023922045503`*^9, { 3.762203159798914*^9, 3.7622031678832664`*^9}}, CellLabel-> "In[224]:=",ExpressionUUID->"e377dbd9-4e3e-406e-944c-bb8ce67bf356"], Cell["For the integral of the terms for the first resolvent we get", "Text", CellChangeTimes->{{3.750260979751354*^9, 3.7502610012175097`*^9}},ExpressionUUID->"08570202-5575-4968-8781-\ 8d9adfdda434"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"remres0", "=", RowBox[{"transforem", "[", RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverse", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.73255516187272*^9, 3.732555179460726*^9}}, CellLabel-> "In[225]:=",ExpressionUUID->"69782674-7c56-4e3b-94cf-8bf48eda30ce"], Cell[BoxData[ RowBox[{ RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "0"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "0"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "0"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "0"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "0"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "0"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["3", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["3", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "+", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "+", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "sse"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "sse", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", FractionBox["1", "k"], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "sse"}], "]"}]}], "+", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}]}], "+", RowBox[{"sse", " ", RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "sse", ".", "k", ".", "k", ".", "sse", ".", "k", ".", "k", ".", "sse", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "ssekksse", "]"}], ".", "sse"}], "]"}]}]}]], "Output", CellChangeTimes->{3.7740068648042374`*^9, 3.7740275924503584`*^9, 3.788689396340966*^9, 3.7886896645855045`*^9}, CellLabel-> "Out[225]=",ExpressionUUID->"abb2cd51-d247-48e0-8988-02596c34c426"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "77e6c5a2-8689-4c2f-9e93-fc91be9a98e6"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"b5077878-be83-4957-abb9-\ 3ab21c0facb6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.733772319808017*^9, 3.7337723378572483`*^9}}, CellLabel-> "In[226]:=",ExpressionUUID->"5b6f71f7-3aea-456f-8a14-0c6a85c0731e"], Cell["\<\ \\frac{1}{2} \\text{sse} \ D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta _1^2(k).\ \\text{sse}\\right)+\\frac{1}{2} \\text{sse} \ D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\text{se}.\\delta _2^2(k).\\text{sse}\\right)+\\frac{1}{2} \\text{sse} \ D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\delta \ _1(\\text{se}).\\delta _1(k).\\text{sse}\\right)-\\frac{1}{2} i \\text{sse} D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\delta \ _1(\\text{se}).\\delta _2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse} \ D_0\\left(\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.k.\\delta \ _2(\\text{se}).\\delta _1(k).\\text{sse}\\right)+\\frac{1}{2} \\text{sse} D_0\\left(\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.\\delta _2(\\text{se}).\\delta \ _2(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta \ _1^2(\\text{ssekksse}).\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta _2^2(\\text{ssekksse}).\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\text{se}.\\delta _1^2(k).\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\text{se}.\\delta _2^2(k).\\text{sse}\\right)-\\frac{3}{2} \ \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\delta _1(\\text{se}).\\delta \ _1(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\delta _1(\\text{se}).\\delta \ _2(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\delta _1^2(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \ i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\delta _2(\\text{se}).\\delta \ _1(k).\\text{sse}\\right)-\\frac{3}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\delta _2(\\text{se}).\\delta \ _2(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.k.\\delta _2^2(\\text{se}).k.\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta _1(k).\\text{se}.\\delta \ _1(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta _1(k).\\delta \ _1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta _1(k).\\delta \ _2(\\text{se}).k.\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta _2(k).\\text{se}.\\delta \ _2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta _2(k).\\delta \ _1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\delta _2(k).\\delta \ _2(\\text{se}).k.\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\text{se}.\\delta \ _1(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _1(k).k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\text{se}.\\delta \ _2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\text{se}.\\delta _2(k).k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\text{se}.\\delta \ _1(k).\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta _1(\\text{se}).k.k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right)-\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\text{se}.\\delta \ _2(k).\\text{sse}\\right)+\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right)-\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta _2(\\text{se}).k.k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right)+\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta \ _1(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _1(k).\\text{sse}\\right)+\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta \ _1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right)+\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\text{sse}.k.k.\\text{sse}.\\frac{1}{k}.\\delta \ _1(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right)+\\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{sse}.\ k.k.\\text{sse}.\\frac{1}{k}.\\delta \ _2(k).\\frac{1}{k}.\\text{se}.k.k.\\text{se}.\\delta \ _2(k).\\text{sse}\\right)-\\frac{1}{2} i \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\text{sse}.k.k.\\text{sse}.\\frac{1}{k}.\\delta \ _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _1(\\text{se}).k.\\text{sse}\\right)+\\frac{1}{2} \\text{sse} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\text{sse}.k.k.\\text{sse}.\\frac{1}{k}.\\delta \ _2(k).\\frac{1}{k}.\\text{se}.k.k.\\delta \ _2(\\text{se}).k.\\text{sse}\\right)+\\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{sse}.\\delta \ _1^2(\\text{ssekksse}).\\text{sse}\\right)+\\text{sse} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{sse}.k.k.\\text{sse}.k.k.\\text{sse}.\\delta \ _2^2(\\text{ssekksse}).\\text{sse}\\right)\ \>", "Output", CellChangeTimes->{3.774006864955098*^9, 3.7740275926089315`*^9, 3.788689396457652*^9, 3.788689664692232*^9}, CellLabel-> "Out[226]//TeXForm=",ExpressionUUID->"9e6a32d5-576c-4784-b94f-5dc77509cccf"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.7502614162212305`*^9, 3.750261422414281*^9}},ExpressionUUID->"4b9b1541-ea3e-428b-a3cd-\ 759ebfd88296"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[227]:=",ExpressionUUID->"b80029a0-c6a0-44d3-8320-91b02f41c5c7"], Cell[BoxData["42"], "Output", CellChangeTimes->{3.7740068650789595`*^9, 3.774027592663784*^9, 3.7886893965474124`*^9, 3.788689664724145*^9}, CellLabel-> "Out[227]=",ExpressionUUID->"6bc50a18-e3c0-47ea-9383-10740e63d882"] }, Open ]], Cell["\<\ For the integral of the terms for the second resolvent we get\ \>", "Text", CellChangeTimes->{{3.750260979751354*^9, 3.7502610012175097`*^9}, { 3.75026118079967*^9, 3.7502611822146916`*^9}},ExpressionUUID->"d77d1a2c-ff78-4164-8e72-\ 42ca426008ab"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"remres0adj", "=", RowBox[{"transforemadj", "[", RowBox[{"treattwo", "[", "minusinnerintegraltimesb0inverseadj", "]"}], "]"}]}]], "Input", CellChangeTimes->{{3.732555181767858*^9, 3.7325551969337254`*^9}, { 3.7622043508456364`*^9, 3.7622043510540323`*^9}}, CellLabel-> "In[228]:=",ExpressionUUID->"c6b8377c-8554-456c-ad3d-43f80c41fbea"], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}]}], "+", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "se", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "k", "]"}], ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "\[ImaginaryI]", " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "1"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}]}], "-", RowBox[{ FractionBox["1", "2"], " ", "se", " ", RowBox[{ SubscriptBox["D", "1"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", RowBox[{ SubscriptBox["\[Delta]", "2"], "[", "se", "]"}], ".", "k", ".", "k", ".", "se"}], "]"}]}], "+", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "1", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}]}], "+", RowBox[{"se", " ", RowBox[{ SubscriptBox["D", "2"], "[", RowBox[{ FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", FractionBox["1", "k"], ".", "se", ".", "k", ".", "k", ".", "se", ".", "k", ".", "k", ".", RowBox[{ SubsuperscriptBox["\[Delta]", "2", "2"], "[", "sekk", "]"}], ".", "se"}], "]"}]}]}]], "Output", CellChangeTimes->{3.774006865699882*^9, 3.774027592735594*^9, 3.788689396652135*^9, 3.7886896647730155`*^9}, CellLabel-> "Out[228]=",ExpressionUUID->"f3d483b3-2365-43d0-9e9b-281d2b8b801e"] }, Open ]], Cell[TextData[{ "with ", Cell[BoxData[ FormBox[ StyleBox[ RowBox[{"L", StyleBox[ AdjustmentBox["A", BoxBaselineShift->-0.4, BoxMargins->{{-0.5, -0.3}, {0, 0}}], FontSize->Smaller], "T", AdjustmentBox["E", BoxBaselineShift->0.5, BoxMargins->{{-0.3, 0}, {0, 0}}], "X"}], SingleLetterItalics->False], TraditionalForm]],ExpressionUUID-> "90a03e39-b392-4df2-859c-3de0a1e9072c"], " Code" }], "Text", CellChangeTimes->{{3.750259696234947*^9, 3.7502597030239873`*^9}},ExpressionUUID->"d4a6aa4d-8cf1-408e-a4fe-\ 2f8ec8cfa713"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TeXForm", "[", "%", "]"}]], "Input", CellChangeTimes->{{3.733772319808017*^9, 3.7337723378572483`*^9}}, CellLabel-> "In[229]:=",ExpressionUUID->"5fa1b32a-18ce-4949-9b40-aa99e6d6b84f"], Cell["\<\ -\\frac{1}{2} \\text{se} \ D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.k.\ \\delta _1^2(\\text{sekk}).\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _2^2(\\text{sekk}).\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.k.\\delta _1^2(k).\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.k.\\delta _2^2(k).\\text{se}\\right)-\\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _1(k).\\delta _1(k).\\text{se}\\right)-\\frac{1}{2} \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _1^2(k).k.\\text{se}\\right)-\\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _2(k).\\delta _2(k).\\text{se}\\right)-\\frac{1}{2} \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _2^2(k).k.\\text{se}\\right)-\\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _1(\\text{se}).k.\\delta \ _1(k).\\text{se}\\right)-\\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _1(\\text{se}).\\delta \ _1(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _1^2(\\text{se}).k.k.\\text{se}\\right)-\\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _2(\\text{se}).k.\\delta \ _2(k).\\text{se}\\right)-\\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _2(\\text{se}).\\delta \ _2(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\text{se}.\\delta _2^2(\\text{se}).k.k.\\text{se}\\right)-\\frac{1}{2} \ \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _1(\\text{se}).\\text{se}.k.\\delta \ _1(k).\\text{se}\\right)+\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _1(\\text{se}).\\text{se}.k.\\delta \ _2(k).\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _1(\\text{se}).\\text{se}.\\delta \ _1(k).k.\\text{se}\\right)+\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _1(\\text{se}).\\text{se}.\\delta \ _2(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _1(\\text{se}).\\delta \ _1(\\text{se}).k.k.\\text{se}\\right)+\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _1(\\text{se}).\\delta \ _2(\\text{se}).k.k.\\text{se}\\right)-\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _2(\\text{se}).\\text{se}.k.\\delta \ _1(k).\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _2(\\text{se}).\\text{se}.k.\\delta \ _2(k).\\text{se}\\right)-\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _2(\\text{se}).\\text{se}.\\delta \ _1(k).k.\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _2(\\text{se}).\\text{se}.\\delta \ _2(k).k.\\text{se}\\right)-\\frac{1}{2} i \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _2(\\text{se}).\\delta \ _1(\\text{se}).k.k.\\text{se}\\right)-\\frac{1}{2} \\text{se} D_1\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\text{se}.k.\ k.\\delta _2(\\text{se}).\\delta \ _2(\\text{se}).k.k.\\text{se}\\right)+\\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \ _1^2(\\text{sekk}).\\text{se}\\right)+\\text{se} D_2\\left(\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\\frac{1}{k}.\ \\frac{1}{k}.\\text{se}.k.k.\\text{se}.k.k.\\delta \ _2^2(\\text{sekk}).\\text{se}\\right)\ \>", "Output", CellChangeTimes->{3.774006866368987*^9, 3.7740275928103924`*^9, 3.7886893967588477`*^9, 3.7886896648397927`*^9}, CellLabel-> "Out[229]//TeXForm=",ExpressionUUID->"6f876ac0-a2ff-40b7-b43c-2d42e56ca5fa"] }, Open ]], Cell["and the following number of terms:", "Text", CellChangeTimes->{{3.7502614162212305`*^9, 3.750261422414281*^9}},ExpressionUUID->"bda2b982-d4a7-4508-826f-\ 7c40f4abb7b6"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Length", "[", "%%", "]"}]], "Input", CellChangeTimes->{{3.737791221809146*^9, 3.7377912239463496`*^9}}, CellLabel-> "In[230]:=",ExpressionUUID->"3ea26f06-0ec4-4a62-b3b9-653ca6b045a7"], Cell[BoxData["28"], "Output", CellChangeTimes->{3.7740068675510807`*^9, 3.774027592882236*^9, 3.788689396846613*^9, 3.7886896648926992`*^9}, CellLabel-> "Out[230]=",ExpressionUUID->"2c582314-1312-4ade-a158-9fa66989685e"] }, Open ]] }, Open ]] }, WindowSize->{1520, 781}, WindowMargins->{{-8, Automatic}, {Automatic, 0}}, TaggingRules->{"Salvaged" -> True}, FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 527, 8, 95, "Section",ExpressionUUID->"9db82461-7aec-4634-8d05-7c1a310fed20"], Cell[1110, 32, 907, 15, 56, "Text",ExpressionUUID->"16611ee0-c12e-4940-bcd9-1444b7154940"] }, Open ]], Cell[CellGroupData[{ Cell[2054, 52, 220, 4, 54, "Section",ExpressionUUID->"1b3eb759-469f-49db-93b9-a5908c79fad2"], Cell[2277, 58, 158, 3, 34, "Text",ExpressionUUID->"ee62daac-674e-4816-89ec-3a147e17915d"], Cell[2438, 63, 410, 9, 28, "Input",ExpressionUUID->"f0b11829-006d-4e31-b478-86d32ef65cbb"], Cell[2851, 74, 155, 3, 34, "Text",ExpressionUUID->"07281f15-fa42-4e17-a884-9eee45220d0d"], Cell[3009, 79, 494, 12, 28, "Input",ExpressionUUID->"bd269bc5-733c-4bd3-b026-c34ecb317453"], Cell[3506, 93, 294, 4, 34, "Text",ExpressionUUID->"d6e8e06a-6fde-4d9a-8209-1762458c3c6d"], Cell[3803, 99, 469, 12, 28, "Input",ExpressionUUID->"23e592db-2bb3-4b98-ac95-aa150a564e41"], Cell[4275, 113, 189, 3, 34, "Text",ExpressionUUID->"eed95235-7b4f-4d02-bb3d-e08739e81836"], Cell[4467, 118, 594, 16, 28, "Input",ExpressionUUID->"32ec6f9c-9706-49b0-8f59-a593c6ddf890"], Cell[5064, 136, 181, 3, 34, "Text",ExpressionUUID->"f5a42438-febf-4ffe-8f5f-0d3f4d843beb"], Cell[5248, 141, 895, 24, 28, "Input",ExpressionUUID->"5b5e261e-04dc-4df5-a9d6-8cfcb4e90b33"], Cell[6146, 167, 173, 3, 34, "Text",ExpressionUUID->"d74d5da6-4fda-42ea-a7d3-8df52bfd9130"], Cell[6322, 172, 676, 18, 28, "Input",ExpressionUUID->"3ef3f123-b5b4-4ce6-8c3d-5495f8a3ae1a"], Cell[7001, 192, 193, 3, 34, "Text",ExpressionUUID->"2d2b8ad2-6487-4b1b-b3eb-f416daeecbd7"], Cell[7197, 197, 686, 15, 32, "Input",ExpressionUUID->"81b508fb-c52f-4830-bcbb-5f21a64fadc6"], Cell[7886, 214, 568, 14, 32, "Input",ExpressionUUID->"9e5402b5-3537-4c41-874f-91afab10419d"], Cell[8457, 230, 477, 12, 28, "Input",ExpressionUUID->"af5d3ef6-e6c8-4388-9967-75e9ea257363"], Cell[8937, 244, 527, 13, 28, "Input",ExpressionUUID->"7c0c06c5-1122-4b7a-a4cc-467f3e6eecb6"], Cell[9467, 259, 198, 3, 34, "Text",ExpressionUUID->"8503b803-c09c-4a36-9b03-219df307e54f"], Cell[9668, 264, 1835, 44, 28, "Input",ExpressionUUID->"0abe854e-979f-49b1-a985-93941b6567b4"], Cell[11506, 310, 639, 11, 34, "Text",ExpressionUUID->"50d52f89-2315-45e8-995e-4d987dd533a1"], Cell[CellGroupData[{ Cell[12170, 325, 374, 8, 28, "Input",ExpressionUUID->"91622c65-b8ee-48e8-a5a9-6f123e04c2cf"], Cell[12547, 335, 432, 12, 32, "Output",ExpressionUUID->"0f368809-3080-4b57-ae10-b700cfb6d1a2"] }, Open ]], Cell[CellGroupData[{ Cell[13016, 352, 373, 8, 28, "Input",ExpressionUUID->"c1b4e7e9-059c-4578-bbce-557376dc80b7"], Cell[13392, 362, 428, 12, 32, "Output",ExpressionUUID->"2b697e44-94f0-4cff-ac84-81fc7e3f443f"] }, Open ]], Cell[CellGroupData[{ Cell[13857, 379, 356, 8, 28, "Input",ExpressionUUID->"091c3dc7-058c-44cb-b7ee-e37c8151aeb9"], Cell[14216, 389, 432, 12, 32, "Output",ExpressionUUID->"9661ebbc-114e-4210-a271-b776e2e505ee"] }, Open ]], Cell[CellGroupData[{ Cell[14685, 406, 356, 8, 28, "Input",ExpressionUUID->"e271876b-6956-4574-bd5e-525f41f67dba"], Cell[15044, 416, 428, 12, 32, "Output",ExpressionUUID->"23e3fbe7-cfd8-4240-b9ee-5a12f65ac049"] }, Open ]], Cell[CellGroupData[{ Cell[15509, 433, 356, 8, 28, "Input",ExpressionUUID->"e3e42bed-fd9f-4530-9d8b-23fdd0668145"], Cell[15868, 443, 428, 12, 32, "Output",ExpressionUUID->"d22c34ac-05c9-41e4-8943-46c6365d2a59"] }, Open ]], Cell[CellGroupData[{ Cell[16333, 460, 372, 8, 28, "Input",ExpressionUUID->"74cec73f-64eb-47f1-8efc-d6e3d7d64f00"], Cell[16708, 470, 426, 12, 32, "Output",ExpressionUUID->"e86dbe72-bc0e-4c98-a178-a762729a7436"] }, Open ]], Cell[CellGroupData[{ Cell[17171, 487, 323, 7, 28, "Input",ExpressionUUID->"48bf5dd0-05a7-4bed-8a01-81a1d6fe25d1"], Cell[17497, 496, 432, 12, 32, "Output",ExpressionUUID->"913e493a-1ab3-4ad8-9c1a-a46802628124"] }, Open ]], Cell[CellGroupData[{ Cell[17966, 513, 358, 8, 28, "Input",ExpressionUUID->"9287a834-a33c-48d1-9352-cee78b77864a"], Cell[18327, 523, 430, 12, 32, "Output",ExpressionUUID->"f7ab5cd2-211b-4a95-8b83-37251c2b6261"] }, Open ]], Cell[CellGroupData[{ Cell[18794, 540, 358, 8, 28, "Input",ExpressionUUID->"1fdefa6f-46e2-4786-be77-c406c2f503ab"], Cell[19155, 550, 425, 12, 32, "Output",ExpressionUUID->"ef1470db-6967-46ed-945c-0b7fc1655d67"] }, Open ]], Cell[CellGroupData[{ Cell[19617, 567, 358, 8, 28, "Input",ExpressionUUID->"3126c45c-9392-4d0b-8cc1-cfb556fc0c9c"], Cell[19978, 577, 430, 12, 32, "Output",ExpressionUUID->"38161028-c3d5-4604-bc88-31a50d462d47"] }, Open ]], Cell[CellGroupData[{ Cell[20445, 594, 328, 7, 28, "Input",ExpressionUUID->"1adff0e6-3898-4733-9d41-8df79fef51d8"], Cell[20776, 603, 431, 12, 32, "Output",ExpressionUUID->"78dfbbb0-94c2-4ce1-9e37-11137d6a8a9b"] }, Open ]], Cell[CellGroupData[{ Cell[21244, 620, 330, 7, 28, "Input",ExpressionUUID->"045d3341-1743-419b-bb53-1311f022cec2"], Cell[21577, 629, 435, 12, 32, "Output",ExpressionUUID->"94c804dd-6c5b-4301-9704-6b5fcbf319ae"] }, Open ]], Cell[CellGroupData[{ Cell[22049, 646, 359, 8, 28, "Input",ExpressionUUID->"80ab7d05-3c63-4422-9c2c-275ae8286e4c"], Cell[22411, 656, 433, 12, 32, "Output",ExpressionUUID->"e06970fd-b89b-4315-9aa5-3359ffe67cff"] }, Open ]], Cell[CellGroupData[{ Cell[22881, 673, 361, 8, 28, "Input",ExpressionUUID->"dc99d7ba-c78e-40d9-a6bc-fce3b8bd2378"], Cell[23245, 683, 431, 12, 32, "Output",ExpressionUUID->"0d51862f-3c69-4be6-a2d6-dfa62d88dc06"] }, Open ]], Cell[CellGroupData[{ Cell[23713, 700, 361, 8, 28, "Input",ExpressionUUID->"0efa99be-098c-44d9-9265-dabd7cc86edc"], Cell[24077, 710, 433, 12, 32, "Output",ExpressionUUID->"1db87618-88ad-4449-939e-ce9ccc3e33eb"] }, Open ]], Cell[CellGroupData[{ Cell[24547, 727, 428, 9, 28, "Input",ExpressionUUID->"66c9a570-a888-4018-abfe-3ac5f70049bf"], Cell[24978, 738, 429, 12, 32, "Output",ExpressionUUID->"3eac1e3e-65e8-43a4-ba63-a9dd2545068a"] }, Open ]], Cell[CellGroupData[{ Cell[25444, 755, 427, 9, 28, "Input",ExpressionUUID->"2e276331-bd3c-4dc9-9628-2a7b7fda01d4"], Cell[25874, 766, 431, 12, 32, "Output",ExpressionUUID->"4bc5db6b-f478-493d-bc7b-68d12b60b011"] }, Open ]], Cell[CellGroupData[{ Cell[26342, 783, 410, 9, 28, "Input",ExpressionUUID->"13f7ec0b-0e24-4fc9-9bcd-e14e5a803946"], Cell[26755, 794, 426, 12, 32, "Output",ExpressionUUID->"1dbc0d43-dedd-4de2-b13c-8869b3e670b7"] }, Open ]], Cell[CellGroupData[{ Cell[27218, 811, 408, 9, 28, "Input",ExpressionUUID->"4bb3f349-ab98-4d04-86f3-77f6f525fa47"], Cell[27629, 822, 433, 12, 32, "Output",ExpressionUUID->"ea6853da-4764-47a8-8e34-adf8ed049b96"] }, Open ]], Cell[CellGroupData[{ Cell[28099, 839, 408, 9, 28, "Input",ExpressionUUID->"7491569a-1cb5-4a41-b9b2-860566606e15"], Cell[28510, 850, 426, 12, 32, "Output",ExpressionUUID->"07c27571-5251-49b3-b9ae-9ebc974ac689"] }, Open ]], Cell[CellGroupData[{ Cell[28973, 867, 432, 9, 28, "Input",ExpressionUUID->"97dae85f-f619-4e78-a5c7-1181121b0b1a"], Cell[29408, 878, 437, 12, 32, "Output",ExpressionUUID->"50c29a6b-67bf-4753-9ceb-3d612b176092"] }, Open ]], Cell[CellGroupData[{ Cell[29882, 895, 429, 9, 28, "Input",ExpressionUUID->"72ea00e5-370c-442f-bae2-4f44c82b640a"], Cell[30314, 906, 435, 12, 32, "Output",ExpressionUUID->"85e66452-19ab-4ebb-ac96-07b0a24e9a6e"] }, Open ]], Cell[CellGroupData[{ Cell[30786, 923, 411, 9, 28, "Input",ExpressionUUID->"8bdb6621-bdbe-402f-8b39-b9230fccb028"], Cell[31200, 934, 437, 12, 32, "Output",ExpressionUUID->"7019df04-2e35-4889-8cc3-25fd6289399c"] }, Open ]], Cell[CellGroupData[{ Cell[31674, 951, 414, 9, 28, "Input",ExpressionUUID->"adb0fcbd-cc39-4c68-a67f-49147e336bc4"], Cell[32091, 962, 433, 12, 32, "Output",ExpressionUUID->"2c6f1fb0-8261-45ea-97ad-561e4a33e503"] }, Open ]], Cell[CellGroupData[{ Cell[32561, 979, 412, 9, 28, "Input",ExpressionUUID->"0cfa2561-1773-47c1-9dfc-68ffd854501f"], Cell[32976, 990, 439, 12, 32, "Output",ExpressionUUID->"5b48c9fb-ec2c-4ea4-a81a-e78bf6b2ab05"] }, Open ]], Cell[CellGroupData[{ Cell[33452, 1007, 430, 9, 28, "Input",ExpressionUUID->"8afe9c3c-a372-4e32-9078-15d82e28a25d"], Cell[33885, 1018, 433, 12, 32, "Output",ExpressionUUID->"a504017f-4cd0-4e8f-814b-8515aac87b02"] }, Open ]], Cell[CellGroupData[{ Cell[34355, 1035, 427, 9, 28, "Input",ExpressionUUID->"d84d9780-a2ba-48af-8dfe-804b01e8a625"], Cell[34785, 1046, 430, 12, 32, "Output",ExpressionUUID->"c10bfd00-14b7-465a-bc70-47703cb0d88c"] }, Open ]], Cell[CellGroupData[{ Cell[35252, 1063, 410, 9, 28, "Input",ExpressionUUID->"75c1ada7-6649-4e9e-9790-4412553113c0"], Cell[35665, 1074, 430, 12, 32, "Output",ExpressionUUID->"e7a1b064-7257-475c-b8bd-8120f9a5b717"] }, Open ]], Cell[CellGroupData[{ Cell[36132, 1091, 408, 9, 28, "Input",ExpressionUUID->"709a699d-3187-45c0-8919-9c51bd5e26b3"], Cell[36543, 1102, 432, 12, 32, "Output",ExpressionUUID->"bdbad613-979c-4c58-b248-7dc17eff54bc"] }, Open ]], Cell[CellGroupData[{ Cell[37012, 1119, 408, 9, 28, "Input",ExpressionUUID->"cc7dcf89-5c24-4066-8a31-032aeb17a0b3"], Cell[37423, 1130, 433, 12, 32, "Output",ExpressionUUID->"b9bd2c5a-210b-4a98-91c6-24e4b0bfe334"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[37905, 1148, 209, 4, 54, "Section",ExpressionUUID->"01a1336d-bcb5-4d03-93b7-9fe3aff6d500"], Cell[38117, 1154, 269, 6, 34, "Text",ExpressionUUID->"39bf327d-3179-48d7-8048-86ecde796740"], Cell[38389, 1162, 489, 10, 28, "Input",ExpressionUUID->"99fd3f8a-b958-485c-ac47-5e3311091275"], Cell[38881, 1174, 571, 13, 28, "Input",ExpressionUUID->"5a0b3ce6-f2aa-46d6-b3b3-6f9e66a4cf2e"], Cell[39455, 1189, 430, 11, 28, "Input",ExpressionUUID->"5c58c4e9-7f2a-411f-9d72-af838d6e81a4"], Cell[39888, 1202, 472, 10, 45, "Input",ExpressionUUID->"111b0f83-a4ef-4b5c-bf15-9306abb42605"], Cell[40363, 1214, 416, 9, 45, "Input",ExpressionUUID->"815281f8-31ae-4387-aa52-0642df2e7942"], Cell[40782, 1225, 353, 7, 28, "Input",ExpressionUUID->"0abaa518-594d-4254-9b29-6177761b2f24"], Cell[41138, 1234, 355, 8, 28, "Input",ExpressionUUID->"acfc3ff2-4053-4cfe-8b83-c2f67992649e"], Cell[41496, 1244, 381, 8, 28, "Input",ExpressionUUID->"6587af05-a5e9-4344-9c23-62a1c5e56600"], Cell[41880, 1254, 423, 9, 28, "Input",ExpressionUUID->"396ad06a-fdf1-4250-9e09-7509419a2872"], Cell[42306, 1265, 407, 8, 28, "Input",ExpressionUUID->"8d796328-467b-4421-ab69-4506af3f3b0f"], Cell[42716, 1275, 573, 11, 45, "Input",ExpressionUUID->"00c44b59-88d4-41ae-9dcd-d617302ce271"], Cell[43292, 1288, 457, 8, 28, "Input",ExpressionUUID->"7b70c316-7e9e-47e7-bf99-93b932ca7905"], Cell[43752, 1298, 472, 12, 28, "Input",ExpressionUUID->"3507916f-5ca7-4a89-9ced-46249f72de58"], Cell[44227, 1312, 335, 7, 28, "Input",ExpressionUUID->"6bc3c611-4713-443f-b022-0d7df40fad86"], Cell[44565, 1321, 325, 6, 28, "Input",ExpressionUUID->"30289794-a5cf-4517-8881-4942df937198"], Cell[44893, 1329, 478, 11, 28, "Input",ExpressionUUID->"34b05d8f-9a1c-40a3-9b2e-ca789fe0df6a"], Cell[45374, 1342, 18562, 519, 213, "Input",ExpressionUUID->"9fdc53d8-f9eb-400d-b177-0f6429a25f55"], Cell[CellGroupData[{ Cell[63961, 1865, 452, 11, 28, "Input",ExpressionUUID->"cce67af6-162a-4d43-b8ad-3a492909436d"], Cell[64416, 1878, 222, 4, 32, "Output",ExpressionUUID->"38efac4b-1f44-43d3-b8dd-bdd3528dfdee"] }, Open ]], Cell[CellGroupData[{ Cell[64675, 1887, 489, 12, 28, "Input",ExpressionUUID->"36067100-ee05-43ae-a5d3-c0350dfd43fd"], Cell[65167, 1901, 388, 10, 32, "Output",ExpressionUUID->"27cf81c7-6fdc-4594-a0f8-ac21704f849c"] }, Open ]], Cell[CellGroupData[{ Cell[65592, 1916, 579, 15, 28, "Input",ExpressionUUID->"a1a81dfe-dcd3-4e89-a224-685407f8ed2d"], Cell[66174, 1933, 866, 27, 32, "Output",ExpressionUUID->"8e65aab5-ff96-481f-adf7-9130226df354"] }, Open ]], Cell[CellGroupData[{ Cell[67077, 1965, 326, 7, 28, "Input",ExpressionUUID->"6eb73b36-1f3a-4dc1-8dbb-c56db5eb4786"], Cell[67406, 1974, 203, 3, 32, "Output",ExpressionUUID->"50b7598b-c6e3-4902-9964-b7bc502d58ab"] }, Open ]], Cell[CellGroupData[{ Cell[67646, 1982, 363, 8, 28, "Input",ExpressionUUID->"d51da206-9b27-453a-8b19-350ac4dd6e8d"], Cell[68012, 1992, 254, 5, 32, "Output",ExpressionUUID->"cd39eff4-a207-4b69-a9f7-97a853b357ab"] }, Open ]], Cell[CellGroupData[{ Cell[68303, 2002, 400, 10, 28, "Input",ExpressionUUID->"b470d256-2b1b-48ed-9d9d-0414e29fc1f8"], Cell[68706, 2014, 308, 7, 32, "Output",ExpressionUUID->"c468efb8-88d9-4dda-9e74-bc2f5054c029"] }, Open ]], Cell[CellGroupData[{ Cell[69051, 2026, 989, 25, 28, "Input",ExpressionUUID->"a46e4fd0-2a16-4c7a-8300-135bf7d29115"], Cell[70043, 2053, 1201, 33, 49, "Output",ExpressionUUID->"14f46974-3040-4761-90b6-c84aaad7ce0a"] }, Open ]], Cell[CellGroupData[{ Cell[71281, 2091, 987, 25, 28, "Input",ExpressionUUID->"56fcd51f-9b69-43b9-9baf-205b979a7899"], Cell[72271, 2118, 1201, 33, 49, "Output",ExpressionUUID->"beee2f70-74c5-452b-a053-9760c701a836"] }, Open ]], Cell[CellGroupData[{ Cell[73509, 2156, 1038, 27, 28, "Input",ExpressionUUID->"a0e22477-a073-4d95-a4d2-b62464fa88fa"], Cell[74550, 2185, 5590, 163, 158, "Output",ExpressionUUID->"427bb681-bcb4-4222-8eb1-8281736de3e9"] }, Open ]], Cell[CellGroupData[{ Cell[80177, 2353, 1040, 27, 28, "Input",ExpressionUUID->"9cf538e8-054f-493d-914e-8991a96c9119"], Cell[81220, 2382, 9346, 276, 230, "Output",ExpressionUUID->"94a4974f-bd11-45e8-a175-d9c071d7015d"] }, Open ]], Cell[CellGroupData[{ Cell[90603, 2663, 1042, 27, 28, "Input",ExpressionUUID->"9c9fcd0c-1b59-4186-8257-7e55f64014f7"], Cell[91648, 2692, 5588, 163, 158, "Output",ExpressionUUID->"dadc5327-dd19-41f9-b088-73cf5c296755"] }, Open ]], Cell[CellGroupData[{ Cell[97273, 2860, 701, 17, 28, "Input",ExpressionUUID->"721b1ed3-f65c-4e31-8b21-d574977e916c"], Cell[97977, 2879, 514, 14, 32, "Output",ExpressionUUID->"7558c564-01b2-48ed-b050-aa954bfbcb57"] }, Open ]], Cell[CellGroupData[{ Cell[98528, 2898, 703, 17, 28, "Input",ExpressionUUID->"bd226353-8c48-4426-9c8a-bb0f680530d9"], Cell[99234, 2917, 518, 14, 32, "Output",ExpressionUUID->"d0dc746e-990c-4cab-b79b-9d41a08de58b"] }, Open ]], Cell[CellGroupData[{ Cell[99789, 2936, 745, 19, 28, "Input",ExpressionUUID->"e0c20d59-bcdd-4325-8142-bb080e71f95f"], Cell[100537, 2957, 1120, 32, 34, "Output",ExpressionUUID->"016545d1-95fe-486f-bb63-5d539647a425"] }, Open ]], Cell[CellGroupData[{ Cell[101694, 2994, 751, 19, 28, "Input",ExpressionUUID->"3263ac1c-40a5-4a33-841f-0b2ff53f1015"], Cell[102448, 3015, 1756, 54, 32, "Output",ExpressionUUID->"c5461feb-43a1-4efd-84fe-cfd89b853e95"] }, Open ]], Cell[CellGroupData[{ Cell[104241, 3074, 747, 19, 28, "Input",ExpressionUUID->"355b8f8e-44ef-4473-a190-ca00cf08a34b"], Cell[104991, 3095, 1123, 32, 34, "Output",ExpressionUUID->"4aa4d815-bcac-4cb7-b422-c98378262c77"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[106163, 3133, 361, 6, 54, "Section",ExpressionUUID->"6b9f2e46-b9d1-4516-aac6-d3811d21837f"], Cell[106527, 3141, 189, 3, 34, "Text",ExpressionUUID->"97d57b98-de8d-4756-a400-52fead155efc"], Cell[106719, 3146, 702, 15, 28, "Input",ExpressionUUID->"be45ebb9-f9bd-49ff-9712-7aad68613d35"], Cell[107424, 3163, 607, 14, 28, "Input",ExpressionUUID->"e2b4d932-14e5-487a-b1a4-f6f00bb9ec2b"], Cell[CellGroupData[{ Cell[108056, 3181, 583, 11, 28, "Input",ExpressionUUID->"74a486cc-de17-4d2f-be7e-5fe29c51c20a"], Cell[108642, 3194, 251, 5, 49, "Output",ExpressionUUID->"a9a18856-4c30-4e77-a8c8-d5b5edbc2b2f"] }, Open ]], Cell[CellGroupData[{ Cell[108930, 3204, 2640, 57, 28, "Input",ExpressionUUID->"217c76c2-ccda-4808-b774-0a89e19fcab0"], Cell[111573, 3263, 21216, 621, 441, "Output",ExpressionUUID->"a3f3178a-c412-4c63-b261-4a2e5b5d245b"] }, Open ]], Cell[CellGroupData[{ Cell[132826, 3889, 1689, 40, 28, "Input",ExpressionUUID->"059cc991-175c-4781-8c46-ed14596d4728"], Cell[134518, 3931, 10059, 293, 197, "Output",ExpressionUUID->"767ec6f2-aef0-41c5-9966-a102aa56a6dd"] }, Open ]], Cell[CellGroupData[{ Cell[144614, 4229, 140, 2, 28, "Input",ExpressionUUID->"e500d879-733c-4627-bf42-57b71e75eb61"], Cell[144757, 4233, 2972, 78, 85, "Output",ExpressionUUID->"42cba123-436b-41d8-85da-885f14aefe03"] }, Open ]], Cell[CellGroupData[{ Cell[147766, 4316, 291, 5, 28, "Input",ExpressionUUID->"787596a9-eba9-443c-abff-b8f19f15e5fc"], Cell[148060, 4323, 2426, 72, 53, "Output",ExpressionUUID->"54dafb2c-2f75-4df9-9eb9-c82ca7b46839"] }, Open ]], Cell[CellGroupData[{ Cell[150523, 4400, 543, 13, 28, "Input",ExpressionUUID->"29b58226-e82b-4e9f-bece-c2d33995f863"], Cell[151069, 4415, 3919, 106, 140, "Output",ExpressionUUID->"21f88db5-83e0-4607-942e-fd519e52cee5"] }, Open ]], Cell[CellGroupData[{ Cell[155025, 4526, 598, 14, 28, "Input",ExpressionUUID->"76e391b2-b7de-4262-b201-1d3ab9910cbc"], Cell[155626, 4542, 2863, 83, 96, "Output",ExpressionUUID->"280d1cb6-988d-4f0e-8bbf-9831cae2f518"] }, Open ]], Cell[158504, 4628, 194, 3, 34, "Text",ExpressionUUID->"5aaeec37-b014-4faa-a14b-b302d8071bf2"], Cell[158701, 4633, 905, 21, 30, "Input",ExpressionUUID->"edf0e4aa-7966-4a37-85a2-8a4b9ed6e75d"], Cell[159609, 4656, 194, 3, 34, "Text",ExpressionUUID->"e571e048-a790-4395-b431-5be6763170f1"], Cell[159806, 4661, 778, 20, 30, "Input",ExpressionUUID->"7d19e6e6-677a-4f21-be5d-f1c69a7d07f3"], Cell[CellGroupData[{ Cell[160609, 4685, 319, 6, 28, "Input",ExpressionUUID->"24a03a81-8186-4992-ba10-351d0052e84a"], Cell[160931, 4693, 352, 8, 36, "Output",ExpressionUUID->"f3f2d2fe-51cd-4867-a057-6d0f01fcec32"] }, Open ]], Cell[CellGroupData[{ Cell[161320, 4706, 269, 5, 28, "Input",ExpressionUUID->"c0e02d13-db27-4f53-9fda-226a1b0e533a"], Cell[161592, 4713, 343, 8, 36, "Output",ExpressionUUID->"2808abc0-f4a9-45c3-a896-aa32acfb36e2"] }, Open ]], Cell[CellGroupData[{ Cell[161972, 4726, 372, 7, 28, "Input",ExpressionUUID->"61f30d66-8b41-4478-9a65-4890a7d91f92"], Cell[162347, 4735, 2813, 74, 85, "Output",ExpressionUUID->"2523c82d-a6de-4a9b-8da0-84a1d3a7cc12"] }, Open ]], Cell[CellGroupData[{ Cell[165197, 4814, 303, 6, 28, "Input",ExpressionUUID->"fdce305e-02d4-4c13-b614-ff4fc6ba0281"], Cell[165503, 4822, 1223, 35, 32, "Output",ExpressionUUID->"92d647d3-ba4c-407e-a7ee-decdc2066334"] }, Open ]], Cell[166741, 4860, 194, 3, 34, "Text",ExpressionUUID->"b01dcde1-c4d1-4447-9516-15759a60dca1"], Cell[166938, 4865, 4104, 99, 67, "Input",ExpressionUUID->"227b119a-3b7e-46e3-9dc5-004daba31959"], Cell[171045, 4966, 195, 3, 34, "Text",ExpressionUUID->"ee63b7f7-9dea-43f1-b8df-0ee277db0c61"], Cell[171243, 4971, 3190, 76, 48, "Input",ExpressionUUID->"b8a65004-2812-451c-9b92-3f36e0d8a349"], Cell[CellGroupData[{ Cell[174458, 5051, 268, 5, 28, "Input",ExpressionUUID->"74369f2d-86ea-4704-aa9b-9073a3157a6d"], Cell[174729, 5058, 1418, 38, 49, "Output",ExpressionUUID->"ea16196c-0123-42cb-940b-431cc2ef2539"] }, Open ]], Cell[CellGroupData[{ Cell[176184, 5101, 271, 5, 28, "Input",ExpressionUUID->"a28a33c8-9fe2-44df-8ac6-9ebe78506788"], Cell[176458, 5108, 1222, 35, 32, "Output",ExpressionUUID->"3d596e3a-7171-4395-af9a-1407aa618aa5"] }, Open ]], Cell[CellGroupData[{ Cell[177717, 5148, 361, 8, 28, "Input",ExpressionUUID->"9333d8d0-0f41-4073-9b3b-0057f8ca99bb"], Cell[178081, 5158, 1482, 38, 49, "Output",ExpressionUUID->"3fca54fe-5c23-4cf4-80ab-ad00097024d4"] }, Open ]], Cell[CellGroupData[{ Cell[179600, 5201, 344, 7, 28, "Input",ExpressionUUID->"723f1ca3-b4f3-4512-979d-43e44fa44b85"], Cell[179947, 5210, 200, 3, 32, "Output",ExpressionUUID->"4c2ad9ac-063c-48c7-afd2-64e4c736e69f"] }, Open ]], Cell[180162, 5216, 195, 3, 34, "Text",ExpressionUUID->"e7d8ef48-47db-453e-9a22-2e24e82d6276"], Cell[180360, 5221, 3449, 92, 67, "Input",ExpressionUUID->"d0a96e31-42c7-4c57-9984-17a5b8b55c57"], Cell[183812, 5315, 196, 3, 34, "Text",ExpressionUUID->"7edc2570-d318-43d5-9b95-4227bc4b9786"], Cell[184011, 5320, 552, 9, 28, "Input",ExpressionUUID->"ca13f4c4-bb23-4d62-9115-0411b709aaf8"], Cell[CellGroupData[{ Cell[184588, 5333, 265, 5, 28, "Input",ExpressionUUID->"ab98ac28-63d9-459d-a095-a24a806bc00b"], Cell[184856, 5340, 1486, 38, 49, "Output",ExpressionUUID->"5de9cf50-d1c3-461d-a611-f36ca8be3f3d"] }, Open ]], Cell[CellGroupData[{ Cell[186379, 5383, 271, 5, 28, "Input",ExpressionUUID->"f427bfef-68c7-46e0-a742-595262b366da"], Cell[186653, 5390, 198, 3, 32, "Output",ExpressionUUID->"13fdb6b1-8d02-430a-b6e8-3d9355c4e086"] }, Open ]], Cell[CellGroupData[{ Cell[186888, 5398, 404, 10, 28, "Input",ExpressionUUID->"28261196-e9a2-488a-adf0-93a16e8ff5c6"], Cell[187295, 5410, 202, 4, 32, "Output",ExpressionUUID->"18758e93-8076-475d-8964-8b9f61a6d8c4"] }, Open ]], Cell[CellGroupData[{ Cell[187534, 5419, 395, 9, 28, "Input",ExpressionUUID->"90cad5ea-91eb-458f-b8d6-402ec89e546f"], Cell[187932, 5430, 204, 4, 32, "Output",ExpressionUUID->"e257397a-4905-4013-83b7-89e3e2415dfc"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[188185, 5440, 196, 4, 54, "Section",ExpressionUUID->"ec9c2115-10cb-44f9-b166-338960a98559"], Cell[188384, 5446, 295, 6, 34, "Text",ExpressionUUID->"7c8cf8c5-0a8f-411d-89f8-9116c5e74c88"], Cell[CellGroupData[{ Cell[188704, 5456, 595, 17, 32, "Input",ExpressionUUID->"3c378d72-92d9-4fbd-a885-2b1f80803164"], Cell[189302, 5475, 461, 13, 54, "Output",ExpressionUUID->"00e53b6a-7462-4812-8330-1c98f6e0c5b3"] }, Open ]], Cell[CellGroupData[{ Cell[189800, 5493, 569, 17, 32, "Input",ExpressionUUID->"951e5695-12e4-4bcf-82bb-ffd4599b921e"], Cell[190372, 5512, 454, 13, 54, "Output",ExpressionUUID->"9b31ecc4-8d36-438a-b015-a983c4d97c17"] }, Open ]], Cell[190841, 5528, 535, 10, 34, "Text",ExpressionUUID->"e1cf8f34-35d3-40c2-aadf-71c6b13eeb00"], Cell[191379, 5540, 168, 3, 34, "Text",ExpressionUUID->"52cb0237-bdd6-4ea1-96fb-3eac9374aceb"], Cell[CellGroupData[{ Cell[191572, 5547, 264, 6, 28, "Input",ExpressionUUID->"097bacb0-b62b-46fd-bd28-407788f66df4"], Cell[191839, 5555, 648, 20, 55, "Output",ExpressionUUID->"1c117ecb-9f47-4b02-a1d3-4497990f6962"] }, Open ]], Cell[CellGroupData[{ Cell[192524, 5580, 292, 7, 28, "Input",ExpressionUUID->"0090239e-7c12-4cb2-aa42-38c3ecdbc6b0"], Cell[192819, 5589, 648, 20, 55, "Output",ExpressionUUID->"8a265111-a1b5-4f20-b403-d9f36d1db161"] }, Open ]], Cell[CellGroupData[{ Cell[193504, 5614, 353, 8, 28, "Input",ExpressionUUID->"2584afab-c112-4b44-b370-840dedb64cf0"], Cell[193860, 5624, 1074, 34, 56, "Output",ExpressionUUID->"66286572-ce4c-49ef-aae1-a52ff790bb67"] }, Open ]], Cell[CellGroupData[{ Cell[194971, 5663, 375, 8, 28, "Input",ExpressionUUID->"f3fdaba7-a7b2-4f7e-aa3c-da7721544a8e"], Cell[195349, 5673, 679, 21, 57, "Output",ExpressionUUID->"99514746-c42b-4e98-a3d1-ebbfcdc73593"] }, Open ]], Cell[CellGroupData[{ Cell[196065, 5699, 375, 8, 28, "Input",ExpressionUUID->"28a696fa-e693-409d-9f13-5c82a9c3d053"], Cell[196443, 5709, 1076, 34, 56, "Output",ExpressionUUID->"8a9c3a70-a5cb-4f05-b678-23cc532edccf"] }, Open ]], Cell[197534, 5746, 171, 3, 34, "Text",ExpressionUUID->"5f6d402f-2306-4076-b567-ccb0246629ed"], Cell[CellGroupData[{ Cell[197730, 5753, 267, 6, 28, "Input",ExpressionUUID->"801c1baf-c469-4a9b-abfd-6ce0414eff2e"], Cell[198000, 5761, 646, 20, 55, "Output",ExpressionUUID->"ba9c9e28-1d37-4a2d-8ca9-1034563a9653"] }, Open ]], Cell[CellGroupData[{ Cell[198683, 5786, 267, 6, 28, "Input",ExpressionUUID->"f68dff43-68c6-45ea-b9df-f00bf7c0cab9"], Cell[198953, 5794, 646, 20, 55, "Output",ExpressionUUID->"f21ee8d1-2e22-45bf-b457-5aa5e2f48d08"] }, Open ]], Cell[CellGroupData[{ Cell[199636, 5819, 354, 8, 28, "Input",ExpressionUUID->"f7d9ecd9-ab4f-4258-8b7b-9464e5216a46"], Cell[199993, 5829, 1076, 34, 56, "Output",ExpressionUUID->"db64ee30-3fc2-4138-b355-c79e3cc06d89"] }, Open ]], Cell[CellGroupData[{ Cell[201106, 5868, 354, 8, 28, "Input",ExpressionUUID->"0e838f51-3a77-4008-a1e2-f5f3b16fa9dd"], Cell[201463, 5878, 681, 21, 57, "Output",ExpressionUUID->"10b366f8-c561-471c-9cf8-f0986123731f"] }, Open ]], Cell[CellGroupData[{ Cell[202181, 5904, 354, 8, 28, "Input",ExpressionUUID->"359fa1ad-9d6b-4359-b1a2-a8100c7db83f"], Cell[202538, 5914, 1068, 34, 56, "Output",ExpressionUUID->"ae2da68b-7682-4e5a-bae0-2c0bfb59e202"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[203655, 5954, 211, 4, 54, "Section",ExpressionUUID->"d9d1a2a8-b10b-4f96-98a1-c15314a6db56"], Cell[203869, 5960, 203, 3, 34, "Text",ExpressionUUID->"d8b82475-78de-4262-9ea9-abf42942504c"], Cell[204075, 5965, 3727, 95, 53, "Input",ExpressionUUID->"900ca195-e488-4aef-a37c-32afbd51531f"], Cell[207805, 6062, 2768, 79, 53, "Input",ExpressionUUID->"5c9324ba-bb8c-410a-a1ea-474b0d4d5b55"], Cell[210576, 6143, 314, 7, 28, "Input",ExpressionUUID->"7b0bf884-bc40-4c2d-849e-ef5eff3caa21"], Cell[210893, 6152, 322, 7, 28, "Input",ExpressionUUID->"994f0e89-2f78-4534-b47e-924af4bc4e4a"], Cell[211218, 6161, 837, 21, 28, "Input",ExpressionUUID->"1818a57b-f09e-42fd-87a7-402f208d0222"], Cell[212058, 6184, 541, 12, 28, "Input",ExpressionUUID->"176a942d-3a17-434e-8acd-4f8b6cfa54e0"] }, Open ]], Cell[CellGroupData[{ Cell[212636, 6201, 203, 4, 54, "Section",ExpressionUUID->"32fbfb42-c766-4ac4-bd47-66233a5d570c"], Cell[212842, 6207, 315, 5, 34, "Text",ExpressionUUID->"b0e3bd9e-c009-4ed5-ab6b-2f843f05fe93"], Cell[213160, 6214, 989, 28, 28, "Input",ExpressionUUID->"cf58f439-6270-44a6-b53a-40e56b9df110"], Cell[214152, 6244, 315, 5, 34, "Text",ExpressionUUID->"5b141905-8e84-4979-a79a-96825a76d32e"], Cell[214470, 6251, 970, 27, 28, "Input",ExpressionUUID->"28164ce9-3170-488c-8f71-54358c8c6195"], Cell[CellGroupData[{ Cell[215465, 6282, 237, 5, 28, "Input",ExpressionUUID->"b760e14a-69f8-426f-9698-0819b28bafa4"], Cell[215705, 6289, 3973, 120, 109, "Output",ExpressionUUID->"f724fa43-ebd7-4547-ab06-18b80069a07a"] }, Open ]], Cell[CellGroupData[{ Cell[219715, 6414, 245, 5, 28, "Input",ExpressionUUID->"3bdd92e8-cbbf-4cc7-8496-5d03df46e9b1"], Cell[219963, 6421, 2592, 72, 59, "Output",ExpressionUUID->"332e0717-03c1-4d0b-9153-1d7a351540d2"] }, Open ]], Cell[CellGroupData[{ Cell[222592, 6498, 237, 5, 28, "Input",ExpressionUUID->"a7fe4dd0-69b5-4585-8419-d9d3a8973b13"], Cell[222832, 6505, 4367, 134, 109, "Output",ExpressionUUID->"85b18604-7d68-4023-a08c-7078bc08c525"] }, Open ]], Cell[CellGroupData[{ Cell[227236, 6644, 245, 5, 28, "Input",ExpressionUUID->"51ee5cb4-ea13-4e60-8025-0990a5fa2786"], Cell[227484, 6651, 3021, 86, 59, "Output",ExpressionUUID->"a8bf0ade-5695-4753-a430-1c8769177f0a"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[230554, 6743, 202, 4, 54, "Section",ExpressionUUID->"f30f0a2c-63ed-4f0b-ab15-c30b18be82b8"], Cell[230759, 6749, 953, 28, 34, "Text",ExpressionUUID->"e19a2f5c-eb79-41f5-a903-929ce92eadeb"], Cell[231715, 6779, 169, 3, 34, "Text",ExpressionUUID->"ac6635b0-7f25-458d-8564-cfb703b46df4"], Cell[231887, 6784, 2621, 72, 48, "Input",ExpressionUUID->"5c3e5928-aa93-4ccb-9a10-48fbad8705ad"], Cell[234511, 6858, 170, 3, 34, "Text",ExpressionUUID->"0b1741cf-d051-486e-828f-b6733f695369"], Cell[234684, 6863, 2335, 67, 48, "Input",ExpressionUUID->"aeada54a-1a78-41c5-87e5-cb51658c6681"], Cell[237022, 6932, 201, 3, 34, "Text",ExpressionUUID->"db4eb7f3-6fac-4248-924a-9c1f6ab51744"], Cell[237226, 6937, 164, 3, 34, "Text",ExpressionUUID->"1591f840-725f-420a-8716-f739d856d21e"], Cell[CellGroupData[{ Cell[237415, 6944, 523, 10, 28, "Input",ExpressionUUID->"0b7ba19d-058b-4851-a492-5d508fe999f0"], Cell[237941, 6956, 125214, 3512, 2872, "Output",ExpressionUUID->"fdabccc0-e9c1-4349-9c7c-ed102ba4e677"] }, Open ]], Cell[363170, 10471, 589, 20, 36, "Text",ExpressionUUID->"c1c0044d-6ac0-4fef-997e-993a4076b243"], Cell[CellGroupData[{ Cell[363784, 10495, 213, 4, 28, "Input",ExpressionUUID->"5c50191b-a63b-4669-98f6-5923dae0de3a"], Cell[364000, 10501, 42627, 693, 3278, "Output",ExpressionUUID->"5fe1458d-5cc7-4d53-a26b-70db4c38318c"] }, Open ]], Cell[406642, 11197, 180, 3, 34, "Text",ExpressionUUID->"5ed89e10-f770-42da-8535-c91286b7b5d7"], Cell[CellGroupData[{ Cell[406847, 11204, 211, 4, 28, "Input",ExpressionUUID->"90457606-ebd7-43d8-83f5-ea9386e5df2e"], Cell[407061, 11210, 204, 4, 32, "Output",ExpressionUUID->"c7b94b32-53f6-44f0-8f9e-fb8a5a30c2bf"] }, Open ]], Cell[407280, 11217, 167, 3, 34, "Text",ExpressionUUID->"e3a3dd05-14df-4f0d-a3c0-2555742b15fe"], Cell[CellGroupData[{ Cell[407472, 11224, 363, 8, 28, "Input",ExpressionUUID->"c19fb80f-4663-4e37-a398-57f9c7797148"], Cell[407838, 11234, 155160, 4304, 1938, "Output",ExpressionUUID->"efc92aa0-9d5c-4855-bd7a-46ec29aaae9a"] }, Open ]], Cell[563013, 15541, 589, 20, 36, "Text",ExpressionUUID->"b313e1bb-6d3c-4c98-8aa5-294db8837b37"], Cell[CellGroupData[{ Cell[563627, 15565, 213, 4, 28, "Input",ExpressionUUID->"92ee9d98-28de-4d82-862b-5675f5daa70e"], Cell[563843, 15571, 47400, 757, 3630, "Output",ExpressionUUID->"cca0913e-5fac-4eda-9062-e0b8efd80e9c"] }, Open ]], Cell[611258, 16331, 180, 3, 34, "Text",ExpressionUUID->"1a405445-444c-46c2-a52c-5aecbd98fb8f"], Cell[CellGroupData[{ Cell[611463, 16338, 211, 4, 28, "Input",ExpressionUUID->"9dfaed75-9994-40bb-9204-38f17e591add"], Cell[611677, 16344, 206, 4, 32, "Output",ExpressionUUID->"59417186-7bbf-4d09-8ea3-042c566fd309"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[611932, 16354, 213, 4, 54, "Section",ExpressionUUID->"5a7936ef-a48b-4f1a-9817-9bc248e4f40f"], Cell[612148, 16360, 530, 14, 28, "Input",ExpressionUUID->"22f2cbc4-a377-4bf1-b334-a5c906bcb4e4"], Cell[612681, 16376, 487, 13, 28, "Input",ExpressionUUID->"efd9f152-c1ad-49b9-ac79-746ecf517d98"], Cell[613171, 16391, 989, 29, 47, "Input",ExpressionUUID->"4b346834-4f11-49bd-b98d-093e3a8f6344"], Cell[614163, 16422, 1273, 30, 61, "Input",ExpressionUUID->"c4b6f968-4612-4ca1-8080-a4245f0fc18a"], Cell[615439, 16454, 858, 24, 61, "Input",ExpressionUUID->"0fdb485d-4a77-4b07-a45d-90ed99003c48"], Cell[616300, 16480, 679, 18, 34, "Text",ExpressionUUID->"86a30b9a-5e1c-49d8-bc31-09564e9f0b65"], Cell[CellGroupData[{ Cell[617004, 16502, 565, 9, 28, "Input",ExpressionUUID->"6f9b7a9a-6fd3-4b9b-9272-1679c7040ca9"], Cell[617572, 16513, 39283, 1134, 837, "Output",ExpressionUUID->"e7f787b0-6192-4613-b955-f9bc566b132d"] }, Open ]], Cell[656870, 17650, 589, 20, 36, "Text",ExpressionUUID->"62192b46-08c7-458f-8c7f-42a55c6a5273"], Cell[CellGroupData[{ Cell[657484, 17674, 213, 4, 28, "Input",ExpressionUUID->"0bd4207b-b4bd-487e-90f6-1f09cda88231"], Cell[657700, 17680, 13364, 223, 1086, "Output",ExpressionUUID->"174ef012-05d9-4c0b-8371-9c833e191594"] }, Open ]], Cell[671079, 17906, 177, 3, 34, "Text",ExpressionUUID->"5c21aab8-e17c-4acd-9752-217f68cbabc5"], Cell[CellGroupData[{ Cell[671281, 17913, 211, 4, 28, "Input",ExpressionUUID->"24ec4ade-deeb-47a7-9060-54937253084f"], Cell[671495, 17919, 204, 4, 32, "Output",ExpressionUUID->"7cd7f0cf-cb4a-4c16-9cc5-9f8cd6e4c17a"] }, Open ]], Cell[671714, 17926, 640, 18, 34, "Text",ExpressionUUID->"79a9bd33-d270-42bd-85d5-06a6d439f544"], Cell[CellGroupData[{ Cell[672379, 17948, 409, 8, 28, "Input",ExpressionUUID->"5d6395fe-8185-47fc-ae91-a6f1817c0b90"], Cell[672791, 17958, 28880, 860, 404, "Output",ExpressionUUID->"bab4f02a-9ce2-4046-ae00-bbaa0b9aa993"] }, Open ]], Cell[701686, 18821, 589, 20, 36, "Text",ExpressionUUID->"71137d09-3b28-4e70-b9f4-31b7dbdefbbd"], Cell[CellGroupData[{ Cell[702300, 18845, 213, 4, 28, "Input",ExpressionUUID->"38fcee3b-07af-4044-b995-a8e579600933"], Cell[702516, 18851, 9047, 150, 718, "Output",ExpressionUUID->"48241953-1712-4b38-8465-c81f4d33f940"] }, Open ]], Cell[711578, 19004, 178, 3, 34, "Text",ExpressionUUID->"641a9e89-f0dc-4e0c-a443-893f86e19831"], Cell[CellGroupData[{ Cell[711781, 19011, 211, 4, 28, "Input",ExpressionUUID->"f5e8f916-bfc6-447e-b7df-332dc3607594"], Cell[711995, 19017, 205, 4, 32, "Output",ExpressionUUID->"ae530229-c3c5-42e2-94e9-c8c5507f5b85"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[712249, 19027, 209, 4, 54, "Section",ExpressionUUID->"5f24ded3-915c-464c-bf93-e9962dfda07c"], Cell[712461, 19033, 1686, 38, 78, "Text",ExpressionUUID->"152761b5-fda0-42d6-88e4-6d7b8844df02"], Cell[714150, 19073, 893, 19, 32, "Input",ExpressionUUID->"92396485-cb57-403b-90d7-cc4f4f1d7357"], Cell[715046, 19094, 774, 17, 32, "Input",ExpressionUUID->"7273a0d8-e6ef-425f-9756-c8901a7de00b"], Cell[715823, 19113, 596, 14, 28, "Input",ExpressionUUID->"340cd182-0bd5-4b83-b2f4-0cffc667f6fd"], Cell[716422, 19129, 839, 18, 32, "Input",ExpressionUUID->"03799854-0475-48a7-a4dc-d32bbdf25b51"], Cell[717264, 19149, 771, 17, 32, "Input",ExpressionUUID->"30c19feb-3538-40c3-98c5-b8e55442e65b"], Cell[718038, 19168, 352, 9, 45, "Input",ExpressionUUID->"9dc57f18-5794-4030-808b-07de523b332d"], Cell[718393, 19179, 352, 9, 45, "Input",ExpressionUUID->"63025a1b-e7b9-4954-bc7d-6ce6c8b33f09"], Cell[718748, 19190, 340, 8, 28, "Input",ExpressionUUID->"56bbc403-7a02-4474-9b7b-d650b5472404"], Cell[719091, 19200, 394, 9, 28, "Input",ExpressionUUID->"48eb1050-94be-4f83-9316-51c29c9389db"], Cell[719488, 19211, 395, 9, 28, "Input",ExpressionUUID->"0d9c7b38-0891-49b2-80fa-126c8820f2cc"], Cell[719886, 19222, 490, 11, 45, "Input",ExpressionUUID->"ebe773fa-718e-4430-a660-5d067bdcb1de"], Cell[720379, 19235, 1252, 27, 45, "Input",ExpressionUUID->"8e527702-882e-4dd6-a1a5-13587c21ae59"], Cell[721634, 19264, 1354, 30, 45, "Input",ExpressionUUID->"1b3f524f-f632-4541-a218-a8f30bde0e55"], Cell[722991, 19296, 1664, 36, 45, "Input",ExpressionUUID->"d152538e-5a91-4fff-aab7-7aed64d4bb4e"], Cell[724658, 19334, 1245, 27, 45, "Input",ExpressionUUID->"a8960b26-ce89-428c-93d3-bf31aed94f9e"], Cell[725906, 19363, 1355, 30, 45, "Input",ExpressionUUID->"623c1a22-6c25-430a-af95-780ad2f3a626"], Cell[727264, 19395, 1685, 36, 45, "Input",ExpressionUUID->"f8dde16e-19b0-419f-ad9d-f869420e7d07"], Cell[728952, 19433, 2119, 41, 45, "Input",ExpressionUUID->"36352f5b-41e6-466b-8dfe-ed6c2012706b"], Cell[731074, 19476, 2092, 41, 45, "Input",ExpressionUUID->"dca7519d-e383-4723-859d-0470023127c1"], Cell[733169, 19519, 2011, 40, 45, "Input",ExpressionUUID->"1476dae0-468c-4556-9af0-d214bafa2985"], Cell[735183, 19561, 1825, 37, 45, "Input",ExpressionUUID->"87472b3c-bc0a-40c7-8844-a933de551262"], Cell[737011, 19600, 1789, 36, 45, "Input",ExpressionUUID->"ad7a544c-a21d-4e68-9a34-3c0ca4e79336"], Cell[738803, 19638, 1710, 36, 45, "Input",ExpressionUUID->"50b7e92d-6c2b-4446-9ef0-b91928fddaf6"], Cell[740516, 19676, 1091, 24, 45, "Input",ExpressionUUID->"4cf5bab4-1631-408f-be97-48e2a0760f82"], Cell[741610, 19702, 1150, 26, 45, "Input",ExpressionUUID->"4e85c209-baeb-411f-a9bb-90dd3bd16f27"], Cell[742763, 19730, 1213, 28, 45, "Input",ExpressionUUID->"7ca436ac-5b2c-4369-889f-50ac0e95665d"], Cell[743979, 19760, 1066, 23, 45, "Input",ExpressionUUID->"9da3b02e-d4f2-4629-ad59-ff049d69fdd7"], Cell[745048, 19785, 1123, 26, 45, "Input",ExpressionUUID->"8996aa3a-7a81-4d5e-8db6-c175557fb737"], Cell[746174, 19813, 1190, 28, 45, "Input",ExpressionUUID->"99855bb1-73ea-4600-b821-70945035d8a7"], Cell[747367, 19843, 479, 10, 28, "Input",ExpressionUUID->"3f4dca84-9dd0-43f2-8711-d680ea8ba3d1"], Cell[747849, 19855, 472, 11, 28, "Input",ExpressionUUID->"18a2f9dd-1d83-47ab-8c9c-483a750b2be6"], Cell[748324, 19868, 413, 9, 28, "Input",ExpressionUUID->"c84dcfb1-9769-4ec1-99b3-bf57c5811eac"], Cell[748740, 19879, 171, 3, 34, "Text",ExpressionUUID->"113227f8-d4fa-4980-ae1f-897c9e076fe4"], Cell[748914, 19884, 679, 19, 28, "Input",ExpressionUUID->"750ff0ad-8d3f-4608-b832-75b8922fa424"], Cell[CellGroupData[{ Cell[749618, 19907, 390, 6, 28, "Input",ExpressionUUID->"164d6f70-dcff-4e22-a0e1-10f5b6f97d52"], Cell[750011, 19915, 99460, 2787, 2160, "Output",ExpressionUUID->"5d52be87-800a-485b-8c87-e0977f81e556"] }, Open ]], Cell[CellGroupData[{ Cell[849508, 22707, 248, 5, 28, "Input",ExpressionUUID->"f7c28681-dc66-4fa8-8f86-dcfab8bde207"], Cell[849759, 22714, 90708, 2589, 2160, "Output",ExpressionUUID->"743729ea-6d97-4f00-9535-0c434df1deeb"] }, Open ]], Cell[940482, 25306, 271, 6, 34, "Text",ExpressionUUID->"8580e748-6ebd-4982-8982-9d00307d4f1a"], Cell[940756, 25314, 726, 16, 28, "Input",ExpressionUUID->"12191be3-53e9-40d4-882d-6f0cd947abb8"], Cell[941485, 25332, 654, 16, 28, "Input",ExpressionUUID->"51ac56b4-18a1-43af-9217-222bd2188706"] }, Open ]], Cell[CellGroupData[{ Cell[942176, 25353, 479, 13, 54, "Section",ExpressionUUID->"d48e7fda-35fa-47b1-a37a-f2f544cbb6b2"], Cell[942658, 25368, 757, 18, 34, "Text",ExpressionUUID->"e967a816-d639-40e0-b09f-5678a31bef85"], Cell[943418, 25388, 316, 7, 28, "Input",ExpressionUUID->"fdf2b1c5-6cc7-4d7f-999e-58c9341e2a8c"], Cell[943737, 25397, 562, 13, 34, "Text",ExpressionUUID->"49e11686-1dbe-490d-b7da-e3525067d6e4"], Cell[944302, 25412, 2926, 56, 32, "Input",ExpressionUUID->"f8b1d285-ff53-4185-9bc0-5f672ad7a128"], Cell[947231, 25470, 2768, 54, 32, "Input",ExpressionUUID->"4528ea00-cdf5-4863-868f-c36799deffbf"], Cell[950002, 25526, 2101, 45, 32, "Input",ExpressionUUID->"e8aad569-8830-43d4-b82f-413aaa3e5f29"], Cell[CellGroupData[{ Cell[952128, 25575, 667, 20, 32, "Input",ExpressionUUID->"55865246-7c69-4b27-8ee1-f7dd5d3ad2d5"], Cell[952798, 25597, 1773, 53, 49, "Output",ExpressionUUID->"f44142d7-59f0-4ce4-922e-ae47b8a5ad36"] }, Open ]], Cell[CellGroupData[{ Cell[954608, 25655, 1255, 32, 32, "Input",ExpressionUUID->"60534634-f97f-4112-8f97-2de5359d74d0"], Cell[955866, 25689, 870, 25, 49, "Output",ExpressionUUID->"8ee26de0-a08b-49a6-acd8-c9c53c82c602"] }, Open ]], Cell[CellGroupData[{ Cell[956773, 25719, 1420, 34, 32, "Input",ExpressionUUID->"561fa427-08b2-40c8-a691-e50b7aaebae0"], Cell[958196, 25755, 935, 26, 49, "Output",ExpressionUUID->"2e1b51bb-e3ee-4cfe-a331-d21c62cb91a3"] }, Open ]], Cell[CellGroupData[{ Cell[959168, 25786, 881, 25, 32, "Input",ExpressionUUID->"cb382a6d-1688-47c2-9935-8e11c16fa827"], Cell[960052, 25813, 226, 4, 32, "Output",ExpressionUUID->"4cdd5b97-7160-40ef-885a-6b46e7a796fd"] }, Open ]], Cell[CellGroupData[{ Cell[960315, 25822, 788, 22, 32, "Input",ExpressionUUID->"88016482-d741-40ea-9563-84c3419bb706"], Cell[961106, 25846, 1640, 48, 49, "Output",ExpressionUUID->"4ea1d2a2-b9a2-42f9-b2ba-b42a66d2598a"] }, Open ]], Cell[CellGroupData[{ Cell[962783, 25899, 243, 4, 28, "Input",ExpressionUUID->"75336748-17a6-46c1-bb4c-49af782964d6"], Cell[963029, 25905, 25225, 753, 678, "Output",ExpressionUUID->"ea2ab05d-b7a7-4b24-b60c-9c7c0d1e8d71"] }, Open ]], Cell[CellGroupData[{ Cell[988291, 26663, 297, 6, 28, "Input",ExpressionUUID->"67b0b224-ce5e-46d9-a17b-4103f659b025"], Cell[988591, 26671, 31442, 921, 641, "Output",ExpressionUUID->"a76c9c6b-54c2-4709-8c5d-03d8381d5c1b"] }, Open ]], Cell[CellGroupData[{ Cell[1020070, 27597, 424, 10, 28, "Input",ExpressionUUID->"9a8e4090-b842-44a5-9934-0b10e27c2a55"], Cell[1020497, 27609, 26548, 726, 678, "Output",ExpressionUUID->"964ed23b-193e-4ce9-8003-ad854e497a99"] }, Open ]], Cell[CellGroupData[{ Cell[1047082, 28340, 537, 12, 28, "Input",ExpressionUUID->"9b85c7f5-9ec4-4ef3-b7bc-a95d6b314471"], Cell[1047622, 28354, 31892, 854, 678, "Output",ExpressionUUID->"92a70b2d-ed93-4cd9-b7ab-f9a2fe96be0f"] }, Open ]], Cell[1079529, 29211, 1107, 22, 31, "Input",ExpressionUUID->"4ee7b7cd-cf4f-4273-aefd-69fb9d68338d"], Cell[1080639, 29235, 540, 14, 31, "Input",ExpressionUUID->"ad9adc03-b14e-4cef-a97b-f47ab990a95a"], Cell[1081182, 29251, 926, 21, 31, "Input",ExpressionUUID->"c52f30d2-adc9-4211-923e-68daaf1f4796"], Cell[1082111, 29274, 1018, 24, 43, "Input",ExpressionUUID->"f9cb6374-05e8-40ba-99f4-9838e1272073"], Cell[1083132, 29300, 1183, 28, 31, "Input",ExpressionUUID->"a339e19b-406d-4492-89ec-de49df9f5830"], Cell[1084318, 29330, 1488, 36, 31, "Input",ExpressionUUID->"2239389a-501b-4986-8be9-5801baa59d72"], Cell[1085809, 29368, 3162, 69, 106, "Input",ExpressionUUID->"649fc8ec-b7ea-4bcf-ac54-cff8c2d5d499"], Cell[1088974, 29439, 3157, 68, 106, "Input",ExpressionUUID->"9e7a289d-57f3-4dc3-af64-150382f5bc9e"], Cell[1092134, 29509, 204, 3, 34, "Text",ExpressionUUID->"8711eba4-fcac-4424-a28a-71613f2df864"], Cell[CellGroupData[{ Cell[1092363, 29516, 361, 8, 28, "Input",ExpressionUUID->"33705973-439e-486b-8c51-edcf04c38beb"], Cell[1092727, 29526, 22651, 650, 625, "Output",ExpressionUUID->"9a62db39-5147-45c7-b48c-31065ec1cc8a"] }, Open ]], Cell[1115393, 30179, 589, 20, 36, "Text",ExpressionUUID->"3a688fdd-e5f5-4510-aeee-a4b7f1042373"], Cell[CellGroupData[{ Cell[1116007, 30203, 211, 4, 28, "Input",ExpressionUUID->"f9bb640e-9bae-4f98-aa77-c874368b4d70"], Cell[1116221, 30209, 8904, 162, 814, "Output",ExpressionUUID->"a89e2581-a433-41ce-b4ea-e39144169e11"] }, Open ]], Cell[1125140, 30374, 175, 3, 34, "Text",ExpressionUUID->"95623328-a120-4415-a866-18a4525289bb"], Cell[CellGroupData[{ Cell[1125340, 30381, 211, 4, 28, "Input",ExpressionUUID->"657c2f4e-80d8-4b84-89bc-6d75c645b723"], Cell[1125554, 30387, 203, 4, 32, "Output",ExpressionUUID->"faad87dd-e312-4fa6-9e1d-589c3afabcb7"] }, Open ]], Cell[1125772, 30394, 263, 6, 34, "Text",ExpressionUUID->"c3933f4d-e2b8-4e02-895b-91b79f9768c0"], Cell[CellGroupData[{ Cell[1126060, 30404, 472, 9, 28, "Input",ExpressionUUID->"f4e68284-e33a-48ec-b758-bda9cbcd957c"], Cell[1126535, 30415, 29949, 899, 625, "Output",ExpressionUUID->"70e2e7f9-7ea2-4163-82fd-ef8418b9c35d"] }, Open ]], Cell[1156499, 31317, 589, 20, 36, "Text",ExpressionUUID->"a0009353-ae06-4c08-8fbf-41cf7715c417"], Cell[CellGroupData[{ Cell[1157113, 31341, 211, 4, 28, "Input",ExpressionUUID->"9fd34e99-b9f9-4b79-b5ee-03d7de2ff267"], Cell[1157327, 31347, 10818, 185, 910, "Output",ExpressionUUID->"4c7c902e-085a-4e82-91db-45ef5479adca"] }, Open ]], Cell[1168160, 31535, 178, 3, 34, "Text",ExpressionUUID->"03e789ae-e360-47d7-9278-d11d3e6bd28e"], Cell[CellGroupData[{ Cell[1168363, 31542, 211, 4, 28, "Input",ExpressionUUID->"88936b24-f3ee-4653-811d-67569142f307"], Cell[1168577, 31548, 203, 4, 32, "Output",ExpressionUUID->"fc4d2efe-e721-449a-b44b-4fd03ee3b46c"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[1168829, 31558, 479, 13, 54, "Section",ExpressionUUID->"62cbd880-38a5-44df-86e6-66b9d3cd08ca"], Cell[1169311, 31573, 612, 16, 34, "Text",ExpressionUUID->"b773581b-2591-4c33-a394-a4a94f70b9d1"], Cell[1169926, 31591, 649, 16, 28, "Input",ExpressionUUID->"2ab7bccc-0e78-48b5-b443-b4a77dd0fca5"], Cell[1170578, 31609, 319, 7, 28, "Input",ExpressionUUID->"9b291168-758a-4189-aec0-cae1eae29ca0"], Cell[CellGroupData[{ Cell[1170922, 31620, 450, 9, 28, "Input",ExpressionUUID->"8e2b588e-8012-4914-81b7-e3015e0e85a0"], Cell[1171375, 31631, 19004, 491, 448, "Output",ExpressionUUID->"ef775c29-3493-4772-bced-54839f5083ea"] }, Open ]], Cell[CellGroupData[{ Cell[1190416, 32127, 510, 11, 28, "Input",ExpressionUUID->"bbce8eaa-6747-4042-9b2d-038e9acb139d"], Cell[1190929, 32140, 11687, 295, 267, "Output",ExpressionUUID->"21acfb67-661b-4db6-9683-94638d368254"] }, Open ]], Cell[1202631, 32438, 458, 13, 31, "Input",ExpressionUUID->"f273023f-dd2e-4643-a78a-195b5ea52832"], Cell[1203092, 32453, 2128, 52, 83, "Input",ExpressionUUID->"979cb5a1-b591-4e89-936e-8246eff8a2b1"], Cell[1205223, 32507, 2130, 52, 83, "Input",ExpressionUUID->"e377dbd9-4e3e-406e-944c-bb8ce67bf356"], Cell[1207356, 32561, 204, 3, 34, "Text",ExpressionUUID->"08570202-5575-4968-8781-8d9adfdda434"], Cell[CellGroupData[{ Cell[1207585, 32568, 311, 7, 28, "Input",ExpressionUUID->"69782674-7c56-4e3b-94cf-8bf48eda30ce"], Cell[1207899, 32577, 20652, 595, 481, "Output",ExpressionUUID->"abb2cd51-d247-48e0-8988-02596c34c426"] }, Open ]], Cell[1228566, 33175, 589, 20, 36, "Text",ExpressionUUID->"b5077878-be83-4957-abb9-3ab21c0facb6"], Cell[CellGroupData[{ Cell[1229180, 33199, 211, 4, 28, "Input",ExpressionUUID->"5b6f71f7-3aea-456f-8a14-0c6a85c0731e"], Cell[1229394, 33205, 7991, 130, 670, "Output",ExpressionUUID->"9e6a32d5-576c-4784-b94f-5dc77509cccf"] }, Open ]], Cell[1237400, 33338, 178, 3, 34, "Text",ExpressionUUID->"4b9b1541-ea3e-428b-a3cd-759ebfd88296"], Cell[CellGroupData[{ Cell[1237603, 33345, 211, 4, 28, "Input",ExpressionUUID->"b80029a0-c6a0-44d3-8320-91b02f41c5c7"], Cell[1237817, 33351, 227, 4, 32, "Output",ExpressionUUID->"6bc50a18-e3c0-47ea-9383-10740e63d882"] }, Open ]], Cell[1238059, 33358, 263, 6, 34, "Text",ExpressionUUID->"d77d1a2c-ff78-4164-8e72-42ca426008ab"], Cell[CellGroupData[{ Cell[1238347, 33368, 376, 8, 28, "Input",ExpressionUUID->"c6b8377c-8554-456c-ad3d-43f80c41fbea"], Cell[1238726, 33378, 12998, 382, 265, "Output",ExpressionUUID->"f3d483b3-2365-43d0-9e9b-281d2b8b801e"] }, Open ]], Cell[1251739, 33763, 589, 20, 36, "Text",ExpressionUUID->"d4a6aa4d-8cf1-408e-a4fe-2f8ec8cfa713"], Cell[CellGroupData[{ Cell[1252353, 33787, 211, 4, 28, "Input",ExpressionUUID->"5fa1b32a-18ce-4949-9b40-aa99e6d6b84f"], Cell[1252567, 33793, 4948, 83, 478, "Output",ExpressionUUID->"6f876ac0-a2ff-40b7-b43c-2d42e56ca5fa"] }, Open ]], Cell[1257530, 33879, 178, 3, 34, "Text",ExpressionUUID->"bda2b982-d4a7-4508-826f-7c40f4abb7b6"], Cell[CellGroupData[{ Cell[1257733, 33886, 211, 4, 28, "Input",ExpressionUUID->"3ea26f06-0ec4-4a62-b3b9-653ca6b045a7"], Cell[1257947, 33892, 227, 4, 32, "Output",ExpressionUUID->"2c582314-1312-4ade-a158-9fa66989685e"] }, Open ]] }, Open ]] } ] *)