Asymptotics of gravitational collapse of scalar waves by Gomez and Winicour.nb

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

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

(* CreatedBy='Mathematica 12.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    492161,      11957]
NotebookOptionsPosition[    475017,      11707]
NotebookOutlinePosition[    475487,      11724]
CellTagsIndexPosition[    475444,      11721]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Notebook for :  
Asymptotics of gravitational collapse of scalar waves by Gomez and Winicour\
\>", "Title",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8217294718661222`*^9, 3.821729502043838*^9}, 
   3.8217295683553457`*^9, 3.821732221863006*^9, {3.821811203295624*^9, 
   3.8218112036548367`*^9}, {3.822041768762134*^9, 3.822041781290854*^9}, {
   3.822048009752109*^9, 3.8220480569607773`*^9}, {3.822504877727007*^9, 
   3.8225048874039307`*^9}, {3.822565447028533*^9, 3.822565457908236*^9}, {
   3.822822107930128*^9, 3.822822113128089*^9}, {3.823176459993638*^9, 
   3.823176470345335*^9}, {3.823359338529508*^9, 3.823359361520629*^9}, {
   3.823422938182802*^9, 3.823422938584877*^9}, {3.823431880221382*^9, 
   3.823431897644202*^9}, {3.82343570279051*^9, 3.823435714197551*^9}, {
   3.8279532410864677`*^9, 3.8279532445579853`*^9}, {3.827991128705386*^9, 
   3.827991132320956*^9}, {3.827992663416297*^9, 3.8279926679446497`*^9}, 
   3.828002571005631*^9, {3.828435487218956*^9, 3.828435494634301*^9}, {
   3.828455314498684*^9, 3.828455317626096*^9}, {3.82845929819172*^9, 
   3.828459314167211*^9}, {3.843779381572652*^9, 3.8437793899407473`*^9}, {
   3.843785074708856*^9, 3.843785084156629*^9}, {3.8438206506235723`*^9, 
   3.843820658031605*^9}, 3.8560935992105083`*^9},
 TextAlignment->Center,ExpressionUUID->"7404558f-5151-451e-abd6-24c7d360af30"],

Cell["\<\
Geoff Cope
University of Utah
                                                                              \
                               \|01040f\|01042d\|01044c\|010432\|010442\
\|010432\|010449\|010445\|01042e\|01043b\|010428 \|010432\|010442 \|01040f\
\|01042d\|01043b\|01042b
October 21, 2021\
\>", "Author",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.821729507652328*^9, 3.821729529657844*^9}, 
   3.8220480097522783`*^9, {3.822048070235491*^9, 3.822048084689715*^9}, {
   3.8225654346519403`*^9, 3.8225654361641483`*^9}, {3.8231764728567343`*^9, 
   3.823176482313031*^9}, {3.8233640113399878`*^9, 3.823364023347041*^9}, {
   3.823422996286858*^9, 3.823422999926001*^9}, {3.823602893791738*^9, 
   3.823602896188092*^9}, {3.8236833287515574`*^9, 3.823683328958127*^9}, {
   3.823966903508623*^9, 3.823966903859309*^9}, {3.823966992570949*^9, 
   3.823966994785722*^9}, {3.825859229609981*^9, 3.825859230168909*^9}, {
   3.850737092718917*^9, 3.850737113741796*^9}, 3.8521317157482023`*^9, {
   3.852133617349394*^9, 3.852133621456737*^9}, 3.852135095983374*^9, {
   3.856093599210565*^9, 3.856093606573984*^9}},
 TextAlignment->Center,ExpressionUUID->"a3118640-e16e-4fb8-a22b-c5c6d48f0aa7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlink To Documentation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944675605734*^9, 
  3.8209446931410646`*^9}},ExpressionUUID->"229a0fb1-3376-44e8-aff5-\
24ef55c8ad05"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<GeneralRelativityTensors Documentation and Download\>\"", ",", 
   "\[IndentingNewLine]", 
   "\"\<https://github.com/BlackHolePerturbationToolkit\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944619768764*^9, 3.820944681268063*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"de619fba-350a-4ca9-ac20-f2630bdb9865"],

Cell[BoxData[
 TemplateBox[{
  "\"GeneralRelativityTensors Documentation and Download\"", 
   "https://github.com/BlackHolePerturbationToolkit"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820944653562152*^9, 3.820944681268403*^9}, 
   3.821729905862431*^9, 3.821732641380642*^9, 3.8218069931429567`*^9, 
   3.821811425912986*^9, 3.822042652654992*^9, {3.822048793766124*^9, 
   3.8220488009116488`*^9}, 3.82250502887521*^9, 3.822505578829629*^9, 
   3.822565490613895*^9, 3.8225662097813597`*^9, 3.822606717894772*^9, 
   3.822739433713368*^9, 3.822822210464344*^9, 3.8233594284652433`*^9, 
   3.8233607803938913`*^9, 3.823360880234103*^9, 3.823361224481102*^9, 
   3.82336209870968*^9, 3.823364030542309*^9, 3.823423099366008*^9, 
   3.823432318595525*^9, 3.823435951894755*^9, 3.8234364866582403`*^9, 
   3.8279535191386757`*^9, 3.827991252970625*^9, 3.827992769438249*^9, 
   3.8284359064920053`*^9, 3.828455531917368*^9, 3.828459339591674*^9, 
   3.843784130020441*^9, {3.843818971979954*^9, 3.843818993799385*^9}, 
   3.856093705438526*^9},
 CellLabel->
  "Out[120]=",ExpressionUUID->"0b3d2584-a7d3-45f3-b8bb-68fae474bac8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Hyperlink  To Article", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{
  3.820937794883616*^9, {3.820938266275806*^9, 3.82093829464357*^9}, 
   3.820943883376583*^9, {3.8210324492405148`*^9, 3.821032453951701*^9}, {
   3.8217297279218817`*^9, 3.8217297313782063`*^9}, {3.822593613363134*^9, 
   3.822593616181035*^9}, {3.822736144359599*^9, 3.8227361450547543`*^9}, {
   3.823359417697976*^9, 3.823359420672374*^9}, 3.843137732619809*^9, 
   3.8437794667831078`*^9, 
   3.8437799027991447`*^9},ExpressionUUID->"a8c28d3c-c7a4-4dc9-b41e-\
161edafda03f"],

Cell[BoxData[
 RowBox[{"Hyperlink", "[", 
  RowBox[{
  "\"\<Asymptotics of gravitational collapse of scalar waves by Gomez and \
Winicour\>\"", ",", "\[IndentingNewLine]", 
   "\"\<https://aip.scitation.org/doi/abs/10.1063/1.529721\>\""}], 
  "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843820733624621*^9, 3.843820762178234*^9}},
 CellLabel->
  "In[121]:=",ExpressionUUID->"3c17ad01-e019-4e5f-82e7-89ebd9cb10a5"],

Cell[BoxData[
 TemplateBox[{
  "\"Asymptotics of gravitational collapse of scalar waves by Gomez and \
Winicour\"", "https://aip.scitation.org/doi/abs/10.1063/1.529721"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843820751028064*^9, 3.843820762179287*^9}, 
   3.856093705483934*^9},
 CellLabel->
  "Out[121]=",ExpressionUUID->"503391fd-81e0-4092-a36d-32d5b78f13ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "See", " ", "page", " ", "296", " ", "and", " ", "369", " ", "for", " ", 
    RowBox[{"Bondi", "'"}], "s", " ", "Radiating", " ", "Metric"}], "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{"Hyperlink", "[", 
   RowBox[{
   "\"\<Introducing einstein's relativity d'inverno\>\"", ",", 
    "\[IndentingNewLine]", 
    "\"\<https://profmcruz.files.wordpress.com/2018/02/livro-introducing-\
einsteins-relativity-dinverno.pdf\>\""}], "]"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.855996552683894*^9, 3.855996606338252*^9}, {
  3.855996692962636*^9, 
  3.855996699258689*^9}},ExpressionUUID->"563e736a-e3eb-4f80-9380-\
8f05d3d94c54"],

Cell[BoxData[
 TemplateBox[{
  "\"Introducing einstein's relativity d'inverno\"", 
   "https://profmcruz.files.wordpress.com/2018/02/livro-introducing-einsteins-\
relativity-dinverno.pdf"},
  "HyperlinkURL"]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.855996581051919*^9},
 CellLabel->"Out[77]=",ExpressionUUID->"703c2e12-c3c7-4233-8554-3f33cd7fb434"]
}, Closed]],

Cell[CellGroupData[{

Cell["Utilities and Package Load", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820937646765551*^9, 
  3.8209376725449123`*^9}},ExpressionUUID->"228ed43c-5a72-4ac1-80ff-\
75a34855d0a0"],

Cell[BoxData[{
 RowBox[{"ClearAll", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Utilities`CleanSlate`"}], "\[IndentingNewLine]", 
 RowBox[{"CleanSlate", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ClearInOut", "[", "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pdConv", "[", "f_", "]"}], ":=", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"f", "/.", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "inds__", "]"}], "[", "g_", "]"}], "[", 
      "vars__", "]"}], "\[RuleDelayed]", 
     RowBox[{"Apply", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Defer", "[", 
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"g", "[", "vars", "]"}], ",", "##"}], "]"}], "]"}], "&"}], 
       ",", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", "vars", "}"}], ",", 
           RowBox[{"{", "inds", "}"}]}], "}"}], "]"}], "/.", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "0"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"Sequence", "[", "]"}]}], ",", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"var_", ",", "1"}], "}"}], "\[RuleDelayed]", 
           RowBox[{"{", "var", "}"}]}]}], "}"}]}]}], "]"}]}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.8209376549030037`*^9, {3.821032517164062*^9, 3.821032518258361*^9}},
 CellLabel->
  "In[122]:=",ExpressionUUID->"85fcd01c-4533-4541-a441-4ab4fe630d9d"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Contexts purged: \"\>", "\[InvisibleSpace]", 
   RowBox[{"{", "\<\"Global`\"\>", "}"}]}],
  SequenceForm["  (CleanSlate) Contexts purged: ", {"Global`"}],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.8437841302492332`*^9, {3.843818972372048*^9, 
   3.843818993974221*^9}, 3.843821054587207*^9, 3.8560937057682467`*^9},
 CellLabel->
  "During evaluation of \
In[122]:=",ExpressionUUID->"97602c2e-67f1-4aea-a14c-7a910606d115"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"  (CleanSlate) Approximate kernel memory recovered: \"\>", 
   "\[InvisibleSpace]", "\<\"1706 Kb\"\>"}],
  SequenceForm[
  "  (CleanSlate) Approximate kernel memory recovered: ", "1706 Kb"],
  Editable->False]], "Print",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754769992*^9, 3.820933427630714*^9, 3.820937654903143*^9, 
   3.821729906190301*^9, 3.821732641685704*^9, 3.8218069933778133`*^9, 
   3.82181142618342*^9, 3.8220426528487463`*^9, {3.822048793940605*^9, 
   3.822048801089246*^9}, 3.822505029191699*^9, 3.822505579049889*^9, 
   3.822565490838564*^9, 3.822566210008327*^9, 3.822606718180009*^9, 
   3.8226371008270607`*^9, 3.822739433887854*^9, 3.822761800089258*^9, 
   3.8228172997642097`*^9, 3.822822210725956*^9, 3.822988687208267*^9, 
   3.823359428732101*^9, 3.823360780582996*^9, 3.823360880477087*^9, 
   3.823361224742215*^9, 3.8233620990886593`*^9, 3.8233640308219624`*^9, 
   3.823423099601778*^9, 3.8234323187773438`*^9, 3.823435952157167*^9, 
   3.823436486849058*^9, 3.827953519486154*^9, 3.82799125321449*^9, 
   3.82799276999289*^9, 3.828435906665306*^9, 3.828455532084074*^9, 
   3.828459339797955*^9, 3.8437841302492332`*^9, {3.843818972372048*^9, 
   3.843818993974221*^9}, 3.843821054587207*^9, 3.856093705772574*^9},
 CellLabel->
  "During evaluation of \
In[122]:=",ExpressionUUID->"a6a70204-95a3-49e2-a469-a20bcbb5320a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"Utilities`CleanSlate`\"\>", 
   ",", "\<\"GeneralRelativityTensors`\"\>", 
   ",", "\<\"VariationalMethods`\"\>", 
   ",", "\<\"GeneralRelativityTensors`CommonTensors`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDerivatives`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorManipulation`\"\>", 
   ",", "\<\"GeneralRelativityTensors`TensorDefinitions`\"\>", 
   ",", "\<\"GeneralRelativityTensors`Utils`\"\>", 
   ",", "\<\"DocumentationSearch`\"\>", ",", "\<\"ResourceLocator`\"\>", 
   ",", "\<\"NaturalLanguageProcessingLoader`\"\>", ",", "\<\"System`\"\>", 
   ",", "\<\"Global`\"\>"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932754773623*^9, 3.820933427635436*^9, 3.8209376549033947`*^9, 
   3.821729906193787*^9, 3.821732641691049*^9, 3.821806993386058*^9, 
   3.821811426187071*^9, 3.822042652852829*^9, {3.822048793944077*^9, 
   3.822048801092909*^9}, 3.822505029195156*^9, 3.8225055790570173`*^9, 
   3.8225654908422747`*^9, 3.8225662100125237`*^9, 3.8226067181902227`*^9, 
   3.822637100839163*^9, 3.8227394339100733`*^9, 3.822761800103311*^9, 
   3.822817299776285*^9, 3.822822210739685*^9, 3.822988687217742*^9, 
   3.823359428736412*^9, 3.823360780587545*^9, 3.8233608804810534`*^9, 
   3.823361224746982*^9, 3.823362099093968*^9, 3.823364030838743*^9, 
   3.823423099606819*^9, 3.8234323187826138`*^9, 3.8234359521606693`*^9, 
   3.8234364868537683`*^9, 3.8279535194907703`*^9, 3.827991253218878*^9, 
   3.827992769998845*^9, 3.8284359066702137`*^9, 3.828455532087866*^9, 
   3.82845933980285*^9, 3.843784130260045*^9, {3.843818972382279*^9, 
   3.843818993983144*^9}, 3.843821054595104*^9, 3.856093705775503*^9},
 CellLabel->"Out[0]=",ExpressionUUID->"0d5a0348-13e4-4d60-ba56-9e5d052df949"],

Cell[BoxData[
 RowBox[{"<<", "GeneralRelativityTensors`"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209376549035053`*^9},
 CellLabel->"In[2]:=",ExpressionUUID->"222674ec-1d47-4134-b7de-b434aebf829f"]
}, Closed]],

Cell[CellGroupData[{

Cell["Custom Notation", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8225114042235403`*^9, 3.822511435665856*^9}, 
   3.823176577809782*^9},ExpressionUUID->"8eafb9ae-77c2-462c-8ee8-\
69b4fe6336ce"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "dtReplace", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dtReplace", " ", "=", " ", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", " ", "dr"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", " ", "dt"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", " ", "du"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", " ", "dv"}], " ", ",", " ", 
     "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Theta]", "]"}], " ", "\[Rule]", " ", 
      "d\[Theta]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Phi]", "]"}], " ", "\[Rule]", " ", "d\[Phi]"}], 
     "  ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Eta]", "]"}], " ", "\[Rule]", " ", "d\[Eta]"}], 
     "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", " ", "d\[Chi]"}], " ", 
     ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[Rho]", "]"}], " ", "\[Rule]", " ", "d\[Rho]"}], 
     " ", ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], " ", "\[Rule]", " ", 
      "d\[CurlyPhi]"}], " ", ",", " ", "\[IndentingNewLine]", " ", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptT]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptT]"}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], " ", "\[Rule]", " ", 
      "d\[ScriptZ]"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", " ", "dU"}], " ", ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", " ", "dV"}], " ", ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", " ", "d\[ScriptR]"}],
      "  ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", " ", 
      "d\[CapitalPhi]"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"dtReplace", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.82317656063256*^9, 3.823176577809904*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"4524a434-902d-4661-8476-cc28c0bad86a"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{
       RowBox[{"Dt", "[", "r", "]"}], "\[Rule]", "dr"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "t", "]"}], "\[Rule]", "dt"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "u", "]"}], "\[Rule]", "du"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "v", "]"}], "\[Rule]", "dv"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Theta]", "]"}], "\[Rule]", "d\[Theta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Phi]", "]"}], "\[Rule]", "d\[Phi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Eta]", "]"}], "\[Rule]", "d\[Eta]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Chi]", "]"}], "\[Rule]", "d\[Chi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[Rho]", "]"}], "\[Rule]", "d\[Rho]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CurlyPhi]", "]"}], "\[Rule]", "d\[CurlyPhi]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptT]", "]"}], "\[Rule]", "d\[ScriptT]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptZ]", "]"}], "\[Rule]", "d\[ScriptZ]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "U", "]"}], "\[Rule]", "dU"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "V", "]"}], "\[Rule]", "dV"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[ScriptR]", "]"}], "\[Rule]", "d\[ScriptR]"}]},
     {
      RowBox[{
       RowBox[{"Dt", "[", "\[CapitalPhi]", "]"}], "\[Rule]", 
       "d\[CapitalPhi]"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8231765606326637`*^9, 3.82317657781*^9}, 
   3.8233594287980833`*^9, 3.823360780614534*^9, 3.8233608805437098`*^9, 
   3.823361224810658*^9, 3.823362099159925*^9, 3.8233640309198627`*^9, 
   3.8234230996755753`*^9, 3.823432318844563*^9, 3.823435952223415*^9, 
   3.8234364868866034`*^9, 3.827953519527835*^9, 3.8279912532863617`*^9, 
   3.827992770095962*^9, 3.828435906737782*^9, 3.828455532145804*^9, 
   3.82845933986725*^9, 3.84378413030974*^9, {3.843818972473098*^9, 
   3.8438189940109386`*^9}, 3.856093705822155*^9},
 CellLabel->
  "Out[5]//TableForm=",ExpressionUUID->"c0815664-c5a9-4c6b-a13b-ecfcf793f6bb"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric Functions", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.820937548919169*^9, 3.8209375728447866`*^9}, 
   3.8209383129401073`*^9, 3.8220481344968433`*^9, {3.8225115057038183`*^9, 
   3.822511507783984*^9}, 
   3.822763734568725*^9},ExpressionUUID->"40d72553-9a7e-4bf2-99b4-\
0799ee75f414"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "lineToMetric", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lineToMetric", "[", 
    RowBox[{"lineelement_", " ", ",", " ", "differentials_"}], "]"}], ":=", 
   " ", "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[Equal]", "j"}], " ", ",", 
       RowBox[{"Coefficient", "[", 
        RowBox[{"lineelement", ",", " ", 
         RowBox[{
          RowBox[{"differentials", "[", 
           RowBox[{"[", "i", "]"}], "]"}], " ", 
          RowBox[{"differentials", "[", 
           RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "/", "2"}], ")"}], "*", 
        RowBox[{"Coefficient", "[", 
         RowBox[{"lineelement", ",", " ", 
          RowBox[{
           RowBox[{"differentials", "[", 
            RowBox[{"[", "i", "]"}], "]"}], " ", 
           RowBox[{"differentials", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], "]"}]}], 
  "  ", ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{3.821567412203915*^9, 3.821641945174967*^9, 
  3.821641981470141*^9, 3.8220481344970007`*^9, 3.822763734569355*^9},
 CellLabel->"In[6]:=",ExpressionUUID->"e4ba8020-e4e5-434c-b9c2-96de9562f679"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metricToLine", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metricToLine", "[", 
   RowBox[{"metric_", ",", " ", "differentials_"}], "]"}], ":=", " ", 
  "\[IndentingNewLine]", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"metric", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "j"}], "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", 
     RowBox[{"differentials", "[", 
      RowBox[{"[", "j", "]"}], "]"}]}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", 
      RowBox[{"Length", "[", "differentials", "]"}]}], "}"}]}], 
   "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.},
 CellChangeTimes->{{3.822762557092309*^9, 3.8227626322008677`*^9}, 
   3.8227637345698223`*^9, 3.822988709740047*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"d67b923b-b6cb-4d73-9a64-c341f3367f4e"]
}, Closed]],

Cell[CellGroupData[{

Cell["Line Element and Metric 2.2  Bondi\[CloseCurlyQuote]s Metric", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843784505624155*^9, 3.843784520908939*^9}, {
  3.856093626317937*^9, 
  3.856093631414019*^9}},ExpressionUUID->"659bd121-8990-4749-b7b1-\
818b1d4da648"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt2", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"2", "\[Beta]"}], "]"}], " ", 
    RowBox[{"du", "(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        FractionBox["V", "r"], ")"}], "  ", "du"}], "+", 
      RowBox[{"2", " ", "dr"}]}], " ", ")"}]}], " ", "-", " ", 
   RowBox[{
    SuperscriptBox["r", "2"], "(", " ", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", " ", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], 
      SuperscriptBox["d\[Phi]", "2"]}]}], ")"}], " "}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843784087170003*^9, 3.843784125525454*^9}, 
   3.8437845133228407`*^9, {3.8437851182067842`*^9, 3.843785143981846*^9}, {
   3.8438208510489197`*^9, 3.8438209235684013`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"11feaeff-5b97-4f66-b48e-a60c9a14f51f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"du", " ", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", "\[Beta]"}]], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"2", " ", "dr"}], "+", 
     FractionBox[
      RowBox[{"du", " ", "V"}], "r"]}], ")"}]}], "-", 
  RowBox[{
   SuperscriptBox["r", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     SuperscriptBox["d\[Theta]", "2"], "+", 
     RowBox[{
      SuperscriptBox["d\[Phi]", "2"], " ", 
      SuperscriptBox[
       RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]}], ")"}]}]}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.843784130367988*^9, 3.843784513325262*^9, 3.843785146457924*^9, {
   3.843818972537053*^9, 3.843818994049288*^9}, 3.8438209866825047`*^9, {
   3.843821061190751*^9, 3.843821068730338*^9}, 3.856093705870809*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"b001125e-50df-4aed-8109-943af0c9951e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"lineToMetric", "[", " ", 
   RowBox[{"eq2pt2", " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"du", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
   " ", "]"}], "  ", "//", " ", "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843784173409669*^9, 3.843784185637192*^9}, 
   3.843784513325864*^9, {3.8437851533262987`*^9, 3.8437851538718452`*^9}, {
   3.843820925848646*^9, 3.843820926584075*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"809abf4c-53a4-4dcc-a28e-ff78c55c26fc"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", "\[Beta]"}]], " ", "V"}], "r"], 
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[Beta]"}]], "0", "0"},
     {
      SuperscriptBox["\[ExponentialE]", 
       RowBox[{"2", " ", "\[Beta]"}]], "0", "0", "0"},
     {"0", "0", 
      RowBox[{"-", 
       SuperscriptBox["r", "2"]}], "0"},
     {"0", "0", "0", 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], " ", 
       SuperscriptBox[
        RowBox[{"Sin", "[", "\[Theta]", "]"}], "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",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8437841812660303`*^9, 3.843784185896205*^9}, 
   3.843784513328083*^9, 3.843785154243517*^9, {3.8438189725762568`*^9, 
   3.843818994069605*^9}, 3.843820989692671*^9, {3.843821061250008*^9, 
   3.843821068797085*^9}, 3.8560937058927097`*^9},
 CellLabel->
  "Out[12]//MatrixForm=",ExpressionUUID->"c4961a85-e098-4118-81be-\
5d15de09fb39"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt2a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt2a", " ", "=", " ", 
   RowBox[{"{", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"V", "->", " ", 
      RowBox[{"V", "[", 
       RowBox[{"u", ",", "r"}], "]"}]}], " ", ",", " ", "\[IndentingNewLine]", 
     RowBox[{"\[Beta]", " ", "->", " ", 
      RowBox[{"\[Beta]", "[", 
       RowBox[{"u", ",", "r"}], "]"}]}]}], "\[IndentingNewLine]", "}"}]}], 
  " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt2a", " ", "//", " ", "TableForm"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8437841885698433`*^9, 3.8437842161087112`*^9}, 
   3.843784513328538*^9, {3.843785161486031*^9, 3.8437851723730993`*^9}, {
   3.843785411477766*^9, 3.84378541343758*^9}, {3.843820929912696*^9, 
   3.843820936527852*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"42ba7464-f0b7-4c60-9cf9-96791ddb8e20"],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      RowBox[{"V", "\[Rule]", 
       RowBox[{"V", "[", 
        RowBox[{"u", ",", "r"}], "]"}]}]},
     {
      RowBox[{"\[Beta]", "\[Rule]", 
       RowBox[{"\[Beta]", "[", 
        RowBox[{"u", ",", "r"}], "]"}]}]}
    },
    GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.5599999999999999]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}],
   Column],
  Function[BoxForm`e$, 
   TableForm[BoxForm`e$]]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.8437842163543*^9, 3.843784513330182*^9, 3.84378517298238*^9, 
   3.843785414123569*^9, {3.8438189725926113`*^9, 3.843818994083173*^9}, 
   3.843821017442341*^9, {3.843821061266514*^9, 3.843821068812642*^9}, 
   3.856093705908429*^9},
 CellLabel->
  "Out[15]//TableForm=",ExpressionUUID->"2e40b2c8-b7cc-4919-9ca5-\
ae061815fd29"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "metric2pt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2pt2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"lineToMetric", "[", " ", 
     RowBox[{"eq2pt2", " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"du", ",", "dr", ",", "d\[Theta]", ",", "d\[Phi]"}], "}"}]}], 
     " ", "]"}], "   ", "/.", " ", "eq2pt2a"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"metric2pt2", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843784223477125*^9, 3.8437842534851627`*^9}, 
   3.843784513330504*^9, {3.843785003636998*^9, 3.843785005381033*^9}, {
   3.843785177877842*^9, 3.843785178231043*^9}, {3.8438209391289797`*^9, 
   3.843820962984095*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"adff4ce2-9012-43ed-b96d-c0f975a4f460"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}], "r"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}]], "0", "0"},
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}]], "0", "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.8437842249874763`*^9, 3.843784253906024*^9}, 
   3.843784513332097*^9, 3.843785005962164*^9, 3.843785178783036*^9, 
   3.843785416449006*^9, {3.843818972640304*^9, 3.8438189941078577`*^9}, 
   3.843821020883148*^9, {3.843821061305979*^9, 3.843821068857243*^9}, 
   3.856093705932055*^9},
 CellLabel->
  "Out[18]//TraditionalForm=",ExpressionUUID->"31fe4e6b-25a6-44aa-8918-\
295b318784c4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "inverse2pt2", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse2pt2", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Inverse", "[", " ", "metric2pt2", " ", "]"}]}], "   ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"inverse2pt2", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843784263361403*^9, 3.84378428702911*^9}, 
   3.843784513332477*^9, {3.8437850115094023`*^9, 3.843785013117463*^9}, {
   3.843820965217738*^9, 3.84382097242448*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"9c72148b-956c-44d5-9398-d18781a0e5e6"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {"0", 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}]], "0", "0"},
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}]], 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}], "r"]}], "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        FractionBox["1", 
         SuperscriptBox["r", "2"]]}], "0"},
      {"0", "0", "0", 
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["csc", "2"], "(", "\[Theta]", ")"}], 
         SuperscriptBox["r", "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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.84378427741298*^9, 3.8437842873062677`*^9}, 
   3.8437845133342257`*^9, 3.8437850136437607`*^9, 3.843785182884849*^9, 
   3.843785420283311*^9, {3.843818972689148*^9, 3.8438189941338873`*^9}, 
   3.843821026153434*^9, {3.843821061354135*^9, 3.843821068898635*^9}, 
   3.856093705957891*^9},
 CellLabel->
  "Out[21]//TraditionalForm=",ExpressionUUID->"90b64554-62a6-446d-b883-\
747c83ff9904"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"metric2pt2", " ", ".", " ", "inverse2pt2"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843784289194345*^9, 3.843784299085554*^9}, 
   3.8437845133346653`*^9, {3.843820974872438*^9, 3.843820977759856*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"9fa7b8e8-7601-4a5c-8786-69d614fbbe82"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.84378429931744*^9, 3.843784513336275*^9, 3.843785184801681*^9, {
   3.8438189727389927`*^9, 3.843818994158889*^9}, 3.8438210290448427`*^9, {
   3.8438210614741373`*^9, 3.843821068914998*^9}, 3.8560937059712553`*^9},
 CellLabel->
  "Out[22]//MatrixForm=",ExpressionUUID->"cdad2063-f408-4716-a030-\
cf0aa3dd8173"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"inverse2pt2", " ", ".", " ", "metric2pt2"}], " ", "//", " ", 
    "Expand"}], " ", "//", " ", "Simplify"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{{3.843784301409355*^9, 3.843784311973178*^9}, 
   3.843784513336672*^9, {3.843820979320462*^9, 3.84382098228793*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"3f2b6f95-06b5-415d-aff3-c5dc3d547a87"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "0", "0", "0"},
     {"0", "1", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    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",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.},
 CellChangeTimes->{
  3.843784312236463*^9, 3.843784513338223*^9, 3.843785186322195*^9, {
   3.843818972757434*^9, 3.843818994174028*^9}, 3.843821030594524*^9, {
   3.8438210614898252`*^9, 3.843821068954135*^9}, 3.856093705994948*^9},
 CellLabel->
  "Out[23]//MatrixForm=",ExpressionUUID->"ef9ec89c-233c-4b2b-bb32-\
bf36549e0c84"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Calculation of Tensors Associated With Metric 2.2 Bondi\[CloseCurlyQuote]s \
Metric\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8209375013653803`*^9, 3.820937526701229*^9}, 
   3.8211102293506603`*^9, {3.843784368565002*^9, 3.843784368892591*^9}, 
   3.843784491835758*^9, {3.8438210326316013`*^9, 3.843821033743794*^9}, {
   3.843821910639633*^9, 3.84382191310413*^9}, {3.8560936371817713`*^9, 
   3.856093637949853*^9}},ExpressionUUID->"243c7715-7857-45dd-8c30-\
c7329b7f939e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"$CacheTensorValues", "=", "True"}], ";"}], " ", "*)"}], 
  " "}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.819639535112979*^9, 3.819639560098693*^9}, 
   3.821109141509594*^9, 3.821109340369235*^9, 3.821110229350811*^9, {
   3.824511755669795*^9, 3.824511758917903*^9}, 3.843784491836158*^9},
 CellLabel->"In[24]:=",ExpressionUUID->"f8fea7c2-f027-4ab1-aa69-c0448cefb454"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "input", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"input", "[", 
    RowBox[{
    "equationNumber_", ",", "equation_", ",", "metricName_", ",", 
     "displayName_", ",", "variables_", ",", "indices_"}], "]"}], ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Clear", "[", "tensorList", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{"tensorList", " ", "=", " ", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"\"\<g\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<christoffel\>\"", "<>", "equationNumber"}], " ", ",", 
         " ", "\[IndentingNewLine]", 
         RowBox[{"\"\<riemann\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricci\>\"", "<>", "equationNumber"}], " ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<ricciscalar\>\"", "<>", "equationNumber"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<kretschmannscalar\>\"", "<>", "equationNumber"}], "  ", 
         ",", "\[IndentingNewLine]", 
         RowBox[{"\"\<einstein\>\"", "<>", "equationNumber"}], "  ", ",", " ",
          "\[IndentingNewLine]", 
         RowBox[{"\"\<weyl\>\"", "<>", "equationNumber"}], "  ", ",", 
         "\[IndentingNewLine]", 
         RowBox[{"\"\<cotton\>\"", "<>", "equationNumber"}]}], "  ", 
        "\[IndentingNewLine]", "}"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"ToMetric", "[", 
        RowBox[{
         RowBox[{"{", " ", 
          RowBox[{"metricName", ",", " ", "displayName"}], " ", "}"}], " ", 
         ",", " ", "variables", ",", " ", "equation", ",", " ", "indices"}], 
        " ", "]"}]}], " ", ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "2", "]"}], "]"}], "  ", "=", " ", "\[IndentingNewLine]", 
       RowBox[{"ChristoffelSymbol", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RiemannTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWithNested", "\[Rule]", " ", "Simplify"}]}], " ", 
        "]"}]}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "4", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "5", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"RicciScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "6", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"KretschmannScalar", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"EinsteinTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], "]"}]}], " ", ";",
       "  ", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "8", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"WeylTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";", "\[IndentingNewLine]", " ", 
      RowBox[{
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "9", "]"}], "]"}], " ", "=", " ", "\[IndentingNewLine]", 
       
       RowBox[{"CottonTensor", "[", " ", 
        RowBox[{
         RowBox[{"tensorList", "[", 
          RowBox[{"[", "1", "]"}], "]"}], " ", ",", " ", 
         RowBox[{"ActWith", "\[Rule]", " ", "Simplify"}]}], " ", "]"}]}], " ",
       ";"}]}], " ", "\[IndentingNewLine]", "]"}]}], ";"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820937492203251*^9, 3.821110229350912*^9, {3.824381686137444*^9, 
   3.824381701791286*^9}, {3.824382212611581*^9, 3.824382216339905*^9}, {
   3.8243823186862707`*^9, 3.824382322501081*^9}, {3.843784412679975*^9, 
   3.843784420272084*^9}, 3.843784491838458*^9},
 CellLabel->"In[25]:=",ExpressionUUID->"a37ce944-d8b8-4c06-8de8-4dbaf4a3c250"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "Last", " ", "timing", " ", "took", " ", "12.12", " ", "for", " ", "all", 
    " ", "tensors"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"input", "[", " ", 
    RowBox[{
    "\"\<metric2pt2\>\"", ",", " ", "metric2pt2", ",", " ", "\"\<Bondi\>\"", 
     ",", "\"\<\!\(\*SuperscriptBox[\(g\), \(bondi\)]\)\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "r", ",", "\[Theta]", ",", "\[Phi]"}], "}"}], ",", 
     " ", "\"\<Greek\>\""}], "]"}], " ", "//", " ", "Timing"}]}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820937492203436*^9, 3.821110229350998*^9, {3.822307281934704*^9, 
   3.822307303605431*^9}, {3.8243818575378323`*^9, 3.82438186818433*^9}, {
   3.824513580589107*^9, 3.824513589908223*^9}, {3.8278816087737007`*^9, 
   3.8278816137482233`*^9}, {3.8437843724387083`*^9, 3.843784447893464*^9}, 
   3.843784491838916*^9, {3.8437852290695267`*^9, 3.84378523991846*^9}, {
   3.843785282213608*^9, 3.843785284653624*^9}, {3.84382103735285*^9, 
   3.843821047864674*^9}},
 CellLabel->"In[27]:=",ExpressionUUID->"35ed806e-2379-4557-b313-d8bb84e627e9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"12.585029`", ",", "Null"}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932775263226*^9, 3.8209334477859497`*^9, 3.820937492203586*^9, 
   3.821110229351104*^9, 3.824381620813415*^9, 3.8243818500635223`*^9, 
   3.8243823106417093`*^9, 3.824511842095233*^9, 3.8245141677564774`*^9, 
   3.827878634964815*^9, 3.827881401184404*^9, 3.8279088610540543`*^9, 
   3.827912744283607*^9, 3.8437844346346693`*^9, 3.843784491839286*^9, 
   3.8437852537273006`*^9, 3.843785440477318*^9, {3.843818985207795*^9, 
   3.8438190037648573`*^9}, 3.843821088115003*^9, 3.856093718651886*^9},
 CellLabel->"Out[27]=",ExpressionUUID->"9417ecd6-69a0-48fb-a3f6-c6e546e80098"],

Cell[BoxData["tensorList"], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820937492203697*^9, 3.8211102293511972`*^9, 
  3.843784491839611*^9},
 CellLabel->"In[28]:=",ExpressionUUID->"d4f3f26d-ebac-469e-8aad-e1c3eb06dcfb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   TagBox[
    SubsuperscriptBox[
     SuperscriptBox["g", "bondi"], "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["\[CapitalGamma]", 
     RowBox[{"  ", "\[Beta]\[Gamma]"}], 
     RowBox[{"\[Alpha]", "    "}]],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
    DisplayForm], ",", 
   TagBox["\<\"R\"\>",
    DisplayForm], ",", 
   TagBox["\<\"K\"\>",
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
    DisplayForm], ",", 
   TagBox[
    SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
    DisplayForm]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820932775365534*^9, 3.820933447849365*^9, 
  3.8209374922039557`*^9, 3.821110229351309*^9, 3.824381620902643*^9, 
  3.824381850166397*^9, 3.824382314366207*^9, 3.8245118421618633`*^9, 
  3.824514167829878*^9, 3.8278786350256853`*^9, 3.8278814012293863`*^9, 
  3.8279088611347723`*^9, 3.827912744356597*^9, 3.8437844495168953`*^9, 
  3.8437844918398933`*^9, 3.843785440535564*^9, 3.843819003813854*^9, 
  3.843821088224269*^9, 3.856093718722193*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"e7ac7fdb-934c-4cc8-a734-03b679338187"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "1", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093459847665*^9, 3.820934601699522*^9}, 
   3.8209374922041063`*^9, 3.821110229351385*^9, 3.824373536864387*^9, 
   3.824381939541588*^9, 3.824751170474918*^9, 3.84378449184031*^9},
 CellLabel->"In[29]:=",ExpressionUUID->"05ae5c7e-9ed1-450c-b6f4-2b2bbca1320d"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox[
   SuperscriptBox["g", "bondi"], "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.843784460048764*^9, 3.8437844918407784`*^9, 3.843785318985776*^9, 
  3.8437854405511827`*^9, 3.84381900383189*^9, 3.843821088246049*^9, 
  3.8560937187398167`*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"c4341a7e-3a4e-41ef-85f3-637394467d4d"],

Cell[BoxData["\<\"Bondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.843784460048764*^9, 3.8437844918407784`*^9, 3.843785318985776*^9, 
  3.8437854405511827`*^9, 3.84381900383189*^9, 3.843821088246049*^9, 
  3.85609371874336*^9},
 CellLabel->"Out[30]=",ExpressionUUID->"f843fcc2-3312-46fd-ac8d-d8ad26021edc"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}], "r"], 
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}]], "0", "0"},
      {
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"2", " ", 
         RowBox[{"\[Beta]", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}]], "0", "0", "0"},
      {"0", "0", 
       RowBox[{"-", 
        SuperscriptBox["r", "2"]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["r", "2"]}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}]}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934602303184*^9, 3.820937492204216*^9, 
  3.821110229351462*^9, 3.824373536864538*^9, 3.824381620924634*^9, 
  3.8243818501805983`*^9, 3.824381939541747*^9, 3.824511842173975*^9, 
  3.824514167840876*^9, 3.8247511704751453`*^9, 3.827878635040415*^9, 
  3.827881401240424*^9, 3.827908861148841*^9, 3.827912744370165*^9, 
  3.843784460048764*^9, 3.8437844918407784`*^9, 3.843785318985776*^9, 
  3.8437854405511827`*^9, 3.84381900383189*^9, 3.843821088246049*^9, 
  3.856093718746492*^9},
 CellLabel->
  "Out[31]//TraditionalForm=",ExpressionUUID->"91c97acb-22ec-4fcd-8076-\
92b9fa455258"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "2", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934553796588*^9, 3.820934587380786*^9}, 
   3.8209374922046547`*^9, 3.821110229351994*^9, 3.824373536864839*^9, 
   3.824381939542098*^9, 3.8247511704755993`*^9, 3.843784491841651*^9},
 CellLabel->"In[32]:=",ExpressionUUID->"cdb8698e-4591-494a-bcb7-15e123283221"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["\[CapitalGamma]", 
   RowBox[{"  ", "\[Beta]\[Gamma]"}], 
   RowBox[{"\[Alpha]", "    "}]],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.8437844601116943`*^9, 
   3.84378449184192*^9, 3.843785319049715*^9, 3.843785440604557*^9, 
   3.843819003864176*^9, 3.843821088315184*^9, 3.856093718780575*^9},
 CellLabel->"Out[32]=",ExpressionUUID->"18198a6d-5dc6-4c5d-962a-51923b1ab426"],

Cell[BoxData["\<\"ChristoffelSymbolBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.8437844601116943`*^9, 
   3.84378449184192*^9, 3.843785319049715*^9, 3.843785440604557*^9, 
   3.843819003864176*^9, 3.843821088315184*^9, 3.8560937187845993`*^9},
 CellLabel->"Out[33]=",ExpressionUUID->"13113f29-77c6-4db9-843c-07ea6d11ed37"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"4", " ", 
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", "r", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], "-", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{"r", " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"r", " ", 
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{
               RowBox[{"-", "2"}], " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "3"]}]]},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]]},
           {
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]]}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]]}], ")"}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox["1", "r"]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox["1", "r"]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{
             RowBox[{"sin", "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{"-", 
               RowBox[{"cos", "(", "\[Theta]", ")"}]}], ")"}]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox["1", "r"]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox["1", "r"]},
           {
            RowBox[{"cot", "(", "\[Theta]", ")"}]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820932775595148*^9, 3.8209334480804567`*^9, {3.8209345574198027`*^9, 
   3.820934588189248*^9}, 3.82093749220476*^9, 3.821110229352072*^9, 
   3.824373536864976*^9, 3.8243816209856853`*^9, 3.824381850238319*^9, 
   3.8243819395421953`*^9, 3.8245118422163897`*^9, 3.8245141678935013`*^9, 
   3.82475117047574*^9, 3.82787863508246*^9, 3.827881401284244*^9, 
   3.8279088611949387`*^9, 3.827912744414246*^9, 3.8437844601116943`*^9, 
   3.84378449184192*^9, 3.843785319049715*^9, 3.843785440604557*^9, 
   3.843819003864176*^9, 3.843821088315184*^9, 3.856093718827524*^9},
 CellLabel->
  "Out[34]//TraditionalForm=",ExpressionUUID->"cebcf167-af2b-4754-b426-\
6d9657420d17"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "3", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "3", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "3", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093461950063*^9, 3.820934623299252*^9}, 
   3.820937492205227*^9, 3.821110229352274*^9, 3.8243735368652897`*^9, 
   3.824381939542493*^9, 3.824751170476118*^9, 3.8437844918427267`*^9},
 CellLabel->"In[35]:=",ExpressionUUID->"2868d21e-311a-4eea-92aa-511ecce25518"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.8437844601802473`*^9, 3.843784491843009*^9, 3.84378531913505*^9, 
  3.843785440674169*^9, 3.843819003965501*^9, 3.843821088399941*^9, 
  3.856093718870014*^9},
 CellLabel->"Out[35]=",ExpressionUUID->"e54489a5-d4e6-4e9c-8b83-dbd7a87663bc"],

Cell[BoxData["\<\"RiemannTensorBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.8437844601802473`*^9, 3.843784491843009*^9, 3.84378531913505*^9, 
  3.843785440674169*^9, 3.843819003965501*^9, 3.843821088399941*^9, 
  3.856093718873868*^9},
 CellLabel->"Out[36]=",ExpressionUUID->"54fa37c8-4674-4440-9ae9-2666c446a58c"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "3"]}]]}], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "3"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]]}], "0"},
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], 
             RowBox[{"2", " ", "r"}]]}], "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], "-", 
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}]], 
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], 
            RowBox[{"2", " ", "r"}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]]}]},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"2", " ", "r"}]]}]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["r", "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}]], 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"2", " ", "r"}]], "0", "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "3"]}]], "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{"2", " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{"2", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "3"]}]]}], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], 
             RowBox[{"2", " ", "r"}]]}], "0"},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], 
            RowBox[{"2", " ", "r"}]], 
           RowBox[{"2", " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"2", " ", "r"}]]}]},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"2", " ", "r"}]], 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0", "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "+", 
             RowBox[{"r", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], "-", 
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], ")"}]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}]], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], 
            RowBox[{"2", " ", "r"}]], "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"r", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], 
             RowBox[{"2", " ", "r"}]]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], 
            RowBox[{"2", " ", "r"}]], "0"},
          {"0", "0", 
           RowBox[{"2", " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], 
             RowBox[{"2", " ", "r"}]]}], 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{"r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], "-", "r"}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", "r"}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], "-", "r"}], ")"}]}], "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                SuperscriptBox["r", "2"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], "+", 
               RowBox[{"r", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], "-", 
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}]]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"2", " ", "r"}]]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"r", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox[
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]]}], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"2", " ", "r"}]]}], "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"2", " ", "r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
               RowBox[{"r", " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None]}]}], ")"}]}], 
            RowBox[{"2", " ", "r"}]]},
          {"0", "0", "0", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}]}], "+", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"2", " ", "r"}]]}], 
           RowBox[{
            RowBox[{"-", "2"}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", "r"}], " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], "-", "r"}], ")"}]}]},
          {"0", "0", 
           RowBox[{"r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], "-", "r"}], ")"}]}], "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934623837241*^9, 3.820937492205323*^9, 
  3.821110229352366*^9, 3.824373536865405*^9, 3.824381621264045*^9, 
  3.824381850457645*^9, 3.824381939542604*^9, 3.8245118424513693`*^9, 
  3.8245141681144238`*^9, 3.8247511704762497`*^9, 3.82787863531532*^9, 
  3.8278814015069723`*^9, 3.827908861420949*^9, 3.827912744734424*^9, 
  3.8437844601802473`*^9, 3.843784491843009*^9, 3.84378531913505*^9, 
  3.843785440674169*^9, 3.843819003965501*^9, 3.843821088399941*^9, 
  3.856093719288406*^9},
 CellLabel->
  "Out[37]//TraditionalForm=",ExpressionUUID->"2fd87784-0095-41cd-8ba2-\
4f1001ff54eb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "4", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "4", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "4", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934641180434*^9, 3.820934644683545*^9}, 
   3.820937492205658*^9, 3.821110229352577*^9, 3.8243735368657513`*^9, 
   3.8243819395429*^9, 3.82475117047663*^9, 3.843784491844027*^9},
 CellLabel->"In[38]:=",ExpressionUUID->"c69410b8-d87c-4d3f-8827-3c21235cdc13"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["R", "\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.843784460450898*^9, 3.843784491844343*^9, 3.8437853196344976`*^9, 
  3.843785441143115*^9, 3.843819004452166*^9, 3.843821088889501*^9, 
  3.856093719327952*^9},
 CellLabel->"Out[38]=",ExpressionUUID->"65158f83-5c1f-483b-a6e0-2f747887aaca"],

Cell[BoxData["\<\"RicciTensorBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.843784460450898*^9, 3.843784491844343*^9, 3.8437853196344976`*^9, 
  3.843785441143115*^9, 3.843819004452166*^9, 3.843821088889501*^9, 
  3.8560937193318033`*^9},
 CellLabel->"Out[39]=",ExpressionUUID->"d053ef28-cf20-4e51-a0f1-dc029b7afb81"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "+", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], ")"}]}]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}], "+", 
         RowBox[{"2", " ", "r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "3"]}]], 
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"4", " ", "r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "r"}]}],
               MultilineFunction->None]}]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"]}]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"4", " ", "r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "r"}]}],
               MultilineFunction->None]}]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"]}]], 
       FractionBox[
        RowBox[{"4", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "r"], "0", "0"},
      {"0", "0", 
       RowBox[{"1", "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.820934645395719*^9, 3.8209374922057543`*^9, 
  3.82111022935266*^9, 3.8243735368658533`*^9, 3.824381626124463*^9, 
  3.824381854371036*^9, 3.824381939543002*^9, 3.824511846625956*^9, 
  3.8245141719213133`*^9, 3.824751170476756*^9, 3.8278786393795643`*^9, 
  3.82788140534545*^9, 3.8279088652533417`*^9, 3.8279127491644907`*^9, 
  3.843784460450898*^9, 3.843784491844343*^9, 3.8437853196344976`*^9, 
  3.843785441143115*^9, 3.843819004452166*^9, 3.843821088889501*^9, 
  3.8560937193933*^9},
 CellLabel->
  "Out[40]//TraditionalForm=",ExpressionUUID->"4c1f549d-e7f8-46b6-a0a0-\
b50f0947f9d0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "5", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "5", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "5", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.820934650372052*^9, 3.820934653739538*^9}, 
   3.820937492206099*^9, 3.821110229352878*^9, 3.824373536866138*^9, 
   3.82438193954329*^9, 3.8247511704771013`*^9, 3.843784491845173*^9},
 CellLabel->"In[41]:=",ExpressionUUID->"1fc17d1a-8620-4ddb-833a-61027ccdf3be"],

Cell[BoxData[
 TagBox["\<\"R\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.843784460544991*^9, 3.84378449184548*^9, 3.843785319732813*^9, 
  3.843785441233427*^9, 3.843819004551442*^9, 3.843821089002852*^9, 
  3.856093719411625*^9},
 CellLabel->"Out[41]=",ExpressionUUID->"bd343ea0-7dd9-4c18-b0a0-7455d833f6b8"],

Cell[BoxData["\<\"RicciScalarBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.843784460544991*^9, 3.84378449184548*^9, 3.843785319732813*^9, 
  3.843785441233427*^9, 3.843819004551442*^9, 3.843821089002852*^9, 
  3.856093719416174*^9},
 CellLabel->"Out[42]=",ExpressionUUID->"2ab35a66-b974-4bd0-a380-fcf44ca27b25"],

Cell[BoxData[
 FormBox[
  TagBox[
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"4", " ", 
         SuperscriptBox["r", "2"], " ", 
         FractionBox[
          RowBox[{
           SuperscriptBox["\[PartialD]", "2"], 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{
           RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
           RowBox[{"\[PartialD]", "r"}]}],
          MultilineFunction->None]}]}], "-", 
       RowBox[{"2", " ", 
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "r"}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], "-", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}]}], ")"}]}], "+", 
       RowBox[{"r", " ", 
        FractionBox[
         RowBox[{
          SuperscriptBox["\[PartialD]", "2"], 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}], 
         RowBox[{"\[PartialD]", 
          SuperscriptBox["r", "2"]}],
         MultilineFunction->None]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", "1"}], ")"}], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}]}], ")"}]}], 
    SuperscriptBox["r", "2"]],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.8209346543102093`*^9, 3.820937492206188*^9, 
  3.821110229352955*^9, 3.82437353686622*^9, 3.8243816263835297`*^9, 
  3.824381854615872*^9, 3.8243819395433826`*^9, 3.824511846864684*^9, 
  3.824514172146737*^9, 3.8247511704772167`*^9, 3.8278786396295547`*^9, 
  3.827881405580286*^9, 3.827908865485321*^9, 3.827912749411972*^9, 
  3.843784460544991*^9, 3.84378449184548*^9, 3.843785319732813*^9, 
  3.843785441233427*^9, 3.843819004551442*^9, 3.843821089002852*^9, 
  3.85609371943911*^9},
 CellLabel->
  "Out[43]//TraditionalForm=",ExpressionUUID->"be842e28-3a06-4b53-9cec-\
139960887a95"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "6", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "6", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "6", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382031881773*^9, 3.824382035720847*^9}, 
   3.824382068120364*^9, 3.8247511704775753`*^9, {3.827662880133422*^9, 
   3.827662883948599*^9}, {3.827881581825639*^9, 3.8278815881690893`*^9}, {
   3.843784466741946*^9, 3.843784491846669*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"32fd7539-7197-4e25-b6b2-094b3bcc339a"],

Cell[BoxData[
 TagBox["\<\"K\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8437844707112722`*^9, 3.843784491846911*^9}, 
   3.843785319785681*^9, 3.843785441292158*^9, 3.843819004595778*^9, 
   3.843821089075244*^9, 3.856093719459405*^9},
 CellLabel->"Out[44]=",ExpressionUUID->"79f00257-ad6e-4073-8a23-38378903dab9"],

Cell[BoxData["\<\"KretschmannScalarBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8437844707112722`*^9, 3.843784491846911*^9}, 
   3.843785319785681*^9, 3.843785441292158*^9, 3.843819004595778*^9, 
   3.843821089075244*^9, 3.856093719463099*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"5211a474-5b42-447d-bef5-d11bdec80963"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{
    FractionBox["1", 
     SuperscriptBox["r", "6"]], 
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "4"}], " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"4", " ", "r", " ", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r"}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"4", " ", 
            SuperscriptBox["r", "2"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "r"}]}],
             MultilineFunction->None]}], "-", 
           RowBox[{"4", " ", 
            SuperscriptBox["r", "2"], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None]}]}], ")"}]}], "+", 
           RowBox[{"4", " ", 
            SuperscriptBox["r", "4"], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{
              RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
              RowBox[{"\[PartialD]", "r"}]}],
             MultilineFunction->None]}], "-", 
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", "1"}], ")"}], " ", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "+", "2"}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["r", "2"], " ", 
               SuperscriptBox[
                RowBox[{"(", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], ")"}], "2"]}], "+", "4"}], ")"}], 
            " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], "+", 
           RowBox[{"2", " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}]]}]}], ")"}]}]}], "+", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", 
              SuperscriptBox["r", "4"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "r"}]}],
                 MultilineFunction->None], ")"}], "2"]}], "+", 
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"4", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], "+", 
             RowBox[{"4", " ", "r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}]}], ")"}]}], "-", 
          RowBox[{"4", " ", "r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", "r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "r"}]}],
               MultilineFunction->None]}], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], ")"}]}], "-", 
          RowBox[{"8", " ", 
           SuperscriptBox["r", "3"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{
             RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
             RowBox[{"\[PartialD]", "r"}]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"4", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["r", "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], ")"}], "2"]}], "-", 
             RowBox[{"2", " ", "r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}], "+", "2"}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox["r", "2"], " ", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[PartialD]", "2"], 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", 
             SuperscriptBox["r", "2"]}],
            MultilineFunction->None]}], "+", 
          RowBox[{"5", " ", 
           SuperscriptBox["r", "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox["r", "4"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], ")"}], "2"]}], "-", 
          RowBox[{"2", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              SuperscriptBox["r", "3"], " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}], "+", "r"}], ")"}]}], "+", "3"}], 
         ")"}]}]}], ")"}]}]}],
   Function[BoxForm`e$, 
    MatrixForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8437844707112722`*^9, 3.843784491846911*^9}, 
   3.843785319785681*^9, 3.843785441292158*^9, 3.843819004595778*^9, 
   3.843821089075244*^9, 3.856093719558258*^9},
 CellLabel->
  "Out[46]//TraditionalForm=",ExpressionUUID->"ddd24670-c0f1-405a-b3f3-\
16f3e9c003ee"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "7", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "7", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "7", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.8243818880356607`*^9, 3.824381891296851*^9}, 
   3.82438193954393*^9, {3.824382052340536*^9, 3.824382068120544*^9}, 
   3.8247511704783077`*^9, 3.843784491847597*^9},
 CellLabel->"In[47]:=",ExpressionUUID->"7da9fae8-942c-4967-bad5-b287c74b67d2"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["G", "\[Alpha]\[Beta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.843784460632077*^9, 
   3.8437844918478317`*^9, 3.843785319943434*^9, 3.84378544143145*^9, 
   3.843819004748581*^9, 3.843821089276265*^9, 3.856093719586465*^9},
 CellLabel->"Out[47]=",ExpressionUUID->"cfe0fee2-035b-44c9-9b33-a0fa5af85c86"],

Cell[BoxData["\<\"EinsteinTensorBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.843784460632077*^9, 
   3.8437844918478317`*^9, 3.843785319943434*^9, 3.84378544143145*^9, 
   3.843819004748581*^9, 3.843821089276265*^9, 3.856093719590188*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"a414a787-61f4-4506-9274-80bf7f652a3f"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}]], "-", 
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], "-", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}], "+", 
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}]}], 
        SuperscriptBox["r", "3"]], 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], "+", 
         RowBox[{"2", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "-", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], 
        SuperscriptBox["r", "2"]], "0", "0"},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], "+", 
         RowBox[{"2", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "-", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], 
        SuperscriptBox["r", "2"]], 
       FractionBox[
        RowBox[{"4", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "r"], "0", "0"},
      {"0", "0", 
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"4", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None]}]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], "+", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], "-", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", "r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "r"}]}],
               MultilineFunction->None]}], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], "-", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.824381892203912*^9, 3.824381939544029*^9, {3.824382052340662*^9, 
   3.8243820681206617`*^9}, 3.82451184696933*^9, 3.824514172248722*^9, 
   3.8247511704784727`*^9, 3.827878639697633*^9, 3.827881405639708*^9, 
   3.8279088655599194`*^9, 3.8279127494903316`*^9, 3.843784460632077*^9, 
   3.8437844918478317`*^9, 3.843785319943434*^9, 3.84378544143145*^9, 
   3.843819004748581*^9, 3.843821089276265*^9, 3.856093719647913*^9},
 CellLabel->
  "Out[49]//TraditionalForm=",ExpressionUUID->"9d1d8b23-1121-4534-a89a-\
7d1c1ef69c8c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "8", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "8", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "8", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.82093465870828*^9, 3.820934665723707*^9}, 
   3.820937492206532*^9, 3.821110229353163*^9, 3.824373536866439*^9, 
   3.82438193954467*^9, {3.824382052340996*^9, 3.824382068120945*^9}, 
   3.824751170478986*^9, 3.843784491848547*^9},
 CellLabel->"In[50]:=",ExpressionUUID->"72a72b56-d2ef-4cfe-931d-e8dbbfcb7308"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]\[Delta]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.843784460752687*^9, 
   3.843784491848796*^9, 3.8437853200788803`*^9, 3.843785441563794*^9, 
   3.8438190048732243`*^9, 3.843821089380184*^9, 3.856093719704794*^9},
 CellLabel->"Out[50]=",ExpressionUUID->"a0c8cb6c-bba2-487b-9af7-c72584303669"],

Cell[BoxData["\<\"WeylTensorBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.843784460752687*^9, 
   3.843784491848796*^9, 3.8437853200788803`*^9, 3.843785441563794*^9, 
   3.8438190048732243`*^9, 3.843821089380184*^9, 3.856093719708783*^9},
 CellLabel->"Out[51]=",ExpressionUUID->"ef900176-2578-4ef6-8dff-b4d38aee0a1e"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox["r", "3"]}]], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox["r", "3"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]], 
           FractionBox[
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]]},
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"12", " ", "r"}]]}]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]], 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", "r"}]], "0", "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", 
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox["r", "3"]}]], "0", "0"},
          {
           FractionBox[
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"6", " ", 
             SuperscriptBox["r", "3"]}]], "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"12", " ", "r"}]]}]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", "r"}]], "0", "0", "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]], "0"},
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]], 
           FractionBox[
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}], "-", 
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0"},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
             RowBox[{"r", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"4", "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}]}], ")"}]}]}], 
            RowBox[{"12", " ", "r"}]], "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}]}]}], ")"}]}],
            "0"}
         },
         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]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]]},
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", "r"}]]},
          {"0", "0", "0", "0"},
          {
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}], "-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
            RowBox[{"12", " ", 
             SuperscriptBox["r", "2"]}]], 
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"12", " ", "r"}]]}], "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", 
           FractionBox[
            RowBox[{
             RowBox[{
              SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"4", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
               RowBox[{"2", " ", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                  RowBox[{"r", " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
              ")"}]}], 
            RowBox[{"12", " ", "r"}]]},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["\[ExponentialE]", 
                    RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
               ")"}]}], 
             RowBox[{"12", " ", "r"}]]}], "0", "0", "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", 
           RowBox[{
            FractionBox["1", "6"], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}]}]}], ")"}]}]},
          {"0", "0", 
           RowBox[{
            RowBox[{"-", 
             FractionBox["1", "6"]}], " ", "r", " ", 
            RowBox[{
             SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", "3"}], ")"}]}]}], ")"}]}],
            "0"}
         },
         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]", ")"}], 
       RowBox[{"(", "\[NoBreak]", GridBox[{
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"},
          {"0", "0", "0", "0"}
         },
         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]", ")"}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.820934666611442*^9, 3.820937492206628*^9, 3.821110229353245*^9, 
   3.824381626454548*^9, 3.824381854687508*^9, {3.824382052341096*^9, 
   3.8243820681210527`*^9}, 3.824511847219433*^9, 3.824514172561551*^9, 
   3.824751170479109*^9, 3.827878639957889*^9, 3.827881405891963*^9, 
   3.827908865806568*^9, 3.827912749777829*^9, 3.843784460752687*^9, 
   3.843784491848796*^9, 3.8437853200788803`*^9, 3.843785441563794*^9, 
   3.8438190048732243`*^9, 3.843821089380184*^9, 3.856093720528022*^9},
 CellLabel->
  "Out[52]//TraditionalForm=",ExpressionUUID->"02bb91a8-66db-4b39-8a38-\
16d4f00e54a8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tensorList", "[", 
   RowBox[{"[", "9", "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"TensorName", "[", 
   RowBox[{"tensorList", "[", 
    RowBox[{"[", "9", "]"}], "]"}], "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TensorValues", "[", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "9", "]"}], "]"}], "]"}], " ", "//", " ", "MatrixForm"}], 
  " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.824382043442072*^9, 3.824382068121275*^9}, 
   3.824751170479444*^9, {3.827662867877706*^9, 3.827662872700079*^9}, {
   3.8437844742951527`*^9, 3.8437844918495893`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"12b5eb93-9b7d-448a-ba2c-951071e38bc5"],

Cell[BoxData[
 TagBox[
  SubsuperscriptBox["C", "\[Alpha]\[Beta]\[Gamma]", ""],
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.843784478486718*^9, 3.843784491849868*^9}, 
   3.8437853211454067`*^9, 3.8437854424630623`*^9, 3.843819005844434*^9, 
   3.843821090451337*^9, 3.856093720677546*^9},
 CellLabel->"Out[53]=",ExpressionUUID->"403ca149-afe4-47ef-8839-5f2f2d32005d"],

Cell[BoxData["\<\"CottonTensorBondi\"\>"], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.843784478486718*^9, 3.843784491849868*^9}, 
   3.8437853211454067`*^9, 3.8437854424630623`*^9, 3.843819005844434*^9, 
   3.843821090451337*^9, 3.856093720681552*^9},
 CellLabel->"Out[54]=",ExpressionUUID->"bbb029e9-085d-44b4-a6ec-b3cb4ced0188"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"r", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"r", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                  RowBox[{"2", " ", 
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}]}], "+", 
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"8", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"10", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                    RowBox[{"10", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "+", 
                 RowBox[{"12", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["r", "4"]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"r", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "+", 
              RowBox[{
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"8", " ", 
                   SuperscriptBox["r", "3"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"10", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"6", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                    RowBox[{"5", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}], "-", 
                 RowBox[{"12", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox[
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["r", "4"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{"8", " ", 
               SuperscriptBox["r", "3"], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"12", " ", 
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"4", " ", 
               SuperscriptBox["r", "3"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                 RowBox[{"10", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", "2"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "3"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["r", "3"]}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{"-", 
               RowBox[{"8", " ", 
                SuperscriptBox["r", "3"], " ", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "r"}],
                 MultilineFunction->None], " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "r"}]}],
                 MultilineFunction->None]}]}], "+", 
              RowBox[{"12", " ", 
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"4", " ", 
               SuperscriptBox["r", "3"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", 
                  SuperscriptBox["r", "2"]}]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"2", " ", 
                   SuperscriptBox["r", "2"], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                 RowBox[{"5", " ", "r", " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  SuperscriptBox[
                   RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
              RowBox[{
               SuperscriptBox["r", "2"], " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "3"], 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "3"]}],
                MultilineFunction->None]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{"2", " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]]}]}], 
             RowBox[{"3", " ", 
              SuperscriptBox["r", "3"]}]]},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
                  ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"6", " ", "r"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}]}], "+", 
                RowBox[{"12", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "3"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   RowBox[{"5", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "3"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}]}], ")"}]}], 
             RowBox[{"6", " ", "r"}]]},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"6", " ", "r"}]]},
           {
            FractionBox[
             RowBox[{
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"8", " ", 
                 SuperscriptBox["r", "3"], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"12", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "3"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "+", 
                   RowBox[{"10", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "2"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "+", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "3"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}]}], ")"}]}], 
             RowBox[{"6", " ", "r"}]]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]},
      {
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"r", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"8", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                    RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                    RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
                   ")"}]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "u"}],
                   MultilineFunction->None]}]}], ")"}]}], 
              RowBox[{"6", " ", "r"}]]}]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"-", 
                 RowBox[{"8", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}]}], "+", 
                RowBox[{"12", " ", 
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"4", " ", 
                 SuperscriptBox["r", "3"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                   RowBox[{"5", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "r"}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", "r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "2"]}],
                  MultilineFunction->None]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                RowBox[{
                 SuperscriptBox["r", "2"], " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "3"], 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", 
                   SuperscriptBox["r", "3"]}],
                  MultilineFunction->None]}], "+", 
                RowBox[{"2", " ", 
                 SuperscriptBox["\[ExponentialE]", 
                  RowBox[{"2", " ", 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}]}], ")"}]}], 
             RowBox[{"6", " ", "r"}]]}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {"0"},
           {"0"},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}], 
       RowBox[{"(", "\[NoBreak]", 
        TagBox[GridBox[{
           {
            FractionBox[
             RowBox[{
              RowBox[{
               SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
              SuperscriptBox["\[ExponentialE]", 
               RowBox[{
                RowBox[{"-", "2"}], " ", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"-", 
                    RowBox[{"4", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["u", "2"]}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                   RowBox[{"8", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                   RowBox[{
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "+", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"8", "-", 
                    RowBox[{"4", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                   RowBox[{"4", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"2", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], ")"}]}], "-", 
                RowBox[{"2", " ", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}], " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                    MultilineFunction->None]}]}], ")"}]}], "+", 
                   RowBox[{"2", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "u"}],
                    MultilineFunction->None], " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}]}]}], 
                  ")"}]}], "+", 
                RowBox[{"2", " ", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "-", 
                   RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "+", "3"}], ")"}], " ", 
                 FractionBox[
                  RowBox[{"\[PartialD]", 
                   RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{"\[PartialD]", "u"}],
                  MultilineFunction->None]}]}], ")"}]}], 
             RowBox[{"6", " ", "r"}]]},
           {
            RowBox[{"-", 
             FractionBox[
              RowBox[{
               RowBox[{
                SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
               SuperscriptBox["\[ExponentialE]", 
                RowBox[{
                 RowBox[{"-", "2"}], " ", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"-", 
                  RowBox[{"8", " ", 
                   SuperscriptBox["r", "3"], " ", 
                   FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], " ", 
                   FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                    MultilineFunction->None]}]}], "+", 
                 RowBox[{"12", " ", 
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", "r"}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"4", " ", 
                  SuperscriptBox["r", "3"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{
                    RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}], "-", 
                    RowBox[{"5", " ", "r", " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}], "-", "1"}], ")"}], " ", 
                  FractionBox[
                   RowBox[{"\[PartialD]", 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", "r"}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", "r", " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                   MultilineFunction->None]}], "-", 
                 RowBox[{"2", " ", 
                  RowBox[{"V", "(", 
                   RowBox[{"u", ",", "r"}], ")"}], " ", 
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"2", " ", 
                    SuperscriptBox["r", "2"], " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], "+", "7"}], ")"}], " ", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None]}]}], "+", 
                    RowBox[{"r", " ", 
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"r", " ", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                    MultilineFunction->None]}], "+", 
                    FractionBox[
                    RowBox[{
                    SuperscriptBox["\[PartialD]", "2"], 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "2"]}],
                    MultilineFunction->None]}], ")"}]}], "+", 
                    RowBox[{"2", " ", "r", " ", 
                    SuperscriptBox[
                    RowBox[{"(", 
                    FractionBox[
                    RowBox[{"\[PartialD]", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                    RowBox[{"\[PartialD]", "r"}],
                    MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], "-", 
                 RowBox[{
                  SuperscriptBox["r", "2"], " ", 
                  FractionBox[
                   RowBox[{
                    SuperscriptBox["\[PartialD]", "3"], 
                    RowBox[{"V", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                   RowBox[{"\[PartialD]", 
                    SuperscriptBox["r", "3"]}],
                   MultilineFunction->None]}], "+", 
                 RowBox[{"2", " ", 
                  SuperscriptBox["\[ExponentialE]", 
                   RowBox[{"2", " ", 
                    RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}]]}]}], ")"}]}], 
              RowBox[{"6", " ", "r"}]]}]},
           {"0"},
           {"0"}
          },
          GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
          
          GridBoxSpacings->{"Columns" -> {
              Offset[0.27999999999999997`], {
               Offset[0.5599999999999999]}, 
              Offset[0.27999999999999997`]}, "Rows" -> {
              Offset[0.2], {
               Offset[0.4]}, 
              Offset[0.2]}}],
         Column], "\[NoBreak]", ")"}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{{3.843784478486718*^9, 3.843784491849868*^9}, 
   3.8437853211454067`*^9, 3.8437854424630623`*^9, 3.843819005844434*^9, 
   3.843821090451337*^9, 3.856093721417399*^9},
 CellLabel->
  "Out[55]//TraditionalForm=",ExpressionUUID->"9fb588e1-0513-4e37-a476-\
7292a27d7e95"]
}, Closed]],

Cell[CellGroupData[{

Cell["Derivation of Vacuum Field Equations  For Metric 2.2", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.855773448192749*^9, 3.8557734613620567`*^9}, {
  3.856093961761793*^9, 
  3.856093968910069*^9}},ExpressionUUID->"b553352c-510d-4e85-8262-\
d8a965727bba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroRicci", "]"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"Cases", "[", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", " ", 
          RowBox[{
           RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
           RowBox[{
            RowBox[{"TensorValues", "[", 
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "4", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
         " ", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
      " ", 
      RowBox[{"Except", "[", "0", "]"}]}], "]"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroRicci", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8550804551055307`*^9, 3.855080461809052*^9}, 
   3.855773453961225*^9, 3.856093961762188*^9},
 CellLabel->"In[76]:=",ExpressionUUID->"abdec1bc-43dd-49ff-9c16-c9103da9fca8"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"4", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"r", " ", 
                 FractionBox[
                  RowBox[{
                   SuperscriptBox["\[PartialD]", "2"], 
                   RowBox[{"\[Beta]", "(", 
                    RowBox[{"u", ",", "r"}], ")"}]}], 
                  RowBox[{
                   RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                   RowBox[{"\[PartialD]", "r"}]}],
                  MultilineFunction->None]}], "+", 
                FractionBox[
                 RowBox[{"\[PartialD]", 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{"\[PartialD]", "u"}],
                 MultilineFunction->None]}], ")"}]}]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}], "+", 
         RowBox[{"2", " ", "r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "3"]}]]},
      {
       FractionBox[
        RowBox[{
         RowBox[{"r", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"4", " ", "r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "r"}]}],
               MultilineFunction->None]}]}], "+", 
            FractionBox[
             RowBox[{
              SuperscriptBox["\[PartialD]", "2"], 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", 
              SuperscriptBox["r", "2"]}],
             MultilineFunction->None], "+", 
            RowBox[{"2", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"r", " ", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None]}], "+", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}]}], 
        RowBox[{"2", " ", 
         SuperscriptBox["r", "2"]}]]},
      {
       FractionBox[
        RowBox[{"4", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "r"]},
      {
       RowBox[{"1", "-", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}]}]},
      {
       RowBox[{
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           SuperscriptBox["\[ExponentialE]", 
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.856093722185747*^9, 3.856093961762402*^9},
 CellLabel->
  "Out[78]//TraditionalForm=",ExpressionUUID->"fed0b46b-ea84-4fbe-8274-\
fa75a0e6fdf0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "nonzeroEinstein", "]"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"DeleteDuplicates", "[", 
    RowBox[{"Cases", "[", " ", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"If", "[", " ", 
          RowBox[{
           RowBox[{"i", "<=", " ", "j"}], " ", ",", " ", 
           RowBox[{
            RowBox[{"TensorValues", "[", 
             RowBox[{"tensorList", "[", 
              RowBox[{"[", "7", "]"}], "]"}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "Nothing"}], "]"}], 
         " ", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "4"}], "}"}]}], "]"}], "]"}], " ", ",", 
      " ", 
      RowBox[{"Except", "[", "0", "]"}]}], "]"}], "]"}]}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"nonzeroEinstein", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8550804645210114`*^9, 3.855080470568581*^9}, 
   3.855773453961347*^9, 3.8560939617626553`*^9},
 CellLabel->"In[79]:=",ExpressionUUID->"b7e96939-d8ae-478e-9d00-9acde20acb9d"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       FractionBox[
        RowBox[{
         RowBox[{"2", " ", 
          SuperscriptBox[
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "+", 
         RowBox[{
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[ExponentialE]", 
             RowBox[{"2", " ", 
              RowBox[{"\[Beta]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}]], "-", 
            RowBox[{"2", " ", "r", " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], "-", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}], ")"}]}], "+", 
         RowBox[{"r", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "u"}],
           MultilineFunction->None]}]}], 
        SuperscriptBox["r", "3"]]},
      {
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], "+", 
         RowBox[{"2", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "-", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], 
        SuperscriptBox["r", "2"]]},
      {
       FractionBox[
        RowBox[{"4", " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None]}], "r"]},
      {
       RowBox[{
        FractionBox["1", "2"], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              RowBox[{"4", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None]}]}], "+", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], "+", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], ")"}]}], "-", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], "-", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]},
      {
       RowBox[{
        RowBox[{"-", 
         FractionBox["1", "2"]}], " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"r", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"4", " ", "r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{
                RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                RowBox[{"\[PartialD]", "r"}]}],
               MultilineFunction->None]}], "-", 
             FractionBox[
              RowBox[{
               SuperscriptBox["\[PartialD]", "2"], 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", 
               SuperscriptBox["r", "2"]}],
              MultilineFunction->None], "-", 
             RowBox[{"2", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None]}]}], ")"}]}], "+", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], "-", 
             RowBox[{"r", " ", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None]}]}], ")"}]}]}], ")"}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{3.8560937222616253`*^9, 3.8560939617628193`*^9},
 CellLabel->
  "Out[81]//TraditionalForm=",ExpressionUUID->"b531d744-5fbd-4e49-a7cd-\
947723376700"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt5a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"eq2pt5a", "  ", "=", " ", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Solve", "[", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"nonzeroEinstein", "[", 
           RowBox[{"[", "3", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
         RowBox[{
          SuperscriptBox["\[Beta]", 
           TagBox[
            RowBox[{"(", 
             RowBox[{"0", ",", "1"}], ")"}],
            Derivative],
           MultilineFunction->None], "[", 
          RowBox[{"u", ",", "r"}], "]"}]}], " ", "]"}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
     RowBox[{"Rule", "->", " ", "Equal"}]}]}], " ", ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt5a", "  ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8560938959820642`*^9, 3.856093961762968*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"078e70ec-e36f-403d-83d8-643add3b6006"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", "0"}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.856093943447956*^9, 3.856093961763136*^9}},
 CellLabel->
  "Out[100]//TraditionalForm=",ExpressionUUID->"1d395866-7fe0-45b5-9feb-\
405d8d19fc2e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt6a", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt6a", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"nonzeroRicci", "[", 
          RowBox[{"[", "4", "]"}], "]"}], " ", "==", " ", "0"}], " ", ",", 
        " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "r"}], "]"}]}], " ", "]"}], " ", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt6a", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8560938160787*^9, 3.856093878167943*^9}, 
   3.85609396176337*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"a6733838-a2ee-4506-ae9a-ce58d56558e1"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.},
 CellChangeTimes->{{3.8560938168205347`*^9, 3.8560938421794863`*^9}, 
   3.8560938785222282`*^9, 3.8560939617639914`*^9},
 CellLabel->
  "Out[89]//TraditionalForm=",ExpressionUUID->"eb141c70-1525-43c3-bdee-\
f2745097acd3"]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
Scalar Field Stress Energy Tensor ,  Scalar Wave Equation , and Field \
Equations With Matter\
\>", "Section",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.829314175981791*^9, 3.829314187414817*^9}, 
   3.829314858825903*^9, {3.8437865017990303`*^9, 3.8437865111251297`*^9}, {
   3.843787693221065*^9, 3.843787708348789*^9}, {3.8438214426636763`*^9, 
   3.843821447263476*^9}, {3.843821926631703*^9, 3.8438219329522038`*^9}, {
   3.856093979453886*^9, 
   3.8560939830943527`*^9}},ExpressionUUID->"291b7382-0d63-4212-b9e7-\
dc01abbeca8f"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "phi", "]"}], "\[IndentingNewLine]", 
 RowBox[{"phi", " ", "=", " ", "\[IndentingNewLine]", 
  RowBox[{"ToTensor", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"\"\<PhiScalar\>\"", ",", "\"\<\[CapitalPhi]\>\""}], "}"}], " ", 
    ",", " ", 
    RowBox[{"tensorList", "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", ",", 
    RowBox[{"\[CapitalPhi]", "[", 
     RowBox[{"u", ",", "r"}], "]"}]}], " ", "]"}]}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8293131000456657`*^9, 3.829313132755116*^9}, 
   3.8293141813417463`*^9, 3.82931485882617*^9, {3.8437864245499372`*^9, 
   3.843786432909465*^9}, {3.843821230680805*^9, 3.843821246952265*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"81f4301c-c0ce-47ea-9e52-bb4b599f9596"],

Cell[BoxData[
 TagBox["\<\"\[CapitalPhi]\"\>",
  DisplayForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314207093236*^9, 3.829314858826318*^9, 
  3.8437864346268177`*^9, 3.843819006804701*^9, 3.84382124774255*^9, 
  3.8560937214686127`*^9},
 CellLabel->"Out[57]=",ExpressionUUID->"4ceb883e-9172-44c7-8ac6-e19bab803097"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "Tscalar", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tscalar", " ", "=", " ", "\[IndentingNewLine]", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"8", " ", "\[Pi]", " ", "*", " ", 
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"TensorValues", "[", 
         RowBox[{"MergeTensors", "[", 
          RowBox[{
           RowBox[{"CovariantD", "[", " ", 
            RowBox[{"phi", ",", 
             RowBox[{"-", "\[Mu]"}]}], "]"}], " ", 
           RowBox[{"CovariantD", "[", " ", 
            RowBox[{"phi", ",", 
             RowBox[{"-", "\[Nu]"}]}], "]"}]}], "]"}], "]"}], " ", "+", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "/", "2"}], ")"}], "*", 
         RowBox[{"(", " ", 
          RowBox[{"TensorValues", "[", "\[IndentingNewLine]", 
           RowBox[{"MergeTensors", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"tensorList", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "[", 
              RowBox[{
               RowBox[{"-", "\[Mu]"}], ",", 
               RowBox[{"-", "\[Nu]"}]}], "]"}], "  ", 
             RowBox[{
              RowBox[{"tensorList", "[", 
               RowBox[{"[", "1", "]"}], "]"}], "[", 
              RowBox[{"\[Alpha]", ",", "\[Beta]"}], "]"}], " ", 
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{"phi", ",", 
               RowBox[{"-", "\[Alpha]"}]}], "]"}], " ", 
             RowBox[{"CovariantD", "[", " ", 
              RowBox[{"phi", ",", 
               RowBox[{"-", "\[Beta]"}]}], "]"}]}], "]"}], " ", "]"}], " ", 
          ")"}]}]}], "    ", ")"}]}], "  ", "//", " ", "Expand"}], " ", "//", 
    " ", "Simplify"}]}], "  ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Tscalar", " ", "//", " ", "MatrixForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821337944845*^9, 3.843821405231922*^9}, {
   3.84382153769678*^9, 3.843821549792458*^9}, 3.843821941096065*^9},
 CellLabel->"In[58]:=",ExpressionUUID->"6c8fc83b-3080-4a15-ab7e-eb17cbb360c7"],

Cell[BoxData[
 FormBox[
  TagBox[
   RowBox[{"(", "\[NoBreak]", GridBox[{
      {
       FractionBox[
        RowBox[{"4", " ", "\[Pi]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", 
            SuperscriptBox["r", "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None], ")"}], "2"]}], "-", 
           RowBox[{"2", " ", "r", " ", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[CapitalPhi]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
        SuperscriptBox["r", "2"]], 
       FractionBox[
        RowBox[{"4", " ", "\[Pi]", " ", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"]}], "r"], "0", "0"},
      {
       FractionBox[
        RowBox[{"4", " ", "\[Pi]", " ", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r"}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"]}], "r"], 
       RowBox[{"8", " ", "\[Pi]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[CapitalPhi]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None], ")"}], "2"]}], "0", "0"},
      {"0", "0", 
       RowBox[{"4", " ", "\[Pi]", " ", "r", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}], "0"},
      {"0", "0", "0", 
       RowBox[{"4", " ", "\[Pi]", " ", "r", " ", 
        RowBox[{
         SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[CapitalPhi]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}], "-", 
          RowBox[{
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}]}], ")"}]}]}
     },
     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$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821355747982*^9, 3.843821366319004*^9}, 
   3.84382140581217*^9, 3.843821550638599*^9, 3.8438219410972977`*^9, 
   3.8560937216530457`*^9},
 CellLabel->
  "Out[60]//TraditionalForm=",ExpressionUUID->"ad5cacac-3584-47e3-89be-\
dbb9eee3ac3e"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "fieldEquations", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"Thread", "[", 
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"TensorValues", "[", 
       RowBox[{"tensorList", "[", 
        RowBox[{"[", "7", "]"}], "]"}], "]"}], "]"}], "==", " ", 
     RowBox[{"Flatten", "[", "Tscalar", "]"}]}], " ", "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fieldEquations", " ", "//", " ", "TableForm"}], " ", "//", " ", 
  "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821453570833*^9, 3.843821518143944*^9}, {
   3.843821555976397*^9, 3.8438215572400217`*^9}, 3.843821941097687*^9},
 CellLabel->"In[61]:=",ExpressionUUID->"8bdd443a-6831-4fea-84eb-f9141d2a0d2e"],

Cell[BoxData[
 FormBox[
  TagBox[
   TagBox[GridBox[{
      {
       RowBox[{
        FractionBox[
         RowBox[{
          RowBox[{"2", " ", 
           SuperscriptBox[
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "+", 
          RowBox[{
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[ExponentialE]", 
              RowBox[{"2", " ", 
               RowBox[{"\[Beta]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}]], "-", 
             RowBox[{"2", " ", "r", " ", 
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "u"}],
               MultilineFunction->None]}], "-", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"V", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None]}], ")"}]}], "+", 
          RowBox[{"r", " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "u"}],
            MultilineFunction->None]}]}], 
         SuperscriptBox["r", "3"]], "\[LongEqual]", 
        FractionBox[
         RowBox[{"4", " ", "\[Pi]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "u"}],
                MultilineFunction->None], ")"}], "2"]}], "-", 
            RowBox[{"2", " ", "r", " ", 
             RowBox[{"V", "(", 
              RowBox[{"u", ",", "r"}], ")"}], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "r"}],
              MultilineFunction->None], " ", 
             FractionBox[
              RowBox[{"\[PartialD]", 
               RowBox[{"\[CapitalPhi]", "(", 
                RowBox[{"u", ",", "r"}], ")"}]}], 
              RowBox[{"\[PartialD]", "u"}],
              MultilineFunction->None]}], "+", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"V", "(", 
               RowBox[{"u", ",", "r"}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[CapitalPhi]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], ")"}], "2"]}]}], ")"}]}], 
         SuperscriptBox["r", "2"]]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}]], "+", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], 
         SuperscriptBox["r", "2"]], "\[LongEqual]", 
        FractionBox[
         RowBox[{"4", " ", "\[Pi]", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], "r"]}]},
      {"True"},
      {"True"},
      {
       RowBox[{
        FractionBox[
         RowBox[{
          SuperscriptBox["\[ExponentialE]", 
           RowBox[{"2", " ", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}]], "+", 
          RowBox[{"2", " ", 
           RowBox[{"V", "(", 
            RowBox[{"u", ",", "r"}], ")"}], " ", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[Beta]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None]}], "-", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], 
         SuperscriptBox["r", "2"]], "\[LongEqual]", 
        FractionBox[
         RowBox[{"4", " ", "\[Pi]", " ", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None], ")"}], "2"]}], "r"]}]},
      {
       RowBox[{
        FractionBox[
         RowBox[{"4", " ", 
          FractionBox[
           RowBox[{"\[PartialD]", 
            RowBox[{"\[Beta]", "(", 
             RowBox[{"u", ",", "r"}], ")"}]}], 
           RowBox[{"\[PartialD]", "r"}],
           MultilineFunction->None]}], "r"], "\[LongEqual]", 
        RowBox[{"8", " ", "\[Pi]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           FractionBox[
            RowBox[{"\[PartialD]", 
             RowBox[{"\[CapitalPhi]", "(", 
              RowBox[{"u", ",", "r"}], ")"}]}], 
            RowBox[{"\[PartialD]", "r"}],
            MultilineFunction->None], ")"}], "2"]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         FractionBox["1", "2"], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"4", " ", "r", " ", 
                FractionBox[
                 RowBox[{
                  SuperscriptBox["\[PartialD]", "2"], 
                  RowBox[{"\[Beta]", "(", 
                   RowBox[{"u", ",", "r"}], ")"}]}], 
                 RowBox[{
                  RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                  RowBox[{"\[PartialD]", "r"}]}],
                 MultilineFunction->None]}]}], "+", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None], "+", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}]}], "-", 
           RowBox[{"2", " ", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], "-", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
        "\[LongEqual]", 
        RowBox[{"4", " ", "\[Pi]", " ", "r", " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]}], "-", 
           RowBox[{
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}]}]},
      {"True"},
      {"True"},
      {"True"},
      {"True"},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          FractionBox["1", "2"]}], " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"r", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"4", " ", "r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{
                 RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
                 RowBox[{"\[PartialD]", "r"}]}],
                MultilineFunction->None]}], "-", 
              FractionBox[
               RowBox[{
                SuperscriptBox["\[PartialD]", "2"], 
                RowBox[{"V", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", 
                SuperscriptBox["r", "2"]}],
               MultilineFunction->None], "-", 
              RowBox[{"2", " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None], " ", 
               FractionBox[
                RowBox[{"\[PartialD]", 
                 RowBox[{"V", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", "r"}],
                MultilineFunction->None]}]}], ")"}]}], "+", 
           RowBox[{"2", " ", 
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              FractionBox[
               RowBox[{"\[PartialD]", 
                RowBox[{"\[Beta]", "(", 
                 RowBox[{"u", ",", "r"}], ")"}]}], 
               RowBox[{"\[PartialD]", "r"}],
               MultilineFunction->None], "-", 
              RowBox[{"r", " ", 
               FractionBox[
                RowBox[{
                 SuperscriptBox["\[PartialD]", "2"], 
                 RowBox[{"\[Beta]", "(", 
                  RowBox[{"u", ",", "r"}], ")"}]}], 
                RowBox[{"\[PartialD]", 
                 SuperscriptBox["r", "2"]}],
                MultilineFunction->None]}]}], ")"}]}]}], ")"}]}], 
        "\[LongEqual]", 
        RowBox[{"4", " ", "\[Pi]", " ", "r", " ", 
         RowBox[{
          SuperscriptBox["sin", "2"], "(", "\[Theta]", ")"}], " ", 
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         FractionBox[
          RowBox[{"\[PartialD]", 
           RowBox[{"\[CapitalPhi]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}], 
          RowBox[{"\[PartialD]", "r"}],
          MultilineFunction->None], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", " ", "r", " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "u"}],
             MultilineFunction->None]}], "-", 
           RowBox[{
            RowBox[{"V", "(", 
             RowBox[{"u", ",", "r"}], ")"}], " ", 
            FractionBox[
             RowBox[{"\[PartialD]", 
              RowBox[{"\[CapitalPhi]", "(", 
               RowBox[{"u", ",", "r"}], ")"}]}], 
             RowBox[{"\[PartialD]", "r"}],
             MultilineFunction->None]}]}], ")"}]}]}]}
     },
     GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}}],
    Column],
   Function[BoxForm`e$, 
    TableForm[BoxForm`e$]]], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821455858487*^9, 3.843821518693013*^9}, {
   3.8438215547740383`*^9, 3.8438215583163853`*^9}, 3.843821941098444*^9, 
   3.856093721810203*^9},
 CellLabel->
  "Out[63]//TraditionalForm=",ExpressionUUID->"20650060-e050-4ea7-a399-\
49b43cbfe9d4"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt5", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt5", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"fieldEquations", "[", 
         RowBox[{"[", "6", "]"}], "]"}], ",", " ", 
        RowBox[{
         SuperscriptBox["\[Beta]", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "r"}], "]"}]}], " ", "]"}], " ", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt5", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821572311789*^9, 3.843821647104784*^9}, 
   3.8438219410989313`*^9},
 CellLabel->"In[64]:=",ExpressionUUID->"6df0ced6-b3c8-4bc7-9c76-c9b70d7def4e"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{"2", " ", "\[Pi]", " ", "r", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[CapitalPhi]", "(", 
         RowBox[{"u", ",", "r"}], ")"}]}], 
       RowBox[{"\[PartialD]", "r"}],
       MultilineFunction->None], ")"}], "2"]}]}], TraditionalForm]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821573911038*^9, 3.843821616956417*^9}, 
   3.843821647607815*^9, 3.843821941099882*^9, 3.856093721831729*^9},
 CellLabel->
  "Out[66]//TraditionalForm=",ExpressionUUID->"51f837a9-ea03-4777-ab07-\
9eb52459fcb0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{"eq2pt5", " ", "/.", " ", 
    RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}], "  ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8438216992744427`*^9, 3.84382171823987*^9}, 
   3.843821941100237*^9, {3.84602008012921*^9, 3.846020081519846*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"ae48331b-9697-4365-82cd-001295c0d279"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[Rule]", 
   RowBox[{"2", " ", "\[Pi]", " ", "r", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"\[PartialD]", 
        RowBox[{"\[CapitalPhi]", "(", 
         RowBox[{"u", ",", "r"}], ")"}]}], 
       RowBox[{"\[PartialD]", "r"}],
       MultilineFunction->None], ")"}], "2"]}]}], TraditionalForm]], "Output",\

 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.84382171337015*^9, 3.8438217185827503`*^9}, 
   3.8438219411010036`*^9, 3.856093721862907*^9},
 CellLabel->
  "Out[67]//TraditionalForm=",ExpressionUUID->"af5d4c8f-1751-42a0-a03c-\
21d352a92388"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Flatten", "[", 
      RowBox[{"Solve", "[", " ", 
       RowBox[{
        RowBox[{"fieldEquations", "[", 
         RowBox[{"[", "2", "]"}], "]"}], "  ", ",", " ", 
        RowBox[{
         SuperscriptBox["V", 
          TagBox[
           RowBox[{"(", 
            RowBox[{"0", ",", "1"}], ")"}],
           Derivative],
          MultilineFunction->None], "[", 
         RowBox[{"u", ",", "r"}], "]"}]}], " ", "]"}], " ", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
    RowBox[{"Rule", "->", " ", "Equal"}]}], "  ", ")"}], "  ", "//", " ", 
  "pdConv"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821659225371*^9, 3.843821692376326*^9}, {
   3.843821727329424*^9, 3.8438217296240387`*^9}, 3.843821941101523*^9},
 CellLabel->"In[68]:=",ExpressionUUID->"356f8cf0-aeb0-46f9-9b9e-67cd0f83156b"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"2", " ", 
      RowBox[{"\[Beta]", "(", 
       RowBox[{"u", ",", "r"}], ")"}]}]], "+", 
    RowBox[{"2", " ", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], "-", 
    RowBox[{"4", " ", "\[Pi]", " ", "r", " ", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"\[PartialD]", 
         RowBox[{"\[CapitalPhi]", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}], 
        RowBox[{"\[PartialD]", "r"}],
        MultilineFunction->None], ")"}], "2"]}]}]}], 
  TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821657033663*^9, 3.8438216928665657`*^9}, 
   3.843821729891899*^9, 3.8438219411027937`*^9, 3.856093721899674*^9},
 CellLabel->
  "Out[68]//TraditionalForm=",ExpressionUUID->"d894158f-2d15-4356-9ae5-\
07151925f23b"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt6", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt6", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"(", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Flatten", "[", 
        RowBox[{"Solve", "[", " ", 
         RowBox[{
          RowBox[{"fieldEquations", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "  ", ",", " ", 
          RowBox[{
           SuperscriptBox["V", 
            TagBox[
             RowBox[{"(", 
              RowBox[{"0", ",", "1"}], ")"}],
             Derivative],
            MultilineFunction->None], "[", 
           RowBox[{"u", ",", "r"}], "]"}]}], " ", "]"}], " ", "]"}], "[", 
       RowBox[{"[", "1", "]"}], "]"}], " ", "/.", " ", 
      RowBox[{"Rule", "->", " ", "Equal"}]}], "  ", ")"}], "  ", "/.", " ", 
    RowBox[{"(", " ", 
     RowBox[{"eq2pt5", " ", "/.", " ", 
      RowBox[{"Equal", "->", " ", "Rule"}]}], "  ", ")"}]}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt6", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821735991984*^9, 3.843821759392003*^9}, 
   3.8438219411032352`*^9},
 CellLabel->"In[69]:=",ExpressionUUID->"386c5bf2-b91d-46b3-9460-42ab228c4f5a"],

Cell[BoxData[
 FormBox[
  RowBox[{
   FractionBox[
    RowBox[{"\[PartialD]", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}], 
    RowBox[{"\[PartialD]", "r"}],
    MultilineFunction->None], "\[LongEqual]", 
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"2", " ", 
     RowBox[{"\[Beta]", "(", 
      RowBox[{"u", ",", "r"}], ")"}]}]]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843821742757834*^9, 3.843821759856887*^9}, 
   3.843821941103993*^9, 3.856093721933696*^9},
 CellLabel->
  "Out[71]//TraditionalForm=",ExpressionUUID->"6851742c-6fb8-42d0-ace0-\
337baf607564"],

Cell[BoxData[
 RowBox[{"Timing", "[", 
  RowBox[{"waveScalar1", "=", 
   RowBox[{"CovariantD", "[", 
    RowBox[{"phi", ",", 
     RowBox[{"-", "\[Alpha]"}], ",", "\[Alpha]"}], "]"}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314181341867*^9, 3.8293148588264627`*^9},
 CellLabel->"In[72]:=",ExpressionUUID->"d5d7deda-c9f8-4815-881e-7d4e72ace6ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.019664`", ",", 
   RowBox[{
    TagBox[
     SubsuperscriptBox[
      SuperscriptBox["g", "bondi"], "", "\[Alpha]\[Beta]"],
     DisplayForm], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        TagBox[
         SubsuperscriptBox["\[CapitalGamma]", 
          RowBox[{"  ", "\[Alpha]\[Beta]"}], 
          RowBox[{"\[Gamma]", "    "}]],
         DisplayForm]}], " ", 
       TagBox[
        SubsuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}], "\[Gamma]", ""],
        DisplayForm]}], "+", 
      TagBox[
       SubsuperscriptBox[
        RowBox[{"(", 
         RowBox[{"\[PartialD]", 
          RowBox[{"(", 
           RowBox[{"\[PartialD]", "\[CapitalPhi]"}], ")"}]}], ")"}], 
        "\[Beta]\[Alpha]", ""],
       DisplayForm]}], ")"}]}]}], "}"}]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{3.829314207139422*^9, 3.8293148588266*^9, 
  3.843786440033133*^9, 3.843819006868981*^9, 3.8438212564933147`*^9, 
  3.856093721966856*^9},
 CellLabel->"Out[72]=",ExpressionUUID->"abe67673-22f8-4aa4-909b-12a11e951599"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "eq2pt7", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"eq2pt7", " ", "=", " ", "\[IndentingNewLine]", 
   RowBox[{"TensorValues", "[", 
    RowBox[{"MergeTensors", "[", "waveScalar1", "]"}], "]"}]}], "  ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"eq2pt7", " ", "//", " ", "pdConv"}]}], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.843786463172721*^9, 3.843786525845388*^9}, 
   3.8437869973286047`*^9, {3.843821268048376*^9, 3.843821279472357*^9}, {
   3.843821860608507*^9, 3.843821866946496*^9}},
 CellLabel->"In[73]:=",ExpressionUUID->"3b5a288a-7279-497e-af70-3a5e0d57e6e4"],

Cell[BoxData[
 FormBox[
  RowBox[{
   RowBox[{"2", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "2"}], " ", 
      RowBox[{"\[Beta]", "(", 
       RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
    FractionBox[
     RowBox[{
      SuperscriptBox["\[PartialD]", "2"], 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"u", ",", "r"}], ")"}]}], 
     RowBox[{
      RowBox[{"\[PartialD]", "u"}], "\[ThinSpace]", 
      RowBox[{"\[PartialD]", "r"}]}],
     MultilineFunction->None]}], "-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}], " ", 
     FractionBox[
      RowBox[{
       SuperscriptBox["\[PartialD]", "2"], 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}], 
      RowBox[{"\[PartialD]", 
       SuperscriptBox["r", "2"]}],
      MultilineFunction->None]}], "r"], "-", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], 
    SuperscriptBox["r", "2"]], "-", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      RowBox[{"\[Beta]", "(", 
       RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
    FractionBox[
     RowBox[{"\[PartialD]", 
      RowBox[{"\[CapitalPhi]", "(", 
       RowBox[{"u", ",", "r"}], ")"}]}], 
     RowBox[{"\[PartialD]", "r"}],
     MultilineFunction->None], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{"2", " ", 
           RowBox[{"\[Beta]", "(", 
            RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
         RowBox[{"V", "(", 
          RowBox[{"u", ",", "r"}], ")"}]}], 
        SuperscriptBox["r", "2"]]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"V", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "r"], "+", 
      FractionBox[
       RowBox[{"2", " ", 
        SuperscriptBox["\[ExponentialE]", 
         RowBox[{"2", " ", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
        RowBox[{"V", "(", 
         RowBox[{"u", ",", "r"}], ")"}], " ", 
        FractionBox[
         RowBox[{"\[PartialD]", 
          RowBox[{"\[Beta]", "(", 
           RowBox[{"u", ",", "r"}], ")"}]}], 
         RowBox[{"\[PartialD]", "r"}],
         MultilineFunction->None]}], "r"]}], ")"}]}], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}], 
      RowBox[{"\[PartialD]", "u"}],
      MultilineFunction->None]}], "r"], "+", 
   FractionBox[
    RowBox[{"2", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}]], " ", 
     RowBox[{"V", "(", 
      RowBox[{"u", ",", "r"}], ")"}], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[Beta]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None], " ", 
     FractionBox[
      RowBox[{"\[PartialD]", 
       RowBox[{"\[CapitalPhi]", "(", 
        RowBox[{"u", ",", "r"}], ")"}]}], 
      RowBox[{"\[PartialD]", "r"}],
      MultilineFunction->None]}], "r"]}], TraditionalForm]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.},
 CellChangeTimes->{{3.8437864645390778`*^9, 3.843786485695141*^9}, 
   3.843786997331403*^9, 3.84381900708435*^9, {3.843821260158113*^9, 
   3.843821281011402*^9}, 3.8438218695207663`*^9, 3.856093722120248*^9},
 CellLabel->
  "Out[75]//TraditionalForm=",ExpressionUUID->"abc5d6a1-dea6-4a34-ae81-\
33c1de4f9bba"]
}, Closed]]
},
WindowSize->{1276, 675},
WindowMargins->{{-1276, Automatic}, {Automatic, 0}},
FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (February 4, 2022)",
StyleDefinitions->FrontEnd`FileName[{"Report"}, "StandardReport.nb", 
  CharacterEncoding -> "UTF-8"],
ExpressionUUID->"b6b8800f-2dd3-4293-85fe-6b3da3de62a5"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1405, 21, 221, "Title",ExpressionUUID->"7404558f-5151-451e-abd6-24c7d360af30",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[1988, 45, 1244, 21, 94, "Author",ExpressionUUID->"a3118640-e16e-4fb8-a22b-c5c6d48f0aa7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Open  ]],
Cell[CellGroupData[{
Cell[3269, 71, 228, 4, 69, "Section",ExpressionUUID->"229a0fb1-3376-44e8-aff5-24ef55c8ad05",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3500, 77, 438, 10, 63, "Input",ExpressionUUID->"de619fba-350a-4ca9-ac20-f2630bdb9865",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[3941, 89, 1193, 20, 43, "Output",ExpressionUUID->"0b3d2584-a7d3-45f3-b8bb-68fae474bac8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[5171, 114, 596, 10, 55, "Section",ExpressionUUID->"a8c28d3c-c7a4-4dc9-b41e-161edafda03f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[5770, 126, 463, 10, 63, "Input",ExpressionUUID->"3c17ad01-e019-4e5f-82e7-89ebd9cb10a5",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6236, 138, 430, 9, 43, "Output",ExpressionUUID->"503391fd-81e0-4092-a36d-32d5b78f13ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[6669, 149, 741, 17, 84, "Input",ExpressionUUID->"563e736a-e3eb-4f80-9380-8f05d3d94c54",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[7413, 168, 395, 8, 43, "Output",ExpressionUUID->"703c2e12-c3c7-4233-8554-3f33cd7fb434",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[7845, 181, 228, 4, 55, "Section",ExpressionUUID->"228ed43c-5a72-4ac1-80ff-75a34855d0a0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[8076, 187, 1645, 45, 189, "Input",ExpressionUUID->"85fcd01c-4533-4541-a441-4ab4fe630d9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[9724, 234, 1427, 24, 24, "Print",ExpressionUUID->"97602c2e-67f1-4aea-a14c-7a910606d115",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[11154, 260, 1446, 25, 24, "Print",ExpressionUUID->"a6a70204-95a3-49e2-a469-a20bcbb5320a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[12603, 287, 1820, 29, 84, "Output",ExpressionUUID->"0d5a0348-13e4-4d60-ba56-9e5d052df949",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[14426, 318, 246, 4, 41, "Input",ExpressionUUID->"222674ec-1d47-4134-b7de-b434aebf829f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[14709, 327, 240, 4, 55, "Section",ExpressionUUID->"8eafb9ae-77c2-462c-8ee8-69b4fe6336ce",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[14952, 333, 2548, 57, 420, "Input",ExpressionUUID->"4524a434-902d-4661-8476-cc28c0bad86a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[17503, 392, 2564, 74, 321, "Output",ExpressionUUID->"c0815664-c5a9-4c6b-a13b-ecfcf793f6bb",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]],
Cell[CellGroupData[{
Cell[20104, 471, 362, 6, 55, "Section",ExpressionUUID->"40d72553-9a7e-4bf2-99b4-0799ee75f414",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[20469, 479, 1659, 41, 126, "Input",ExpressionUUID->"e4ba8020-e4e5-434c-b9c2-96de9562f679",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}],
Cell[22131, 522, 1055, 26, 84, "Input",ExpressionUUID->"d67b923b-b6cb-4d73-9a64-c341f3367f4e",
 CellGroupingRules->{"GroupTogetherGrouping", 10003.}]
}, Closed]],
Cell[CellGroupData[{
Cell[23223, 553, 309, 5, 55, "Section",ExpressionUUID->"659bd121-8990-4749-b7b1-818b1d4da648",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[23535, 560, 1033, 25, 102, "Input",ExpressionUUID->"11feaeff-5b97-4f66-b48e-a60c9a14f51f",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[24571, 587, 913, 24, 57, "Output",ExpressionUUID->"b001125e-50df-4aed-8109-943af0c9951e",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[25487, 613, 575, 11, 41, "Input",ExpressionUUID->"809abf4c-53a4-4dcc-a28e-ff78c55c26fc",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[26065, 626, 1459, 40, 121, "Output",ExpressionUUID->"c4961a85-e098-4118-81be-5d15de09fb39",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[27527, 668, 944, 19, 147, "Input",ExpressionUUID->"42ba7464-f0b7-4c60-9cf9-96791ddb8e20",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[28474, 689, 1065, 31, 69, "Output",ExpressionUUID->"2e40b2c8-b7cc-4919-9ca5-ae061815fd29",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[29542, 722, 918, 19, 105, "Input",ExpressionUUID->"adff4ce2-9012-43ed-b96d-c0f975a4f460",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[30463, 743, 1838, 50, 122, "Output",ExpressionUUID->"31fe4e6b-25a6-44aa-8918-295b318784c4",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32304, 795, 689, 13, 105, "Input",ExpressionUUID->"9c72148b-956c-44d5-9398-d18781a0e5e6",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[32996, 810, 1978, 55, 142, "Output",ExpressionUUID->"90b64554-62a6-446d-b883-747c83ff9904",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[34977, 867, 486, 10, 41, "Input",ExpressionUUID->"9fa7b8e8-7601-4a5c-8786-69d614fbbe82",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[35466, 879, 947, 25, 101, "Output",ExpressionUUID->"cdad2063-f408-4716-a030-cf0aa3dd8173",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36416, 906, 483, 10, 41, "Input",ExpressionUUID->"3f2b6f95-06b5-415d-aff3-c5dc3d547a87",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}],
Cell[36902, 918, 942, 25, 101, "Output",ExpressionUUID->"ef9ec89c-233c-4b2b-bb32-bf36549e0c84",
 CellGroupingRules->{"GroupTogetherGrouping", 10004.}]
}, Closed]],
Cell[CellGroupData[{
Cell[37881, 948, 539, 10, 55, "Section",ExpressionUUID->"243c7715-7857-45dd-8c30-c7329b7f939e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[38423, 960, 488, 10, 41, "Input",ExpressionUUID->"f8fea7c2-f027-4ab1-aa69-c0448cefb454",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[38914, 972, 5732, 130, 714, "Input",ExpressionUUID->"a37ce944-d8b8-4c06-8de8-4dbaf4a3c250",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[44649, 1104, 1188, 23, 65, "Input",ExpressionUUID->"35ed806e-2379-4557-b313-d8bb84e627e9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[45840, 1129, 746, 12, 41, "Output",ExpressionUUID->"9417ecd6-69a0-48fb-a3f6-c6e546e80098",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[46589, 1143, 261, 4, 41, "Input",ExpressionUUID->"d4f3f26d-ebac-469e-8aad-e1c3eb06dcfb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[46853, 1149, 1492, 39, 45, "Output",ExpressionUUID->"e7ac7fdb-934c-4cc8-a734-03b679338187",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[48348, 1190, 809, 18, 84, "Input",ExpressionUUID->"05ae5c7e-9ed1-450c-b6f4-2b2bbca1320d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[49160, 1210, 773, 14, 45, "Output",ExpressionUUID->"c4341a7e-3a4e-41ef-85f3-637394467d4d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[49936, 1226, 683, 10, 41, "Output",ExpressionUUID->"f843fcc2-3312-46fd-ac8d-d8ad26021edc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[50622, 1238, 2038, 53, 122, "Output",ExpressionUUID->"91c97acb-22ec-4fcd-8076-92b9fa455258",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[52663, 1293, 813, 18, 84, "Input",ExpressionUUID->"cdb8698e-4591-494a-bcb7-15e123283221",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[53479, 1313, 889, 16, 45, "Output",ExpressionUUID->"18198a6d-5dc6-4c5d-962a-51923b1ab426",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[54371, 1331, 786, 11, 41, "Output",ExpressionUUID->"13113f29-77c6-4db9-843c-07ea6d11ed37",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[55160, 1344, 16977, 475, 379, "Output",ExpressionUUID->"cebcf167-af2b-4754-b426-6d9657420d17",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[72140, 1821, 812, 18, 84, "Input",ExpressionUUID->"2868d21e-311a-4eea-92aa-511ecce25518",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[72955, 1841, 759, 13, 45, "Output",ExpressionUUID->"e54489a5-d4e6-4e9c-8b83-dbd7a87663bc",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[73717, 1856, 698, 10, 41, "Output",ExpressionUUID->"54fa37c8-4674-4440-9ae9-2666c446a58c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[74418, 1868, 57462, 1430, 541, "Output",ExpressionUUID->"2fd87784-0095-41cd-8ba2-4f1001ff54eb",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[131883, 3300, 808, 18, 84, "Input",ExpressionUUID->"c69410b8-d87c-4d3f-8827-3c21235cdc13",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[132694, 3320, 747, 13, 45, "Output",ExpressionUUID->"65158f83-5c1f-483b-a6e0-2f747887aaca",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[133444, 3335, 702, 10, 41, "Output",ExpressionUUID->"d053ef28-cf20-4e51-a0f1-dc029b7afb81",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[134149, 3347, 9935, 264, 167, "Output",ExpressionUUID->"4c1f549d-e7f8-46b6-a0a0-b50f0947f9d0",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[144087, 3613, 810, 18, 84, "Input",ExpressionUUID->"1fc17d1a-8620-4ddb-833a-61027ccdf3be",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[144900, 3633, 706, 12, 41, "Output",ExpressionUUID->"bd343ea0-7dd9-4c18-b0a0-7455d833f6b8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[145609, 3647, 696, 10, 41, "Output",ExpressionUUID->"2ab35a66-b974-4bd0-a380-fcf44ca27b25",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[146308, 3659, 3238, 88, 73, "Output",ExpressionUUID->"be842e28-3a06-4b53-9cec-139960887a95",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[149549, 3749, 867, 19, 84, "Input",ExpressionUUID->"32fd7539-7197-4e25-b6b2-094b3bcc339a",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[150419, 3770, 381, 7, 41, "Output",ExpressionUUID->"79f00257-ad6e-4073-8a23-38378903dab9",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[150803, 3779, 377, 5, 41, "Output",ExpressionUUID->"5211a474-5b42-447d-bef5-d11bdec80963",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[151183, 3786, 13783, 357, 218, "Output",ExpressionUUID->"ddd24670-c0f1-405a-b3f3-16f3e9c003ee",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[164969, 4145, 792, 18, 84, "Input",ExpressionUUID->"7da9fae8-942c-4967-bad5-b287c74b67d2",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[165764, 4165, 681, 12, 45, "Output",ExpressionUUID->"cfe0fee2-035b-44c9-9b33-a0fa5af85c86",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[166448, 4179, 637, 9, 41, "Output",ExpressionUUID->"a414a787-61f4-4506-9274-80bf7f652a3f",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[167088, 4190, 9509, 253, 161, "Output",ExpressionUUID->"9d1d8b23-1121-4534-a89a-7d1c1ef69c8c",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[176600, 4445, 857, 19, 84, "Input",ExpressionUUID->"72a72b56-d2ef-4cfe-931d-e8dbbfcb7308",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[177460, 4466, 765, 13, 45, "Output",ExpressionUUID->"a0c8cb6c-bba2-487b-9af7-c72584303669",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[178228, 4481, 701, 10, 41, "Output",ExpressionUUID->"ef900176-2578-4ef6-8dff-b4d38aee0a1e",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[178932, 4493, 110638, 2624, 613, "Output",ExpressionUUID->"02bb91a8-66db-4b39-8a38-16d4f00e54a8",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[289573, 7119, 795, 18, 84, "Input",ExpressionUUID->"12b5eb93-9b7d-448a-ba2c-951071e38bc5",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[290371, 7139, 428, 8, 45, "Output",ExpressionUUID->"403ca149-afe4-47ef-8839-5f2f2d32005d",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[290802, 7149, 374, 5, 41, "Output",ExpressionUUID->"bbb029e9-085d-44b4-a6ec-b3cb4ced0188",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}],
Cell[291179, 7156, 121370, 2835, 467, "Output",ExpressionUUID->"9fb588e1-0513-4e37-a476-7292a27d7e95",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[412586, 9996, 303, 5, 55, "Section",ExpressionUUID->"b553352c-510d-4e85-8262-d8a965727bba",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[412892, 10003, 1387, 34, 105, "Input",ExpressionUUID->"abdec1bc-43dd-49ff-9c16-c9103da9fca8",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[414282, 10039, 7220, 200, 214, "Output",ExpressionUUID->"fed0b46b-ea84-4fbe-8274-fa75a0e6fdf0",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[421505, 10241, 1401, 35, 105, "Input",ExpressionUUID->"b7e96939-d8ae-478e-9d00-9acde20acb9d",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[422909, 10278, 8288, 227, 208, "Output",ExpressionUUID->"b531d744-5fbd-4e49-a7cd-947723376700",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[431200, 10507, 1102, 27, 107, "Input",ExpressionUUID->"078e70ec-e36f-403d-83d8-643add3b6006",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[432305, 10536, 491, 14, 69, "Output",ExpressionUUID->"1d395866-7fe0-45b5-9feb-405d8d19fc2e",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[432799, 10552, 1095, 28, 107, "Input",ExpressionUUID->"a6733838-a2ee-4506-ae9a-ce58d56558e1",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}],
Cell[433897, 10582, 665, 18, 69, "Output",ExpressionUUID->"eb141c70-1525-43c3-bdee-f2745097acd3",
 CellGroupingRules->{"GroupTogetherGrouping", 10002.}]
}, Closed]],
Cell[CellGroupData[{
Cell[434599, 10605, 580, 11, 55, "Section",ExpressionUUID->"291b7382-0d63-4212-b9e7-dc01abbeca8f",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[435182, 10618, 810, 16, 84, "Input",ExpressionUUID->"81f4301c-c0ce-47ea-9e52-bb4b599f9596",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[435995, 10636, 368, 7, 41, "Output",ExpressionUUID->"4ceb883e-9172-44c7-8ac6-e19bab803097",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[436366, 10645, 2178, 51, 147, "Input",ExpressionUUID->"6c8fc83b-3080-4a15-ab7e-eb17cbb360c7",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[438547, 10698, 6055, 162, 162, "Output",ExpressionUUID->"ad5cacac-3584-47e3-89be-dbb9eee3ac3e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[444605, 10862, 858, 18, 105, "Input",ExpressionUUID->"8bdd443a-6831-4fea-84eb-f9141d2a0d2e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[445466, 10882, 15084, 407, 416, "Output",ExpressionUUID->"20650060-e050-4ea7-a399-49b43cbfe9d4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[460553, 11291, 1049, 26, 107, "Input",ExpressionUUID->"6df0ced6-b3c8-4bc7-9c76-c9b70d7def4e",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[461605, 11319, 858, 24, 72, "Output",ExpressionUUID->"51f837a9-ea03-4777-ab07-9eb52459fcb0",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[462466, 11345, 453, 9, 41, "Input",ExpressionUUID->"ae48331b-9697-4365-82cd-001295c0d279",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[462922, 11356, 834, 24, 72, "Output",ExpressionUUID->"af5d4c8f-1751-42a0-a03c-21d352a92388",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[463759, 11382, 947, 24, 44, "Input",ExpressionUUID->"356f8cf0-aeb0-46f9-9b9e-67cd0f83156b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[464709, 11408, 1380, 40, 72, "Output",ExpressionUUID->"d894158f-2d15-4356-9ae5-07151925f23b",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[466092, 11450, 1273, 31, 107, "Input",ExpressionUUID->"386c5bf2-b91d-46b3-9460-42ab228c4f5a",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[467368, 11483, 657, 18, 69, "Output",ExpressionUUID->"6851742c-6fb8-42d0-ace0-337baf607564",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[468028, 11503, 402, 8, 41, "Input",ExpressionUUID->"d5d7deda-c9f8-4815-881e-7d4e72ace6ff",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[468433, 11513, 1175, 34, 49, "Output",ExpressionUUID->"abe67673-22f8-4aa4-909b-12a11e951599",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[469611, 11549, 666, 12, 105, "Input",ExpressionUUID->"3b5a288a-7279-497e-af70-3a5e0d57e6e4",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}],
Cell[470280, 11563, 4721, 141, 91, "Output",ExpressionUUID->"abc5d6a1-dea6-4a34-ae81-33c1de4f9bba",
 CellGroupingRules->{"GroupTogetherGrouping", 10001.}]
}, Closed]]
}
]
*)