einstein_tensor_Alcubierre.nb

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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    407305,      11461]
NotebookOptionsPosition[    392626,      11225]
NotebookOutlinePosition[    393057,      11242]
CellTagsIndexPosition[    393014,      11239]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{"n", "=", "4"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetSystemOptions", "[", 
   RowBox[{"\"\<SimplificationOptions\>\"", "\[Rule]", 
    RowBox[{"\"\<AutosimplifyTrigs\>\"", "\[Rule]", "False"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8225502126435184`*^9, 3.822550212957026*^9}, {
   3.8225582021176405`*^9, 3.8225582025405865`*^9}, {3.822560084231785*^9, 
   3.8225600844767866`*^9}, 3.82619492004191*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"0556f6f8-50b4-4d2f-8f5b-d21c83a070db"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.8225502136594596`*^9, 3.82255831500624*^9, 
  3.8225600851794853`*^9, 3.822561729838617*^9, 3.822729741542997*^9, 
  3.82316157249944*^9, 3.8233223038930645`*^9, 3.82375853383941*^9, 
  3.825671885485859*^9, 3.8261949254867134`*^9, 3.8267112694190817`*^9, 
  3.8274872013015785`*^9, 3.8274875043920727`*^9, 3.8278279928018804`*^9, 
  3.837684655745683*^9, 3.8383677988938704`*^9, 3.842345165557272*^9, 
  3.8423514645420804`*^9, 3.842428985814093*^9, 3.842506635471507*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"e8991ced-efda-4c45-8d99-b35b6c53f191"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NextPrime", "[", "n", "]"}]], "Input",
 CellChangeTimes->{{3.8383677993797584`*^9, 3.838367800250805*^9}, {
  3.8423451662530823`*^9, 3.8423451670742188`*^9}},
 NumberMarks->False,
 CellLabel->"In[4]:=",ExpressionUUID->"857927d9-33fa-4158-bfd5-72360cf20121"],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.823322304998135*^9, 3.8237585341802025`*^9, 
  3.8256718875044875`*^9, 3.826194927736476*^9, 3.8267112713874464`*^9, 
  3.827487202482727*^9, 3.827487506020663*^9, 3.8278279941190395`*^9, 
  3.8376846586040297`*^9, 3.838367800802435*^9, 3.8423514653130836`*^9, 
  3.842428986974039*^9, 3.8425066450360146`*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"f79f9e66-23e5-4dbd-8cd9-f618d59e573f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{
  "coord", ",", " ", "metric", ",", "inversemetric", ",", " ", "affine", ",", 
   "  ", "r", ",", " ", "\[Theta]", ",", " ", "\[Phi]", ",", " ", "t", ",", 
   " ", "A", ",", " ", "B", ",", " ", "\[Alpha]", ",", " ", "dA", ",", " ", 
   "dB", ",", " ", "dalpha", ",", " ", "kA", ",", " ", "kB", ",", " ", "k", 
   ",", " ", "utilda", ",", " ", "lambda"}], "]"}]], "Input",
 CellChangeTimes->{{3.822550531475859*^9, 3.8225505327342625`*^9}, {
  3.822550945768558*^9, 3.822550948901763*^9}, {3.822554481801818*^9, 
  3.8225545018220935`*^9}, {3.8225545354388156`*^9, 3.822554560643864*^9}, {
  3.827827994422444*^9, 3.827827999128535*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"a246c59f-c163-49c2-aef3-5c28b4853d3f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n", "=", "4"}]], "Input",
 CellChangeTimes->{{3.822550229988116*^9, 3.8225502303490176`*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"51931a6c-7af1-4645-bbfe-dfcfa9d4df48"],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.82255023074877*^9, 3.8225503402640843`*^9, 
  3.82255095257975*^9, 3.822554563136907*^9, 3.8225549220515914`*^9, 
  3.822558318455273*^9, 3.822561732745924*^9, 3.8231615752445126`*^9, 
  3.823162634724922*^9, 3.823758534516224*^9, 3.8256718906550064`*^9, 
  3.826194931511921*^9, 3.82671127228554*^9, 3.8274872038994474`*^9, 
  3.8274875079112306`*^9, 3.8278280007600904`*^9, 3.8376846608087454`*^9, 
  3.8383678026915445`*^9, 3.842345172824654*^9, 3.842351467352706*^9, 
  3.8424289886741123`*^9, 3.842506646492159*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"506c4d6b-5262-4684-b016-494fc0bc6be0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox[
  RowBox[{"\[IndentingNewLine]", 
   RowBox[{"coord", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]", ",", "t"}], "}"}]}]}],
  FontWeight->"Bold"]], "Input",
 CellChangeTimes->{
  3.8274875086258025`*^9, {3.838367803452386*^9, 3.8383678041624575`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"2a221e7d-00d2-4c4a-929c-678dbc3ed2ce"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"r", ",", "\[Theta]", ",", "\[Phi]", ",", "t"}], "}"}]], "Output",
 CellChangeTimes->{3.822550239274996*^9, 3.8225503415286856`*^9, 
  3.822550535915936*^9, 3.8225509550863276`*^9, 3.822554564593502*^9, 
  3.8225549235049005`*^9, 3.8225583195873384`*^9, 3.8225600917913013`*^9, 
  3.8225617342179375`*^9, 3.822729744940404*^9, 3.823161577971487*^9, 
  3.823162636340949*^9, 3.8233223116060705`*^9, 3.8237585346036196`*^9, 
  3.825671891810155*^9, 3.8261949325983934`*^9, 3.8267112728492837`*^9, 
  3.8274872046790075`*^9, 3.827487510242141*^9, 3.827828001616726*^9, 
  3.8376846620671873`*^9, 3.8383678064545183`*^9, 3.84234517368283*^9, 
  3.842351468092971*^9, 3.8424289895826697`*^9, 3.842506648278469*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"da8c528d-9388-45d6-a085-7da1901c25ed"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"metric", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], ",", "0", ",", "0", ",", "0"}], "}"}], 
    ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       SuperscriptBox["r", "2"]}], ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", 
      RowBox[{
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       SuperscriptBox["r", "2"], 
       RowBox[{
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "^", "2"}]}], ",", "0"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", 
      RowBox[{"-", 
       RowBox[{
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "^", "2"}]}]}], "}"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.8225503455142183`*^9, 3.822550451237522*^9}, {
  3.822550490078333*^9, 3.822550525727693*^9}, {3.8225509600644813`*^9, 
  3.8225509877021847`*^9}, {3.8225617164573355`*^9, 3.8225617238064775`*^9}},
 CellLabel->"In[8]:=",ExpressionUUID->"9c1ecd40-cec3-4a90-b003-c420a89f55aa"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], ",", "0", ",", "0", ",", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.822558320819292*^9, 3.8225600933630075`*^9, 
  3.822561737436967*^9, 3.822729746988887*^9, 3.823161579821502*^9, 
  3.8231626384779744`*^9, 3.823322313500864*^9, 3.8237585381903667`*^9, 
  3.825671892883456*^9, 3.826194934443757*^9, 3.8267112735175486`*^9, 
  3.827487205484232*^9, 3.8274875115248337`*^9, 3.8278280022776203`*^9, 
  3.837684663261216*^9, 3.838367807750613*^9, 3.8423451746285863`*^9, 
  3.842351469010341*^9, 3.8424289906937475`*^9, 3.8425066495486965`*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"11daf592-7e91-41b9-a84e-8036923fc2a0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], ",", "0", ",", "0", ",", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"B", "[", 
       RowBox[{"t", ",", "r"}], "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"B", "[", 
       RowBox[{"t", ",", "r"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["Sin", "2"], "[", "\[Theta]", "]"}]}], ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"t", ",", "r"}], "]"}], "2"]}]}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{{3.8225576226415176`*^9, 3.822557627873499*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"7a17eb39-6679-46f9-9f33-b0c37c245c2c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], ",", "0", ",", "0", ",", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"B", "[", 
       RowBox[{"t", ",", "r"}], "]"}]}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     RowBox[{
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"B", "[", 
       RowBox[{"t", ",", "r"}], "]"}], " ", 
      RowBox[{
       SuperscriptBox["Sin", "2"], "[", "\[Theta]", "]"}]}], ",", "0"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      SuperscriptBox[
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"t", ",", "r"}], "]"}], "2"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8225576299076777`*^9, 3.822558323739379*^9, 
  3.822560095075075*^9, 3.8231615844955425`*^9, 3.823162641545993*^9, 
  3.82375854133389*^9, 3.8256718937537775`*^9, 3.8261949354607534`*^9, 
  3.8267112746000547`*^9, 3.8274872064314585`*^9, 3.8274875123549957`*^9, 
  3.8278280051284666`*^9, 3.8376846646913357`*^9, 3.83836780859711*^9, 
  3.8423451756729693`*^9, 3.8423514699628525`*^9, 3.8424289915040073`*^9, 
  3.842506650485129*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"3a074b23-0f2e-449b-bb3c-7d4d09634913"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"metric", " ", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8225510021923256`*^9, 3.82255100590909*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"d648011d-8748-460e-bce0-5449a0f7f336"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "0", "0", "0"},
     {"0", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.822551006348421*^9, 3.82255456803712*^9, 
  3.8225549274939094`*^9, 3.822557632186871*^9, 3.8225583256836805`*^9, 
  3.8225600971910486`*^9, 3.8225617427272573`*^9, 3.8227297508322887`*^9, 
  3.8231615866835585`*^9, 3.8237585446856356`*^9, 3.825671897021923*^9, 
  3.826194936385664*^9, 3.8267112753530507`*^9, 3.827487208300269*^9, 
  3.827487513492708*^9, 3.827828005934447*^9, 3.837684665944332*^9, 
  3.8383678095200033`*^9, 3.842345192674545*^9, 3.842351470840499*^9, 
  3.8424289940926075`*^9, 3.842506651879836*^9},
 CellLabel->
  "Out[10]//MatrixForm=",ExpressionUUID->"acd41f65-a13d-48a3-bd70-\
aa6852dc501b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"simp", "[", "expr_", "]"}], " ", ":=", " ", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"expr", "/.", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"-", "2"}], 
         RowBox[{"kA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"-", "2"}], 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], 
         RowBox[{
          RowBox[{"\[Chi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "/", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"A", "[", 
              RowBox[{"r", ",", "t"}], "]"}], 
             RowBox[{"1", "/", "2"}]], 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r"}], "]"}], "\[Rule]", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
    ",", "Simplify"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"inversemetric", " ", "=", " ", 
  RowBox[{"Inverse", "[", "metric", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8225510161521072`*^9, 3.8225510193607626`*^9}, {
  3.8225512599513893`*^9, 3.822551271619973*^9}, {3.8225556078270063`*^9, 
  3.8225556123166094`*^9}, {3.82255761026804*^9, 3.8225576350535235`*^9}, {
  3.8231672908805676`*^9, 3.8231674629571095`*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"63ad1b62-7345-43bd-b586-cf65a1d8c511"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}]], ",", "0", ",", "0", ",", "0"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     FractionBox["1", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], ",", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", 
     RowBox[{"-", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.822551274975569*^9, 3.822554570223375*^9, 3.8225549297214766`*^9, 
   3.8225556141908226`*^9, {3.8225576132258935`*^9, 3.822557635671828*^9}, 
   3.8225583276838765`*^9, 3.822560098872055*^9, 3.822561746761649*^9, 
   3.822729753498893*^9, 3.823161589900625*^9, {3.8231624662510366`*^9, 
   3.823162469669063*^9}, 3.8231626449370327`*^9, 3.8231674688117356`*^9, 
   3.8233223179713936`*^9, 3.823758546838704*^9, 3.825671898532306*^9, 
   3.826194938210472*^9, 3.8267112762276764`*^9, 3.827487219130746*^9, 
   3.8274875147079473`*^9, 3.8278280069784546`*^9, 3.8376846681403513`*^9, 
   3.838367810334038*^9, 3.842345194084564*^9, 3.84235147234382*^9, 
   3.842428995354025*^9, 3.8425066529092607`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"db24fc75-3f46-4d33-ad4a-b92e52d48d0e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"inversemetric", " ", "//", " ", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8225512771905346`*^9, 3.8225512808953795`*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"6c3f5b23-6d8d-4a9b-8646-c6f365fc7ba3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox["1", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "0", "0", "0"},
     {"0", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "0", "0"},
     {"0", "0", 
      FractionBox["1", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "0"},
     {"0", "0", "0", 
      RowBox[{"-", 
       FractionBox["1", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.822558330980897*^9, 3.8225601031718817`*^9, 
  3.8225617510706873`*^9, 3.82316159321362*^9, 3.823758551950721*^9, 
  3.82567190035343*^9, 3.826194939783172*^9, 3.8267112770914316`*^9, 
  3.827487220695473*^9, 3.8274875154990835`*^9, 3.827828007848071*^9, 
  3.837684669383215*^9, 3.8383678110806837`*^9, 3.8423451947545013`*^9, 
  3.8423514735631533`*^9, 3.8424289964641275`*^9, 3.8425066536692*^9},
 CellLabel->
  "Out[13]//MatrixForm=",ExpressionUUID->"6d24e63b-a183-4c90-a220-\
2f7d0e328dad"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"affine", ":=", 
   RowBox[{"affine", "=", 
    RowBox[{"simp", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"inversemetric", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "s"}], "]"}], "]"}], ")"}], "*", 
           "\[IndentingNewLine]", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"metric", "[", 
                RowBox[{"[", 
                 RowBox[{"s", ",", "j"}], "]"}], "]"}], ",", 
               RowBox[{"coord", "[", 
                RowBox[{"[", "k", "]"}], "]"}]}], " ", "]"}], "+", 
             "\[IndentingNewLine]", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"metric", "[", 
                RowBox[{"[", 
                 RowBox[{"s", ",", "k"}], "]"}], "]"}], ",", 
               RowBox[{"coord", "[", 
                RowBox[{"[", "j", "]"}], "]"}]}], " ", "]"}], "-", 
             RowBox[{"D", "[", 
              RowBox[{
               RowBox[{"metric", "[", 
                RowBox[{"[", 
                 RowBox[{"j", ",", "k"}], "]"}], "]"}], ",", 
               RowBox[{"coord", "[", 
                RowBox[{"[", "s", "]"}], "]"}]}], " ", "]"}]}], ")"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", 
     "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.8225518612257624`*^9, 3.8225518633794055`*^9}, {
   3.822557499695302*^9, 3.822557500150223*^9}, {3.8225583693424807`*^9, 
   3.822558370064481*^9}, {3.822558505618849*^9, 3.822558507229227*^9}, {
   3.8225601301201572`*^9, 3.8225601368381753`*^9}, {3.8225629459514666`*^9, 
   3.8225629529496193`*^9}, {3.827487224621319*^9, 3.827487228485997*^9}, {
   3.8274874945264325`*^9, 3.8274874973168645`*^9}, 3.8383678115974464`*^9},
 CellLabel->"In[14]:=",ExpressionUUID->"62ed938d-acfe-4032-9eab-99c1627fc1b2"],

Cell[BoxData[
 RowBox[{"listaffine", ":=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"UnsameQ", "[", 
       RowBox[{
        RowBox[{"affine", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], ",", "0"}], "]"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"ToString", "[", 
         RowBox[{"\[CapitalGamma]", "[", 
          RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], ",", " ", 
        "\"\<=\>\"", ",", 
        RowBox[{"affine", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}]}], "}"}]}], "]"}], 
    " ", ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "j"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822554837432596*^9, 3.8225548393828897`*^9}, {
   3.8225550105782976`*^9, 3.8225550129413395`*^9}, 3.8231615357771273`*^9, {
   3.8231615674053974`*^9, 3.8231615676033955`*^9}, {3.823161620782916*^9, 
   3.8231616506416783`*^9}, {3.8231616808509045`*^9, 3.8231616830729275`*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"b443b254-5aad-476f-8e7b-f1fac1261c68"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TableForm", "[", 
  RowBox[{
   RowBox[{"Partition", "[", 
    RowBox[{
     RowBox[{"DeleteCases", "[", 
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"listaffine", " ", "//", " ", "Normal"}], "]"}], ",", 
       "Null"}], "]"}], ",", "3"}], "]"}], ",", 
   RowBox[{"TableSpacing", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8225550276139917`*^9, 3.8225550312500534`*^9}, {
  3.822557507943033*^9, 3.822557523843999*^9}, {3.8231616715618234`*^9, 
  3.823161693023012*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"ad41cbd9-29d1-443a-bfd2-4e5768094c58"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\[CapitalGamma][1, 1, 1]\"\>", "\<\"=\"\>", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      RowBox[{"dA", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]},
    {"\<\"\[CapitalGamma][1, 2, 2]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], 
      RowBox[{"2", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]]},
    {"\<\"\[CapitalGamma][1, 3, 3]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
      RowBox[{"2", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]]},
    {"\<\"\[CapitalGamma][1, 4, 1]\"\>", "\<\"=\"\>", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], " ", 
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]},
    {"\<\"\[CapitalGamma][1, 4, 4]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], 
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}]]},
    {"\<\"\[CapitalGamma][2, 2, 1]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]]},
    {"\<\"\[CapitalGamma][2, 3, 3]\"\>", "\<\"=\"\>", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"Cos", "[", "\[Theta]", "]"}]}], " ", 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]}]},
    {"\<\"\[CapitalGamma][2, 4, 2]\"\>", "\<\"=\"\>", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], " ", 
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]},
    {"\<\"\[CapitalGamma][3, 3, 1]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]]},
    {"\<\"\[CapitalGamma][3, 3, 2]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{"Cos", "[", "\[Theta]", "]"}], 
      RowBox[{"Sin", "[", "\[Theta]", "]"}]]},
    {"\<\"\[CapitalGamma][3, 4, 3]\"\>", "\<\"=\"\>", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], " ", 
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]},
    {"\<\"\[CapitalGamma][4, 1, 1]\"\>", "\<\"=\"\>", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"\[CapitalGamma][4, 2, 2]\"\>", "\<\"=\"\>", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"\[CapitalGamma][4, 3, 3]\"\>", "\<\"=\"\>", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"\[CapitalGamma][4, 4, 1]\"\>", "\<\"=\"\>", 
     RowBox[{"dalpha", "[", 
      RowBox[{"r", ",", "t"}], "]"}]},
    {"\<\"\[CapitalGamma][4, 4, 4]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[Alpha]", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}], 
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}]]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[1.4]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.8]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableSpacing -> {2, 2}]]]], "Output",
 CellChangeTimes->{
  3.822557524411354*^9, 3.8225583431660447`*^9, 3.8225583757679806`*^9, 
   3.8225585112802196`*^9, {3.822560117582055*^9, 3.822560144970969*^9}, 
   3.8225617659608927`*^9, 3.8225629587423797`*^9, 3.822729763700697*^9, {
   3.8231615424111843`*^9, 3.823161569639449*^9}, {3.8231616374070253`*^9, 
   3.8231616531826687`*^9}, {3.8231616860169516`*^9, 3.8231616936870203`*^9}, 
   3.823322327254593*^9, 3.8237585589988146`*^9, 3.8256719042847204`*^9, 
   3.8261949427507925`*^9, 3.826711280141263*^9, 3.827487236667412*^9, 
   3.8274875180032206`*^9, 3.827828010332057*^9, 3.8376846725988407`*^9, 
   3.8383678139206495`*^9, 3.842345198902651*^9, 3.842351476903042*^9, 
   3.842429000723922*^9, 3.842506658316944*^9},
 CellLabel->
  "Out[16]//TableForm=",ExpressionUUID->"05a78ccb-8590-4df4-b492-\
eb29461517b8"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"riemann", ":=", 
  RowBox[{"riemann", "=", 
   RowBox[{"simp", "[", 
    RowBox[{"Table", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"affine", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j", ",", "l"}], "]"}], "]"}], ",", 
         RowBox[{"coord", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}], " ", "]"}], "-", 
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"affine", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j", ",", "k"}], "]"}], "]"}], ",", 
         RowBox[{"coord", "[", 
          RowBox[{"[", "l", "]"}], "]"}]}], " ", "]"}], "+", 
       "\[IndentingNewLine]", 
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"affine", "[", 
            RowBox[{"[", 
             RowBox[{"s", ",", "j", ",", "l"}], "]"}], "]"}], " ", 
           RowBox[{"affine", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "k", ",", "s"}], "]"}], "]"}]}], "-", 
          RowBox[{
           RowBox[{"affine", "[", 
            RowBox[{"[", 
             RowBox[{"s", ",", "j", ",", "k"}], "]"}], "]"}], " ", 
           RowBox[{"affine", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "l", ",", "s"}], "]"}], "]"}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"s", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"l", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.822555516473815*^9, 3.822555516802781*^9}, {
  3.8225575417538495`*^9, 3.8225575441885767`*^9}, {3.8225629928146143`*^9, 
  3.8225629968906517`*^9}, {3.8274872451507874`*^9, 3.8274872483029175`*^9}, {
  3.827487484725543*^9, 3.8274874866826277`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"132a62f8-6399-43a4-8925-b3a987896c62"],

Cell[BoxData[
 RowBox[{"listriemann", ":=", 
  RowBox[{"simp", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"UnsameQ", "[", 
        RowBox[{
         RowBox[{"riemann", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
         "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"R", "[", 
           RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}], "]"}], ",", 
         RowBox[{"riemann", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j", ",", "k", ",", "l"}], "]"}], "]"}]}], 
        "}"}]}], "]"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "1", ",", 
       RowBox[{"k", "-", "1"}]}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.82256016704176*^9, 3.8225601719857564`*^9}, {
  3.8225630038940067`*^9, 3.822563004568958*^9}, {3.8274872526842175`*^9, 
  3.8274872549524136`*^9}, {3.82748747987669*^9, 3.827487482302003*^9}},
 CellLabel->"In[18]:=",ExpressionUUID->"7c282a9c-3797-4341-a7d5-770dce001f03"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TableForm", "[", 
   RowBox[{
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"DeleteCases", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", "listriemann", "]"}], ",", "Null"}], "]"}], 
      ",", "2"}], "]"}], ",", 
    RowBox[{"TableSpacing", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}], " ", "//", " ", 
  "simp"}]], "Input",
 CellChangeTimes->{{3.8225619123468757`*^9, 3.8225619160349092`*^9}, {
  3.827487265189513*^9, 3.827487266537714*^9}, {3.8274874762511396`*^9, 
  3.827487477991232*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"e26e6889-29ff-4652-8f60-35908023530d"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"R[1, 1, 4, 1]\"\>", 
     RowBox[{
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{
        SuperscriptBox["dA", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kA", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]},
    {"\<\"R[1, 2, 2, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"R[1, 2, 4, 2]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"R[1, 3, 3, 1]\"\>", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"R[1, 3, 3, 2]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]]}]},
    {"\<\"R[1, 3, 4, 3]\"\>", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"R[1, 4, 4, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kA", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["dalpha", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"R[2, 1, 2, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{
        SuperscriptBox["r", "3"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "2"], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]], "+", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"R[2, 1, 4, 2]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"R[2, 2, 4, 1]\"\>", 
     RowBox[{
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]},
    {"\<\"R[2, 3, 3, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]]}]},
    {"\<\"R[2, 3, 3, 2]\"\>", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"R[2, 4, 2, 1]\"\>", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
         RowBox[{"kA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]},
    {"\<\"R[2, 4, 4, 2]\"\>", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]},
    {"\<\"R[3, 1, 3, 1]\"\>", 
     RowBox[{
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], 
       RowBox[{
        SuperscriptBox["r", "3"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], "2"], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "4"]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]]}]},
    {"\<\"R[3, 1, 3, 2]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "3"]}]]}]},
    {"\<\"R[3, 1, 4, 3]\"\>", 
     RowBox[{
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]]}]},
    {"\<\"R[3, 2, 3, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "3"]}]]}]},
    {"\<\"R[3, 2, 3, 2]\"\>", 
     RowBox[{"1", "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]]}]},
    {"\<\"R[3, 3, 2, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "3"]}]]}]},
    {"\<\"R[3, 3, 4, 1]\"\>", 
     RowBox[{
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", "r", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]},
    {"\<\"R[3, 4, 3, 1]\"\>", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"kA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "+", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]},
    {"\<\"R[3, 4, 4, 3]\"\>", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "-", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]},
    {"\<\"R[4, 1, 4, 1]\"\>", 
     RowBox[{
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"dA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "-", 
      SuperscriptBox[
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["kA", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "-", 
      RowBox[{
       SuperscriptBox["dalpha", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]},
    {"\<\"R[4, 2, 2, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"R[4, 2, 4, 2]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"R[4, 3, 3, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"R[4, 3, 4, 3]\"\>", 
     RowBox[{
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"R[4, 4, 4, 1]\"\>", 
     RowBox[{
      RowBox[{
       SuperscriptBox["dalpha", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Alpha]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[Alpha]", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[1.4]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.8]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableSpacing -> {2, 2}]]]], "Output",
 CellChangeTimes->{3.8383678177480974`*^9, 3.8423452061537886`*^9, 
  3.8423514805428233`*^9, 3.8424290045545626`*^9, 3.8425066608097806`*^9},
 CellLabel->
  "Out[19]//TableForm=",ExpressionUUID->"ffde46b8-d635-4788-bbcf-\
30b12941c009"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.837685661976832*^9, 3.842345221364004*^9},
 CellLabel->"In[20]:=",ExpressionUUID->"7d7697ad-29b4-4986-a0b1-b80a8bb3d475"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8423452288049035`*^9, 3.8423452308037357`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"048c2ddf-e277-4b12-940d-ec3bb4925074"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ricci", ":=", 
    RowBox[{"ricci", "=", 
     RowBox[{"simp", "[", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Sum", "[", 
         RowBox[{
          RowBox[{"riemann", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "j", ",", "i", ",", "l"}], 
           "\[RightDoubleBracket]"}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"l", ",", "1", ",", "n"}], "}"}]}], "]"}], " ", "]"}]}]}], 
   ";"}], "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"scalar", "=", 
    RowBox[{"simp", "[", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], 
        RowBox[{"ricci", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"einstein", ":=", 
   RowBox[{"einstein", "=", 
    RowBox[{"simp", "[", 
     RowBox[{"ricci", "-", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "/", "2"}], ")"}], "scalar", "*", "metric"}]}], 
     "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8225585362264223`*^9, 3.822558546081134*^9}, {
  3.822562923891265*^9, 3.82256292434027*^9}, {3.822563018709314*^9, 
  3.822563024521863*^9}, {3.8230881813386784`*^9, 3.8230881946532784`*^9}, {
  3.827487280938094*^9, 3.8274872928714895`*^9}, {3.8274874589261656`*^9, 
  3.8274874692246513`*^9}, {3.827828017243428*^9, 3.8278280256040077`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"3d098afe-7cd4-473c-8a85-0255279554e6"],

Cell[BoxData[
 RowBox[{"listeinstein", ":=", 
  RowBox[{"simp", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"UnsameQ", "[", 
        RowBox[{
         RowBox[{"einstein", "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"G", "[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}], ",", 
         RowBox[{"einstein", "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}]}], "}"}]}], "]"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "1", ",", "j"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8225630304734235`*^9, 3.822563033914192*^9}, {
  3.8274873320705247`*^9, 3.8274873346189213`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"67288251-cbf6-4e8d-9b92-5adde4be58d7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"TableForm", "[", 
   RowBox[{
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"DeleteCases", "[", 
       RowBox[{
        RowBox[{"Flatten", "[", "listeinstein", "]"}], ",", "Null"}], "]"}], 
      ",", "2"}], "]"}], ",", 
    RowBox[{"TableSpacing", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}], " ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8225557511697316`*^9, 3.8225557551428685`*^9}, {
  3.822561951382934*^9, 3.8225619527379456`*^9}, {3.822563036692219*^9, 
  3.8225630677046967`*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"ca10f3db-7b40-48ac-b055-2fd9bf1a171c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"G[1, 1]\"\>", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"]}]], "+", 
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]]}], "-", 
         RowBox[{"3", " ", 
          SuperscriptBox[
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
         FractionBox[
          RowBox[{"2", " ", 
           RowBox[{
            SuperscriptBox["kB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}]}]},
    {"\<\"G[2, 1]\"\>", "0"},
    {"\<\"G[2, 2]\"\>", 
     FractionBox[
      RowBox[{"r", " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "r", " ", 
          SuperscriptBox[
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"2", " ", "r", " ", 
             RowBox[{"dalpha", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"kA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kA", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["dalpha", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"2", " ", "r", " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["dB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
      RowBox[{"4", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]]},
    {"\<\"G[3, 3]\"\>", 
     FractionBox[
      RowBox[{"r", " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", "r", " ", 
          SuperscriptBox[
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"r", " ", 
          SuperscriptBox[
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"2", " ", "r", " ", 
             RowBox[{"dalpha", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"kA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kA", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["dalpha", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"2", " ", "r", " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["dB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
      RowBox[{"4", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]]},
    {"\<\"G[4, 1]\"\>", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
         RowBox[{"kA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "r"]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "r"], "+", 
      RowBox[{
       SuperscriptBox["dalpha", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{
          SuperscriptBox["\[Alpha]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox[
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         RowBox[{
          SuperscriptBox["kB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{
         SuperscriptBox["\[Alpha]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"G[4, 4]\"\>", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"B", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             RowBox[{"kB", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"kA", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], "+", 
               RowBox[{"kB", "[", 
                RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "4"}], "-", 
            RowBox[{"12", " ", "r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "-", 
            RowBox[{"3", " ", 
             SuperscriptBox["r", "2"], " ", 
             SuperscriptBox[
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
            RowBox[{"2", " ", "r", " ", 
             RowBox[{"dA", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", 
               RowBox[{"r", " ", 
                RowBox[{"dB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
            RowBox[{"4", " ", 
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["dB", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[1.4]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.8]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableSpacing -> {2, 2}]]]], "Output",
 CellChangeTimes->{
  3.822555687890727*^9, 3.822555755991357*^9, 3.82255827472801*^9, 
   3.8225583979480333`*^9, 3.8225585513132315`*^9, 3.8225601960771747`*^9, 
   3.822561792302414*^9, 3.8225619535299487`*^9, {3.8225630386262865`*^9, 
   3.822563068821782*^9}, 3.8227297967226877`*^9, 3.8231617698892937`*^9, 
   3.823758578648858*^9, 3.8256719094518213`*^9, 3.8261949490470643`*^9, 
   3.826711288166071*^9, 3.827487523154265*^9, 3.8278280349668694`*^9, 
   3.8376846805872326`*^9, 3.8383678538887415`*^9, 3.8423452401423097`*^9, 
   3.8423514893928967`*^9, 3.8425066653700933`*^9},
 CellLabel->
  "Out[26]//TableForm=",ExpressionUUID->"b3e63bad-61db-4df5-be01-\
52fd0dbe8f6b"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"einsteinUD", ":=", 
   RowBox[{"einsteinUD", "=", 
    RowBox[{"simp", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "k"}], "\[RightDoubleBracket]"}], " ", 
          RowBox[{"einstein", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "j"}], "\[RightDoubleBracket]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.822558657099842*^9, 3.822558658351818*^9}, {
  3.822563085480167*^9, 3.8225630859051747`*^9}, {3.82748737187461*^9, 
  3.8274873739355717`*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"e3d2cc79-2f33-455e-837c-dd4e81cc9691"],

Cell[BoxData[
 RowBox[{"listeinsteinUD", ":=", 
  RowBox[{"simp", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"UnsameQ", "[", 
        RowBox[{
         RowBox[{"einsteinUD", "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"G", "[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}], ",", " ", "\"\<=\>\"", ",", 
         RowBox[{"einsteinUD", "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}]}], "}"}]}], "]"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "1", ",", "j"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.82255585240762*^9, 3.822555855628391*^9}, {
  3.822563089559204*^9, 3.822563092469236*^9}, {3.823161776163861*^9, 
  3.8231617780439043`*^9}, {3.8231676936609383`*^9, 3.8231676937189064`*^9}, {
  3.8274873759242744`*^9, 3.8274873776750994`*^9}},
 CellLabel->"In[28]:=",ExpressionUUID->"fab6702d-5056-47b0-ae0a-ace3ecb6ba0f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"TableForm", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"listeinsteinUD", " ", "//", " ", "Normal"}], "]"}], ",", 
         "Null"}], "]"}], ",", "3"}], "]"}], ",", 
     RowBox[{"TableSpacing", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}], "]"}], " ", "//", " ", 
  "simp"}]], "Input",
 CellChangeTimes->{{3.822555866915075*^9, 3.822555867014497*^9}, {
  3.822560391720634*^9, 3.8225603962728553`*^9}, {3.8225605090342393`*^9, 
  3.822560510804294*^9}, {3.822560946965618*^9, 3.822560950378186*^9}, {
  3.822561963421138*^9, 3.822561966250165*^9}, {3.822563099785731*^9, 
  3.8225631058299365`*^9}, {3.8225635448873034`*^9, 3.8225635707755547`*^9}, {
  3.8225652661168504`*^9, 3.822565294469612*^9}, {3.823161739602771*^9, 
  3.8231617422508*^9}, {3.8231617810654097`*^9, 3.823161781150408*^9}, {
  3.8274873901292543`*^9, 3.8274873935310526`*^9}, {3.827487434436212*^9, 
  3.8274874350897884`*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"ec207b69-6016-4603-9812-73dcc1726389"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"G[1, 1]\"\>", "\<\"=\"\>", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "-", 
      RowBox[{"3", " ", 
       SuperscriptBox[
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}]},
    {"\<\"G[2, 1]\"\>", "\<\"=\"\>", "0"},
    {"\<\"G[2, 2]\"\>", "\<\"=\"\>", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["kA", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"4", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dalpha", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"4", " ", "r", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"G[3, 3]\"\>", "\<\"=\"\>", 
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox[
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox[
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{
         SuperscriptBox["kA", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "+", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      FractionBox[
       RowBox[{
        RowBox[{"4", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"4", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
        RowBox[{
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dalpha", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], 
       RowBox[{"4", " ", "r", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"G[4, 1]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{"r", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["dalpha", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Alpha]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"\[Alpha]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["kB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["\[Alpha]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], 
      RowBox[{"r", " ", 
       SuperscriptBox[
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "3"]}]]},
    {"\<\"G[4, 4]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       RowBox[{"-", 
        FractionBox["4", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], "+", 
       FractionBox[
        RowBox[{"4", "+", 
         RowBox[{"12", " ", "r", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"3", " ", 
          SuperscriptBox["r", "2"], " ", 
          SuperscriptBox[
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
         RowBox[{"2", " ", "r", " ", 
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["r", "2"], " ", 
          RowBox[{
           SuperscriptBox["dB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]]}], 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"]}]]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[1.4]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.8]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableSpacing -> {2, 2}]]]], "Output",
 CellChangeTimes->{
  3.8225558677251034`*^9, 3.8225584156891437`*^9, 3.822558573009058*^9, 
   3.8225586665050564`*^9, 3.8225602090419226`*^9, 3.822560396899689*^9, 
   3.822560511308253*^9, 3.8225609513174725`*^9, 3.8225618025321503`*^9, 
   3.822561966732191*^9, 3.822563106232986*^9, {3.822563541834296*^9, 
   3.822563573891618*^9}, {3.8225652680959215`*^9, 3.822565296761691*^9}, 
   3.822729806901608*^9, {3.8231617829984345`*^9, 3.8231617879684772`*^9}, 
   3.8231623070611715`*^9, 3.82316266325045*^9, 3.8231676978489766`*^9, 
   3.8233223474329424`*^9, 3.8237585859993057`*^9, 3.8256719113837957`*^9, 
   3.8261949524063253`*^9, 3.826711290046422*^9, 3.827487525383102*^9, 
   3.8278280368603*^9, 3.8376846837985225`*^9, 3.8383678570280027`*^9, 
   3.8423452428641*^9, 3.8423514928932133`*^9, 3.842506667737092*^9},
 CellLabel->
  "Out[29]//TableForm=",ExpressionUUID->"1ff8ce31-7f9d-47cf-bcee-\
38a92fd9a278"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"metric", "*", "inversemetric"}]], "Input",
 CellChangeTimes->{{3.8225574345518208`*^9, 3.8225574377388487`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"2671c7e3-b85f-4a9b-9284-65051f2954f6"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.8225574384918656`*^9, 3.8225587565194197`*^9, 
  3.822560214075945*^9, 3.8227298189723587`*^9, 3.823162310898196*^9, 
  3.823758589593525*^9, 3.825671912000667*^9, 3.826194953006817*^9, 
  3.8267112908328753`*^9, 3.8274875262610116`*^9, 3.827828037421095*^9, 
  3.837684684821021*^9, 3.8383678580977287`*^9, 3.8423452440739527`*^9, 
  3.842351493807415*^9, 3.8425066684210324`*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"b8c080c7-c177-49af-9e02-0b41df649188"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.82255766693962*^9, 3.8225576905290413`*^9}, {
  3.8225587646812644`*^9, 3.82255876633127*^9}},
 CellLabel->"In[31]:=",ExpressionUUID->"3503fef9-caba-4869-ad13-bfb6e0fc5ee7"],

Cell[BoxData[
 RowBox[{"checkeq", ":=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["dB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}], "+", 
      RowBox[{
       RowBox[{"3", "/", "4"}], 
       SuperscriptBox[
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"dA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "/", "r"}], "\[IndentingNewLine]", 
      "+", 
      RowBox[{"3", "*", 
       RowBox[{
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "/", "r"}]}], "-", 
      RowBox[{
       RowBox[{"1", "/", "2"}], "*", 
       RowBox[{"dA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"1", "/", 
        RowBox[{"r", "^", "2"}]}], "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "/", 
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], "-", 
   RowBox[{"2", "*", 
    RowBox[{"kA", "[", 
     RowBox[{"r", ",", "t"}], "]"}], 
    RowBox[{"kB", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "-", 
   RowBox[{
    RowBox[{"kB", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "^", "2", " "}]}]}]], "Input",
 CellChangeTimes->{{3.822561567202673*^9, 3.822561590555444*^9}, {
   3.822561658120363*^9, 3.822561670401494*^9}, {3.822562110603898*^9, 
   3.822562444322177*^9}, {3.822563912769286*^9, 3.8225640837786627`*^9}, {
   3.8225641535064793`*^9, 3.82256421799531*^9}, {3.822564249681712*^9, 
   3.822564264511941*^9}, {3.8225642994629917`*^9, 3.822564371509503*^9}, {
   3.82256440369023*^9, 3.822564426947878*^9}, 3.822564559432923*^9, {
   3.8225646509929457`*^9, 3.8225646779517717`*^9}, 3.8225699558181252`*^9, {
   3.8231618263513603`*^9, 3.8231618308223753`*^9}, {3.8231618642319355`*^9, 
   3.8231618656534605`*^9}, {3.8231619267286496`*^9, 3.823161969390132*^9}, {
   3.8231620329504166`*^9, 3.823162074510833*^9}, {3.823162167821004*^9, 
   3.8231621781368523`*^9}, {3.8231622199575844`*^9, 3.823162223356614*^9}, {
   3.8231622556353135`*^9, 3.82316225745286*^9}, {3.8231624938302927`*^9, 
   3.82316254112885*^9}, {3.8231627083831887`*^9, 3.823162721664714*^9}, 
   3.823162930326293*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"e5fc8f32-fbc7-4b03-9870-6dd53047a085"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"einsteinUD", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "4"}], "]"}], "]"}], "-", "checkeq"}], "  ", "//", " ",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.822564120083421*^9, 3.8225641306533566`*^9}, {
   3.8225660853936987`*^9, 3.8225660889731164`*^9}, 3.8225699543030944`*^9},
 CellLabel->"In[33]:=",ExpressionUUID->"aef3f47f-9e9e-44b8-bd75-2b2b67a3cf2d"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.822564684540539*^9, 3.8225659312184267`*^9, 3.8225660906658*^9, 
   3.8225698586871085`*^9, 3.823161810376238*^9, 3.823162316715066*^9, {
   3.823162561757984*^9, 3.8231625656860266`*^9}, {3.823162713684593*^9, 
   3.8231627250117116`*^9}, 3.8233223527692337`*^9, 3.8237585952135797`*^9, 
   3.8256719167015066`*^9, 3.826194955965084*^9, 3.826711293403611*^9, 
   3.827487540989849*^9, 3.8278280392771025`*^9, 3.8383678647864203`*^9, 
   3.8423457455402822`*^9, 3.8423514984928412`*^9, 3.8425066708925886`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"f983361d-184c-435e-8d18-798c1d577262"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"checkeq3", ":=", 
  RowBox[{
   RowBox[{"2", "/", 
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{
       SuperscriptBox["kB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"1", "/", "r"}], "+", 
        RowBox[{
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "/", "2"}]}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "-", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.8225661283848*^9, 3.822566234047823*^9}, {
   3.823161880522587*^9, 3.8231618811905947`*^9}, {3.823162734429874*^9, 
   3.8231627410442643`*^9}, 3.8231629267712913`*^9},
 CellLabel->"In[34]:=",ExpressionUUID->"c8ad9b55-49a5-4a7e-b1fc-fc1a7cdf924e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"einsteinUD", "[", 
     RowBox[{"[", 
      RowBox[{"4", ",", "1"}], "]"}], "]"}], "-", "checkeq3"}], "  ", "/.", 
   " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "t"], 
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "\[Rule]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", 
           RowBox[{"r", ",", "t"}]], 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "/", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "-", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "r"], 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "*", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "t"], 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "/", 
          SuperscriptBox[
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}]}]}], ")"}]}], ",", " ", 
     RowBox[{
      RowBox[{"dalpha", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "r"], 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "/", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]}], "}"}]}], "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.82256626533157*^9, 3.8225663339234695`*^9}, {
   3.8225687874049387`*^9, 3.822568832588084*^9}, {3.822569990535777*^9, 
   3.8225699934806213`*^9}, {3.8225700383994393`*^9, 3.822570039329671*^9}, {
   3.823162760021162*^9, 3.823162781600754*^9}, {3.8232590148600073`*^9, 
   3.8232590555461135`*^9}, {3.823259086878936*^9, 3.823259251731287*^9}, {
   3.823259292559148*^9, 3.8232594203186007`*^9}, {3.8232594947660894`*^9, 
   3.823259500943384*^9}, 3.8232598621776075`*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"66b5ad2c-0c27-44c2-ae91-8122b27f9ad7"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.823259365347596*^9, 3.8232598458962812`*^9, 
  3.823259893865492*^9, 3.8233223559241285`*^9, 3.8237585987245665`*^9, 
  3.825671918762616*^9, 3.826194962692445*^9, 3.826711294981526*^9, 
  3.8274875434714484`*^9, 3.827828041006571*^9, 3.838367866653539*^9, 
  3.842345746847975*^9, 3.8423515009506865`*^9, 3.8425066724225903`*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"b5e5b3c0-d891-4d5a-9d4a-a08c0a864dc5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"checkeq4", ":=", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["kA", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], ")"}], "/", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["dB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{"2", 
        RowBox[{
         SuperscriptBox["dalpha", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "^", "2"}], "-", 
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "*", 
     RowBox[{"kB", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "-", 
    RowBox[{
     RowBox[{"kB", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "^", "2"}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "^", "2"}], "+", 
       RowBox[{"2", 
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "-", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], "-", 
       RowBox[{"4", "*", 
        RowBox[{
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "^", "2"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"4", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", 
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "-", 
       RowBox[{"dA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{"2", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"2", "r", "*", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822566551905548*^9, 3.8225667078251724`*^9}, {
   3.822566753933338*^9, 3.8225669069130993`*^9}, {3.82256696124251*^9, 
   3.822566969191197*^9}, {3.8225671120850825`*^9, 3.822567117784815*^9}, {
   3.8225672177732*^9, 3.82256722442721*^9}, {3.822567324708166*^9, 
   3.8225673249348545`*^9}, 3.822567379847628*^9, {3.8231627996419296`*^9, 
   3.8231628359989204`*^9}, 3.8231629229652433`*^9, {3.8425055086810036`*^9, 
   3.842505517027295*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"e62dc469-1f37-4a68-ae16-47f4ea239ad4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"einsteinUD", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "2"}], "]"}], "]"}], "-", "checkeq4"}], "  ", "//", 
  " ", "Simplify", " "}]], "Input",
 CellChangeTimes->{{3.822566981765021*^9, 3.822566990568534*^9}, {
   3.8225671409531174`*^9, 3.82256715437418*^9}, 3.822567204380973*^9, {
   3.822567258278156*^9, 3.8225672602416162`*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"11d3b712-88cd-4420-805b-d9f6985f1d5e"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{
  3.8225669926399336`*^9, {3.8225671284598*^9, 3.8225671558360615`*^9}, {
   3.82256720475838*^9, 3.822567228475485*^9}, 3.8225673423783846`*^9, 
   3.822567384892313*^9, 3.823162326049655*^9, 3.8231628441360545`*^9, 
   3.82332236008648*^9, 3.823758604408537*^9, 3.8256719210045557`*^9, 
   3.8261949649388547`*^9, 3.8267112972186127`*^9, 3.827487545971987*^9, 
   3.827828042543811*^9, 3.8383678688343673`*^9, 3.842345748299221*^9, 
   3.8423515033503923`*^9, {3.8425055040007877`*^9, 3.8425055194231815`*^9}, 
   3.8425066741419168`*^9},
 CellLabel->"Out[37]=",ExpressionUUID->"b47ee8f7-5c91-4889-abe5-cb15d25df4c5"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"checkeq5", ":=", 
  RowBox[{
   RowBox[{"2", "/", 
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "*", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox["kB", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}], "-", 
     RowBox[{
      RowBox[{"3", "/", "2"}], "*", 
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "*", 
      RowBox[{
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "^", "2"}]}], "+", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "/", 
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", 
         RowBox[{"r", "^", "2"}], "*", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], "+", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "*", 
      RowBox[{
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", "r", "*", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], "+", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "*", 
      RowBox[{
       RowBox[{
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "^", "2"}], "/", 
       RowBox[{"(", 
        RowBox[{"8", "*", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], "+", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "*", 
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"r", "*", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], "+", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "*", 
      RowBox[{"dB", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "*", 
      RowBox[{
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", "*", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}]}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.822569043142063*^9, 3.822569286819193*^9}, 
   3.82316285606947*^9, {3.8231629162101927`*^9, 3.8231629169542007`*^9}},
 CellLabel->"In[38]:=",ExpressionUUID->"7b3d53e4-c729-4582-8c8a-9519f8ab7051"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"einsteinUD", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", "checkeq5"}], "  ", "//", 
  " ", "Simplify", " "}]], "Input",
 CellChangeTimes->{{3.822569337909693*^9, 3.8225693417549796`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"915dc588-45d0-4002-b1af-c71431d194a3"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.822569342312915*^9, 3.823162330699425*^9, 
  3.823162861877492*^9, 3.8231629197602243`*^9, 3.823322365423663*^9, 
  3.823758609433011*^9, 3.8256719229262533`*^9, 3.82619496696181*^9, 
  3.826711299009343*^9, 3.827487548267414*^9, 3.8278280442163424`*^9, 
  3.8383678708956757`*^9, 3.8423457510326138`*^9, 3.842351506143078*^9, 
  3.8425066758013377`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"87166e22-971f-4fab-b790-65f08536f49c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"stress", ":=", " ", 
    RowBox[{"stress", " ", "=", 
     RowBox[{"simp", "[", " ", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"\[Phi]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], ",", 
            RowBox[{"coord", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "*", 
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"\[Phi]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], ",", " ", 
            RowBox[{"coord", "[", 
             RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], "-", 
         "\[IndentingNewLine]", "\t\t\t\t\t", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "/", "2"}], ")"}], "*", 
          RowBox[{"metric", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "*", 
          RowBox[{"Sum", "[", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"inversemetric", "[", 
               RowBox[{"[", " ", 
                RowBox[{"s", ",", "d"}], "]"}], "]"}], "*", 
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], ",", 
                RowBox[{"coord", "[", 
                 RowBox[{"[", "s", "]"}], "]"}]}], "]"}], "*", 
              RowBox[{"D", "[", 
               RowBox[{
                RowBox[{"\[Phi]", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], ",", 
                RowBox[{"coord", "[", 
                 RowBox[{"[", "d", "]"}], "]"}]}], "]"}]}], ")"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"s", ",", "1", ",", "n"}], "}"}], ",", " ", 
            RowBox[{"{", 
             RowBox[{"d", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], ",", " ", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", "n"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8231667228133287`*^9, 3.8231667877765875`*^9}, {
  3.8231668281953554`*^9, 3.8231668454700623`*^9}, {3.8231668843833513`*^9, 
  3.82316719064742*^9}, {3.8231672386079063`*^9, 3.823167252526575*^9}, {
  3.82316747992241*^9, 3.823167483931421*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"b89a216c-95b5-4ca7-bea6-9a40db5e0a9a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"stress", " ", "//", "Normal"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8231672183411646`*^9, 3.823167224800299*^9}},
 CellLabel->"In[41]:=",ExpressionUUID->"99e3edf5-c7d8-4cfe-839f-419d1f16189a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"\[Chi]", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "2"], 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{"B", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}]]}], "+", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"\[Psi]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], 
           RowBox[{"A", "[", 
            RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}]}], "0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{
        SqrtBox[
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]},
     {"0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"\[Chi]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"B", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "2"]}]]}], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}], "0", "0"},
     {"0", "0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"\[Chi]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            SuperscriptBox[
             RowBox[{"B", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "2"]}]]}], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}], "0"},
     {
      FractionBox[
       RowBox[{
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{
        SqrtBox[
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]], "0", "0", 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"\[Chi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}]], "+", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"\[Chi]", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "2"], 
            RowBox[{
             RowBox[{"A", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             SuperscriptBox[
              RowBox[{"B", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}]]}], "+", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"\[Psi]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], 
           RowBox[{"A", "[", 
            RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.823167225330252*^9, 3.823167257904862*^9, 
  3.8231674861294184`*^9, 3.8233223696096644`*^9, 3.8237586134589553`*^9, 
  3.825671924783636*^9, 3.826194968757272*^9, 3.8267113010472083`*^9, 
  3.8274875504535484`*^9, 3.827828045818942*^9, 3.8383678727137203`*^9, 
  3.842345752569523*^9, 3.842351508182029*^9, 3.842506677366271*^9},
 CellLabel->
  "Out[41]//MatrixForm=",ExpressionUUID->"aed16498-0704-4d95-ae0d-\
22b644ec1c79"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8231675333972864`*^9, 3.823167552426163*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"4bdc6ecd-af04-42d8-a371-4efe1f2ab49f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"stressUD", ":=", 
   RowBox[{"stressUD", "=", 
    RowBox[{"simp", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "k"}], "\[RightDoubleBracket]"}], " ", 
          RowBox[{"stress", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "j"}], "\[RightDoubleBracket]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823167597737208*^9, 3.823167612484956*^9}},
 CellLabel->"In[43]:=",ExpressionUUID->"4aa9aa81-44fa-483d-a6d6-dea21f53ceac"],

Cell[BoxData[
 RowBox[{"liststressUD", ":=", 
  RowBox[{"simp", "[", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"UnsameQ", "[", 
        RowBox[{
         RowBox[{"stressUD", "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ToString", "[", 
          RowBox[{"T", "[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}], ",", " ", "\"\<=\>\"", ",", 
         RowBox[{"stressUD", "[", 
          RowBox[{"[", 
           RowBox[{"j", ",", "l"}], "]"}], "]"}]}], "}"}]}], "]"}], " ", ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"l", ",", "1", ",", "j"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.82316673577211*^9, {3.8231676596984506`*^9, 3.823167712900795*^9}, {
   3.823322293883726*^9, 3.8233222942120366`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"7d68add2-25cb-45b9-a50f-dcb43611357b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"TableForm", "[", 
    RowBox[{
     RowBox[{"Partition", "[", 
      RowBox[{
       RowBox[{"DeleteCases", "[", 
        RowBox[{
         RowBox[{"Flatten", "[", 
          RowBox[{"liststressUD", " ", "//", " ", "Normal"}], "]"}], ",", 
         "Null"}], "]"}], ",", "3"}], "]"}], ",", 
     RowBox[{"TableSpacing", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", ",", "2"}], "}"}]}]}], "]"}], "]"}], " ", "//", " ", 
  "simp"}]], "Input",
 CellChangeTimes->{{3.8231677296090374`*^9, 3.8231677305539675`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"5862fd3d-b3bc-4d17-b096-0cb33cfe3b87"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"T[1, 1]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Psi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
      RowBox[{"2", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}]]},
    {"\<\"T[2, 2]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Psi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
      RowBox[{"2", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}]]},
    {"\<\"T[3, 3]\"\>", "\<\"=\"\>", 
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Psi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
      RowBox[{"2", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       SuperscriptBox[
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}]]},
    {"\<\"T[4, 1]\"\>", "\<\"=\"\>", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{
        SqrtBox[
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}]], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]}]},
    {"\<\"T[4, 4]\"\>", "\<\"=\"\>", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[Chi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]]}]}
   },
   GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
   GridBoxSpacings->{"Columns" -> {
       Offset[0.27999999999999997`], {
        Offset[1.4]}, 
       Offset[0.27999999999999997`]}, "Rows" -> {
       Offset[0.2], {
        Offset[0.8]}, 
       Offset[0.2]}}],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$, TableSpacing -> {2, 2}]]]], "Output",
 CellChangeTimes->{3.823167733819008*^9, 3.823322298685294*^9, 
  3.823322375843879*^9, 3.8237586291514606`*^9, 3.825671929167104*^9, 
  3.8261949733298054`*^9, 3.826711304714212*^9, 3.827828048728814*^9, 
  3.838367876333022*^9, 3.8423457567101183`*^9, 3.8423515129834137`*^9, 
  3.842506681575837*^9},
 CellLabel->
  "Out[45]//TableForm=",ExpressionUUID->"fcf34ac7-de07-476e-8f99-\
96c40c7dfa27"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"ham", " ", ":=", " ", 
  RowBox[{"ham", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"einsteinUD", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}], "-", 
     RowBox[{"stressUD", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}], " ", "//", 
    "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.8231677690736437`*^9, 3.8231678057300386`*^9}, {
  3.8231679544610343`*^9, 3.82316796236189*^9}, {3.8233262091171913`*^9, 
  3.823326212631898*^9}, {3.8233265544443593`*^9, 3.823326554601879*^9}, {
  3.8424364995442924`*^9, 3.8424365442871237`*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"a2942086-a2a1-45ad-833e-fc6009c3a007"],

Cell[CellGroupData[{

Cell[BoxData["ham"], "Input",
 CellChangeTimes->{{3.823167964755904*^9, 3.823167964885958*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"58b71a12-d332-4ca0-99b9-a4ed7cfe4df4"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"1", "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Chi]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{"4", "+", 
       RowBox[{"12", " ", "r", " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Psi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{
         SuperscriptBox["dB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.823326217322027*^9, 3.8233265907502604`*^9, 3.8237586360751953`*^9, 
   3.8256719315747795`*^9, 3.8261949759969645`*^9, 3.8267113071015697`*^9, 
   3.8278280503273673`*^9, 3.838367878024103*^9, 3.84234575881036*^9, 
   3.8423515159226246`*^9, {3.8424364971958046`*^9, 3.842436548815302*^9}, 
   3.842506683640497*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"e391f19c-9d2e-4e41-bd50-3c3e68224cc9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"hameom", " ", ":=", 
  RowBox[{"hameom", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{"ham", ",", " ", "t"}], "]"}], " ", "/.", "  ", 
     RowBox[{
      RowBox[{
       SuperscriptBox["dB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", "\[Rule]", " ", 
      RowBox[{
       RowBox[{
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "/", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "-", "  ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{
         RowBox[{
          SuperscriptBox["B", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "/", 
         SuperscriptBox[
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], "-", 
       RowBox[{"2", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{
         SuperscriptBox["dB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}]}]}], " ", "//", " ", 
    "Simplify"}]}]}], "\[IndentingNewLine]", "hameom"}], "Input",
 CellChangeTimes->{{3.8231680825994473`*^9, 3.823168113252268*^9}, {
  3.8231683878108416`*^9, 3.8231684124499063`*^9}, {3.823254028442653*^9, 
  3.823254050732435*^9}, {3.8232541895422735`*^9, 3.8232543028106146`*^9}, {
  3.823254589132311*^9, 3.823254590994214*^9}, {3.823256185903765*^9, 
  3.823256187064386*^9}, {3.823261261566278*^9, 3.8232612635098977`*^9}},
 CellLabel->"In[48]:=",ExpressionUUID->"22d4809b-f3f2-46db-b05e-1b4aecd2ae2e"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "3"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", 
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"\[Chi]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["B", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", "r", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{"r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["dA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "6"}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"dA", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
           RowBox[{
            SuperscriptBox["dB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"A", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"kA", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["kB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"kB", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["kA", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"r", ",", "t"}], "]"}], "+", 
                RowBox[{
                 SuperscriptBox["kB", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Psi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "12"}], " ", "r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{"3", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"dA", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{"r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox[
               RowBox[{"\[Psi]", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"], " ", 
              RowBox[{
               SuperscriptBox["dB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}], "+", 
    RowBox[{
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Chi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Chi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "-", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["B", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8232545916597137`*^9, 3.823322723569138*^9, 
  3.8233262292963777`*^9, 3.8233265928737164`*^9, 3.823758640337949*^9, 
  3.82567193261872*^9, 3.8261949772119665`*^9, 3.8267113084335256`*^9, 
  3.8278280514707313`*^9, 3.838367878974511*^9, 3.842345759860857*^9, 
  3.84235151721189*^9, 3.842506684759365*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"e0c73c5f-85a2-4d88-b5b4-0e00d74fa2a9"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Aeom", ":=", " ", 
  RowBox[{"Aeom", "=", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}], 
    RowBox[{"kA", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"Beom", ":=", " ", 
  RowBox[{"Beom", "=", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], 
    RowBox[{"B", "[", 
     RowBox[{"r", ",", "t"}], "]"}], 
    RowBox[{"kB", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"alphaeom", " ", ":=", " ", 
  RowBox[{"alphaeom", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "+", 
      RowBox[{"2", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"dAeom", " ", ":=", " ", 
  RowBox[{"dAeom", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "r"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], 
      ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"dBeom", ":=", " ", 
  RowBox[{"dBeom", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "r"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], 
      ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"dalphaeom", " ", ":=", " ", 
  RowBox[{"dalphaeom", " ", "=", " ", 
   RowBox[{
    RowBox[{"-", "2"}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "r"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{"2", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], 
      ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"kBeom", " ", ":=", 
  RowBox[{"kBeom", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"2", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "r"], 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       SuperscriptBox[
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "/", "2"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "-", 
          RowBox[{"2", 
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{"4", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "/", "r"}], "-", 
       RowBox[{"2", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "-", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["r", "2"], 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], 
     RowBox[{"kB", "[", 
      RowBox[{"r", ",", "t"}], "]"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{"2", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"stressUD", "[", 
         RowBox[{"[", 
          RowBox[{"4", ",", "4"}], "]"}], "]"}], "+", 
        RowBox[{"stressUD", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ")"}], "/", 
      "2"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"kAeom", ":=", 
  RowBox[{"kAeom", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], ")"}]}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "r"], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "+", 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], "+", 
       SuperscriptBox[
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], "/", "2"}], "-", 
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "/", "2"}]}], "-", 
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "/", "2"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "-", 
          RowBox[{"2", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "/", "r"}], "-", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"kA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "+", 
          RowBox[{"2", 
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"stressUD", "[", 
         RowBox[{"[", 
          RowBox[{"4", ",", "4"}], "]"}], "]"}], "-", 
        RowBox[{"stressUD", "[", 
         RowBox[{"[", 
          RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
        RowBox[{"2", 
         RowBox[{"stressUD", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], ")"}], "/", 
      "2"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"phieom", ":=", 
  RowBox[{"phieom", " ", "=", " ", 
   RowBox[{
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], 
    RowBox[{
     RowBox[{"\[Chi]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{"1", "/", "2"}]], "*", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], 
      ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"psieom", ":=", 
  RowBox[{"psieom", "=", " ", 
   RowBox[{
    SubscriptBox["\[PartialD]", "r"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], 
      RowBox[{
       RowBox[{"\[Chi]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], 
          RowBox[{"1", "/", "2"}]], "*", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"chieom", ":=", 
  RowBox[{"chieom", "=", 
   RowBox[{
    RowBox[{"1", "/", 
     SuperscriptBox["r", "2"]}], 
    RowBox[{
     SubscriptBox["\[PartialD]", "r"], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "*", 
       SuperscriptBox["r", "2"], 
       RowBox[{
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "/", 
        SuperscriptBox[
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], 
         RowBox[{"1", "/", "2"}]]}]}], ")"}]}]}]}]}]}], "Input",
 CellChangeTimes->{{3.823169719553748*^9, 3.823169771829379*^9}, {
   3.8232486965497117`*^9, 3.8232487484063964`*^9}, {3.823248792053646*^9, 
   3.823248846864241*^9}, {3.8232488965968337`*^9, 3.8232489690190563`*^9}, {
   3.8232490418092747`*^9, 3.8232490691432734`*^9}, {3.8232491011200666`*^9, 
   3.8232491098445053`*^9}, 3.8232491711565065`*^9, {3.823249288409258*^9, 
   3.823249312282015*^9}, {3.8232496658511224`*^9, 3.8232497575678697`*^9}, {
   3.8232497929116488`*^9, 3.8232498552531157`*^9}, {3.8232503534491014`*^9, 
   3.8232504750556283`*^9}, {3.8232505396593227`*^9, 
   3.8232506657081842`*^9}, {3.8232517958582907`*^9, 3.8232520212938266`*^9}, 
   3.82325205813069*^9, {3.8232521224674225`*^9, 3.8232521394971776`*^9}, {
   3.8232535156724815`*^9, 3.823253554793562*^9}, {3.8232554718650684`*^9, 
   3.8232554998784723`*^9}, {3.8232569181902657`*^9, 
   3.8232569230747795`*^9}, {3.8232570510880375`*^9, 
   3.8232570651419287`*^9}, {3.823775581494596*^9, 3.8237755833391085`*^9}, {
   3.842345992958225*^9, 3.842346013410367*^9}, {3.842349843955133*^9, 
   3.842349879918323*^9}, 3.842513569257204*^9},
 CellLabel->
  "In[147]:=",ExpressionUUID->"247ea598-f602-4ec0-bf0d-99a4624699f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"simpeom", "[", "expr_", "]"}], " ", ":=", " ", 
  RowBox[{"Collect", "[", 
   RowBox[{
    RowBox[{"expr", "/.", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "Aeom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "Beom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "dAeom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "dBeom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "alphaeom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "dalphaeom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"kA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "kAeom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "kBeom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "phieom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "psieom"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Chi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "chieom"}]}], "\[IndentingNewLine]", "}"}]}], ",", "Simplify"}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8232525487661304`*^9, 3.8232526819429445`*^9}, 
   3.8232537493191853`*^9},
 CellLabel->
  "In[161]:=",ExpressionUUID->"c7a77ed1-cead-4606-b87a-cfefa43ed10c"],

Cell[BoxData[
 RowBox[{"hameom2", " ", ":=", 
  RowBox[{"hameom2", "=", " ", 
   RowBox[{
    RowBox[{"hameom", " ", "/.", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "Aeom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "Beom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "dAeom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "dBeom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "alphaeom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "dalphaeom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"kA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "kAeom"}], ",", " ", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
        "kBeom"}], ",", " ", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "phieom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "psieom"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Chi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
        "chieom"}]}], "}"}]}], " ", "//", " ", "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.823252692529813*^9, 3.823252696182184*^9}, {
  3.823252776884946*^9, 3.82325291261119*^9}, {3.823253270046665*^9, 
  3.8232533330201397`*^9}, {3.8232533872733574`*^9, 3.8232534258629827`*^9}, {
  3.8232537619895296`*^9, 3.8232537642242193`*^9}, {3.823253852805269*^9, 
  3.823253860233712*^9}, {3.8232542901802855`*^9, 3.823254315572274*^9}, {
  3.8232546887995415`*^9, 3.823254695934002*^9}, {3.823256225946735*^9, 
  3.8232562512805495`*^9}, {3.823256307976817*^9, 3.8232563182500896`*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"1c1a03ff-33b6-442b-998e-327f2d72c5c0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"hameom3", " ", ":=", 
   RowBox[{"hameom3", "=", 
    RowBox[{
     RowBox[{"hameom2", " ", "/.", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{
          SuperscriptBox["B", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"2", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
         SuperscriptBox["Beom", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None]}], ",", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "t"], 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "\[Rule]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", 
              RowBox[{"r", ",", "t"}]], 
             RowBox[{"\[Alpha]", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "/", 
            RowBox[{"\[Alpha]", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "-", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", "r"], 
             RowBox[{"\[Alpha]", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "*", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", "t"], 
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "/", 
             SuperscriptBox[
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}]}]}], ")"}]}], ",", " ", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "r"], 
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "\[Rule]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", 
              RowBox[{"r", ",", "r"}]], 
             RowBox[{"A", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "/", 
            RowBox[{"A", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "-", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", "r"], 
             RowBox[{"A", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "*", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", "r"], 
              RowBox[{"A", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "/", 
             SuperscriptBox[
              RowBox[{"A", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}]}]}], ")"}]}], ",", " ", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "r"], 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "\[Rule]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", 
              RowBox[{"r", ",", "r"}]], 
             RowBox[{"B", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "/", 
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "-", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", "r"], 
             RowBox[{"B", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "*", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", "r"], 
              RowBox[{"B", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "/", 
             SuperscriptBox[
              RowBox[{"B", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}]}]}], ")"}]}], ",", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "r"], 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "\[Rule]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", 
              RowBox[{"r", ",", "r"}]], 
             RowBox[{"\[Alpha]", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "/", 
            RowBox[{"\[Alpha]", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "-", 
           RowBox[{
            RowBox[{
             SubscriptBox["\[PartialD]", "r"], 
             RowBox[{"\[Alpha]", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "*", 
            RowBox[{
             RowBox[{
              SubscriptBox["\[PartialD]", "r"], 
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "/", 
             SuperscriptBox[
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}]}]}], ")"}]}], ",", " ", 
        RowBox[{
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "r"], 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "/", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ",", 
        RowBox[{
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "->", " ", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"A", "[", 
             RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r"}], "]"}], "/", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ",", 
        RowBox[{
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "->", " ", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r"}], "]"}], "/", 
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ",", 
        RowBox[{
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"\[Alpha]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r"}], "]"}], "/", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}]}], "}"}]}], "//", " ", 
     "Simplify"}]}]}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.823256321786135*^9, 3.823256381114889*^9}, {
  3.823256850500817*^9, 3.823256859963023*^9}, {3.8232599282028646`*^9, 
  3.8232599353427734`*^9}, {3.8232599684926205`*^9, 3.823260142686322*^9}, {
  3.8232602338485503`*^9, 3.8232602689929347`*^9}, {3.8232603003205633`*^9, 
  3.8232604178028307`*^9}, {3.82326069281397*^9, 3.823260697739769*^9}},
 CellLabel->"In[63]:=",ExpressionUUID->"fbce883b-cd80-4a32-a18c-f3b9a548fcc1"],

Cell[BoxData[
 RowBox[{"hameom4", ":=", 
  RowBox[{"hameom4", "=", 
   RowBox[{
    RowBox[{"hameom3", " ", "/.", " ", 
     RowBox[{
      RowBox[{"D", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ",", "r", ",", "r"}], "]"}], 
      "\[Rule]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "*", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r", ",", "r"}], "]"}]}], 
        "+", " ", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r", ",", "r"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", " ", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r", ",", "r"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", "\[IndentingNewLine]", 
        RowBox[{"2", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "*", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r"}], "]"}]}], "+", " ", 
        RowBox[{"2", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r"}], "]"}], 
         RowBox[{"D", "[", " ", 
          RowBox[{
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", " ", 
        RowBox[{"2", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r"}], "]"}], " ", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "r"}], "]"}]}]}], ")"}]}]}], 
    "//", " ", "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.8232607005471067`*^9, 3.8232607533959446`*^9}, {
  3.8233229035666*^9, 3.823322924930333*^9}, {3.823323177843052*^9, 
  3.8233232182023063`*^9}, {3.8233232482734528`*^9, 3.823323414961351*^9}, {
  3.8233234860478363`*^9, 3.823323491487732*^9}, {3.823325873831992*^9, 
  3.8233259577648325`*^9}, {3.8233266271989775`*^9, 3.823326660500391*^9}},
 CellLabel->"In[64]:=",ExpressionUUID->"183bbf8a-3c89-4b46-8167-58bb67649975"],

Cell[BoxData[
 RowBox[{"hampart", ":=", 
  RowBox[{"hampart", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], 
     RowBox[{"kB", "[", 
      RowBox[{"r", ",", "t"}], "]"}], 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", 
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], "-", 
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], 
     RowBox[{"stressUD", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", "4"}], "]"}], "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.823322158856241*^9, 3.8233221818566256`*^9}, {
  3.823322216713684*^9, 3.8233222259985485`*^9}, {3.823322260689006*^9, 
  3.8233222720235395`*^9}, {3.823322649240664*^9, 3.823322650430067*^9}},
 CellLabel->"In[65]:=",ExpressionUUID->"780b6291-c0be-4366-a58e-2908421c4442"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"hampart", ",", " ", "t"}], "]"}], "/.", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "Aeom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "Beom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "dAeom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "dBeom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "alphaeom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "dalphaeom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "kAeom"}], ",", " ", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}], "\[Rule]", " ", 
      "kBeom"}], ",", " ", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"\[Phi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
      "phieom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
      "psieom"}], ",", 
     RowBox[{
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "\[Rule]", 
      "chieom"}]}], "}"}]}], " ", "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8233226541475782`*^9, 3.8233226632168813`*^9}, {
  3.823322695525529*^9, 3.823322698547388*^9}, {3.8233227594499855`*^9, 
  3.823322760534593*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"0837007c-5133-4bc2-8217-acaa71840561"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], 
     RowBox[{"3", "/", "2"}]], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], 
      RowBox[{"5", "/", "2"}]], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"kA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"6", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"kB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"kB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "3"]}]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Chi]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], 
      RowBox[{"3", "/", "2"}]], " ", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Chi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", "4"}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox[
               RowBox[{"dalpha", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
             RowBox[{"12", " ", "r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "-", 
             RowBox[{"3", " ", 
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox[
               RowBox[{"dB", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
             RowBox[{"2", " ", "r", " ", 
              RowBox[{"dalpha", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                RowBox[{"r", " ", 
                 RowBox[{"dB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"dA", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{"r", " ", 
                 RowBox[{"dalpha", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"2", " ", "r", " ", 
                 RowBox[{"dB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
             RowBox[{"4", " ", 
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox[
               RowBox[{"\[Psi]", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"], " ", 
              RowBox[{
               SuperscriptBox["dalpha", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "-", 
             RowBox[{"4", " ", 
              SuperscriptBox["r", "2"], " ", 
              RowBox[{
               SuperscriptBox["dB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"dA", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                RowBox[{"r", " ", 
                 RowBox[{"dB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                RowBox[{"4", " ", "r", " ", 
                 RowBox[{"dB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"dB", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"dalpha", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{"2", "+", 
                   RowBox[{"r", " ", 
                    RowBox[{"dB", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{
                  SuperscriptBox["dB", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", "r", " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Alpha]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"\[Psi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Chi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"\[Chi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Psi]", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["\[Psi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.8233226594354477`*^9, 3.8233226635504413`*^9}, 
   3.823322699614305*^9, {3.823322739191564*^9, 3.823322761079405*^9}, 
   3.8233262455430183`*^9, 3.8237586592736588`*^9, 3.8237755924118543`*^9, 
   3.825671939950862*^9, 3.826194985496719*^9, 3.826711315025257*^9, 
   3.8278280585165668`*^9, 3.838367886998334*^9, 3.8423457682096405`*^9, 
   3.8423515249720016`*^9, 3.842506691555657*^9},
 CellLabel->"Out[66]=",ExpressionUUID->"fcc9c707-6639-44d8-8ecf-4c86a34b315c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"hameom5", ":=", 
  RowBox[{"hameom5", "=", 
   RowBox[{
    RowBox[{"hameom4", " ", "/.", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", " ", 
        RowBox[{
         RowBox[{"-", "2"}], 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}], 
       TagBox[
        RowBox[{"(", 
         RowBox[{"2", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "\[Rule]", "  ", 
      RowBox[{
       RowBox[{"-", "2"}], 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["B", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["B", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Alpha]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Alpha]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["B", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["\[Alpha]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"2", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]}], " ", "//", " ", 
    "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.823326677931164*^9, 3.823326682986466*^9}, {
  3.823326718911885*^9, 3.8233267190633793`*^9}, {3.8233267579047194`*^9, 
  3.823326814677923*^9}, {3.8233269320076275`*^9, 3.823326937126957*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"2d167ba4-4212-4c6e-97f6-7e39587567e9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hameom5", " ", "//", " ", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.823326941795639*^9, 3.823326950322838*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"7c3a517b-d38b-4de9-a90f-a1cd424da41a"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], 
     RowBox[{"5", "/", "2"}]], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], 
      RowBox[{"5", "/", "2"}]], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"3", " ", 
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}], " ", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "-", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Chi]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"\[Psi]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "+", 
    RowBox[{"r", " ", 
     SqrtBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}]], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"3", " ", 
                RowBox[{"kA", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"kB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"B", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], "+", 
               RowBox[{"r", " ", 
                RowBox[{
                 SuperscriptBox["B", 
                  TagBox[
                   RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                   Derivative],
                  MultilineFunction->None], "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], ")"}]}], "+", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["kB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Alpha]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", "r", " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"\[Chi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"\[Alpha]", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "+", 
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Chi]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], 
      RowBox[{"3", "/", "2"}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"kA", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"kB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"\[Chi]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"kA", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "+", 
             RowBox[{"kB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["B", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"10", " ", 
                 RowBox[{"kA", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"6", " ", 
                 RowBox[{"kB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["kA", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}], "-", 
                   RowBox[{"3", " ", 
                    RowBox[{
                    SuperscriptBox["kB", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
             "+", 
             RowBox[{"2", " ", "r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"kA", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], "-", 
                RowBox[{"kB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], ")"}], " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", 
              RowBox[{"kA", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"kB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"2", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"\[Psi]", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "+", 
             RowBox[{"4", " ", "r", " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", "r", " ", 
              RowBox[{
               SuperscriptBox["kB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{
                  SuperscriptBox["kA", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"3", " ", 
                 RowBox[{
                  SuperscriptBox["kB", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{
                  SuperscriptBox["kB", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
          RowBox[{
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"\[Psi]", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 RowBox[{
                  SuperscriptBox["\[Alpha]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{
                  SuperscriptBox["\[Alpha]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.8233266983834333`*^9, {3.823326947388383*^9, 3.8233269526375017`*^9}, 
   3.82375866670232*^9, 3.8237592584893646`*^9, 3.823775604191889*^9, 
   3.8256719445304203`*^9, 3.8261949897738333`*^9, 3.8267113192945986`*^9, 
   3.8278280627354345`*^9, 3.838367891148594*^9, 3.842345772790255*^9, 
   3.8423515275613303`*^9, 3.842506695973112*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"d7a7415e-cdb1-4050-aa86-f77285e5b674"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Clear", "[", 
  RowBox[{"dkAdr", ",", "dkBdr", ",", " ", "dchidr"}], "]"}]], "Input",
 CellChangeTimes->{{3.8237591727175727`*^9, 3.823759173511498*^9}, {
  3.8237592880244637`*^9, 3.82375929462111*^9}, {3.823759502854134*^9, 
  3.823759504683814*^9}, {3.8237709848707056`*^9, 3.823771007042285*^9}},
 CellLabel->"In[69]:=",ExpressionUUID->"bba5c026-15b8-4d0e-a56e-6fabcd6f2ac9"],

Cell[BoxData[{
 RowBox[{"dkAdr", ":=", 
  RowBox[{"dkAdr", "=", 
   RowBox[{"-", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], ",", " ", "r"}], 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"dkBdr", ":=", 
  RowBox[{"dkBdr", "=", 
   RowBox[{"-", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"2", " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], ",", " ", "r"}], 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"dchidr", ":=", 
  RowBox[{"dchidr", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}], 
       RowBox[{"1", "/", "2"}]], 
      RowBox[{
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "/", 
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"\[Phi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}]}], ",", " ", 
     "r"}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.823759017132598*^9, 3.823759047012044*^9}, {
  3.823759078992702*^9, 3.8237592379500227`*^9}, {3.823759310234401*^9, 
  3.82375936137135*^9}, {3.8237593943232684`*^9, 3.823759454049159*^9}, {
  3.823759494312579*^9, 3.8237595011609364`*^9}, {3.82377101099813*^9, 
  3.8237710210509567`*^9}, {3.8237712359303985`*^9, 3.8237712789642677`*^9}},
 CellLabel->"In[70]:=",ExpressionUUID->"b0c957bf-0c4b-49bf-b673-1d6c0681f58f"],

Cell[BoxData[{
 RowBox[{"ddkAddr", ":=", 
  RowBox[{"ddkAddr", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"dkAdr", ",", "r"}], "]"}], " ", "//", " ", 
    "Simplify"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"ddkBddr", ":=", 
  RowBox[{"ddkBddr", "=", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"dkBdr", ",", "r"}], "]"}], " ", "//", " ", 
    "Simplify"}]}]}]}], "Input",
 CellChangeTimes->{{3.8237592646168747`*^9, 3.82375926739076*^9}, {
   3.8237593384644747`*^9, 3.8237593390621343`*^9}, 3.8237593923121023`*^9, {
   3.823759476784507*^9, 3.8237594778309574`*^9}, {3.8237595111700306`*^9, 
   3.823759574441701*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"70721942-c445-4cc6-b395-0f3720213d5d"],

Cell[BoxData[
 RowBox[{"hameom6", ":=", 
  RowBox[{"hameom6", "=", 
   RowBox[{
    RowBox[{"hameom5", " ", "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"kA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"A", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"A", "[", 
            RowBox[{"r", ",", "t"}], "]"}], 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", " ", "t"}], "]"}], "/", 
         RowBox[{"(", 
          RowBox[{"2", " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ",", " ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kA", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "\[IndentingNewLine]", "]"}], "\[Rule]", 
        " ", "dkAdr"}], ",", " ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", "dkBdr"}], ",", " ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kA", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", "ddkAddr"}], ",", 
       " ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"2", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", "ddkBddr"}], ",", 
       RowBox[{
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "r"}], "]"}]}], ",", " ", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Psi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"\[Phi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], ",", "r", ",", "r"}], "]"}]}], " ",
        ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], 
          RowBox[{"1", "/", "2"}]], 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "/", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"\[Phi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], ",", "t"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         SuperscriptBox["\[Chi]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", "dchidr"}]}], " ", 
      "}"}]}], " ", "//", " ", "Simplify"}]}]}]], "Input",
 CellChangeTimes->{{3.8237595782196636`*^9, 3.823759765534665*^9}, {
   3.8237598634705515`*^9, 3.82375990110067*^9}, {3.823760045061735*^9, 
   3.8237600483004475`*^9}, 3.823770666723377*^9, {3.8237707716923904`*^9, 
   3.8237707780500884`*^9}, {3.8237709024982133`*^9, 
   3.8237709714807854`*^9}, {3.8237711239230037`*^9, 
   3.8237712296415367`*^9}, {3.8237712932981887`*^9, 
   3.8237714307491865`*^9}, {3.8237714613941917`*^9, 3.823771515691231*^9}, {
   3.823771630489169*^9, 3.8237716517100973`*^9}, 3.8237717147235107`*^9, {
   3.8237756666150427`*^9, 3.82377566783183*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"7d7591c7-01b0-43f8-812a-4abe689eaeea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Coefficient", "[", 
  RowBox[{"hameom6", ",", " ", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], ",", " ", "r", ",", "t"}], "]"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.82377078175099*^9, 3.823770806652298*^9}, {
  3.823771527847073*^9, 3.8237715982663617`*^9}, {3.8237716380528865`*^9, 
  3.823771642404182*^9}, {3.8237717435836687`*^9, 3.823771772642214*^9}, {
  3.8237747691749134`*^9, 3.823774769227909*^9}},
 CellLabel->"In[76]:=",ExpressionUUID->"72372511-885e-4e4d-9c56-abd90c665735"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"24", " ", "r", " ", 
    SuperscriptBox[
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    RowBox[{
     SuperscriptBox["A", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    RowBox[{"B", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    SuperscriptBox[
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    RowBox[{
     SuperscriptBox["B", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "0"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "t"}], "]"}]}]}], 
  RowBox[{"8", " ", 
   SuperscriptBox["r", "2"], " ", 
   SuperscriptBox[
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
   SuperscriptBox[
    RowBox[{"B", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
   SuperscriptBox[
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "2"]}]]], "Output",
 CellChangeTimes->{
  3.8237708078091516`*^9, {3.823771521419483*^9, 3.8237715586381826`*^9}, {
   3.8237716433762217`*^9, 3.823771654384061*^9}, {3.8237717170677032`*^9, 
   3.8237717730602565`*^9}, 3.8237747697459683`*^9, 3.8237756158683662`*^9, 
   3.823775670311306*^9, 3.8261949919954014`*^9, 3.8267113244319353`*^9, 
   3.8278280649253793`*^9, 3.8423515333716817`*^9, 3.8425067009811296`*^9},
 CellLabel->"Out[76]=",ExpressionUUID->"034a2ba6-5759-4331-b49e-7dd029a38ab1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"hameom6", " ", "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8237748013531427`*^9, 3.823774803003003*^9}},
 CellLabel->"In[77]:=",ExpressionUUID->"b9954db2-5c91-415b-b210-92b79bc925ea"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"8", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox[
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
    SuperscriptBox[
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "4"}], " ", 
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
     RowBox[{
      SuperscriptBox["B", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["B", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["\[Phi]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "-", 
    RowBox[{"2", " ", "r", " ", 
     SuperscriptBox[
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{
      SuperscriptBox["A", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["A", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["B", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"6", " ", "r", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Alpha]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{
               SuperscriptBox["A", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{"4", "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["A", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{
                  SuperscriptBox["A", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", "r", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["A", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"6", " ", "r", " ", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Alpha]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"\[Alpha]", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{
               SuperscriptBox["B", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["A", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["B", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["A", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["A", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["B", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"3", " ", "r", " ", 
              RowBox[{
               SuperscriptBox["B", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"10", " ", 
                 RowBox[{
                  SuperscriptBox["B", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"3", " ", "r", " ", 
                 RowBox[{
                  SuperscriptBox["B", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["B", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["B", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["B", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
          RowBox[{
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"5", " ", 
              RowBox[{
               SuperscriptBox["B", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["B", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", "r", " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{
            SuperscriptBox["A", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["\[Phi]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{
               SuperscriptBox["\[Phi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["\[Phi]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"\[Alpha]", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["\[Phi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", 
                    RowBox[{
                    SuperscriptBox["\[Phi]", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                   RowBox[{"r", " ", 
                    RowBox[{
                    SuperscriptBox["\[Phi]", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "r"}], " ", 
           RowBox[{
            SuperscriptBox["B", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"10", " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"3", " ", "r", " ", 
              RowBox[{
               SuperscriptBox["\[Alpha]", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"2", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{
               SuperscriptBox["A", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{
               SuperscriptBox["B", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{"1", "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["\[Phi]", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"0", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["B", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{
                  SuperscriptBox["\[Phi]", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"3", " ", 
                 RowBox[{
                  SuperscriptBox["B", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{
                  SuperscriptBox["B", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"2", ",", "1"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}]}], ")"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8237747134469104`*^9, 3.8237748035695505`*^9, 
  3.8237756181440225`*^9, 3.8261949927481403`*^9, 3.826711325188072*^9, 
  3.8278280656104217`*^9, 3.842351534132307*^9, 3.84250670163332*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"38785b7d-ee58-453e-a8ba-bfab93f5e9f0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"stressUD", " ", "//", "MatrixForm"}], "  ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.825671872252327*^9, 3.8256718775453744`*^9}, {
  3.8256719635881553`*^9, 3.825671965188361*^9}, {3.8424348091031713`*^9, 
  3.842434820441342*^9}},
 CellLabel->"In[78]:=",ExpressionUUID->"bd521acd-c8df-4b4d-8764-13b412c9b993"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[Chi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]], "0", "0", 
      FractionBox[
       RowBox[{
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Chi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], 
         RowBox[{"3", "/", "2"}]], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]]},
     {"0", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[Chi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]], "0", "0"},
     {"0", "0", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"\[Chi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
        RowBox[{
         SuperscriptBox[
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
       RowBox[{"2", " ", 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}]], "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"\[Chi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Psi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], 
        RowBox[{
         SqrtBox[
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}]], " ", 
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]]}], "0", "0", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox[
          RowBox[{"\[Chi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"\[Psi]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
        RowBox[{"2", " ", 
         RowBox[{"A", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         SuperscriptBox[
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}]]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.825671878390911*^9, 3.825671965584279*^9, 3.8261949934310226`*^9, 
   3.826711326248419*^9, 3.827828066481126*^9, 3.842351535022978*^9, {
   3.842434809822559*^9, 3.8424348208116517`*^9}, 3.8425067025613146`*^9},
 CellLabel->
  "Out[78]//MatrixForm=",ExpressionUUID->"440a8900-a82b-4318-8bdc-\
ccf1ecaa3ee4"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"stresstrace", ":=", 
   RowBox[{"stresstrace", "=", 
    RowBox[{"simp", "[", 
     RowBox[{"Sum", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], " ", 
        RowBox[{"stress", "\[LeftDoubleBracket]", 
         RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.826195022529405*^9, 3.8261950929025807`*^9}},
 CellLabel->"In[79]:=",ExpressionUUID->"437ed80f-1649-42f3-a791-c7af59962dc4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stresstrace", " ", "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8261951029813514`*^9, 3.8261951189872885`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"f8ac535a-3b72-4dab-8caa-e34131250ccf"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Chi]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"B", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.826195105494113*^9, 3.8261951193086967`*^9}, 
   3.8267113320459547`*^9, 3.8278280682317348`*^9, 3.842351538012965*^9, 
   3.842506704592598*^9},
 CellLabel->"Out[80]=",ExpressionUUID->"4d9f07ee-2a3d-466c-acf8-8999d675dc50"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"einsteintrace", ":=", 
  RowBox[{"einsteintrace", "=", 
   RowBox[{"simp", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}], " ", 
       RowBox[{"einstein", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8267113414530134`*^9, 3.826711358243723*^9}},
 CellLabel->"In[81]:=",ExpressionUUID->"a364c4f0-7d9a-4d62-b712-38dcff0e1ee7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"einsteintrace", " ", "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8267113738045907`*^9, 3.826711374585067*^9}, {
  3.8267114333711753`*^9, 3.8267114537856307`*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"795d426e-e64c-412a-968a-374296e26213"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["2", 
    RowBox[{
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}]]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
     RowBox[{"2", " ", 
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"kB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox[
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["kA", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"0", ",", "1"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{
        SuperscriptBox["kB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"0", ",", "1"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], 
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}]], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", 
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}]], 
   RowBox[{"(", 
    RowBox[{"4", "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
     RowBox[{"12", " ", "r", " ", 
      RowBox[{"dB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
     RowBox[{"4", " ", "r", " ", 
      RowBox[{"dalpha", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"r", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
     RowBox[{"2", " ", "r", " ", 
      RowBox[{"dA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"r", " ", 
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SuperscriptBox["dalpha", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SuperscriptBox["dB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.826711375682865*^9, {3.826711436836245*^9, 3.826711454189557*^9}, 
   3.8278280702716036`*^9, 3.8423515404016266`*^9, 3.842506706483342*^9},
 CellLabel->"Out[82]=",ExpressionUUID->"29dbdacc-d362-4cdb-8e5d-e7c44c3d8591"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8278280718760023`*^9, 3.8278280801111703`*^9}, 
   3.8423452633863397`*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"b2d161c2-b0c6-4fd5-b894-ec4b086072f8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"riemannalldown", " ", ":=", " ", 
   RowBox[{"riemanalldown", " ", "=", " ", 
    RowBox[{"simp", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"metric", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "k"}], "\[RightDoubleBracket]"}], " ", 
          RowBox[{"riemann", "\[LeftDoubleBracket]", 
           RowBox[{"k", ",", "j", ",", " ", "l", ",", " ", "m"}], 
           "\[RightDoubleBracket]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"l", ",", " ", "1", ",", "n"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"m", ",", " ", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.83768567378155*^9, 3.837685686027514*^9}, 
   3.8376860961880426`*^9, {3.8376861499029326`*^9, 3.837686213198331*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"17eb38c3-a444-48c9-a1d4-4f96b3c8f1bf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"riemannallup", " ", ":=", " ", 
   RowBox[{"riemanallup", " ", "=", " ", 
    RowBox[{"simp", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
           RowBox[{"j", ",", "a"}], "\[RightDoubleBracket]"}], " ", 
          RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
           RowBox[{"l", ",", "b"}], "\[RightDoubleBracket]"}], 
          RowBox[{"inversemetric", "\[LeftDoubleBracket]", 
           RowBox[{"m", ",", "c"}], "\[RightDoubleBracket]"}], 
          RowBox[{"riemann", "\[LeftDoubleBracket]", 
           RowBox[{"i", ",", "a", ",", " ", "b", ",", " ", "c"}], 
           "\[RightDoubleBracket]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"a", ",", "1", ",", "n"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"b", ",", "1", ",", "n"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"c", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"l", ",", " ", "1", ",", "n"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"m", ",", " ", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.837686232341976*^9, 3.8376862725142636`*^9}, {
  3.837686321343427*^9, 3.837686382339491*^9}},
 CellLabel->"In[85]:=",ExpressionUUID->"34e2d3fd-3265-4b7b-ada4-5f7e36144d0a"],

Cell[BoxData[
 RowBox[{"riemannsquared", " ", ":=", " ", 
  RowBox[{"simp", "[", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"riemannalldown", "\[LeftDoubleBracket]", 
       RowBox[{"i", ",", "j", ",", " ", "k", ",", " ", "l"}], 
       "\[RightDoubleBracket]"}], " ", 
      RowBox[{"riemannallup", "\[LeftDoubleBracket]", 
       RowBox[{"i", ",", "j", ",", " ", "k", ",", " ", "l"}], 
       "\[RightDoubleBracket]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"l", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.837686419771174*^9, 3.837686424885059*^9}, {
  3.83768661098691*^9, 3.8376866424440174`*^9}},
 CellLabel->"In[86]:=",ExpressionUUID->"2ee37242-122d-40c3-ad34-fa73f70f3aea"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"simp", "[", 
  RowBox[{"Simplify", "[", "riemannsquared", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.837686646687227*^9, 3.837686733905591*^9}, {
  3.8376867750230103`*^9, 3.837686778043999*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"ad75e498-f302-4ba5-8aa0-a0f86047a2e0"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "4"], " ", 
    SuperscriptBox[
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "4"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"16", " ", 
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           SuperscriptBox[
            RowBox[{"kB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "4"], " ", 
           SuperscriptBox[
            RowBox[{"B", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"kA", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "4"], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox[
               RowBox[{"kA", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"kB", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
             RowBox[{"3", " ", 
              SuperscriptBox[
               RowBox[{"kB", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "4"]}]}], ")"}]}]}], ")"}], 
        " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           SuperscriptBox[
            RowBox[{"kA", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["kA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"kB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["kB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"B", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["kA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["kB", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}]}], ")"}]}], 
    "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "4"], " ", 
     RowBox[{"(", 
      RowBox[{"16", "+", 
       RowBox[{"16", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "4"]}], "+", 
       RowBox[{"32", " ", "r", " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"56", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{"24", " ", 
        SuperscriptBox["r", "3"], " ", 
        SuperscriptBox[
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "3"]}], "+", 
       RowBox[{"3", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "4"]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{"r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "2"]}], ")"}]}], 
       "+", 
       RowBox[{"16", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["dalpha", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox[
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"4", "+", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r", "2"], " ", 
           RowBox[{
            SuperscriptBox["dalpha", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"32", " ", 
        SuperscriptBox["r", "3"], " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["dB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{
         SuperscriptBox["dB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["r", "4"], " ", 
        SuperscriptBox[
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{"4", " ", 
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           SuperscriptBox["r", "4"], " ", 
           SuperscriptBox[
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "3"]}], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox["r", "4"], " ", 
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["dalpha", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{"r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"r", " ", 
              SuperscriptBox[
               RowBox[{"dB", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
             RowBox[{"2", " ", "r", " ", 
              RowBox[{
               SuperscriptBox["dB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
      ")"}]}], "-", 
    RowBox[{"2", " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["r", "4"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{
            SuperscriptBox["dA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["dalpha", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
          RowBox[{"6", " ", 
           SuperscriptBox[
            RowBox[{
             SuperscriptBox["dB", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}], "-", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "3"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"(", 
            RowBox[{"2", "+", 
             RowBox[{"r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
           RowBox[{"kA", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["dB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["dB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["dB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"4", " ", "r", " ", 
           SuperscriptBox[
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{
            SuperscriptBox["kA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"kA", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["dA", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"6", " ", "r", " ", 
              RowBox[{"kB", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["dB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{"2", " ", "r", " ", 
              RowBox[{"dA", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["kA", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "-", 
             RowBox[{"8", " ", 
              RowBox[{
               SuperscriptBox["kB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "-", 
             RowBox[{"4", " ", "r", " ", 
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["kB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"0", ",", "1"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{
            SuperscriptBox["kA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["dalpha", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{"r", " ", 
           RowBox[{
            SuperscriptBox["dA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["kA", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{"2", " ", "r", " ", 
           RowBox[{
            SuperscriptBox["dB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["kB", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "0"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"\[Alpha]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "4"], " ", 
        RowBox[{"(", 
         RowBox[{"4", "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["r", "2"], "+", 
             RowBox[{
              SuperscriptBox["r", "4"], " ", 
              RowBox[{"B", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 SuperscriptBox[
                  RowBox[{"kA", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"kA", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{"kB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"3", " ", 
                 SuperscriptBox[
                  RowBox[{"kB", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}]}], 
            ")"}]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"6", " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"dalpha", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"kB", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"kA", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{"8", "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{"dA", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{"dalpha", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                RowBox[{"5", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 SuperscriptBox[
                  RowBox[{"dalpha", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 RowBox[{
                  SuperscriptBox["dalpha", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"kA", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", 
                 RowBox[{"kB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", "4"}], "-", 
                   RowBox[{"r", " ", 
                    RowBox[{"dA", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    RowBox[{"dalpha", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    RowBox[{
                    SuperscriptBox["dB", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    RowBox[{"dalpha", "[", 
                    RowBox[{"r", ",", "t"}], "]"}], " ", 
                    RowBox[{
                    SuperscriptBox["kA", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "-", 
                   RowBox[{"4", " ", 
                    RowBox[{
                    SuperscriptBox["kB", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], 
             "+", 
             RowBox[{"4", " ", "r", " ", 
              RowBox[{"(", 
               RowBox[{"2", "+", 
                RowBox[{"r", " ", 
                 RowBox[{"dalpha", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
              RowBox[{"kB", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{
               SuperscriptBox["kB", 
                TagBox[
                 RowBox[{"(", 
                  RowBox[{"1", ",", "0"}], ")"}],
                 Derivative],
                MultilineFunction->None], "[", 
               RowBox[{"r", ",", "t"}], "]"}]}], "+", 
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{
                  SuperscriptBox["kA", 
                   TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                   MultilineFunction->None], "[", 
                  RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
                RowBox[{"6", " ", 
                 SuperscriptBox[
                  RowBox[{
                   SuperscriptBox["kB", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}]}], 
            ")"}]}], "+", 
          RowBox[{
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", "r"}], "+", 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "3"], " ", 
              RowBox[{"B", "[", 
               RowBox[{"r", ",", "t"}], "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox[
                  RowBox[{"kA", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"kB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"3", " ", 
                    RowBox[{"kB", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                   RowBox[{"r", " ", 
                    RowBox[{
                    SuperscriptBox["kB", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
                RowBox[{
                 RowBox[{"kA", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "+", 
                    RowBox[{"r", " ", 
                    RowBox[{"dA", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "-", 
                    RowBox[{"2", " ", "r", " ", 
                    RowBox[{"dalpha", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
                    RowBox[{"kB", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    RowBox[{
                    SuperscriptBox["kB", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
            ")"}]}]}], ")"}]}], "+", 
       RowBox[{"8", " ", 
        SuperscriptBox["r", "4"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{
         SuperscriptBox["dalpha", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{
            SuperscriptBox["\[Alpha]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"0", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "-", 
          RowBox[{
           SuperscriptBox["\[Alpha]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "4"], " ", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", 
             RowBox[{"dalpha", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], " ", 
            RowBox[{
             SuperscriptBox["\[Alpha]", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"0", ",", "1"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["\[Alpha]", 
             TagBox[
              RowBox[{"(", 
               RowBox[{"1", ",", "1"}], ")"}],
              Derivative],
             MultilineFunction->None], "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], ")"}], "2"]}]}], ")"}]}]}], 
   ")"}]}]], "Output",
 CellChangeTimes->{3.8376867487911415`*^9, 3.8376867926027*^9, 
  3.838367917023733*^9, 3.842351566071617*^9, 3.842506729755415*^9},
 CellLabel->"Out[87]=",ExpressionUUID->"5109d9a3-8247-4bf5-b2b1-c464bfa06c39"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"riccisquared", ":=", 
  RowBox[{"riccisquared", " ", "=", " ", 
   RowBox[{"simp", "[", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"inversemetric", "\[LeftDoubleBracket]", " ", 
        RowBox[{"i", ",", " ", "k"}], "\[RightDoubleBracket]"}], 
       RowBox[{"inversemetric", "\[LeftDoubleBracket]", " ", 
        RowBox[{"j", ",", " ", "l"}], "\[RightDoubleBracket]"}], 
       RowBox[{"ricci", "\[LeftDoubleBracket]", " ", 
        RowBox[{"k", ",", " ", "l"}], "\[RightDoubleBracket]"}], " ", 
       RowBox[{"ricci", "\[LeftDoubleBracket]", 
        RowBox[{"i", ",", "j"}], "\[RightDoubleBracket]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "n"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", "n"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"l", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8383676330332026`*^9, 3.8383676837105527`*^9}, {
  3.838367724569536*^9, 3.838367789119239*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"7d31f279-6f93-4bda-a36c-cb64474a52e8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"simpeom", "[", 
    RowBox[{"Simplify", "[", "riccisquared", "]"}], "]"}], "  ", "//", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["\[Alpha]", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", "dalphaeom"}], "}"}]}], 
  " ", "//", "  ", "FullSimplify"}]], "Input",
 CellChangeTimes->{{3.8383732900831375`*^9, 3.8383733274229555`*^9}, {
  3.8383734137847414`*^9, 3.83837341968432*^9}, {3.8383734596941586`*^9, 
  3.8383734951541605`*^9}, {3.8383735419158983`*^9, 3.8383735435246787`*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"117c5927-f4d8-4a2b-bc1d-ff70e0f52586"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     SuperscriptBox["\[Alpha]", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"1", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", 
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox["kA", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], "}"}], "[", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"8", " ", 
     SuperscriptBox["r", "4"], " ", 
     SuperscriptBox[
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "4"]}]], 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"dalpha", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "+", 
               RowBox[{"dB", "[", 
                RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox[
              RowBox[{"dalpha", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
            SuperscriptBox[
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "2"], "+", 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"A", "[", 
                  RowBox[{"r", ",", "t"}], "]"}]}], " ", 
                RowBox[{"kA", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"kA", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"kB", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                SuperscriptBox[
                 RowBox[{"\[Psi]", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
               RowBox[{
                SuperscriptBox["dalpha", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"r", ",", "t"}], "]"}], "+", 
               RowBox[{
                SuperscriptBox["dB", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ")"}]}]}], ")"}],
        "2"]}], "+", 
     RowBox[{
      FractionBox["1", "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "4"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", "4"}], "+", 
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"B", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"kA", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
               RowBox[{"6", " ", 
                RowBox[{"kA", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], " ", 
                RowBox[{"kB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], "-", 
               RowBox[{"4", " ", 
                SuperscriptBox[
                 RowBox[{"kB", "[", 
                  RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], ")"}]}]}], 
           ")"}]}], "+", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"8", "+", 
            RowBox[{"r", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"20", " ", 
                RowBox[{"dB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], "+", 
               RowBox[{
                RowBox[{"dA", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"-", "6"}], "+", 
                  RowBox[{"r", " ", 
                   RowBox[{"dalpha", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "-", 
                  RowBox[{"3", " ", "r", " ", 
                   RowBox[{"dB", "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"-", "2"}], " ", 
                   SuperscriptBox[
                    RowBox[{"dalpha", "[", 
                    RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
                  RowBox[{"5", " ", 
                   SuperscriptBox[
                    RowBox[{"dB", "[", 
                    RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
                  RowBox[{"4", " ", 
                   SuperscriptBox[
                    RowBox[{"\[Psi]", "[", 
                    RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
                  RowBox[{"2", " ", 
                   RowBox[{
                    SuperscriptBox["dalpha", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}], "+", 
                  RowBox[{"6", " ", 
                   RowBox[{
                    SuperscriptBox["dB", 
                    TagBox[
                    RowBox[{"(", 
                    RowBox[{"1", ",", "0"}], ")"}],
                    Derivative],
                    MultilineFunction->None], "[", 
                    RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}], 
           ")"}]}]}], ")"}], "2"]}], "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", "r", " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{
           SuperscriptBox["kB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"2", " ", "r", " ", 
                RowBox[{"dalpha", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"dB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
             RowBox[{"\[Alpha]", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "-", 
            RowBox[{"2", " ", "r", " ", 
             RowBox[{
              SuperscriptBox["\[Alpha]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{
          RowBox[{"kA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"2", "+", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"dalpha", "[", 
                   RowBox[{"r", ",", "t"}], "]"}], "+", 
                  RowBox[{"dB", "[", 
                   RowBox[{"r", ",", "t"}], "]"}]}], ")"}]}]}], ")"}], " ", 
             RowBox[{"\[Alpha]", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "-", 
            RowBox[{"r", " ", 
             RowBox[{
              SuperscriptBox["\[Alpha]", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}], "2"]}], 
     "-", 
     RowBox[{"8", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      SuperscriptBox[
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"kA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          SuperscriptBox[
           RowBox[{"\[Alpha]", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
         RowBox[{"2", " ", "r", " ", 
          RowBox[{"\[Alpha]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"dalpha", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"kA", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"kB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["kA", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}], "-", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", "2"}], "+", 
               RowBox[{"\[Alpha]", "[", 
                RowBox[{"r", ",", "t"}], "]"}]}], ")"}], " ", 
             RowBox[{
              SuperscriptBox["kB", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{
           SuperscriptBox["\[Alpha]", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], "2"]}]}], ")"}]}], 
  "]"}]], "Output",
 CellChangeTimes->{
  3.8383733400700436`*^9, {3.8383734804645185`*^9, 3.8383734989314823`*^9}, 
   3.8383735454159684`*^9, 3.84235158627114*^9, 3.8425067752921205`*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"43805454-3aef-472c-a2ee-91aea9879289"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"simpeom", "[", "scalar", "]"}], " ", "/.", "  ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "-", 
      RowBox[{"2", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]}], "}"}]}], " ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8423452792951574`*^9, 3.842345286014511*^9}, {
  3.8423455497731705`*^9, 3.84234564885231*^9}, {3.8423457098202543`*^9, 
  3.8423457158312116`*^9}, {3.8423458334933653`*^9, 3.842345840149002*^9}, {
  3.8423458726105375`*^9, 3.8423458817991123`*^9}, {3.84234609027151*^9, 
  3.8423461707976117`*^9}, {3.842351264933172*^9, 3.8423512672557573`*^9}, {
  3.842352169188213*^9, 3.8423521715601187`*^9}, {3.84235220597522*^9, 
  3.8423522102412643`*^9}, {3.8424288250783043`*^9, 3.842428826634647*^9}, {
  3.8424289433643646`*^9, 3.842428943584159*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"bb4809d3-9700-4482-98b9-1423a14b483d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox["4", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}]]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"kB", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"k", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{"3", " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{"4", "+", 
     RowBox[{"12", " ", "r", " ", 
      RowBox[{"dB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
     RowBox[{"2", " ", "r", " ", 
      RowBox[{"dA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"r", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SuperscriptBox["dB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}]]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"]}]]], "Output",
 CellChangeTimes->{3.8423545513387523`*^9, 3.8424288271839457`*^9, 
  3.842428944013054*^9, 3.8425067756011286`*^9, 3.8425136758529863`*^9},
 CellLabel->
  "Out[162]=",ExpressionUUID->"3f30b810-b0e9-49ef-88d1-0c3cdee07464"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.842354528684656*^9, 
  3.842354555075057*^9}},ExpressionUUID->"b03068d7-a13e-468f-b289-\
e84f9eb5758d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"scalar2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"simpeom", "[", "scalar", "]"}], " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"k", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "-", 
       RowBox[{"2", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}]}], "}"}]}], " ", "//", " ", 
   "Simplify", " "}]}]], "Input",
 CellChangeTimes->{{3.8423466365015635`*^9, 3.842346656008631*^9}, {
  3.842354443183653*^9, 3.842354444124981*^9}, {3.842354527305281*^9, 
  3.8423545461049232`*^9}, {3.8424288974427614`*^9, 3.8424289201043715`*^9}, {
  3.842428954858714*^9, 3.8424289751888533`*^9}, {3.8424291801925554`*^9, 
  3.842429180511037*^9}, {3.8424292110286045`*^9, 3.8424292125751224`*^9}, {
  3.8424361923361454`*^9, 3.84243619403555*^9}, {3.8424362461550007`*^9, 
  3.8424362463968143`*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"a204a3c3-921b-4001-92e5-4a4adffd41bd"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    FractionBox["4", 
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}]]}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    RowBox[{"kB", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"k", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{"3", " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{"4", "+", 
     RowBox[{"12", " ", "r", " ", 
      RowBox[{"dB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
     RowBox[{"2", " ", "r", " ", 
      RowBox[{"dA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"r", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SuperscriptBox["dB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}]]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"]}]]], "Output",
 CellChangeTimes->{{3.842346648619567*^9, 3.8423466563099203`*^9}, 
   3.8423544453146067`*^9, {3.8423545355575237`*^9, 3.842354546625228*^9}, {
   3.842428917672957*^9, 3.8424289205439415`*^9}, {3.8424289579322*^9, 
   3.842428975565628*^9}, 3.842429028283852*^9, 3.84242918107228*^9, 
   3.8424292130257607`*^9, 3.842436200565407*^9, 3.8424362520049005`*^9, 
   3.842506775742977*^9, 3.8425136788595915`*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"20637dcd-5480-4080-b9de-f541691afc3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"einsteintrace2", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"simpeom", "[", "einsteintrace", "]"}], " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
      RowBox[{
       RowBox[{"k", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "-", 
       RowBox[{"2", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}]}], "}"}]}], " ", "//", " ", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.8424288085228553`*^9, 3.842428831085874*^9}, {
  3.8424288637130957`*^9, 3.842428879182852*^9}, {3.842429184102473*^9, 
  3.8424291845526237`*^9}, {3.842436196204999*^9, 3.8424361986985817`*^9}, {
  3.842436249114977*^9, 3.8424362501688356`*^9}},
 CellLabel->
  "In[164]:=",ExpressionUUID->"1cfbe5a6-0b17-45b5-90da-ab66c7b66f76"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"4", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"B", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], "+", 
      RowBox[{
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", " ", 
          RowBox[{"k", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "-", 
         RowBox[{"3", " ", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
   FractionBox[
    RowBox[{"4", "+", 
     RowBox[{"12", " ", "r", " ", 
      RowBox[{"dB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"3", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
     RowBox[{"2", " ", "r", " ", 
      RowBox[{"dA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"r", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      RowBox[{
       SuperscriptBox["dB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}]]}], 
  RowBox[{"2", " ", 
   SuperscriptBox["r", "2"]}]]], "Output",
 CellChangeTimes->{
  3.842428831422695*^9, {3.842428864812951*^9, 3.8424288801473594`*^9}, {
   3.842429185123625*^9, 3.842429214695593*^9}, 3.8424362027865868`*^9, 
   3.842436255126707*^9, 3.8425067785981264`*^9, 3.8425136849220634`*^9},
 CellLabel->
  "Out[164]=",ExpressionUUID->"5b3caf9c-7d02-421f-8596-c5d2808cc821"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"einsteintrace2", "+", "scalar2"}], " ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{
  3.842415211703645*^9, {3.842436116694809*^9, 3.8424361435653133`*^9}, {
   3.84243620483638*^9, 3.8424362056266093`*^9}, {3.8424363491563983`*^9, 
   3.8424363496741467`*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"a61d32d1-201a-4ed9-8734-87604aaf0adc"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8424361218658714`*^9, 3.842436143996331*^9}, 
   3.842436206147134*^9, 3.8424362570947514`*^9, 3.842436350146511*^9, 
   3.842506779346386*^9, 3.8425136907176104`*^9},
 CellLabel->
  "Out[165]=",ExpressionUUID->"69ea8fbb-8c90-4638-b763-11ec6611a5c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"stresstrace", " ", "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8424379777174826`*^9, 3.8424379855319214`*^9}},
 CellLabel->"In[94]:=",ExpressionUUID->"840c61af-d6c2-4b5a-a421-f40adf6c591d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   SuperscriptBox[
    RowBox[{"\[Chi]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "2"], "-", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"B", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"\[Psi]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "2"]}]}], 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   SuperscriptBox[
    RowBox[{"B", "[", 
     RowBox[{"r", ",", "t"}], "]"}], "2"]}]]], "Output",
 CellChangeTimes->{{3.8424379800721025`*^9, 3.842437985801431*^9}, 
   3.8425067801515255`*^9},
 CellLabel->"Out[94]=",ExpressionUUID->"d632809a-e575-4dac-8798-924711a8f202"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"einsteinUD", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
   RowBox[{"einsteinUD", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "4"}], "]"}], "]"}]}], " ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.842505691299901*^9, 3.8425057207352686`*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"3108eaa4-f819-49e7-bb7c-3a1099437679"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "2"]}]], 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", 
     FractionBox["4", 
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}]]}], "+", 
    RowBox[{"4", " ", 
     SuperscriptBox["r", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"kA", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"kB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["kB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}], 
        RowBox[{"\[Alpha]", "[", 
         RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}], "+", 
    FractionBox[
     RowBox[{
      RowBox[{
       RowBox[{"-", "r"}], " ", 
       RowBox[{"dA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"r", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"4", " ", "r", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          SuperscriptBox[
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
         RowBox[{
          SuperscriptBox["r", "2"], " ", 
          RowBox[{
           SuperscriptBox["dB", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"1", ",", "0"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}]], "Output",
 CellChangeTimes->{3.8425057212151294`*^9, 3.84250678151447*^9},
 CellLabel->"Out[95]=",ExpressionUUID->"1c6b47c3-90f4-4030-95ed-91f58ce8bdf8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"kBeom2", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Reduce", "[", 
    RowBox[{
     RowBox[{"Simplify", "[", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"einsteinUD", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
         RowBox[{"einsteinUD", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "4"}], "]"}], "]"}], "-", 
         RowBox[{"stressUD", "[", 
          RowBox[{"[", 
           RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", 
         RowBox[{"stressUD", "[", 
          RowBox[{"[", 
           RowBox[{"4", ",", "4"}], "]"}], "]"}]}], "\[Equal]", "0"}], ")"}], 
      "]"}], ",", " ", 
     RowBox[{
      SuperscriptBox["kB", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8425058186753125`*^9, 3.842505980552375*^9}, {
  3.8425060770796366`*^9, 3.8425060854292736`*^9}},
 CellLabel->
  "In[166]:=",ExpressionUUID->"1b88e371-0244-4f71-9cab-04543a6999a3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"r", " ", 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"B", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "\[NotEqual]", "0"}], "&&", 
  RowBox[{
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}], "\[NotEqual]", "0"}], "&&", 
  RowBox[{
   RowBox[{
    SuperscriptBox["kB", 
     TagBox[
      RowBox[{"(", 
       RowBox[{"0", ",", "1"}], ")"}],
      Derivative],
     MultilineFunction->None], "[", 
    RowBox[{"r", ",", "t"}], "]"}], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"]}]], 
    RowBox[{
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"4", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", 
           RowBox[{"B", "[", 
            RowBox[{"r", ",", "t"}], "]"}]], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           RowBox[{"kB", "[", 
            RowBox[{"r", ",", "t"}], "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"kA", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"kB", "[", 
               RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"dA", "[", 
           RowBox[{"r", ",", "t"}], "]"}], " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"2", "+", 
            RowBox[{"4", " ", "r", " ", 
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}]}], "+", 
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             SuperscriptBox[
              RowBox[{"dB", "[", 
               RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
            RowBox[{"r", " ", 
             RowBox[{"dalpha", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{"2", "+", 
               RowBox[{"r", " ", 
                RowBox[{"dB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{
              SuperscriptBox["dB", 
               TagBox[
                RowBox[{"(", 
                 RowBox[{"1", ",", "0"}], ")"}],
                Derivative],
               MultilineFunction->None], "[", 
              RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], 
        RowBox[{"A", "[", 
         RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}]}]}]}]], "Output",
 CellChangeTimes->{{3.842505950022468*^9, 3.842505981101488*^9}, {
   3.842506083169361*^9, 3.8425060857789564`*^9}, 3.842506783730629*^9, 
   3.842514085862258*^9},
 CellLabel->
  "Out[166]=",ExpressionUUID->"b26d8c00-7b89-401c-974c-844cd6b4a25c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"kBeom2", "-", "kBeom"}], " ", "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.842506091900123*^9, 3.8425061167403*^9}},
 CellLabel->
  "In[167]:=",ExpressionUUID->"ace05a70-baf6-4a85-9ad6-5bef9fefd84c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"r", " ", 
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "\[NotEqual]", "0"}], "&&", 
    RowBox[{
     RowBox[{
      SuperscriptBox["kB", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}], "\[Equal]", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"4", " ", 
        SuperscriptBox["r", "2"]}]], 
      RowBox[{
       RowBox[{"\[Alpha]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"4", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox["1", 
             RowBox[{"B", "[", 
              RowBox[{"r", ",", "t"}], "]"}]], "+", 
            RowBox[{
             SuperscriptBox["r", "2"], " ", 
             RowBox[{"kB", "[", 
              RowBox[{"r", ",", "t"}], "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"kA", "[", 
                RowBox[{"r", ",", "t"}], "]"}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"kB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}], "+", 
         FractionBox[
          RowBox[{
           RowBox[{"r", " ", 
            RowBox[{"dA", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", 
              RowBox[{"r", " ", 
               RowBox[{"dB", "[", 
                RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", 
              RowBox[{"4", " ", "r", " ", 
               RowBox[{"dB", "[", 
                RowBox[{"r", ",", "t"}], "]"}]}], "+", 
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox[
                RowBox[{"dB", "[", 
                 RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"dalpha", "[", 
                RowBox[{"r", ",", "t"}], "]"}], " ", 
               RowBox[{"(", 
                RowBox[{"2", "+", 
                 RowBox[{"r", " ", 
                  RowBox[{"dB", "[", 
                   RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               RowBox[{
                SuperscriptBox["dB", 
                 TagBox[
                  RowBox[{"(", 
                   RowBox[{"1", ",", "0"}], ")"}],
                  Derivative],
                 MultilineFunction->None], "[", 
                RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], 
          RowBox[{"A", "[", 
           RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}]}]}]}], ")"}], "+", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"4", " ", 
     SuperscriptBox["r", "2"]}]], 
   RowBox[{
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["4", 
        RowBox[{"B", "[", 
         RowBox[{"r", ",", "t"}], "]"}]]}], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"kB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
      FractionBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "r"}], " ", 
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"4", " ", "r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox[
             RowBox[{"dB", "[", 
              RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}], " ", 
            RowBox[{"(", 
             RowBox[{"2", "+", 
              RowBox[{"r", " ", 
               RowBox[{"dB", "[", 
                RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
           RowBox[{
            SuperscriptBox["r", "2"], " ", 
            RowBox[{
             SuperscriptBox["dB", 
              TagBox[
               RowBox[{"(", 
                RowBox[{"1", ",", "0"}], ")"}],
               Derivative],
              MultilineFunction->None], "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{{3.842506099595813*^9, 3.8425061173358393`*^9}, 
   3.842506785331318*^9, 3.842514087896942*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"deba6d1c-ee47-4390-ad46-c754ace04f2f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"kAeom2", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Reduce", "[", 
    RowBox[{
     RowBox[{"Simplify", "[", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"einsteinUD", "[", 
           RowBox[{"[", 
            RowBox[{"4", ",", "4"}], "]"}], "]"}], "-", 
          RowBox[{"einsteinUD", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "+", 
          RowBox[{"2", 
           RowBox[{"einsteinUD", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "-", 
          RowBox[{"stressUD", "[", 
           RowBox[{"[", 
            RowBox[{"4", ",", "4"}], "]"}], "]"}], "+", 
          RowBox[{"stressUD", "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "1"}], "]"}], "]"}], "-", 
          RowBox[{"2", 
           RowBox[{"stressUD", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], ")"}], "\[Equal]", 
        "0"}], ")"}], "]"}], ",", " ", 
     RowBox[{
      SuperscriptBox["kA", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"0", ",", "1"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8425062641884146`*^9, 3.8425063338697042`*^9}, {
  3.842507522338642*^9, 3.842507527430437*^9}, {3.8425075735102315`*^9, 
  3.842507573739094*^9}, {3.842507751573542*^9, 3.842507755651486*^9}},
 CellLabel->
  "In[128]:=",ExpressionUUID->"40a09aef-eb09-4937-8437-03c6530971ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"r", " ", 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "\[NotEqual]", "0"}], "&&", 
  RowBox[{
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}], "\[NotEqual]", "0"}], "&&", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["kA", 
      TagBox[
       RowBox[{"(", 
        RowBox[{"0", ",", "1"}], ")"}],
       Derivative],
      MultilineFunction->None], "[", 
     RowBox[{"r", ",", "t"}], "]"}], "+", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]], 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"4", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
        RowBox[{
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dalpha", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]}], "\[Equal]", 
   RowBox[{
    RowBox[{"kA", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}]}]}]], "Output",
 CellChangeTimes->{3.8425063389993744`*^9, 3.842506515031259*^9, 
  3.842506787033591*^9, 3.842507534522871*^9, 3.842507705532607*^9, 
  3.8425077574240265`*^9},
 CellLabel->
  "Out[128]=",ExpressionUUID->"9310fdec-1b17-4bb4-bcf6-2f794b82a222"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Simplify", "[", "kAeom", "]"}], "+", " ", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"2", " ", "r", " ", 
      RowBox[{"A", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]], 
    RowBox[{
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"2", " ", "r", " ", 
        SuperscriptBox[
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{"4", " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"r", " ", 
        SuperscriptBox[
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
       RowBox[{
        RowBox[{"dA", "[", 
         RowBox[{"r", ",", "t"}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{"2", "+", 
          RowBox[{"r", " ", 
           RowBox[{"dalpha", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}], "+", 
          RowBox[{"r", " ", 
           RowBox[{"dB", "[", 
            RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", "r", " ", 
        SuperscriptBox[
         RowBox[{"\[Psi]", "[", 
          RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{
         SuperscriptBox["dalpha", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"2", " ", "r", " ", 
        RowBox[{
         SuperscriptBox["dB", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"1", ",", "0"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], "-", 
   RowBox[{
    RowBox[{"kA", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "+", 
      RowBox[{"2", " ", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}]}], "//", " ", "Simplify"}]], "Input",
 CellChangeTimes->{{3.8425063892587886`*^9, 3.842506411785519*^9}, 
   3.8425064728000913`*^9, {3.8425065293036413`*^9, 3.842506610610133*^9}, {
   3.8425068374185266`*^9, 3.842506882122424*^9}, {3.8425070239492707`*^9, 
   3.8425070547591004`*^9}, {3.8425070924005504`*^9, 3.842507111531637*^9}},
 CellLabel->
  "In[160]:=",ExpressionUUID->"4c2411a9-29a6-4419-ba2e-33a22d61d397"],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.8425063969959755`*^9, 3.842506412100247*^9}, 
   3.842506473360067*^9, {3.842506539931625*^9, 3.8425066351565704`*^9}, 
   3.8425067894110613`*^9, 3.8425068825315332`*^9, {3.842507027916108*^9, 
   3.8425070551589766`*^9}, {3.8425070935034227`*^9, 3.842507111940273*^9}, 
   3.8425075405001526`*^9, 3.8425077124362316`*^9, 3.8425077609382095`*^9, 
   3.8425136262941713`*^9},
 CellLabel->
  "Out[160]=",ExpressionUUID->"f803e24d-2977-4af3-bc28-deed3a3b4f01"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"kAeom3", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"kA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"kB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
     RowBox[{"\[Alpha]", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "-", 
    RowBox[{
     FractionBox["1", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]], 
     RowBox[{
      RowBox[{"\[Alpha]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"4", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"r", " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
        RowBox[{
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dalpha", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]}], "]"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.8425070059534297`*^9, 3.8425070143602552`*^9}, {
  3.8425071339195423`*^9, 3.842507169036395*^9}},
 CellLabel->
  "In[130]:=",ExpressionUUID->"0716ba6d-277b-4ad7-93e8-cd4f1937c51e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kA", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"kB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "r", " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}]], 
   RowBox[{
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "r", " ", 
       SuperscriptBox[
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{"r", " ", 
       SuperscriptBox[
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"dA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"r", " ", 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{
        SuperscriptBox["dalpha", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{
        SuperscriptBox["dB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{3.8425077649430265`*^9},
 CellLabel->
  "In[131]:=",ExpressionUUID->"bb988aaa-1714-4503-8ecb-8ee8f0b45aaa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kA", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"kB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{"2", " ", "r", " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}]], 
   RowBox[{
    RowBox[{"\[Alpha]", "[", 
     RowBox[{"r", ",", "t"}], "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", "r", " ", 
       SuperscriptBox[
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
      RowBox[{"4", " ", 
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{"r", " ", 
       SuperscriptBox[
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
      RowBox[{
       RowBox[{"dA", "[", 
        RowBox[{"r", ",", "t"}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"2", "+", 
         RowBox[{"r", " ", 
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}], "+", 
         RowBox[{"r", " ", 
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       SuperscriptBox[
        RowBox[{"\[Psi]", "[", 
         RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{
        SuperscriptBox["dalpha", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}], "+", 
      RowBox[{"2", " ", "r", " ", 
       RowBox[{
        SuperscriptBox["dB", 
         TagBox[
          RowBox[{"(", 
           RowBox[{"1", ",", "0"}], ")"}],
          Derivative],
         MultilineFunction->None], "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.842507765048492*^9},
 CellLabel->
  "Out[131]=",ExpressionUUID->"99d537b6-b817-46ae-8353-e195232c2523"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"kAeom", "*", "4", " ", "r", " ", 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "]"}], " ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.842507173775564*^9, 3.8425072217188225`*^9}, {
  3.842507256386407*^9, 3.842507259208687*^9}},
 CellLabel->
  "In[158]:=",ExpressionUUID->"545d31e5-31de-4acb-abbc-2b9883171172"],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"\[Alpha]", "[", 
   RowBox[{"r", ",", "t"}], "]"}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "r", " ", 
     SuperscriptBox[
      RowBox[{"dalpha", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
    RowBox[{"4", " ", 
     RowBox[{"dB", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "-", 
    RowBox[{"r", " ", 
     SuperscriptBox[
      RowBox[{"dB", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
    RowBox[{
     RowBox[{"dA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"(", 
      RowBox[{"2", "+", 
       RowBox[{"r", " ", 
        RowBox[{"dalpha", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}], "+", 
       RowBox[{"r", " ", 
        RowBox[{"dB", "[", 
         RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
    RowBox[{"2", " ", "r", " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     SuperscriptBox[
      RowBox[{"kA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
    RowBox[{"4", " ", "r", " ", 
     RowBox[{"A", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], " ", 
     RowBox[{"kB", "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "-", 
    RowBox[{"2", " ", "r", " ", 
     SuperscriptBox[
      RowBox[{"\[Psi]", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
    RowBox[{"2", " ", "r", " ", 
     RowBox[{
      SuperscriptBox["dalpha", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}], "-", 
    RowBox[{"2", " ", "r", " ", 
     RowBox[{
      SuperscriptBox["dB", 
       TagBox[
        RowBox[{"(", 
         RowBox[{"1", ",", "0"}], ")"}],
        Derivative],
       MultilineFunction->None], "[", 
      RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.842507175822117*^9, 3.8425072041581135`*^9}, 
   3.8425072621130457`*^9, 3.8425075628989363`*^9, 3.842507716613652*^9, 
   3.8425077675187907`*^9, 3.8425136059538617`*^9},
 CellLabel->
  "Out[158]=",ExpressionUUID->"863a3140-8cc6-4527-8b33-b4ae19a7efad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Simplify", "[", 
   RowBox[{"kAeom3", "*", "4", " ", "r", " ", 
    RowBox[{"A", "[", 
     RowBox[{"r", ",", "t"}], "]"}]}], "]"}], " ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{
  3.842507224992092*^9, 3.8425072696478167`*^9, {3.8425073263360667`*^9, 
   3.8425073305887933`*^9}, {3.8425077776744165`*^9, 3.84250778067375*^9}},
 CellLabel->
  "In[159]:=",ExpressionUUID->"23768003-0c13-4ad3-b2c3-f1ca1d95f802"],

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", "r", " ", 
   RowBox[{"A", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   RowBox[{"kA", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "+", 
     RowBox[{"2", " ", 
      RowBox[{"kB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}], " ", 
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}]}], "-", 
  RowBox[{"2", " ", 
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "r", " ", 
      SuperscriptBox[
       RowBox[{"dalpha", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
     RowBox[{"4", " ", 
      RowBox[{"dB", "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"r", " ", 
      SuperscriptBox[
       RowBox[{"dB", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
     RowBox[{
      RowBox[{"dA", "[", 
       RowBox[{"r", ",", "t"}], "]"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "+", 
        RowBox[{"r", " ", 
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"r", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
     RowBox[{"2", " ", "r", " ", 
      SuperscriptBox[
       RowBox[{"\[Psi]", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
     RowBox[{"2", " ", "r", " ", 
      RowBox[{
       SuperscriptBox["dalpha", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}], "+", 
     RowBox[{"2", " ", "r", " ", 
      RowBox[{
       SuperscriptBox["dB", 
        TagBox[
         RowBox[{"(", 
          RowBox[{"1", ",", "0"}], ")"}],
         Derivative],
        MultilineFunction->None], "[", 
       RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.842507225365307*^9, 3.8425072700795946`*^9, 3.8425073310707855`*^9, 
   3.8425075649982986`*^9, 3.8425077189543943`*^9, {3.842507769627376*^9, 
   3.842507781614064*^9}, 3.842513608081173*^9},
 CellLabel->
  "Out[159]=",ExpressionUUID->"31389b43-2b2f-4e7d-94da-ea77c248813a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"kAeom3", "+", 
    RowBox[{"2", "kBeom"}]}], " ", "/.", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"kA", "[", 
      RowBox[{"r", ",", "t"}], "]"}], "\[Rule]", " ", 
     RowBox[{
      RowBox[{"k", "[", 
       RowBox[{"r", ",", "t"}], "]"}], "-", 
      RowBox[{"2", 
       RowBox[{"kB", "[", 
        RowBox[{"r", ",", "t"}], "]"}]}]}]}], "}"}]}], " ", "//", " ", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.8425078117238245`*^9, 3.8425078381095743`*^9}, {
  3.8425100902223473`*^9, 3.8425101154427476`*^9}, {3.8425134033278475`*^9, 
  3.842513424425523*^9}, {3.8425134614340253`*^9, 3.8425134927564077`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"0444e32c-1c0c-4fbc-987f-fdff5c6b0d5e"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   RowBox[{"2", " ", 
    SuperscriptBox["r", "2"]}]], 
  RowBox[{
   RowBox[{"\[Alpha]", "[", 
    RowBox[{"r", ",", "t"}], "]"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox["4", 
      RowBox[{"B", "[", 
       RowBox[{"r", ",", "t"}], "]"}]], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox[
       RowBox[{"k", "[", 
        RowBox[{"r", ",", "t"}], "]"}], "2"]}], "-", 
     RowBox[{
      FractionBox["1", 
       RowBox[{"A", "[", 
        RowBox[{"r", ",", "t"}], "]"}]], 
      RowBox[{"(", 
       RowBox[{"4", "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"dalpha", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"12", " ", "r", " ", 
         RowBox[{"dB", "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"3", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"dB", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"2", " ", "r", " ", 
         RowBox[{"dalpha", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"2", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "-", 
        RowBox[{"r", " ", 
         RowBox[{"dA", "[", 
          RowBox[{"r", ",", "t"}], "]"}], " ", 
         RowBox[{"(", 
          RowBox[{"4", "+", 
           RowBox[{"r", " ", 
            RowBox[{"dalpha", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}], "+", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"dB", "[", 
             RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox[
          RowBox[{"\[Psi]", "[", 
           RowBox[{"r", ",", "t"}], "]"}], "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{
          SuperscriptBox["dalpha", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "2"], " ", 
         RowBox[{
          SuperscriptBox["dB", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"1", ",", "0"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"r", ",", "t"}], "]"}]}]}], ")"}]}]}], ")"}]}]}]], "Output",
 CellChangeTimes->{{3.84251010975519*^9, 3.8425101157523117`*^9}, {
  3.8425134747274375`*^9, 3.84251349377951*^9}},
 CellLabel->
  "Out[146]=",ExpressionUUID->"a7caad7e-5a27-498d-a467-99f84184be8c"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.842509786090183*^9, 3.842509810871946*^9}, 
   3.84250989521385*^9, {3.842509964383606*^9, 3.842510029592305*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"2ae5d608-875c-4185-a01f-5fff06b9de45"]
},
WindowSize->{1117, 673},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.2 Inherited,
FrontEndVersion->"12.2 for Microsoft Windows (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"2c57fb80-0eaf-412c-b24c-de7a0d8873f5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 532, 10, 58, "Input",ExpressionUUID->"0556f6f8-50b4-4d2f-8f5b-d21c83a070db"],
Cell[1115, 34, 601, 8, 38, "Output",ExpressionUUID->"e8991ced-efda-4c45-8d99-b35b6c53f191"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1753, 47, 282, 5, 34, "Input",ExpressionUUID->"857927d9-33fa-4158-bfd5-72360cf20121"],
Cell[2038, 54, 438, 6, 38, "Output",ExpressionUUID->"f79f9e66-23e5-4dbd-8cd9-f618d59e573f"]
}, Open  ]],
Cell[2491, 63, 763, 12, 58, "Input",ExpressionUUID->"a246c59f-c163-49c2-aef3-5c28b4853d3f"],
Cell[CellGroupData[{
Cell[3279, 79, 195, 3, 34, "Input",ExpressionUUID->"51931a6c-7af1-4645-bbfe-dfcfa9d4df48"],
Cell[3477, 84, 648, 9, 38, "Output",ExpressionUUID->"506c4d6b-5262-4684-b016-494fc0bc6be0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4162, 98, 391, 9, 58, "Input",ExpressionUUID->"2a221e7d-00d2-4c4a-929c-678dbc3ed2ce"],
Cell[4556, 109, 826, 12, 38, "Output",ExpressionUUID->"da8c528d-9388-45d6-a085-7da1901c25ed"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5419, 126, 1224, 34, 63, "Input",ExpressionUUID->"9c1ecd40-cec3-4a90-b003-c420a89f55aa"],
Cell[6646, 162, 1431, 35, 42, "Output",ExpressionUUID->"11daf592-7e91-41b9-a84e-8036923fc2a0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8114, 202, 1007, 30, 37, "Input",ExpressionUUID->"7a17eb39-6679-46f9-9f33-b0c37c245c2c"],
Cell[9124, 234, 1396, 36, 42, "Output",ExpressionUUID->"3a074b23-0f2e-449b-bb3c-7d4d09634913"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10557, 275, 215, 3, 34, "Input",ExpressionUUID->"d648011d-8748-460e-bce0-5449a0f7f336"],
Cell[10775, 280, 1696, 44, 118, "Output",ExpressionUUID->"acd41f65-a13d-48a3-bd70-aa6852dc501b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12508, 329, 3747, 98, 252, "Input",ExpressionUUID->"63ad1b62-7345-43bd-b586-cf65a1d8c511"],
Cell[16258, 429, 1778, 44, 59, "Output",ExpressionUUID->"db24fc75-3f46-4d33-ad4a-b92e52d48d0e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18073, 478, 230, 3, 34, "Input",ExpressionUUID->"6c3f5b23-6d8d-4a9b-8646-c6f365fc7ba3"],
Cell[18306, 483, 1689, 46, 160, "Output",ExpressionUUID->"6d24e63b-a183-4c90-a220-2f7d0e328dad"]
}, Open  ]],
Cell[20010, 532, 2408, 58, 127, "Input",ExpressionUUID->"62ed938d-acfe-4032-9eab-99c1627fc1b2"],
Cell[22421, 592, 1277, 32, 58, "Input",ExpressionUUID->"b443b254-5aad-476f-8e7b-f1fac1261c68"],
Cell[CellGroupData[{
Cell[23723, 628, 660, 16, 34, "Input",ExpressionUUID->"ad41cbd9-29d1-443a-bfd2-4e5768094c58"],
Cell[24386, 646, 7024, 194, 619, "Output",ExpressionUUID->"05a78ccb-8590-4df4-b492-eb29461517b8"]
}, Open  ]],
Cell[31425, 843, 2186, 56, 127, "Input",ExpressionUUID->"132a62f8-6399-43a4-8925-b3a987896c62"],
Cell[33614, 901, 1340, 34, 81, "Input",ExpressionUUID->"7c282a9c-3797-4341-a7d5-770dce001f03"],
Cell[CellGroupData[{
Cell[34979, 939, 664, 17, 34, "Input",ExpressionUUID->"e26e6889-29ff-4652-8f60-35908023530d"],
Cell[35646, 958, 70538, 2043, 1328, "Output",ExpressionUUID->"ffde46b8-d635-4788-bbcf-30b12941c009"]
}, Open  ]],
Cell[106199, 3004, 169, 2, 34, "Input",ExpressionUUID->"7d7697ad-29b4-4986-a0b1-b80a8bb3d475"],
Cell[106371, 3008, 175, 2, 34, "Input",ExpressionUUID->"048c2ddf-e277-4b12-940d-ec3bb4925074"],
Cell[106549, 3012, 1961, 50, 127, "Input",ExpressionUUID->"3d098afe-7cd4-473c-8a85-0255279554e6"],
Cell[108513, 3064, 995, 26, 58, "Input",ExpressionUUID->"67288251-cbf6-4e8d-9b92-5adde4be58d7"],
Cell[CellGroupData[{
Cell[109533, 3094, 671, 17, 34, "Input",ExpressionUUID->"ca10f3db-7b40-48ac-b055-2fd9bf1a171c"],
Cell[110207, 3113, 16053, 447, 275, "Output",ExpressionUUID->"b3e63bad-61db-4df5-be01-52fd0dbe8f6b"]
}, Open  ]],
Cell[126275, 3563, 996, 24, 34, "Input",ExpressionUUID->"e3d2cc79-2f33-455e-837c-dd4e81cc9691"],
Cell[127274, 3589, 1171, 28, 58, "Input",ExpressionUUID->"fab6702d-5056-47b0-ae0a-ace3ecb6ba0f"],
Cell[CellGroupData[{
Cell[128470, 3621, 1206, 25, 58, "Input",ExpressionUUID->"ec207b69-6016-4603-9812-73dcc1726389"],
Cell[129679, 3648, 12964, 377, 283, "Output",ExpressionUUID->"1ff8ce31-7f9d-47cf-bcee-38a92fd9a278"]
}, Open  ]],
Cell[CellGroupData[{
Cell[142680, 4030, 215, 3, 34, "Input",ExpressionUUID->"2671c7e3-b85f-4a9b-9284-65051f2954f6"],
Cell[142898, 4035, 851, 17, 38, "Output",ExpressionUUID->"b8c080c7-c177-49af-9e02-0b41df649188"]
}, Open  ]],
Cell[143764, 4055, 222, 3, 34, "Input",ExpressionUUID->"3503fef9-caba-4869-ad13-bfb6e0fc5ee7"],
Cell[143989, 4060, 2695, 68, 63, "Input",ExpressionUUID->"e5fc8f32-fbc7-4b03-9870-6dd53047a085"],
Cell[CellGroupData[{
Cell[146709, 4132, 414, 9, 34, "Input",ExpressionUUID->"aef3f47f-9e9e-44b8-bd75-2b2b67a3cf2d"],
Cell[147126, 4143, 642, 9, 38, "Output",ExpressionUUID->"f983361d-184c-435e-8d18-798c1d577262"]
}, Open  ]],
Cell[147783, 4155, 1121, 33, 37, "Input",ExpressionUUID->"c8ad9b55-49a5-4a7e-b1fc-fc1a7cdf924e"],
Cell[CellGroupData[{
Cell[148929, 4192, 2131, 56, 63, "Input",ExpressionUUID->"66b5ad2c-0c27-44c2-ae91-8122b27f9ad7"],
Cell[151063, 4250, 459, 6, 38, "Output",ExpressionUUID->"b5e5b3c0-d891-4d5a-9d4a-a08c0a864dc5"]
}, Open  ]],
Cell[151537, 4259, 3642, 110, 133, "Input",ExpressionUUID->"e62dc469-1f37-4a68-ae16-47f4ea239ad4"],
Cell[CellGroupData[{
Cell[155204, 4373, 465, 10, 34, "Input",ExpressionUUID->"11d3b712-88cd-4420-805b-d9f6985f1d5e"],
Cell[155672, 4385, 668, 10, 38, "Output",ExpressionUUID->"b47ee8f7-5c91-4889-abe5-cb15d25df4c5"]
}, Open  ]],
Cell[156355, 4398, 2914, 89, 156, "Input",ExpressionUUID->"7b3d53e4-c729-4582-8c8a-9519f8ab7051"],
Cell[CellGroupData[{
Cell[159294, 4491, 342, 8, 34, "Input",ExpressionUUID->"915dc588-45d0-4002-b1af-c71431d194a3"],
Cell[159639, 4501, 483, 7, 38, "Output",ExpressionUUID->"87166e22-971f-4fab-b790-65f08536f49c"]
}, Open  ]],
Cell[160137, 4511, 2502, 62, 127, "Input",ExpressionUUID->"b89a216c-95b5-4ca7-bea6-9a40db5e0a9a"],
Cell[CellGroupData[{
Cell[162664, 4577, 258, 5, 34, "Input",ExpressionUUID->"99e3edf5-c7d8-4cfe-839f-419d1f16189a"],
Cell[162925, 4584, 5848, 171, 180, "Output",ExpressionUUID->"aed16498-0704-4d95-ae0d-22b644ec1c79"]
}, Open  ]],
Cell[168788, 4758, 173, 2, 34, "Input",ExpressionUUID->"4bdc6ecd-af04-42d8-a371-4efe1f2ab49f"],
Cell[168964, 4762, 889, 22, 34, "Input",ExpressionUUID->"4aa9aa81-44fa-483d-a6d6-dea21f53ceac"],
Cell[169856, 4786, 1041, 27, 58, "Input",ExpressionUUID->"7d68add2-25cb-45b9-a50f-dcb43611357b"],
Cell[CellGroupData[{
Cell[170922, 4817, 660, 17, 58, "Input",ExpressionUUID->"5862fd3d-b3bc-4d17-b096-0cb33cfe3b87"],
Cell[171585, 4836, 3795, 113, 238, "Output",ExpressionUUID->"fcf34ac7-de07-476e-8f99-96c40c7dfa27"]
}, Open  ]],
Cell[175395, 4952, 703, 16, 34, "Input",ExpressionUUID->"a2942086-a2a1-45ad-833e-fc6009c3a007"],
Cell[CellGroupData[{
Cell[176123, 4972, 174, 2, 34, "Input",ExpressionUUID->"58b71a12-d332-4ca0-99b9-a4ed7cfe4df4"],
Cell[176300, 4976, 2803, 81, 87, "Output",ExpressionUUID->"e391f19c-9d2e-4e41-bd50-3c3e68224cc9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[179140, 5062, 2322, 66, 130, "Input",ExpressionUUID->"22d4809b-f3f2-46db-b05e-1b4aecd2ae2e"],
Cell[181465, 5130, 8393, 246, 192, "Output",ExpressionUUID->"e0c73c5f-85a2-4d88-b5b4-0e00d74fa2a9"]
}, Open  ]],
Cell[189873, 5379, 10198, 308, 496, "Input",ExpressionUUID->"247ea598-f602-4ec0-bf0d-99a4624699f2"],
Cell[200074, 5689, 2859, 78, 312, "Input",ExpressionUUID->"c7a77ed1-cead-4606-b87a-cfefa43ed10c"],
Cell[202936, 5769, 2988, 80, 127, "Input",ExpressionUUID->"1c1a03ff-33b6-442b-998e-327f2d72c5c0"],
Cell[205927, 5851, 6713, 181, 235, "Input",ExpressionUUID->"fbce883b-cd80-4a32-a18c-f3b9a548fcc1"],
Cell[212643, 6034, 3270, 85, 150, "Input",ExpressionUUID->"183bbf8a-3c89-4b46-8167-58bb67649975"],
Cell[215916, 6121, 921, 25, 34, "Input",ExpressionUUID->"780b6291-c0be-4366-a58e-2908421c4442"],
Cell[CellGroupData[{
Cell[216862, 6150, 2490, 76, 81, "Input",ExpressionUUID->"0837007c-5133-4bc2-8217-acaa71840561"],
Cell[219355, 6228, 9656, 265, 238, "Output",ExpressionUUID->"fcc9c707-6639-44d8-8ecf-4c86a34b315c"]
}, Open  ]],
Cell[229026, 6496, 4314, 125, 133, "Input",ExpressionUUID->"2d167ba4-4212-4c6e-97f6-7e39587567e9"],
Cell[CellGroupData[{
Cell[233365, 6625, 222, 3, 34, "Input",ExpressionUUID->"7c3a517b-d38b-4de9-a90f-a1cd424da41a"],
Cell[233590, 6630, 15413, 434, 320, "Output",ExpressionUUID->"d7a7415e-cdb1-4050-aa86-f77285e5b674"]
}, Open  ]],
Cell[249018, 7067, 403, 6, 34, "Input",ExpressionUUID->"bba5c026-15b8-4d0e-a56e-6fabcd6f2ac9"],
Cell[249424, 7075, 2087, 59, 84, "Input",ExpressionUUID->"b0c957bf-0c4b-49bf-b673-1d6c0681f58f"],
Cell[251514, 7136, 715, 17, 58, "Input",ExpressionUUID->"70721942-c445-4cc6-b395-0f3720213d5d"],
Cell[252232, 7155, 4685, 130, 156, "Input",ExpressionUUID->"7d7591c7-01b0-43f8-812a-4abe689eaeea"],
Cell[CellGroupData[{
Cell[256942, 7289, 573, 12, 34, "Input",ExpressionUUID->"72372511-885e-4e4d-9c56-abd90c665735"],
Cell[257518, 7303, 2253, 66, 62, "Output",ExpressionUUID->"034a2ba6-5759-4331-b49e-7dd029a38ab1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[259808, 7374, 220, 3, 34, "Input",ExpressionUUID->"b9954db2-5c91-415b-b210-92b79bc925ea"],
Cell[260031, 7379, 24904, 704, 376, "Output",ExpressionUUID->"38785b7d-ee58-453e-a8ba-bfab93f5e9f0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[284972, 8088, 365, 7, 34, "Input",ExpressionUUID->"bd521acd-c8df-4b4d-8764-13b412c9b993"],
Cell[285340, 8097, 4239, 127, 180, "Output",ExpressionUUID->"440a8900-a82b-4318-8bdc-ccf1ecaa3ee4"]
}, Open  ]],
Cell[289594, 8227, 750, 18, 34, "Input",ExpressionUUID->"437ed80f-1649-42f3-a791-c7af59962dc4"],
Cell[CellGroupData[{
Cell[290369, 8249, 226, 3, 34, "Input",ExpressionUUID->"f8ac535a-3b72-4dab-8caa-e34131250ccf"],
Cell[290598, 8254, 759, 22, 62, "Output",ExpressionUUID->"4d9f07ee-2a3d-466c-acf8-8999d675dc50"]
}, Open  ]],
Cell[291372, 8279, 722, 16, 34, "Input",ExpressionUUID->"a364c4f0-7d9a-4d62-b712-38dcff0e1ee7"],
Cell[CellGroupData[{
Cell[292119, 8299, 279, 4, 34, "Input",ExpressionUUID->"795d426e-e64c-412a-968a-374296e26213"],
Cell[292401, 8305, 3432, 109, 140, "Output",ExpressionUUID->"29dbdacc-d362-4cdb-8e5d-e7c44c3d8591"]
}, Open  ]],
Cell[295848, 8417, 203, 3, 34, "Input",ExpressionUUID->"b2d161c2-b0c6-4fd5-b894-ec4b086072f8"],
Cell[296054, 8422, 1205, 28, 81, "Input",ExpressionUUID->"17eb38c3-a444-48c9-a1d4-4f96b3c8f1bf"],
Cell[297262, 8452, 1604, 36, 104, "Input",ExpressionUUID->"34e2d3fd-3265-4b7b-ada4-5f7e36144d0a"],
Cell[298869, 8490, 971, 22, 58, "Input",ExpressionUUID->"2ee37242-122d-40c3-ad34-fa73f70f3aea"],
Cell[CellGroupData[{
Cell[299865, 8516, 301, 5, 34, "Input",ExpressionUUID->"ad75e498-f302-4ba5-8aa0-a0f86047a2e0"],
Cell[300169, 8523, 28778, 799, 586, "Output",ExpressionUUID->"5109d9a3-8247-4bf5-b2b1-c464bfa06c39"]
}, Open  ]],
Cell[328962, 9325, 1196, 25, 104, "Input",ExpressionUUID->"7d31f279-6f93-4bda-a36c-cb64474a52e8"],
Cell[CellGroupData[{
Cell[330183, 9354, 783, 19, 37, "Input",ExpressionUUID->"117c5927-f4d8-4a2b-bc1d-ff70e0f52586"],
Cell[330969, 9375, 13293, 373, 341, "Output",ExpressionUUID->"43805454-3aef-472c-a2ee-91aea9879289"]
}, Open  ]],
Cell[CellGroupData[{
Cell[344299, 9753, 1088, 24, 34, "Input",ExpressionUUID->"bb4809d3-9700-4482-98b9-1423a14b483d"],
Cell[345390, 9779, 1932, 60, 73, "Output",ExpressionUUID->"3f30b810-b0e9-49ef-88d1-0c3cdee07464"]
}, Open  ]],
Cell[347337, 9842, 152, 3, 34, "Input",ExpressionUUID->"b03068d7-a13e-468f-b289-e84f9eb5758d"],
Cell[CellGroupData[{
Cell[347514, 9849, 1037, 24, 34, "Input",ExpressionUUID->"a204a3c3-921b-4001-92e5-4a4adffd41bd"],
Cell[348554, 9875, 2202, 64, 73, "Output",ExpressionUUID->"20637dcd-5480-4080-b9de-f541691afc3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[350793, 9944, 842, 21, 34, "Input",ExpressionUUID->"1cfbe5a6-0b17-45b5-90da-ab66c7b66f76"],
Cell[351638, 9967, 2087, 63, 73, "Output",ExpressionUUID->"5b3caf9c-7d02-421f-8596-c5d2808cc821"]
}, Open  ]],
Cell[CellGroupData[{
Cell[353762, 10035, 393, 9, 34, "Input",ExpressionUUID->"a61d32d1-201a-4ed9-8734-87604aaf0adc"],
Cell[354158, 10046, 301, 5, 38, "Output",ExpressionUUID->"69ea8fbb-8c90-4638-b763-11ec6611a5c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[354496, 10056, 226, 3, 34, "Input",ExpressionUUID->"840c61af-d6c2-4b5a-a421-f40adf6c591d"],
Cell[354725, 10061, 687, 21, 62, "Output",ExpressionUUID->"d632809a-e575-4dac-8798-924711a8f202"]
}, Open  ]],
Cell[CellGroupData[{
Cell[355449, 10087, 418, 11, 34, "Input",ExpressionUUID->"3108eaa4-f819-49e7-bb7c-3a1099437679"],
Cell[355870, 10100, 2564, 79, 121, "Output",ExpressionUUID->"1c6b47c3-90f4-4030-95ed-91f58ce8bdf8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[358471, 10184, 1151, 33, 63, "Input",ExpressionUUID->"1b88e371-0244-4f71-9cab-04543a6999a3"],
Cell[359625, 10219, 3107, 91, 121, "Output",ExpressionUUID->"b26d8c00-7b89-401c-974c-844cd6b4a25c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[362769, 10315, 246, 5, 34, "Input",ExpressionUUID->"ace05a70-baf6-4a85-9ad6-5bef9fefd84c"],
Cell[363018, 10322, 5446, 158, 231, "Output",ExpressionUUID->"deba6d1c-ee47-4390-ad46-c754ace04f2f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[368501, 10485, 1586, 43, 159, "Input",ExpressionUUID->"40a09aef-eb09-4937-8437-03c6530971ce"],
Cell[370090, 10530, 2937, 89, 110, "Output",ExpressionUUID->"9310fdec-1b17-4bb4-bcf6-2f794b82a222"]
}, Open  ]],
Cell[CellGroupData[{
Cell[373064, 10624, 2630, 75, 136, "Input",ExpressionUUID->"4c2411a9-29a6-4419-ba2e-33a22d61d397"],
Cell[375697, 10701, 509, 8, 38, "Output",ExpressionUUID->"f803e24d-2977-4af3-bc28-deed3a3b4f01"]
}, Open  ]],
Cell[376221, 10712, 2500, 74, 175, "Input",ExpressionUUID->"0716ba6d-277b-4ad7-93e8-cd4f1937c51e"],
Cell[CellGroupData[{
Cell[378746, 10790, 2219, 70, 136, "Input",ExpressionUUID->"bb988aaa-1714-4503-8ecb-8ee8f0b45aaa"],
Cell[380968, 10862, 2218, 70, 110, "Output",ExpressionUUID->"99d537b6-b817-46ae-8353-e195232c2523"]
}, Open  ]],
Cell[CellGroupData[{
Cell[383223, 10937, 409, 10, 34, "Input",ExpressionUUID->"545d31e5-31de-4acb-abbc-2b9883171172"],
Cell[383635, 10949, 2246, 68, 68, "Output",ExpressionUUID->"863a3140-8cc6-4527-8b33-b4ae19a7efad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[385918, 11022, 463, 11, 34, "Input",ExpressionUUID->"23768003-0c13-4ad3-b2c3-f1ca1d95f802"],
Cell[386384, 11035, 2305, 70, 92, "Output",ExpressionUUID->"31389b43-2b2f-4e7d-94da-ea77c248813a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[388726, 11110, 754, 20, 34, "Input",ExpressionUUID->"0444e32c-1c0c-4fbc-987f-fdff5c6b0d5e"],
Cell[389483, 11132, 2878, 84, 143, "Output",ExpressionUUID->"a7caad7e-5a27-498d-a467-99f84184be8c"]
}, Open  ]],
Cell[392376, 11219, 246, 4, 34, "Input",ExpressionUUID->"2ae5d608-875c-4185-a01f-5fff06b9de45"]
}
]
*)