ghp to hughes s=-2.nb

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

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

(* CreatedBy='Mathematica 13.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    223704,       5610]
NotebookOptionsPosition[    207009,       5320]
NotebookOutlinePosition[    207478,       5338]
CellTagsIndexPosition[    207435,       5335]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["\<\
Converting Teukolsky Equations from GHP form to the form of Eqn\
\[CloseCurlyQuote]s 4.27, 4.28 in Hughes\[CloseCurlyQuote] inclined circular \
paper (https://arxiv.org/abs/gr-qc/0104041) \
\>", "Text",
 CellChangeTimes->{{3.869118110095257*^9, 3.8691181695471644`*^9}, {
  3.8691182694185305`*^9, 
  3.869118270865287*^9}},ExpressionUUID->"20b6720c-7a31-4c9a-8b93-\
4189ea3e3045"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["", 
     RowBox[{"-", "2"}]], 
    SubscriptBox["T", "lm\[Omega]"]}], " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "4"}], 
    RowBox[{"\[Integral]", 
     RowBox[{"\[CapitalSigma]", " ", 
      SuperscriptBox["\[Rho]", 
       RowBox[{"-", "4"}]], " ", 
      SubscriptBox["T", "4"], "SH", " ", 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"\[ImaginaryI]", " ", "\[Omega]", " ", "t"}]], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{
        RowBox[{"-", " ", "\[ImaginaryI]"}], " ", "\[ScriptM]", " ", 
        "\[Phi]"}]], 
      RowBox[{"\[DifferentialD]", "\[CapitalOmega]"}], 
      RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]],ExpressionUUID->
  "7b7b795c-1b73-47ff-8c47-d9e209216820"],
 "\t\t\n\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["T", "4"], " ", "=", " "}], TraditionalForm]],ExpressionUUID->
  "1641c343-2dbe-4371-8c3c-e8722b773e57"],
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Eth]", "'"}], "-", 
       OverscriptBox["\[Tau]", "_"], "-", 
       RowBox[{"4", 
        RowBox[{"\[Tau]", "'"}]}]}], ")"}], "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Thorn]", "'"}], "-", 
         RowBox[{"2", 
          RowBox[{
           OverscriptBox["\[Rho]", "_"], "'"}]}]}], ")"}], 
       SubscriptBox["T", "lm"]}], " ", "-", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eth]", "'"}], "-", 
         OverscriptBox["\[Tau]", "_"]}], ")"}], 
       SubscriptBox["T", "ll"]}]}], "]"}], " ", "+", " ", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Thorn]", "'"}], "-", 
       RowBox[{"4", 
        RowBox[{"\[Rho]", "'"}]}], "-", 
       RowBox[{
        OverscriptBox["\[Rho]", "_"], "'"}]}], ")"}], "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eth]", "'"}], "-", 
         RowBox[{"2", 
          OverscriptBox["\[Tau]", "_"]}]}], ")"}], 
       SubscriptBox["T", "lm"]}], " ", "-", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Thorn]", "'"}], "-", 
         RowBox[{
          OverscriptBox["\[Rho]", "_"], "'"}]}], ")"}], 
       SubscriptBox["T", "mm"]}]}], " ", "]"}]}], TraditionalForm]],
  ExpressionUUID->"6076cf79-3a79-4393-9496-89f8b5c55e97"]
}], "Text",
 CellChangeTimes->{{3.8691319044497705`*^9, 3.869132070937256*^9}, {
  3.869132131039153*^9, 3.869132202756892*^9}, {3.8691322365145006`*^9, 
  3.8691322418240147`*^9}, {3.869809445369433*^9, 3.8698094543112783`*^9}, {
  3.869809533094858*^9, 3.8698095827494097`*^9}, {3.870325883343968*^9, 
  3.870325884238869*^9}},ExpressionUUID->"c51544c2-a96b-49e7-8350-\
6175146e58ff"],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Operators and Spin Coefficients", "Section"]], \
"Subsubsection",
 CellChangeTimes->{{3.8680927079170513`*^9, 3.868092762667568*^9}, {
  3.868092800543805*^9, 3.8680928229367704`*^9}, {3.8690486113085785`*^9, 
  3.8690486343644805`*^9}, {3.8690490724428205`*^9, 
  3.8690490736982737`*^9}},ExpressionUUID->"45b57f31-c0e8-4f4e-987c-\
bfba9b77de46"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Rho]p", " ", "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], " ", 
    RowBox[{"\[Rho]b", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]pb", " ", "=", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["1", "2"]}], " ", 
    RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
    RowBox[{"\[Rho]", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]b", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]p", "  ", "=", " ", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", "a", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      SuperscriptBox[
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], 
     SqrtBox["2"]]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]b", " ", "=", " ", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "a", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
     RowBox[{"\[Rho]b", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
    SqrtBox["2"]]}], ";"}]}], "Input",
 CellChangeTimes->{{3.868096154507866*^9, 3.8680961548260293`*^9}, {
  3.868107308327306*^9, 3.8681073249524336`*^9}, {3.868298740855975*^9, 
  3.8682987414357166`*^9}, {3.8698198155491447`*^9, 3.8698198525998507`*^9}, {
  3.869819892167614*^9, 3.869819916164878*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"a03d5039-952f-40a6-a48e-31955e5a737d"],

Cell[TextData[{
 "Use the fact that integration by parts to rewrite ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[PartialD]", "\[Phi]"], TraditionalForm]],ExpressionUUID->
  "07c74cc9-db03-4f0d-bbfa-06dc35624fa8"],
 ", and ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[PartialD]", "t"], TraditionalForm]],ExpressionUUID->
  "f20f9aca-81f0-4326-a363-49cc7ce3030d"],
 " in terms of \[ImaginaryI] \[ScriptM] and \[ImaginaryI] \[Omega]. Then use \
the fact that \[Phi]  \[Delta]\[CloseCurlyQuote]s commute with all other \
derivs to set \[Phi] to  ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "p"], TraditionalForm]],ExpressionUUID->
  "e6582020-7260-44bc-9ca9-d49cc5779741"],
 ". "
}], "Text",
 CellChangeTimes->{{3.8691325016404314`*^9, 3.869132550596819*^9}, {
  3.869132613444084*^9, 3.8691326512549906`*^9}, {3.8691327113715286`*^9, 
  3.869132748768585*^9}, {3.8691327882386403`*^9, 
  3.8691328029908037`*^9}},ExpressionUUID->"1e579d05-d541-41fc-a96c-\
6c201494b05c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"L", "[", 
   RowBox[{"x_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"x", ",", "\[Theta]"}], "]"}], "-", 
   RowBox[{"a", " ", "\[Omega]", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "x"}], "+", 
   RowBox[{"\[ScriptM]", " ", 
    RowBox[{"Csc", "[", "\[Theta]", "]"}], "x"}], " ", "+", 
   RowBox[{"s", " ", 
    RowBox[{"Cot", "[", "\[Theta]", "]"}], "x"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ld", "[", 
   RowBox[{"x_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"x", ",", "\[Theta]"}], "]"}], "+", 
   RowBox[{"a", " ", "\[Omega]", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "x"}], "-", 
   RowBox[{"\[ScriptM]", " ", 
    RowBox[{"Csc", "[", "\[Theta]", "]"}], "x"}], " ", "+", 
   RowBox[{"s", " ", 
    RowBox[{"Cot", "[", "\[Theta]", "]"}], "x"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jp", "[", "x_", "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"x", ",", "r"}], "]"}], " ", "+", " ", 
   RowBox[{
    FractionBox[
     RowBox[{"I", " ", 
      RowBox[{"Kt", "[", "r", "]"}]}], 
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}]], "x"}]}]}]}], "Input",
 CellChangeTimes->{{3.8680976411663523`*^9, 3.86809765155827*^9}, {
   3.8680977040349083`*^9, 3.8680977275347085`*^9}, {3.8681070345747194`*^9, 
   3.8681070379607935`*^9}, {3.868297668272604*^9, 3.868297677695408*^9}, {
   3.869031883547408*^9, 3.8690319118416667`*^9}, 3.8690344965748634`*^9, {
   3.8695619093620987`*^9, 3.8695619606508274`*^9}, {3.869819739997523*^9, 
   3.8698197434474487`*^9}, 3.8698256116146927`*^9},
 CellLabel->"In[5]:=",ExpressionUUID->"01a83763-db5e-47d5-bd8f-3fdd452d2d31"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Eth]p", "[", 
   RowBox[{"x_", ",", 
    RowBox[{"{", 
     RowBox[{"s_", ",", "b_"}], "}"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", 
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
      SqrtBox["2"]], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"L", "[", 
        RowBox[{"#", ",", "s"}], "]"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"s", "+", "b"}], ")"}], "I", " ", "a", " ", 
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], 
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "#"}]}], ")"}]}], "&"}], "[", 
   "x", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Thorn]p", "[", 
   RowBox[{"x_", ",", 
    RowBox[{"{", 
     RowBox[{"s_", ",", "b_"}], "}"}]}], "]"}], ":=", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], 
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], 
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "2"]}], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Jp", "[", "x", "]"}], "+", 
     RowBox[{
      FractionBox[
       RowBox[{"b", " ", 
        RowBox[{
         RowBox[{"\[CapitalDelta]", "'"}], "[", "r", "]"}]}], 
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}]], "x"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "+", "s"}], ")"}], 
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "x"}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"b", "-", "s"}], ")"}], 
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "x"}]}], ")"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"\[Epsilon]", " ", "=", " ", 
     RowBox[{"0", " ", "=", " ", 
      OverscriptBox["\[Epsilon]", "_"]}]}], "*)"}]}]}]}], "Input",
 CellChangeTimes->{{3.868097529082527*^9, 3.868097629066981*^9}, {
   3.8681070169639482`*^9, 3.8681070194961214`*^9}, {3.869031701117385*^9, 
   3.869031709923527*^9}, {3.869031762055793*^9, 3.8690317763620405`*^9}, {
   3.8690318573094225`*^9, 3.8690318784730387`*^9}, 3.8690328254582777`*^9, {
   3.8695620095558357`*^9, 3.8695620545847282`*^9}, 3.8695647802946243`*^9, {
   3.8698190643914356`*^9, 3.86981911771909*^9}, {3.869819707925089*^9, 
   3.869819795644817*^9}, {3.869821787674497*^9, 3.8698217909537506`*^9}, 
   3.869821913733489*^9, 3.869823577928424*^9, {3.869824704202464*^9, 
   3.8698247071244636`*^9}, {3.8698250173523664`*^9, 3.869825025390296*^9}, {
   3.869825149804634*^9, 3.8698251534279118`*^9}, {3.869825303431117*^9, 
   3.869825303904966*^9}, {3.8698253698641376`*^9, 3.8698253699883533`*^9}, {
   3.8698254458241706`*^9, 3.8698254578193874`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"21314f03-6d8b-48f2-98f8-7bdd88b4b757"]
}, Closed]],

Cell[CellGroupData[{

Cell["\[Rho] Derivatives", "Subsubsection",
 CellChangeTimes->{{3.869047669769209*^9, 3.869047675660429*^9}, {
  3.869562071936843*^9, 3.8695620733139057`*^9}, {3.869820364084036*^9, 
  3.869820365299244*^9}},ExpressionUUID->"836e7cf4-8c8a-4c63-a4c3-\
4710da04118b"],

Cell[TextData[{
 "Replacement rule for derivatives of \[Rho], and ",
 Cell[BoxData[
  FormBox[
   OverscriptBox["\[Rho]", "_"], TraditionalForm]],ExpressionUUID->
  "5b35e0d5-d1ba-460e-bd36-126617835e17"],
 "."
}], "Text",
 CellChangeTimes->{{3.8691176359111643`*^9, 
  3.869117654604536*^9}},ExpressionUUID->"1baf3b08-9762-4a1a-9f9f-\
3433d86c1ca2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "-", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", "r"}], "]"}], " ", "==", 
   FractionBox["1", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"r", "-", 
       RowBox[{"\[ImaginaryI]", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]}], 
  RowBox[{"(*", 
   SuperscriptBox["\[Rho]", "2"], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "+", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", "r"}], "]"}], "==", 
   FractionBox["1", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"r", "+", 
       RowBox[{"\[ImaginaryI]", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]}], " ", 
  RowBox[{"(*", 
   SuperscriptBox["\[Rho]b", "2"], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "-", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "2"}], "}"}]}], "]"}], "==", 
   RowBox[{"-", 
    FractionBox["2", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "-", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "3"]]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{"2", 
    SuperscriptBox["\[Rho]", "3"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "+", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"r", ",", "2"}], "}"}]}], "]"}], " ", "==", 
   RowBox[{"-", 
    FractionBox["2", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "3"]]}]}], 
  RowBox[{"(*", " ", 
   RowBox[{"2", 
    SuperscriptBox["\[Rho]b", "3"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "-", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", "\[Theta]"}], "]"}], 
   "==", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", "a", " ", 
     RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"r", "-", 
       RowBox[{"\[ImaginaryI]", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"I", " ", "a", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    SuperscriptBox["\[Rho]", "2"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "+", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", "\[Theta]"}], "]"}], 
   "==", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", "a", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"-", " ", "I"}], " ", "a", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    SuperscriptBox["\[Rho]b", "2"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "-", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "2"}], "}"}]}], "]"}], " ", "==", 
   RowBox[{
    FractionBox[
     RowBox[{"\[ImaginaryI]", " ", "a", " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "-", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "-", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "3"]]}]}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"I", " ", "a", " ", 
     RowBox[{"cos", "[", "\[Theta]", "]"}], " ", 
     SuperscriptBox["\[Rho]", "2"]}], " ", "-", " ", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
     SuperscriptBox["\[Rho]", "3"]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], 
      RowBox[{"r", "+", 
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", "2"}], "}"}]}], "]"}], " ", "==", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "a", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"r", "+", 
         RowBox[{"\[ImaginaryI]", " ", "a", " ", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "2"]]}], "+", 
    FractionBox[
     RowBox[{"2", " ", 
      SuperscriptBox["a", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "+", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "3"]]}]}], 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "I"}], " ", "a", " ", 
     RowBox[{"cos", "[", "\[Theta]", "]"}], " ", 
     SuperscriptBox["\[Rho]b", "2"]}], " ", "-", " ", 
    RowBox[{"2", " ", 
     SuperscriptBox["a", "2"], " ", 
     SuperscriptBox[
      RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
     SuperscriptBox["\[Rho]b", "3"]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       FractionBox[
        RowBox[{"-", "1"}], 
        RowBox[{"r", "-", 
         RowBox[{"I", " ", "a", " ", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", "r"}], "]"}], ",", 
     "\[Theta]"}], "]"}], "==", " ", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"r", "-", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "3"]]}]}], 
  RowBox[{"(*", " ", 
   RowBox[{"2", " ", "I", " ", "a", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    SuperscriptBox["\[Rho]", "3"]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"-", "1"}], 
       RowBox[{"r", "+", 
        RowBox[{"I", " ", "a", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], ",", "r"}], "]"}], ",", 
    "\[Theta]"}], "]"}], " ", "==", 
  FractionBox[
   RowBox[{"2", " ", "\[ImaginaryI]", " ", "a", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"r", "+", 
      RowBox[{"\[ImaginaryI]", " ", "a", " ", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}], "3"]], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"-", "2"}], " ", "I", " ", "a", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
    SuperscriptBox["\[Rho]b", "3"]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.8690477331553063`*^9, 3.8690477818235607`*^9}, {
  3.869047881072093*^9, 3.869047894743806*^9}, {3.8691174979580216`*^9, 
  3.8691175175193443`*^9}, {3.8691175958055067`*^9, 3.869117604840475*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"7178cfa6-7df5-4990-b80e-15bd14912f73"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.8703287860220346`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"d69fb37f-90fd-4ad9-992f-4c7423fe26a1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.8703287860242643`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"23ad9fd3-7749-4b15-bcba-a9225ca20fab"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.870328786026278*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"c2180851-e41b-4afd-8f00-77e1f334aabb"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.870328786028348*^9},
 CellLabel->"Out[13]=",ExpressionUUID->"23ab116a-9bae-46f6-92f0-d8735c0367c1"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.8703287860292273`*^9},
 CellLabel->"Out[14]=",ExpressionUUID->"6b5b03b6-28fa-45c7-966e-7c41e52f824f"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.8703287860292273`*^9},
 CellLabel->"Out[15]=",ExpressionUUID->"22ef30a2-2399-41b3-b185-663c897075d0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.8703287860302987`*^9},
 CellLabel->"Out[16]=",ExpressionUUID->"fd004198-4ed1-4ac1-9aac-f5b66672ccbd"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.8703287860335474`*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"d47c42bf-f616-448c-8269-77e12a2e70c0"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.870328786034534*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"bc27bfb8-0c6c-4c46-b62a-2160a5b42588"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{3.8691176185934668`*^9, 3.8692210021333447`*^9, 
  3.869304909866975*^9, 3.869304948726847*^9, 3.8696350531524305`*^9, 
  3.86963741659229*^9, 3.869637947239998*^9, 3.869646299528908*^9, 
  3.869646538189407*^9, 3.869820372403598*^9, 3.8698266367378902`*^9, 
  3.8701679645574365`*^9, 3.870172849906743*^9, 3.8703217788596973`*^9, 
  3.8703229077990365`*^9, 3.8703234852110023`*^9, 3.8703236770659285`*^9, 
  3.8703238367817516`*^9, 3.8703258489102755`*^9, 3.870328786035486*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"4aad2045-a1c3-4a75-8e6e-bcc7eb2de505"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"rule", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"2", ",", "0"}], "]"}], "[", "\[Rho]", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{"2", 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"2", ",", "0"}], "]"}], "[", "\[Rho]b", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{"2", 
       SuperscriptBox[
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"1", ",", "0"}], "]"}], "[", "\[Rho]", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      SuperscriptBox[
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"1", ",", "0"}], "]"}], "[", "\[Rho]b", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      SuperscriptBox[
       RowBox[{"\[Rho]b", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"0", ",", "2"}], "]"}], "[", "\[Rho]", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{
       RowBox[{"I", " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], 
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], "-", 
       RowBox[{"2", 
        SuperscriptBox["a", "2"], 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], 
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"0", ",", "2"}], "]"}], "[", "\[Rho]b", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "I"}], " ", "a", " ", 
        RowBox[{"Cos", "[", "\[Theta]", "]"}], 
        SuperscriptBox[
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], "-", 
       RowBox[{"2", 
        SuperscriptBox["a", "2"], 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], 
        SuperscriptBox[
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"0", ",", "1"}], "]"}], "[", "\[Rho]", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{"I", " ", "a", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"0", ",", "1"}], "]"}], "[", "\[Rho]b", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{
       RowBox[{"-", "I"}], " ", "a", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], 
       SuperscriptBox[
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"1", ",", "1"}], "]"}], "[", "\[Rho]", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{"2", "I", " ", "a", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"Derivative", "[", 
         RowBox[{"1", ",", "1"}], "]"}], "[", "\[Rho]b", "]"}], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{
       RowBox[{"-", "2"}], "I", " ", "a", " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], 
       SuperscriptBox[
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalDelta]", "''"}], "[", "r", "]"}], "->", "2"}]}], 
    "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.86904797011689*^9, 3.8690480558795843`*^9}, {
  3.869827566552006*^9, 3.8698275700277867`*^9}},
 CellLabel->"In[20]:=",ExpressionUUID->"fe18dae1-8306-4b45-a08f-afa3bfc27eee"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "Term 1 \[Implies] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{"\[Eth]", "-", 
        RowBox[{
         OverscriptBox["\[Tau]", "_"], "'"}], "-", 
        RowBox[{"4", "\[Tau]"}]}], ")"}]}], 
     RowBox[{"(", 
      RowBox[{"\[Eth]", "-", 
       RowBox[{
        OverscriptBox["\[Tau]", "_"], "'"}]}], ")"}], 
     SubscriptBox["T", 
      RowBox[{"n", " ", "n"}]]}], " ", "==", " ", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", "2"]}], 
     SuperscriptBox["\[Rho]", "8"], 
     OverscriptBox["\[Rho]", "_"], 
     RowBox[{
      SubscriptBox["L", 
       RowBox[{"-", "1"}]], "[", 
      RowBox[{
       SuperscriptBox["\[Rho]", 
        RowBox[{"-", "4"}]], 
       RowBox[{
        SubscriptBox["L", "0"], "(", 
        RowBox[{
         SuperscriptBox["\[Rho]", 
          RowBox[{"-", "2"}]], 
         SuperscriptBox[
          RowBox[{
           OverscriptBox["\[Rho]", "_"], " "}], 
          RowBox[{"-", "1"}]], 
         SubscriptBox["T", 
          RowBox[{"n", " ", "n"}]]}], ")"}]}], "]"}]}]}], TraditionalForm]],
  ExpressionUUID->"faf451df-5f72-46e5-99fe-ecb9abbc58fa"]
}], "Subsubsection",
 CellChangeTimes->{{3.8690314983326473`*^9, 3.869031507172472*^9}, {
  3.8690500566327033`*^9, 3.869050172708271*^9}, {3.8695656744497433`*^9, 
  3.869565742357751*^9}, {3.8695673883112574`*^9, 3.8695673980231066`*^9}, {
  3.869824065449772*^9, 3.869824096801117*^9}, {3.8698265630704536`*^9, 
  3.8698265664109106`*^9}},ExpressionUUID->"808eada7-da75-4479-8e94-\
4b9c1132b5d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V1", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        FractionBox["1", "2"], 
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n1"], 
        SuperscriptBox[
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
        RowBox[{"L", "[", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
           SuperscriptBox[
            RowBox[{"\[Rho]b", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "n4"], 
           RowBox[{"L", "[", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"\[Rho]", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
              SuperscriptBox[
               RowBox[{"\[Rho]b", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "n6"], 
              RowBox[{"Tnn", "[", 
               RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ",", "0"}], "]"}]}], 
          ",", 
          RowBox[{"-", "1"}]}], "]"}]}], "/.", "rule"}], ")"}]}], "//", 
    "Expand"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.868097826650919*^9, 3.868097973738495*^9}, {
   3.868098037998931*^9, 3.868098044391589*^9}, {3.868098108062253*^9, 
   3.8680981093514977`*^9}, {3.868098152554826*^9, 3.8680981537732625`*^9}, {
   3.8680986296281457`*^9, 3.868098659515232*^9}, {3.868098789642358*^9, 
   3.8680988214374266`*^9}, 3.8680997125583043`*^9, {3.8680998744110346`*^9, 
   3.8680998764906306`*^9}, {3.8680999758979845`*^9, 
   3.8681000039881024`*^9}, {3.8681000720763083`*^9, 3.868100109183343*^9}, {
   3.8681061770900345`*^9, 3.868106184721237*^9}, {3.8681062147430854`*^9, 
   3.868106270849414*^9}, {3.86810632890734*^9, 3.8681063644888787`*^9}, {
   3.8681071851537066`*^9, 3.8681072301732054`*^9}, {3.868107455315678*^9, 
   3.868107591736331*^9}, {3.868107652434295*^9, 3.868107681518387*^9}, {
   3.868107844602056*^9, 3.868107929066517*^9}, {3.868108145524871*^9, 
   3.868108173360239*^9}, {3.8681082619788275`*^9, 3.8681082712367105`*^9}, {
   3.868108330408578*^9, 3.868108337190052*^9}, 3.868108442139654*^9, 
   3.86810849955695*^9, 3.868108929389645*^9, {3.8681099541492243`*^9, 
   3.868109955008027*^9}, 3.868110102885364*^9, 3.8681101804097595`*^9, {
   3.868110248196253*^9, 3.8681102972936773`*^9}, {3.8681104296463957`*^9, 
   3.8681104326945505`*^9}, 3.8682996606056337`*^9, {3.868301177428237*^9, 
   3.8683011925507545`*^9}, {3.869030822123098*^9, 3.869030825754314*^9}, {
   3.8690480645354843`*^9, 3.869048064878555*^9}, 3.8690481086884737`*^9, {
   3.869562782188512*^9, 3.8695627859944925`*^9}, {3.8695646845982747`*^9, 
   3.8695647168007107`*^9}, {3.869565359137997*^9, 3.869565361466858*^9}, {
   3.8695683728443327`*^9, 3.8695683771525965`*^9}, {3.869819923645359*^9, 
   3.8698199334147797`*^9}, {3.869820133471573*^9, 3.869820151319089*^9}, {
   3.8698201942483635`*^9, 3.8698201974241843`*^9}, {3.869820256455431*^9, 
   3.869820256790378*^9}, {3.869820671265004*^9, 3.869820675390359*^9}, {
   3.8698231578345413`*^9, 3.869823164612175*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"80a3fb0d-33bc-4f67-8ed6-4bb41635611c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V2", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Eth]p", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "1"}], ",", 
              RowBox[{"-", "2"}]}], "}"}]}], "]"}], "-", 
          RowBox[{"4", "\[Tau]p", "#"}], "-", 
          RowBox[{"\[Tau]b", "#"}]}], ")"}]}], "&"}], "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Eth]p", "[", 
           RowBox[{"#", ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"-", "2"}]}], "}"}]}], "]"}], "-", 
          RowBox[{"\[Tau]b", " ", "#"}]}], " ", ")"}], "&"}], "[", 
       RowBox[{"Tnn", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "]"}], "]"}], "/.", "rule"}], "//",
     "Expand"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.868098065239753*^9, 3.868098081244085*^9}, {
   3.8680981129329276`*^9, 3.868098114695422*^9}, {3.868098156101783*^9, 
   3.8680981568865013`*^9}, {3.8680986739446583`*^9, 3.868098674282322*^9}, {
   3.8680998806641893`*^9, 3.868099881658533*^9}, {3.8681072564771843`*^9, 
   3.8681073004851975`*^9}, 3.8681080556921577`*^9, {3.868108381851409*^9, 
   3.8681083866738324`*^9}, {3.868108427448682*^9, 3.868108428832758*^9}, 
   3.868108507110074*^9, {3.86810898191597*^9, 3.8681089949830933`*^9}, {
   3.8681099431849*^9, 3.868109944251998*^9}, {3.8681099922159777`*^9, 
   3.868109993902604*^9}, 3.8681100259596577`*^9, {3.868110439701704*^9, 
   3.8681104419246426`*^9}, {3.8681172539600115`*^9, 3.8681172555474286`*^9}, 
   3.868297524186957*^9, 3.868299336120051*^9, {3.8690480720265503`*^9, 
   3.86904807442485*^9}, 3.869048109846606*^9, {3.8698202048848076`*^9, 
   3.869820206741931*^9}, {3.869820261861848*^9, 3.869820325406391*^9}, 
   3.869821313511212*^9, {3.869821795261902*^9, 3.8698217960354333`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"6944cd97-fd15-46ad-a38e-deffdc35aaf9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"V1", "-", "V2"}], ")"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n1", "->", 
        RowBox[{"2", "-", "n3", "-", "n5"}]}], ",", 
       RowBox[{"n2", "->", 
        RowBox[{
         RowBox[{"-", "n4"}], "-", "n6"}]}]}], "}"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n4", "->", 
       RowBox[{
        RowBox[{"-", "2"}], "-", 
        RowBox[{"2", "n6"}]}]}], ",", 
      RowBox[{"n3", "->", 
       RowBox[{
        RowBox[{"-", "8"}], "-", 
        RowBox[{"2", "n5"}]}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"n6", "->", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"n5", "->", 
      RowBox[{"-", "2"}]}]}], "}"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.8682991093150883`*^9, 3.8682991215877666`*^9}, {
   3.868299351607949*^9, 3.868299370038923*^9}, {3.868299556547018*^9, 
   3.868299561904949*^9}, {3.8682996676139975`*^9, 3.8682996743449855`*^9}, {
   3.8683010108375616`*^9, 3.86830101156151*^9}, {3.868301118626479*^9, 
   3.86830114465932*^9}, {3.86830121489692*^9, 3.868301253778369*^9}, {
   3.8683013526148176`*^9, 3.868301360150449*^9}, {3.8683014021580076`*^9, 
   3.86830142804161*^9}, {3.8683014904586873`*^9, 3.8683015037422523`*^9}, {
   3.8683015416824703`*^9, 3.8683015934082117`*^9}, {3.8683016918315477`*^9, 
   3.8683017171221266`*^9}, {3.8683018292120476`*^9, 
   3.8683018462712545`*^9}, {3.86830196588902*^9, 3.868301997223005*^9}, 
   3.8690302531604586`*^9, {3.869030397534237*^9, 3.8690304134125576`*^9}, {
   3.869030899161186*^9, 3.8690309187047453`*^9}, {3.8690309543991365`*^9, 
   3.8690309666455526`*^9}, {3.869031058690445*^9, 3.869031105120494*^9}, {
   3.8690311746466646`*^9, 3.8690312041322985`*^9}, {3.869562144075003*^9, 
   3.869562179441741*^9}, {3.8695622142671356`*^9, 3.86956228917828*^9}, {
   3.869562333946248*^9, 3.869562339066451*^9}, {3.8695624136269217`*^9, 
   3.8695624137782693`*^9}, {3.8695628442642465`*^9, 3.869562872937149*^9}, {
   3.8695629451561747`*^9, 3.8695629518710537`*^9}, {3.8695630072563033`*^9, 
   3.869563011767926*^9}, {3.869563053259038*^9, 3.869563056433031*^9}, {
   3.869563086722224*^9, 3.869563096897157*^9}, {3.8695631815940757`*^9, 
   3.8695631854820967`*^9}, {3.8695644019225407`*^9, 3.869564431123423*^9}, {
   3.8695645512813435`*^9, 3.869564588460179*^9}, {3.8695646316452093`*^9, 
   3.8695646354334335`*^9}, {3.8695647485603867`*^9, 
   3.8695647521137037`*^9}, {3.8695648056583557`*^9, 3.869564854346609*^9}, {
   3.8695648917398577`*^9, 3.8695648946115212`*^9}, {3.8695649266938953`*^9, 
   3.869564961430336*^9}, {3.8695651887841816`*^9, 3.869565195296774*^9}, {
   3.8695652284295774`*^9, 3.8695652422551274`*^9}, {3.8695653102162724`*^9, 
   3.869565317318099*^9}, {3.8695653672456226`*^9, 3.8695653813138237`*^9}, {
   3.8695654779408016`*^9, 3.8695656094834604`*^9}, {3.8698204005743012`*^9, 
   3.8698204321904445`*^9}, {3.869820478019829*^9, 3.8698204857476587`*^9}, {
   3.8698205237664633`*^9, 3.869820528670887*^9}, {3.8698205656620507`*^9, 
   3.8698206000920825`*^9}, {3.869820682373623*^9, 3.8698207319500995`*^9}, {
   3.869820770852518*^9, 3.8698209195082607`*^9}, {3.86982096206813*^9, 
   3.869821080820715*^9}, {3.869821132092281*^9, 3.8698212172373104`*^9}, {
   3.86982129708768*^9, 3.8698214038724637`*^9}, {3.8698214476381626`*^9, 
   3.8698214515729046`*^9}, 3.8698215642479353`*^9, {3.869821809094141*^9, 
   3.869821866029132*^9}, {3.869821935111919*^9, 3.869821987814176*^9}, {
   3.8698236073484983`*^9, 3.869823628669567*^9}, {3.869823671038932*^9, 
   3.8698237303481445`*^9}, {3.869823761961376*^9, 3.86982380107822*^9}, {
   3.8698238531906643`*^9, 3.869823866947692*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"b01cbb37-84b0-4cb3-9836-fa3fdfb411df"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.869821290832279*^9, 3.8698213571883326`*^9}, {
   3.8698213900157757`*^9, 3.8698214045068116`*^9}, 3.8698215648969283`*^9, {
   3.8698217977290163`*^9, 3.869821866999761*^9}, {3.869821926647086*^9, 
   3.8698219897733917`*^9}, {3.8698235877799807`*^9, 3.869823637421956*^9}, {
   3.8698236774539967`*^9, 3.8698237308592577`*^9}, {3.869823765536047*^9, 
   3.869823771666995*^9}, 3.8698238017911243`*^9, {3.8698238569991827`*^9, 
   3.8698238672002287`*^9}, 3.8698266368211603`*^9, 3.8701679646262255`*^9, 
   3.8701728500561576`*^9, 3.8703217789299498`*^9, 3.8703229078833733`*^9, 
   3.8703234853002496`*^9, 3.870323677153859*^9, 3.870323836879216*^9, 
   3.8703258489728804`*^9, 3.8703287860787044`*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"75dacc8a-2df9-4c9c-86f8-73576e8c38e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term1Sols", " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n1", "==", 
        RowBox[{"2", "-", "n3", "-", "n5"}]}], ",", 
       RowBox[{"n2", "==", 
        RowBox[{
         RowBox[{"-", "n4"}], "-", "n6"}]}], ",", 
       RowBox[{"n4", "==", 
        RowBox[{
         RowBox[{"-", "2"}], "-", 
         RowBox[{"2", "n6"}]}]}], ",", 
       RowBox[{"n3", "==", 
        RowBox[{
         RowBox[{"-", "8"}], "-", 
         RowBox[{"2", "n5"}]}]}], ",", 
       RowBox[{"n6", "==", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"n5", "==", 
        RowBox[{"-", "2"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6"}], 
      "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.869823932900182*^9, 3.8698239922265778`*^9}, {
  3.8698240233554754`*^9, 3.8698240429894934`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"086c659b-118d-404d-8515-b7cdb1193888"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"n1", "\[Rule]", "8"}], ",", 
   RowBox[{"n2", "\[Rule]", "1"}], ",", 
   RowBox[{"n3", "\[Rule]", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"n4", "\[Rule]", "0"}], ",", 
   RowBox[{"n5", "\[Rule]", 
    RowBox[{"-", "2"}]}], ",", 
   RowBox[{"n6", "\[Rule]", 
    RowBox[{"-", "1"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8698239731732626`*^9, 3.869823993197409*^9}, {
   3.8698240243278227`*^9, 3.8698240435356655`*^9}, 3.869826636870734*^9, 
   3.8701679646565037`*^9, 3.870172850099349*^9, 3.87032177895926*^9, 
   3.8703229079225855`*^9, 3.8703234853327837`*^9, 3.8703236772052245`*^9, 
   3.8703238369139357`*^9, 3.870325849002708*^9, 3.8703287861050386`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"54522db7-bfae-465e-85fb-c7a3b4c26c07"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"V1", "/.", "Term1Sols"}], ")"}], "==", "V2"}], ")"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.869031391515748*^9, 3.8690314811980457`*^9}, {
  3.8695656935767612`*^9, 3.8695656937669096`*^9}, {3.8695680058822975`*^9, 
  3.8695680065733166`*^9}, {3.8695680368283963`*^9, 3.869568063317194*^9}, {
  3.8695681383757415`*^9, 3.869568145541171*^9}, {3.869568326504691*^9, 
  3.869568334018663*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"bd4d464c-5899-414d-bf76-f0054bb5a55b"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.8690314461156874`*^9, 3.869031481399419*^9}, 
   3.8690480890876074`*^9, 3.86904812002475*^9, 3.8690489138502345`*^9, 
   3.8691176824216194`*^9, 3.869221002216685*^9, 3.869304909934635*^9, 
   3.8693049488040285`*^9, 3.869565614254609*^9, {3.8695680797187147`*^9, 
   3.8695681073063793`*^9}, 3.8695681388104224`*^9, {3.869568336737162*^9, 
   3.8695683448346252`*^9}, 3.869635053275273*^9, 3.8696374167182536`*^9, 
   3.8696379473882904`*^9, 3.8696462996416693`*^9, 3.8696465383169565`*^9, 
   3.869824054489581*^9, 3.869826636915922*^9, 3.870167964685812*^9, 
   3.8701728501074452`*^9, 3.870321778991764*^9, 3.870322907928583*^9, 
   3.870323485366091*^9, 3.8703236772398844`*^9, 3.8703238369370384`*^9, 
   3.8703258490091524`*^9, 3.870328786128999*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"d0c1f8cc-a99f-45e3-b3a0-db87297ef97f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Term 2 \[Implies] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Eth]", "'"}], "-", 
       OverscriptBox["\[Tau]", "_"], "-", 
       RowBox[{"4", 
        RowBox[{"\[Tau]", "'"}]}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Thorn]", "'"}], "-", 
       RowBox[{"2", 
        RowBox[{
         OverscriptBox["\[Rho]", "_"], "'"}]}]}], ")"}], 
     SubscriptBox["T", 
      RowBox[{"n", " ", 
       OverscriptBox["m", "_"]}]]}], " ", "==", " ", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", 
       SqrtBox["2"]}]], 
     SuperscriptBox["\[CapitalDelta]", "2"], 
     SuperscriptBox["\[Rho]", "8"], 
     OverscriptBox["\[Rho]", "_"], " ", 
     RowBox[{
      SubscriptBox["L", 
       RowBox[{"-", "1"}]], "[", 
      RowBox[{
       SuperscriptBox["\[Rho]", 
        RowBox[{"-", "4"}]], 
       SuperscriptBox[
        OverscriptBox["\[Rho]", "_"], "2"], 
       RowBox[{
        SubscriptBox["J", "+"], "(", 
        RowBox[{
         SuperscriptBox["\[CapitalDelta]", 
          RowBox[{"-", "1"}]], 
         SuperscriptBox["\[Rho]", 
          RowBox[{"-", "2"}]], 
         SuperscriptBox[
          OverscriptBox["\[Rho]", "_"], 
          RowBox[{" ", 
           RowBox[{"-", "2"}]}]], 
         SubscriptBox["T", 
          RowBox[{"n", " ", 
           OverscriptBox["m", "_"]}]]}], ")"}]}], "]"}], " "}]}], 
   TraditionalForm]],ExpressionUUID->"5cce2d23-1545-4d9e-a834-5be7c22be425"]
}], "Subsubsection",
 CellChangeTimes->{{3.869048556522482*^9, 3.869048567107657*^9}, {
  3.8690502771063137`*^9, 3.8690504333066416`*^9}, {3.869117929438963*^9, 
  3.869117929438963*^9}, {3.869565885948165*^9, 3.869565887777897*^9}, {
  3.869566770191321*^9, 3.8695667701923122`*^9}, {3.8695674058112693`*^9, 
  3.86956740757109*^9}, {3.8698241447519517`*^9, 3.869824174991933*^9}, {
  3.869826485930748*^9, 
  3.869826558886816*^9}},ExpressionUUID->"5238d5d7-1ead-4124-adfa-\
863b0942c81a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V1", " ", "=", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", 
       SqrtBox["2"]}]], " ", 
     SuperscriptBox[
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n1"], 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
     SuperscriptBox[
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
     RowBox[{"L", "[", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n4"], 
        SuperscriptBox[
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
        RowBox[{"Jp", "[", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n6"], 
          SuperscriptBox[
           RowBox[{"\[Rho]", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "n7"], 
          SuperscriptBox[
           RowBox[{"\[Rho]b", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "n8"], 
          RowBox[{"Tnmb", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "]"}]}], ",", 
       RowBox[{"-", "1"}]}], "]"}]}], "/.", "rule"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8690486432624345`*^9, 3.869048754365304*^9}, 
   3.8690491280162764`*^9, 3.869049196225007*^9, 3.8695657738934703`*^9, {
   3.869565818580103*^9, 3.869565819192428*^9}, {3.8695658769520435`*^9, 
   3.8695658827923737`*^9}, {3.86982419066397*^9, 3.869824199955381*^9}, {
   3.8698242834589143`*^9, 3.869824328634957*^9}, 3.8698262282223577`*^9},
 CellLabel->"In[26]:=",ExpressionUUID->"f0a973e1-35ce-4358-a44a-fa68e5fd9f0e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V2", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Eth]p", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "2"}]}], "}"}]}], "]"}], "-", 
        RowBox[{"\[Tau]b", " ", "#"}], " ", "-", 
        RowBox[{"4", "\[Tau]p", " ", "#"}]}], " ", ")"}], "&"}], "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Thorn]p", "[", 
          RowBox[{"#", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}]}], "}"}]}], "]"}], "-", 
         RowBox[{"2", " ", "\[Rho]pb", "#"}]}], ")"}], "&"}], "[", 
      RowBox[{"Tnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "]"}], "]"}], "/.", "rule"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8690487563973827`*^9, 3.8690488237619743`*^9}, {
   3.8690488865404944`*^9, 3.8690488867964563`*^9}, {3.869048975573206*^9, 
   3.869048977587376*^9}, {3.8698242060905447`*^9, 3.8698242457903805`*^9}, 
   3.8698243022280684`*^9, 3.869824585871565*^9, {3.8698255507371845`*^9, 
   3.8698255525161824`*^9}, {3.8698256628161407`*^9, 3.869825665667346*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"973e1fd9-fe1d-4c57-8ebb-fd21b3cf78a8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"V1", "-", "V2"}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n1", "->", 
        RowBox[{"1", "-", "n6"}]}], ",", 
       RowBox[{"n2", "->", 
        RowBox[{"2", "-", "n4", "-", "n7"}]}], ",", 
       RowBox[{"n3", "->", 
        RowBox[{"1", "-", "n5", "-", "n8"}]}]}], "}"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n5", "->", 
       RowBox[{"-", "n8"}]}], ",", 
      RowBox[{"n4", "->", 
       RowBox[{
        RowBox[{"-", "6"}], "-", "n7"}]}], ",", 
      RowBox[{"n6", "->", 
       RowBox[{"-", "1"}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"n8", "->", 
      RowBox[{"-", "2"}]}], ",", 
     RowBox[{"n7", "->", 
      RowBox[{"-", "2"}]}]}], "}"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.8690488281112823`*^9, 3.8690488401059866`*^9}, {
   3.8690491413785686`*^9, 3.8690491870544024`*^9}, {3.869049217102404*^9, 
   3.8690493094567394`*^9}, 3.8695658461839848`*^9, 3.8695658906764307`*^9, 
   3.8698242624123287`*^9, {3.869824350923332*^9, 3.86982448209978*^9}, {
   3.8698245177982616`*^9, 3.8698245213653765`*^9}, {3.8698245967338715`*^9, 
   3.869824634444971*^9}, {3.869824724548396*^9, 3.869824813460958*^9}, {
   3.869824904701875*^9, 3.869824914562975*^9}, 3.8698249853970494`*^9, {
   3.869825039869921*^9, 3.8698251125974855`*^9}, {3.8698253133731422`*^9, 
   3.8698253353687477`*^9}, {3.869825391627945*^9, 3.86982540857296*^9}, {
   3.869825563420335*^9, 3.8698255783645353`*^9}, {3.869825977100626*^9, 
   3.8698260258039117`*^9}, {3.86982624298835*^9, 3.8698263878919697`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"6e3383f7-ef81-450a-89ce-cf75b9cc2f22"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8698247887252893`*^9, 3.8698248141408005`*^9}, 
   3.8698249152309694`*^9, 3.8698249859958153`*^9, 3.8698250321905184`*^9, {
   3.8698250831301346`*^9, 3.8698251135448537`*^9}, {3.8698253097304316`*^9, 
   3.8698253360369973`*^9}, {3.8698253762473392`*^9, 3.8698254089272623`*^9}, 
   3.8698254618563557`*^9, {3.869825555089743*^9, 3.869825578923723*^9}, 
   3.869825617580554*^9, 3.869825683784116*^9, 3.869826026134015*^9, {
   3.8698262323618994`*^9, 3.869826246744639*^9}, {3.8698262904013844`*^9, 
   3.869826388379232*^9}, 3.8698266369842863`*^9, 3.8701679647332416`*^9, 
   3.8701728501631513`*^9, 3.8703217790437384`*^9, 3.8703229079820347`*^9, 
   3.870323485411372*^9, 3.870323677286766*^9, 3.8703238369761696`*^9, 
   3.8703258490559773`*^9, 3.870328786166804*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"fe2f77d6-0dfb-4338-a845-f359d05aff4c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term2Sols", " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n1", "==", 
        RowBox[{"1", "-", "n6"}]}], ",", 
       RowBox[{"n2", "==", 
        RowBox[{"2", "-", "n4", "-", "n7"}]}], ",", 
       RowBox[{"n3", "==", 
        RowBox[{"1", "-", "n5", "-", "n8"}]}], ",", 
       RowBox[{"n5", "==", 
        RowBox[{"-", "n8"}]}], ",", 
       RowBox[{"n4", "==", 
        RowBox[{
         RowBox[{"-", "6"}], "-", "n7"}]}], ",", 
       RowBox[{"n6", "==", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"n8", "==", 
        RowBox[{"-", "2"}]}], ",", 
       RowBox[{"n7", "==", 
        RowBox[{"-", "2"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", 
       ",", "n8"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8698263929438157`*^9, 3.8698264625223894`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"6854c123-7b82-4426-bbbf-cb98d0fbe670"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"n1", "\[Rule]", "2"}], ",", 
   RowBox[{"n2", "\[Rule]", "8"}], ",", 
   RowBox[{"n3", "\[Rule]", "1"}], ",", 
   RowBox[{"n4", "\[Rule]", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"n5", "\[Rule]", "2"}], ",", 
   RowBox[{"n6", "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{"n7", "\[Rule]", 
    RowBox[{"-", "2"}]}], ",", 
   RowBox[{"n8", "\[Rule]", 
    RowBox[{"-", "2"}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.8698264428722835`*^9, 3.8698264637496986`*^9}, 
   3.869826637030981*^9, 3.870167964761969*^9, 3.8701728501975574`*^9, 
   3.8703217790773554`*^9, 3.870322908013289*^9, 3.870323485442152*^9, 
   3.870323677319359*^9, 3.8703238370042086`*^9, 3.870325849086301*^9, 
   3.8703287861923156`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"0aa2d465-a094-4817-bac2-b4fd6aa09a28"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"V1", "/.", "Term2Sols"}], ")"}], "==", "V2"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.869049314578745*^9, 3.869049402474677*^9}, 
   3.869565873427006*^9, {3.869826469457347*^9, 3.8698264711113033`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"59ac9b06-5451-400e-a2cc-037e2e2be4d8"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.869049396119913*^9, 3.8690494047239075`*^9}, 
   3.8691179731687546`*^9, 3.8692210037318764`*^9, 3.869304911518252*^9, 
   3.869304950184285*^9, {3.8695658709947333`*^9, 3.8695658925138073`*^9}, 
   3.8696350550019207`*^9, 3.8696374184201*^9, 3.869637948932661*^9, 
   3.8696463013544683`*^9, 3.869646539883992*^9, 3.8698264761534853`*^9, 
   3.8698266409085665`*^9, 3.870167968710699*^9, 3.870172854028216*^9, 
   3.870321783227441*^9, 3.8703229122344255`*^9, 3.8703234892499065`*^9, 
   3.8703236814676805`*^9, 3.870323840764951*^9, 3.870325853028248*^9, 
   3.8703287899917583`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"2d93450a-9f9d-41b9-af65-f480b596140f"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Term 3 \[Implies] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Thorn]", "'"}], "-", 
       RowBox[{"4", 
        RowBox[{"\[Rho]", "'"}]}], "-", 
       RowBox[{
        OverscriptBox["\[Rho]", "_"], "'"}]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Eth]", "'"}], "-", 
       RowBox[{"2", 
        OverscriptBox["\[Tau]", "_"]}]}], ")"}], 
     SubscriptBox["T", 
      RowBox[{"n", " ", 
       OverscriptBox["m", "_"]}]]}], " ", "==", " ", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", 
       SqrtBox["2"]}]], 
     SuperscriptBox["\[CapitalDelta]", "2"], 
     SuperscriptBox["\[Rho]", "8"], 
     OverscriptBox["\[Rho]", "_"], " ", 
     RowBox[{
      SubscriptBox["J", "+"], "[", 
      RowBox[{
       SuperscriptBox["\[CapitalDelta]", 
        RowBox[{"-", "1"}]], 
       SuperscriptBox["\[Rho]", 
        RowBox[{"-", "4"}]], 
       SuperscriptBox[
        OverscriptBox["\[Rho]", "_"], "2"], 
       RowBox[{
        SubscriptBox["L", 
         RowBox[{"-", "1"}]], "(", 
        RowBox[{
         SuperscriptBox["\[Rho]", 
          RowBox[{"-", "2"}]], 
         SuperscriptBox[
          OverscriptBox["\[Rho]", "_"], 
          RowBox[{" ", 
           RowBox[{"-", "2"}]}]], 
         SubscriptBox["T", 
          RowBox[{"n", " ", 
           OverscriptBox["m", "_"]}]]}], ")"}]}], "]"}]}]}], 
   TraditionalForm]],ExpressionUUID->"af55aefd-4d94-47d5-8483-8853bb85c0ae"]
}], "Subsubsection",
 CellChangeTimes->{{3.869048581101681*^9, 3.869048588859659*^9}, {
  3.869050452707657*^9, 3.86905061274954*^9}, {3.869117938059195*^9, 
  3.869117938059195*^9}, {3.869566774197457*^9, 3.869566774197457*^9}, {
  3.8695674140970993`*^9, 3.8695674154308743`*^9}, {3.8696333284859395`*^9, 
  3.869633330443878*^9}, {3.8696333740687466`*^9, 3.869633374203091*^9}, {
  3.8698266585031967`*^9, 3.869826687230028*^9}, {3.869827006020232*^9, 
  3.869827063674123*^9}, {3.8698271443628435`*^9, 
  3.8698271545490494`*^9}},ExpressionUUID->"55321dbb-b8e9-4298-a48a-\
00f2a08add67"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V1", " ", "=", " ", 
   RowBox[{
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", 
       SqrtBox["2"]}]], 
     SuperscriptBox[
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n1"], 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
     SuperscriptBox[
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
     RowBox[{"Jp", "[", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n4"], 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
       SuperscriptBox[
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "n6"], 
       RowBox[{"L", "[", 
        RowBox[{
         RowBox[{
          SuperscriptBox[
           RowBox[{"\[Rho]", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "n7"], 
          SuperscriptBox[
           RowBox[{"\[Rho]b", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "n8"], 
          RowBox[{"Tnmb", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ",", 
         RowBox[{"-", "1"}]}], "]"}]}], "]"}]}], "/.", "rule"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8690486432624345`*^9, 3.869048754365304*^9}, 
   3.8690491280162764`*^9, 3.869049196225007*^9, {3.869049427957599*^9, 
   3.869049462060621*^9}, {3.8695659258780484`*^9, 3.869565926313222*^9}, 
   3.869566777289981*^9, {3.86982658821043*^9, 3.869826597677791*^9}, 
   3.8698267650683336`*^9, {3.8698272307598753`*^9, 3.869827232147334*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"2c89b110-9045-4e2c-a92f-59d069c3b08b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V2", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Thorn]p", "[", 
         RowBox[{"#", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "2"}], ",", 
            RowBox[{"-", "1"}]}], "}"}]}], "]"}], "-", 
        RowBox[{"\[Rho]pb", " ", "#"}], " ", "-", 
        RowBox[{"4", "\[Rho]p", " ", "#"}]}], " ", ")"}], "&"}], "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eth]p", "[", 
          RowBox[{"#", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "1"}], ",", 
             RowBox[{"-", "1"}]}], "}"}]}], "]"}], "-", 
         RowBox[{"2", " ", "\[Tau]b", "#"}]}], ")"}], "&"}], "[", 
      RowBox[{"Tnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "]"}], "]"}], "/.", "rule"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8690487563973827`*^9, 3.8690488237619743`*^9}, {
  3.8690488865404944`*^9, 3.8690488867964563`*^9}, {3.869048975573206*^9, 
  3.869048977587376*^9}, {3.869049804391919*^9, 3.8690498290937834`*^9}, {
  3.8690498656649785`*^9, 3.8690498815677567`*^9}, {3.8698265863316717`*^9, 
  3.869826620937298*^9}, {3.8698266519896145`*^9, 3.869826653679019*^9}, {
  3.8698267019095345`*^9, 3.869826713605542*^9}, {3.869827234681346*^9, 
  3.869827235923968*^9}},
 CellLabel->"In[32]:=",ExpressionUUID->"90a8e538-0afe-4ed7-9373-74c1c330224e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"V1", "-", "V2"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n1", "->", 
       RowBox[{"1", "-", "n4"}]}], ",", 
      RowBox[{"n2", "->", 
       RowBox[{"2", "-", "n5", "-", "n7"}]}], ",", 
      RowBox[{"n3", "->", 
       RowBox[{"1", "-", "n6", "-", "n8"}]}]}], "}"}]}], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"n8", "->", 
      RowBox[{"-", "2"}]}], ",", 
     RowBox[{"n7", "->", 
      RowBox[{"-", "2"}]}], ",", 
     RowBox[{"n4", "->", 
      RowBox[{"-", "1"}]}], ",", 
     RowBox[{"n6", "->", "2"}], ",", 
     RowBox[{"n5", "->", 
      RowBox[{"-", "4"}]}]}], "}"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.8690488281112823`*^9, 3.8690488401059866`*^9}, {
   3.8690491413785686`*^9, 3.8690491870544024`*^9}, {3.869049217102404*^9, 
   3.8690493094567394`*^9}, {3.8690494890028315`*^9, 3.869049726271703*^9}, {
   3.869049890692588*^9, 3.869049975299945*^9}, 3.869565944190755*^9, {
   3.869566521238839*^9, 3.86956657652637*^9}, {3.8695667920461206`*^9, 
   3.869566903851864*^9}, {3.869826750763653*^9, 3.8698269036911936`*^9}},
 CellLabel->"In[33]:=",ExpressionUUID->"fc4e302f-2a04-4efc-973d-0db172ff2ff1"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8695668447913623`*^9, 3.8695669245240664`*^9}, 
   3.869635055094829*^9, 3.869637418570479*^9, 3.869637949049223*^9, 
   3.869646301453991*^9, 3.8696465400016975`*^9, 3.8698266410168037`*^9, {
   3.869826720319637*^9, 3.86982690420045*^9}, 3.8701679688347893`*^9, 
   3.870172854112567*^9, 3.8703217832991705`*^9, 3.870322912341097*^9, 
   3.8703234893068914`*^9, 3.870323681557051*^9, 3.870323840823881*^9, 
   3.8703258530828133`*^9, 3.8703287900494595`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"4e6bd64c-c653-4ee7-a874-7593a6d548e8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term3Sols", " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n1", "==", 
        RowBox[{"1", "-", "n4"}]}], ",", 
       RowBox[{"n2", "==", 
        RowBox[{"2", "-", "n5", "-", "n7"}]}], ",", 
       RowBox[{"n3", "==", 
        RowBox[{"1", "-", "n6", "-", "n8"}]}], ",", 
       RowBox[{"n8", "==", 
        RowBox[{"-", "2"}]}], ",", 
       RowBox[{"n7", "==", 
        RowBox[{"-", "2"}]}], ",", 
       RowBox[{"n4", "==", 
        RowBox[{"-", "1"}]}], ",", 
       RowBox[{"n6", "==", "2"}], ",", 
       RowBox[{"n5", "==", 
        RowBox[{"-", "4"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", 
       ",", "n8"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8698269118938107`*^9, 3.8698269581474667`*^9}, {
  3.869826996783106*^9, 3.8698269972442293`*^9}},
 CellLabel->"In[34]:=",ExpressionUUID->"e4c1360a-fb32-406b-a120-b3f36038d8a0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"n1", "\[Rule]", "2"}], ",", 
   RowBox[{"n2", "\[Rule]", "8"}], ",", 
   RowBox[{"n3", "\[Rule]", "1"}], ",", 
   RowBox[{"n4", "\[Rule]", 
    RowBox[{"-", "1"}]}], ",", 
   RowBox[{"n5", "\[Rule]", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"n6", "\[Rule]", "2"}], ",", 
   RowBox[{"n7", "\[Rule]", 
    RowBox[{"-", "2"}]}], ",", 
   RowBox[{"n8", "\[Rule]", 
    RowBox[{"-", "2"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8698269589630814`*^9, {3.8698269932326317`*^9, 3.869826997687811*^9}, 
   3.870167968889378*^9, 3.870172854157008*^9, 3.8703217833273835`*^9, 
   3.8703229123759375`*^9, 3.8703234893373785`*^9, 3.8703236815902653`*^9, 
   3.8703238408740005`*^9, 3.870325853114275*^9, 3.8703287900732355`*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"b3362146-1294-4b7b-a7dc-1e17e6ae9123"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"V1", "/.", "Term3Sols"}], ")"}], "==", "V2"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.869049314578745*^9, 3.869049402474677*^9}, {
   3.869050002773682*^9, 3.8690500123716927`*^9}, 3.8695665053192205`*^9, {
   3.869826965061386*^9, 3.86982697078438*^9}},
 CellLabel->"In[35]:=",ExpressionUUID->"5778369f-785d-4a21-8377-8ecfe072d3f2"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.869049396119913*^9, 3.8690494047239075`*^9}, 
   3.8690500212045965`*^9, 3.8691179835527925`*^9, 3.8692210049111037`*^9, 
   3.8693049126702695`*^9, 3.8693049512452593`*^9, {3.8695669209271793`*^9, 
   3.8695669252148714`*^9}, 3.869635056360956*^9, 3.8696374200046577`*^9, 
   3.869637950237757*^9, 3.8696463027395134`*^9, 3.8696465411724577`*^9, 
   3.8698266452146025`*^9, {3.8698269729249587`*^9, 3.8698269983891883`*^9}, 
   3.8701679702956295`*^9, 3.870172855488739*^9, 3.8703217848199906`*^9, 
   3.8703229139406137`*^9, 3.8703234906856384`*^9, 3.8703236830859795`*^9, 
   3.8703238421637917`*^9, 3.8703258545489864`*^9, 3.8703287914509735`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"4e515002-f2d3-42d2-9b15-6411a0635089"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Term 4 \[Implies] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Thorn]", "'"}], "-", 
        RowBox[{"4", 
         RowBox[{"\[Rho]", "'"}]}], "-", 
        RowBox[{
         OverscriptBox["\[Rho]", "_"], "'"}]}], ")"}]}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Thorn]", "'"}], "-", 
       RowBox[{
        OverscriptBox["\[Rho]", "_"], "'"}]}], ")"}], 
     SubscriptBox["T", 
      RowBox[{
       OverscriptBox[
        RowBox[{"m", " "}], "_"], 
       OverscriptBox["m", "_"]}]]}], " ", "==", " ", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[CapitalDelta]", "2"], 
        SuperscriptBox["\[Rho]", "8"], 
        OverscriptBox["\[Rho]", "_"]}], "4"]}], " ", 
     RowBox[{
      SubscriptBox["J", "+"], "[", 
      RowBox[{
       SuperscriptBox["\[Rho]", 
        RowBox[{"-", "4"}]], 
       RowBox[{
        SubscriptBox["J", "+"], "(", 
        RowBox[{
         SuperscriptBox["\[Rho]", 
          RowBox[{"-", "2"}]], 
         SuperscriptBox[
          OverscriptBox["\[Rho]", "_"], " "], 
         SubscriptBox["T", 
          RowBox[{
           OverscriptBox["m", "_"], " ", 
           OverscriptBox["m", "_"]}]]}], ")"}]}], "]"}]}]}], 
   TraditionalForm]],ExpressionUUID->"b3de7ebd-2d64-4b9b-801f-e5f2f965e776"]
}], "Subsubsection",
 CellChangeTimes->{{3.869031546853574*^9, 3.869031550550891*^9}, {
  3.869031640070774*^9, 3.8690316421420183`*^9}, {3.869050668124296*^9, 
  3.869050791274296*^9}, {3.869050914565699*^9, 3.8690509199827237`*^9}, {
  3.8691179438890305`*^9, 3.8691179438890305`*^9}, {3.869118062550875*^9, 
  3.8691180633103075`*^9}, {3.8691345844732275`*^9, 3.8691345847217617`*^9}, {
  3.8698271574165134`*^9, 3.8698271888079166`*^9}, {3.870172568174324*^9, 
  3.870172611065134*^9}},ExpressionUUID->"6adc3808-d773-497d-9771-\
c55ce1155f0e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V1", " ", "=", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{"-", "1"}], "4"], " ", 
     SuperscriptBox[
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n1"], 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
     SuperscriptBox[
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
     RowBox[{"Jp", "[", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n4"], 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
       SuperscriptBox[
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "n6"], 
       RowBox[{"Jp", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n7"], 
         SuperscriptBox[
          RowBox[{"\[Rho]", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "n8"], 
         SuperscriptBox[
          RowBox[{"\[Rho]b", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "n9"], 
         RowBox[{"Tmbmb", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "]"}]}], "]"}]}], "/.", 
    "rule"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.869032405002446*^9, 3.8690324636118965`*^9}, {
   3.8690325907128897`*^9, 3.869032608628101*^9}, {3.869032643346238*^9, 
   3.869032728654527*^9}, 3.8690330382618012`*^9, {3.8690332088584337`*^9, 
   3.8690332523452415`*^9}, {3.8690334136135035`*^9, 3.8690334381013002`*^9}, 
   3.8690342295232368`*^9, {3.8690347458640423`*^9, 3.8690347529473143`*^9}, 
   3.869048250687977*^9, {3.869827134489616*^9, 3.8698271372210317`*^9}, {
   3.8698272007234745`*^9, 3.8698272472899547`*^9}, {3.8698273014954295`*^9, 
   3.8698273083980713`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"21b72e09-b13d-4ed7-9135-df4db474511f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V2", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Thorn]p", "[", 
          RowBox[{"#", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", 
             RowBox[{"-", "1"}]}], "}"}]}], "]"}], "-", 
         RowBox[{"4", "\[Rho]p", "#"}], " ", "-", " ", 
         RowBox[{"\[Rho]pb", "#"}]}], ")"}]}], "&"}], "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Thorn]p", "[", 
          RowBox[{"#", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "2"}], ",", "0"}], "}"}]}], "]"}], "-", 
         RowBox[{"\[Rho]pb", "#"}]}], ")"}], "&"}], "[", 
      RowBox[{"Tmbmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "]"}], "]"}], "/.", "rule"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8690327421394634`*^9, 3.8690327428828945`*^9}, {
   3.869032808228777*^9, 3.869032917869565*^9}, 3.869032956177086*^9, 
   3.8690330492230244`*^9, 3.8690332124400682`*^9, 3.86956697608037*^9, {
   3.8698272060126305`*^9, 3.869827224135284*^9}, {3.8698272587495265`*^9, 
   3.869827264761162*^9}, 3.869827320323267*^9, {3.870169076658205*^9, 
   3.8701690845641346`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"6f208e56-6b42-4feb-ba02-8c7fc911c8c9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"V1", "-", "V2"}], "/.", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"n1", "->", 
         RowBox[{"2", "-", "n4", "-", "n7"}]}], ",", 
        RowBox[{"n2", "->", 
         RowBox[{"2", "-", "n5", "-", "n8"}]}], ",", 
        RowBox[{"n3", "->", 
         RowBox[{"2", "-", "n6", "-", "n9"}]}]}], "}"}]}], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n4", "->", 
        RowBox[{
         RowBox[{"-", "2"}], "n7"}]}], ",", " ", 
       RowBox[{"n6", "->", 
        RowBox[{"2", "-", 
         RowBox[{"2", "n9"}]}]}], ",", 
       RowBox[{"n5", "->", 
        RowBox[{
         RowBox[{"-", "8"}], "-", 
         RowBox[{"2", "n8"}]}]}]}], "}"}]}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"n7", "->", "0"}], ",", 
      RowBox[{"n9", "->", "1"}], ",", 
      RowBox[{"n8", "->", 
       RowBox[{"-", "2"}]}]}], "}"}]}], ")"}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.8690329682630925`*^9, 3.869032988546709*^9}, {
   3.8690330780790834`*^9, 3.8690331031282196`*^9}, {3.869033145142187*^9, 
   3.8690331962354407`*^9}, {3.8690333833817606`*^9, 
   3.8690333838667955`*^9}, {3.8690334579561625`*^9, 3.86903348040832*^9}, {
   3.8690335190237637`*^9, 3.8690335504531965`*^9}, {3.8690335838559895`*^9, 
   3.8690336167469244`*^9}, {3.869033664701439*^9, 3.8690337309751368`*^9}, {
   3.8690340163322067`*^9, 3.8690340165911913`*^9}, {3.8690342764038963`*^9, 
   3.8690342940748477`*^9}, {3.8690343850645237`*^9, 
   3.8690344200745153`*^9}, {3.869034512863324*^9, 3.869034561003152*^9}, {
   3.869034591692874*^9, 3.8690346149591503`*^9}, {3.8690346702888436`*^9, 
   3.8690346863220353`*^9}, {3.86903471743655*^9, 3.869034719599641*^9}, {
   3.8690347633460703`*^9, 3.869034810098215*^9}, {3.869034860942685*^9, 
   3.8690348647565947`*^9}, {3.8690349068663173`*^9, 3.869034944298637*^9}, {
   3.8690349875946302`*^9, 3.869035049072065*^9}, {3.869048141036959*^9, 
   3.8690481454678955`*^9}, {3.869048179383179*^9, 3.8690484332756605`*^9}, {
   3.8698272821314945`*^9, 3.8698272878829145`*^9}, {3.869827334941705*^9, 
   3.869827376066141*^9}, {3.8698274248037443`*^9, 3.869827443474121*^9}, {
   3.869827484193802*^9, 3.8698274989539237`*^9}, {3.8698275328090224`*^9, 
   3.8698275409214015`*^9}, {3.8698275851078033`*^9, 
   3.8698275857692084`*^9}, {3.8698276226190367`*^9, 3.869827652312914*^9}, 
   3.86982770708346*^9, {3.8698277735286045`*^9, 3.869827892913941*^9}, {
   3.8698279361048636`*^9, 3.8698279390906305`*^9}, {3.8698279751357613`*^9, 
   3.869827978776827*^9}, {3.8698280197784567`*^9, 3.869828024508047*^9}, {
   3.869828090970972*^9, 3.869828162874977*^9}, {3.870167959718116*^9, 
   3.8701679742581296`*^9}, {3.87016803021367*^9, 3.870168044883339*^9}, {
   3.870169141267371*^9, 3.87016925148582*^9}, {3.8701693451374955`*^9, 
   3.8701694620563555`*^9}, {3.8701695351618767`*^9, 
   3.8701696288404837`*^9}, {3.8701721409260464`*^9, 
   3.8701723601206846`*^9}, {3.8701723905885563`*^9, 3.8701724345707583`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"a27000d8-1972-4db4-8bdc-17dff0cf39ae"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.869032974632036*^9, 3.8690329889741936`*^9}, {
   3.8690330413800097`*^9, 3.869033050924247*^9}, 3.8690331039024563`*^9, {
   3.8690331505181513`*^9, 3.8690331965326567`*^9}, 3.869033256384869*^9, 
   3.8690333853127537`*^9, 3.8690334458292522`*^9, 3.8690334811896906`*^9, 
   3.869033551130336*^9, 3.8690335842348766`*^9, 3.8690336175603*^9, 
   3.869033671631065*^9, {3.8690337063596992`*^9, 3.8690337316623073`*^9}, 
   3.869034017367299*^9, 3.8690342387423253`*^9, 3.869034294564648*^9, {
   3.869034388197047*^9, 3.869034420590094*^9}, {3.8690345077219467`*^9, 
   3.8690345615199313`*^9}, 3.8690346158494134`*^9, {3.8690346705666323`*^9, 
   3.869034686871022*^9}, 3.869034719962964*^9, {3.8690347593249884`*^9, 
   3.869034774041748*^9}, 3.869034813505677*^9, 3.869034865415008*^9, 
   3.869034945382595*^9, {3.869034990537986*^9, 3.8690350492939863`*^9}, 
   3.869048147009451*^9, {3.8690481797781663`*^9, 3.869048459678334*^9}, 
   3.8690489141409383`*^9, 3.8691180104347115`*^9, 3.869221004974023*^9, 
   3.8693049127315025`*^9, 3.869304951313503*^9, 3.869566978038327*^9, 
   3.869635056456708*^9, 3.8696374201129117`*^9, 3.869637950352511*^9, 
   3.869646302840561*^9, 3.8696465412961507`*^9, 3.8698266453510637`*^9, {
   3.8698272513310432`*^9, 3.8698273765699797`*^9}, {3.869827429024538*^9, 
   3.8698274439746127`*^9}, {3.869827489329091*^9, 3.8698275004869437`*^9}, 
   3.8698275417613797`*^9, {3.869827578125218*^9, 3.869827586155491*^9}, {
   3.869827630139719*^9, 3.869827653142657*^9}, 3.8698277077767115`*^9, {
   3.869827789243052*^9, 3.869827844434744*^9}, {3.869827877107428*^9, 
   3.869827893241458*^9}, 3.869827940198561*^9, 3.8698279797240934`*^9, 
   3.8698280253038588`*^9, 3.869828092938142*^9, {3.8698281237169533`*^9, 
   3.8698281631166587`*^9}, {3.8701679603817945`*^9, 
   3.8701679745518117`*^9}, {3.870168032336438*^9, 3.8701680451475697`*^9}, {
   3.8701690979180923`*^9, 3.8701691491484833`*^9}, {3.8701691927691507`*^9, 
   3.870169252355239*^9}, {3.870169359655687*^9, 3.8701694629975486`*^9}, {
   3.8701695372642794`*^9, 3.8701696294023156`*^9}, {3.8701721415922127`*^9, 
   3.870172212707127*^9}, 3.87017224523905*^9, {3.8701722760366983`*^9, 
   3.8701724349429665`*^9}, 3.870172855544671*^9, 3.870321784871368*^9, 
   3.8703229139956384`*^9, 3.870323490737489*^9, 3.8703236831449842`*^9, 
   3.870323842218069*^9, 3.870325854581545*^9, 3.8703287914877234`*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"2db93a8d-5ced-484d-870e-37bc67a978d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term4Sols", " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"n1", "==", 
        RowBox[{"2", "-", "n4", "-", "n7"}]}], ",", 
       RowBox[{"n2", "==", 
        RowBox[{"2", "-", "n5", "-", "n8"}]}], ",", 
       RowBox[{"n3", "==", 
        RowBox[{"2", "-", "n6", "-", "n9"}]}], ",", 
       RowBox[{"n4", "==", 
        RowBox[{
         RowBox[{"-", "2"}], "n7"}]}], ",", 
       RowBox[{"n6", "==", 
        RowBox[{"2", "-", 
         RowBox[{"2", "n9"}]}]}], ",", 
       RowBox[{"n5", "==", 
        RowBox[{
         RowBox[{"-", "8"}], "-", 
         RowBox[{"2", "n8"}]}]}], ",", 
       RowBox[{"n7", "==", "0"}], ",", 
       RowBox[{"n9", "==", "1"}], ",", 
       RowBox[{"n8", "==", 
        RowBox[{"-", "2"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "n1", ",", "n2", ",", "n3", ",", "n4", ",", "n5", ",", "n6", ",", "n7", 
       ",", "n8", ",", "n9"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.869048438147423*^9, 3.8690485402622824`*^9}, {
   3.8698281688686075`*^9, 3.869828230879142*^9}, {3.8701679502283144`*^9, 
   3.870167955389081*^9}, {3.870167986924505*^9, 3.8701679875540323`*^9}, 
   3.8701680258896666`*^9, {3.8701680653291893`*^9, 3.870168065474879*^9}, {
   3.870172445524762*^9, 3.8701724566059237`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"3cfc9bf7-a86e-4e20-a547-ae57a0e57f69"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"n1", "\[Rule]", "2"}], ",", 
   RowBox[{"n2", "\[Rule]", "8"}], ",", 
   RowBox[{"n3", "\[Rule]", "1"}], ",", 
   RowBox[{"n4", "\[Rule]", "0"}], ",", 
   RowBox[{"n5", "\[Rule]", 
    RowBox[{"-", "4"}]}], ",", 
   RowBox[{"n6", "\[Rule]", "0"}], ",", 
   RowBox[{"n7", "\[Rule]", "0"}], ",", 
   RowBox[{"n8", "\[Rule]", 
    RowBox[{"-", "2"}]}], ",", 
   RowBox[{"n9", "\[Rule]", "1"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.8691211150975285`*^9, 3.869221005008585*^9, 3.8693049127588153`*^9, 
   3.8693049513423386`*^9, 3.869566979600382*^9, 3.8696350565016327`*^9, 
   3.869637420156703*^9, 3.869637950434535*^9, 3.8696463028802714`*^9, 
   3.8696465413525934`*^9, 3.869826645398272*^9, {3.8698282170625076`*^9, 
   3.869828231291213*^9}, {3.8701679513217297`*^9, 3.8701679883417044`*^9}, 
   3.870168065762454*^9, {3.8701690992336216`*^9, 3.870169126745119*^9}, 
   3.8701724574049873`*^9, 3.870172855576434*^9, 3.870321784907058*^9, 
   3.8703229140297756`*^9, 3.870323490771408*^9, 3.8703236831881447`*^9, 
   3.870323842254043*^9, 3.8703258546032305`*^9, 3.8703287915136003`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"e0ad846d-672c-4fd4-b284-792fb045b277"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"V1", "/.", "Term4Sols"}], ")"}], "==", "V2"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.86982823930888*^9, 3.869828254863538*^9}, {
  3.870168070915372*^9, 3.8701681111698694`*^9}, {3.8701724667176332`*^9, 
  3.8701724700226097`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"269286d3-2ffb-41c7-a55a-2bd8e5311546"],

Cell[BoxData["True"], "Output",
 CellChangeTimes->{{3.8698282492750993`*^9, 3.869828255312913*^9}, {
   3.8701679704942656`*^9, 3.870167989008109*^9}, 3.8701681116231623`*^9, {
   3.870169088267723*^9, 3.8701691274154644`*^9}, {3.870172459746317*^9, 
   3.8701724704195166`*^9}, 3.8701728556207066`*^9, 3.8703217849620795`*^9, 
   3.8703229140906506`*^9, 3.870323490829589*^9, 3.8703236832485886`*^9, 
   3.870323842288828*^9, 3.870325854649585*^9, 3.870328791554165*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"eb8678af-b791-4aa6-8c54-1c9122b3ec17"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Integration by parts", "Subsubsection",
 CellChangeTimes->{{3.869121150808637*^9, 
  3.869121154217441*^9}},ExpressionUUID->"cf442ecd-daf5-49f0-b3d2-\
6a62fdb43483"],

Cell[TextData[{
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
    RowBox[{
     RowBox[{"g", "[", "\[Theta]", "]"}], 
     RowBox[{"Ld", "[", 
      RowBox[{
       RowBox[{"h", "[", "\[Theta]", "]"}], ",", "s"}], "]"}], 
     RowBox[{"Sin", "[", "\[Theta]", "]"}], 
     RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}], "==", 
   RowBox[{"-", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", "\[Pi]"], 
     RowBox[{
      RowBox[{"h", "[", "\[Theta]", "]"}], 
      RowBox[{"L", "[", 
       RowBox[{
        RowBox[{"g", "[", "\[Theta]", "]"}], ",", 
        RowBox[{"1", "-", "s"}]}], "]"}], 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], 
      RowBox[{"\[DifferentialD]", "\[Theta]"}]}]}]}]}]],ExpressionUUID->
  "135614dc-80a9-48b5-8d11-75c677d3ea9a"],
 "\n\nWhere:\n",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"L", "[", 
     RowBox[{",", "s"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Theta]"], 
       RowBox[{"+", "a"}]}], " ", "\[Omega]", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "-", 
     RowBox[{"\[ScriptM]", " ", 
      RowBox[{"Csc", "[", "\[Theta]", "]"}]}], "+", 
     RowBox[{"s", " ", 
      RowBox[{"Cot", "[", "\[Theta]", "]"}]}]}]}], TraditionalForm]],
  ExpressionUUID->"74915be2-bd35-4264-99ea-61155dbd4512"],
 "\n ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"Ld", "[", 
     RowBox[{",", "s"}], "]"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "\[Theta]"], 
       RowBox[{"-", "a"}]}], " ", "\[Omega]", " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
     RowBox[{"\[ScriptM]", " ", 
      RowBox[{"Csc", "[", "\[Theta]", "]"}]}], "+", 
     RowBox[{"s", " ", 
      RowBox[{"Cot", "[", "\[Theta]", "]"}]}]}]}], TraditionalForm]],
  ExpressionUUID->"df208f3d-a844-4271-86f4-5515b28ecaa6"],
 "\t\t(Ld[g,s] \[DoubleLeftRightArrow] ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     SuperscriptBox["L", "\[Dagger]"], "s"], "g"}], TraditionalForm]],
  ExpressionUUID->"76aa89b5-aa51-4455-b758-edc8db993f6c"],
 ")"
}], "Text",
 CellChangeTimes->{{3.869121164062207*^9, 3.8691213702467537`*^9}, {
  3.8691292638346553`*^9, 3.8691293025502*^9}, {3.869567355817379*^9, 
  3.869567374394718*^9}, {3.8695674368716307`*^9, 
  3.8695674643351364`*^9}},ExpressionUUID->"a3fa4335-0002-49d7-815c-\
a836ff6d40e6"],

Cell[TextData[{
 "Multiply each term by ",
 Cell[BoxData[
  FormBox[
   FractionBox[
    RowBox[{"SH", "(", "\[Theta]", ")"}], 
    RowBox[{"\[Rho]", " ", 
     OverscriptBox["\[Rho]", "_"]}]], TraditionalForm]],ExpressionUUID->
  "fcec34ca-945f-4fa0-b3a1-d913b6fe130e"],
 " from the source integral (SH \[Implies] Spheroidal Harmonic, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[CapitalSigma]", "=", 
    FractionBox["1", 
     RowBox[{"\[Rho]", " ", 
      OverscriptBox["\[Rho]", "_"]}]]}], TraditionalForm]],ExpressionUUID->
  "519370ca-c2df-4b6e-868b-644aa11c1f97"],
 ")  \n(Leave out the Sin[\[Theta]], as it pops out after the integration \
anyway)"
}], "Text",
 CellChangeTimes->{{3.8691289528437643`*^9, 3.869129030068724*^9}, {
  3.8691294240122614`*^9, 3.8691294438985806`*^9}, {3.8695674757085495`*^9, 
  3.869567487578931*^9}},ExpressionUUID->"6d0ce918-7e6f-4a8c-8a1d-\
97124c46d649"],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"Ld", ",", "L", ",", "Jp"}], "]"}], "\n", 
 RowBox[{
  RowBox[{"Ld", "[", 
   RowBox[{
    RowBox[{"k_", " ", "g_"}], ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"k", " ", 
    RowBox[{"Ld", "[", 
     RowBox[{"g", ",", "s"}], "]"}]}], "/;", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"k", ",", "\[Theta]"}], "]"}], "==", "0"}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Jp", "[", 
    RowBox[{"g_", " ", 
     RowBox[{"L", "[", 
      RowBox[{"f_", ",", "s_"}], "]"}]}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"L", "[", 
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{"f", ",", "r"}], "]"}], ",", "s"}], "]"}], "g"}], " ", "+", 
    " ", 
    RowBox[{
     RowBox[{"L", "[", 
      RowBox[{"f", ",", "s"}], "]"}], 
     RowBox[{"Jp", "[", "g", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"parts", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g_", " ", 
      RowBox[{"L", "[", 
       RowBox[{"h_", ",", "s_"}], "]"}]}], ":>", 
     RowBox[{
      RowBox[{"-", "h"}], " ", 
      RowBox[{"Ld", "[", 
       RowBox[{"g", ",", 
        RowBox[{"1", "-", "s"}]}], "]"}]}]}], "}"}]}], " ", ";"}]}], "Input",
 CellChangeTimes->{{3.869568206494195*^9, 3.869568208605362*^9}, 
   3.869568725675213*^9, {3.8695688744374456`*^9, 3.869568876124032*^9}, {
   3.8695689995893774`*^9, 3.8695690630752354`*^9}, {3.8696314269932904`*^9, 
   3.8696314909140005`*^9}, 3.8696316613857875`*^9, {3.8696332496968193`*^9, 
   3.8696332544350896`*^9}, 3.86963339225918*^9, {3.8698283026837254`*^9, 
   3.869828332846562*^9}, {3.8701725169960375`*^9, 3.8701725292473793`*^9}, {
   3.8701740492318907`*^9, 3.8701740592652316`*^9}, {3.870321773820798*^9, 
   3.8703217756123037`*^9}, {3.8703218132674365`*^9, 3.870321817949663*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"37fe3981-474b-4c05-8bd9-e9d64ebcf53e"]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Term", " ", "1"}], "\[Implies]", " "}]], "Subsubsection",
 CellChangeTimes->{{3.8691289207788525`*^9, 3.8691289248907404`*^9}, {
   3.8691289990308533`*^9, 3.8691290089905496`*^9}, {3.8691290917815037`*^9, 
   3.8691290934689426`*^9}, {3.8695676946144123`*^9, 
   3.8695677025788555`*^9}, {3.869568667626129*^9, 3.86956868191313*^9}, {
   3.8695687460819197`*^9, 3.869568781027375*^9}, 
   3.87017280723305*^9},ExpressionUUID->"cdae643f-4f85-496e-8599-\
038bea5b737c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Term1", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      FractionBox[
       RowBox[{"-", "4"}], 
       SuperscriptBox[
        RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"]], ")"}], 
     RowBox[{"(", 
      FractionBox[
       RowBox[{"-", 
        RowBox[{"SH", "[", "\[Theta]", "]"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "5"], 
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]}]], ")"}], " ", 
     RowBox[{"(", " ", 
      RowBox[{"-", 
       RowBox[{
        FractionBox["1", "2"], 
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n1"], 
        SuperscriptBox[
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
        RowBox[{"L", "[", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
           SuperscriptBox[
            RowBox[{"\[Rho]b", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "n4"], 
           RowBox[{"L", "[", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"\[Rho]", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
              SuperscriptBox[
               RowBox[{"\[Rho]b", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "n6"], 
              RowBox[{"Tnn", "[", 
               RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ",", "0"}], "]"}]}], 
          ",", 
          RowBox[{"-", "1"}]}], "]"}]}]}], ")"}]}], "/.", "Term1Sols"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.869568635003601*^9, 3.86956864378648*^9}, {
   3.8701726500266294`*^9, 3.8701727208824515`*^9}, {3.8701727753698115`*^9, 
   3.870172777199917*^9}, 3.870174336097454*^9, {3.8703223089967413`*^9, 
   3.870322318166087*^9}, {3.870322351489906*^9, 3.8703223681818943`*^9}, 
   3.8703228566363363`*^9},
 CellLabel->"In[45]:=",ExpressionUUID->"49e451a7-8fe4-4502-bb6a-c60aa981ec90"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term1IBP", " ", "=", " ", 
  RowBox[{
   RowBox[{"Term1", "//.", "parts"}], "/.", "rule"}]}]], "Input",
 CellChangeTimes->{{3.8695686464986577`*^9, 3.869568651577635*^9}, {
   3.869633914809333*^9, 3.8696339223108473`*^9}, 3.8703223738769317`*^9},
 CellLabel->"In[46]:=",ExpressionUUID->"da5af4ac-af69-4020-8fbd-10b38bf499b4"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"Ld", "[", 
     RowBox[{
      FractionBox[
       RowBox[{"Ld", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[Rho]", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}], ",", "2"}], "]"}], 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "4"]], ",", "1"}], "]"}], " ", 
    RowBox[{"Tnn", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], " ", 
    RowBox[{"\[Rho]b", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}]}]]}]], "Output",
 CellChangeTimes->{
  3.8695686519328637`*^9, 3.869568879443863*^9, {3.8696339233074803`*^9, 
   3.8696339286938944`*^9}, 3.86963505657871*^9, 3.869637420241232*^9, 
   3.869637950530122*^9, 3.8696463029553237`*^9, 3.8696465414454193`*^9, 
   3.8698266454615955`*^9, 3.8701679705388956`*^9, 3.8701725452625275`*^9, 
   3.8701726759328957`*^9, 3.870172724291747*^9, {3.8701727601053534`*^9, 
   3.870172781261161*^9}, 3.8701728556891365`*^9, 3.8701729883573294`*^9, 
   3.8703217850112576`*^9, 3.870321824957621*^9, {3.8703223359710474`*^9, 
   3.870322374592828*^9}, 3.8703229141265554`*^9, 3.8703234908700128`*^9, 
   3.8703236832917585`*^9, 3.870323842334861*^9, 3.8703258546792903`*^9, 
   3.870328791585583*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"9ed31471-7c1e-45a8-89c1-4b9cfa82d222"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Term 2  \[Implies]", "Subsubsection",
 CellChangeTimes->{{3.8691293739219575`*^9, 3.869129401671768*^9}, {
  3.869567811249275*^9, 3.869567813953805*^9}, {3.869630869475673*^9, 
  3.8696309583017955`*^9}, {3.8696315347499804`*^9, 3.869631535163042*^9}, {
  3.8701729234617577`*^9, 
  3.870172926161126*^9}},ExpressionUUID->"d4e9a3af-58bf-4af3-b9a9-\
74e118ad9f15"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Term2", " ", "=", 
   RowBox[{
    RowBox[{"(", 
     FractionBox[
      RowBox[{"-", "4"}], 
      SuperscriptBox[
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"]], ")"}], 
    RowBox[{"(", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"SH", "[", "\[Theta]", "]"}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "5"], 
       RowBox[{"\[Rho]b", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]}]], ")"}], " ", 
    FractionBox["1", 
     RowBox[{"2", 
      SqrtBox["2"]}]], " ", 
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n1"], 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
    SuperscriptBox[
     RowBox[{"\[Rho]b", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
    RowBox[{"L", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "n4"], 
       SuperscriptBox[
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
       RowBox[{"Jp", "[", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n6"], 
         SuperscriptBox[
          RowBox[{"\[Rho]", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "n7"], 
         SuperscriptBox[
          RowBox[{"\[Rho]b", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "n8"], 
         RowBox[{"Tnmb", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "]"}]}], ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Term2IBP", " ", "=", " ", 
  RowBox[{
   RowBox[{"Term2", "/.", "Term2Sols"}], "//.", "parts"}]}]}], "Input",
 CellChangeTimes->{{3.869568856546607*^9, 3.8695688975234256`*^9}, {
   3.869568982238905*^9, 3.869568987699485*^9}, {3.869633932849023*^9, 
   3.86963393673564*^9}, {3.870172829392949*^9, 3.870172848087413*^9}, 
   3.8701730758212395`*^9, 3.8701743332993093`*^9, 3.87032382043935*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"d80348f3-b568-4f96-aa2f-0294626db052"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    SqrtBox["2"], " ", 
    RowBox[{"Jp", "[", 
     FractionBox[
      RowBox[{"Tnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], 
      RowBox[{
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}]], "]"}], " ", 
    RowBox[{"Ld", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}], ",", "2"}], "]"}], 
    " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]b", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], 
   SuperscriptBox[
    RowBox[{"\[Rho]", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], "4"]]}]], "Output",
 CellChangeTimes->{{3.8695688692298975`*^9, 3.86956889829735*^9}, 
   3.8695689884002657`*^9, 3.869633937700568*^9, 3.8696350566101093`*^9, {
   3.869637400230402*^9, 3.869637420294046*^9}, 3.869637950569644*^9, 
   3.8696463029854817`*^9, 3.869646541493293*^9, 3.8698266455001616`*^9, 
   3.8701679705804343`*^9, 3.870172855729974*^9, 3.870172989966627*^9, 
   3.8701730806183147`*^9, 3.8701740701162815`*^9, 3.8703217850429444`*^9, 
   3.870321826941869*^9, 3.870322914162809*^9, 3.870323490903104*^9, 
   3.8703236833300476`*^9, 3.870323842367767*^9, 3.870325854704175*^9, 
   3.8703287916105213`*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"fd24b13c-4cbd-441e-a6b7-f5a607c36284"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Term 3 \[Implies] ", "Subsubsection",
 CellChangeTimes->{{3.8691301874436846`*^9, 3.8691301990333924`*^9}, {
  3.8691309164226027`*^9, 3.8691309186480618`*^9}, {3.8696333561350327`*^9, 
  3.8696333573806353`*^9}, {3.869633955182086*^9, 3.86963404897721*^9}, {
  3.8696341775665264`*^9, 3.8696342283340206`*^9}, {3.870321874286358*^9, 
  3.870321879559149*^9}},ExpressionUUID->"341cc509-c064-45da-be95-\
944533450093"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term3IBP", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      FractionBox[
       RowBox[{"-", "4"}], 
       SuperscriptBox[
        RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"]], ")"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"-", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"\[Rho]", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], "5"], 
            RowBox[{"\[Rho]b", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}]}]], ")"}], " ", 
         FractionBox["1", 
          RowBox[{"2", 
           SqrtBox["2"]}]], 
         SuperscriptBox[
          RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n1"], 
         SuperscriptBox[
          RowBox[{"\[Rho]", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
         SuperscriptBox[
          RowBox[{"\[Rho]b", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
         RowBox[{"Jp", "[", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n4"], 
           SuperscriptBox[
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
           SuperscriptBox[
            RowBox[{"\[Rho]b", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "n6"], 
           RowBox[{"L", "[", 
            RowBox[{
             RowBox[{
              SuperscriptBox[
               RowBox[{"\[Rho]", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "n7"], 
              SuperscriptBox[
               RowBox[{"\[Rho]b", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "n8"], 
              RowBox[{"Tnmb", "[", 
               RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ",", 
             RowBox[{"-", "1"}]}], "]"}]}], "]"}]}], "/.", "Term3Sols"}], "//",
        "Expand"}], ")"}]}], "//.", "parts"}], "/.", "rule"}]}]], "Input",
 CellChangeTimes->{{3.8696316187147355`*^9, 3.869631651554753*^9}, {
   3.8696333011360655`*^9, 3.8696333038154345`*^9}, {3.8696334152739143`*^9, 
   3.8696334231054573`*^9}, {3.869633942262519*^9, 3.869633945480833*^9}, {
   3.8701729482409925`*^9, 3.8701729530227184`*^9}, {3.870173111482149*^9, 
   3.8701731230469365`*^9}, 3.870174137162512*^9, 3.870174331438136*^9, 
   3.8703238271132965`*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"c7f17ee5-3359-4628-b14d-731ab343533b"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"]], 
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"Ld", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Jp", "[", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"\[Rho]b", "[", 
               RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], 
             RowBox[{
              RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
              SuperscriptBox[
               RowBox[{"\[Rho]", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "4"]}]], "]"}], " ", 
           RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
           SuperscriptBox[
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}], ",", "2"}], "]"}],
         " ", 
        RowBox[{"Tnmb", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"Ld", "[", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
            SuperscriptBox[
             RowBox[{"\[Rho]b", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], 
           RowBox[{"\[Rho]", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}]], ",", "2"}], "]"}], " ", 
        RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"Tnmb", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
           RowBox[{
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"\[Rho]b", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}]], "+", 
          FractionBox[
           RowBox[{"2", " ", 
            RowBox[{"Tnmb", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"\[Rho]", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], " ", 
            RowBox[{"\[Rho]b", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}]}]], "-", 
          FractionBox[
           RowBox[{
            SuperscriptBox["Tnmb", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], 
           RowBox[{
            SuperscriptBox[
             RowBox[{"\[Rho]", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"\[Rho]b", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}]]}], ")"}]}], 
       RowBox[{"2", " ", 
        SqrtBox["2"]}]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.8696316318298635`*^9, 3.869631651871237*^9}, 
   3.869633258348192*^9, 3.8696333045314064`*^9, 3.8696333961062765`*^9, 
   3.8696334293077054`*^9, 3.869633946712905*^9, 3.8696350566428676`*^9, 
   3.8696374203306184`*^9, 3.8696379506183567`*^9, 3.8696463030208445`*^9, 
   3.8696465415347643`*^9, 3.8698266455411615`*^9, 3.8701679706155176`*^9, 
   3.8701728557706895`*^9, 3.8701729546508827`*^9, 3.8701729934420214`*^9, {
   3.8701731131897535`*^9, 3.870173124034891*^9}, 3.870174040694624*^9, 
   3.870174072061488*^9, 3.8701741377483253`*^9, 3.8703217850802164`*^9, 
   3.8703218382296395`*^9, 3.870322914198603*^9, 3.870323490938024*^9, 
   3.870323683371954*^9, 3.870323842404586*^9, 3.870325854730424*^9, 
   3.870328791633787*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"a21b0bcf-d9f8-4c39-929f-bbd2e3a07864"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Term 4 \[Implies]", "Subsubsection",
 CellChangeTimes->{{3.869132267285756*^9, 3.8691322865728073`*^9}, {
   3.8691323253041625`*^9, 3.869132325419731*^9}, {3.8691345892328672`*^9, 
   3.869134589401141*^9}, {3.869634522289554*^9, 3.8696345695288515`*^9}, {
   3.8696346080230904`*^9, 3.869634634771968*^9}, {3.869646207529786*^9, 
   3.8696462300094633`*^9}, 
   3.8703218832422695`*^9},ExpressionUUID->"29a9e875-1396-47ee-8599-\
92de96ddc85e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Term4IBP", " ", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     FractionBox[
      RowBox[{"-", "4"}], 
      SuperscriptBox[
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"]], ")"}], 
    RowBox[{"(", 
     FractionBox[
      RowBox[{"-", 
       RowBox[{"SH", "[", "\[Theta]", "]"}]}], 
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "5"], 
       RowBox[{"\[Rho]b", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]}]], ")"}], " ", 
    FractionBox[
     RowBox[{"-", "1"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n1"], 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "n2"], 
    SuperscriptBox[
     RowBox[{"\[Rho]b", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "n3"], 
    RowBox[{"Jp", "[", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n4"], 
      SuperscriptBox[
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "n5"], 
      SuperscriptBox[
       RowBox[{"\[Rho]b", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "n6"], 
      RowBox[{"Jp", "[", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "n7"], 
        SuperscriptBox[
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n8"], 
        SuperscriptBox[
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "n9"], 
        RowBox[{"Tmbmb", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "]"}]}], "]"}]}], "/.", 
   "Term4Sols"}]}]], "Input",
 CellChangeTimes->{{3.8696346555276475`*^9, 3.8696346593750076`*^9}, {
   3.8696462416452055`*^9, 3.869646247526084*^9}, {3.8701730416644115`*^9, 
   3.870173046877082*^9}, 3.8701739875455832`*^9, 3.8701743299693794`*^9, 
   3.870323831277543*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"3a6a7ea4-fbff-4eb9-a351-ecbd14adbae7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   RowBox[{"Jp", "[", 
    FractionBox[
     RowBox[{"Jp", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"Tmbmb", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
       SuperscriptBox[
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]], "]"}], 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "4"]], "]"}]}], " ", 
  RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
  SuperscriptBox[
   RowBox[{"\[Rho]", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], "Output",
 CellChangeTimes->{3.869634661309989*^9, 3.869635056679306*^9, 
  3.869637420361617*^9, 3.8696379506643295`*^9, 3.869646251172886*^9, 
  3.869646303050867*^9, 3.8696465415779834`*^9, 3.869826645581376*^9, 
  3.870167970623311*^9, 3.8701728558075686`*^9, 3.8701739913906174`*^9, 
  3.870174036458786*^9, 3.8701741503410587`*^9, 3.8703217851201735`*^9, 
  3.870321850197616*^9, 3.870322914229629*^9, 3.8703234909732714`*^9, 
  3.8703236834225388`*^9, 3.8703238424399247`*^9, 3.8703258547536364`*^9, 
  3.870328791660428*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"ce94d8e3-76e5-46ec-b885-4e8f13f4ab41"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Use ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Delta]", "(", 
    RowBox[{"\[Theta]", "-", 
     RowBox[{
      SubscriptBox["\[Theta]", "p"], "(", "t", ")"}]}], ")"}], 
   TraditionalForm]],ExpressionUUID->"99cb0b83-0831-4bbe-8e98-708b35b8bcd9"],
 " to set \[Theta] to ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Theta]", "p"], "(", "t", ")"}], TraditionalForm]],
  ExpressionUUID->"567dc038-1c18-4412-88c8-bceccca0acef"]
}], "Subsubsection",
 CellChangeTimes->{{3.8691323392864666`*^9, 
  3.8691324279309464`*^9}},ExpressionUUID->"71172de6-f24b-4b4e-97a1-\
2cf6a42f87da"],

Cell["", "Text",
 CellChangeTimes->{
  3.869132445760696*^9, {3.8691327556635375`*^9, 3.8691327688824377`*^9}, {
   3.869132814326892*^9, 3.8691330258402643`*^9}, {3.869133093558916*^9, 
   3.8691331764549503`*^9}, {3.869134452882636*^9, 3.869134642647553*^9}, {
   3.869134677399971*^9, 3.8691346833668537`*^9}, {3.869198300066221*^9, 
   3.869198305190519*^9}, {3.8703219202276354`*^9, 
   3.870321921532982*^9}},ExpressionUUID->"25abc33c-dedc-48d3-b625-\
44e2993d9589"],

Cell[TextData[{
 "Rewrite so all SH\[CloseCurlyQuote]s turn up as either SH, ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     SuperscriptBox["L", "\[Dagger]"], "s"], "[", "SH", "]"}], 
   TraditionalForm]],ExpressionUUID->"09772bc4-2786-4548-a08f-b8a5d991bd1b"],
 " or ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     SuperscriptBox["L", "\[Dagger]"], 
     SubscriptBox["s", "1"]], 
    RowBox[{
     SubscriptBox[
      SuperscriptBox["L", "\[Dagger]"], 
      SubscriptBox["s", "2"]], "[", "SH", "]"}]}], TraditionalForm]],
  ExpressionUUID->"b4650550-f53f-4f91-861b-3a9da25b9fb3"]
}], "Text",
 CellChangeTimes->{{3.8691941846487007`*^9, 3.8691942335359964`*^9}, {
  3.8691966869946327`*^9, 
  3.869196700822273*^9}},ExpressionUUID->"4e862c48-48c6-4eb7-8738-\
b26244e28b87"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Ld", "[", 
   RowBox[{
    RowBox[{"f_", "+", "g_"}], ",", "s_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Ld", "[", 
    RowBox[{"f", ",", "s"}], "]"}], "+", 
   RowBox[{"Ld", "[", 
    RowBox[{"g", ",", "s"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ld", "[", 
   RowBox[{
    RowBox[{"f_", " ", 
     RowBox[{"SH", "[", "\[Theta]", "]"}]}], ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"f", ",", "\[Theta]"}], "]"}], 
    RowBox[{"SH", "[", "\[Theta]", "]"}]}], " ", "+", " ", 
   RowBox[{"f", " ", 
    RowBox[{"Ld", "[", 
     RowBox[{
      RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "s"}], 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Ld", "[", 
   RowBox[{
    RowBox[{"f_", " ", 
     RowBox[{"Ld", "[", 
      RowBox[{
       RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "t_"}], "]"}]}], ",", 
    "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"f", ",", "\[Theta]"}], "]"}], 
    RowBox[{"Ld", "[", 
     RowBox[{
      RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "t"}], "]"}]}], " ", "+", 
   " ", 
   RowBox[{"f", " ", 
    RowBox[{"Ld", "[", 
     RowBox[{
      RowBox[{"Ld", "[", 
       RowBox[{
        RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "t"}], "]"}], ",", "s"}], 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Jp", "[", "x_", "]"}], ":=", " ", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"x", ",", "r"}], "]"}], "+", 
   RowBox[{"I", " ", 
    FractionBox[
     RowBox[{"Kt", "[", "r", "]"}], 
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}]], "x"}]}]}]}], "Input",
 CellChangeTimes->{{3.8696347867394457`*^9, 3.8696348283425674`*^9}, {
   3.869634888638296*^9, 3.8696349115668306`*^9}, {3.869634954079007*^9, 
   3.869634974113639*^9}, {3.8696350088234296`*^9, 3.869635021975954*^9}, {
   3.869635268182066*^9, 3.869635378046051*^9}, {3.8696354175981655`*^9, 
   3.8696354327285357`*^9}, 3.8696373740730705`*^9, {3.870174345900673*^9, 
   3.8701743686760235`*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"37beb77c-2c27-475f-a99d-19f73740cc8f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Term 1", "Subsubsection",
 CellChangeTimes->{{3.869195762744418*^9, 
  3.869195765961173*^9}},ExpressionUUID->"e7fd2009-48d0-4479-9753-\
241e4a714e5d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CnnTerms", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Term1IBP", "//", "ExpandAll"}], "//", "Simplify"}], ")"}], "/.",
      "rule"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Tnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
      RowBox[{
       RowBox[{"Cnn", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], 
       RowBox[{"\[Delta]r", "[", "r", "]"}]}]}], "}"}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8696348315315623`*^9, 3.869634850304199*^9}, {
  3.869634924871323*^9, 3.869634925039178*^9}, {3.8696350403192506`*^9, 
  3.8696351378859787`*^9}, {3.8696351758246965`*^9, 3.8696351883682494`*^9}, {
  3.869635939421476*^9, 3.869635946780404*^9}, {3.870174384913228*^9, 
  3.8701743908793373`*^9}, {3.8703219290205836`*^9, 3.87032194873664*^9}},
 CellLabel->"In[55]:=",ExpressionUUID->"778f21a1-6bc3-4794-9045-c1b22aa65128"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
      RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Ld", "[", 
         RowBox[{
          RowBox[{"Ld", "[", 
           RowBox[{
            RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], ",", 
          "1"}], "]"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               RowBox[{"Ld", "[", 
                RowBox[{
                 RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "1"}], "]"}]}], 
              "-", 
              RowBox[{"Ld", "[", 
               RowBox[{
                RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}]}], 
             ")"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}], " ", 
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"], " ", 
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.8696350588310204`*^9, 3.86963513884*^9}, 
   3.869635189691721*^9, 3.8696359481258116`*^9, 3.869637378383654*^9, 
   3.869637420435622*^9, 3.869637950730959*^9, 3.8696463030993013`*^9, 
   3.869646541636232*^9, 3.869826645643663*^9, 3.8701679706572876`*^9, 
   3.8701728558516674`*^9, {3.8701743711176443`*^9, 3.870174392117915*^9}, 
   3.8703217851706314`*^9, {3.870321935102337*^9, 3.870321949049077*^9}, 
   3.8703223842441387`*^9, 3.8703229143206606`*^9, 3.8703234910711927`*^9, 
   3.870323683511693*^9, 3.870323842528121*^9, 3.8703258548331804`*^9, 
   3.870328791736374*^9},
 CellLabel->"Out[55]=",ExpressionUUID->"81bc68ed-a2de-42fd-9041-7c4f515f5367"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Term 2", "Subsubsection",
 CellChangeTimes->{{3.869195774328543*^9, 
  3.869195780213563*^9}},ExpressionUUID->"a2c98f98-c0f4-400a-8d20-\
4877ec751158"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cnmb1", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Term2IBP", "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"Tnmb", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
           RowBox[{
            RowBox[{"Cnmb", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], 
            RowBox[{"\[Delta]r", "[", "r", "]"}]}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"Derivative", "[", 
              RowBox[{"1", ",", "0"}], "]"}], "[", "Tnmb", "]"}], "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Cnmb", "[", 
               RowBox[{"r", ",", "\[Theta]"}], "]"}], 
              RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", "r"}], "]"}]}]}], 
         "}"}]}], ")"}], "/.", "rule"}], ")"}], "//", "Expand"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8696354006197786`*^9, 3.8696354119407825`*^9}, {
  3.8696354439180884`*^9, 3.869635488631214*^9}, {3.8696355210807543`*^9, 
  3.8696356317167797`*^9}, {3.8696359605105615`*^9, 3.869635965452236*^9}, {
  3.8696374400070405`*^9, 3.869637450539609*^9}, {3.8701744576567574`*^9, 
  3.870174473169535*^9}, {3.870321954432474*^9, 3.8703219558689437`*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"6cd717f0-f983-4bd8-8473-5bc211ba2171"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
  RowBox[{
   SqrtBox["2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Ld", "[", 
      RowBox[{
       RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], "+", 
     RowBox[{"3", " ", "\[ImaginaryI]", " ", "a", " ", 
      RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Cnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"Kt", "[", "r", "]"}], " ", 
         RowBox[{"\[Delta]r", "[", "r", "]"}]}], "+", 
        RowBox[{
         RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[CapitalDelta]", "\[Prime]",
           MultilineFunction->None], "[", "r", "]"}]}], "+", 
        RowBox[{
         RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"\[Rho]", "[", 
               RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", 
              RowBox[{"\[Rho]b", "[", 
               RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}], "-", 
           RowBox[{
            SuperscriptBox["\[Delta]r", "\[Prime]",
             MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], ")"}]}], 
     "-", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
      RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
      RowBox[{
       SuperscriptBox["Cnmb", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.8696354046816*^9, 3.869635452184803*^9}, 
   3.8696354895569515`*^9, 3.8696355249238586`*^9, {3.869635569242399*^9, 
   3.8696355897443995`*^9}, {3.8696356215695457`*^9, 3.8696356321748056`*^9}, 
   3.8696359898707013`*^9, {3.869637420568817*^9, 3.8696374509943514`*^9}, 
   3.8696379507997866`*^9, 3.869646303184187*^9, 3.8696465417126904`*^9, 
   3.869826645720006*^9, 3.8701679706904316`*^9, 3.8701728558892603`*^9, {
   3.870174453816571*^9, 3.8701744741820955`*^9}, 3.870321785282649*^9, 
   3.870321956349719*^9, 3.8703229144523606`*^9, 3.8703234911800056`*^9, 
   3.8703236836463356`*^9, 3.870323842629119*^9, 3.870325854916837*^9, 
   3.870328791817166*^9},
 CellLabel->"Out[56]=",ExpressionUUID->"508b7a14-bd5e-4f0a-be97-25ecb28232e3"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Term 3", "Subsubsection",
 CellChangeTimes->{{3.869197102958479*^9, 
  3.8691971067015424`*^9}},ExpressionUUID->"d85e438b-f074-4b90-91ff-\
002ae8ffde36"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Cnmb2", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"ReleaseHold", "[", "Term3IBP", "]"}], "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Tnmb", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
          RowBox[{
           RowBox[{"Cnmb", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], 
           RowBox[{"\[Delta]r", "[", "r", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Derivative", "[", 
             RowBox[{"1", ",", "0"}], "]"}], "[", "Tnmb", "]"}], "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Cnmb", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], 
             RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", "r"}], "]"}]}]}], 
        "}"}]}], "/.", "rule"}], ")"}], "//", "Expand"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8696356646963167`*^9, 3.8696356945521054`*^9}, 
   3.869635736280841*^9, {3.8696357758615413`*^9, 3.8696357770304966`*^9}, {
   3.8696359683261504`*^9, 3.8696359698872786`*^9}, {3.869637303836838*^9, 
   3.869637347795868*^9}, {3.869637455245407*^9, 3.8696374569634824`*^9}, {
   3.8703219727599306`*^9, 3.8703219740319877`*^9}, {3.870322057287855*^9, 
   3.8703220682141056`*^9}},
 CellLabel->"In[57]:=",ExpressionUUID->"c465b98c-384b-4dad-ba2b-9a9220983cbe"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
   RowBox[{"\[ImaginaryI]", " ", 
    SqrtBox["2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Cnmb", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Kt", "[", "r", "]"}], " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Ld", "[", 
             RowBox[{
              RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "a", " ", 
             RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
             RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"\[Rho]b", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"Ld", "[", 
           RowBox[{
            RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalDelta]", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"6", " ", 
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"\[Rho]", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[Delta]r", "\[Prime]",
                 MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"\[Rho]b", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalDelta]", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  SuperscriptBox[
                   RowBox[{"\[Rho]", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"], "+", 
                  RowBox[{"6", " ", 
                   RowBox[{"\[Rho]", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
                   RowBox[{"\[Rho]b", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "-", 
                  SuperscriptBox[
                   RowBox[{"\[Rho]b", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], ")"}]}], 
               "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"\[Rho]", "[", 
                   RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Rho]b", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Delta]r", "\[Prime]",
                  MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
           ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
       RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"Ld", "[", 
           RowBox[{
            RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}]}], "-", 
         RowBox[{"a", " ", 
          RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", 
            RowBox[{"2", " ", 
             RowBox[{"\[Rho]b", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}]}], ")"}], 
       " ", 
       RowBox[{
        SuperscriptBox["Cnmb", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.8696356687747297`*^9, 3.869635695198677*^9}, 
   3.8696357375758305`*^9, 3.8696357776176558`*^9, 3.8696359912419863`*^9, {
   3.869637304678624*^9, 3.8696373487140965`*^9}, 3.8696374206098022`*^9, 
   3.8696374575788584`*^9, 3.869637951149274*^9, 3.8696463035651083`*^9, 
   3.8696465420733767`*^9, 3.8698266460965996`*^9, 3.8701679707327566`*^9, 
   3.8701728559443903`*^9, 3.8703217855599556`*^9, 3.8703220703708115`*^9, 
   3.8703229150635977`*^9, 3.8703234916447363`*^9, 3.87032368420192*^9, 
   3.870323843135374*^9, 3.8703258554037256`*^9, 3.8703287922992334`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"55ed3ac6-843a-4c5c-9110-4764d78b92ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CnmbTerms", " ", "=", " ", 
  RowBox[{
   RowBox[{"Cnmb1", "+", "Cnmb2"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8696359718574467`*^9, 3.8696360001545362`*^9}, {
  3.869637473381359*^9, 3.86963749074209*^9}, {3.870322077878352*^9, 
  3.870322085943304*^9}},
 CellLabel->"In[58]:=",ExpressionUUID->"cf62bd58-34d7-4e37-b88a-2877f291633f"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
   RowBox[{"2", " ", "\[ImaginaryI]", " ", 
    SqrtBox["2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Cnmb", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Kt", "[", "r", "]"}], " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Ld", "[", 
             RowBox[{
              RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], "+", 
            RowBox[{"\[ImaginaryI]", " ", "a", " ", 
             RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
             RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[Rho]", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", 
               RowBox[{"\[Rho]b", "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}]}], ")"}]}], 
         "-", 
         RowBox[{"a", " ", 
          RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", 
            RowBox[{"\[Rho]b", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalDelta]", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"\[Rho]", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "-", 
               RowBox[{
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"\[Rho]b", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[Delta]r", "\[Prime]",
                 MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"Ld", "[", 
           RowBox[{
            RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalDelta]", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   RowBox[{"\[Rho]", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "+", 
                  RowBox[{"\[Rho]b", "[", 
                   RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}], "-", 
               RowBox[{
                SuperscriptBox["\[Delta]r", "\[Prime]",
                 MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
           ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
       RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", 
          RowBox[{"Ld", "[", 
           RowBox[{
            RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}]}], "+", 
         RowBox[{"a", " ", 
          RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[Rho]", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", 
            RowBox[{"\[Rho]b", "[", 
             RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}]}], ")"}], " ", 
       RowBox[{
        SuperscriptBox["Cnmb", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.8696359927982187`*^9, 3.869636000772709*^9}, 
   3.8696374209791517`*^9, {3.8696374749681253`*^9, 3.869637491068405*^9}, 
   3.8696379514015985`*^9, 3.869646303900933*^9, 3.869646542396182*^9, 
   3.8698266464448814`*^9, 3.8701679707772446`*^9, 3.8701728560465*^9, 
   3.8703217859592447`*^9, 3.8703220873318253`*^9, 3.870322915625247*^9, 
   3.870323492091061*^9, 3.870323684739602*^9, 3.8703238436030617`*^9, 
   3.870325855882844*^9, 3.8703287927564178`*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"95ad43bc-8ef3-478b-a7aa-4f950a44bb8d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Term 4", "Subsubsection",
 CellChangeTimes->{{3.8691983533843164`*^9, 
  3.8691983585213013`*^9}},ExpressionUUID->"75bee576-8492-4864-b5f5-\
05b57f4ce021"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CmbmbTerms", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Term4IBP", "/.", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Tmbmb", "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", 
          RowBox[{
           RowBox[{"Cmbmb", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], 
           RowBox[{"\[Delta]r", "[", "r", "]"}]}]}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"Derivative", "[", 
             RowBox[{"n_", ",", "0"}], "]"}], "[", "Tmbmb", "]"}], "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}], ":>", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Cmbmb", "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}], 
             RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", 
            RowBox[{"{", 
             RowBox[{"r", ",", "n"}], "}"}]}], "]"}]}]}], "}"}]}], "/.", 
      "rule"}], ")"}], "//", "Expand"}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8696358125579786`*^9, 3.8696359150153203`*^9}, {
  3.8696360086945543`*^9, 3.8696360116360464`*^9}, {3.869637499564424*^9, 
  3.869637514105914*^9}, {3.8703237452657824`*^9, 3.870323757441139*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"e2178eb9-185b-4b12-810b-4d038b3d4b14"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
   RowBox[{
    RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
    RowBox[{"\[Rho]b", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Cmbmb", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox[
            RowBox[{"Kt", "[", "r", "]"}], "2"]}], " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}]}], "-", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"Kt", "[", "r", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
             RowBox[{
              SuperscriptBox["\[CapitalDelta]", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"8", " ", 
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"\[Rho]", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"\[Rho]b", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{
                 SuperscriptBox["\[Delta]r", "\[Prime]",
                  MultilineFunction->None], "[", "r", "]"}]}]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{
          RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
             RowBox[{
              SuperscriptBox["Kt", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"5", " ", 
                   SuperscriptBox[
                    RowBox[{"\[Rho]", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], "-", 
                  RowBox[{"4", " ", 
                   RowBox[{"\[Rho]", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
                   RowBox[{"\[Rho]b", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "+", 
                  SuperscriptBox[
                   RowBox[{"\[Rho]b", "[", 
                    RowBox[{"r", ",", "\[Theta]"}], "]"}], "2"]}], ")"}]}], 
               "-", 
               RowBox[{"8", " ", 
                RowBox[{"\[Rho]", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Delta]r", "\[Prime]",
                  MultilineFunction->None], "[", "r", "]"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"\[Rho]b", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
                RowBox[{
                 SuperscriptBox["\[Delta]r", "\[Prime]",
                  MultilineFunction->None], "[", "r", "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["\[Delta]r", "\[Prime]\[Prime]",
                 MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], 
           ")"}]}]}], ")"}]}], "+", 
      RowBox[{
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{"Kt", "[", "r", "]"}], " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
          RowBox[{
           SuperscriptBox["Cmbmb", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             RowBox[{
              SuperscriptBox["\[Delta]r", "\[Prime]",
               MultilineFunction->None], "[", "r", "]"}], " ", 
             RowBox[{
              SuperscriptBox["Cmbmb", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "+", 
            RowBox[{
             RowBox[{"\[Delta]r", "[", "r", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "8"}], " ", 
                RowBox[{"\[Rho]", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
                RowBox[{
                 SuperscriptBox["Cmbmb", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"\[Rho]b", "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
                RowBox[{
                 SuperscriptBox["Cmbmb", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "+", 
               RowBox[{
                SuperscriptBox["Cmbmb", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"2", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}]}], ")"}]}]}],
         ")"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.8696358159743137`*^9, 3.8696358552681856`*^9}, {
   3.8696358993354445`*^9, 3.869635915838559*^9}, 3.869636011973999*^9, 
   3.869637421073064*^9, {3.8696374998641768`*^9, 3.869637514422668*^9}, 
   3.8696379514482603`*^9, 3.869646304018453*^9, 3.8696465424981236`*^9, 
   3.8698266478445263`*^9, 3.8701679708550234`*^9, 3.8701728561152945`*^9, 
   3.870321786017701*^9, 3.8703229156630144`*^9, 3.870323492142371*^9, 
   3.8703236847854853`*^9, {3.870323746340722*^9, 3.8703237596865473`*^9}, 
   3.870323843669022*^9, 3.870325855979084*^9, 3.8703287928430405`*^9},
 CellLabel->"Out[59]=",ExpressionUUID->"3cab8111-4022-4496-98d1-2b0adbc811e0"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Gather up derivs of ",
 Cell[BoxData[
  FormBox[
   RowBox[{"\[Delta]", "(", 
    RowBox[{"r", "-", 
     SubscriptBox["r", "0"]}], ")"}], TraditionalForm]],ExpressionUUID->
  "b0527b1d-272b-468f-8620-0cf36e175fe1"]
}], "Subsubsection",
 CellChangeTimes->{{3.8691984836002254`*^9, 
  3.869198506464389*^9}},ExpressionUUID->"965f382c-1b39-4b37-bb35-\
10c0567bb484"],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["C", "ab"], "terms"}], TraditionalForm]],ExpressionUUID->
  "e4d8c903-f970-459c-a31c-a1957cdc50a9"],
 " = ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["A", "ab0"], 
      SubscriptBox["\[Delta]", "r"]}], " ", "+", " ", 
     RowBox[{
      SubscriptBox["\[PartialD]", "r"], 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["A", "ab1"], 
        SubscriptBox["\[Delta]", "r"]}], ")"}]}], "+", 
     RowBox[{
      SubscriptBox[
       SuperscriptBox["\[PartialD]", "2"], "r"], 
      RowBox[{"(", 
       RowBox[{
        SubscriptBox["A", "ab2"], 
        SubscriptBox["\[Delta]", "r"]}], ")"}]}]}], " ", "=", 
    RowBox[{
     RowBox[{
      SubscriptBox["A", "ab0"], 
      SubscriptBox["\[Delta]", "r"]}], " ", "+", " ", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "r"], 
       RowBox[{"(", 
        SubscriptBox["A", "ab1"], ")"}]}], 
      SubscriptBox["\[Delta]", "r"]}], " ", "+", " ", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[Delta]", "r"], "'"}], " ", 
      SubscriptBox["A", "ab1"]}], " ", "+", " ", 
     RowBox[{
      RowBox[{
       SubscriptBox[
        SuperscriptBox["\[PartialD]", "2"], "r"], 
       SubscriptBox["A", "ab2"]}], " ", 
      SubscriptBox["\[Delta]", "r"]}], " ", "+", " ", 
     RowBox[{"2", " ", 
      RowBox[{
       SubscriptBox["\[PartialD]", "r"], 
       SubscriptBox["A", "ab2"]}], 
      RowBox[{
       SubscriptBox["\[Delta]", "r"], "'"}]}], " ", "+", " ", 
     RowBox[{
      SubscriptBox["A", "ab2"], 
      RowBox[{
       SubscriptBox["\[Delta]", "r"], "''"}], " "}]}]}], TraditionalForm]],
  ExpressionUUID->"055ab8a8-2dd9-4e26-ba2e-71db5f0333c0"],
 "\nFind ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "ab2"], TraditionalForm]],ExpressionUUID->
  "d7d51d20-1c16-47cb-a31f-d9e00424369d"],
 " as he only coefficient of \[Delta]\[CloseCurlyQuote]\[CloseCurlyQuote], \
then subtract ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox[
     SuperscriptBox["\[PartialD]", "2"], "r"], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["A", "ab2"], 
      SubscriptBox["\[Delta]", "r"]}], ")"}]}], TraditionalForm]],
  ExpressionUUID->"1d9d69c4-0e2f-4263-a9ca-be3173c5c2ad"],
 ". Repeat for ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "ab1"], TraditionalForm]],ExpressionUUID->
  "7f778d81-f127-4eac-8144-2ab3618e48ec"],
 ", ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "ab0"], TraditionalForm]],ExpressionUUID->
  "a2c7ac96-5485-4a47-8871-7c8ab372cb83"],
 ". "
}], "Text",
 CellChangeTimes->{{3.869636680403932*^9, 3.869636881440919*^9}, {
  3.869637647930602*^9, 
  3.86963770350769*^9}},ExpressionUUID->"8cdddf93-4a6f-4324-92da-\
a054e3b425a0"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", "nn"], TraditionalForm]],ExpressionUUID->
  "e7689cdf-42c1-4fbb-ac1a-7cad42d8a5eb"],
 " terms"
}], "Subsubsection",
 CellChangeTimes->{{3.8691986021670575`*^9, 3.8691986163963594`*^9}, {
  3.87032447470691*^9, 
  3.870324475683942*^9}},ExpressionUUID->"c3ed13e6-f415-42e1-8085-\
b2b1e019eb9f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ann2", " ", "=", " ", 
  RowBox[{"Coefficient", "[", 
   RowBox[{"CnnTerms", ",", 
    RowBox[{
     RowBox[{"\[Delta]r", "''"}], "[", "r", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8696360261364317`*^9, 3.8696360273549523`*^9}, {
  3.8696364558493443`*^9, 3.869636532995428*^9}, {3.869636640221583*^9, 
  3.8696366449675317`*^9}, {3.8696369049564223`*^9, 3.869636920095276*^9}, {
  3.8703221223818264`*^9, 3.870322125549514*^9}},
 CellLabel->"In[60]:=",ExpressionUUID->"851a28bb-bfad-4d21-9303-64cea9632f11"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8696364491723623`*^9, 3.869636533688887*^9}, 
   3.8696366453256497`*^9, 3.8696369235491037`*^9, 3.8696374211425457`*^9, 
   3.8696375186346426`*^9, 3.869637951505474*^9, 3.869646304045887*^9, 
   3.8696465425373125`*^9, 3.8698266480142436`*^9, 3.8701679708901143`*^9, 
   3.870172856162932*^9, 3.8703217860255775`*^9, 3.870322127211893*^9, 
   3.8703224021608915`*^9, 3.8703228673418827`*^9, 3.8703229156953893`*^9, 
   3.870323492173103*^9, 3.870323684793089*^9, 3.8703238437044277`*^9, 
   3.870325855996648*^9, 3.8703287928681874`*^9},
 CellLabel->"Out[60]=",ExpressionUUID->"3851e627-e782-4b61-bcd2-3addf8a7d06c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ann1", " ", "=", " ", 
  RowBox[{"Coefficient", "[", 
   RowBox[{
    RowBox[{"CnnTerms", " ", "-", " ", 
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"Ann2", " ", 
        RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"r", ",", "2"}], "}"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"\[Delta]r", "'"}], "[", "r", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.869636928000456*^9, 3.869637033428813*^9}, {
  3.869637215067911*^9, 3.8696372205181923`*^9}, {3.870322128572933*^9, 
  3.8703221340622997`*^9}},
 CellLabel->"In[61]:=",ExpressionUUID->"549458ce-c07c-4cc8-8e92-bd828e60020f"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.869637053244812*^9, 3.8696374211861005`*^9, 
  3.8696375194174013`*^9, 3.8696379515461636`*^9, 3.869646304079645*^9, 
  3.869646542585575*^9, 3.8698266480608845`*^9, 3.870167970926247*^9, 
  3.8701728562061987`*^9, 3.870321786053856*^9, 3.870322134626136*^9, 
  3.8703224027241077`*^9, 3.8703228685112867`*^9, 3.8703229157333775`*^9, 
  3.870323492181533*^9, 3.8703236848388696`*^9, 3.870323843752375*^9, 
  3.870325856004117*^9, 3.8703287928923407`*^9},
 CellLabel->"Out[61]=",ExpressionUUID->"52a63748-d148-48bf-bf10-e2dd32ace5ef"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ann0", " ", "=", " ", 
  RowBox[{
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"CnnTerms", "-", " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Ann2", " ", 
         RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "2"}], "}"}]}], "]"}], "-", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Ann1", " ", 
         RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", "r"}], "]"}]}], ",", 
     RowBox[{"\[Delta]r", "[", "r", "]"}]}], "]"}], "//", "Simplify", " ", 
   RowBox[{"(*", "OK", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.869203460793115*^9, 3.869203531646923*^9}, {
  3.8696370650786133`*^9, 3.8696371213729773`*^9}, {3.869637231815482*^9, 
  3.869637240286147*^9}, {3.869637931436451*^9, 3.8696379324820843`*^9}, {
  3.8703221364130754`*^9, 3.8703221566271105`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"a2c9ea98-1dc3-42d3-af15-1d5d11af71e0"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Ld", "[", 
         RowBox[{
          RowBox[{"Ld", "[", 
           RowBox[{
            RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], ",", 
          "1"}], "]"}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"3", " ", 
               RowBox[{"Ld", "[", 
                RowBox[{
                 RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "1"}], "]"}]}], 
              "-", 
              RowBox[{"Ld", "[", 
               RowBox[{
                RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}]}], 
             ")"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], ")"}], " ", 
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"], " ", 
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.869203533080943*^9, 3.8692210051044683`*^9, 3.8693049128311224`*^9, 
   3.8693049513757668`*^9, 3.869635056838325*^9, 3.869637124008808*^9, 
   3.8696374212249966`*^9, 3.8696375201631217`*^9, {3.869637932772924*^9, 
   3.8696379516066484`*^9}, 3.8696463041346455`*^9, 3.8696465427234163`*^9, 
   3.869826648130234*^9, 3.8701679709330187`*^9, 3.8701728562529726`*^9, 
   3.8703217861109314`*^9, 3.870322146652669*^9, 3.8703224032733617`*^9, 
   3.870322869603186*^9, 3.8703229157723875`*^9, 3.87032349222486*^9, 
   3.8703236848882456`*^9, 3.870323843794728*^9, 3.8703258560321712`*^9, 
   3.870328792919118*^9},
 CellLabel->"Out[62]=",ExpressionUUID->"677c3267-b1dd-4657-8fe4-d651a213e56a"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8703229482492633`*^9, 3.8703231095809793`*^9}, {
   3.8703231440679636`*^9, 3.870323204849573*^9}, {3.870323250581399*^9, 
   3.8703232705982246`*^9}, 3.8703233023739576`*^9, {3.8703233782467527`*^9, 
   3.8703233958127174`*^9}, {3.8703235593789988`*^9, 3.8703235661854258`*^9}, 
   3.8703236660584583`*^9},
 CellLabel->"In[63]:=",ExpressionUUID->"42c5e0cf-6584-40c8-94a4-6fc65f6870a0"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", 
    RowBox[{"n", " ", 
     OverscriptBox["m", "_"]}]], TraditionalForm]],ExpressionUUID->
  "8629c8e6-4d2c-4ffe-a319-59e13c97c6b4"],
 " terms"
}], "Subsubsection",
 CellChangeTimes->{{3.8691986735481954`*^9, 3.8691986811457615`*^9}, {
  3.8703244776917243`*^9, 
  3.870324482874793*^9}},ExpressionUUID->"6b2c0591-ea19-4cdb-997a-\
2262699f7c1e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Anmb2", " ", "=", " ", 
  RowBox[{"Coefficient", "[", 
   RowBox[{"CnmbTerms", ",", 
    RowBox[{
     RowBox[{"\[Delta]r", "''"}], "[", "r", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8696360261364317`*^9, 3.8696360273549523`*^9}, {
  3.8696364558493443`*^9, 3.869636532995428*^9}, {3.869636640221583*^9, 
  3.8696366449675317`*^9}, {3.8696369049564223`*^9, 3.869636920095276*^9}, {
  3.869637171261963*^9, 3.869637173372752*^9}, {3.870323602102153*^9, 
  3.870323608410365*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"17cdf2b0-af70-41d6-8525-a9dc1ce4ab81"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8696364491723623`*^9, 3.869636533688887*^9}, 
   3.8696366453256497`*^9, 3.8696369235491037`*^9, 3.869637421263827*^9, 
   3.8696375899745255`*^9, 3.8696379516479235`*^9, 3.869646304163643*^9, 
   3.8696465427803497`*^9, 3.8698266481365414`*^9, 3.870167970967476*^9, 
   3.8701728562968388`*^9, 3.870321786137337*^9, 3.8703229158183637`*^9, 
   3.8703234923633137`*^9, 3.870323609711795*^9, 3.8703236849281445`*^9, 
   3.8703238438348265`*^9, 3.8703258560392537`*^9, 3.8703287929255342`*^9},
 CellLabel->"Out[64]=",ExpressionUUID->"ec63eea8-532e-441c-bc25-68d067f88dc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Anmb1", " ", "=", " ", 
  RowBox[{
   RowBox[{"Coefficient", "[", 
    RowBox[{
     RowBox[{"CnmbTerms", " ", "-", " ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"Anmb2", " ", 
         RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"r", ",", "2"}], "}"}]}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Delta]r", "'"}], "[", "r", "]"}]}], "]"}], "//", "Simplify", 
   RowBox[{"(*", "OK", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.869636928000456*^9, 3.869637033428813*^9}, {
  3.869637176677608*^9, 3.8696371837454667`*^9}, {3.869637544070552*^9, 
  3.869637547796793*^9}, {3.869637922695628*^9, 3.869637926305913*^9}, {
  3.870323611105923*^9, 3.8703236220514107`*^9}, {3.870324274589875*^9, 
  3.8703242759083242`*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"169c92da-2d40-44bf-873d-d447bf392676"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", 
    RowBox[{"Cnmb", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Ld", "[", 
       RowBox[{
        RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "a", " ", 
       RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", 
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]]}]], "Output",
 CellChangeTimes->{
  3.869637053244812*^9, 3.86963742130149*^9, 3.869637591009095*^9, {
   3.869637926593646*^9, 3.869637951694461*^9}, 3.8696463042016525`*^9, 
   3.869646542844139*^9, 3.8698266481785526`*^9, 3.870167971002067*^9, 
   3.8701728563357306`*^9, 3.870321786169174*^9, 3.8703229158542747`*^9, 
   3.8703234923987737`*^9, 3.870323623976898*^9, 3.8703236849690523`*^9, 
   3.870323843888976*^9, 3.870325856069377*^9, 3.87032879295267*^9},
 CellLabel->"Out[65]=",ExpressionUUID->"36576806-9c58-47fc-838d-0215f45202bc"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Anmb0", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{
      RowBox[{"CnmbTerms", "-", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Anmb2", " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", "2"}], "}"}]}], "]"}], "-", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Anmb1", " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", "r"}], "]"}]}], ",", 
      RowBox[{"\[Delta]r", "[", "r", "]"}]}], "]"}], "/.", "rule"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.869203460793115*^9, 3.869203531646923*^9}, {
  3.8696370650786133`*^9, 3.8696371213729773`*^9}, {3.869637187134161*^9, 
  3.869637198627311*^9}, {3.8696375575909033`*^9, 3.8696375615312223`*^9}, {
  3.869637731740116*^9, 3.869637742392967*^9}, {3.8703236411146946`*^9, 
  3.8703236423084526`*^9}, {3.870323690412944*^9, 3.8703236961390877`*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"b9354a5f-9386-4e82-a3b3-b45ffe708eea"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
  RowBox[{"2", " ", 
   SqrtBox["2"], " ", 
   RowBox[{"Cnmb", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Kt", "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", 
         RowBox[{"Ld", "[", 
          RowBox[{
           RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}]}], "+", 
        RowBox[{"a", " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Rho]", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", 
           RowBox[{"\[Rho]b", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"Ld", "[", 
       RowBox[{
        RowBox[{"SH", "[", "\[Theta]", "]"}], ",", "2"}], "]"}], " ", 
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", 
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.869203533080943*^9, 3.8692210051044683`*^9, 3.8693049128311224`*^9, 
   3.8693049513757668`*^9, 3.869635056838325*^9, 3.869637124008808*^9, 
   3.8696374213450003`*^9, {3.869637712202262*^9, 3.869637742702053*^9}, 
   3.8696379517783804`*^9, 3.8696463042941236`*^9, 3.8696465429625745`*^9, 
   3.8698266482810545`*^9, 3.8701679710453424`*^9, 3.8701728563816504`*^9, 
   3.8703217862746224`*^9, 3.8703229158922577`*^9, 3.870323492431946*^9, {
   3.8703236850079*^9, 3.8703236973825855`*^9}, 3.870323843966377*^9, 
   3.870325856128093*^9, 3.870328793008403*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"16d03fde-849b-494c-a01e-623259ef856d"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   SubscriptBox["C", 
    RowBox[{
     OverscriptBox["m", "_"], " ", 
     OverscriptBox["m", "_"]}]], TraditionalForm]],ExpressionUUID->
  "77b79a3b-b2b0-4edc-ac95-a2d8b448b677"],
 " terms "
}], "Subsubsection",
 CellChangeTimes->{{3.869201168281665*^9, 3.8692011755200152`*^9}, {
  3.8703244862854795`*^9, 
  3.870324490861843*^9}},ExpressionUUID->"db51ad52-0ef7-481e-98cb-\
2956fcccce8b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ambmb2", " ", "=", " ", 
  RowBox[{"Coefficient", "[", 
   RowBox[{"CmbmbTerms", ",", 
    RowBox[{
     RowBox[{"\[Delta]r", "''"}], "[", "r", "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8696360261364317`*^9, 3.8696360273549523`*^9}, {
  3.8696364558493443`*^9, 3.869636532995428*^9}, {3.869636640221583*^9, 
  3.8696366449675317`*^9}, {3.8696369049564223`*^9, 3.869636920095276*^9}, {
  3.869637171261963*^9, 3.869637173372752*^9}, {3.8696377718840475`*^9, 
  3.8696377738048778`*^9}, {3.8703237064097157`*^9, 3.8703237090626025`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"e639e8fd-4268-4b5d-9701-8abb0528a3e5"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"Cmbmb", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
    RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
    RowBox[{"\[Rho]b", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"\[Rho]", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]]}]], "Output",
 CellChangeTimes->{{3.8696364491723623`*^9, 3.869636533688887*^9}, 
   3.8696366453256497`*^9, 3.8696369235491037`*^9, 3.869637421263827*^9, 
   3.8696375899745255`*^9, 3.869637797389493*^9, 3.869637951817644*^9, 
   3.869646304325317*^9, 3.8696465430231924`*^9, 3.869826648325368*^9, 
   3.870167971079345*^9, 3.870172856420154*^9, 3.8703217863071012`*^9, 
   3.870322915901392*^9, 3.870323492464569*^9, 3.870323685042061*^9, 
   3.870323735224668*^9, 3.8703237713646727`*^9, 3.8703238440017643`*^9, 
   3.8703258561469793`*^9, 3.870328793033315*^9},
 CellLabel->"Out[67]=",ExpressionUUID->"1817f098-69bf-416a-beda-4b6c5363e9b4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ambmb1", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{
      RowBox[{"CmbmbTerms", " ", "-", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Ambmb2", " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", "2"}], "}"}]}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"\[Delta]r", "'"}], "[", "r", "]"}]}], "]"}], "/.", "rule"}], "//",
    "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.869636928000456*^9, 3.869637033428813*^9}, {
  3.869637176677608*^9, 3.8696371837454667`*^9}, {3.869637544070552*^9, 
  3.869637547796793*^9}, {3.8696377768027244`*^9, 3.8696377814522195`*^9}, {
  3.8696378132544317`*^9, 3.8696378143389034`*^9}, {3.8703237124396377`*^9, 
  3.8703237316459503`*^9}, {3.870323850825726*^9, 3.8703238515859785`*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"4c056f20-7a10-4578-8a45-9deb748b5388"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"Cmbmb", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
   RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{"Kt", "[", "r", "]"}]}], "+", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"\[Rho]b", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
  RowBox[{
   RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"\[Rho]", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]]], "Output",
 CellChangeTimes->{
  3.869637053244812*^9, 3.86963742130149*^9, 3.869637591009095*^9, {
   3.8696377985212955`*^9, 3.869637814591671*^9}, 3.869637951860401*^9, 
   3.8696463043600903`*^9, 3.869646543083625*^9, 3.8698266483682966`*^9, 
   3.8701679711114707`*^9, 3.8701728564664965`*^9, 3.8703217863349905`*^9, 
   3.87032291594715*^9, 3.870323492494767*^9, 3.8703236850775375`*^9, 
   3.8703237360327425`*^9, 3.870323772300872*^9, {3.87032384404142*^9, 
   3.870323852028932*^9}, 3.870325856167753*^9, 3.8703287930575914`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"6d179504-7cd5-46d1-9328-4400d4760086"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ambmb0", " ", "=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Coefficient", "[", 
     RowBox[{
      RowBox[{"CmbmbTerms", "-", " ", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Ambmb2", " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"r", ",", "2"}], "}"}]}], "]"}], "-", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"Ambmb1", " ", 
          RowBox[{"\[Delta]r", "[", "r", "]"}]}], ",", "r"}], "]"}]}], ",", 
      RowBox[{"\[Delta]r", "[", "r", "]"}]}], "]"}], "/.", "rule"}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.869203460793115*^9, 3.869203531646923*^9}, {
   3.8696370650786133`*^9, 3.8696371213729773`*^9}, {3.869637187134161*^9, 
   3.869637198627311*^9}, {3.8696375575909033`*^9, 3.8696375615312223`*^9}, {
   3.869637731740116*^9, 3.869637742392967*^9}, {3.86963778516475*^9, 
   3.869637849802436*^9}, {3.870323719358945*^9, 3.8703237251878443`*^9}, 
   3.8703238777014217`*^9},
 CellLabel->"In[69]:=",ExpressionUUID->"5b1293fa-d716-419e-9919-b1bd52837d65"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"Cmbmb", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
   RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
   RowBox[{"\[Rho]b", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Kt", "[", "r", "]"}], "2"], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
      RowBox[{
       SuperscriptBox["Kt", "\[Prime]",
        MultilineFunction->None], "[", "r", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"Kt", "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[CapitalDelta]", "\[Prime]",
          MultilineFunction->None], "[", "r", "]"}]}], ")"}]}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
   SuperscriptBox[
    RowBox[{"\[Rho]", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]]], "Output",
 CellChangeTimes->{
  3.869203533080943*^9, 3.8692210051044683`*^9, 3.8693049128311224`*^9, 
   3.8693049513757668`*^9, 3.869635056838325*^9, 3.869637124008808*^9, 
   3.8696374213450003`*^9, {3.869637712202262*^9, 3.869637742702053*^9}, {
   3.869637794453923*^9, 3.869637820000086*^9}, 3.869637851102049*^9, 
   3.8696379519038043`*^9, 3.8696463043953485`*^9, 3.869646543130001*^9, 
   3.869826648418823*^9, 3.8701679711479344`*^9, 3.870172856516077*^9, 
   3.8703217863595366`*^9, 3.870322915981325*^9, 3.8703234925238404`*^9, 
   3.8703236850882683`*^9, 3.8703237368381433`*^9, 3.8703237730972*^9, {
   3.8703238440900106`*^9, 3.8703238779880877`*^9}, 3.8703258561901245`*^9, 
   3.870328793085141*^9},
 CellLabel->"Out[69]=",ExpressionUUID->"896a36bf-a16e-47f9-9934-c05989188060"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "Final ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["A", "abi"], TraditionalForm]],ExpressionUUID->
  "adf0f3a0-d3a4-4540-a4be-8b83ae54ad9a"],
 " terms"
}], "Subsubsection",
 CellChangeTimes->{{3.8692035616149564`*^9, 
  3.8692035691906414`*^9}},ExpressionUUID->"0f370553-cb07-4212-b108-\
1840a1b562e4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ld", "[", 
   RowBox[{"x_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"x", ",", "\[Theta]"}], "]"}], "-", " ", 
   RowBox[{"m", " ", 
    RowBox[{"Csc", "[", "\[Theta]", "]"}], "x"}], " ", "+", " ", 
   RowBox[{"a", " ", "\[Omega]", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "x"}], " ", "+", " ", 
   RowBox[{"s", " ", 
    RowBox[{"Cot", "[", "\[Theta]", "]"}], "x"}]}]}]], "Input",
 CellChangeTimes->{3.8703288732731953`*^9},
 CellLabel->"In[84]:=",ExpressionUUID->"eacb975d-6d01-4468-8d50-1c75d238c17a"],

Cell[CellGroupData[{

Cell[BoxData["Ann0"], "Input",
 CellChangeTimes->{{3.869203450839838*^9, 3.8692034514129786`*^9}, {
   3.8696472653114805`*^9, 3.8696472673380113`*^9}, 3.8696473142321167`*^9, {
   3.8703251280118136`*^9, 3.870325128522394*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"2f504bb2-545e-446a-aaba-e43bd80f9ab4"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"2", " ", 
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", "\[Omega]", " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"m", " ", 
         RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"Csc", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          SuperscriptBox["SH", "\[Prime]",
           MultilineFunction->None], "[", "\[Theta]", "]"}]}], "-", 
        RowBox[{"m", " ", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          SuperscriptBox["SH", "\[Prime]",
           MultilineFunction->None], "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"a", " ", "\[Omega]", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{
          SuperscriptBox["SH", "\[Prime]",
           MultilineFunction->None], "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{
         RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
           RowBox[{"m", " ", 
            RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{"a", " ", "\[Omega]", " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["SH", "\[Prime]",
             MultilineFunction->None], "[", "\[Theta]", "]"}]}], ")"}]}], "-", 
        RowBox[{"m", " ", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
           RowBox[{"m", " ", 
            RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{"a", " ", "\[Omega]", " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["SH", "\[Prime]",
             MultilineFunction->None], "[", "\[Theta]", "]"}]}], ")"}]}], "+", 
        RowBox[{"a", " ", "\[Omega]", " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
           RowBox[{"m", " ", 
            RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{"a", " ", "\[Omega]", " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["SH", "\[Prime]",
             MultilineFunction->None], "[", "\[Theta]", "]"}]}], ")"}]}], "+", 
        RowBox[{"\[ImaginaryI]", " ", "a", " ", 
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"3", " ", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
               RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
              RowBox[{"m", " ", 
               RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
               RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
              RowBox[{"a", " ", "\[Omega]", " ", 
               RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
               RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "-", 
              RowBox[{
               SuperscriptBox["SH", "\[Prime]",
                MultilineFunction->None], "[", "\[Theta]", "]"}], "+", 
              RowBox[{"3", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
                  RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
                 RowBox[{"m", " ", 
                  RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
                  RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
                 RowBox[{"a", " ", "\[Omega]", " ", 
                  RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
                  RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
                 RowBox[{
                  SuperscriptBox["SH", "\[Prime]",
                   MultilineFunction->None], "[", "\[Theta]", "]"}]}], 
                ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["SH", "\[Prime]\[Prime]",
          MultilineFunction->None], "[", "\[Theta]", "]"}]}], ")"}]}], ")"}], 
    "/", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"], " ", 
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.86920345201369*^9, 3.869203537951544*^9, 3.8692210074020205`*^9, 
   3.8693049132351804`*^9, 3.8693049518278785`*^9, 3.8696350574400587`*^9, 
   3.869637421584321*^9, 3.8696378673702784`*^9, 3.869637951942005*^9, 
   3.869646304423134*^9, 3.8696465431400003`*^9, {3.8696471663363843`*^9, 
   3.8696471887562017`*^9}, 3.869647268195778*^9, {3.8696473145132093`*^9, 
   3.869647339597966*^9}, 3.8696473708622904`*^9, 3.8696474293841457`*^9, 
   3.869826648467828*^9, 3.8701679711908913`*^9, 3.8701728565822372`*^9, 
   3.8703217863993053`*^9, 3.8703229160238*^9, 3.8703234925674744`*^9, 
   3.8703236851343403`*^9, 3.870323844147705*^9, 3.8703251605892277`*^9, 
   3.8703258561951127`*^9, 3.870328793108953*^9, 3.870328876104762*^9},
 CellLabel->"Out[85]=",ExpressionUUID->"100b87cd-49f6-44f6-8d60-51456a4ec88d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Anmb0"], "Input",
 CellChangeTimes->{{3.8692035393066897`*^9, 3.8692035406088357`*^9}, {
  3.8703251311711864`*^9, 3.8703251324515767`*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"1029f5ad-875a-4158-9bbf-0d0366612e62"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
  RowBox[{"2", " ", 
   SqrtBox["2"], " ", 
   RowBox[{"Cnmb", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Rho]", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", 
        RowBox[{"\[Rho]b", "[", 
         RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
        RowBox[{"m", " ", 
         RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"a", " ", "\[Omega]", " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["SH", "\[Prime]",
          MultilineFunction->None], "[", "\[Theta]", "]"}]}], ")"}]}], "+", 
     RowBox[{
      RowBox[{"Kt", "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", 
         RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[Rho]", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", 
           RowBox[{"\[Rho]b", "[", 
            RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}], "-", 
        RowBox[{"\[ImaginaryI]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
           RowBox[{"m", " ", 
            RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{"a", " ", "\[Omega]", " ", 
            RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
            RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["SH", "\[Prime]",
             MultilineFunction->None], "[", "\[Theta]", "]"}]}], ")"}]}]}], 
       ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.8692035410975285`*^9, 3.8692210074336023`*^9, 
  3.8693049132618313`*^9, 3.8693049518597245`*^9, 3.869635057451146*^9, 
  3.8696374216203146`*^9, 3.8696378683340077`*^9, 3.8696379519510775`*^9, 
  3.8696463044291406`*^9, 3.869646543178277*^9, 3.869826648509389*^9, 
  3.87016797122736*^9, 3.8701728566207767`*^9, 3.8703217864310246`*^9, 
  3.8703229160561733`*^9, 3.870323492600788*^9, 3.870323685171129*^9, 
  3.8703238441823664`*^9, 3.870325161613308*^9, 3.870325856214219*^9, 
  3.8703287931148367`*^9, 3.870328878577467*^9},
 CellLabel->"Out[86]=",ExpressionUUID->"13fdb8d8-10df-43e7-a34f-2b34123ae8d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Anmb1"], "Input",
 CellChangeTimes->{{3.869203542452094*^9, 3.86920354371068*^9}, {
  3.8703251353062487`*^9, 3.8703251366671596`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"a9d53591-eb59-45c3-8ab8-073dd6162eb2"],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
     SuperscriptBox[
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", 
    RowBox[{"Cnmb", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       RowBox[{"Cot", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"SH", "[", "\[Theta]", "]"}]}], "-", 
      RowBox[{"m", " ", 
       RowBox[{"Csc", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"SH", "[", "\[Theta]", "]"}]}], "+", 
      RowBox[{"a", " ", "\[Omega]", " ", 
       RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "a", " ", 
       RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", 
         RowBox[{"\[Rho]b", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["SH", "\[Prime]",
        MultilineFunction->None], "[", "\[Theta]", "]"}]}], 
     ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.869203543968425*^9, 3.8692210074673643`*^9, 
  3.869304913292653*^9, 3.8693049518909497`*^9, 3.86963505749201*^9, 
  3.869637421656624*^9, 3.8696378693971105`*^9, 3.869637951991821*^9, 
  3.8696463044601417`*^9, 3.8696465432184987`*^9, 3.869826648552562*^9, 
  3.870167971261593*^9, 3.8701728566705084`*^9, 3.8703217864572*^9, 
  3.8703229160897098`*^9, 3.8703234926327686`*^9, 3.8703236852239046`*^9, 
  3.870323844217668*^9, 3.870325162316413*^9, 3.870325856234051*^9, 
  3.8703287931199474`*^9, 3.870328881304178*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"edd61dda-51ce-41cc-aa3e-a6da93e92518"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ambmb0", "/.", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalDelta]", "'"}], "[", "r", "]"}], "->", 
     RowBox[{"2", 
      RowBox[{"(", 
       RowBox[{"r0", "-", "1"}], ")"}]}]}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{"Kt", "'"}], "[", "r", "]"}], "->", 
     RowBox[{"2", " ", "r0", " ", "\[Omega]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.8692035450922284`*^9, 3.869203549492053*^9}, {
  3.8703251390359573`*^9, 3.870325141827608*^9}, {3.870328770184077*^9, 
  3.8703287809505053`*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"b6cc2df7-852a-4893-8288-a6c059ee358b"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Rho]", "[", 
      RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]], 
  RowBox[{
   RowBox[{"Cmbmb", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
   RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"Kt", "[", "r", "]"}], "2"], "+", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "r0", " ", "\[Omega]", " ", 
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", 
      RowBox[{"Kt", "[", "r", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", "r0"}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
         RowBox[{"\[Rho]", "[", 
          RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
   RowBox[{"\[Rho]b", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.869203549892607*^9, 3.8692210074934397`*^9, 
  3.869304913296651*^9, 3.8693049519207177`*^9, 3.869635057520114*^9, 
  3.86963742166436*^9, 3.8696378707315645`*^9, 3.8696379520300913`*^9, 
  3.869646304488265*^9, 3.869646543258484*^9, 3.8698266485615377`*^9, 
  3.870167971294387*^9, 3.8701728567134047`*^9, 3.8703217864906836`*^9, 
  3.8703229161323786`*^9, 3.870323492663887*^9, 3.870323685275159*^9, 
  3.8703238442520485`*^9, 3.870325162927356*^9, 3.870325856241753*^9, 
  3.8703287931448703`*^9, 3.8703288821733427`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"0005a754-25f9-4164-b674-376218f2a884"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Ambmb1"], "Input",
 CellChangeTimes->{{3.8692035505036545`*^9, 3.869203551580056*^9}, {
  3.8703251444347878`*^9, 3.870325144912589*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"dde29547-17d7-458a-99dc-792c0fdc187d"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", 
   RowBox[{"Cmbmb", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
   RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{"Kt", "[", "r", "]"}]}], "+", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"\[Rho]b", "[", 
    RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
  RowBox[{
   RowBox[{"\[CapitalDelta]", "[", "r", "]"}], " ", 
   SuperscriptBox[
    RowBox[{"\[Rho]", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]}]]], "Output",
 CellChangeTimes->{3.869203552143037*^9, 3.869221007522336*^9, 
  3.8693049133239207`*^9, 3.869304951951135*^9, 3.8696350575275803`*^9, 
  3.8696374216994143`*^9, 3.8696378717419972`*^9, 3.8696379520683737`*^9, 
  3.8696463045172663`*^9, 3.8696465433031225`*^9, 3.869826648599967*^9, 
  3.8701679713265953`*^9, 3.8701728567224507`*^9, 3.8703217865194883`*^9, 
  3.8703229161709747`*^9, 3.8703234926931577`*^9, 3.870323685320483*^9, 
  3.8703238442590485`*^9, 3.8703251635084105`*^9, 3.87032585625961*^9, 
  3.870328793149311*^9, 3.8703288828618965`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"8c9e5059-d2ad-4b7e-833d-598cccf7f19c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["Ambmb2"], "Input",
 CellChangeTimes->{{3.869203552790219*^9, 3.869203553277743*^9}, {
  3.870325147147702*^9, 3.8703251477700863`*^9}},
 CellLabel->"In[90]:=",ExpressionUUID->"73fa4dca-e3eb-4045-88ab-803062be1d19"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{
    RowBox[{"Cmbmb", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], " ", 
    RowBox[{"SH", "[", "\[Theta]", "]"}], " ", 
    RowBox[{"\[Rho]b", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}]}], 
   SuperscriptBox[
    RowBox[{"\[Rho]", "[", 
     RowBox[{"r", ",", "\[Theta]"}], "]"}], "3"]]}]], "Output",
 CellChangeTimes->{3.8692035535482917`*^9, 3.8692210075612755`*^9, 
  3.869304913326914*^9, 3.869304951980797*^9, 3.8696350575569096`*^9, 
  3.8696374217307653`*^9, 3.869637872541327*^9, 3.8696379520745325`*^9, 
  3.869646304545265*^9, 3.869646543345478*^9, 3.869826648610841*^9, 
  3.8701679713964753`*^9, 3.8701728567567635`*^9, 3.8703217865503283`*^9, 
  3.8703229161789694`*^9, 3.8703234926989346`*^9, 3.8703236853641987`*^9, 
  3.8703238442911067`*^9, 3.870325164246883*^9, 3.870325856280959*^9, 
  3.8703287931793103`*^9, 3.8703288834922457`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"d1826fcb-ca87-4e69-b1ca-61399f1b4e33"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Neatening up for integrators", "Subsubsection",
 CellChangeTimes->{{3.870325354881136*^9, 3.8703253780988517`*^9}, {
  3.8703258079641557`*^9, 
  3.8703258101446576`*^9}},ExpressionUUID->"ef675721-bb37-461e-bec5-\
08ba6c806b9f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ld", "[", 
   RowBox[{"x_", ",", "s_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"x", ",", "\[Theta]"}], "]"}], "-", " ", 
   RowBox[{"m", " ", 
    RowBox[{"Csc", "[", "\[Theta]", "]"}], "x"}], " ", "+", " ", 
   RowBox[{"a", " ", "\[Omega]", " ", 
    RowBox[{"Sin", "[", "\[Theta]", "]"}], "x"}], " ", "+", " ", 
   RowBox[{"s", " ", 
    RowBox[{"Cot", "[", "\[Theta]", "]"}], "x"}]}]}]], "Input",
 CellChangeTimes->{{3.870325632751977*^9, 3.8703256791367645`*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"e7f0aa68-616e-4503-ac28-10eae98a2ab9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Ann0", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnn"}], ",", 
     RowBox[{
      RowBox[{"Cnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnmb"}], ",", 
     RowBox[{
      RowBox[{"Cmbmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cmbmb"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]b"}], ",", 
     RowBox[{"\[ScriptM]", "->", "m"}], ",", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "->", "\[CapitalDelta]"}], 
     ",", 
     RowBox[{
      RowBox[{"Kt", "[", "r", "]"}], "->", "k"}], ",", 
     RowBox[{
      RowBox[{"SH", "[", "\[Theta]", "]"}], "->", "SH"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "'"}], "[", "\[Theta]", "]"}], "->", "dSH"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "''"}], "[", "\[Theta]", "]"}], "->", "d2SH"}], ",", 
     RowBox[{"\[Theta]", "->", "\[Theta]0"}]}], "}"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8692211517149334`*^9, 3.869221154053958*^9}, {
  3.869221377502784*^9, 3.8692213777494617`*^9}, {3.8692214766949883`*^9, 
  3.869221624802882*^9}, {3.8692940416494045`*^9, 3.8692940661605062`*^9}, {
  3.8693049740500865`*^9, 3.8693049793863974`*^9}, {3.869637906118292*^9, 
  3.869637907052223*^9}, {3.8696379583024054`*^9, 3.869637958765365*^9}, {
  3.8696381224930677`*^9, 3.8696381507889843`*^9}, {3.870325225369239*^9, 
  3.8703252748971186`*^9}, {3.8703256924510956`*^9, 3.870325723736415*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"5c2bfd6d-7f89-4e64-9bef-799d3773c0f6"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox["\[CapitalDelta]", "2"], " ", 
    SuperscriptBox["\[Rho]", "3"], " ", "\[Rho]b"}]], 
  RowBox[{"2", " ", "Cnn", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "d2SH"}], "+", 
     RowBox[{
     "2", " ", "\[ImaginaryI]", " ", "a", " ", "m", " ", "SH", " ", 
      "\[Rho]"}], "+", 
     RowBox[{"2", " ", "a", " ", "m", " ", "SH", " ", "\[Omega]"}], "-", 
     RowBox[{"4", " ", "\[ImaginaryI]", " ", "a", " ", "SH", " ", 
      RowBox[{"(", 
       RowBox[{"\[Rho]", "-", 
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
      RowBox[{"Cos", "[", "\[Theta]0", "]"}]}], "-", 
     RowBox[{"2", " ", "SH", " ", 
      SuperscriptBox[
       RowBox[{"Cot", "[", "\[Theta]0", "]"}], "2"]}], "+", 
     RowBox[{"2", " ", "dSH", " ", "m", " ", 
      RowBox[{"Csc", "[", "\[Theta]0", "]"}]}], "+", 
     RowBox[{"2", " ", "SH", " ", 
      SuperscriptBox[
       RowBox[{"Csc", "[", "\[Theta]0", "]"}], "2"]}], "-", 
     RowBox[{
      SuperscriptBox["m", "2"], " ", "SH", " ", 
      SuperscriptBox[
       RowBox[{"Csc", "[", "\[Theta]0", "]"}], "2"]}], "+", 
     RowBox[{
      RowBox[{"Cot", "[", "\[Theta]0", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "3"}], " ", "dSH"}], "+", 
        RowBox[{"2", " ", "m", " ", "SH", " ", 
         RowBox[{"Csc", "[", "\[Theta]0", "]"}]}]}], ")"}]}], "-", 
     RowBox[{
     "2", " ", "\[ImaginaryI]", " ", "a", " ", "dSH", " ", "\[Rho]", " ", 
      RowBox[{"Sin", "[", "\[Theta]0", "]"}]}], "-", 
     RowBox[{"2", " ", "a", " ", "dSH", " ", "\[Omega]", " ", 
      RowBox[{"Sin", "[", "\[Theta]0", "]"}]}], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", 
      SuperscriptBox["a", "2"], " ", "SH", " ", "\[Rho]", " ", "\[Omega]", 
      " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]0", "]"}], "2"]}], "-", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", "SH", " ", 
      SuperscriptBox["\[Omega]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]0", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.869221154334852*^9, 3.869221378433155*^9, {3.8692214773665075`*^9, 
   3.8692214914210095`*^9}, {3.869221528945876*^9, 3.869221628066802*^9}, 
   3.869294067253769*^9, 3.8693049135165854`*^9, 3.8693049521469207`*^9, 
   3.8696350578306637`*^9, 3.8696374219639945`*^9, {3.869637952169117*^9, 
   3.8696379602849836`*^9}, 3.869638017585252*^9, {3.8696381514504614`*^9, 
   3.8696381719668117`*^9}, 3.869638224452935*^9, 3.869638266740222*^9, 
   3.8696463050145073`*^9, 3.869646543776811*^9, 3.869826649222541*^9, 
   3.8701679714396524`*^9, 3.8701728568097477`*^9, 3.870321786641348*^9, 
   3.8703229162478113`*^9, 3.870323492748356*^9, 3.8703236854209075`*^9, 
   3.870323844331498*^9, {3.8703252413038416`*^9, 3.870325275322271*^9}, {
   3.8703256709455633`*^9, 3.8703256830166583`*^9}, 3.8703257251028194`*^9, 
   3.870325856515869*^9, 3.8703287934290085`*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"8388af45-d998-4d7f-9df7-e30f0d5b1c76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Anmb0", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnn"}], ",", 
     RowBox[{
      RowBox[{"Cnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnmb"}], ",", 
     RowBox[{
      RowBox[{"Cmbmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cmbmb"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]b"}], ",", 
     RowBox[{"\[ScriptM]", "->", "m"}], ",", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "->", "\[CapitalDelta]"}], 
     ",", 
     RowBox[{
      RowBox[{"Kt", "[", "r", "]"}], "->", "k"}], ",", 
     RowBox[{
      RowBox[{"SH", "[", "\[Theta]", "]"}], "->", "SH"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "'"}], "[", "\[Theta]", "]"}], "->", "dSH"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "''"}], "[", "\[Theta]", "]"}], "->", "d2SH"}], ",", 
     RowBox[{"\[Theta]", "->", "\[Theta]0"}]}], "}"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8696380522809258`*^9, 3.86963805262733*^9}, {
  3.86963815886406*^9, 3.869638177783517*^9}, {3.8703252923402557`*^9, 
  3.8703253205423985`*^9}, {3.8703257377701626`*^9, 3.8703257380254927`*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"ea129596-ad5c-455c-95aa-5ffe5091054b"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{
    SuperscriptBox["\[CapitalDelta]", "2"], " ", 
    SuperscriptBox["\[Rho]", "3"]}]], 
  RowBox[{"2", " ", 
   SqrtBox["2"], " ", "Cnmb", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"a", " ", "k", " ", "SH", " ", 
      RowBox[{"(", 
       RowBox[{"\[Rho]", "-", "\[Rho]b"}], ")"}], " ", 
      RowBox[{"Sin", "[", "\[Theta]0", "]"}]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "k", " ", 
      RowBox[{"(", 
       RowBox[{"dSH", "+", 
        RowBox[{"2", " ", "SH", " ", 
         RowBox[{"Cot", "[", "\[Theta]0", "]"}]}], "-", 
        RowBox[{"m", " ", "SH", " ", 
         RowBox[{"Csc", "[", "\[Theta]0", "]"}]}], "+", 
        RowBox[{"a", " ", "SH", " ", "\[Omega]", " ", 
         RowBox[{"Sin", "[", "\[Theta]0", "]"}]}]}], ")"}]}], "+", 
     RowBox[{"\[CapitalDelta]", " ", 
      RowBox[{"(", 
       RowBox[{"\[Rho]", "+", "\[Rho]b"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"dSH", "+", 
        RowBox[{"2", " ", "SH", " ", 
         RowBox[{"Cot", "[", "\[Theta]0", "]"}]}], "-", 
        RowBox[{"m", " ", "SH", " ", 
         RowBox[{"Csc", "[", "\[Theta]0", "]"}]}], "+", 
        RowBox[{"a", " ", "SH", " ", "\[Omega]", " ", 
         RowBox[{"Sin", "[", "\[Theta]0", "]"}]}]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.8696380537103806`*^9, {3.8696381734103947`*^9, 3.8696381788845563`*^9}, 
   3.8696463056478996`*^9, 3.869646544361539*^9, 3.86982664986305*^9, 
   3.8701679714768925`*^9, 3.8701728568476295`*^9, 3.8703217867229257`*^9, 
   3.8703229162598104`*^9, 3.8703234927774305`*^9, 3.870323685460165*^9, 
   3.8703238443643513`*^9, {3.8703253160261664`*^9, 3.8703253356932683`*^9}, 
   3.8703257518913403`*^9, 3.8703258570124283`*^9, 3.8703287939155393`*^9},
 CellLabel->"Out[78]=",ExpressionUUID->"d109c2f7-9c4e-4cb7-a3ac-bb5e9d9cef29"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Anmb1", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnn"}], ",", 
     RowBox[{
      RowBox[{"Cnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnmb"}], ",", 
     RowBox[{
      RowBox[{"Cmbmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cmbmb"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]b"}], ",", 
     RowBox[{"\[ScriptM]", "->", "m"}], ",", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "->", "\[CapitalDelta]"}], 
     ",", 
     RowBox[{
      RowBox[{"Kt", "[", "r", "]"}], "->", "k"}], ",", 
     RowBox[{
      RowBox[{"SH", "[", "\[Theta]", "]"}], "->", "SH"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "'"}], "[", "\[Theta]", "]"}], "->", "dSH"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "''"}], "[", "\[Theta]", "]"}], "->", "d2SH"}], ",", 
     RowBox[{"\[Theta]", "->", "\[Theta]0"}]}], "}"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.869638058876381*^9, 3.869638060396375*^9}, {
  3.869638161070081*^9, 3.869638180458878*^9}, {3.8703252965453196`*^9, 
  3.8703253238664026`*^9}, {3.870325739984206*^9, 3.8703257403310113`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"6083b20f-0bca-4020-9b52-f1be36213fd1"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SqrtBox["2"], " ", "Cnmb", " ", 
    RowBox[{"(", 
     RowBox[{"dSH", "+", 
      RowBox[{"2", " ", "SH", " ", 
       RowBox[{"Cot", "[", "\[Theta]0", "]"}]}], "-", 
      RowBox[{"m", " ", "SH", " ", 
       RowBox[{"Csc", "[", "\[Theta]0", "]"}]}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "a", " ", "SH", " ", 
       RowBox[{"(", 
        RowBox[{"\[Rho]", "-", "\[Rho]b"}], ")"}], " ", 
       RowBox[{"Sin", "[", "\[Theta]0", "]"}]}], "+", 
      RowBox[{"a", " ", "SH", " ", "\[Omega]", " ", 
       RowBox[{"Sin", "[", "\[Theta]0", "]"}]}]}], ")"}]}], 
   RowBox[{"\[CapitalDelta]", " ", 
    SuperscriptBox["\[Rho]", "3"]}]]}]], "Output",
 CellChangeTimes->{
  3.8696380608717146`*^9, {3.869638174389965*^9, 3.8696381808686566`*^9}, 
   3.869646305751976*^9, 3.8696465444586544`*^9, 3.869826649980891*^9, 
   3.8701679715109477`*^9, 3.8701728568940334`*^9, 3.8703217867519217`*^9, 
   3.8703229162876883`*^9, 3.870323492806862*^9, 3.8703236855045104`*^9, 
   3.870323844400609*^9, {3.8703253167194567`*^9, 3.870325336279853*^9}, 
   3.870325753495303*^9, 3.870325857139197*^9, 3.8703287940463543`*^9},
 CellLabel->"Out[79]=",ExpressionUUID->"25c25158-0884-4c58-9c6c-f8a1769ee80c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Ambmb0", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnn"}], ",", 
     RowBox[{
      RowBox[{"Cnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnmb"}], ",", 
     RowBox[{
      RowBox[{"Cmbmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cmbmb"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]b"}], ",", 
     RowBox[{"\[ScriptM]", "->", "m"}], ",", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "->", "\[CapitalDelta]"}], 
     ",", 
     RowBox[{
      RowBox[{
       RowBox[{"\[CapitalDelta]", "'"}], "[", "r", "]"}], "->", 
      RowBox[{"2", 
       RowBox[{"(", 
        RowBox[{"r0", "-", "1"}], ")"}]}]}], ",", 
     RowBox[{
      RowBox[{"Kt", "[", "r", "]"}], "->", "k"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"Kt", "'"}], "[", "r", "]"}], "->", 
      RowBox[{"2", " ", "r0", " ", "\[Omega]"}]}], ",", 
     RowBox[{
      RowBox[{"SH", "[", "\[Theta]", "]"}], "->", "SH"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "'"}], "[", "\[Theta]", "]"}], "->", "dSH"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "''"}], "[", "\[Theta]", "]"}], "->", "d2SH"}], ",", 
     RowBox[{"\[Theta]", "->", "\[Theta]0"}]}], "}"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8696380657956676`*^9, 3.869638066662423*^9}, {
  3.8696381633807335`*^9, 3.8696381657716928`*^9}, {3.8696465098460913`*^9, 
  3.8696465181799393`*^9}, {3.8703252998138943`*^9, 3.8703253267076836`*^9}, {
  3.8703257423136435`*^9, 3.870325796712714*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"445c5d71-ff84-4066-bca7-ac69f795d3f1"],

Cell[BoxData[
 FractionBox[
  RowBox[{"Cmbmb", " ", "SH", " ", "\[Rho]b", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["k", "2"], "-", 
     RowBox[{"2", " ", "\[ImaginaryI]", " ", "k", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "1"}], "+", "r0", "-", 
        RowBox[{"\[CapitalDelta]", " ", "\[Rho]"}]}], ")"}]}], "+", 
     RowBox[{
     "2", " ", "\[ImaginaryI]", " ", "r0", " ", "\[CapitalDelta]", " ", 
      "\[Omega]"}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox["\[CapitalDelta]", "2"], " ", 
   SuperscriptBox["\[Rho]", "3"]}]]], "Output",
 CellChangeTimes->{
  3.869638067497899*^9, 3.8696381832989635`*^9, 3.8696463057822*^9, 
   3.8696465445051765`*^9, 3.869826650027594*^9, 3.8701679715580645`*^9, 
   3.870172856934956*^9, 3.8703217867895236`*^9, 3.8703229163162603`*^9, 
   3.870323492844289*^9, 3.8703236855592613`*^9, 3.8703238444393473`*^9, 
   3.8703253367962275`*^9, {3.870325754884739*^9, 3.87032579939843*^9}, 
   3.8703258571608543`*^9, 3.87032879407834*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"99b5ed1a-47d4-4bc4-9227-17e63f3b8eca"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Ambmb1", "/.", "rule"}], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Cnn", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnn"}], ",", 
      RowBox[{
       RowBox[{"Cnmb", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnmb"}], ",", 
      RowBox[{
       RowBox[{"Cmbmb", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cmbmb"}], ",", 
      RowBox[{
       RowBox[{"\[Rho]", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]"}], ",", 
      RowBox[{
       RowBox[{"\[Rho]b", "[", 
        RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]b"}], ",", 
      RowBox[{"\[ScriptM]", "->", "m"}], ",", 
      RowBox[{
       RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "->", "\[CapitalDelta]"}], 
      ",", 
      RowBox[{
       RowBox[{"Kt", "[", "r", "]"}], "->", "k"}], ",", 
      RowBox[{
       RowBox[{"SH", "[", "\[Theta]", "]"}], "->", "SH"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"SH", "'"}], "[", "\[Theta]", "]"}], "->", "dSH"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"SH", "''"}], "[", "\[Theta]", "]"}], "->", "d2SH"}], ",", 
      RowBox[{"\[Theta]", "->", "\[Theta]0"}]}], "}"}]}], ")"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8696380719993954`*^9, 3.86963807606919*^9}, 
   3.8696381677500725`*^9, {3.869646344539369*^9, 3.86964636668297*^9}, {
   3.8696465245812016`*^9, 3.869646525933921*^9}, {3.8703253056381984`*^9, 
   3.8703253294090195`*^9}, {3.870325745056459*^9, 3.8703257454907694`*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"333a59c6-9e79-4b1a-9606-8fb64b2bfeb9"],

Cell[BoxData[
 FractionBox[
  RowBox[{"2", " ", "Cmbmb", " ", "SH", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "k"}], "+", 
     RowBox[{"\[CapitalDelta]", " ", "\[Rho]"}]}], ")"}], " ", "\[Rho]b"}], 
  RowBox[{"\[CapitalDelta]", " ", 
   SuperscriptBox["\[Rho]", "3"]}]]], "Output",
 CellChangeTimes->{
  3.8696380764018044`*^9, 3.869638185034314*^9, 3.8696463058181653`*^9, {
   3.8696463458260684`*^9, 3.8696463681251144`*^9}, 3.8696465445518026`*^9, 
   3.869826650075198*^9, 3.8701679715887127`*^9, 3.8701728569792986`*^9, 
   3.8703217868252296`*^9, 3.870322916351853*^9, 3.870323492855403*^9, 
   3.8703236855933514`*^9, 3.8703238444837217`*^9, 3.870325337328134*^9, 
   3.8703257556361876`*^9, 3.8703258009565215`*^9, 3.8703258571981554`*^9, 
   3.8703287941080065`*^9},
 CellLabel->"Out[81]=",ExpressionUUID->"2a57be7d-ac21-4194-a14b-28721b7a038a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Ambmb2", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Cnn", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnn"}], ",", 
     RowBox[{
      RowBox[{"Cnmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cnmb"}], ",", 
     RowBox[{
      RowBox[{"Cmbmb", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "Cmbmb"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]"}], ",", 
     RowBox[{
      RowBox[{"\[Rho]b", "[", 
       RowBox[{"r", ",", "\[Theta]"}], "]"}], "->", "\[Rho]b"}], ",", 
     RowBox[{"\[ScriptM]", "->", "m"}], ",", 
     RowBox[{
      RowBox[{"\[CapitalDelta]", "[", "r", "]"}], "->", "\[CapitalDelta]"}], 
     ",", 
     RowBox[{
      RowBox[{"Kt", "[", "r", "]"}], "->", "k"}], ",", 
     RowBox[{
      RowBox[{"SH", "[", "\[Theta]", "]"}], "->", "SH"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "'"}], "[", "\[Theta]", "]"}], "->", "dSH"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"SH", "''"}], "[", "\[Theta]", "]"}], "->", "d2SH"}], ",", 
     RowBox[{"\[Theta]", "->", "\[Theta]0"}]}], "}"}]}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8696380801864104`*^9, 3.8696380822030087`*^9}, 
   3.869638169253475*^9, {3.869646534541875*^9, 3.869646535682768*^9}, {
   3.870325313230128*^9, 3.8703253314567127`*^9}, {3.8703257476309333`*^9, 
   3.8703257480599365`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"3056a5de-90ab-4116-83e4-d8c7a36f02d5"],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"Cmbmb", " ", "SH", " ", "\[Rho]b"}], 
   SuperscriptBox["\[Rho]", "3"]]}]], "Output",
 CellChangeTimes->{3.869638082474928*^9, 3.869638186203019*^9, 
  3.869646305857648*^9, 3.8696465445611277`*^9, 3.869826650148553*^9, 
  3.870167971622981*^9, 3.8701728570204773`*^9, 3.8703217868635283`*^9, 
  3.8703229163846354`*^9, 3.8703234928960176`*^9, 3.870323685603115*^9, 
  3.870323844518854*^9, 3.8703253378913217`*^9, 3.8703257567577076`*^9, 
  3.8703258018503647`*^9, 3.870325857219914*^9, 3.870328794114005*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"fd2fcd08-b23b-4305-8bf3-2ffe67700ff7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", "Ld", "]"}]], "Input",
 CellChangeTimes->{{3.870326972682028*^9, 3.8703269750666533`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"6aa13f66-edcf-4fd0-8f84-a8948430a7f3"]
}, Open  ]]
},
Evaluator->"local2",
WindowSize->{718.5, 747.},
WindowMargins->{{-5.25, Automatic}, {Automatic, 0}},
TaggingRules-><|"TryRealOnly" -> False|>,
FrontEndVersion->"13.0 for Microsoft Windows (64-bit) (February 4, 2022)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"08662d6d-11a2-4e1f-8f4a-13013d1a0acb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 391, 8, 58, "Text",ExpressionUUID->"20b6720c-7a31-4c9a-8b93-4189ea3e3045"],
Cell[952, 30, 2828, 85, 103, "Text",ExpressionUUID->"c51544c2-a96b-49e7-8350-6175146e58ff"],
Cell[CellGroupData[{
Cell[3805, 119, 371, 6, 56, "Subsubsection",ExpressionUUID->"45b57f31-c0e8-4f4e-987c-bfba9b77de46"],
Cell[4179, 127, 1815, 48, 70, "Input",ExpressionUUID->"a03d5039-952f-40a6-a48e-31955e5a737d"],
Cell[5997, 177, 984, 24, 70, "Text",ExpressionUUID->"1e579d05-d541-41fc-a96c-6c201494b05c"],
Cell[6984, 203, 1714, 41, 70, "Input",ExpressionUUID->"01a83763-db5e-47d5-bd8f-3fdd452d2d31"],
Cell[8701, 246, 2873, 74, 70, "Input",ExpressionUUID->"21314f03-6d8b-48f2-98f8-7bdd88b4b757"]
}, Closed]],
Cell[CellGroupData[{
Cell[11611, 325, 266, 4, 37, "Subsubsection",ExpressionUUID->"836e7cf4-8c8a-4c63-a4c3-4710da04118b"],
Cell[11880, 331, 350, 10, 35, "Text",ExpressionUUID->"1baf3b08-9762-4a1a-9f9f-3433d86c1ca2"],
Cell[CellGroupData[{
Cell[12255, 345, 8474, 257, 479, "Input",ExpressionUUID->"7178cfa6-7df5-4990-b80e-15bd14912f73"],
Cell[20732, 604, 611, 8, 32, "Output",ExpressionUUID->"d69fb37f-90fd-4ad9-992f-4c7423fe26a1"],
Cell[21346, 614, 611, 8, 32, "Output",ExpressionUUID->"23ad9fd3-7749-4b15-bcba-a9225ca20fab"],
Cell[21960, 624, 609, 8, 32, "Output",ExpressionUUID->"c2180851-e41b-4afd-8f00-77e1f334aabb"],
Cell[22572, 634, 609, 8, 32, "Output",ExpressionUUID->"23ab116a-9bae-46f6-92f0-d8735c0367c1"],
Cell[23184, 644, 611, 8, 32, "Output",ExpressionUUID->"6b5b03b6-28fa-45c7-966e-7c41e52f824f"],
Cell[23798, 654, 611, 8, 32, "Output",ExpressionUUID->"22ef30a2-2399-41b3-b185-663c897075d0"],
Cell[24412, 664, 611, 8, 32, "Output",ExpressionUUID->"fd004198-4ed1-4ac1-9aac-f5b66672ccbd"],
Cell[25026, 674, 611, 8, 32, "Output",ExpressionUUID->"d47c42bf-f616-448c-8269-77e12a2e70c0"],
Cell[25640, 684, 609, 8, 32, "Output",ExpressionUUID->"bc27bfb8-0c6c-4c46-b62a-2160a5b42588"],
Cell[26252, 694, 609, 8, 32, "Output",ExpressionUUID->"4aad2045-a1c3-4a75-8e6e-bcc7eb2de505"]
}, Open  ]],
Cell[26876, 705, 4805, 134, 186, "Input",ExpressionUUID->"fe18dae1-8306-4b45-a08f-afa3bfc27eee"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31718, 844, 1582, 47, 48, "Subsubsection",ExpressionUUID->"808eada7-da75-4479-8e94-4b9c1132b5d2"],
Cell[33303, 893, 3339, 65, 70, "Input",ExpressionUUID->"80a3fb0d-33bc-4f67-8ed6-4bb41635611c"],
Cell[36645, 960, 2072, 45, 70, "Input",ExpressionUUID->"6944cd97-fd15-46ad-a38e-deffdc35aaf9"],
Cell[CellGroupData[{
Cell[38742, 1009, 3849, 70, 70, "Input",ExpressionUUID->"b01cbb37-84b0-4cb3-9836-fa3fdfb411df"],
Cell[42594, 1081, 835, 11, 70, "Output",ExpressionUUID->"75dacc8a-2df9-4c9c-86f8-73576e8c38e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43466, 1097, 1061, 30, 70, "Input",ExpressionUUID->"086c659b-118d-404d-8515-b7cdb1193888"],
Cell[44530, 1129, 803, 17, 70, "Output",ExpressionUUID->"54522db7-bfae-465e-85fb-c7a3b4c26c07"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45370, 1151, 571, 12, 70, "Input",ExpressionUUID->"bd4d464c-5899-414d-bf76-f0054bb5a55b"],
Cell[45944, 1165, 891, 12, 70, "Output",ExpressionUUID->"d0c1f8cc-a99f-45e3-b3a0-db87297ef97f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[46884, 1183, 2000, 59, 70, "Subsubsection",ExpressionUUID->"5238d5d7-1ead-4124-adfa-863b0942c81a"],
Cell[48887, 1244, 1716, 43, 70, "Input",ExpressionUUID->"f0a973e1-35ce-4358-a44a-fa68e5fd9f0e"],
Cell[50606, 1289, 1368, 35, 70, "Input",ExpressionUUID->"973e1fd9-fe1d-4c57-8ebb-fd21b3cf78a8"],
Cell[CellGroupData[{
Cell[51999, 1328, 1724, 40, 70, "Input",ExpressionUUID->"6e3383f7-ef81-450a-89ce-cf75b9cc2f22"],
Cell[53726, 1370, 905, 12, 70, "Output",ExpressionUUID->"fe2f77d6-0dfb-4338-a845-f359d05aff4c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[54668, 1387, 1079, 30, 70, "Input",ExpressionUUID->"6854c123-7b82-4426-bbbf-cb98d0fbe670"],
Cell[55750, 1419, 854, 20, 70, "Output",ExpressionUUID->"0aa2d465-a094-4817-bac2-b4fd6aa09a28"]
}, Open  ]],
Cell[CellGroupData[{
Cell[56641, 1444, 363, 8, 70, "Input",ExpressionUUID->"59ac9b06-5451-400e-a2cc-037e2e2be4d8"],
Cell[57007, 1454, 718, 10, 70, "Output",ExpressionUUID->"2d93450a-9f9d-41b9-af65-f480b596140f"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[57774, 1470, 2091, 60, 70, "Subsubsection",ExpressionUUID->"55321dbb-b8e9-4298-a48a-00f2a08add67"],
Cell[59868, 1532, 1705, 44, 70, "Input",ExpressionUUID->"2c89b110-9045-4e2c-a92f-59d069c3b08b"],
Cell[61576, 1578, 1464, 37, 70, "Input",ExpressionUUID->"90a8e538-0afe-4ed7-9373-74c1c330224e"],
Cell[CellGroupData[{
Cell[63065, 1619, 1219, 30, 70, "Input",ExpressionUUID->"fc4e302f-2a04-4efc-973d-0db172ff2ff1"],
Cell[64287, 1651, 590, 8, 70, "Output",ExpressionUUID->"4e6bd64c-c653-4ee7-a874-7593a6d548e8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64914, 1664, 1074, 29, 70, "Input",ExpressionUUID->"e4c1360a-fb32-406b-a120-b3f36038d8a0"],
Cell[65991, 1695, 857, 20, 70, "Output",ExpressionUUID->"b3362146-1294-4b7b-a7dc-1e17e6ae9123"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66885, 1720, 414, 9, 70, "Input",ExpressionUUID->"5778369f-785d-4a21-8377-8ecfe072d3f2"],
Cell[67302, 1731, 784, 10, 70, "Output",ExpressionUUID->"4e515002-f2d3-42d2-9b15-6411a0635089"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[68135, 1747, 1943, 56, 43, "Subsubsection",ExpressionUUID->"6adc3808-d773-497d-9771-c55ce1155f0e"],
Cell[70081, 1805, 1911, 46, 70, "Input",ExpressionUUID->"21b72e09-b13d-4ed7-9135-df4db474511f"],
Cell[71995, 1853, 1377, 36, 70, "Input",ExpressionUUID->"6f208e56-6b42-4feb-ba02-8c7fc911c8c9"],
Cell[CellGroupData[{
Cell[73397, 1893, 3151, 62, 70, "Input",ExpressionUUID->"a27000d8-1972-4db4-8bdc-17dff0cf39ae"],
Cell[76551, 1957, 2538, 34, 70, "Output",ExpressionUUID->"2db93a8d-5ced-484d-870e-37bc67a978d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[79126, 1996, 1476, 37, 70, "Input",ExpressionUUID->"3cfc9bf7-a86e-4e20-a547-ae57a0e57f69"],
Cell[80605, 2035, 1226, 24, 70, "Output",ExpressionUUID->"e0ad846d-672c-4fd4-b284-792fb045b277"]
}, Open  ]],
Cell[CellGroupData[{
Cell[81868, 2064, 392, 9, 70, "Input",ExpressionUUID->"269286d3-2ffb-41c7-a55a-2bd8e5311546"],
Cell[82263, 2075, 550, 7, 70, "Output",ExpressionUUID->"eb8678af-b791-4aa6-8c54-1c9122b3ec17"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[82862, 2088, 171, 3, 37, "Subsubsection",ExpressionUUID->"cf442ecd-daf5-49f0-b3d2-6a62fdb43483"],
Cell[83036, 2093, 2443, 71, 70, "Text",ExpressionUUID->"a3fa4335-0002-49d7-815c-a836ff6d40e6"],
Cell[85482, 2166, 896, 23, 70, "Text",ExpressionUUID->"6d0ce918-7e6f-4a8c-8a1d-97124c46d649"],
Cell[86381, 2191, 1933, 52, 70, "Input",ExpressionUUID->"37fe3981-474b-4c05-8bd9-e9d64ebcf53e"]
}, Closed]],
Cell[CellGroupData[{
Cell[88351, 2248, 503, 9, 34, "Subsubsection",ExpressionUUID->"cdae643f-4f85-496e-8599-038bea5b737c"],
Cell[88857, 2259, 2162, 58, 70, "Input",ExpressionUUID->"49e451a7-8fe4-4502-bb6a-c60aa981ec90"],
Cell[CellGroupData[{
Cell[91044, 2321, 350, 6, 70, "Input",ExpressionUUID->"da5af4ac-af69-4020-8fbd-10b38bf499b4"],
Cell[91397, 2329, 1668, 38, 70, "Output",ExpressionUUID->"9ed31471-7c1e-45a8-89c1-4b9cfa82d222"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[93114, 2373, 370, 6, 37, "Subsubsection",ExpressionUUID->"d4e9a3af-58bf-4af3-b9a9-74e118ad9f15"],
Cell[CellGroupData[{
Cell[93509, 2383, 2186, 59, 70, "Input",ExpressionUUID->"d80348f3-b568-4f96-aa2f-0294626db052"],
Cell[95698, 2444, 1653, 40, 70, "Output",ExpressionUUID->"fd24b13c-4cbd-441e-a6b7-f5a607c36284"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[97400, 2490, 423, 6, 37, "Subsubsection",ExpressionUUID->"341cc509-c064-45da-be95-944533450093"],
Cell[CellGroupData[{
Cell[97848, 2500, 2541, 64, 70, "Input",ExpressionUUID->"c7f17ee5-3359-4628-b14d-731ab343533b"],
Cell[100392, 2566, 4187, 105, 70, "Output",ExpressionUUID->"a21b0bcf-d9f8-4c39-929f-bbd2e3a07864"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[104628, 2677, 451, 7, 37, "Subsubsection",ExpressionUUID->"29a9e875-1396-47ee-8599-92de96ddc85e"],
Cell[CellGroupData[{
Cell[105104, 2688, 2034, 56, 70, "Input",ExpressionUUID->"3a6a7ea4-fbff-4eb9-a351-ecbd14adbae7"],
Cell[107141, 2746, 1300, 30, 70, "Output",ExpressionUUID->"ce94d8e3-76e5-46ec-b885-4e8f13f4ab41"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[108490, 2782, 608, 18, 38, "Subsubsection",ExpressionUUID->"71172de6-f24b-4b4e-97a1-2cf6a42f87da"],
Cell[109101, 2802, 472, 8, 70, "Text",ExpressionUUID->"25abc33c-dedc-48d3-b625-44e2993d9589"],
Cell[109576, 2812, 807, 24, 70, "Text",ExpressionUUID->"4e862c48-48c6-4eb7-8738-b26244e28b87"],
Cell[110386, 2838, 2140, 63, 70, "Input",ExpressionUUID->"37beb77c-2c27-475f-a99d-19f73740cc8f"]
}, Closed]],
Cell[CellGroupData[{
Cell[112563, 2906, 157, 3, 37, "Subsubsection",ExpressionUUID->"e7fd2009-48d0-4479-9753-241e4a714e5d"],
Cell[CellGroupData[{
Cell[112745, 2913, 967, 23, 70, "Input",ExpressionUUID->"778f21a1-6bc3-4794-9045-c1b22aa65128"],
Cell[113715, 2938, 2314, 56, 70, "Output",ExpressionUUID->"81bc68ed-a2de-42fd-9041-7c4f515f5367"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[116078, 3000, 157, 3, 37, "Subsubsection",ExpressionUUID->"a2c98f98-c0f4-400a-8d20-4877ec751158"],
Cell[CellGroupData[{
Cell[116260, 3007, 1499, 36, 70, "Input",ExpressionUUID->"6cd717f0-f983-4bd8-8473-5bc211ba2171"],
Cell[117762, 3045, 2965, 74, 70, "Output",ExpressionUUID->"508b7a14-bd5e-4f0a-be97-25ecb28232e3"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[120776, 3125, 159, 3, 37, "Subsubsection",ExpressionUUID->"d85e438b-f074-4b90-91ff-002ae8ffde36"],
Cell[CellGroupData[{
Cell[120960, 3132, 1524, 37, 70, "Input",ExpressionUUID->"c465b98c-384b-4dad-ba2b-9a9220983cbe"],
Cell[122487, 3171, 6058, 147, 70, "Output",ExpressionUUID->"55ed3ac6-843a-4c5c-9110-4764d78b92ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[128582, 3323, 376, 7, 70, "Input",ExpressionUUID->"cf62bd58-34d7-4e37-b88a-2877f291633f"],
Cell[128961, 3332, 5336, 131, 70, "Output",ExpressionUUID->"95ad43bc-8ef3-478b-a7aa-4f950a44bb8d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[134346, 3469, 161, 3, 37, "Subsubsection",ExpressionUUID->"75bee576-8492-4864-b5f5-05b57f4ce021"],
Cell[CellGroupData[{
Cell[134532, 3476, 1368, 34, 70, "Input",ExpressionUUID->"e2178eb9-185b-4b12-810b-4d038b3d4b14"],
Cell[135903, 3512, 7149, 173, 70, "Output",ExpressionUUID->"3cab8111-4022-4496-98d1-2b0adbc811e0"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[143101, 3691, 382, 11, 37, "Subsubsection",ExpressionUUID->"965f382c-1b39-4b37-bb35-10c0567bb484"],
Cell[143486, 3704, 2774, 90, 70, "Text",ExpressionUUID->"8cdddf93-4a6f-4324-92da-a054e3b425a0"]
}, Closed]],
Cell[CellGroupData[{
Cell[146297, 3799, 356, 10, 37, "Subsubsection",ExpressionUUID->"c3ed13e6-f415-42e1-8085-b2b1e019eb9f"],
Cell[CellGroupData[{
Cell[146678, 3813, 541, 10, 70, "Input",ExpressionUUID->"851a28bb-bfad-4d21-9303-64cea9632f11"],
Cell[147222, 3825, 669, 9, 70, "Output",ExpressionUUID->"3851e627-e782-4b61-bcd2-3addf8a7d06c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147928, 3839, 660, 16, 70, "Input",ExpressionUUID->"549458ce-c07c-4cc8-8e92-bd828e60020f"],
Cell[148591, 3857, 583, 8, 70, "Output",ExpressionUUID->"52a63748-d148-48bf-bf10-e2dd32ace5ef"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149211, 3870, 958, 22, 70, "Input",ExpressionUUID->"a2c9ea98-1dc3-42d3-af15-1d5d11af71e0"],
Cell[150172, 3894, 2296, 56, 70, "Output",ExpressionUUID->"677c3267-b1dd-4657-8fe4-d651a213e56a"]
}, Open  ]],
Cell[152483, 3953, 435, 6, 70, "Input",ExpressionUUID->"42c5e0cf-6584-40c8-94a4-6fc65f6870a0"]
}, Closed]],
Cell[CellGroupData[{
Cell[152955, 3964, 409, 12, 37, "Subsubsection",ExpressionUUID->"6b2c0591-ea19-4cdb-997a-2262699f7c1e"],
Cell[CellGroupData[{
Cell[153389, 3980, 590, 11, 70, "Input",ExpressionUUID->"17cdf2b0-af70-41d6-8525-a9dc1ce4ab81"],
Cell[153982, 3993, 621, 8, 70, "Output",ExpressionUUID->"ec63eea8-532e-441c-bc25-68d067f88dc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[154640, 4006, 883, 20, 70, "Input",ExpressionUUID->"169c92da-2d40-44bf-873d-d447bf392676"],
Cell[155526, 4028, 1404, 33, 70, "Output",ExpressionUUID->"36576806-9c58-47fc-838d-0215f45202bc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[156967, 4066, 1070, 24, 70, "Input",ExpressionUUID->"b9354a5f-9386-4e82-a3b3-b45ffe708eea"],
Cell[158040, 4092, 2142, 54, 70, "Output",ExpressionUUID->"16d03fde-849b-494c-a01e-623259ef856d"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[160231, 4152, 434, 13, 37, "Subsubsection",ExpressionUUID->"db51ad52-0ef7-481e-98cb-2956fcccce8b"],
Cell[CellGroupData[{
Cell[160690, 4169, 646, 11, 70, "Input",ExpressionUUID->"e639e8fd-4268-4b5d-9701-8abb0528a3e5"],
Cell[161339, 4182, 998, 20, 70, "Output",ExpressionUUID->"1817f098-69bf-416a-beda-4b6c5363e9b4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162374, 4207, 953, 21, 70, "Input",ExpressionUUID->"4c056f20-7a10-4578-8a45-9deb748b5388"],
Cell[163330, 4230, 1322, 30, 70, "Output",ExpressionUUID->"6d179504-7cd5-46d1-9328-4400d4760086"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164689, 4265, 1101, 25, 70, "Input",ExpressionUUID->"5b1293fa-d716-419e-9919-b1bd52837d65"],
Cell[165793, 4292, 1969, 45, 70, "Output",ExpressionUUID->"896a36bf-a16e-47f9-9934-c05989188060"]
}, Open  ]]
}, Closed]],
Cell[CellGroupData[{
Cell[167811, 4343, 320, 10, 37, "Subsubsection",ExpressionUUID->"0f370553-cb07-4212-b108-1840a1b562e4"],
Cell[168134, 4355, 578, 14, 28, "Input",ExpressionUUID->"eacb975d-6d01-4468-8d50-1c75d238c17a"],
Cell[CellGroupData[{
Cell[168737, 4373, 307, 4, 28, "Input",ExpressionUUID->"2f504bb2-545e-446a-aaba-e43bd80f9ab4"],
Cell[169047, 4379, 6756, 149, 171, "Output",ExpressionUUID->"100b87cd-49f6-44f6-8d60-51456a4ec88d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175840, 4533, 233, 3, 28, "Input",ExpressionUUID->"1029f5ad-875a-4158-9bbf-0d0366612e62"],
Cell[176076, 4538, 3082, 74, 111, "Output",ExpressionUUID->"13fdb8d8-10df-43e7-a34f-2b34123ae8d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179195, 4617, 228, 3, 28, "Input",ExpressionUUID->"a9d53591-eb59-45c3-8ab8-073dd6162eb2"],
Cell[179426, 4622, 1938, 45, 73, "Output",ExpressionUUID->"edd61dda-51ce-41cc-aa3e-a6da93e92518"]
}, Open  ]],
Cell[CellGroupData[{
Cell[181401, 4672, 645, 17, 28, "Input",ExpressionUUID->"b6cc2df7-852a-4893-8288-a6c059ee358b"],
Cell[182049, 4691, 1780, 42, 76, "Output",ExpressionUUID->"0005a754-25f9-4164-b674-376218f2a884"]
}, Open  ]],
Cell[CellGroupData[{
Cell[183866, 4738, 230, 3, 28, "Input",ExpressionUUID->"dde29547-17d7-458a-99dc-792c0fdc187d"],
Cell[184099, 4743, 1348, 30, 52, "Output",ExpressionUUID->"8c9e5059-d2ad-4b7e-833d-598cccf7f19c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185484, 4778, 228, 3, 28, "Input",ExpressionUUID->"73fa4dca-e3eb-4045-88ab-803062be1d19"],
Cell[185715, 4783, 999, 20, 101, "Output",ExpressionUUID->"d1826fcb-ca87-4e69-b1ca-61399f1b4e33"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[186763, 4809, 234, 4, 45, "Subsubsection",ExpressionUUID->"ef675721-bb37-461e-bec5-08ba6c806b9f"],
Cell[187000, 4815, 602, 14, 28, "Input",ExpressionUUID->"e7f0aa68-616e-4503-ac28-10eae98a2ab9"],
Cell[CellGroupData[{
Cell[187627, 4833, 1837, 43, 67, "Input",ExpressionUUID->"5c2bfd6d-7f89-4e64-9bef-799d3773c0f6"],
Cell[189467, 4878, 3095, 67, 115, "Output",ExpressionUUID->"8388af45-d998-4d7f-9df7-e30f0d5b1c76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[192599, 4950, 1534, 39, 67, "Input",ExpressionUUID->"ea129596-ad5c-455c-95aa-5ffe5091054b"],
Cell[194136, 4991, 1862, 42, 91, "Output",ExpressionUUID->"d109c2f7-9c4e-4cb7-a3ac-bb5e9d9cef29"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196035, 5038, 1532, 39, 67, "Input",ExpressionUUID->"6083b20f-0bca-4020-9b52-f1be36213fd1"],
Cell[197570, 5079, 1262, 26, 54, "Output",ExpressionUUID->"25c25158-0884-4c58-9c6c-f8a1769ee80c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198869, 5110, 1916, 50, 67, "Input",ExpressionUUID->"445c5d71-ff84-4066-bca7-ac69f795d3f1"],
Cell[200788, 5162, 1091, 24, 55, "Output",ExpressionUUID->"99b5ed1a-47d4-4bc4-9227-17e63f3b8eca"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201916, 5191, 1696, 42, 67, "Input",ExpressionUUID->"333a59c6-9e79-4b1a-9606-8fb64b2bfeb9"],
Cell[203615, 5235, 907, 18, 51, "Output",ExpressionUUID->"2a57be7d-ac21-4194-a14b-28721b7a038a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204559, 5258, 1565, 40, 67, "Input",ExpressionUUID->"3056a5de-90ab-4116-83e4-d8c7a36f02d5"],
Cell[206127, 5300, 645, 11, 51, "Output",ExpressionUUID->"fd2fcd08-b23b-4305-8bf3-2ffe67700ff7"]
}, Open  ]],
Cell[206787, 5314, 206, 3, 58, "Input",ExpressionUUID->"6aa13f66-edcf-4fd0-8f84-a8948430a7f3"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)